(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of 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[ 2320835, 73932]*) (*NotebookOutlinePosition[ 2349430, 74797]*) (* CellTagsIndexPosition[ 2342275, 74584]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["FeynCalc 3.0 Manual", "Title", TextAlignment->Center], Cell["Tools for Feynman diagram calculations", "Subtitle", TextAlignment->Center], Cell["Rolf Mertig", "Subsubtitle", TextAlignment->Center], Cell["August 26, 1998 ", "Subsubtitle", TextAlignment->Center], Cell[TextData[{ "Copyright \[Copyright]1998 \nMertig Research & Consulting\nOosterpark 77\n\ NL-1092 AT Amsterdam\n", ButtonBox["http://www.mertig.com", ButtonData:>{ URL[ "http://www.mertig.com"], None}, ButtonStyle->"Hyperlink"] }], "Subsubtitle", TextAlignment->Center], Cell[TextData[StyleBox[ "This notebook describes features of FeynCalc 3.0.5.1", FontWeight->"Bold"]], "Subsubtitle", PageBreakBelow->True, TextAlignment->Center], Cell[CellGroupData[{ Cell["Table of Contents", "Section"], Cell["\<\ You can select the Cell bracket of this \"Table of Contents\" \ section and copy it to a new notebook which should be saved in the same \ directory as this one. One possibility to jump back from a hyperlink is to use the \"<", "Text"], Cell[TextData[ButtonBox["Short Overview", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Short Overview"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Load FeynCalc", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Load FeynCalc"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["A0", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "A0"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Amplitudes", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Amplitudes"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["AnomalousDimension", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "AnomalousDimension"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Anti5", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Anti5"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["AntiCommutator", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "AntiCommutator"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["AntiQuarkField", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "AntiQuarkField"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Apart1", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Apart1"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Apart2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Apart2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Apart3", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Apart3"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["B00", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "B00"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["B0", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "B0"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["B11", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "B11"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["B1", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "B1"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["BackgroundGluonVertex", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "BackgroundGluonVertex"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["C0", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "C0"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Calc", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Calc"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["CA", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "CA"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Cases2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Cases2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["CF", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "CF"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ChangeDimension", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ChangeDimension"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ChargeConjugationMatrixInv", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ChargeConjugationMatrixInv"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ChargeConjugationMatrix", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ChargeConjugationMatrix"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ChiralityProjector", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ChiralityProjector"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Chisholm", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Chisholm"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Collect2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Collect2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Combine", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Combine"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["CommutatorExplicit", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "CommutatorExplicit"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Commutator", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Commutator"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ComplexConjugate", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ComplexConjugate"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ComplexIndex", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ComplexIndex"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Contract", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Contract"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Convolute", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Convolute"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["CovariantD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "CovariantD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["D0", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "D0"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DataType", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DataType"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DeclareNonCommutative", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DeclareNonCommutative"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DeltaFunction", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DeltaFunction"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DeltaFunctionPrime", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DeltaFunctionPrime"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Dimension", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Dimension"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracGammaCombine", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracGammaCombine"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracGammaExpand", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracGammaExpand"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracGamma", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracGamma"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracGammaT", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracGammaT"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracMatrix", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracMatrix"} , ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracOrder", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracOrder"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracReduce", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracReduce"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracSigmaExplicit", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracSigmaExplicit"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracSigma", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracSigma"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracSimplify", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracSimplify"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracSimplify2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracSimplify2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracSlash", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracSlash"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracTrace", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracTrace"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DiracTrick", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracTrick"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["DotSimplify", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DotSimplify"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["EpsChisholm", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "EpsChisholm"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["EpsEvaluate", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "EpsEvaluate"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Epsilon", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Epsilon"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Eps", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Eps"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ExpandPartialD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ExpandPartialD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ExpandScalarProduct", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ExpandScalarProduct"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Explicit", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Explicit"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ExplicitPartialD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ExplicitPartialD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Factor2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Factor2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FAD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FAD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FCE", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FCE"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FCI", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FCI"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FermionSpinSum", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FermionSpinSum"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FeynAmpDenominatorCombine", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynAmpDenominatorCombine"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FeynAmpDenominator", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynAmpDenominator"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FeynAmpDenominatorSimplify", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynAmpDenominatorSimplify"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FeynAmpDenominatorSplit", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynAmpDenominatorSplit"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FeynAmp", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynAmp"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FeynCalc2FORM", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynCalc2FORM"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FeynCalcExternal", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynCalcExternal"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FeynCalcInternal", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynCalcInternal"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FeynRule", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynRule"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FieldStrength", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FieldStrength"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FORM2FeynCalc", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FORM2FeynCalc"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FourDivergence", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FourDivergence"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FourLaplacian", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FourLaplacian"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FourVector", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FourVector"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FreeQ2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FreeQ2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FromTFi", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FromTFi"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FRH", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FRH"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FunctionalD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FunctionalD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FVD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FVD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["FV", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FV"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GAD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GAD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GammaEpsilon", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GammaEpsilon"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GammaExpand", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GammaExpand"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GA", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GA"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GhostPropagator", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GhostPropagator"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GHP", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GHP"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GaugeField", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GluonField"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GluonGhostVertex", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GluonGhostVertex"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GluonPropagator", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GluonPropagator"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GluonVertex", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GluonVertex"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GSD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GSD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["GS", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GS"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Hill", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Hill"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["HypergeometricAC", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "HypergeometricAC"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["HypergeometricIR", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "HypergeometricIR"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["HypergeometricSE", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "HypergeometricSE"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["HypExplicit", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "HypExplicit"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Integrate2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Integrate2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Integrate3", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Integrate3"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["IntegrateByParts", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "IntegrateByParts"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["InverseMellin", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "InverseMellin"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Isolate", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Isolate"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Kummer", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Kummer"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Lagrangian", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Lagrangian"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["LCD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "LCD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["LC", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "LC"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["LeftPartialD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "LeftPartialD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["LeftRightPartialD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "LeftRightPartialD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["LeftRightPartialD2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "LeftRightPartialD2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["LeviCivita", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "LeviCivita"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["LorentzIndex", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "LorentzIndex"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Map2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Map2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["MetricTensor", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "MetricTensor"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["MomentumCombine", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "MomentumCombine"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["MomentumExpand", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "MomentumExpand"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Momentum", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Momentum"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["MTD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "MTD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["MT", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "MT"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Nielsen", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Nielsen"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["NTerms", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "NTerms"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["OneLoop", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "OneLoop"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["OneLoopSimplify", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "OneLoopSimplify"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["OPEDelta", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "OPEDelta"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["OPEi, OPEj, OPEk, OPEl, OPEm, OPEn, OPEo", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "OPEi"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["OPESumExplicit", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "OPESumExplicit"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["OPESum", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "OPESum"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["OPESumSimplify", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "OPESumSimplify"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Pair", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Pair"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["PartialD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PartialD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["PaVe", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PaVe"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["PaVeOrder", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PaVeOrder"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["PaVeReduce", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PaVeReduce"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["PlusDistribution", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PlusDistribution"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Polarization", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Polarization"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["PolarizationSum", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PolarizationSum"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["PolarizationVector", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PolarizationVector"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["PowerSimplify", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PowerSimplify"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["PropagatorDenominatorExplicit", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PropagatorDenominatorExplicit"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["PropagatorDenominator", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PropagatorDenominator"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["QuantumField", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "QuantumField"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["QuarkField", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "QuarkField"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["QuarkGluonVertex", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "QuarkGluonVertex"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["QuarkPropagator", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "QuarkPropagator"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["RightPartialD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "RightPartialD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["RussianTrick", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "RussianTrick"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ScalarProduct", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ScalarProduct"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ScalarProductCancel", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ScalarProductCancel"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SelectFree", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SelectFree"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SelectNotFree", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SelectNotFree"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Series2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Series2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SimplifyDeltaFunction", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SimplifyDeltaFunction"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SimplifyPolyLog", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SimplifyPolyLog"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SOD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SOD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Solve2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Solve2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SO", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SO"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SPD", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SPD"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Spinor", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Spinor"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SpinorUBar", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SpinorUBar"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SpinorU", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SpinorU"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SpinorVBar", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SpinorVBar"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SpinorV", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SpinorV"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SplittingFunction", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SplittingFunction"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SP", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SP"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SumP", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SumP"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SumS", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SumS"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SumT", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SumT"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SUNDelta", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SUNDelta"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SUND", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SUND"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SUNF", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SUNF"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SUNIndex", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SUNIndex"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SUNSimplify", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SUNSimplify"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SUNT", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SUNT"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["SUNTrace", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SUNTrace"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Symmetrize", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Symmetrize"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Tdec", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Tdec"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Tensorfunction", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Tensorfunction"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["TFi", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "TFi"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["TIDL", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "TIDL"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["TID", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "TID"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ToDistribution", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ToDistribution"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ToHypergeometric", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ToHypergeometric"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ToLarin", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ToLarin"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["ToTFi", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ToTFi"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["TrickMandelstam", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "TrickMandelstam"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Trick", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Trick"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Tr", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Tr"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Twist2GluonOperator", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Twist2GluonOperator"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Twist2QuarkOperator", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Twist2QuarkOperator"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Uncontract", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Uncontract"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["UnDeclareNonCommutative", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "UnDeclareNonCommutative"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Write2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Write2"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}], Cell[TextData[ButtonBox["Evaluation time and memory usage", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Evaluation time and memory usage"}, ButtonStyle->"Hyperlink"]], "Text", CellMargins->{{21, 4}, {0, 0}}] }, Open ]], Cell[CellGroupData[{ Cell["Short Overview", "Section", PageBreakAbove->True, CellTags->"Short Overview"], Cell[TextData[{ "FeynCalc 3.0 is a ", StyleBox["Mathematica", FontSlant->"Italic"], " 3.0 package for algebraic calculations in high energy physics. Tools are \ provided for Lorentz index contraction, Dirac algebra manipulation, color \ factor calculation, automatic Feynman rule derivation, general noncommutative \ algebra as well as various look-up tables for Feynman parameter integrals, \ convolutions and Feynman rules. Furthermore special translation facilities \ are provided to change the FeynCalc syntax to and from FORM syntax. Optimized \ FORTRAN generation is possible by using ", ButtonBox["Isolate", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Isolate"}, ButtonStyle->"Hyperlink"], " and ", ButtonBox["Write2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Write2"}, ButtonStyle->"Hyperlink"], "." }], "Text"], Cell[TextData[{ "The more important functions for input of objects like ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["p", "\[Mu]"], ",", SuperscriptBox["\[Gamma]", "\[Nu]"], ",", SuperscriptBox["g", RowBox[{"\[Mu]", " ", "\[Nu]"}]], ",", " ", SuperscriptBox["\[CurlyEpsilon]", RowBox[{"\[Mu]", " ", "\[Nu]", " ", "\[Rho]", " ", "\[Sigma]"}]], ",", " ", RowBox[{"etc", "."}]}], TraditionalForm]]], " (abbreviations in parentheses) are:\n", ButtonBox["DiracMatrix", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracMatrix"}, ButtonStyle->"Hyperlink"], " (", ButtonBox["GA", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GA"}, ButtonStyle->"Hyperlink"], "), ", ButtonBox["DiracSlash", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "DiracSlash"}, ButtonStyle->"Hyperlink"], " (", ButtonBox["GS", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "GS"}, ButtonStyle->"Hyperlink"], "), ", ButtonBox["FourVector", ButtonData:>"FourVector", ButtonStyle->"Hyperlink", ButtonNote->"FourVector"], " (", ButtonBox["FV", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FV"}, ButtonStyle->"Hyperlink"], "), ", ButtonBox["LeviCivita", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "LeviCivita"}, ButtonStyle->"Hyperlink"], " (", ButtonBox["LC", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "LC"}, ButtonStyle->"Hyperlink"], "), ", ButtonBox["MetricTensor", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "MetricTensor"}, ButtonStyle->"Hyperlink"], " (", ButtonBox["MT", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "MT"}, ButtonStyle->"Hyperlink"], "), ", ButtonBox["Spinor", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Spinor"}, ButtonStyle->"Hyperlink"], ", ", ButtonBox["SUNDelta", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "a:0.0.176.0"}, ButtonStyle->"Hyperlink"], ", ", ButtonBox["SUNF", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "a:0.0.178.0"}, ButtonStyle->"Hyperlink"], ", ", ButtonBox["ScalarProduct", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ScalarProduct"}, ButtonStyle->"Hyperlink"], " (", ButtonBox["SP", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SP"}, ButtonStyle->"Hyperlink"], "). " }], "Text"], Cell["The more important functions for manipulations are:", "Text"], Cell[TextData[{ ButtonBox["Contract", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Contract"}, ButtonStyle->"Hyperlink"], ", ", ButtonBox["Tr", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Tr"}, ButtonStyle->"Hyperlink"], ", ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], ", ", ButtonBox["Calc", ButtonData:>"Calc", ButtonStyle->"Hyperlink", ButtonNote->"Calc"], ", ", ButtonBox["Convolute", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Convolute"}, ButtonStyle->"Hyperlink"], ", ", ButtonBox["FeynRule", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynRule"}, ButtonStyle->"Hyperlink"], " , ", ButtonBox["Integrate2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Integrate2"}, ButtonStyle->"Hyperlink"], " , ", ButtonBox["FeynCalc2FORM", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "FeynCalc2FORM"}, ButtonStyle->"Hyperlink"], " ,", ButtonBox["PaVeReduce", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "PaVeReduce"}, ButtonStyle->"Hyperlink"], " ,", ButtonBox["SimplifyPolyLog", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SimplifyPolyLog"}, ButtonStyle->"Hyperlink"], " , ", ButtonBox["SUNSimplify", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "SUNSimplify"}, ButtonStyle->"Hyperlink"], " , ", ButtonBox["Isolate", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Isolate"}, ButtonStyle->"Hyperlink"], " , ", ButtonBox["Collect2", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "Collect2"}, ButtonStyle->"Hyperlink"], " , ", ButtonBox["OneLoopSimplify", ButtonData:>"OneLoopSimplify", ButtonStyle->"Hyperlink", ButtonNote->"OneLoopSimplify"], " , ", ButtonBox["Series2", ButtonData:>"Series2", ButtonStyle->"Hyperlink", ButtonNote->"Series2"], " , ", ButtonBox["ScalarProductCancel", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ScalarProductCancel"}, ButtonStyle->"Hyperlink"] }], "Text"], Cell[TextData[{ "FeynCalc 3.0 is still compatible with FeynArts 2.2 if the FeynArts \ function ToFA1Convention is used on the generated amplitudes. The functions \ OneLoop and OneLoopSum for calculation of Standard Model (like) 1-loop \ diagrams still work in FeynCalc 3.0 but they have not been developed much \ further compared to the FeynCalc 1.0 version. While ", ButtonBox["OneLoop", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "OneLoop"}, ButtonStyle->"Hyperlink"], " and OneLoopSum still work fine for selfenergy, triangle and box diagrams \ not too complicated the reader should be aware of the package FORMCalc which \ is more effective for the adventurous researcher calculating thousands of \ diagrams involving four external gauge bosons. Notice however that FORMCalc \ does not reduce the Passarino-Veltman integrals to scalar integrals. Also \ FORMCalc is limited to the 't Hooft Feynman gauge. FeynCalc 3.0 provides the \ possibility to reduce Passarino-Veltman integrals to scalar integrals \ algebraically by the function ", ButtonBox["PaVeReduce", ButtonData:>"PaVeReduce", ButtonStyle->"Hyperlink", ButtonNote->"PaVeReduce"], " ." }], "Text"], Cell[TextData[{ "On a Pentium II 300 Mhz computer with 64 MB of RAM running ", StyleBox["Mathematica", FontSlant->"Italic"], " 3.0 for Linux this noteboook needs about 11 minutes to evaluate and less \ than 16 MB of memory." }], "Text"], Cell[TextData[{ "FeynCalc automatically loads any tarcer*.mx file from the \ HighEnergyPhysics directory. \nFor a description of TARCER see ", ButtonBox["hep-ph/9801383", ButtonData:>{ URL[ "http://xxx.lanl.gov/abs/hep-ph/9801383"], None}, ButtonStyle->"Hyperlink"], " or the published version in Computer Physics Communications 111 (1998) \ 265-273." }], "Text"], Cell["\<\ For more detailed information concerning FeynCalc functions you can \ investigate most of the source code in the FeynCalc directory in the \ HighEnergyPhysics directory. The location of the HighEnergyPhysics directory \ is stored upon installation in the fc.m file and you can get its value from \ the global variable $FeynCalcDirectory. A complete list of FeynCalc objects \ is stored in the variable $FeynCalcStuff. Not all functions are documented in \ this notebook. Some are either very special ones (e.g. for tools for 2-loop \ QCD diagrams originating in twist-2 OPE) or still experimental.\ \>", "Text"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "5"], TraditionalForm]]], "scheme used in OneLoop is the naive one, i.e., ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "5"], ",", SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "=", "0"}], TraditionalForm]]], " in 4 and D dimensions. See also ", ButtonBox["ToLarin", ButtonData:>{ FrontEnd`FileName[ {}, "FeynCalcManual.nb", CharacterEncoding -> "ISO8859-1"], "ToLarin"}, ButtonStyle->"Hyperlink"] }], "Text"], Cell["The metric used is the one from Bjorken and Drell (+---).", "Text"], Cell[TextData[{ "For suggestions please email the author: ", ButtonBox["Rolf@Mertig.com", ButtonData:>{ URL[ "mailto:Rolf@Mertig.com"], None}, ButtonStyle->"Hyperlink"], ".\nNotice that usually no support is given. However, especially if you \ find bugs, send a repeatable clear example to the above email address." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Load FeynCalc", "Section", CellTags->"Load FeynCalc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"absolutestarttime", "=", RowBox[{"AbsoluteTime", "[", "]"}]}]], "Input"], Cell[BoxData[ FormBox["3.113150656`15.5138*^9", TraditionalForm]], "Output"] }, Open ]], Cell["This defines typesetting rules for q1 and q2:", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"q1", "/:", RowBox[{"MakeBoxes", "[", RowBox[{"q1", ",", "fmt_"}], "]"}], ":=", RowBox[{"SubscriptBox", "[", RowBox[{"\"\\"", ",", "\"\<1\>\""}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"q2", "/:", RowBox[{"MakeBoxes", "[", RowBox[{"q2", ",", "fmt_"}], "]"}], ":=", RowBox[{"SubscriptBox", "[", RowBox[{"\"\\"", ",", "\"\<2\>\""}], "]"}]}], ";"}]], "Input"], Cell["Load FeynCalc:", "Text"], Cell[BoxData[ RowBox[{"<<", "HighEnergyPhysics`fc`"}]], "Input"], Cell["loading TARCER tarcer23.mx", "Text", GeneratedCell->True, CellAutoOverwrite->True], Cell[TextData[{ StyleBox["FeynCalc", FontSlant->"Italic"], " ", "3.0.5.1", ". ", "Type ?FeynCalc for help or visit ", ButtonBox["www.mertig.com", ButtonData:>{ URL[ "http://www.mertig.com"], None}, ButtonStyle->"Hyperlink"] }], "Text", GeneratedCell->True, CellAutoOverwrite->True], Cell["loading TARCER tarcer23.mx", "Text", GeneratedCell->True, CellAutoOverwrite->True], Cell[TextData[{ StyleBox["FeynCalc", FontSlant->"Italic"], " ", "3.0.5.0", ". ", "Type ?FeynCalc for help or visit ", ButtonBox["www.mertig.com", ButtonData:>{ URL[ "http://www.mertig.com"], None}, ButtonStyle->"Hyperlink"] }], "Text", GeneratedCell->True, CellAutoOverwrite->True] }, Open ]], Cell[CellGroupData[{ Cell["A0", "Section", PageBreakAbove->True, CellTags->"A0"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"A0", "[", RowBox[{"m", "^", "2"}], "]"}], " ", "is", "the", "Passarino"}], "-", RowBox[{"Veltman", "one"}], "-", RowBox[{"point", " ", " ", "integral", " ", " ", SubscriptBox["A", "0."]}]}], TraditionalForm]]]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "A0", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"A0ToB0", "\[Rule]", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["B0", ButtonData:>"B0", ButtonStyle->"Hyperlink", ButtonNote->"B0"], ", ", ButtonBox["C0", ButtonData:>"C0", ButtonStyle->"Hyperlink", ButtonNote->"C0"], ", ", ButtonBox["D0", ButtonData:>"D0", ButtonStyle->"Hyperlink", ButtonNote->"D0"], ", ", ButtonBox["PaVe", ButtonData:>"PaVe", ButtonStyle->"Hyperlink", ButtonNote->"PaVe"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[TextData[{ "By default any ", Cell[BoxData[ FormBox[ SubscriptBox["A", "0"], TraditionalForm]]], " is expressed in terms of ", Cell[BoxData[ FormBox[ SubscriptBox["B", "0"], TraditionalForm]]], "'s." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A0", "[", RowBox[{"m", "^", "2"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", SuperscriptBox["m", "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A0", "[", RowBox[{ RowBox[{"m", "^", "2"}], ",", RowBox[{"A0ToB0", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", SuperscriptBox["m", "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "According to the rules of dimensional regularization ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "0"], "(", "0", ")"}], TraditionalForm]]], " is set to 0." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A0", "[", "0", "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A0", "[", RowBox[{"SmallVariable", "[", RowBox[{"M", "^", "2"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Amplitudes", "Section", CellTags->"Amplitudes"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "Amplitudes[name] is a database of Feynman amplitudes.\nGauge \[Rule] 1 means \ `t Hooft Feynman gauge; Polarization \[Rule] 0 gives\nunpolarized OPE-type \ amplitudes, Polarization \[Rule] 1 the polarized ones."], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Amplitudes", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Gauge", "\[Rule]", "1"}], ",", RowBox[{"QuarkMass", "\[Rule]", "0"}], ",", RowBox[{"Polarization", "\[Rule]", "1"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynAmp", ButtonData:>"FeynAmp", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmp"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["This is the amplitude of a gluon selfenergy diagram.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Amplitudes", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{ SubsuperscriptBox["g", "s", "2"], " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox[ RowBox[{"-", "p"}], "TraditionalForm"], RowBox[{",", " "}], FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], RowBox[{",", " "}], FormBox["q", "TraditionalForm"]}], ")"}], " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox["p", "TraditionalForm"], RowBox[{",", " "}], FormBox[ RowBox[{"q", "-", "p"}], "TraditionalForm"], RowBox[{",", " "}], FormBox[ RowBox[{"-", "q"}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["f", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["f", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "2"], " ", SuperscriptBox["q", "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Explicit[%]", "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "2"], " ", SuperscriptBox["q", "2"]}]], RowBox[{"(", RowBox[{ SubsuperscriptBox["g", "s", "2"], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"2", " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["f", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["f", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "This is the amplitude for graph 6.2 from the paper Z.Phys C ", StyleBox["70:", FontWeight->"Bold"], "637-654, 1996", StyleBox[".", FontWeight->"Bold"] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynAmp", "[", RowBox[{"q1", ",", "q2", ",", "\t", RowBox[{"EpsEvaluate", "[", RowBox[{"Trick", "[", RowBox[{"Explicit", "[", RowBox[{"Amplitudes", "[", "\"\\"", "]"}], "]"}], "]"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[DifferentialD]", "D"], FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], SuperscriptBox[ RowBox[{"(", "2", "\[Pi]", ")"}], "D"]], "\[Integral]", FractionBox[ RowBox[{ SuperscriptBox["\[DifferentialD]", "D"], FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], SuperscriptBox[ RowBox[{"(", "2", "\[Pi]", ")"}], "D"]]}], "(", FormBox[ RowBox[{ RowBox[{"(", RowBox[{"2", " ", "\[ImaginaryI]", " ", SubsuperscriptBox["g", "s", "4"], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"2", " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "1"], "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "1"], "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "1"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "1"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "5"], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "5"], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "7"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Lambda]", "10"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "11"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Lambda]", "12"], "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]], "TraditionalForm"], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ SubscriptBox["\<\"c\"\>", "5"], "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ SubscriptBox["\<\"c\"\>", "11"], "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ SubscriptBox["\<\"c\"\>", "7"], "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ SubscriptBox["\<\"c\"\>", "10"], "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox[ SubscriptBox["\<\"c\"\>", "5"], "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ SubscriptBox["\<\"c\"\>", "7"], "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ SubscriptBox["\<\"c\"\>", "12"], "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox[ SubscriptBox["\<\"c\"\>", "10"], "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ SubscriptBox["\<\"c\"\>", "11"], "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ SubscriptBox["\<\"c\"\>", "12"], "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], "/", RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "1", "2"], " ", SubsuperscriptBox["q", "2", "2"], " ", SubsuperscriptBox["q", "2", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", SubscriptBox["q", "2"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"]}], ")"}]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["AnomalousDimension", "Section", CellTags->"AnomalousDimension"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ AnomalousDimension[name] is a database of anomalous dimensions of \ twist-2 operators.\ \>", "Text"], Cell[CellGroupData[{ Cell["Options[AnomalousDimension]", "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"Simplify", "\[Rule]", "FullSimplify"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["SplittingFunction", ButtonData:>"SplittingFunction", ButtonStyle->"Hyperlink", ButtonNote->"SplittingFunction"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell["Polarized case", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", " ", RowBox[{"AnomalousDimension", ",", RowBox[{"Polarization", "\[Rule]", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"Simplify", "\[Rule]", "FullSimplify"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", RowBox[{"NS", ",", "qq", " "}], RowBox[{"(", "0", ")", " "}]], TraditionalForm]]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AnomalousDimension", "[", "gnsqq0", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", FractionBox["4", "m"], "+", FractionBox["4", RowBox[{"m", "+", "1"}]], "-", "6"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", RowBox[{"S", ",", "qg", " "}], RowBox[{"(", "0", ")", " "}]], TraditionalForm]]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AnomalousDimension", "[", "gsqg0", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["8", "m"], "-", FractionBox["16", RowBox[{"m", "+", "1"}]]}], ")"}], " ", SubscriptBox["T", "f"]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", RowBox[{"S", ",", "gq", " "}], RowBox[{"(", "0", ")", " "}]], TraditionalForm]]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AnomalousDimension", "[", "gsgq0", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ FractionBox["4", RowBox[{"m", "+", "1"}]], "-", FractionBox["8", "m"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", RowBox[{"S", ",", "gg", " "}], RowBox[{"(", "0", ")", " "}]], TraditionalForm]]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AnomalousDimension", "[", "gsgg0", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"8", " ", SubscriptBox["T", "f"]}], "3"], "+", RowBox[{ SubscriptBox["C", "A"], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", FractionBox["8", "m"], "+", FractionBox["16", RowBox[{"m", "+", "1"}]], "-", FractionBox["22", "3"]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", RowBox[{"PS", ",", "qq", " "}], RowBox[{"(", "0", ")", " "}]], TraditionalForm]]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AnomalousDimension", "[", "gpsqq1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"16", " ", SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"m", "+", "1"}]], "+", FractionBox["3", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]], "+", FractionBox["2", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]], "-", FractionBox["1", "m"], "-", FractionBox["1", SuperscriptBox["m", "2"]], "+", FractionBox["2", SuperscriptBox["m", "3"]]}], ")"}], " ", SubscriptBox["T", "f"]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", RowBox[{"NS", ",", "qq", " "}], RowBox[{"(", "1", ")", " "}]], TraditionalForm]]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AnomalousDimension", "[", "gnsqq1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"16", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], SuperscriptBox["m", "2"]], "+", FractionBox[ RowBox[{"16", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]], "+", FractionBox[ RowBox[{"16", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "+", FractionBox[ RowBox[{"16", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "-", RowBox[{"24", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", RowBox[{"32", " ", RowBox[{ SubscriptBox["S", "12"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", RowBox[{"32", " ", RowBox[{ SubscriptBox["S", "21"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", FractionBox[ RowBox[{"32", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "+", FractionBox[ RowBox[{"32", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "-", RowBox[{"32", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "3"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", RowBox[{"64", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "12"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", FractionBox["40", "m"], "+", FractionBox["40", RowBox[{"m", "+", "1"}]], "+", FractionBox["16", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]], "+", FractionBox["8", SuperscriptBox["m", "3"]], "+", FractionBox["40", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]], "+", "3"}], ")"}]}], " ", SubsuperscriptBox["C", "F", "2"]}], "-", RowBox[{ SubscriptBox["N", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["80", "9"], " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", RowBox[{ FractionBox["16", "3"], " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", FractionBox["8", RowBox[{"9", " ", "m"}]], "+", FractionBox["88", RowBox[{"9", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}]}]], "-", FractionBox["8", RowBox[{"3", " ", SuperscriptBox["m", "2"]}]], "-", FractionBox["8", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]}]], "-", FractionBox["2", "3"]}], ")"}], " ", SubscriptBox["C", "F"]}], "-", RowBox[{ SubscriptBox["C", "A"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["536", "9"]}], " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", RowBox[{ FractionBox["88", "3"], " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", RowBox[{"16", " ", RowBox[{ SubscriptBox["S", "3"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", FractionBox[ RowBox[{"16", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"16", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "+", RowBox[{"16", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "3"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", RowBox[{"32", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "12"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", FractionBox["212", RowBox[{"9", " ", "m"}]], "-", FractionBox["748", RowBox[{"9", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}]}]], "+", FractionBox["44", RowBox[{"3", " ", SuperscriptBox["m", "2"]}]], "-", FractionBox["4", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]}]], "-", FractionBox["16", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]], "+", FractionBox["17", "3"]}], ")"}], " ", SubscriptBox["C", "F"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", RowBox[{"S", ",", "qg", " "}], RowBox[{"(", "1", ")", " "}]], TraditionalForm]]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AnomalousDimension", "[", "gsqg1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"8", " ", SubscriptBox["C", "F"], " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{ SubsuperscriptBox["S", "1", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"4", " ", RowBox[{ SubsuperscriptBox["S", "1", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "+", FractionBox[ RowBox[{"4", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "+", FractionBox["14", "m"], "-", FractionBox["19", RowBox[{"m", "+", "1"}]], "-", FractionBox["1", SuperscriptBox["m", "2"]], "-", FractionBox["8", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]], "-", FractionBox["2", SuperscriptBox["m", "3"]], "+", FractionBox["4", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]]}], ")"}]}], "+", RowBox[{"16", " ", SubscriptBox["C", "A"], " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SubsuperscriptBox["S", "1", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], "m"]}], "+", FractionBox[ RowBox[{"2", " ", RowBox[{ SubsuperscriptBox["S", "1", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], SuperscriptBox["m", "2"]], "+", FractionBox[ RowBox[{"4", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]], "-", FractionBox[ RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], "m"], "+", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "+", FractionBox[ RowBox[{"4", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "-", FractionBox["4", "m"], "+", FractionBox["3", RowBox[{"m", "+", "1"}]], "-", FractionBox["3", SuperscriptBox["m", "2"]], "+", FractionBox["8", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]], "+", FractionBox["2", SuperscriptBox["m", "3"]], "+", FractionBox["12", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", RowBox[{"S", ",", "gq", " "}], RowBox[{"(", "1", ")", " "}]], TraditionalForm]]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AnomalousDimension", "[", "gsgq1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", " ", RowBox[{ SubsuperscriptBox["S", "1", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubsuperscriptBox["S", "1", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "-", FractionBox[ RowBox[{"8", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "+", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "+", FractionBox[ RowBox[{"8", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], SuperscriptBox["m", "2"]], "-", FractionBox[ RowBox[{"4", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]], "+", FractionBox[ RowBox[{"4", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "+", FractionBox["15", "m"], "-", FractionBox["6", RowBox[{"m", "+", "1"}]], "-", FractionBox["12", SuperscriptBox["m", "2"]], "+", FractionBox["3", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]], "+", FractionBox["4", SuperscriptBox["m", "3"]], "-", FractionBox["2", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]]}], ")"}], " ", SubsuperscriptBox["C", "F", "2"]}], "+", RowBox[{"32", " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"3", " ", "m"}]]}], "+", FractionBox[ RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}]}]], "+", FractionBox["7", RowBox[{"9", " ", "m"}]], "-", FractionBox["2", RowBox[{"9", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}]}]], "-", FractionBox["2", RowBox[{"3", " ", SuperscriptBox["m", "2"]}]], "+", FractionBox["1", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]}]]}], ")"}], " ", SubscriptBox["C", "F"]}], "+", RowBox[{"8", " ", SubscriptBox["C", "A"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubsuperscriptBox["S", "1", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"]}], "+", FractionBox[ RowBox[{ SubsuperscriptBox["S", "1", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], RowBox[{"m", "+", "1"}]], "+", FractionBox[ RowBox[{"16", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"3", " ", "m"}]], "-", FractionBox[ RowBox[{"5", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}]}]], "+", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], RowBox[{"m", "+", "1"}]], "+", FractionBox[ RowBox[{"4", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "-", FractionBox["56", RowBox[{"9", " ", "m"}]], "-", FractionBox["20", RowBox[{"9", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}]}]], "+", FractionBox["28", RowBox[{"3", " ", SuperscriptBox["m", "2"]}]], "-", FractionBox["38", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]}]], "-", FractionBox["4", SuperscriptBox["m", "3"]], "-", FractionBox["6", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]]}], ")"}], " ", SubscriptBox["C", "F"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", RowBox[{"S", ",", "gg", " "}], RowBox[{"(", "1", ")", " "}]], TraditionalForm]]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AnomalousDimension", "[", "gsgg1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"8", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], SuperscriptBox["m", "2"]], "-", FractionBox[ RowBox[{"16", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]], "+", RowBox[{ FractionBox["134", "9"], " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", FractionBox[ RowBox[{"8", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"16", " ", RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "+", RowBox[{"4", " ", RowBox[{ SubscriptBox["S", "3"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", RowBox[{"8", " ", RowBox[{ SubscriptBox["S", "12"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", RowBox[{"8", " ", RowBox[{ SubscriptBox["S", "21"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", FractionBox[ RowBox[{"8", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"16", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], RowBox[{"m", "+", "1"}]], "+", RowBox[{"4", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "3"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", RowBox[{"8", " ", RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "12"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "-", FractionBox["107", RowBox[{"9", " ", "m"}]], "+", FractionBox["241", RowBox[{"9", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}]}]], "+", FractionBox["58", RowBox[{"3", " ", SuperscriptBox["m", "2"]}]], "-", FractionBox["86", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]}]], "-", FractionBox["8", SuperscriptBox["m", "3"]], "-", FractionBox["48", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]], "-", FractionBox["16", "3"]}], ")"}], " ", SubsuperscriptBox["C", "A", "2"]}], "+", RowBox[{"32", " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["5", "9"]}], " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", FractionBox["14", RowBox[{"9", " ", "m"}]], "-", FractionBox["19", RowBox[{"9", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}]}]], "-", FractionBox["1", RowBox[{"3", " ", SuperscriptBox["m", "2"]}]], "-", FractionBox["1", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]}]], "+", FractionBox["1", "3"]}], ")"}], " ", SubscriptBox["C", "A"]}], "+", RowBox[{"8", " ", SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["10", RowBox[{"m", "+", "1"}]]}], "+", FractionBox["2", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]], "+", FractionBox["4", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]], "+", "1", "+", FractionBox["10", "m"], "-", FractionBox["10", SuperscriptBox["m", "2"]], "+", FractionBox["4", SuperscriptBox["m", "3"]]}], ")"}], " ", SubscriptBox["T", "f"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", RowBox[{"S", ",", "gg", " "}], RowBox[{"(", "1", ")", " "}]], TraditionalForm]]], "polarized (different representation)" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AnomalousDimension", "[", "GSGG1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"48", " ", "m", " ", RowBox[{"(", RowBox[{"m", "+", "3"}], ")"}]}], "+", "469"}], ")"}]}], "+", "698"}], ")"}]}], "+", "7"}], ")"}]}], "+", "258"}], ")"}]}], "+", "144"}], RowBox[{"9", " ", SuperscriptBox["m", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]}]]}], "+", FractionBox[ RowBox[{"8", " ", RowBox[{ SubsuperscriptBox["S", "2", "'"], "\[NoBreak]", "(", "\[NoBreak]", FormBox[ FractionBox["m", "2"], "TraditionalForm"], "\[NoBreak]", ")"}]}], RowBox[{"m", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}]}]], "-", RowBox[{ SubsuperscriptBox["S", "3", "'"], "\[NoBreak]", "(", "\[NoBreak]", FormBox[ FractionBox["m", "2"], "TraditionalForm"], "\[NoBreak]", ")"}], "+", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"67", " ", "m", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]}], "+", "144"}], ")"}]}], "+", "72"}], ")"}], " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox["m", "TraditionalForm"], ")"}]}], RowBox[{"9", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]}]], "-", RowBox[{"4", " ", RowBox[{ SubsuperscriptBox["S", "2", "'"], "\[NoBreak]", "(", "\[NoBreak]", FormBox[ FractionBox["m", "2"], "TraditionalForm"], "\[NoBreak]", ")"}], " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox["m", "TraditionalForm"], ")"}]}], "+", RowBox[{"8", " ", RowBox[{ OverscriptBox["S", "~"], "(", FormBox["m", "TraditionalForm"], ")"}]}]}], ")"}], " ", SubsuperscriptBox["C", "A", "2"]}], "+", RowBox[{"32", " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "m", " ", RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}]}], "+", "13"}], ")"}]}], "-", "3"}], RowBox[{"9", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"5", " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox["m", "TraditionalForm"], ")"}]}], "9"]}], ")"}], " ", SubscriptBox["C", "A"]}], "+", FractionBox[ RowBox[{"8", " ", SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"m", "+", "3"}], ")"}]}], "+", "5"}], ")"}]}], "+", "1"}], ")"}]}], "-", "8"}], ")"}]}], "+", "2"}], ")"}]}], "+", "4"}], ")"}], " ", SubscriptBox["T", "f"]}], RowBox[{ SuperscriptBox["m", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "Check that all odd moments give the same for the two representations of ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Gamma]", RowBox[{"S", ",", "gg", " "}], RowBox[{"(", "1", ")", " "}]], "."}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell["Table[(%-%%)/.OPEm->ij, {ij,1,17,2}]", "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Anti5", "Section", CellTags->"Anti5"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "Anti5[exp] anticommutes all ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "5"], TraditionalForm]]], "in exp to the right. Anti5[exp, n] anticommutes all ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", RowBox[{"5", " "}]], TraditionalForm]]], "n times to the right.\nAnti5[exp, -n] anticommutes all ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "5"], TraditionalForm]]], " n times to the left." }], "Text"], Cell[TextData[{ "The naive ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "5"], TraditionalForm]]], "scheme is used." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracOrder", ButtonData:>"DiracOrder", ButtonStyle->"Hyperlink", ButtonNote->"DiracOrder"], ", ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracMatrix", "[", RowBox[{"5", ",", "\[Mu]"}], "]"}], " "}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "5"], SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Anti5", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Anti5", "[", RowBox[{"%", ",", RowBox[{"-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracMatrix", "[", RowBox[{ "5", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Delta]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "5"], SuperscriptBox["\[Gamma]", "\[Alpha]"], SuperscriptBox["\[Gamma]", "\[Beta]"], SuperscriptBox["\[Gamma]", "\[Gamma]"], SuperscriptBox["\[Gamma]", "\[Delta]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Anti5", "[", RowBox[{"%", ",", "2"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Gamma]", "\[Gamma]"], " ", SuperscriptBox["\[Gamma]", "\[Delta]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Anti5", "[", RowBox[{"%%", ",", "Infinity"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Gamma]"], " ", SuperscriptBox["\[Gamma]", "\[Delta]"], " ", SuperscriptBox["\[Gamma]", "5"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Anti5", "[", RowBox[{"%", ",", RowBox[{"-", "Infinity"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Gamma]"], " ", SuperscriptBox["\[Gamma]", "\[Delta]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "In the naive ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "^", "5"}], "-"}], TraditionalForm]]], "scheme D-dimensional \[Gamma]-matrices anticommute with ", Cell[BoxData[ FormBox[ RowBox[{"\[Gamma]", "^", "5"}], TraditionalForm]]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GAD", "[", RowBox[{"5", ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Anti5", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Setting the global variable $FCT to False restores the default \ typesetting rules for the noncommutative multiplication operator Dot[].\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"$FCT", " ", "=", " ", "False"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GAD", "[", RowBox[{"5", ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "5"], ".", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Anti5", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], ".", SuperscriptBox["\[Gamma]", "5"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"$FCT", " ", "=", " ", "True"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["AntiCommutator", "Section", CellTags->"AntiCommutator"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ AntiCommutator[x, y] = c defines the anti-commutator of the non \ commuting objects x and y.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Commutator", ButtonData:>"Commutator", ButtonStyle->"Hyperlink", ButtonNote->"Commutator"], ", ", ButtonBox["CommutatorExplicit", ButtonData:>"CommutatorExplicit", ButtonStyle->"Hyperlink", ButtonNote->"CommutatorExplicit"], ", ", ButtonBox["DeclareNonCommutative", ButtonData:>"DeclareNonCommutative", ButtonStyle->"Hyperlink", ButtonNote->"DeclareNonCommutative"], ", ", ButtonBox["DotSimplify", ButtonData:>"DotSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DotSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[TextData[{ "This declares ", StyleBox["a", FontFamily->"Courier"], " and ", StyleBox["b", FontFamily->"Courier"], " as noncommutative variables." }], "Text"], Cell[BoxData[ RowBox[{"DeclareNonCommutative", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AntiCommutator", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", "a", ",", "\[MediumSpace]", "b", "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CommutatorExplicit", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "b"}], "+", RowBox[{"b", " ", "a"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CommutatorExplicit", "[", RowBox[{"AntiCommutator", "[", RowBox[{ RowBox[{"a", "+", "b"}], ",", RowBox[{ RowBox[{"a", "-", RowBox[{"2", "b"}]}], " "}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", RowBox[{"2", " ", "b"}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", RowBox[{"AntiCommutator", "[", RowBox[{ RowBox[{"a", "+", "b"}], ",", RowBox[{ RowBox[{"a", "-", RowBox[{"2", "b"}]}], " "}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["a", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "-", RowBox[{"a", " ", "b"}], "-", RowBox[{"b", " ", "a"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"DeclareNonCommutative", "[", RowBox[{"c", ",", "d", ",", OverscriptBox["c", "~"], ",", OverscriptBox["d", "~"]}], "]"}]], "Input"], Cell["Defining {c,d} = z results in replacements of c.d by z-d.c.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntiCommutator", "[", RowBox[{"c", ",", "d"}], "]"}], " ", "=", " ", "z"}]], "Input"], Cell[BoxData[ FormBox["z", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", " ", RowBox[{"d", " ", ".", " ", "c", " ", ".", " ", "d"}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"d", " ", "z"}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", "c"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntiCommutator", "[", RowBox[{ OverscriptBox["d", "~"], ",", OverscriptBox["c", "~"]}], "]"}], " ", "=", " ", OverscriptBox["z", "~"]}]], "Input"], Cell[BoxData[ FormBox[ OverscriptBox["z", "~"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", " ", RowBox[{ OverscriptBox["d", "~"], " ", ".", " ", OverscriptBox["c", "~"], " ", ".", " ", OverscriptBox["d", "~"]}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ OverscriptBox["d", "~"], " ", OverscriptBox["z", "~"]}], "-", RowBox[{ OverscriptBox["c", "~"], " ", SuperscriptBox[ OverscriptBox["d", "~"], "2"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"UnDeclareNonCommutative", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", OverscriptBox["c", "~"], ",", OverscriptBox["d", "~"]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"AntiCommutator", "[", RowBox[{"c", ",", "d"}], "]"}], "=", "."}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"AntiCommutator", "[", RowBox[{ OverscriptBox["d", "~"], ",", OverscriptBox["c", "~"]}], "]"}], "=", "."}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["AntiQuarkField", "Section", CellTags->"AntiQuarkField"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ AntiQuarkField is the name of a fermionic field. AntiQuarkField is \ just a name with no functional properties. Only typeset rules are attached.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["QuantumField", ButtonData:>"QuantumField", ButtonStyle->"Hyperlink", ButtonNote->"QuantumField"], ", ", ButtonBox["QuarkField", ButtonData:>"QuarkField", ButtonStyle->"Hyperlink", ButtonNote->"QuarkField"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData["AntiQuarkField"], "Input"], Cell[BoxData[ FormBox[ OverscriptBox["\[Psi]", "_"], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Apart1", "Section", CellTags->"Apart1"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Apart1[expr, x] is equivalent to Apart[expr, x], but it is faster \ than Apart if explicit complex numbers (I's) are in exp.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Apart2", ButtonData:>"Apart2", ButtonStyle->"Hyperlink", ButtonNote->"Apart2"], ", ", ButtonBox["Apart3", ButtonData:>"Apart3", ButtonStyle->"Hyperlink", ButtonNote->"Apart3"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["\<\ t = 1/4*(1 - x)^4*x*(21 + 13*x + 3*x^2) - 1/24*11*I*Pi*(1 - x)^4*x*(21 + 13*x + 3*x^2) + ((1 - x)^4*x^2*(21 + 13*x + 3*x^2))/(36*(-1 + x)^4) - (I*Pi*(1 - x)^4*x^2*(21 + 13*x + 3*x^2))/ (12*(-1 + x)^4) - (7*(1 - x)^4*x^3*(21 + 13*x + 3*x^2))/ (48*(-1 + x)^4) + \ (3*I*Pi*(1 - x)^4*x^3* (21 + 13*x + 3*x^2))/(8*(-1 + x)^4) + (11*(1 - x)^4*x^4*(21 + 13*x + 3*x^2))/(24*(-1 + x)^4) - (3*I*Pi*(1 - x)^4*x^4*(21 + 13*x + 3*x^2))/ (4*(-1 + x)^4) - (49*(1 - x)^4*x^5*(21 + 13*x + 3*x^2))/ (144*(-1 + x)^4) + (11*I*Pi*(1 - x)^4*x^5* (21 + 13*x + 3*x^2))/(24*(-1 + x)^4) + 1/4*(1 - x)^4*x*(21 + 13*x + 3*x^2)*Zeta2 + 11/24*(1 - x)^4*x*(21 + 13*x + 3*x^2)*Log[x] + 1/4*I*Pi*(1 - x)^4*x*(21 + 13*x + 3*x^2)*Log[x] + ((1 - x)^4*x^2*(21 + 13*x + 3*x^2)*Log[x])/ (12*(-1 + x)^4) - (3*(1 - x)^4*x^3*(21 + 13*x + 3*x^2)* Log[x])/(8*(-1 + x)^4) + (3*(1 - x)^4*x^4*(21 + 13*x + 3*x^2)*Log[x])/ (4*(-1 + x)^4); \ \>", "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{ RowBox[{"a1", "=", RowBox[{"Apart1", "[", RowBox[{"t", ",", "x"}], "]"}]}], ";"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"0.719999999999998863`", " ", "Second"}], ",", "Null"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{ RowBox[{"a2", "=", RowBox[{"Apart", "[", RowBox[{"t", ",", "x"}], "]"}]}], ";"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"3.53000000000000113`", " ", "Second"}], ",", "Null"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"a1", "-", "a2"}], "//", "Expand"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t", ",", "a1", ",", "a2"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Apart2", "Section", CellTags->"Apart2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Apart2[expr] partial fractions FeynAmpDenominators (and \ FAD's).\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FAD", ButtonData:>"FAD", ButtonStyle->"Hyperlink", ButtonNote->"FAD"], ", ", ButtonBox["FeynAmpDenominator", ButtonData:>"FeynAmpDenominator", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmpDenominator"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FAD", "[", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "M"}], "}"}], ",", RowBox[{"q", "-", "p"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ Times[ -1, p], q], 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", SuperscriptBox["m", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ q, 2], "-", Power[ m, 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", SuperscriptBox["M", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ q, 2], "-", Power[ M, 2], "]"], Editable->False], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Apart2", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["m", "2"], "-", SuperscriptBox["M", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}], ")"}]}]], "-", FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["m", "2"], "-", SuperscriptBox["M", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["M", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FCE", "[", "%", "]"}], "]"}]], "Input"], Cell["\<\ FAD[{q, m}, -p + q]/(m^2 - M^2) - FAD[{q, M}, -p + q]/(m^2 - M^2)\ \>", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Apart3", "Section", CellTags->"Apart3"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Apart3[expr, x] is equivalent to Map2[Factor2, \ Collect2[Apart1[expr,x],x]].\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Apart1", ButtonData:>"Apart1", ButtonStyle->"Hyperlink", ButtonNote->"Apart1"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{ RowBox[{ RowBox[{"1", "/", "4"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", "x", " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"11", "/", "24"}], " ", "I", " ", "\[Pi]", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", "x", " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "2"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"36", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"I", " ", "\[Pi]", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "2"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"7", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "3"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"48", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", " ", "I", " ", "\[Pi]", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "3"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"11", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "4"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"24", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"3", " ", "I", " ", "\[Pi]", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "4"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"49", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "5"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"144", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"11", " ", "I", " ", "\[Pi]", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "5"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"24", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}], "+", RowBox[{ RowBox[{"1", "/", "4"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", "x", " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}], " ", "Zeta2"}], "+", RowBox[{ RowBox[{"11", "/", "24"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", "x", " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}], " ", RowBox[{"Log", "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "4"}], " ", "I", " ", "\[Pi]", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", "x", " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}], " ", RowBox[{"Log", "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "2"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}], " ", RowBox[{"Log", "[", "x", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"3", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "3"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}], " ", RowBox[{"Log", "[", "x", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "4"}], " ", RowBox[{"x", "^", "4"}], " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"13", " ", "x"}], "+", RowBox[{"3", " ", RowBox[{"x", "^", "2"}]}]}], ")"}], " ", RowBox[{"Log", "[", "x", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", "4"}]}], ")"}]}]}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{ RowBox[{"a1", "=", RowBox[{"Apart3", "[", RowBox[{"t", ",", "x"}], "]"}]}], ";"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"1.05000000000000071`", " ", "Second"}], ",", "Null"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{ RowBox[{"a2", "=", RowBox[{"Apart", "[", RowBox[{"t", ",", "x"}], "]"}]}], ";"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"3.51999999999999957`", " ", "Second"}], ",", "Null"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"a1", "-", "a2"}], "//", "Expand"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t", ",", "a1", ",", "a2"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["B00", "Section", CellTags->"B00"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"B00", "[", RowBox[{"pp", ",", SubsuperscriptBox["m", "1", "2"], ",", SubsuperscriptBox["m", "2", "2"]}], "]"}], TraditionalForm]]], " is the Passarino - Veltman ", Cell[BoxData[ FormBox[ SubscriptBox["B", "00"], TraditionalForm]]], "-function, i.e., the coefficient function of ", Cell[BoxData[ FormBox[ RowBox[{"g", "^", RowBox[{"(", RowBox[{"\[Mu]", "\[Nu]"}], ")"}]}], TraditionalForm]]], ". All arguments are scalars and have dimension mass", Cell[BoxData[ FormBox[ SuperscriptBox["\[Null]", "2"], TraditionalForm]]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "B00", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"BReduce", "\[Rule]", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["B0", ButtonData:>"B0", ButtonStyle->"Hyperlink", ButtonNote->"B0"], ", ", ButtonBox["B1", ButtonData:>"B1", ButtonStyle->"Hyperlink", ButtonNote->"B1"], ", ", ButtonBox["PaVe", ButtonData:>"PaVe", ButtonStyle->"Hyperlink", ButtonNote->"PaVe"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[TextData[{ "Remember that SP[p] is a short hand input for ScalarProduct[p,p], i.e. ", Cell[BoxData[ FormBox[ RowBox[{"p", "^", "2."}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SP", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B00", "[", RowBox[{ RowBox[{"SP", "[", "p", "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"M", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "3"], " ", RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", RowBox[{ FractionBox["1", "18"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["m", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["M", "2"]}], "-", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}], ")"}]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["M", "2"], ",", SuperscriptBox["M", "2"], ")"}], " ", SuperscriptBox["M", "2"]}], "+", SuperscriptBox["M", "2"], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["M", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}], "-", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}]}], ")"}]}], RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}]], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["m", "2"], "-", SuperscriptBox["M", "2"], "+", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}], ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B00", "[", RowBox[{ RowBox[{"SP", "[", "p", "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "3"], " ", RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", RowBox[{ FractionBox["1", "18"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["m", "2"]}], "-", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}], ")"}]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", SuperscriptBox["m", "2"], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B00", "[", RowBox[{ RowBox[{"SP", "[", "p", "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"M", "^", "2"}], ",", RowBox[{"BReduce", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"B\"\>", "\<\"00\"\>"], "TraditionalForm"], "(", FormBox[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], "TraditionalForm"], RowBox[{",", " "}], FormBox[ SuperscriptBox["m", "2"], "TraditionalForm"], RowBox[{",", " "}], FormBox[ SuperscriptBox["M", "2"], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B00", "[", RowBox[{"0", ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "3"], " ", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", FractionBox[ SuperscriptBox["m", "2"], "3"], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", SuperscriptBox["m", "2"]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B00", "[", RowBox[{ RowBox[{"SmallVariable", "[", RowBox[{"M", "^", "2"}], "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "3"], " ", RowBox[{ SubscriptBox["B", "0"], "(", SuperscriptBox["M", "2"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", FractionBox[ SuperscriptBox["m", "2"], "3"], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", SuperscriptBox["m", "2"]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["B0", "Section", CellTags->"B0"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{"B0", RowBox[{"[", RowBox[{ RowBox[{"p", "^", "2"}], ",", SubsuperscriptBox["m", "1", "2"]}]}]}], "TraditionalForm"], ",", SubsuperscriptBox["m", "2", "2"]}], TraditionalForm]]], "] is the Passarino - Veltman two-point integral ", Cell[BoxData[ FormBox[ SubscriptBox["B", "0"], TraditionalForm]]], ". All arguments are scalars and have dimension mass^2.\nIf the option \ BReduce is set to True certain B0's are reduced to A0's.\nSetting the option \ B0Unique to True simplifies B0[a,0,a] and B0[0,0,a]." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "B0", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"BReduce", "\[Rule]", "False"}], ",", RowBox[{"B0Unique", "\[Rule]", "False"}], ",", RowBox[{"B0Real", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["B1", ButtonData:>"B1", ButtonStyle->"Hyperlink", ButtonNote->"B1"], ", ", ButtonBox["B00", ButtonData:>"B00", ButtonStyle->"Hyperlink", ButtonNote->"B00"], ", ", ButtonBox["B11", ButtonData:>"B11", ButtonStyle->"Hyperlink", ButtonNote->"B11"], ", ", ButtonBox["PaVe", ButtonData:>"PaVe", ButtonStyle->"Hyperlink", ButtonNote->"PaVe"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B0", "[", RowBox[{ RowBox[{"SP", "[", RowBox[{"p", ",", "p"}], "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"B0", ",", RowBox[{"B0Unique", "\[Rule]", "True"}], ",", RowBox[{"B0Real", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B0", "[", RowBox[{"0", ",", "0", ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B0", "[", RowBox[{ RowBox[{"m", "^", "2"}], ",", "0", ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], "+", "2"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B0", "[", RowBox[{"0", ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["B11", "Section", CellTags->"B11"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"B11", "[", RowBox[{"pp", ",", SubsuperscriptBox["m", "1", "2"], ",", SubsuperscriptBox["m", "2", "2"]}], "]"}], TraditionalForm]]], " is the Passarino - Veltman ", Cell[BoxData[ FormBox[ SubscriptBox["B", "11"], TraditionalForm]]], "-function, i.e., the coefficient function of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"p", "^", "\[Mu]"}], RowBox[{"p", "^", "\[Nu]"}]}], TraditionalForm]]], ". All arguments are scalars and have dimension mass", Cell[BoxData[ FormBox[ SuperscriptBox["\[Null]", "2"], TraditionalForm]]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "B11", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"BReduce", "\[Rule]", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["B0", ButtonData:>"B0", ButtonStyle->"Hyperlink", ButtonNote->"B0"], ", ", ButtonBox["B00", ButtonData:>"B00", ButtonStyle->"Hyperlink", ButtonNote->"B00"], ", ", ButtonBox["B1", ButtonData:>"B1", ButtonStyle->"Hyperlink", ButtonNote->"B1"], ", ", ButtonBox["PaVe", ButtonData:>"PaVe", ButtonStyle->"Hyperlink", ButtonNote->"PaVe"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[TextData[{ "Remember that SP[p] is a short hand input for ScalarProduct[p,p], i.e. ", Cell[BoxData[ FormBox[ RowBox[{"p", "^", "2."}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SP", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B11", "[", RowBox[{ RowBox[{"SP", "[", "p", "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"M", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", RowBox[{"3", " ", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}]}], " ", SuperscriptBox["m", "2"]}], "+", SuperscriptBox["M", "2"], "+", RowBox[{ SuperscriptBox["M", "2"], " ", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["M", "2"], ",", SuperscriptBox["M", "2"], ")"}]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["m", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["M", "2"]}], "+", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["M", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}], "-", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}]}], ")"}]}], RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}]], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["m", "2"], "-", SuperscriptBox["M", "2"], "+", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}], ")"}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B11", "[", RowBox[{ RowBox[{"SP", "[", "p", "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", SuperscriptBox["m", "2"], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], "-", RowBox[{"6", " ", SuperscriptBox["m", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], "-", SuperscriptBox["m", "2"]}], ")"}]}]}], RowBox[{"3", " ", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"B11", ",", RowBox[{"BReduce", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"BReduce", "\[Rule]", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B11", "[", RowBox[{ RowBox[{"SP", "[", "p", "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"M", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"B\"\>", "\<\"11\"\>"], "TraditionalForm"], "(", FormBox[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], "TraditionalForm"], RowBox[{",", " "}], FormBox[ SuperscriptBox["m", "2"], "TraditionalForm"], RowBox[{",", " "}], FormBox[ SuperscriptBox["M", "2"], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"B11", ",", RowBox[{"BReduce", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"BReduce", "\[Rule]", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B11", "[", RowBox[{"0", ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "3"], " ", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B11", "[", RowBox[{ RowBox[{"SmallVariable", "[", RowBox[{"M", "^", "2"}], "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "3"], " ", RowBox[{ SubscriptBox["B", "0"], "(", SuperscriptBox["M", "2"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["B1", "Section", CellTags->"B1"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"B1", RowBox[{"[", RowBox[{ RowBox[{"p", "^", "2"}], ",", SubsuperscriptBox["m", "1", "2"], ",", SubsuperscriptBox["m", "2", "2"]}]}]}], TraditionalForm]]], "] is the Passarino - Veltman ", Cell[BoxData[ FormBox[ SubscriptBox["B", "1"], TraditionalForm]]], "-function. All arguments are scalars and have dimension ", Cell[BoxData[ FormBox[ RowBox[{"mass", "^", "2."}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "B1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"BReduce", "\[Rule]", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["B0", ButtonData:>"B0", ButtonStyle->"Hyperlink", ButtonNote->"B0"], ", ", ButtonBox["B00", ButtonData:>"B00", ButtonStyle->"Hyperlink", ButtonNote->"B00"], ", ", ButtonBox["B11", ButtonData:>"B11", ButtonStyle->"Hyperlink", ButtonNote->"B11"], ", ", ButtonBox["PaVe", ButtonData:>"PaVe", ButtonStyle->"Hyperlink", ButtonNote->"PaVe"], ", ", ButtonBox["PaVeReduce", ButtonData:>"PaVeReduce", ButtonStyle->"Hyperlink", ButtonNote->"PaVeReduce"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B1", "[", RowBox[{ RowBox[{"SP", "[", "p", "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"M", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["M", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}], "-", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}]}], ")"}]}], RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}]], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B1", "[", RowBox[{ RowBox[{"SP", "[", "p", "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"M", "^", "2"}], ",", RowBox[{"BReduce", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["B", "1"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"B1", ",", RowBox[{"BReduce", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B1", "[", RowBox[{ RowBox[{"SP", "[", "p", "]"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ SubscriptBox["B", "0"], "(", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B1", "[", RowBox[{ RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}], ",", "0"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}]}], "-", "2"}], ")"}]}], "-", FractionBox["1", "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B1", "[", RowBox[{"0", ",", "0", ",", RowBox[{"m", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}]}], "-", "1"}], ")"}]}], "+", FractionBox["1", "4"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B1", "[", RowBox[{"pp", ",", RowBox[{"SmallVariable", "[", SubsuperscriptBox["m", "e", "2"], "]"}], ",", SubsuperscriptBox["m", "2", "2"]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "pp", ",", SubsuperscriptBox["m", "e", "2"], ",", SubsuperscriptBox["m", "2", "2"], ")"}], "-", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SubsuperscriptBox["m", "e", "2"], ",", SubsuperscriptBox["m", "2", "2"], ")"}]}], ")"}], " ", SubsuperscriptBox["m", "2", "2"]}], RowBox[{"2", " ", "pp"}]], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox["B", "0"], "(", "pp", ",", SubsuperscriptBox["m", "e", "2"], ",", SubsuperscriptBox["m", "2", "2"], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B1", "[", RowBox[{ RowBox[{"SmallVariable", "[", SubsuperscriptBox["m", "e", "2"], "]"}], ",", RowBox[{"SmallVariable", "[", SubsuperscriptBox["m", "e", "2"], "]"}], ",", "0"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SubsuperscriptBox["m", "e", "2"], ",", SubsuperscriptBox["m", "e", "2"], ")"}]}], "-", "2"}], ")"}]}], "-", FractionBox["1", "2"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["BackgroundGluonVertex", "Section", CellTags->"BackgroundGluonVertex"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "BackgroundGluonVertex[{p,\[Mu],a}, {q,\[Nu],b}, {k,\[Lambda],c}] or \n\ BackgroundGluonVertex[ p,\[Mu],a , q,\[Nu],b , k,\[Lambda],c ] yields the \ 3-gluon vertex in the background field gauge, where the first set of \ arguments corresponds to the external background field. \n\ BackgroundGluonVertex[{p,\[Mu],a}, {q,\[Nu],b}, {k,\[Lambda],c}, \ {s,\[Sigma],d}] or\nBackgroundGluonVertex[{\[Mu],a}, {\[Nu],b}, \ {\[Lambda],c}, {\[Sigma],d}] or \nBackgroundGluonVertex[p,\[Mu],a , q,\ \[Nu],b , k,\[Lambda],c , s,\[Sigma],d] or \nBackgroundGluonVertex[ \ \[Mu],a , \[Nu],b , \[Lambda],c , \[Sigma],d ] yields the 4-gluon vertex, \ with {p,\[Mu],a} and {k,\[Lambda],c} denoting the external background \ fields. \nThe gauge, dimension and the name of the coupling constant are \ determined by the options Gauge, Dimension and CouplingConstant.\nThe \ Feynman rules are taken from L.Abbot ", StyleBox["NPB ", FontWeight->"Bold"], "185 (1981), 189-203; except that all momenta are incoming. Note that \ Abbots coupling constant convention is consistent with the default setting of \ GluonVertex." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "BackgroundGluonVertex", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Gauge", "\[Rule]", "1"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["GluonVertex", ButtonData:>"GluonVertex", ButtonStyle->"Hyperlink", ButtonNote->"GluonVertex"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BackgroundGluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Lambda]", ",", "c"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ RowBox[{"-", "k"}], "+", "p", "-", "q"}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"]], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"q", "-", "k"}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], ")"}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"k", "-", "p", "+", "q"}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Nu]", "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[ RowBox[{"BackgroundGluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Lambda]", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]", ",", "d"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u6", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u6", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u6", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u6", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u6", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u6", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BackgroundGluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Lambda]", ",", "c"}], "}"}], ",", RowBox[{"Gauge", "\[Rule]", "\[Alpha]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "-", FractionBox["k", "\[Alpha]"]}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"]], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"q", "-", "k"}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], ")"}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ RowBox[{"(", RowBox[{"k", "-", "p"}], ")"}], "+", FractionBox["q", "\[Alpha]"]}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Nu]", "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[ RowBox[{"BackgroundGluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Lambda]", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]", ",", "d"}], "}"}], ",", RowBox[{"Gauge", "\[Rule]", "\[Alpha]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", FractionBox[ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "\[Alpha]"], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u7", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u7", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u7", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u7", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], "\[Alpha]"], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Lambda]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u7", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u7", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["C0", "Section", CellTags->"C0"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "C0[p10, p12, p20, m1^2, m2^2, m3^2] is the scalar Passarino - Veltman ", Cell[BoxData[ FormBox[ SubscriptBox["C", "0"], TraditionalForm]]], "function. The convention for the arguments is that if the denominator of \ the integrand has the form ([q^2-m1^2] [(q+p1)^2-m2^2] [(q+p2)^2-m3^2]), the \ first three arguments of C0 are the scalar products p10 = p1^2, p12 = \ (p1-p2).(p1-p2), p20 = p2^2." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["B0", ButtonData:>"B0", ButtonStyle->"Hyperlink", ButtonNote->"B0"], ", ", ButtonBox["D0", ButtonData:>"D0", ButtonStyle->"Hyperlink", ButtonNote->"D0"], ", ", ButtonBox["PaVe", ButtonData:>"PaVe", ButtonStyle->"Hyperlink", ButtonNote->"PaVe"], ", ", ButtonBox["PaVeOrder", ButtonData:>"PaVeOrder", ButtonStyle->"Hyperlink", ButtonNote->"PaVeOrder"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "[", RowBox[{ "a", ",", "b", ",", "c", ",", " ", "m12", ",", "m22", ",", "m32"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"C\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "a", ",", "b", ",", "c", ",", "m12", ",", "m22", ",", "m32", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"C0", "[", RowBox[{ "b", ",", "a", ",", "c", ",", "m32", ",", "m22", ",", "m12"}], "]"}], "//", "PaVeOrder"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"C\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "a", ",", "b", ",", "c", ",", "m12", ",", "m22", ",", "m32", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PaVeOrder", "[", RowBox[{ RowBox[{"C0", "[", RowBox[{ "b", ",", "a", ",", "c", ",", "m32", ",", "m22", ",", "m12"}], "]"}], ",", RowBox[{"PaVeOrderList", "->", RowBox[{"{", RowBox[{"c", ",", "a"}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"C\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "b", ",", "c", ",", "a", ",", "m22", ",", "m32", ",", "m12", ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Calc", "Section", CellTags->"Calc"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Calc[exp] performs several basic simplifications. Calc[exp] is the same as DotSimplify[DiracSimplify[Contract[DiracSimplify[Explicit[ SUNSimplify[Trick[exp], Explicit->False] ]]]]]\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], ", ", ButtonBox["Trick", ButtonData:>"Trick", ButtonStyle->"Hyperlink", ButtonNote->"Trick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Examples"], "Subsection"], Cell[TextData[{ "This calculates ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "^", "\[Mu]"}], SubscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]]], " in 4 dimensions and ", Cell[BoxData[ FormBox[ SubsuperscriptBox["g", "\[Nu]", "\[Nu]"], TraditionalForm]]], " in D dimensions." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", RowBox[{"{", RowBox[{ RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Mu]"}], "]"}], ",", " ", RowBox[{"MTD", "[", RowBox[{"\[Nu]", ",", "\[Nu]"}], "]"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"4", ",", "D"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "This simplifies ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["f", "abc"], " ", RowBox[{ SubscriptBox["f", "abe"], "."}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "e"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "A"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FV", "[", RowBox[{ RowBox[{"p", "+", "r"}], ",", "\[Mu]"}], "]"}], " ", RowBox[{"MT", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], " ", RowBox[{"FV", "[", RowBox[{ RowBox[{"q", "-", "p"}], ",", "\[Nu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"q", "-", "p"}], "TraditionalForm"], ")"}], "\[Nu]"], ")"}], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"p", "+", "r"}], "TraditionalForm"], ")"}], "\[Mu]"], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "-", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonVertex", "[", RowBox[{"p", ",", "1", ",", "q", ",", "2", ",", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ",", "3"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox["p", "TraditionalForm"], RowBox[{",", " "}], FormBox["q", "TraditionalForm"], RowBox[{",", " "}], FormBox[ RowBox[{ RowBox[{"-", "p"}], "-", "q"}], "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[ RowBox[{"Calc", "[", RowBox[{ RowBox[{"%", " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "li1"}], "]"}]}], " ", RowBox[{"FVD", "[", RowBox[{"q", ",", "li2"}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{ RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ",", "li3"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["CA", "Section", CellTags->"CA"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["CA is one of the Casimir operators of SU(N) (CA = N).", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["CF", ButtonData:>"CF", ButtonStyle->"Hyperlink", ButtonNote->"CF"], ", ", ButtonBox["SUNSimplify", ButtonData:>"SUNSimplify", ButtonStyle->"Hyperlink", ButtonNote->"SUNSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData["CA"], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["C", "A"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"CA", ",", RowBox[{"SUNNToCACF", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["N", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["SUNN"], "Input"], Cell[BoxData[ FormBox["N", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Cases2", "Section", CellTags->"Cases2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Cases2[expr, f] returns a list of all objects in expr with head f. Cases2[expr,f] is equivalent to Cases2[{expr},f[___],Infinity]//Union. Cases2[expr, f, g, ...] or Cases2[expr, {f,g, ...}] is equivalent to Cases[{expr},f[___] | g[___] ...] .\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Examples"], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases2", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "+", RowBox[{ RowBox[{"f", "[", "b", "]"}], "^", "2"}], "+", RowBox[{"f", "[", RowBox[{"c", ",", "d"}], "]"}]}], ",", "f"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"f", "(", "a", ")"}], ",", RowBox[{"f", "(", "b", ")"}], ",", RowBox[{"f", "(", RowBox[{"c", ",", "d"}], ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases2", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"y", "-", "z"}], "]"}]}], "+", RowBox[{"g", "[", "y", "]"}]}], ",", "Sin", ",", "g"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"g", "(", "y", ")"}], ",", RowBox[{"sin", "(", "x", ")"}], ",", RowBox[{"sin", "(", RowBox[{"y", "-", "z"}], ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases2", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"y", "-", "z"}], "]"}]}], "+", RowBox[{"g", "[", "x", "]"}], "+", RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], ",", RowBox[{"{", RowBox[{"Sin", ",", "g"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"g", "(", "x", ")"}], ",", RowBox[{"g", "(", RowBox[{"a", ",", "b", ",", "c"}], ")"}], ",", RowBox[{"sin", "(", "x", ")"}], ",", RowBox[{"sin", "(", RowBox[{"y", "-", "z"}], ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases2", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DiracSlash", "[", "p", "]"}], ".", RowBox[{"DiracSlash", "[", "q", "]"}]}], "+", RowBox[{"ScalarProduct", "[", RowBox[{"p", ",", "p"}], "]"}]}], ",", "Dot"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["CF", "Section", CellTags->"CF"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ CF is one of the Casimir operators of SU(N) (CF = (N^2-1)/(2 N)).\ \ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["CA", ButtonData:>"CA", ButtonStyle->"Hyperlink", ButtonNote->"CA"], ", ", ButtonBox["SUNSimplify", ButtonData:>"SUNSimplify", ButtonStyle->"Hyperlink", ButtonNote->"SUNSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData["CF"], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["C", "F"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"CF", ",", " ", RowBox[{"SUNNToCACF", " ", "->", " ", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["N", "2"], "-", "1"}], RowBox[{"2", " ", "N"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["SUNN"], "Input"], Cell[BoxData[ FormBox["N", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"CF", ",", " ", RowBox[{"SUNNToCACF", " ", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["C", "F"], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ChangeDimension", "Section", CellTags->"ChangeDimension"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ ChangeDimension[exp, dim] changes all LorentzIndex and Momenta in \ exp to dimension dim (and also Levi-Civita-tensors, Dirac slashes and Dirac matrices).\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["LorentzIndex", ButtonData:>"LorentzIndex", ButtonStyle->"Hyperlink", ButtonNote->"LorentzIndex"], ", ", ButtonBox["Momentum", ButtonData:>"Momentum", ButtonStyle->"Hyperlink", ButtonNote->"Momentum"], ", ", ButtonBox["DiracGamma", ButtonData:>"DiracGamma", ButtonStyle->"Hyperlink", ButtonNote->"DiracGamma"], ", ", ButtonBox["Eps", ButtonData:>"Eps", ButtonStyle->"Hyperlink", ButtonNote->"Eps"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[TextData[ "Remember that LorentzIndex[\[Mu], 4] is simplified to LorentzIndex[\[Mu]] \ and Momentum[p, 4] to Momentum[p]. Thus the fullowing objects are defined in \ four dimensions."], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}], ",", " ", RowBox[{"Momentum", "[", "p", "]"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ FormBox["\[Mu]", "TraditionalForm"], ",", "p"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChangeDimension", "[", RowBox[{"%", ",", " ", "D"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ FormBox["\[Mu]", "TraditionalForm"], ",", "p"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData["{LorentzIndex[\[Mu], D], Momentum[p, D]}"], "Output"] }, Open ]], Cell["\<\ This changes all non-4-dimensional objects to 4-dimensional ones.\ \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChangeDimension", "[", RowBox[{"%%", ",", " ", "4"}], "]"}], " ", "//", " ", "InputForm"}]], "Input"], Cell[TextData["{LorentzIndex[\[Mu]], Momentum[p]}"], "Output"] }, Open ]], Cell["Consider the following list of 4- and D-dimensional object.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], " ", RowBox[{"MT", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"GAD", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], " ", RowBox[{"f", "[", "D", "]"}]}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], " ", RowBox[{"f", "(", "D", ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrick", "[", RowBox[{"Contract", "[", "%", "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"4", ",", RowBox[{"D", " ", RowBox[{"f", "(", "D", ")"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrick", "[", RowBox[{"Contract", "[", RowBox[{"ChangeDimension", "[", RowBox[{"%%", ",", "n"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"n", ",", RowBox[{"n", " ", RowBox[{"f", "(", "D", ")"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Any explicit occurence of D (like in f(D)) is not replaced by ChangeDimension.\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"LeviCivita", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], ";"}]], "Input"], Cell["\<\ The option Dimension of Eps must be changed too, since with the \ default setting Dimension->4 the arguments of Eps are automatically changed to 4 dimensions.\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Eps", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", " ", "=", " ", RowBox[{"LeviCivita", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", " ", "=", " ", RowBox[{"ChangeDimension", "[", RowBox[{"a1", ",", "4"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Contract", "[", RowBox[{"a1", "^", "2"}], "]"}], " ", "//", " ", "Factor2"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "-", "D"}], ")"}], " ", "D"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Contract[a2^2]", "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "24"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Eps", ",", RowBox[{"Dimension", "\[Rule]", "4"}]}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"a1", ",", "a2"}], "]"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ChargeConjugationMatrixInv", "Section", CellTags->"ChargeConjugationMatrixInv"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ ChargeConjugationMatrixInv is the inverse of \ ChargeConjugationMatrix. It is substituted immediately by -ChargeConjugationMatrix.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["ChargeConjugationMatrix", ButtonData:>"ChargeConjugationMatrix", ButtonStyle->"Hyperlink", ButtonNote->"ChargeConjugationMatrix"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChargeConjugationMatrix", ".", RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "ChargeConjugationMatrixInv"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"C", " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", RowBox[{"(", RowBox[{"-", "C"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", SubsuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "T"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChargeConjugationMatrix", ".", RowBox[{"DiracGamma", "[", "5", "]"}], ".", "ChargeConjugationMatrixInv"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"C", " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{"(", RowBox[{"-", "C"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"DiracGammaT", "(", "5", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChargeConjugationMatrix", ".", "ChargeConjugationMatrixInv"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"C", " ", RowBox[{"(", RowBox[{"-", "C"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "Calc"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChargeConjugationMatrixInv", "^", "2"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "1"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ChargeConjugationMatrix", "Section", CellTags->"ChargeConjugationMatrix"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "ChargeConjugationMatrix denotes the charge conjugation matrix ", StyleBox["C", FontSlant->"Italic"], "." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["ChargeConjugationMatrixInv", ButtonData:>"ChargeConjugationMatrixInv", ButtonStyle->"Hyperlink", ButtonNote->"ChargeConjugationMatrixInv"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChargeConjugationMatrix", ".", RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "ChargeConjugationMatrixInv"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"C", " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", RowBox[{"(", RowBox[{"-", "C"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", SubsuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "T"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChargeConjugationMatrix", ".", RowBox[{"DiracGamma", "[", "5", "]"}], ".", "ChargeConjugationMatrixInv"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"C", " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{"(", RowBox[{"-", "C"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"DiracGammaT", "(", "5", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChargeConjugationMatrix", "^", "2"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "1"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ChiralityProjector", "Section", CellTags->"ChiralityProjector"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "ChiralityProjector[+1] denotes ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"1", "/", "2"}], RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Gamma]", "5"]}], ")"}]}], TraditionalForm]]], ".\nChiralityProjector[-1] denotes ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"1", "/", "2"}], RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Gamma]", "5"]}], ")"}]}], TraditionalForm]]], "." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracGamma", ButtonData:>"DiracGamma", ButtonStyle->"Hyperlink", ButtonNote->"DiracGamma"], ", ", ButtonBox["DiracMatrix", ButtonData:>"DiracMatrix", ButtonStyle->"Hyperlink", ButtonNote->"DiracMatrix"], ", ", ButtonBox["FCI", ButtonData:>"FCI", ButtonStyle->"Hyperlink", ButtonNote->"FCI"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"ChiralityProjector", "[", RowBox[{"+", "1"}], "]"}], ",", RowBox[{"ChiralityProjector", "[", RowBox[{"-", "1"}], "]"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "6"], ",", SuperscriptBox["\[Gamma]", "7"]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FCI", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "6"], ",", SuperscriptBox["\[Gamma]", "7"]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", RowBox[{"%", ",", RowBox[{"DiracSubstitute67", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[Gamma]", "5"], "2"], "+", FractionBox["1", "2"]}], ",", RowBox[{ FractionBox["1", "2"], "-", FractionBox[ SuperscriptBox["\[Gamma]", "5"], "2"]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Chisholm", "Section", CellTags->"Chisholm"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Chisholm[x] substitutes products of three Dirac matrices or slashes \ by the Chisholm identity.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["EpsChisholm", ButtonData:>"EpsChisholm", ButtonStyle->"Hyperlink", ButtonNote->"EpsChisholm"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Chisholm", "[", RowBox[{"GA", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$505"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$505", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Mu]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Beta]", "\[Mu]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"DiracMatrix", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], SuperscriptBox["\[Gamma]", "\[Nu]"], SuperscriptBox["\[Gamma]", "\[Rho]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", " ", "=", RowBox[{"Chisholm", "[", "t1", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$506"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$506", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]]}], "+", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell["The $MU$ variables are unique indices.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", RowBox[{"t1", ".", "t1"}], "]"}]], "Input"], Cell[BoxData[ FormBox["16", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t3", " ", "=", RowBox[{"Chisholm", "[", "t1", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$507"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$507", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]]}], "+", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", RowBox[{"t2", ".", "t3"}], "]"}]], "Input"], Cell[BoxData[ FormBox["16", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t4", "=", RowBox[{"DiracSlash", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["a", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["b", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["c", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Chisholm", "[", "t4", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$508"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["$MU$508", "TraditionalForm"], "TraditionalForm"], FormBox["a", "TraditionalForm"], FormBox["b", "TraditionalForm"], FormBox["c", "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["c", "TraditionalForm"]}], " ", RowBox[{ FormBox["a", "TraditionalForm"], "\[CenterDot]", FormBox["b", "TraditionalForm"]}]}], "-", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["b", "TraditionalForm"]}], " ", RowBox[{ FormBox["a", "TraditionalForm"], "\[CenterDot]", FormBox["c", "TraditionalForm"]}]}], "+", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["a", "TraditionalForm"]}], " ", RowBox[{ FormBox["b", "TraditionalForm"], "\[CenterDot]", FormBox["c", "TraditionalForm"]}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", RowBox[{"GA", "[", RowBox[{ "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Tau]", ",", "\[Kappa]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Sigma]"], " ", SuperscriptBox["\[Gamma]", "\[Tau]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", " ", "=", RowBox[{"Chisholm", "[", "a1", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Tau]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Sigma]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$511"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$511", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$512"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$512", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$513"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$513", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Tau]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Sigma]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Tau]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Tau]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Tau]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Sigma]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Tau]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Tau]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Tau]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Tau]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Tau]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Sigma]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Tau]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Tau]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Tau]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$509"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$509", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Sigma]", "\[Tau]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Sigma]", "\[Tau]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Sigma]", "\[Tau]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Sigma]", "\[Tau]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a3", " ", "=", RowBox[{"Chisholm", "[", "a1", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Tau]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Sigma]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$516"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$516", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$517"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$517", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$518"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$518", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Tau]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Sigma]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Tau]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Tau]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Tau]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Sigma]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Tau]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Tau]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Tau]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Tau]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Tau]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Sigma]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Tau]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Tau]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Tau]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$514"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$514", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Sigma]", "\[Tau]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Sigma]", "\[Tau]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Sigma]", "\[Tau]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Kappa]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Sigma]", "\[Tau]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell["Check that both a1.a1 and a2.a3 give the same.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", RowBox[{"a1", ".", "a1"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "2048"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", RowBox[{"a2", ".", "a3"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "2048"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "t1", ",", "t2", ",", "t3", ",", "t4", ",", "a1", ",", "a2", ",", "a3"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Collect2", "Section", CellTags->"Collect2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Collect2[expr, x] collects together terms which are not free of any \ occurrence of x. Collect2[expr, {x1, x2, ...}] (or also Collect2[expr, x1, x2, ...]) collects together terms which are not free of any occurrence of x1, x2, .... \ The coefficients are put over a common denominator. If expr is expanded before collecting depends on the option Factoring, which may be set to Factor, Factor2, or any other function, which is applied to the coefficients. \ If expr is already expanded with respect to x (x1,x2, ...), the option Expanding can be set to False.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Collect2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Denominator", "\[Rule]", "False"}], ",", RowBox[{"Dot", "\[Rule]", "False"}], ",", RowBox[{"Expanding", "\[Rule]", "True"}], ",", RowBox[{"Factoring", "\[Rule]", "Factor2"}], ",", RowBox[{"IsolateNames", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["Isolate", ButtonData:>"Isolate", ButtonStyle->"Hyperlink", ButtonNote->"Isolate"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect2", "[", " ", RowBox[{ RowBox[{"t1", "=", RowBox[{"a", "+", RowBox[{"r", "a"}], "+", RowBox[{ RowBox[{"k", "^", "2"}], " ", RowBox[{"f", "[", "a", "]"}]}], "-", RowBox[{"k", " ", RowBox[{"f", "[", "a", "]"}]}], "+", RowBox[{"x", "/", "2"}], "-", RowBox[{"y", "/", "w"}]}]}], ",", "a"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", RowBox[{"(", RowBox[{"r", "+", "1"}], ")"}]}], "+", FractionBox[ RowBox[{ RowBox[{"w", " ", "x"}], "-", RowBox[{"2", " ", "y"}]}], RowBox[{"2", " ", "w"}]], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "k"}], ")"}], " ", "k", " ", RowBox[{"f", "(", "a", ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect2", "[", RowBox[{"t1", ",", "a", ",", RowBox[{"Factoring", "->", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", RowBox[{"(", RowBox[{"r", "+", "1"}], ")"}]}], "+", FractionBox["x", "2"], "-", FractionBox["y", "w"], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", "k"}], ")"}], " ", RowBox[{"f", "(", "a", ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect2", "[", RowBox[{"t1", ",", "a", ",", RowBox[{"Factoring", "->", "Factor"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", RowBox[{"(", RowBox[{"r", "+", "1"}], ")"}]}], "+", FractionBox[ RowBox[{ RowBox[{"w", " ", "x"}], "-", RowBox[{"2", " ", "y"}]}], RowBox[{"2", " ", "w"}]], "+", RowBox[{ RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}], " ", "k", " ", RowBox[{"f", "(", "a", ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect2", "[", RowBox[{ RowBox[{ RowBox[{"2", "a", " ", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"b", "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"e", "a"}], " ", "-", " ", "c"}], ")"}]}], " ", "+", RowBox[{"b", "^", "2"}]}], ",", " ", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "h"}], ")"}], " ", SuperscriptBox["a", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", "e", " ", "a"}], "-", RowBox[{"2", " ", "b", " ", RowBox[{"(", RowBox[{"1", "-", "h"}], ")"}], " ", "a"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"c", "+", "1"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect2", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b", "-", "c", "-", "d"}], ")"}], "^", "5"}], "]"}], ",", "a", ",", RowBox[{"IsolateNames", "\[Rule]", "L"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["a", "5"], "-", RowBox[{"5", " ", TagBox[ RowBox[{"L", "(", "1", ")"}], HoldForm], " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"(", TagBox[ RowBox[{"L", "(", "1", ")"}], HoldForm], ")"}], "2"], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"(", TagBox[ RowBox[{"L", "(", "1", ")"}], HoldForm], ")"}], "3"], " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"(", TagBox[ RowBox[{"L", "(", "1", ")"}], HoldForm], ")"}], "4"], " ", "a"}], "-", SuperscriptBox[ RowBox[{"(", TagBox[ RowBox[{"L", "(", "1", ")"}], HoldForm], ")"}], "5"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReleaseHold", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["a", "5"], "-", RowBox[{"5", " ", RowBox[{"(", RowBox[{"b", "+", "c", "+", "d"}], ")"}], " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "+", "c", "+", "d"}], ")"}], "2"], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "+", "c", "+", "d"}], ")"}], "3"], " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "+", "c", "+", "d"}], ")"}], "4"], " ", "a"}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "+", "c", "+", "d"}], ")"}], "5"]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t1", ",", "L"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect2", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b", "-", "c"}], ")"}], "^", "3"}], "]"}], ",", "a", ",", RowBox[{"Factoring", "->", "fun"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"fun", "(", "1", ")"}], " ", SuperscriptBox["a", "3"]}], "+", RowBox[{ RowBox[{"fun", "(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "b"}], "-", RowBox[{"3", " ", "c"}]}], ")"}], " ", SuperscriptBox["a", "2"]}], "+", RowBox[{ RowBox[{"fun", "(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"6", " ", "c", " ", "b"}], "+", RowBox[{"3", " ", SuperscriptBox["c", "2"]}]}], ")"}], " ", "a"}], "+", RowBox[{"fun", "(", RowBox[{ RowBox[{"-", SuperscriptBox["b", "3"]}], "-", RowBox[{"3", " ", "c", " ", SuperscriptBox["b", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["c", "2"], " ", "b"}], "-", SuperscriptBox["c", "3"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", " ", "/.", " ", RowBox[{"fun", "->", "FactorTerms"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["a", "3"], "-", RowBox[{"3", " ", RowBox[{"(", RowBox[{"b", "+", "c"}], ")"}], " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "+", RowBox[{"2", " ", "c", " ", "b"}], "+", SuperscriptBox["c", "2"]}], ")"}], " ", "a"}], "-", SuperscriptBox["b", "3"], "-", SuperscriptBox["c", "3"], "-", RowBox[{"3", " ", "b", " ", SuperscriptBox["c", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["b", "2"], " ", "c"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Combine", "Section", CellTags->"Combine"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Combine[expr]puts terms in a sum over a common denominator,and \ cancels factors in the result. Combine is similar to Together, but accepts the option \ Expanding and works usually better than Together for polynomials involving rationals with sums in the denominator.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Combine", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Expanding", "\[Rule]", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["Factor2", ButtonData:>"Factor2", ButtonStyle->"Hyperlink", ButtonNote->"Factor2"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Combine", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{"c", "-", "d"}], ")"}], "/", "e"}]}], " ", "+", " ", "g"}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"c", "-", "d"}], ")"}]}], "+", RowBox[{"e", " ", "g"}]}], "e"], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Here the result from Together where the numerator is automatically expanded. \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Together", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{"c", "-", "d"}], ")"}], "/", "e"}]}], " ", "+", " ", "g"}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{"a", " ", "c"}], "-", RowBox[{"b", " ", "c"}], "-", RowBox[{"a", " ", "d"}], "+", RowBox[{"b", " ", "d"}], "+", RowBox[{"e", " ", "g"}]}], "e"], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ If the option Expanding is set to True, the result of Combine is \ the same as Together, but uses a slightly different algorithm.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Combine", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"c", "-", "d"}], ")"}]}], ")"}], "/", "e"}], "+", "g"}], ",", RowBox[{"Expanding", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{"a", " ", "c"}], "-", RowBox[{"b", " ", "c"}], "-", RowBox[{"a", " ", "d"}], "+", RowBox[{"b", " ", "d"}], "+", RowBox[{"e", " ", "g"}]}], "e"], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["CommutatorExplicit", "Section", CellTags->"CommutatorExplicit"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ CommutatorExplicit[exp] substitutes any Commutator and \ AntiCommutator in exp by their definitions.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Calc", ButtonData:>"Calc", ButtonStyle->"Hyperlink", ButtonNote->"Calc"], ", ", ButtonBox["DotSimplify", ButtonData:>"DotSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DotSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[BoxData[ RowBox[{"DeclareNonCommutative", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Commutator", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ "[", "\[NoBreak]", "a", "\[NoBreak]", ",", "b", "\[NoBreak]", "]"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CommutatorExplicit", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "b"}], "-", RowBox[{"b", " ", "a"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AntiCommutator", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", RowBox[{"b", "-", "d"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", FormBox[ RowBox[{"a", "-", "c"}], "TraditionalForm"], ",", "\[MediumSpace]", FormBox[ RowBox[{"b", "-", "d"}], "TraditionalForm"], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CommutatorExplicit", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "d"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"CommutatorExplicit", "[", "%%", "]"}], "//", "DotSimplify"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "b"}], "-", RowBox[{"a", " ", "d"}], "+", RowBox[{"b", " ", "a"}], "-", RowBox[{"b", " ", "c"}], "-", RowBox[{"c", " ", "b"}], "+", RowBox[{"c", " ", "d"}], "-", RowBox[{"d", " ", "a"}], "+", RowBox[{"d", " ", "c"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"UnDeclareNonCommutative", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Commutator", "Section", CellTags->"Commutator"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Commutator[x, y] = c defines the commutator between the \ non-commuting objects x and y. \ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["AntiCommutator", ButtonData:>"AntiCommutator", ButtonStyle->"Hyperlink", ButtonNote->"AntiCommutator"], ", ", ButtonBox["CommutatorExplicit", ButtonData:>"CommutatorExplicit", ButtonStyle->"Hyperlink", ButtonNote->"CommutatorExplicit"], ", ", ButtonBox["DeclareNonCommutative", ButtonData:>"DeclareNonCommutative", ButtonStyle->"Hyperlink", ButtonNote->"DeclareNonCommutative"], ", ", ButtonBox["DotSimplify", ButtonData:>"DotSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DotSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[BoxData[ RowBox[{"DeclareNonCommutative", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Commutator", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ "[", "\[NoBreak]", "a", "\[NoBreak]", ",", "b", "\[NoBreak]", "]"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CommutatorExplicit", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "b"}], "-", RowBox[{"b", " ", "a"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DotSimplify", "[", RowBox[{"Commutator", "[", RowBox[{ RowBox[{"a", "+", "b"}], ",", RowBox[{"c", "+", "d"}]}], "]"}], "]"}], " "}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "c"}], "+", RowBox[{"a", " ", "d"}], "+", RowBox[{"b", " ", "c"}], "+", RowBox[{"b", " ", "d"}], "-", RowBox[{"c", " ", "a"}], "-", RowBox[{"c", " ", "b"}], "-", RowBox[{"d", " ", "a"}], "-", RowBox[{"d", " ", "b"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"UnDeclareNonCommutative", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}]], "Input"], Cell["Verify the Jacobi identity.", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"\[Chi]", "=", "Commutator"}], ";", " ", RowBox[{"DeclareNonCommutative", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[Chi]", "[", RowBox[{"x", ",", RowBox[{"\[Chi]", "[", RowBox[{"y", ",", "z"}], "]"}]}], "]"}], "+", RowBox[{"\[Chi]", "[", RowBox[{"y", ",", RowBox[{"\[Chi]", "[", RowBox[{"z", ",", "x"}], "]"}]}], "]"}], "+", RowBox[{"\[Chi]", "[", RowBox[{"z", ",", RowBox[{"\[Chi]", "[", RowBox[{"x", ",", "y"}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"[", "\[NoBreak]", "x", "\[NoBreak]", ",", FormBox[ RowBox[{ "[", "\[NoBreak]", "y", "\[NoBreak]", ",", "z", "\[NoBreak]", "]"}], "TraditionalForm"], "\[NoBreak]", "]"}], "+", RowBox[{"[", "\[NoBreak]", "y", "\[NoBreak]", ",", FormBox[ RowBox[{ "[", "\[NoBreak]", "z", "\[NoBreak]", ",", "x", "\[NoBreak]", "]"}], "TraditionalForm"], "\[NoBreak]", "]"}], "+", RowBox[{"[", "\[NoBreak]", "z", "\[NoBreak]", ",", FormBox[ RowBox[{ "[", "\[NoBreak]", "x", "\[NoBreak]", ",", "y", "\[NoBreak]", "]"}], "TraditionalForm"], "\[NoBreak]", "]"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "\[Chi]", "]"}]], "Input"], Cell[BoxData[ RowBox[{"UnDeclareNonCommutative", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ComplexConjugate", "Section", CellTags->"ComplexConjugate"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ ComplexConjugate[expr] complex conjugates expr. It operates on fermion lines, i.e., products of Spinor[..] .DiracMatrix[..] . \ Spinor[..], and changes all occuring LorentzIndex[mu] into LorentzIndex[ComplexIndex[mu]]. For taking the spin sum (i.e. constructing the traces) use FermionSpinSum. WARNING: In expr should be NO explicit I's in denominators!\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["ComplexIndex", ButtonData:>"ComplexIndex", ButtonStyle->"Hyperlink", ButtonNote->"ComplexIndex"], ", ", ButtonBox["FermionSpinSum", ButtonData:>"FermionSpinSum", ButtonStyle->"Hyperlink", ButtonNote->"FermionSpinSum"], ", ", ButtonBox["LorentzIndex", ButtonData:>"LorentzIndex", ButtonStyle->"Hyperlink", ButtonNote->"LorentzIndex"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[TextData["ComplexConjugate[MetricTensor[\[Mu],\[Nu]]]"], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ SuperscriptBox["\[Mu]", "*"], "TraditionalForm"], FormBox[ SuperscriptBox["\[Nu]", "*"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["InputForm[%]", "Input"], Cell[TextData[ "Pair[LorentzIndex[ComplexIndex[\[Mu]]], \n \ LorentzIndex[ComplexIndex[\[Nu]]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData["GA[\[Mu],\[Nu],5]"], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "5"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["ComplexConjugate[%]", "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Gamma]", FormBox[ SuperscriptBox["\[Nu]", "*"], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", FormBox[ SuperscriptBox["\[Mu]", "*"], "TraditionalForm"]]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["SUNTrace[SUNT[a,b,c]]", "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["ComplexConjugate[%]", "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["ComplexConjugate[SUNF[a,b,c]]", "Input"], Cell[BoxData[ FormBox[ 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[TextData[ "ComplexConjugate[MetricTensor[\[Mu],\[Nu]]]//FCE//InputForm"], "Input"], Cell[TextData["MT[ComplexIndex[\[Mu]], ComplexIndex[\[Nu]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SpinorUBar", "[", RowBox[{"k1", ",", "m"}], "]"}], ".", RowBox[{"GA", "[", "\[Lambda]", "]"}], ".", RowBox[{"SpinorU", "[", RowBox[{"p1", ",", "m"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox[ OverscriptBox["\<\"u\"\>", "_"], "TraditionalForm"], "(", "k1", ",", "m", ")"}], " ", SuperscriptBox["\[Gamma]", "\[Lambda]"], " ", RowBox[{"u", "(", "p1", ",", "m", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ComplexConjugate", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[CurlyPhi]", "(", FormBox["p1", "TraditionalForm"], ",", "m", ")"}], " ", SuperscriptBox["\[Gamma]", FormBox[ SuperscriptBox["\[Lambda]", "*"], "TraditionalForm"]], " ", RowBox[{"\[CurlyPhi]", "(", FormBox["k1", "TraditionalForm"], ",", "m", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[ "Notice that SpinorUBar and SpinorU are only input functions. Internally they \ are converted to Spinor objects (which display as \[CurlyPhi]\[NoBreak])."], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ComplexIndex", "Section", CellTags->"ComplexIndex"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ ComplexIndex is the head of a \"complex conjugate index\", which is \ understood as just another index.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["LorentzIndex", ButtonData:>"LorentzIndex", ButtonStyle->"Hyperlink", ButtonNote->"LorentzIndex"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}]], "Input"], Cell[BoxData[ FormBox["\[Mu]", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ComplexConjugate", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Mu]", "*"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData["LorentzIndex[ComplexIndex[\[Mu]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourVector", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ComplexConjugate", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ SuperscriptBox["\[Mu]", "*"], "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "Pair[LorentzIndex[ComplexIndex[\[Mu]]], Momentum[p]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ComplexConjugate", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Contract", "Section", CellTags->"Contract"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Contract[expr] contracts pairs of Lorentz indices of metric \ tensors, four-vectors and (depending on the optionEpsContract) of Levi-Civita tensors in expr. For the contraction of Dirac matrices with each other use DiracSimplify. Contract[exp1, exp2] contracts (exp1*exp2), where exp1 and exp2 may be larger products of sums of metric tensors and 4-vectors. \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Contract", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Collecting", "\[Rule]", "True"}], ",", RowBox[{"EpsContract", "\[Rule]", "True"}], ",", RowBox[{"Expanding", "\[Rule]", "True"}], ",", RowBox[{"Factoring", "\[Rule]", "False"}], ",", RowBox[{"FeynCalcInternal", "\[Rule]", "False"}], ",", RowBox[{"MomentumCombine", "\[Rule]", "False"}], ",", RowBox[{"Rename", "\[Rule]", "False"}], ",", RowBox[{"Schouten", "\[Rule]", "0"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["Pair", ButtonData:>"Pair", ButtonStyle->"Hyperlink", ButtonNote->"Pair"], ", ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["MomentumCombine", ButtonData:>"MomentumCombine", ButtonStyle->"Hyperlink", ButtonNote->"MomentumCombine"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MetricTensor", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], " ", RowBox[{"FourVector", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FourVector", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MetricTensor", "[", RowBox[{"\[Mu]", ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Mu]"}]], TraditionalForm]], "Output"] }, Open ]], Cell["The default dimension for MetricTensor is 4.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox["4", TraditionalForm]], "Output"] }, Open ]], Cell["\<\ A short way to enter D-dimensional metric tensors is given by MTD. \ The \".\" as multiplication operator is not necessary but just convenient \ for typesetting.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], " ", ".", " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox["D", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], " ", ".", " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FourVector", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], " ", RowBox[{"FourVector", "[", RowBox[{"q", ",", "\[Mu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "%", " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FourVector", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", "\[Mu]"}], "]"}], " ", RowBox[{"FourVector", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", "\[Mu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"a", "-", "b"}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], ")"}], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["a", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["a", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "-", RowBox[{ FormBox["b", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["b", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LeviCivita", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Sigma]"}], "]"}], " ", RowBox[{"FourVector", "[", RowBox[{"p", ",", "\[Sigma]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"LeviCivita", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], " ", RowBox[{"LeviCivita", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Sigma]"}], "]"}]}], " "}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox["g", RowBox[{"\[Beta]", "\[Sigma]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Eps", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], ";", RowBox[{ RowBox[{"LCD", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], " ", RowBox[{"LCD", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Sigma]"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]", "\[Nu]", "\[Alpha]", "\[Beta]"}]], " ", SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]", "\[Nu]", "\[Alpha]", "\[Sigma]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Contract", "[", "%", "]"}], "//", "Factor2"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "-", "D"}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Eps", ",", RowBox[{"Dimension", "\[Rule]", "4"}]}], "]"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Convolute", "Section", CellTags->"Convolute"], Cell[CellGroupData[{ Cell["Description", "Subsubsection"], Cell[TextData[{ "Convolute[f, g, x] convolutes f(x) and g(x), i.e., \n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ SubscriptBox["dx", "1"], " ", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ SubscriptBox["dx", "2"], " ", RowBox[{"\[Delta]", "(", RowBox[{"x", " ", "-", " ", RowBox[{ SubscriptBox["x", "1"], " ", SubscriptBox["x", "2"]}]}], ")"}], " ", RowBox[{"f", "(", SubscriptBox["x", "1"], ")"}], " ", RowBox[{ RowBox[{"g", "(", SubscriptBox["x", "2"], ")"}], " ", "."}]}]}]}]}], TraditionalForm]]], "\nConvolute[f, g] is equivalent to Convolute[f, g, x].\nConvolute[exp, \ {x1, x2}] assumes that exp is polynomial in x1 and x2.\nConvolute uses \ table-look-up and does not do any integral calculations, only linear \ algebra." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Convolute", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Bracket", "\[Rule]", RowBox[{"{", TagBox["\[CurlyEpsilon]", TraditionalForm], "}"}]}], ",", RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", RowBox[{"PlusDistribution", "\[Rule]", "Identity"}], "}"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["PlusDistribution", ButtonData:>"PlusDistribution", ButtonStyle->"Hyperlink", ButtonNote->"PlusDistribution"], "." }], "Subsubsection"], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"1", ",", "1"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{"log", "(", "x", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"x", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "x"}], " ", RowBox[{"log", "(", "x", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"1", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"1", "-", "x"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"1", ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], "-", RowBox[{"log", "(", "x", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"1", ",", RowBox[{"PlusDistribution", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], "-", RowBox[{"log", "(", "x", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], "-", RowBox[{ RowBox[{"log", "(", "x", ")"}], " ", "x"}], "-", "x", "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Zeta]", "(", "2", ")"}]}], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", FractionBox[ RowBox[{"2", " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], RowBox[{"1", "-", "x"}]], "-", FractionBox[ RowBox[{"log", "(", "x", ")"}], RowBox[{"1", "-", "x"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"1", ",", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"1", ",", RowBox[{"x", " ", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"x", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}], "-", RowBox[{ RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{"\[Zeta]", "(", "2", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{"x", " ", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"x", " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{"x", " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", "x", "-", RowBox[{"x", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "-", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "x", " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{"x", " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"x", " ", RowBox[{"log", "(", "x", ")"}]}], "-", RowBox[{"x", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"1", ",", RowBox[{"x", " ", RowBox[{"Log", "[", "x", "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"log", "(", "x", ")"}]}], " ", "x"}], "+", "x", "-", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"x", " ", RowBox[{"log", "(", "x", ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{ RowBox[{"Log", "[", "x", "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], RowBox[{"1", "-", "x"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"1", ",", RowBox[{"Log", "[", "x", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"x", ",", " ", RowBox[{"x", " ", RowBox[{"Log", "[", "x", "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "x", " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{"Log", "[", "x", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"1", ",", RowBox[{ RowBox[{"Log", "[", "x", "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{"x", " ", RowBox[{"Log", "[", "x", "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "x", " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "-", RowBox[{"x", " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{"x", " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", "x", "+", RowBox[{"x", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", "x", "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "x", " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", RowBox[{"log", "(", "x", ")"}], "-", "x", "-", RowBox[{"x", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{"1", ",", RowBox[{"x", " ", RowBox[{"Log", "[", "x", "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"log", "(", "x", ")"}]}], " ", "x"}], "+", "x", "-", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"Log", "[", "x", "]"}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"log", "(", "x", ")"}], "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"3", " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]], "-", FractionBox[ RowBox[{ RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], RowBox[{"1", "-", "x"}]], "-", FractionBox[ RowBox[{"\[Zeta]", "(", "2", ")"}], RowBox[{"1", "-", "x"}]], "+", RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["CovariantD", "Section", CellTags->"CovariantD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "CovariantD[\[Mu], a, b] is the covariant derivative for a bosonic field.\n\ CovariantD[\[Mu]] is the covariant derivative for a fermionic field.\n\ CovariantD[OPEDelta, a, b] is a short form for\n\ CovariantD[mu,a,b]*FourVector[OPEDelta, mu].\nCovariantD[{OPEDelta, a, b}, \ {n}] yields the product of m operators., where n is an integer.\n\ CovariantD[OPEDelta, a, b, {m, n}] gives the expanded form of\n\ CovariantD[OPEDelta, a, b]^m up to order\ng^n for the gluon, where n is an \ integer and g the couplingconstant indicated by the setting of the option \ CouplingConstant.\nCovariantD[OPEDelta, {m, n}] gives the expanded form of\n\ CovariantD[OPEDelta]^m up to order g^n of the fermionic field."], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "CovariantD", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"DummyIndex", "\[Rule]", "Automatic"}], ",", RowBox[{"Explicit", "\[Rule]", "False"}], ",", RowBox[{"PartialD", "\[Rule]", "RightPartialD"}], ",", RowBox[{"QuantumField", "\[Rule]", "A"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Possible settings of PartialD are: LeftPartialD, LeftRigthPartialD, RightPartialD. The default setting of QuantumField is GaugeField.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["LeftPartialD", ButtonData:>"LeftPartialD", ButtonStyle->"Hyperlink", ButtonNote->"LeftPartialD"], ", ", ButtonBox["LeftRightPartialD", ButtonData:>"LeftRightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"LeftRightPartialD"], ", ", ButtonBox["RightPartialD", ButtonData:>"RightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"RightPartialD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", "\[Mu]", "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["D", "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", RowBox[{"\[Mu]", ",", "a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox["D", "\[Mu]", RowBox[{"a", "b"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", RowBox[{"\[Mu]", ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ The first argument of CovariantD is intepreted as type \ LorentzIndex, except for OPEDelta, which is type Momentum.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", "OPEDelta", "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", RowBox[{"OPEDelta", ",", "a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"], RowBox[{"a", "b"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", RowBox[{"OPEDelta", ",", "a", ",", "b", ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], " ", SubscriptBox["\[Delta]", RowBox[{"a", "b"}]]}], "-", RowBox[{ SubscriptBox["g", "s"], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "2"], Subscripted[ c[ 2]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", FormBox[ InterpretationBox[ SubscriptBox["c", "2"], Subscripted[ c[ 2]], Editable->False], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", RowBox[{"OPEDelta", ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "3"], Subscripted[ c[ 3]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "3"], Subscripted[ c[ 3]], Editable->False], "TraditionalForm"], "TraditionalForm"]]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", RowBox[{"OPEDelta", ",", "a", ",", "b", ",", RowBox[{"{", "2", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], " ", SubscriptBox["\[Delta]", RowBox[{"a", "c8"}]]}], "-", RowBox[{ SubscriptBox["g", "s"], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["e1", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "c8", "\[NoBreak]", "e1"}]]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], " ", SubscriptBox["\[Delta]", RowBox[{"b", "c8"}]]}], "-", RowBox[{ SubscriptBox["g", "s"], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["e2", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{"c8", "\[NoBreak]", "b", "\[NoBreak]", "e2"}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "This gives", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{"m", " ", "times", " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], "\[CapitalDelta]"]}], ",", " "}], TraditionalForm]]], "the partial derivative ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], RowBox[{"\[Mu]", " "}]], TraditionalForm]]], "contracted with ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", "\[Mu]"], "."}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", RowBox[{"OPEDelta", ",", "a", ",", "b", ",", RowBox[{"{", RowBox[{"OPEm", ",", "0"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], "m"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "The expansion up to first order in the coupling constant ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{ RowBox[{"(", RowBox[{"the", "sum", "is", "the", "FeynCalc", "OPESum"}], ")"}], "."}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", RowBox[{"OPEDelta", ",", "a", ",", "b", ",", RowBox[{"{", RowBox[{"OPEm", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], "m"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SubscriptBox["g", "s"], " ", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "1"}]], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], "i"], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "1"}]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]}]]}]}], HoldForm], "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "The expansion up to second order in the ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], "."}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", RowBox[{"OPEDelta", ",", "a", ",", "b", ",", RowBox[{"{", RowBox[{"OPEm", ",", "2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], "m"]}], "-", RowBox[{ SubsuperscriptBox["g", "s", "2"], " ", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "2"}]], FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], "i"], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], RowBox[{"j", "-", "i"}]], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "2"], Subscripted[ c[ 2]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "2"}]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["e", "1"], Subscripted[ e[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "2"], Subscripted[ c[ 2]], Editable->False], "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["e", "1"], Subscripted[ e[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]}]]}]}], HoldForm], "TraditionalForm"]}], HoldForm], "TraditionalForm"]}], "-", RowBox[{ SubscriptBox["g", "s"], " ", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "1"}]], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], "i"], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "1"}]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]}]]}]}], HoldForm], "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"CovariantD", "[", RowBox[{"OPEDelta", ",", "a", ",", "b"}], "]"}], "^", "OPEm"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", SubsuperscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"], RowBox[{"a", "b"}]], ")"}], "m"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CovariantD", "[", RowBox[{"OPEDelta", ",", RowBox[{"{", RowBox[{"OPEm", ",", "2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], "m"], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["g", "s"], " ", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "1"}]], RowBox[{ SubscriptBox["T", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], "i"], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "1"}]]}]}], HoldForm], "TraditionalForm"]}], "-", RowBox[{ SubsuperscriptBox["g", "s", "2"], " ", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "2"}]], FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], RowBox[{ SubscriptBox["T", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "2"], Subscripted[ c[ 2]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], "i"], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "1"], Subscripted[ c[ 1]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], RowBox[{"j", "-", "i"}]], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox[ InterpretationBox[ SubscriptBox["c", "2"], Subscripted[ c[ 2]], Editable->False], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "2"}]]}]}], HoldForm], "TraditionalForm"]}], HoldForm], "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"CovariantD", "[", RowBox[{"OPEDelta", ",", RowBox[{"Explicit", "->", "True"}]}], "]"}], "//", "InputForm"}]], "Input"], Cell["\<\ -I*Gstrong*SUNT[SUNIndex[Subscripted[c[4]]]] . QuantumField[GaugeField, Momentum[OPEDelta], SUNIndex[Subscripted[c[4]]]] + RightPartialD[Momentum[OPEDelta]]\ \>", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"CovariantD", "[", RowBox[{"\[Mu]", ",", "a", ",", "b", ",", RowBox[{"Explicit", "->", "True"}]}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "RightPartialD[LorentzIndex[\[Mu]]]*SUNDelta[a, b] - \n \ Gstrong*QuantumField[GaugeField, LorentzIndex[\[Mu]], \n \ SUNIndex[Subscripted[c[5]]]]*\n SUNF[a, b, Subscripted[c[5]]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["D0", "Section", CellTags->"D0"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "D0[ p10, p12, p23, p30, p20, p13, m1^2, m2^2, m3^2, m4^2 ] is the \n\ Passarino-Veltman ", Cell[BoxData[ FormBox[ SubscriptBox["D", "0"], TraditionalForm]]], " function. The convention for the arguments is that if the denominator of \ the integrand has the form ([q^2-m1^2] [(q+p1)^2-m2^2] [(q+p2)^2-m3^2] \ [(q+p3)^2-m4^2] ), the first six arguments of D0 are the \nscalar products \ p10 = p1^2, p12 = (p1-p2)^2, p23 = (p2-p3)^2, p30 = p3^2, p20 = p2^2, p13 = \ (p1-p3)^2." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["B0", ButtonData:>"B0", ButtonStyle->"Hyperlink", ButtonNote->"B0"], ", ", ButtonBox["C0", ButtonData:>"C0", ButtonStyle->"Hyperlink", ButtonNote->"C0"], ", ", ButtonBox["PaVe", ButtonData:>"PaVe", ButtonStyle->"Hyperlink", ButtonNote->"PaVe"], ", ", ButtonBox["PaVeOrder", ButtonData:>"PaVeOrder", ButtonStyle->"Hyperlink", ButtonNote->"PaVeOrder"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D0", "[", RowBox[{ "p10", ",", "p12", ",", "p23", ",", "p30", ",", "p20", ",", "p13", ",", RowBox[{"m1", "^", "2"}], ",", RowBox[{"m2", "^", "2"}], ",", RowBox[{"m3", "^", "2"}], ",", RowBox[{"m4", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"D\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "p10", ",", "p12", ",", "p23", ",", "p30", ",", "p20", ",", "p13", ",", FormBox[ SuperscriptBox["m1", "2"], "TraditionalForm"], ",", FormBox[ SuperscriptBox["m2", "2"], "TraditionalForm"], ",", FormBox[ SuperscriptBox["m3", "2"], "TraditionalForm"], ",", FormBox[ SuperscriptBox["m4", "2"], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PaVeOrder", "[", RowBox[{ RowBox[{"D0", "[", RowBox[{ "p10", ",", "p12", ",", "p23", ",", "p30", ",", "p20", ",", "p13", ",", RowBox[{"m1", "^", "2"}], ",", RowBox[{"m2", "^", "2"}], ",", RowBox[{"m3", "^", "2"}], ",", RowBox[{"m4", "^", "2"}]}], "]"}], ",", RowBox[{"PaVeOrderList", "->", RowBox[{"{", RowBox[{"p13", ",", "p20"}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"D\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "p10", ",", "p30", ",", "p23", ",", "p12", ",", "p13", ",", "p20", ",", FormBox[ SuperscriptBox["m2", "2"], "TraditionalForm"], ",", FormBox[ SuperscriptBox["m1", "2"], "TraditionalForm"], ",", FormBox[ SuperscriptBox["m4", "2"], "TraditionalForm"], ",", FormBox[ SuperscriptBox["m3", "2"], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PaVeOrder", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"D\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "p10", ",", "p12", ",", "p23", ",", "p30", ",", "p20", ",", "p13", ",", FormBox[ SuperscriptBox["m1", "2"], "TraditionalForm"], ",", FormBox[ SuperscriptBox["m2", "2"], "TraditionalForm"], ",", FormBox[ SuperscriptBox["m3", "2"], "TraditionalForm"], ",", FormBox[ SuperscriptBox["m4", "2"], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DataType", "Section", CellTags->"DataType"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DataType[exp, type] = True defines the object exp to have \ data-type type. DataType[exp1, exp2, ..., type] defines the objects exp1, exp2, ...to have data-type type. The default setting is DataType[__, _] := False. To assign a certain data-type, do, e.g., DataType[x, PositiveInteger] = True.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DeclareNonCommutative", ButtonData:>"DeclareNonCommutative", ButtonStyle->"Hyperlink", ButtonNote->"DeclareNonCommutative"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["NonCommutative is just a data-type.", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DataType", "[", RowBox[{"f", ",", "g", ",", " ", "NonCommutative"}], "]"}], " ", "=", " ", "True"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{ RowBox[{"f", ".", "g"}], "-", RowBox[{"g", ".", RowBox[{"(", RowBox[{"2", "a"}], ")"}], ".", "f"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", " ", "g"}], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{"2", " ", "a"}], ")"}], " ", "f"}]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Since \"f \"and \"g\" have DataType NonCommutative the function \ DotSimplify extracts only \"a\" out of the noncommutative product.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", "t", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", " ", "g"}], "-", RowBox[{"2", " ", "a", " ", RowBox[{"(", RowBox[{"g", " ", "f"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DataType", "[", RowBox[{"m", ",", "odd"}], "]"}], "=", RowBox[{ RowBox[{"DataType", "[", RowBox[{"a", ",", "even"}], "]"}], "=", "True"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ptest1", "[", "x_", "]"}], ":=", RowBox[{"x", "/.", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n_"], "/;", RowBox[{"DataType", "[", RowBox[{"n", ",", "odd"}], "]"}]}], "\[RuleDelayed]", RowBox[{"-", "1"}]}]}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ptest2", "[", "x_", "]"}], ":=", RowBox[{"x", "/.", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n_"], "/;", RowBox[{"DataType", "[", RowBox[{"n", ",", "even"}], "]"}]}], "\[RuleDelayed]", "1"}]}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "a"}], "+", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "z"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "a"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "z"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ptest1", "[", "t", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "a"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "z"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ptest2", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "z"], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"ptest1", ",", "ptest2", ",", "t", ",", "a", ",", "m"}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DataType", "[", RowBox[{"m", ",", "ganzeZahl"}], "]"}], "=", "True"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"x", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "p_"}], "/;", RowBox[{"DataType", "[", RowBox[{"p", ",", "ganzeZahl"}], "]"}]}], ":>", "1"}], "}"}]}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"test", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "m"}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "n"}], " ", "x"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", "x"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "test", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", "x"}], "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"f", ",", "test"}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DataType", "[", RowBox[{"f", ",", "g", ",", " ", "NonCommutative"}], "]"}], " ", "=", " ", "False"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DataType", "[", RowBox[{"m", ",", "odd"}], "]"}], "=", RowBox[{ RowBox[{"DataType", "[", RowBox[{"a", ",", "even"}], "]"}], "=", "False"}]}], ";"}]], "Input"], Cell["\<\ Certain FeynCalc objects have DataType PositiveInteger set to True.\ \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataType", "[", RowBox[{"OPEm", ",", "PositiveInteger"}], "]"}]], "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]], Cell["PowerSimplify uses the DataType information.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PowerSimplify", "[", " ", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"2", "OPEm"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PowerSimplify", "[", " ", RowBox[{ RowBox[{"(", RowBox[{"-", " ", RowBox[{"SO", "[", "q", "]"}]}], ")"}], "^", "OPEm"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["q", "TraditionalForm"]}], ")"}], "m"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DeclareNonCommutative", "Section", CellTags->"DeclareNonCommutative"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DeclareNonCommutative[a, b, ...] declares a,b, ... to be \ non-commutative, i.e., DataType[a,b, ..., NonCommutative] is set to True.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DataType", ButtonData:>"DataType", ButtonStyle->"Hyperlink", ButtonNote->"DataType"], ", ", ButtonBox["UnDeclareNonCommutative", ButtonData:>"UnDeclareNonCommutative", ButtonStyle->"Hyperlink", ButtonNote->"UnDeclareNonCommutative"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[BoxData[ RowBox[{"DeclareNonCommutative", "[", "x", "]"}]], "Input"], Cell["\<\ As a side effect of DeclareNonCommutative x is declared to be of \ data type NonCommutative.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataType", "[", RowBox[{"x", ",", "NonCommutative"}], "]"}]], "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"DeclareNonCommutative", "[", RowBox[{"y", ",", "z"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataType", "[", RowBox[{"a", ",", "x", ",", "y", ",", "z", ",", "NonCommutative"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"False", ",", "True", ",", "True", ",", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"UnDeclareNonCommutative", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataType", "[", RowBox[{"a", ",", "x", ",", "y", ",", "z", ",", "NonCommutative"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DeltaFunction", "Section", CellTags->"DeltaFunction"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ " DeltaFunction[x] is the Dirac delta-function \[Delta](x)."], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Convolute", ButtonData:>"Convolute", ButtonStyle->"Hyperlink", ButtonNote->"Convolute"], ", ", ButtonBox["DeltaFunctionPrime", ButtonData:>"DeltaFunctionPrime", ButtonStyle->"Hyperlink", ButtonNote->"DeltaFunctionPrime"], ", ", ButtonBox["Integrate2", ButtonData:>"Integrate2", ButtonStyle->"Hyperlink", ButtonNote->"Integrate2"], ", ", ButtonBox["SimplifyDeltaFunction", ButtonData:>"SimplifyDeltaFunction", ButtonStyle->"Hyperlink", ButtonNote->"SimplifyDeltaFunction"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeltaFunction", "[", RowBox[{"1", "-", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"DeltaFunction", "[", RowBox[{"1", "-", "x"}], "]"}], " ", RowBox[{"f", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"f", "(", "1", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"DeltaFunction", "[", "x", "]"}], " ", RowBox[{"f", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"f", "(", "0", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"DeltaFunction", "[", RowBox[{"1", "-", "x"}], "]"}], " ", RowBox[{"f", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"f", "(", "1", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Convolute", "[", RowBox[{ RowBox[{"DeltaFunction", "[", RowBox[{"1", "-", "x"}], "]"}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox["x", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DeltaFunctionPrime", "Section", CellTags->"DeltaFunctionPrime"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ " DeltaFunctionPrime[1-x] is the derivative of the Dirac \[Delta]-function."], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Convolute", ButtonData:>"Convolute", ButtonStyle->"Hyperlink", ButtonNote->"Convolute"], ", ", ButtonBox["DeltaFunction", ButtonData:>"DeltaFunction", ButtonStyle->"Hyperlink", ButtonNote->"DeltaFunction"], ", ", ButtonBox["Integrate2", ButtonData:>"Integrate2", ButtonStyle->"Hyperlink", ButtonNote->"Integrate2"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeltaFunctionPrime", "[", RowBox[{"1", "-", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Delta]", "\[Prime]"], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"DeltaFunctionPrime", "[", RowBox[{"1", "-", "x"}], "]"}], " ", RowBox[{"f", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "(", "1", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"DeltaFunctionPrime", "[", RowBox[{"1", "-", "x"}], "]"}], " ", RowBox[{"x", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["2", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Dimension", "Section", CellTags->"Dimension"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Dimension is an option of several functions and denotes the \ space-time dimension. Possible settings are: 4, n, d, D, ... (the variable does not matter, but it should have head Symbol).\ \>", "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracGammaCombine", "Section", CellTags->"DiracGammaCombine"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DiracGammaCombine[exp] is (nearly) the inverse operation to \ DiracGammaExpand.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracGamma", ButtonData:>"DiracGamma", ButtonStyle->"Hyperlink", ButtonNote->"DiracGamma"], ", ", ButtonBox["DiracGammaExpand", ButtonData:>"DiracGammaExpand", ButtonStyle->"Hyperlink", ButtonNote->"DiracGammaExpand"], ", ", ButtonBox["DiracMatrix", ButtonData:>"DiracMatrix", ButtonStyle->"Hyperlink", ButtonNote->"DiracMatrix"], ", ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["DiracSlash", ButtonData:>"DiracSlash", ButtonStyle->"Hyperlink", ButtonNote->"DiracSlash"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracGammaCombine", "[", RowBox[{ RowBox[{"GS", "[", "p", "]"}], " ", "+", " ", RowBox[{"GS", "[", "q", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"p", "+", "q"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input"], Cell["DiracGamma[Momentum[p + q]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracGammaCombine", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"GS", "[", "p", "]"}]}], " ", "-", " ", RowBox[{"2", " ", RowBox[{"GS", "[", "q", "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{ RowBox[{"2", " ", "p"}], "-", RowBox[{"2", " ", "q"}]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input"], Cell["DiracGamma[Momentum[2*p - 2*q]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracGammaExpand", "[", "%%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{"2", " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracGammaExpand", "Section", CellTags->"DiracGammaExpand"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DiracGammaExpand[exp] expands all DiracGamma[Momentum[a+b+..]] in \ exp into (DiracGamma[Momentum[a]] + DiracGamma[Momentum[b]] + ...).\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracGamma", ButtonData:>"DiracGamma", ButtonStyle->"Hyperlink", ButtonNote->"DiracGamma"], ", ", ButtonBox["DiracGammaCombine", ButtonData:>"DiracGammaCombine", ButtonStyle->"Hyperlink", ButtonNote->"DiracGammaCombine"], ", ", ButtonBox["DiracMatrix", ButtonData:>"DiracMatrix", ButtonStyle->"Hyperlink", ButtonNote->"DiracMatrix"], ", ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["DiracSlash", ButtonData:>"DiracSlash", ButtonStyle->"Hyperlink", ButtonNote->"DiracSlash"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{ RowBox[{"DiracGamma", "[", RowBox[{"Momentum", "[", "q", "]"}], "]"}], " ", ".", " ", RowBox[{"DiracGamma", "[", RowBox[{"Momentum", "[", RowBox[{"p", "-", "q"}], "]"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Momentum is the head of p-q, i.e., it is treated as one \ four-momentum.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "t", "]"}]], "Input"], Cell["DiracGamma[Momentum[q]] . DiracGamma[Momentum[p - q]]", "Output"] }, Open ]], Cell["With DiracGammaExpand the Momentum[p-q] gets expanded.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracGammaExpand", "[", "t", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell["The inverse operation is DiracGammaCombine.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"DiracGammaCombine", "[", RowBox[{"DiracGammaExpand", "[", "t", "]"}], "]"}], "]"}]], "Input"], Cell["DiracGamma[Momentum[q]] . DiracGamma[Momentum[p - q]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"DiracGammaExpand", "[", "t", "]"}], "]"}]], "Input"], Cell["\<\ DiracGamma[Momentum[q]] . (DiracGamma[Momentum[p]] - DiracGamma[Momentum[q]])\ \>", "Output"] }, Open ]], Cell["In order to do non-commutative expansion use DiracSimplify.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", "t", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "-", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "t", "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracGamma", "Section", CellTags->"DiracGamma"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ Cell[BoxData[ FormBox["DiracGamma", TraditionalForm]]], "[x, dim] is the head of all Dirac matrices and slashes (in the internal \ representation). Use DiracMatrix (or GA, GAD) and DiracSlash (or GS, GSD) for \ manual (short) input. \nDiracGamma[x, 4] simplifies to DiracGamma[x].\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DiracGamma", "[", "5", "]"}], " ", "is", RowBox[{"\[Gamma]", "^", "5"}]}], TraditionalForm]]], ". \nDiracGamma[6] is ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Gamma]", "^", "5"}]}], ")"}], "/", "2."}], TraditionalForm]]], "\nDiracGamma[7] is ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]", "^", "5"}]}], ")"}], "/", "2."}], TraditionalForm]]] }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracGammaExpand", ButtonData:>"DiracGammaExpand", ButtonStyle->"Hyperlink", ButtonNote->"DiracGammaExpand"], ", ", ButtonBox["DiracMatrix", ButtonData:>"DiracMatrix", ButtonStyle->"Hyperlink", ButtonNote->"DiracMatrix"], ", ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["DiracSlash", ButtonData:>"DiracSlash", ButtonStyle->"Hyperlink", ButtonNote->"DiracSlash"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracGamma", "[", "5", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "5"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracGamma", "[", RowBox[{"LorentzIndex", "[", "\[Alpha]", "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "\[Alpha]"], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "\[Gamma]\[NoBreak]\[CenterDot]", StyleBox["\[NoBreak]q", FontSlant->"Italic"], " denotes q\[NegativeMediumSpace]\[NegativeThinSpace]/ (= ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]", "^", "\[Mu]"}], SubscriptBox["q", "\[Mu]"]}], ")"}], "."}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracGamma", "[", RowBox[{"Momentum", "[", "q", "]"}], "]"}], " "}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracGamma", "[", RowBox[{"Momentum", "[", "q", "]"}], "]"}], " ", ".", " ", RowBox[{"DiracGamma", "[", RowBox[{"Momentum", "[", RowBox[{"p", "-", "q"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracGamma", "[", RowBox[{ RowBox[{"Momentum", "[", RowBox[{"q", ",", "D"}], "]"}], ",", "D"}], "]"}], " "}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", RowBox[{ RowBox[{"GS", "[", RowBox[{"p", "-", "q"}], "]"}], ".", RowBox[{"GS", "[", "p", "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "\[CenterDot]", "(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", "=", RowBox[{"DiracGammaExpand", "[", "a1", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a3", "=", RowBox[{ RowBox[{"GAD", "[", "\[Mu]", "]"}], ".", RowBox[{"GSD", "[", RowBox[{"p", "-", "q"}], "]"}], ".", RowBox[{"GSD", "[", "q", "]"}], ".", RowBox[{"GAD", "[", "\[Mu]", "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "q"}], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a4", "=", RowBox[{"DiracTrick", "[", "a3", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"D", "-", "4"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{"(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")", "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a5", "=", RowBox[{"DiracSimplify", "[", "a4", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"D", " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{"D", " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracGammaT", "Section", CellTags->"DiracGammaT"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DiracGammaT[x] denotes the transpose of DiracGamma[x]. Transpose[DiracGammaT[x]] gives DiracGamma[x]. Note that x must have Head \ LorentzIndex or Momentum.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracGamma", ButtonData:>"DiracGamma", ButtonStyle->"Hyperlink", ButtonNote->"DiracGamma"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracGammaT", "[", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "T"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Transpose", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GS", "[", "p", "]"}], "//", "FCI"}], "//", "Transpose"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", "\[Gamma]", "\[CenterDot]", FormBox["p", "TraditionalForm"], ")"}], "T"], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracMatrix", "Section", CellTags->"DiracMatrix"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "DiracMatrix[\[Mu]] denotes a Dirac \[Gamma] matrix with Lorentz index \ \[Mu].\nDiracMatrix[\[Mu],\[Nu] ..] is a product of \[Gamma] matrices with \ Lorentz indices \[Mu], \[Nu], etc.\nDiracMatrix[5] is ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "5"], TraditionalForm]]], ".\nDiracMatrix[6] is ", Cell[BoxData[ FormBox[ RowBox[{"1", "/", "2"}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{"+", " ", SuperscriptBox["\[Gamma]", "5"]}], "/", "2"}]}], TraditionalForm ]]], ".\nDiracMatrix[7] is", Cell[BoxData[ FormBox[ RowBox[{" ", "1", "/", "2"}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{"-", " ", SuperscriptBox["\[Gamma]", "5"]}], "/", "2"}]}], TraditionalForm ]]], "." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracGammaExpand", ButtonData:>"DiracGammaExpand", ButtonStyle->"Hyperlink", ButtonNote->"DiracGammaExpand"], ", ", ButtonBox["DiracGamma", ButtonData:>"DiracGamma", ButtonStyle->"Hyperlink", ButtonNote->"DiracGamma"], ", ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["DiracSlash", ButtonData:>"DiracSlash", ButtonStyle->"Hyperlink", ButtonNote->"DiracSlash"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], ", ", ButtonBox["GA", ButtonData:>"GA", ButtonStyle->"Hyperlink", ButtonNote->"GA"], ", ", ButtonBox["GAD", ButtonData:>"GAD", ButtonStyle->"Hyperlink", ButtonNote->"GAD"], ", ", ButtonBox["GS", ButtonData:>"GS", ButtonStyle->"Hyperlink", ButtonNote->"GS"], ", ", ButtonBox["GSD", ButtonData:>"GSD", ButtonStyle->"Hyperlink", ButtonNote->"GSD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", RowBox[{"DiracMatrix", "[", "\[Nu]", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracMatrix", "[", "\[Alpha]", "]"}], "//", "InputForm"}]], "Input"], Cell[TextData["DiracGamma[LorentzIndex[\[Alpha]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], "//", "FCE"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData["GA[\[Mu]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GAD", "[", "\[Mu]", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"%", "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell[TextData["DiracGamma[LorentzIndex[\[Mu], D], D]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Rho]"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracOrder", "Section", CellTags->"DiracOrder"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DiracOrder[expr] orders the Dirac matrices in expr alphabetically. DiracOrder[expr,orderlist] orders the Dirac matrices in expr according to orderlist.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", " ", "=", " ", RowBox[{"GA", "[", RowBox[{"\[Beta]", ",", "\[Alpha]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Alpha]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracOrder", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell["This is a string of Dirac matrices in D dimensions. ", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{"GAD", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Mu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracOrder", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t3", "=", RowBox[{"GA", "[", RowBox[{"5", ",", "\[Mu]", ",", "\[Nu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "By default ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "^", "5"}], " ", "is", "moved", "to", "the", " ", RowBox[{"right", "."}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracOrder", "[", "t3", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "5"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t4", "=", RowBox[{"GA", "[", RowBox[{"6", ",", "\[Mu]", ",", "7"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "6"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "7"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracOrder", "[", "t4", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "7"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t5", "=", RowBox[{"GA", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Delta]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Delta]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "This orders the ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "^", FormBox["\[Alpha]", "TraditionalForm"]}], RowBox[{"\[Gamma]", "^", FormBox["\[Beta]", "TraditionalForm"]}], RowBox[{"\[Gamma]", "^", FormBox["\[Delta]", "TraditionalForm"]}]}], TraditionalForm]]], " in reverse order." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracOrder", "[", RowBox[{"t5", ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "\[Beta]", ",", "\[Alpha]"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Delta]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Alpha]"]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["\[Gamma]", "\[Delta]"], " ", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]]}], "-", RowBox[{"2", " ", SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Delta]"}]]}], "+", RowBox[{"2", " ", SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["g", RowBox[{"\[Beta]", "\[Delta]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracOrder", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Delta]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t1", ",", "t2", ",", "t3", ",", "t4", ",", "t5"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracReduce", "Section", CellTags->"DiracReduce"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DiracReduce[exp] reduces all four-dimensional Dirac matrices in exp \ to the standard basis (S,P,V,A,T) using the Chisholm identity (see Chisholm). In the \ result the basic Dirac structures are wrapped with a head DiracBasis. I.e., S corresponds to DiracBasis[1], P : DiracBasis[DiracMatrix[5]], V: DiracBasis[DiracMatrix[mu]], A: DiracBasis[DiracMatrix[mu, 5]], T: DiracBasis[DiracSigma[DiracMatrix[mu, nu]]]. By default DiracBasis is substituted to Identity. Notice that the result of DiracReduce is given in the FeynCalcExternal - way, i.e.,evtl. you may have \ to use FeynCalcInternal on the result.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "DiracReduce", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Factoring", "\[Rule]", "False"}], ",", RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", RowBox[{"DiracBasis", "\[Rule]", "Identity"}], "}"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", " ", "=", " ", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracReduce", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Sigma]", RowBox[{"\[Mu]", "\[Nu]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData["t2 = DiracMatrix[\[Mu],\[Nu],\[Rho]]"], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], SuperscriptBox["\[Gamma]", "\[Nu]"], SuperscriptBox["\[Gamma]", "\[Rho]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["DiracReduce[t2]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", RowBox[{"$MU", "(", "1", ")"}]], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]", "\[Nu]", "\[Rho]", FormBox[ RowBox[{"$MU", "(", "1", ")"}], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]]}], "+", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData["t3 = DiracMatrix[\[Mu],\[Nu],\[Rho],\[Sigma]]"], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], SuperscriptBox["\[Gamma]", "\[Nu]"], SuperscriptBox["\[Gamma]", "\[Rho]"], SuperscriptBox["\[Gamma]", "\[Sigma]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["t4 = DiracReduce[t3]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]", "\[Nu]", "\[Rho]", "\[Sigma]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Sigma]", RowBox[{"\[Rho]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Sigma]", RowBox[{"\[Nu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Sigma]", RowBox[{"\[Nu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Sigma]", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Sigma]", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Sigma]", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t5", " ", "=", RowBox[{"Calc", "[", RowBox[{"DiracSimplify", "[", RowBox[{"DiracSigmaExplicit", "[", RowBox[{"t4", ".", "t4"}], "]"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "128"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", RowBox[{"t4", ".", "t4"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "128"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t1", ",", "t2", ",", "t3", ",", "t4"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracSigmaExplicit", "Section", CellTags->"DiracSigmaExplicit"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DiracSigmaExplicit[exp] inserts in exp for all DiracSigma its \ definition. DiracSigmaExplict is also an option of DiracSimplify.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracSigma", ButtonData:>"DiracSigma", ButtonStyle->"Hyperlink", ButtonNote->"DiracSigma"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSigma", "[", RowBox[{ RowBox[{"GA", "[", "\[Alpha]", "]"}], ",", RowBox[{"GA", "[", "\[Beta]", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Sigma]", RowBox[{"\[Alpha]", "\[Beta]"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSigmaExplicit", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Alpha]"]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracSigma", "Section", CellTags->"DiracSigma"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DiracSigma[a, b] stands for i/2*(a . b - b . a) in 4 dimensions. a \ and b must have Head DiracGamma, DiracMatrix or DiracSlash. Only antisymmetry \ is implemented.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracSigmaExplicit", ButtonData:>"DiracSigmaExplicit", ButtonStyle->"Hyperlink", ButtonNote->"DiracSigmaExplicit"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[TextData["t1 = DiracSigma[GA[\[Alpha]],GA[\[Beta]]]"], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Sigma]", RowBox[{"\[Alpha]", "\[Beta]"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["DiracSigmaExplicit[t1]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Alpha]"]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData["t2 = DiracSigma[GA[\[Beta]],GA[\[Alpha]]]"], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", SuperscriptBox["\[Sigma]", RowBox[{"\[Alpha]", "\[Beta]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["t3 = DiracSigma[GS[p],GS[q]]", "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Sigma]", RowBox[{"p", "q"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSigmaExplicit", "[", "t3", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t1", ",", "t2", ",", "t3"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracSimplify", "Section", CellTags->"DiracSimplify"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DiracSimplify[expr] simplifies products of Dirac matrices in expr \ and expands non-commutative products. Double Lorentz indices and four vectors are \ contracted. The Dirac equation is applied. All DiracMatrix[5], DiracMatrix[6] and DiracMatrix[7] are moved to the right. \ The order of the other Dirac matrices is not changed.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "DiracSimplify", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"DiracCanonical", "\[Rule]", "False"}], ",", RowBox[{"DiracSigmaExplicit", "\[Rule]", "True"}], ",", RowBox[{"DiracSimpCombine", "\[Rule]", "False"}], ",", RowBox[{"DiracSubstitute67", "\[Rule]", "False"}], ",", RowBox[{"Expanding", "\[Rule]", "True"}], ",", RowBox[{"Factoring", "\[Rule]", "False"}], ",", RowBox[{"FeynCalcInternal", "\[Rule]", "False"}], ",", RowBox[{"InsideDiracTrace", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["Calc", ButtonData:>"Calc", ButtonStyle->"Hyperlink", ButtonNote->"Calc"], ", ", ButtonBox["DiracGammaExpand", ButtonData:>"DiracGammaExpand", ButtonStyle->"Hyperlink", ButtonNote->"DiracGammaExpand"], ", ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["This is a string of Dirac matrices in four dimensions. ", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Mu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell["This is a string of Dirac matrices in D dimensions. ", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{"GAD", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Mu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t3", "=", RowBox[{"GA", "[", RowBox[{"5", ",", "\[Mu]", ",", "\[Nu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "By default ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "^", "5"}], " ", "is", "moved", "to", "the", " ", RowBox[{"right", "."}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", "t3", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "5"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t4", "=", RowBox[{"GA", "[", RowBox[{"6", ",", "\[Mu]", ",", "7"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "6"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "7"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", "t4", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "7"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t5", "=", RowBox[{ RowBox[{"GS", "[", RowBox[{"a", "+", "b"}], "]"}], " ", ".", " ", RowBox[{"GS", "[", "p", "]"}], ".", RowBox[{"GS", "[", "p", "]"}], ".", RowBox[{"GS", "[", RowBox[{"c", "+", "d"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "\[CenterDot]", "(", FormBox[ RowBox[{"a", "+", "b"}], "TraditionalForm"], ")"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "(", FormBox[ RowBox[{"c", "+", "d"}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Contrary to DiracTrick DiracSimplify does non-commutative \ expansion.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", "t5", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["a", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["c", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["a", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["d", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["b", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["c", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["b", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["d", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrick", "[", "t5", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"a", "+", "b"}], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"c", "+", "d"}], "TraditionalForm"], ")"}]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t6", " ", "=", " ", RowBox[{ RowBox[{"SpinorVBar", "[", "p", "]"}], " ", ".", " ", RowBox[{"GS", "[", "p", "]"}], " ", ".", " ", RowBox[{"SpinorUBar", "[", "q", "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox[ OverscriptBox["\<\"v\"\>", "_"], "TraditionalForm"], "(", "p", ")"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], " ", RowBox[{ FormBox[ OverscriptBox["\<\"u\"\>", "_"], "TraditionalForm"], "(", "q", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", "t6", "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GAD", "@@", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["\[Nu]", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"{", "\[Mu]", "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"D", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ With the option DiracCanonical an alphabetic ordering is \ done.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", RowBox[{ RowBox[{"GA", "[", RowBox[{"\[Nu]", ",", "\[Mu]"}], "]"}], ",", RowBox[{"DiracCanonical", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[ "Setting InsideDiracTrace\[Rule]True assumes that a trace is still to be \ taken (later)."], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", RowBox[{ RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], ",", RowBox[{"InsideDiracTrace", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", RowBox[{ RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}], ",", RowBox[{"InsideDiracTrace", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t1", ",", "t2", ",", "t3", ",", "t4", ",", "t5", ",", "t6"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracSimplify2", "Section", CellTags->"DiracSimplify2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "DiracSimplify2[exp] simplifies the Dirac structure but leaves any ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "5"], TraditionalForm]]], " untouched." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GAD", "[", RowBox[{ "\[Mu]", ",", "\[Nu]", ",", "\[Mu]", ",", "5", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Alpha]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Alpha]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify2", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", SuperscriptBox["\[Gamma]", "\[Beta]"], " ", SuperscriptBox["\[Gamma]", "\[Alpha]"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracSlash", "Section", CellTags->"DiracSlash"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "DiracSlash[p] is the contraction ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"p", "^", "\[Mu]"}], SubscriptBox["\[Gamma]", "\[Mu]"], " "}], TraditionalForm]]], "(FourVector[p, \[Mu]] DiracMatrix[\[Mu]]). Products of those can be \ entered in the form DiracSlash[p1, p2, ...]." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "DiracSlash", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Dimension", "\[Rule]", "4"}], ",", RowBox[{"FeynCalcInternal", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracGammaExpand", ButtonData:>"DiracGammaExpand", ButtonStyle->"Hyperlink", ButtonNote->"DiracGammaExpand"], ", ", ButtonBox["DiracGamma", ButtonData:>"DiracGamma", ButtonStyle->"Hyperlink", ButtonNote->"DiracGamma"], ", ", ButtonBox["DiracMatrix", ButtonData:>"DiracMatrix", ButtonStyle->"Hyperlink", ButtonNote->"DiracMatrix"], ", ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], ", ", ButtonBox["GS", ButtonData:>"GS", ButtonStyle->"Hyperlink", ButtonNote->"GS"], ", ", ButtonBox["GSD", ButtonData:>"GSD", ButtonStyle->"Hyperlink", ButtonNote->"GSD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[TextData[{ "This is q\[NegativeMediumSpace]\[NegativeThinSpace]/ (= ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]", "^", "\[Mu]"}], SubscriptBox["q", "\[Mu]"]}], ")"}], "."}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSlash", "[", "q", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracSlash", "[", "p", "]"}], ".", RowBox[{"DiracSlash", "[", "q", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSlash", "[", RowBox[{"p", ",", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GS", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracSlash", "[", "q", "]"}], "//", "InputForm"}]], "Input"], Cell["DiracGamma[Momentum[q]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracSlash", "[", RowBox[{"q", ",", RowBox[{"Dimension", "->", "n"}]}], "]"}], "//", "InputForm"}]], "Input"], Cell["DiracGamma[Momentum[q, n], n]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracTrace", "Section", CellTags->"DiracTrace"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DiracTrace[expr] is the head of Dirac Traces. Whether the trace is \ evaluated depends on the option DiracTraceEvaluate. Direct trace evaluation \ is performed by Tr. The argument expr may be a product of Dirac matrices or slashes separated by the Mathematica Dot \".\".\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "DiracTrace", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"EpsContract", "\[Rule]", "False"}], ",", RowBox[{"Factoring", "\[Rule]", "False"}], ",", RowBox[{"FeynCalcExternal", "\[Rule]", "False"}], ",", RowBox[{"Mandelstam", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"PairCollect", "\[Rule]", "True"}], ",", RowBox[{"DiracTraceEvaluate", "\[Rule]", "False"}], ",", RowBox[{"Schouten", "\[Rule]", "0"}], ",", RowBox[{"LeviCivitaSign", "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "For comments regarding ", Cell[BoxData[ FormBox[ RowBox[{"\[Gamma]", "^", "5"}], TraditionalForm]]], "schemes see the notes for Tr." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Tr", ButtonData:>"Tr", ButtonStyle->"Hyperlink", ButtonNote->"Tr"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrace", "[", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrace", "[", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Sigma]"]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", " ", "/.", " ", RowBox[{"DiracTrace", "\[Rule]", "Tr"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrace", "[", RowBox[{ RowBox[{"GA", "[", RowBox[{ "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "5"}], "]"}], ",", RowBox[{"DiracTraceEvaluate", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrace", "[", RowBox[{ RowBox[{"GA", "[", RowBox[{ "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Delta]", ",", "\[Tau]", ",", "5"}], "]"}], ",", RowBox[{"DiracTraceEvaluate", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Delta]", "\[Mu]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Delta]", "\[Nu]"}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Delta]", "\[Rho]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Delta]", "\[Sigma]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Delta]", "\[Tau]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Tau]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Tau]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Tau]"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{"\[Sigma]", "\[Tau]"}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrace", "[", RowBox[{"GS", "[", RowBox[{"p", ",", "q", ",", "r", ",", "s"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "q"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "r"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "s"}]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrace", "[", RowBox[{ RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], ",", RowBox[{"DiracTraceEvaluate", "\[Rule]", "True"}], ",", RowBox[{"FCE", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData["4*MT[\[Mu], \[Nu]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DiracTrick", "Section", CellTags->"DiracTrick"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "DiracTrick[exp] contracts \[Gamma]-matrices with each other and performs \ several simplifications (no expansion, use Calc or DiracSimplify for this)."], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "DiracTrick", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Expanding", "\[Rule]", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["Calc", ButtonData:>"Calc", ButtonStyle->"Hyperlink", ButtonNote->"Calc"], ", ", ButtonBox["DiracGammaExpand", ButtonData:>"DiracGammaExpand", ButtonStyle->"Hyperlink", ButtonNote->"DiracGammaExpand"], ", ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["This is a string of Dirac matrices in four dimensions. ", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Mu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrick", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell["This is a string of Dirac matrices in D dimensions. ", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{"GAD", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Mu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrick", "[", "t2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"2", "-", "D"}], ")"}], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t3", "=", RowBox[{"GA", "[", RowBox[{"5", ",", "\[Mu]", ",", "\[Nu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "5"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "By default ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "^", "5"}], " ", "is", "moved", "to", "the", " ", RowBox[{"right", "."}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrick", "[", "t3", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "5"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t4", "=", RowBox[{"GA", "[", RowBox[{"6", ",", "\[Mu]", ",", "7"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "6"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "7"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrick", "[", "t4", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "7"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t5", "=", RowBox[{ RowBox[{"GS", "[", RowBox[{"a", "+", "b"}], "]"}], " ", ".", " ", RowBox[{"GS", "[", "p", "]"}], ".", RowBox[{"GS", "[", "p", "]"}], ".", RowBox[{"GS", "[", RowBox[{"c", "+", "d"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "\[CenterDot]", "(", FormBox[ RowBox[{"a", "+", "b"}], "TraditionalForm"], ")"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "(", FormBox[ RowBox[{"c", "+", "d"}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrick", "[", "t5", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"a", "+", "b"}], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"c", "+", "d"}], "TraditionalForm"], ")"}]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", "t5", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["a", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["c", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["a", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["d", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["b", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["c", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["b", "TraditionalForm"]}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["d", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GAD", "@@", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["\[Nu]", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"{", "\[Mu]", "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrick", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"D", "-", "12"}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "6"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "5"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "1"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "2"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "3"]], " ", SuperscriptBox["\[Gamma]", SubscriptBox["\[Nu]", "4"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DotSimplify", "Section", CellTags->"DotSimplify"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ DotSimplify[expr] expands and reorders noncommutative terms in \ expr. Simplifying relations may be specified by the option DotSimplifyRelations or \ by Commutator and AntiCommutator definitions. Whether expr is expanded noncommutatively depends on the option \ Expanding.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "DotSimplify", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Expanding", "\[Rule]", "True"}], ",", RowBox[{"DotSimplifyRelations", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"DotPower", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["AntiCommutator", ButtonData:>"AntiCommutator", ButtonStyle->"Hyperlink", ButtonNote->"AntiCommutator"], ", ", ButtonBox["Commutator", ButtonData:>"Commutator", ButtonStyle->"Hyperlink", ButtonNote->"Commutator"], ", ", ButtonBox["Calc", ButtonData:>"Calc", ButtonStyle->"Hyperlink", ButtonNote->"Calc"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{ RowBox[{"GA", "[", "\[Mu]", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"GS", "[", "p", "]"}]}], "-", RowBox[{"GS", "[", "q", "]"}]}], ")"}], ".", RowBox[{"GA", "[", "\[Nu]", "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}]}], "-", RowBox[{"\[Gamma]", "\[CenterDot]", "q"}]}], ")"}], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], ")"}]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "q"}], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"DeclareNonCommutative", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{"a", ".", RowBox[{"(", RowBox[{"b", "-", RowBox[{"z", " ", "c"}]}], ")"}], ".", "a"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"b", "-", RowBox[{"c", " ", "z"}]}], ")"}], " ", "a"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", "t2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "b", " ", "a"}], "-", RowBox[{"z", " ", RowBox[{"(", RowBox[{"a", " ", "c", " ", "a"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Commutator", "[", RowBox[{"a", ",", "c"}], "]"}], "=", "1"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", "t2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "b", " ", "a"}], "-", RowBox[{"z", " ", RowBox[{"(", RowBox[{"a", "+", RowBox[{"c", " ", SuperscriptBox["a", "2"]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Commutator", "[", RowBox[{"a", ",", "c"}], "]"}], "=", "."}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", "t2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "b", " ", "a"}], "-", RowBox[{"z", " ", RowBox[{"(", RowBox[{"a", " ", "c", " ", "a"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntiCommutator", "[", RowBox[{"b", ",", "a"}], "]"}], "=", "c"}]], "Input"], Cell[BoxData[ FormBox["c", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", "t2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "c"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", "b"}], "-", RowBox[{"z", " ", RowBox[{"(", RowBox[{"a", " ", "c", " ", "a"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"AntiCommutator", "[", RowBox[{"b", ",", "a"}], "]"}], "=", "."}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", RowBox[{"t2", ",", RowBox[{"DotSimplifyRelations", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"a", ".", "c"}], "\[Rule]", RowBox[{"1", "/", "z"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "b", " ", "a"}], "-", "a"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"DeclareNonCommutative", "[", "x", "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", RowBox[{"x", ".", "x", ".", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["x", "3"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DotSimplify", "[", RowBox[{ RowBox[{"x", ".", "x", ".", "x"}], ",", RowBox[{"DotPower", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"x", " ", "x", " ", "x"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"UnDeclareNonCommutative", "[", RowBox[{"a", ",", "b", ",", "c", ",", "x"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["EpsChisholm", "Section", CellTags->"EpsChisholm"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ EpsChisholm[expr] substitutes for a gamma matrix contracted with a \ Levi Civita tensor (Eps) the Chisholm identity.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Chisholm", ButtonData:>"Chisholm", ButtonStyle->"Hyperlink", ButtonNote->"Chisholm"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Chisholm", "[", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "$MU$667"], " ", SuperscriptBox["\[Gamma]", "\[Sigma]"], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["$MU$667", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Sigma]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Sigma]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Sigma]"]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EpsChisholm", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Sigma]"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["EpsEvaluate", "Section", CellTags->"EpsEvaluate"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ EpsEvaluate[expr] applies total antisymmetry and linearity (w.r.t. Momentum's) to all Levi-Civita tensors (Eps') in expr.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Contract", ButtonData:>"Contract", ButtonStyle->"Hyperlink", ButtonNote->"Contract"], ", ", ButtonBox["Eps", ButtonData:>"Eps", ButtonStyle->"Hyperlink", ButtonNote->"Eps"], ", ", ButtonBox["LeviCivita", ButtonData:>"LeviCivita", ButtonStyle->"Hyperlink", ButtonNote->"LeviCivita"], ", ", ButtonBox["Trick", ButtonData:>"Trick", ButtonStyle->"Hyperlink", ButtonNote->"Trick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Trick", "[", RowBox[{ RowBox[{"LeviCivita", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], " ", RowBox[{"FourVector", "[", RowBox[{ RowBox[{"p", "+", "q"}], ",", "\[Sigma]"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ RowBox[{"p", "+", "q"}], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EpsEvaluate", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], "+", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["q", "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input"], Cell[TextData[ "Eps[LorentzIndex[\[Mu]], LorentzIndex[\[Nu]], \n LorentzIndex[\[Rho]], \ Momentum[p]] + \n Eps[LorentzIndex[\[Mu]], LorentzIndex[\[Nu]], \n \ LorentzIndex[\[Rho]], Momentum[q]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Epsilon", "Section", CellTags->"Epsilon"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "Epsilon is (", StyleBox["n", FontSlant->"Italic"], "-4), where ", StyleBox["n", FontSlant->"Italic"], " is the space-time dimension. Epsilon stands for a small positive number." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Series2", ButtonData:>"Series2", ButtonStyle->"Hyperlink", ButtonNote->"Series2"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData["Epsilon"], "Input"], Cell[BoxData[ FormBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Epsilon has no functional properties, but some upvalues are \ changed:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Re", "[", "Epsilon", "]"}], " ", ">", " ", RowBox[{"-", "4"}]}], ",", RowBox[{ RowBox[{"Re", "[", "Epsilon", "]"}], " ", ">", " ", RowBox[{"-", "3"}]}], ",", RowBox[{ RowBox[{"Re", "[", "Epsilon", "]"}], " ", ">", " ", RowBox[{"-", "2"}]}], ",", RowBox[{ RowBox[{"Re", "[", "Epsilon", "]"}], " ", ">", " ", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"Re", "[", "Epsilon", "]"}], " ", ">", " ", "0"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Eps", "Section", CellTags->"Eps"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "Eps[a, b, c, d] is the head of the totally antisymmetric \[Epsilon] - \ (Levi-Civita) tensor. The a,b, ... may have head LorentzIndex, Momentum or \ Integer. In case of integers the Levi-Civita tensor is evaluated immediately. \ "], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Eps", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Dimension", "\[Rule]", "4"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["EpsEvaluate", ButtonData:>"EpsEvaluate", ButtonStyle->"Hyperlink", ButtonNote->"EpsEvaluate"], ", ", ButtonBox["LC", ButtonData:>"LC", ButtonStyle->"Hyperlink", ButtonNote->"LC"], ", ", ButtonBox["LCD", ButtonData:>"LCD", ButtonStyle->"Hyperlink", ButtonNote->"LCD"], ", ", ButtonBox["LeviCivita", ButtonData:>"LeviCivita", ButtonStyle->"Hyperlink", ButtonNote->"LeviCivita"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eps", "[", RowBox[{ RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}], ",", RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}], ",", RowBox[{"LorentzIndex", "[", "\[Rho]", "]"}], ",", RowBox[{"LorentzIndex", "[", "\[Sigma]", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eps", "[", RowBox[{ RowBox[{"Momentum", "[", "p", "]"}], ",", RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}], ",", RowBox[{"LorentzIndex", "[", "\[Rho]", "]"}], ",", RowBox[{"LorentzIndex", "[", "\[Sigma]", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Eps", "[", RowBox[{"b", ",", "a", ",", "c", ",", "d"}], "]"}], "//", "InputForm"}]], "Input"], Cell["-Eps[a, b, c, d]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eps", "[", RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eps", "[", RowBox[{"1", ",", "0", ",", "2", ",", "3"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Eps", ",", RowBox[{"Dimension", "\[Rule]", "4"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", " ", "=", RowBox[{"Eps", "[", RowBox[{ RowBox[{"LorentzIndex", "[", RowBox[{"\[Mu]", ",", "D"}], "]"}], ",", RowBox[{"LorentzIndex", "[", RowBox[{"\[Nu]", ",", "D"}], "]"}], ",", RowBox[{"LorentzIndex", "[", RowBox[{"\[Rho]", ",", "D"}], "]"}], ",", RowBox[{"LorentzIndex", "[", RowBox[{"\[Sigma]", ",", "D"}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", RowBox[{"a1", "a1"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "24"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Eps", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", " ", "=", RowBox[{"Eps", "[", RowBox[{ RowBox[{"LorentzIndex", "[", RowBox[{"\[Mu]", ",", "D"}], "]"}], ",", RowBox[{"LorentzIndex", "[", RowBox[{"\[Nu]", ",", "D"}], "]"}], ",", RowBox[{"LorentzIndex", "[", RowBox[{"\[Rho]", ",", "D"}], "]"}], ",", RowBox[{"LorentzIndex", "[", RowBox[{"\[Sigma]", ",", "D"}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Contract", "[", RowBox[{"a2", "a2"}], "]"}], "//", "Factor2"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "-", "D"}], ")"}], " ", "D"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[ "g5 = -I/24 LCD[\[Mu],\[Nu],\[Rho],\[Alpha]] . GAD[\[Mu],\[Nu],\[Rho], \ \[Alpha]]//FCI"], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "24"]}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Alpha]"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[ "g5p = -I/24 LCD[\[Mu]',\[Nu]',\[Rho]',\[Alpha]'] . \n GAD[\[Mu]',\[Nu]', \ \[Rho]',\[Alpha]']//FCI"], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "24"]}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox[ SuperscriptBox["\[Mu]", "\[Prime]", MultilineFunction->None], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SuperscriptBox["\[Nu]", "\[Prime]", MultilineFunction->None], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SuperscriptBox["\[Rho]", "\[Prime]", MultilineFunction->None], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SuperscriptBox["\[Alpha]", "\[Prime]", MultilineFunction->None], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["\[Gamma]", FormBox[ SuperscriptBox["\[Mu]", "\[Prime]", MultilineFunction->None], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", FormBox[ SuperscriptBox["\[Nu]", "\[Prime]", MultilineFunction->None], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", FormBox[ SuperscriptBox["\[Rho]", "\[Prime]", MultilineFunction->None], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", FormBox[ SuperscriptBox["\[Alpha]", "\[Prime]", MultilineFunction->None], "TraditionalForm"]]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["g52 = Calc[g5 . g5p]//Factor2", "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "24"]}], " ", RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "-", "D"}], ")"}], " ", "D"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g52", "/.", RowBox[{"D", "\[Rule]", "4"}]}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"a1", ",", "a2", ",", "g5", ",", "g5p"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ExpandPartialD", "Section", CellTags->"ExpandPartialD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ ExpandPartialD[exp] expands all products of QuantumField's and \ partial differentiation operators in exp and applies Leibniz rule.\ \>", "Text"], Cell[TextData[{ "See also: ", ButtonBox["ExplicitPartialD", ButtonData:>"ExplicitPartialD", ButtonStyle->"Hyperlink", ButtonNote->"ExplicitPartialD"], ", ", ButtonBox["LeftPartialD", ButtonData:>"LeftPartialD", ButtonStyle->"Hyperlink", ButtonNote->"LeftPartialD"], ", ", ButtonBox["LeftRightPartialD", ButtonData:>"LeftRightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"LeftRightPartialD"], ", ", ButtonBox["RightPartialD", ButtonData:>"RightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"RightPartialD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RightPartialD", "[", "\[Mu]", "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}]}], "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["A", "\[Mu]"], " ", SubscriptBox["A", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["A", "\[Mu]"], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], " ", SubscriptBox["A", "\[Nu]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "QuantumField[A, LorentzIndex[\[Mu]]] . \n \ QuantumField[PartialD[LorentzIndex[\[Mu]]], A, \n LorentzIndex[\[Nu]]] + \n\ QuantumField[PartialD[LorentzIndex[\[Mu]]], A, \n LorentzIndex[\[Mu]]] . \ \n QuantumField[A, LorentzIndex[\[Nu]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LeftRightPartialD", "[", "\[Mu]", "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["A", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], "2"], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["A", "\[Nu]"]}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}]}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"LeftRightPartialD", "[", "OPEDelta", "]"}], "^", "2"}], ")"}], ".", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Rho]", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "\[Mu]"], " ", SubsuperscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"], "2"], " ", SubscriptBox["A", "\[Rho]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["A", "\[Mu]"], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ SuperscriptBox["\[CapitalDelta]", "2"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox["\[CapitalDelta]", "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox["\[CapitalDelta]", "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ SuperscriptBox["\[CapitalDelta]", "2"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], " ", SubscriptBox["A", "\[Rho]"]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"8", " ", RowBox[{ RowBox[{"LeftRightPartialD", "[", "OPEDelta", "]"}], "^", "3"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"8", " ", SubsuperscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"], "3"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExplicitPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], "-", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], "-", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], "-", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], " ", SubsuperscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], RowBox[{" ", FormBox["\[CapitalDelta]", "TraditionalForm"]}], FormBox["2", "TraditionalForm"]]}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], RowBox[{" ", FormBox["\[CapitalDelta]", "TraditionalForm"]}], FormBox["2", "TraditionalForm"]], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]]}], ")"}]}], "-", SubsuperscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], RowBox[{" ", FormBox["\[CapitalDelta]", "TraditionalForm"]}], FormBox["3", "TraditionalForm"]], "+", SubsuperscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], RowBox[{" ", FormBox["\[CapitalDelta]", "TraditionalForm"]}], FormBox["3", "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LeviCivita", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}], "]"}], " ", RowBox[{"RightPartialD", "[", RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Beta]", ",", "\[Nu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ExpandScalarProduct", "Section", CellTags->"ExpandScalarProduct"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ ExpandScalarProduct[expr] expands scalar products of sums of \ momenta in expr. ExpandScalarProduct does not use Expand on expr.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Calc", ButtonData:>"Calc", ButtonStyle->"Hyperlink", ButtonNote->"Calc"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SP", "[", RowBox[{"p", ",", RowBox[{"p", "-", "q"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandScalarProduct", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "-", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FV", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandScalarProduct", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "-", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SP", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", RowBox[{"q", "-", "r"}]}], "]"}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")", "\[CenterDot]", "(", FormBox[ RowBox[{"q", "-", "r"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", RowBox[{"Pair", "\[Rule]", "ExpandScalarProduct"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "-", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "-", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], "+", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Explicit", "Section", CellTags->"Explicit"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Explicit is an option for FieldStrength, GluonVertex, SUNF, and Twist2GluonOperator. If set to True the full form of the operator is inserted. Explicit[exp] inserts explicit expressions of GluonVertex and Twist2GluonOperator in exp. \ SUNF's are replaced by SUNTrace objects.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["GluonVertex", ButtonData:>"GluonVertex", ButtonStyle->"Hyperlink", ButtonNote->"GluonVertex"], ", ", ButtonBox["Twist2GluonOperator", ButtonData:>"Twist2GluonOperator", ButtonStyle->"Hyperlink", ButtonNote->"Twist2GluonOperator"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonVertex", "[", RowBox[{ "p", ",", "\[Mu]", ",", "a", ",", " ", "q", ",", "\[Nu]", ",", "b", ",", "r", ",", "\[Rho]", ",", "c"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox["p", "TraditionalForm"], RowBox[{",", " "}], FormBox["q", "TraditionalForm"], RowBox[{",", " "}], 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[ RowBox[{"Explicit", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], 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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{"p", ",", "\[Mu]", ",", "a", ",", "\[Nu]", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"], "+", "1"}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], 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[ RowBox[{"Explicit", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"], "+", "1"}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "a"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox["F", RowBox[{"\[Mu]", "\[Nu]"}], "a"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Explicit", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b1", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c10", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b1", "\[NoBreak]", "c10"}]]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ExplicitPartialD", "Section", CellTags->"ExplicitPartialD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ ExplicitPartialD[exp] inserts in exp the definition for \ LeftRightPartialD[z] (and LeftRightPartialD2[z]).\ \>", "Text"], Cell[TextData[{ "See also: ", ButtonBox["ExpandPartialD", ButtonData:>"ExpandPartialD", ButtonStyle->"Hyperlink", ButtonNote->"ExpandPartialD"], ", ", ButtonBox["LeftRightPartialD", ButtonData:>"LeftRightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"LeftRightPartialD"], ", ", ButtonBox["LeftRightPartialD2", ButtonData:>"LeftRightPartialD2", ButtonStyle->"Hyperlink", ButtonNote->"LeftRightPartialD2"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExplicitPartialD", "[", " ", RowBox[{"LeftRightPartialD", "[", "\[Mu]", "]"}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "-", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExplicitPartialD", "[", " ", RowBox[{"LeftRightPartialD2", "[", "\[Mu]", "]"}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "+", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExplicitPartialD", "[", " ", RowBox[{"LeftRightPartialD", "[", "OPEDelta", "]"}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]], "-", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"]]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"16", " ", RowBox[{ RowBox[{"LeftRightPartialD", "[", "OPEDelta", "]"}], "^", "4"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"16", " ", SubsuperscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox["\[CapitalDelta]", "TraditionalForm"], "4"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Factor2", "Section", CellTags->"Factor2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Factor2[poly] factors a polynomial in a standard way. Factor2 works \ (sometimes) better than Factor on polynomials involving rationals with sums \ in the denominator. Factor2 uses Factor internally and is in general slower than Factor. There are four possible settings of the option Method (0,1,2,3). \ In general Factor will work faster than Factor2.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Factor2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"FactorFull", "\[Rule]", "False"}], ",", RowBox[{"Method", "\[Rule]", "3"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["Collect2", ButtonData:>"Collect2", ButtonStyle->"Hyperlink", ButtonNote->"Collect2"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}], RowBox[{"(", RowBox[{"b", "-", "x"}], ")"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "x"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{"{", RowBox[{ RowBox[{"Factor2", "[", "t1", "]"}], ",", " ", RowBox[{"Factor", "[", "t1", "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "x"}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}], " ", RowBox[{"(", RowBox[{"x", "-", "b"}], ")"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t3", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["a", "2"], "-", SuperscriptBox["b", "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor", "[", "t3", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor2", "[", "t3", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["a", "2"], "-", SuperscriptBox["b", "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor2", "[", RowBox[{"t3", ",", RowBox[{"FactorFull", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t1", ",", "t2", ",", "t3"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FAD", "Section", CellTags->"FAD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FAD is the FeynCalc external form of FeynAmpDenominator and \ denotes an inverse propagator. FAD[q, q-p, ...] is 1/(q^2 (q-p)^2 ...). FAD[{q1,m}, {q1-p,m}, q2, ...] is 1/( (q1^2 - m^2) ( (q1-p)^2 - m^2 ) q2^2 ... ). Translation into FeynCalc internal form is performed by \ FeynCalcInternal.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FAD", ButtonData:>"FAD", ButtonStyle->"Hyperlink", ButtonNote->"FAD"], ", ", ButtonBox["FCE", ButtonData:>"FCE", ButtonStyle->"Hyperlink", ButtonNote->"FCE"], ", ", ButtonBox["FCI", ButtonData:>"FCI", ButtonStyle->"Hyperlink", ButtonNote->"FCI"], ", ", ButtonBox["FeynAmpDenominator", ButtonData:>"FeynAmpDenominator", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmpDenominator"], ", ", ButtonBox["FeynAmpDenominatorSimplify", ButtonData:>"FeynAmpDenominatorSimplify", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmpDenominatorSimplify"], ", ", ButtonBox["PropagatorDenominator", ButtonData:>"PropagatorDenominator", ButtonStyle->"Hyperlink", ButtonNote->"PropagatorDenominator"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{"p", "-", "q"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ p, Times[ -1, q]], 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ q, 2], "]"], Editable->False], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FAD", "[", RowBox[{"p", ",", RowBox[{"{", RowBox[{ RowBox[{"p", "-", "q"}], ",", "m"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["p", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ p, 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", SuperscriptBox["m", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ p, Times[ -1, q]], 2], "-", Power[ m, 2], "]"], Editable->False], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{"p", "-", "q"}]}], "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["FAD[q, p - q]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{"p", "-", "q"}]}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["\<\ FeynAmpDenominator[PropagatorDenominator[Momentum[q, D], 0], PropagatorDenominator[Momentum[p, D] - Momentum[q, D], 0]]\ \>", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FAD", "[", "p", "]"}], " ", RowBox[{"FAD", "[", RowBox[{"p", "-", "q"}], "]"}]}], " ", "//", " ", "FeynAmpDenominatorCombine"}], "//", "InputForm"}]], "Input"], Cell["\<\ FeynAmpDenominator[PropagatorDenominator[Momentum[p, D], 0], PropagatorDenominator[Momentum[p, D] - Momentum[q, D], 0]]\ \>", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FCE", "Section", CellTags->"FCE"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FCE[exp] translates exp from the internal FeynCalc representation \ to a short form.\ \>", "Text"], Cell["FCE is equivalent to FeynCalcExternal.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynCalcExternal", ButtonData:>"FeynCalcExternal", ButtonStyle->"Hyperlink", ButtonNote->"FeynCalcExternal"], ", ", ButtonBox["FCI", ButtonData:>"FCI", ButtonStyle->"Hyperlink", ButtonNote->"FCI"], ", ", ButtonBox["FeynCalcInternal", ButtonData:>"FeynCalcInternal", ButtonStyle->"Hyperlink", ButtonNote->"FeynCalcInternal"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FCE", "[", RowBox[{"{", RowBox[{ RowBox[{"DiracGamma", "[", "5", "]"}], ",", RowBox[{"DiracGamma", "[", RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "5"], ",", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["{GA[5], GS[p]}", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"GA", "[", "\[Mu]", "]"}], ",", RowBox[{"GAD", "[", "\[Rho]", "]"}], ",", RowBox[{"GS", "[", "p", "]"}], ",", RowBox[{"SP", "[", RowBox[{"p", ",", "q"}], "]"}], ",", RowBox[{"MT", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", RowBox[{"FV", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], ",", SuperscriptBox["\[Gamma]", "\[Rho]"], ",", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], ",", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ",", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], ",", SuperscriptBox["p", "\[Mu]"]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "{GA[\[Mu]], GAD[\[Rho]], GS[p], SP[p, q], \n MT[\[Alpha], \[Beta]], FV[p, \ \[Mu]]}"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], ",", SuperscriptBox["\[Gamma]", "\[Rho]"], ",", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ",", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ",", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], ",", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "{DiracGamma[LorentzIndex[\[Mu]]], \n DiracGamma[LorentzIndex[\[Rho], D], \ D], \n DiracGamma[Momentum[p]], Pair[Momentum[p], Momentum[q]], \n \ Pair[LorentzIndex[\[Alpha]], LorentzIndex[\[Beta]]], \n Pair[LorentzIndex[\ \[Mu]], Momentum[p]]}"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCE", "[", "%", "]"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "{GA[\[Mu]], GAD[\[Rho]], GS[p], SP[p, q], \n MT[\[Alpha], \[Beta]], FV[p, \ \[Mu]]}"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FCI", "Section", CellTags->"FCI"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FCI[exp] translates exp into the internal FeynCalc \ (datatype-)representation. \ \>", "Text"], Cell["FCI is equivalent to FeynCalcInternal.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynCalcExternal", ButtonData:>"FeynCalcExternal", ButtonStyle->"Hyperlink", ButtonNote->"FeynCalcExternal"], ", ", ButtonBox["FeynCalcInternal", ButtonData:>"FeynCalcInternal", ButtonStyle->"Hyperlink", ButtonNote->"FeynCalcInternal"], ", ", ButtonBox["FCE", ButtonData:>"FCE", ButtonStyle->"Hyperlink", ButtonNote->"FCE"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"GA", "[", "\[Mu]", "]"}], ",", RowBox[{"GAD", "[", "\[Rho]", "]"}], ",", RowBox[{"GS", "[", "p", "]"}], ",", RowBox[{"SP", "[", RowBox[{"p", ",", "q"}], "]"}], ",", RowBox[{"MT", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", RowBox[{"FV", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], ",", SuperscriptBox["\[Gamma]", "\[Rho]"], ",", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], ",", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ",", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], ",", SuperscriptBox["p", "\[Mu]"]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "{GA[\[Mu]], GAD[\[Rho]], GS[p], SP[p, q], \n MT[\[Alpha], \[Beta]], FV[p, \ \[Mu]]}"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], ",", SuperscriptBox["\[Gamma]", "\[Rho]"], ",", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ",", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ",", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], ",", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "{DiracGamma[LorentzIndex[\[Mu]]], \n DiracGamma[LorentzIndex[\[Rho], D], \ D], \n DiracGamma[Momentum[p]], Pair[Momentum[p], Momentum[q]], \n \ Pair[LorentzIndex[\[Alpha]], LorentzIndex[\[Beta]]], \n Pair[LorentzIndex[\ \[Mu]], Momentum[p]]}"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCE", "[", "%", "]"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "{GA[\[Mu]], GAD[\[Rho]], GS[p], SP[p, q], \n MT[\[Alpha], \[Beta]], FV[p, \ \[Mu]]}"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FermionSpinSum", "Section", CellTags->"FermionSpinSum"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FermionSpinSum[x] constructs the Traces out of squared ampliudes.\ \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "FermionSpinSum", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"SpinPolarizationSum", "\[Rule]", "Identity"}], ",", RowBox[{"SpinorCollect", "\[Rule]", "False"}], ",", RowBox[{"ExtraFactor", "\[Rule]", "1"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["ComplexConjugate", ButtonData:>"ComplexConjugate", ButtonStyle->"Hyperlink", ButtonNote->"ComplexConjugate"], ", ", ButtonBox["DiracTrace", ButtonData:>"DiracTrace", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrace"], ", ", ButtonBox["Tr", ButtonData:>"Tr", ButtonStyle->"Hyperlink", ButtonNote->"Tr"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{ RowBox[{"Spinor", "[", RowBox[{"k1", ",", "m"}], "]"}], ".", RowBox[{"DiracSlash", "[", "p", "]"}], ".", RowBox[{"GA", "[", "5", "]"}], ".", RowBox[{"Spinor", "[", RowBox[{"p1", ",", "m"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[CurlyPhi]", "(", FormBox["k1", "TraditionalForm"], ",", "m", ")"}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{"\[CurlyPhi]", "(", FormBox["p1", "TraditionalForm"], ",", "m", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[ "Notice that SpinorUBar and SpinorU are only input functions. Internally they \ are converted to Spinor objects (which display as \[CurlyPhi]\[NoBreak])."], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ct", "=", RowBox[{"ComplexConjugate", "[", "t", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"\[CurlyPhi]", "(", FormBox["p1", "TraditionalForm"], ",", "m", ")"}], " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", RowBox[{"\[CurlyPhi]", "(", FormBox["k1", "TraditionalForm"], ",", "m", ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FermionSpinSum", "[", RowBox[{"t", " ", "ct"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{"tr", "(", FormBox[ RowBox[{ RowBox[{"(", RowBox[{"m", "+", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["k1", "TraditionalForm"]}]}], ")"}], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{"(", RowBox[{"m", "+", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p1", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", " ", "/.", RowBox[{"DiracTrace", "->", "Tr"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], " ", SuperscriptBox["m", "2"]}], "+", RowBox[{ RowBox[{ FormBox["k1", "TraditionalForm"], "\[CenterDot]", FormBox["p1", "TraditionalForm"]}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "-", RowBox[{"2", " ", RowBox[{ FormBox["k1", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["p1", "TraditionalForm"]}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FeynAmpDenominatorCombine", "Section", CellTags->"FeynAmpDenominatorCombine"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FeynAmpDenominatorCombine[expr] expands expr with respect to FeynAmpDenominator and combines products of FeynAmpDenominator in expr into \ one FeynAmpDenominator.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynAmpDenominatorSplit", ButtonData:>"FeynAmpDenominatorSplit", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmpDenominatorSplit"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", " ", "=", " ", RowBox[{ RowBox[{"FAD", "[", "q", "]"}], " ", RowBox[{"FAD", "[", RowBox[{"q", "-", "p"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ FractionBox["1", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ q, 2], "]"], Editable->False]], "TraditionalForm"], " ", FormBox[ FractionBox["1", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ Times[ -1, p], q], 2], "]"], Editable->False]], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FeynAmpDenominatorCombine", "[", "%", "]"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["FAD[q, -p + q]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FeynAmpDenominatorSplit", "[", "%", "]"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["FAD[q]*FAD[-p + q]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FeynAmpDenominator", "Section", CellTags->"FeynAmpDenominator"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FeynAmpDenominator[ PropagatorDenominator[ ... ], \ PropagatorDenominator[ ... ], ...] is the head of the denominators of the \ propagators, i.e., FeynAmpDenominator[x] is the representation of 1/x .\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FAD", ButtonData:>"FAD", ButtonStyle->"Hyperlink", ButtonNote->"FAD"], ", ", ButtonBox["FeynAmpDenominatorSimplify", ButtonData:>"FeynAmpDenominatorSimplify", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmpDenominatorSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynAmpDenominator", "[", RowBox[{"PropagatorDenominator", "[", RowBox[{"p", ",", "m"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ SuperscriptBox["p", "2"], "-", SuperscriptBox["m", "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynAmpDenominator", "[", RowBox[{ RowBox[{"PropagatorDenominator", "[", RowBox[{"p", ",", "m"}], "]"}], ",", "\t", RowBox[{"PropagatorDenominator", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", "m"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["p", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "2"], "-", SuperscriptBox["m", "2"]}], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"FeynAmpDenominator", "[", RowBox[{"PropagatorDenominator", "[", RowBox[{"p", ",", "m"}], "]"}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"t", "//", "FCI"}], "]"}]], "Input"], Cell["FeynAmpDenominator[PropagatorDenominator[Momentum[p, D], m]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"t", "//", "FCE"}], "]"}]], "Input"], Cell["FAD[{p, m}]", "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "t", "]"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FeynAmpDenominatorSimplify", "Section", CellTags->"FeynAmpDenominatorSimplify"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FeynAmpDenominatorSimplify[exp] tries to simplify each \ PropagatorDenominator in a canonical way. FeynAmpDenominatorSimplify[exp, q1] \ simplifies all FeynAmpDenominator's in exp in a canonical way, including \ some translation of momenta. FeynAmpDenominatorSimplify[exp, q1, q2] \ additionally removes integrals with no mass scale.\ \>", "Text"], Cell["FDS can be used as an alias.", "Text"], Cell[CellGroupData[{ Cell[BoxData["FDS"], "Input"], Cell[BoxData[ FormBox["FeynAmpDenominatorSimplify", TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["OneLoopSimplify", ButtonData:>"OneLoopSimplify", ButtonStyle->"Hyperlink", ButtonNote->"OneLoopSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[TextData[{ "The cornerstone of dimensional regularization is that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{ RowBox[{"d", "^", "n"}], "k", " ", RowBox[{ RowBox[{"f", "(", "k", ")"}], "/", RowBox[{"k", "^", RowBox[{"(", RowBox[{"2", "m"}], ")"}]}]}]}]}], " ", "=", " ", RowBox[{"0", " ", "."}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynAmpDenominatorSimplify", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "k", "]"}], " ", RowBox[{"FAD", "[", RowBox[{"k", ",", "k"}], "]"}]}], ",", "k"}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "This brings ", Cell[BoxData[ FormBox[ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "^", "2"}], " ", RowBox[{ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "^", "2"}]}], ")"}]}], TraditionalForm]]], " into a standard form." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynAmpDenominatorSimplify", "[", RowBox[{ RowBox[{"FAD", "[", RowBox[{ RowBox[{"k", "-", SubscriptBox["p", "1"]}], ",", RowBox[{"k", "-", SubscriptBox["p", "2"]}]}], "]"}], ",", "k"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"], "+", SubscriptBox["p", "2"]}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"FeynAmpDenominatorSimplify", "[", RowBox[{ RowBox[{ RowBox[{"FAD", "[", RowBox[{ RowBox[{"k", "-", SubscriptBox["p", "1"]}], ",", RowBox[{"k", "-", SubscriptBox["p", "2"]}]}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"k", ",", "k"}], "]"}]}], ",", "k"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ SuperscriptBox[ FormBox["k", "TraditionalForm"], "2"], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"], "+", SubscriptBox["p", "2"]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{"2", " ", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"], "+", SubscriptBox["p", "2"]}], ")"}], "2"]}]], "+", FractionBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"], "+", SubscriptBox["p", "2"]}], ")"}], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "=", RowBox[{"SPC", "[", RowBox[{"t", ",", "k", ",", RowBox[{"FDS", "\[Rule]", "True"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"], "+", SubscriptBox["p", "2"]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "+", SubscriptBox["p", "1"], "-", SubscriptBox["p", "2"]}], ")"}], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OneLoopSimplify", "[", RowBox[{"r", ",", "k"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"], "+", SubscriptBox["p", "2"]}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FDS", "[", RowBox[{ RowBox[{ RowBox[{"FAD", "[", RowBox[{ RowBox[{"k", "-", "p1"}], ",", RowBox[{"k", "-", "p2"}]}], "]"}], RowBox[{ RowBox[{"SPD", "[", RowBox[{"k", ",", "OPEDelta"}], "]"}], "^", "2"}]}], ",", "k"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p1", "+", "p2"}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{"2", " ", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p2", "TraditionalForm"]}]}], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p1", "+", "p2"}], ")"}], "2"]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p2", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p1", "+", "p2"}], ")"}], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t", ",", "r"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FeynAmpDenominatorSplit", "Section", CellTags->"FeynAmpDenominatorSplit"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FeynAmpDenominatorSplit[expr] splits all FeynAmpDenominator[a,b, \ ...] in expr into FeynAmpDenominator[a]*FeynAmpDenominator[b] ... . FeynAmpDenominatorSplit[expr, q1] splits all FeynAmpDenominator in expr into \ a product of two, one containing q1 and other momenta, the second without q1.\ \ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynAmpDenominatorCombine", ButtonData:>"FeynAmpDenominatorCombine", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmpDenominatorCombine"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{ RowBox[{"FAD", "[", RowBox[{"q1", ",", RowBox[{"q1", "-", "p"}], ",", RowBox[{"q1", "-", "q2"}], ",", "q2", ",", RowBox[{"q2", "-", "p"}]}], "]"}], "//", "FCI"}]}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ SubsuperscriptBox["q", "1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", SubscriptBox["q", "2"]}], ")"}], "2"], " ", SubsuperscriptBox["q", "2", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "//", "Head"}]], "Input"], Cell[BoxData[ FormBox["FeynAmpDenominator", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynAmpDenominatorSplit", "[", "t", "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ SubsuperscriptBox["q", "1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", SubscriptBox["q", "2"]}], ")"}], "2"], " ", SubsuperscriptBox["q", "2", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"%", "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["FAD[q1]*FAD[-p + q1]*FAD[q1 - q2]*FAD[q2]*FAD[-p + q2]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FeynAmpDenominatorSplit", "[", RowBox[{"t", ",", "q1"}], "]"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["FAD[q2, -p + q2]*FAD[q1, -p + q1, q1 - q2]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FeynAmpDenominatorCombine", "[", "%", "]"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["FAD[q1, q2, q1 - q2, -p + q1, -p + q2]", "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "t", "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FeynAmp", "Section", CellTags->"FeynAmp"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FeynAmp[q, amp] is the head of a Feynman amplitude. amp denotes the \ analytical expression for the amplitude and q is the integration variable. FeynAmp[q1, q2, amp] denotes a two-loop amplitude.\ \>", "Text"], Cell["\<\ FeynAmp has no functional properties and serves just as a head. \ There are however special typesetting rules attached.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Amplitudes", ButtonData:>"Amplitudes", ButtonStyle->"Hyperlink", ButtonNote->"Amplitudes"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[RawData["\<\ Cell[\"This is a 1-loop gluon selfenergy amplitude.\", \"Text\"]\ \>"], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynAmp", "[", RowBox[{"q", ",", RowBox[{ RowBox[{"GV", "[", RowBox[{"p", ",", "\[Mu]", ",", "a", ",", " ", RowBox[{"q", "-", "p"}], ",", "\[Alpha]", ",", "c", ",", " ", RowBox[{"-", "q"}], ",", "\[Beta]", ",", "e"}], "]"}], " ", RowBox[{"GP", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", " ", "\[Alpha]", ",", "c", ",", " ", "\[Rho]", ",", "d"}], "]"}], RowBox[{"GV", "[", RowBox[{ RowBox[{"-", "p"}], ",", "\[Nu]", ",", "b", ",", " ", RowBox[{"p", "-", "q"}], ",", "\[Rho]", ",", "d", ",", " ", "q", ",", "\[Sigma]", ",", "f"}], "]"}], " ", RowBox[{"GP", "[", RowBox[{ "q", ",", " ", "\[Beta]", ",", "e", ",", " ", "\[Sigma]", ",", "f"}], "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", FractionBox[ RowBox[{ SuperscriptBox["\[DifferentialD]", "D"], "q"}], SuperscriptBox[ RowBox[{"(", "2", "\[Pi]", ")"}], "D"]], "(", FormBox[ RowBox[{"-", FractionBox[ RowBox[{ SubsuperscriptBox["g", "s", "2"], " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox[ RowBox[{"-", "p"}], "TraditionalForm"], RowBox[{",", " "}], FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], RowBox[{",", " "}], FormBox["q", "TraditionalForm"]}], ")"}], " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox["p", "TraditionalForm"], RowBox[{",", " "}], FormBox[ RowBox[{"q", "-", "p"}], "TraditionalForm"], RowBox[{",", " "}], FormBox[ RowBox[{"-", "q"}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["f", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["f", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "2"], " ", SuperscriptBox["q", "2"]}]]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell["This is a generic 2-loop amplitude.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynAmp", "[", RowBox[{ SubscriptBox["q", "1"], ",", SubscriptBox["q", "2"], ",", RowBox[{"anything", " ", "goes"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[DifferentialD]", "D"], SubscriptBox["q", "1"]}], SuperscriptBox[ RowBox[{"(", "2", "\[Pi]", ")"}], "D"]], "\[Integral]", FractionBox[ RowBox[{ SuperscriptBox["\[DifferentialD]", "D"], SubscriptBox["q", "2"]}], SuperscriptBox[ RowBox[{"(", "2", "\[Pi]", ")"}], "D"]]}], "(", FormBox[ RowBox[{"anything", " ", "goes"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FeynCalc2FORM", "Section", CellTags->"FeynCalc2FORM"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FeynCalc2FORM[expr] displays expr in FORM syntax. FeynCalc2FORM[file, x] writes x in FORM syntax to a file. FeynCalc2FORM[file, x==y] writes x=y to a file in FORM syntax.\ \>", "Text"], Cell[CellGroupData[{ Cell[TextData[{ "See also: ", " ", ButtonBox["FORM2FeynCalc", ButtonData:>"FORM2FeynCalc", ButtonStyle->"Hyperlink", ButtonNote->"FORM2FeynCalc"], "." }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "FeynCalc2FORM", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"EpsDiscard", "\[Rule]", "False"}], ",", RowBox[{"FORMEpilog", "\[Rule]", "\<\"\"\>"}], ",", RowBox[{"FORMProlog", "\[Rule]", "\<\"write statistics;\"\>"}], ",", RowBox[{"Replace", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\<\"\[Alpha]\"\>", "\[Rule]", "\<\"al\"\>"}], ",", RowBox[{"\<\"\[Beta]\"\>", "\[Rule]", "\<\"be\"\>"}], ",", RowBox[{"\<\"\[Gamma]\"\>", "\[Rule]", "\<\"ga\"\>"}], ",", RowBox[{"\<\"\[Delta]\"\>", "\[Rule]", "\<\"de\"\>"}], ",", RowBox[{"\<\"\[Mu]\"\>", "\[Rule]", "\<\"mu\"\>"}], ",", RowBox[{"\<\"\[Nu]\"\>", "\[Rule]", "\<\"nu\"\>"}], ",", RowBox[{"\<\"\[Rho]\"\>", "\[Rule]", "\<\"ro\"\>"}], ",", RowBox[{"\<\"\[Sigma]\"\>", "\[Rule]", "\<\"si\"\>"}]}], "}"}]}], ",", RowBox[{"TraceDimension", "\[Rule]", "4"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MT", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], RowBox[{"FV", "[", RowBox[{"p", ",", "\[Rho]"}], "]"}], " ", RowBox[{ RowBox[{"y", "^", "2"}], "/", "d"}]}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["y", "2"], " ", SuperscriptBox["p", "\[Rho]"], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "d"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FeynCalc2FORM", "[", "%", "]"}], ";"}]], "Input"], Cell[BoxData[ FormBox["\<\"(y^2*d_(mu,nu)*p(ro))/d\"\>", TraditionalForm]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"LC", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Delta]", ",", "\[Rho]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{"\[Alpha]", "\[Beta]", "\[Delta]", "\[Rho]"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FeynCalc2FORM", "[", "%", "]"}], ";"}]], "Input"], Cell[BoxData[ FormBox["\<\"-i_*e_(al,be,de,ro)\"\>", TraditionalForm]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracTrace", "[", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Sigma]"]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FeynCalc2FORM", "[", "%", "]"}], ";"}]], "Input"], Cell[BoxData[ FormBox["\<\"g_(1,mu)*g_(1,nu)*g_(1,ro)*g_(1,si)\"\>", TraditionalForm]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracTrace", "[", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "]"}], RowBox[{"DiracTrace", "[", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Rho]"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"tr", "(", FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], "TraditionalForm"], ")"}], " ", RowBox[{"tr", "(", FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Rho]"]}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FeynCalc2FORM", "[", "%", "]"}], ";"}]], "Input"], Cell[BoxData[ FormBox["\<\"g_(1,mu)*g_(1,nu)*g_(2,mu)*g_(2,ro)\"\>", TraditionalForm]], "Print"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"FeynCalc2FORM", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"MT", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], RowBox[{"FV", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell["TableForm[ReadList[\"fc2ftest.f\",String]]", "Input"], Cell[BoxData[ FormBox[ InterpretationBox[GridBox[{ {"\<\"d_(mu,nu)*p(mu)\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"d_(mu,nu)*p(mu)"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"Tr", "[", RowBox[{ RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], ".", RowBox[{"GS", "[", RowBox[{"p", ",", "q"}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"FeynCalc2FORM", "[", RowBox[{"\"\\"", ",", RowBox[{"L", " ", "==", "t"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "String"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[GridBox[{ {"\<\"Indices mu,nu,ro,si;\"\>"}, {"\<\"Vectors p,q;\"\>"}, {"\<\"\"\>"}, {"\<\"write statistics;\"\>"}, {"\<\"\"\>"}, {"\<\"Local L = ( \"\>"}, { "\<\"4*(d_(mu,si)*d_(nu,ro)*q.p-d_(mu,ro)*d_(nu,si)*q.p+d_(mu,\ nu)*d_(ro,si)*q.p+\"\>"}, { "\<\"d_(ro,si)*p(nu)*q(mu)-d_(nu,si)*p(ro)*q(mu)+d_(nu,ro)*p(si)\ *q(mu)-\"\>"}, { "\<\"d_(ro,si)*p(mu)*q(nu)+d_(mu,si)*p(ro)*q(nu)-d_(mu,ro)*p(si)\ *q(nu)+\"\>"}, { "\<\"d_(nu,si)*p(mu)*q(ro)-d_(mu,si)*p(nu)*q(ro)+d_(mu,nu)*p(si)\ *q(ro)-\"\>"}, { "\<\"d_(nu,ro)*p(mu)*q(si)+d_(mu,ro)*p(nu)*q(si)-d_(mu,nu)*p(ro)\ *q(si)) ); \"\>"}, {"\<\" \"\>"}, {"\<\"Print; \"\>"}, {"\<\".end\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"Indices mu,nu,ro,si;", "Vectors p,q;", "", "write statistics;", "", "Local L = ( ", "4*(d_(mu,si)*d_(nu,ro)*q.p-d_(mu,ro)*d_(nu,si)*q.p+d_(mu,nu)*d_(ro,\ si)*q.p+", "d_(ro,si)*p(nu)*q(mu)-d_(nu,si)*p(ro)*q(mu)+d_(nu,ro)*p(si)*q(mu)-\ ", "d_(ro,si)*p(mu)*q(nu)+d_(mu,si)*p(ro)*q(nu)-d_(mu,ro)*p(si)*q(nu)+", "d_(nu,si)*p(mu)*q(ro)-d_(mu,si)*p(nu)*q(ro)+d_(mu,nu)*p(si)*q(ro)-\ ", "d_(nu,ro)*p(mu)*q(si)+d_(mu,ro)*p(nu)*q(si)-d_(mu,nu)*p(ro)*q(si)) ); ", " ", "Print; ", ".end"}]], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"FileNames", "[", "\"\\"", "]"}], ",", RowBox[{"DeleteFile", "[", "\"\\"", "]"}]}], "]"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FeynCalcExternal", "Section", CellTags->"FeynCalcExternal"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FeynCalcExternal[exp] translates exp from the internal FeynCalc representation to a shorthand form.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynCalcInternal", ButtonData:>"FeynCalcInternal", ButtonStyle->"Hyperlink", ButtonNote->"FeynCalcInternal"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynCalcExternal", "[", RowBox[{"DiracGamma", "[", "5", "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "5"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["GA[5]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"GA", "[", "\[Mu]", "]"}], ",", RowBox[{"GAD", "[", "\[Rho]", "]"}], ",", RowBox[{"GS", "[", "p", "]"}], ",", RowBox[{"SP", "[", RowBox[{"p", ",", "q"}], "]"}], ",", RowBox[{"MT", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", RowBox[{"FV", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], ",", SuperscriptBox["\[Gamma]", "\[Rho]"], ",", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], ",", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ",", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], ",", SuperscriptBox["p", "\[Mu]"]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "{GA[\[Mu]], GAD[\[Rho]], GS[p], SP[p, q], \n MT[\[Alpha], \[Beta]], FV[p, \ \[Mu]]}"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "FeynCalcInternal"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], ",", SuperscriptBox["\[Gamma]", "\[Rho]"], ",", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ",", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ",", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], ",", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "{DiracGamma[LorentzIndex[\[Mu]]], \n DiracGamma[LorentzIndex[\[Rho], D], \ D], \n DiracGamma[Momentum[p]], Pair[Momentum[p], Momentum[q]], \n \ Pair[LorentzIndex[\[Alpha]], LorentzIndex[\[Beta]]], \n Pair[LorentzIndex[\ \[Mu]], Momentum[p]]}"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FeynCalcExternal", "[", "%", "]"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "{GA[\[Mu]], GAD[\[Rho]], GS[p], SP[p, q], \n MT[\[Alpha], \[Beta]], FV[p, \ \[Mu]]}"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FeynCalcInternal", "Section", CellTags->"FeynCalcInternal"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FeynCalcInternal[exp] translates exp into the internal FeynCalc \ (abstract data-type) representation.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynCalcExternal", ButtonData:>"FeynCalcExternal", ButtonStyle->"Hyperlink", ButtonNote->"FeynCalcExternal"], ", ", ButtonBox["FCI", ButtonData:>"FCI", ButtonStyle->"Hyperlink", ButtonNote->"FCI"], ", ", ButtonBox["FCE", ButtonData:>"FCE", ButtonStyle->"Hyperlink", ButtonNote->"FCE"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"GA", "[", "\[Mu]", "]"}], ",", RowBox[{"GAD", "[", "\[Rho]", "]"}], ",", RowBox[{"GS", "[", "p", "]"}], ",", RowBox[{"SP", "[", RowBox[{"p", ",", "q"}], "]"}], ",", RowBox[{"MT", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", RowBox[{"FV", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], ",", SuperscriptBox["\[Gamma]", "\[Rho]"], ",", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], ",", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ",", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], ",", SuperscriptBox["p", "\[Mu]"]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "{GA[\[Mu]], GAD[\[Rho]], GS[p], SP[p, q], \n MT[\[Alpha], \[Beta]], FV[p, \ \[Mu]]}"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "FeynCalcInternal"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], ",", SuperscriptBox["\[Gamma]", "\[Rho]"], ",", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ",", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ",", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], ",", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "{DiracGamma[LorentzIndex[\[Mu]]], \n DiracGamma[LorentzIndex[\[Rho], D], \ D], \n DiracGamma[Momentum[p]], Pair[Momentum[p], Momentum[q]], \n \ Pair[LorentzIndex[\[Alpha]], LorentzIndex[\[Beta]]], \n Pair[LorentzIndex[\ \[Mu]], Momentum[p]]}"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FeynCalcExternal", "[", "%", "]"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "{GA[\[Mu]], GAD[\[Rho]], GS[p], SP[p, q], \n MT[\[Alpha], \[Beta]], FV[p, \ \[Mu]]}"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FCI", "[", RowBox[{"{", RowBox[{ RowBox[{"SD", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", RowBox[{"FAD", "[", "q", "]"}], ",", RowBox[{"LC", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], ",", SubscriptBox["d", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], ",", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], ",", FractionBox["1", SuperscriptBox["q", "2"]], ",", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "{SUNDelta[SUNIndex[a], SUNIndex[b]], \n SUND[SUNIndex[a], SUNIndex[b], \ SUNIndex[c]], \n SUNF[SUNIndex[a], SUNIndex[b], SUNIndex[c]], \n \ FeynAmpDenominator[PropagatorDenominator[Momentum[q, D], \n 0]], \ Eps[LorentzIndex[\[Mu]], LorentzIndex[\[Nu]], \n LorentzIndex[\[Rho]], \ LorentzIndex[\[Sigma]]]}"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FeynRule", "Section", CellTags->"FeynRule"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FeynRule[lag, {fields}] derives the Feynman rule corresponding to \ the field configuration fields of the lagrangian lag.\ \>", "Text"], Cell[CellGroupData[{ Cell["Options[FeynRule]", "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Anti5", "\[Rule]", InterpretationBox[ RowBox[{"-", "\[Infinity]"}], DirectedInfinity[ -1]]}], ",", RowBox[{"Contract", "\[Rule]", "False"}], ",", RowBox[{"Factor1", "\[Rule]", "False"}], ",", RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"PartialD", "\[Rule]", "RightPartialD"}], ",", RowBox[{"Schouten", "\[Rule]", "False"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell["FeynRule does not calculate propagator Feynman rules.", "Text"], Cell["\<\ The option ZeroMomentumInsertion can be used for twist-2 and higher \ twist operators.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Lagrangian", ButtonData:>"Lagrangian", ButtonStyle->"Hyperlink", ButtonNote->"Lagrangian"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell["gou = Lagrangian[\"ogu\"]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ImaginaryI]", RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["F", RowBox[{"\[Alpha]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "a"], " ", SuperscriptBox[ RowBox[{"(", SubsuperscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"], RowBox[{"a", "b"}]], ")"}], RowBox[{"m", "-", "2"}]], " ", SubsuperscriptBox["F", RowBox[{"\[Alpha]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "b"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["gop = Lagrangian[\"ogp\"]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ImaginaryI]", "m"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Gamma]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SubsuperscriptBox["F", RowBox[{"\[Beta]", "\[Gamma]"}], "a"], " ", SuperscriptBox[ RowBox[{"(", SubsuperscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"], RowBox[{"a", "b"}]], ")"}], RowBox[{"m", "-", "2"}]], " ", SubsuperscriptBox["F", RowBox[{"\[Alpha]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "b"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Explicit", "[", "gop", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ImaginaryI]", "m"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Gamma]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Gamma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Gamma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b2", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Gamma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c11", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ "a", "\[NoBreak]", "b2", "\[NoBreak]", "c11"}]]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", SubsuperscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"], RowBox[{"a", "b"}]], ")"}], RowBox[{"m", "-", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox["\[CapitalDelta]", "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b3", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["c12", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ "b", "\[NoBreak]", "b3", "\[NoBreak]", "c12"}]]}]}], ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Cases2", "[", RowBox[{"%", ",", "QuantumField"}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "{QuantumField[GaugeField, LorentzIndex[\[Alpha]], \n SUNIndex[b3]], \ QuantumField[GaugeField, \n LorentzIndex[\[Beta]], SUNIndex[b2]], \n \ QuantumField[GaugeField, LorentzIndex[\[Gamma]], \n SUNIndex[c11]], \ QuantumField[GaugeField, \n Momentum[OPEDelta], SUNIndex[c12]], \n \ QuantumField[PartialD[LorentzIndex[\[Alpha]]], \n GaugeField, \ Momentum[OPEDelta], SUNIndex[b]], \n QuantumField[PartialD[LorentzIndex[\ \[Beta]]], GaugeField, \n LorentzIndex[\[Gamma]], SUNIndex[a]], \n \ QuantumField[PartialD[LorentzIndex[\[Gamma]]], \n GaugeField, LorentzIndex[\ \[Beta]], SUNIndex[a]], \n QuantumField[PartialD[Momentum[OPEDelta]], \ GaugeField, \n LorentzIndex[\[Alpha]], SUNIndex[b]]}"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2-gluon Feynman rules (unpolarized)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[ "fi = {QuantumField[GaugeField,{\[Mu]},{a}][p],\n \ QuantumField[GaugeField,{\[Nu]},{b}][q]}"], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], "(", "p", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], "(", "q", ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2u", "=", RowBox[{"FullSimplify", " ", "/@", " ", RowBox[{"Factor2", "[", RowBox[{"FeynRule", "[", RowBox[{"gou", ",", "fi", ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}]}], "]"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], "m"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}]}], ")"}], " ", 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"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["2-gluon Feynman rules (polarized)", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fi", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"{", "a", "}"}]}], "]"}], "[", "p", "]"}], ",", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Nu]", "}"}], ",", RowBox[{"{", "b", "}"}]}], "]"}], "[", "q", "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], "(", "p", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], "(", "q", ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2p", "=", RowBox[{"FullSimplify", "/@", RowBox[{"Factor2", "[", RowBox[{"FeynRule", "[", RowBox[{"gop", ",", "fi", ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}]}], "]"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}]], RowBox[{"(", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], "m"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["q", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["q", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["q", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor2", "[", RowBox[{"Calc", "[", RowBox[{"f2p", "/.", RowBox[{"p", "\[Rule]", RowBox[{"-", "q"}]}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["q", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Compare with the Feynman rule tabulated in \ Twist2GluonOperator.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{"q", ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "b"}], "}"}], ",", "\t", RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{"1", "-", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]], "TraditionalForm"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["quark-quark Feynman rule (unpolarized)", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"qo", " ", "=", RowBox[{"Lagrangian", "[", "\"\\"", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[ImaginaryI]", "m"], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox["\[Psi]", "_"], "TraditionalForm"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ SubscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"]], RowBox[{"m", "-", "1"}]], " ", FormBox["\[Psi]", "TraditionalForm"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "This is the list of the fermionic fields, with ", StyleBox["p", FontSlant->"Italic"], " and ", StyleBox["q", FontSlant->"Italic"], " are flowing into the vertex." }], "Text"], Cell[CellGroupData[{ Cell["\<\ qf = {QuantumField[QuarkField][p], QuantumField[AntiQuarkField][q]}\ \>", "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ FormBox["\[Psi]", "TraditionalForm"], "(", "p", ")"}], ",", RowBox[{ FormBox[ OverscriptBox["\[Psi]", "_"], "TraditionalForm"], "(", "q", ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ For non-zero momentum insertion it is essential to let the partial \ derivative operator act on both sides. This can be achieved by setting the option PartialD to LeftRightPartialD. \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n2", " ", "=", RowBox[{"FeynRule", "[", RowBox[{"qo", ",", "qf", ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}], ",", RowBox[{"PartialD", "\[Rule]", "LeftRightPartialD"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "m"}]], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], RowBox[{"m", "-", "1"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PowerSimplify", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "m"}]], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], RowBox[{"m", "-", "1"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ For q =-p this reduces to the zero-momentum insertion Feynman \ rule.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", RowBox[{"n2", "/.", RowBox[{"q", "\[Rule]", RowBox[{"-", "p"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["This can also be derived directly.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynRule", "[", RowBox[{"qo", ",", RowBox[{"Reverse", "[", "qf", "]"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["quark-quark -gluon Feynman rule (unpolarized)", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"qo", "=", RowBox[{"Lagrangian", "[", "\"\\"", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[ImaginaryI]", "m"], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox["\[Psi]", "_"], "TraditionalForm"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ SubscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"]], RowBox[{"m", "-", "1"}]], " ", FormBox["\[Psi]", "TraditionalForm"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[ "qgf = {QuantumField[QuarkField][p],\n QuantumField[AntiQuarkField][q], \ \n QuantumField[GaugeField,{\[Mu]},{a}][r]}"], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ FormBox["\[Psi]", "TraditionalForm"], "(", "p", ")"}], ",", RowBox[{ FormBox[ OverscriptBox["\[Psi]", "_"], "TraditionalForm"], "(", "q", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], "(", "r", ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n3", "=", RowBox[{"FeynRule", "[", RowBox[{"qo", ",", "qgf", ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}], ",", RowBox[{"PartialD", "\[Rule]", "LeftRightPartialD"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", "-", "m"}]], " ", SubscriptBox["g", "s"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Trick", "[", RowBox[{"OPESumSimplify", "[", RowBox[{"Trick", "[", RowBox[{"Calc", "[", RowBox[{"n3", "/.", RowBox[{"r", "\[Rule]", RowBox[{ RowBox[{"-", "p"}], "-", "q"}]}]}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"Polarization", "\[Rule]", "0"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["quark-quark -gluon Feynman rule (polarized)", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"qp", "=", RowBox[{"Lagrangian", "[", "\"\\"", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[ImaginaryI]", "m"], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox["\[Psi]", "_"], "TraditionalForm"], " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ SubscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"]], RowBox[{"m", "-", "1"}]], " ", FormBox["\[Psi]", "TraditionalForm"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[ "qgf = {QuantumField[QuarkField][p],\n QuantumField[AntiQuarkField][q], \ \n QuantumField[GaugeField,{\[Mu]},{a}][r]}"], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ FormBox["\[Psi]", "TraditionalForm"], "(", "p", ")"}], ",", RowBox[{ FormBox[ OverscriptBox["\[Psi]", "_"], "TraditionalForm"], "(", "q", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], "(", "r", ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n3", "=", RowBox[{"FeynRule", "[", RowBox[{"qp", ",", "qgf", ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}], ",", RowBox[{"PartialD", "\[Rule]", "LeftRightPartialD"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", "-", "m"}]], " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]}], ")"}], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Trick", "[", RowBox[{"OPESumSimplify", "[", RowBox[{"Trick", "[", RowBox[{"Calc", "[", RowBox[{"n3", "/.", RowBox[{"r", "\[Rule]", RowBox[{ RowBox[{"-", "p"}], "-", "q"}]}]}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SubscriptBox["g", "s"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox["\[Gamma]", "5"], " ", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"Polarization", "\[Rule]", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SubscriptBox["g", "s"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox["\[Gamma]", "5"], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["quark-quark -gluon-gluon Feynman rule (unpolarized)", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"qo", "=", RowBox[{"Lagrangian", "[", "\"\\"", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[ImaginaryI]", "m"], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox["\[Psi]", "_"], "TraditionalForm"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ SubscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"]], RowBox[{"m", "-", "1"}]], " ", FormBox["\[Psi]", "TraditionalForm"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[ "qggf = {QuantumField[QuarkField][p],\n \ QuantumField[AntiQuarkField][q], \n \ QuantumField[GaugeField,{\[Mu]},{a}][r],\n QuantumField[GaugeField,{ \ \[Nu]},{b}][s]}"], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ FormBox["\[Psi]", "TraditionalForm"], "(", "p", ")"}], ",", RowBox[{ FormBox[ OverscriptBox["\[Psi]", "_"], "TraditionalForm"], "(", "q", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], "(", "r", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], "(", "s", ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n4", "=", RowBox[{"FeynRule", "[", RowBox[{"qo", ",", "qggf", ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "True"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "3"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "j"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"j", "-", "i"}]]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "3"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "j"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"j", "-", "i"}]]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t4", "=", RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"Polarization", "\[Rule]", "0"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"]}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "i"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "j"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], RowBox[{"i", "-", "j"}]]}], "TraditionalForm"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "i"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "j"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"i", "-", "j"}]]}], "TraditionalForm"]}], ")"}]}]}], ")"}]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n4", "-", "t4"}], ")"}], "/.", RowBox[{"OPEm", "\[Rule]", "5"}]}], "/.", RowBox[{"s", "\[Rule]", RowBox[{ RowBox[{"-", "p"}], "-", "q", "-", "r"}]}]}], "/.", RowBox[{"D", "\[Rule]", "4"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[TextData[ " In general equality can be shown by Timing[Factor2[\n \ FCE[Calc[ChangeDimension[FCE[OPESumExplicit[n4-t4]],4]/.s\[Rule]-p-q-r]]]]\n \ but it is a little bit slow ..."], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["QCD vertices", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fii", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"{", "a", "}"}]}], "]"}], "[", "p", "]"}], ",", " ", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Nu]", "}"}], ",", RowBox[{"{", "b", "}"}]}], "]"}], "[", "q", "]"}], ",", " ", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Rho]", "}"}], ",", RowBox[{"{", "c", "}"}]}], "]"}], "[", "r", "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], "(", "p", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], "(", "q", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], "(", "r", ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g3", "=", RowBox[{"FeynRule", "[", RowBox[{ RowBox[{"Lagrangian", "[", "\"\\"", "]"}], ",", "fii"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "-", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], "-", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "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[ RowBox[{"GluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}], ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"q", "-", "r"}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"r", "-", "p"}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], ")"}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"p", "-", "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[ RowBox[{"Calc", "[", RowBox[{"g3", "-", RowBox[{"ChangeDimension", "[", RowBox[{"%", ",", "4"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fi4", " ", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"{", "a", "}"}]}], "]"}], "[", "p", "]"}], ",", " ", " ", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Nu]", "}"}], ",", RowBox[{"{", "b", "}"}]}], "]"}], "[", "q", "]"}], ",", " ", " ", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Rho]", "}"}], ",", RowBox[{"{", "c", "}"}]}], "]"}], "[", "r", "]"}], ",", " ", "\t ", " ", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Sigma]", "}"}], ",", RowBox[{"{", "d", "}"}]}], "]"}], "[", "s", "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], "(", "p", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], "(", "q", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], "(", "r", ")"}], ",", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], "(", "s", ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g4", " ", "=", RowBox[{"FeynRule", "[", RowBox[{ RowBox[{"Lagrangian", "[", "\"\\"", "]"}], ",", "fi4"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]], " ", SubsuperscriptBox["g", "s", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox["g", RowBox[{"\[Rho]", "\[Sigma]"}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]], " ", SubsuperscriptBox["g", "s", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]], " ", SubsuperscriptBox["g", "s", "2"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]", ",", "d"}], "}"}], ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u8", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u8", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u8", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u8", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u8", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u8", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", RowBox[{"g4", "-", RowBox[{"ChangeDimension", "[", RowBox[{"%", ",", "4"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "f2p", ",", "f2u", ",", "f3", ",", "f32", ",", "fi", ",", "fi4", ",", "fii", ",", "g3", ",", "g4", ",", "gop", ",", "gou", ",", "n3", ",", "nf3", ",", "np2", ",", "npf3", ",", "p33", ",", "pf3", ",", "pn3", ",", "pqo", ",", "qf", ",", "qgf", ",", "qo", ",", "t4"}], "]"}]], "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FieldStrength", "Section", CellTags->"FieldStrength"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "FieldStrength[\[Mu], \[Nu], a] is the field strength tensor \n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubsuperscriptBox["A", "\[Nu]", "a"]}], "-", RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubsuperscriptBox["A", "\[Mu]", "a"]}], "+", RowBox[{ SubscriptBox["g", "s"], " ", SubsuperscriptBox["A", "\[Mu]", "b1"], SubsuperscriptBox["A", "\[Nu]", "c1"]}]}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{" ", "f", "^", RowBox[{"(", RowBox[{"a", "b1", "c1"}], ")"}]}], TraditionalForm]]], ". \nFieldStrength[\[Mu], \[Nu]] is the field strength tensor ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubsuperscriptBox["A", "\[Nu]", "\[Null]"]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubsuperscriptBox["A", "\[Mu]", "\[Null]"]}], "."}]}], TraditionalForm]]], "\nThe name of the field (A) and the coupling constant (g) can be set \ through the options or by additional arguments.\nThe first two indices are \ interpreted as type LorentzIndex, except OPEDelta, which is converted to \ Momentum[OPEDelta]." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "FieldStrength", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Explicit", "\[Rule]", "False"}], ",", RowBox[{"IndexPosition", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"Symbol", "\[Rule]", "\<\"F\"\>"}], ",", RowBox[{"QuantumField", "\[Rule]", "A"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["QuantumField", ButtonData:>"QuantumField", ButtonStyle->"Hyperlink", ButtonNote->"QuantumField"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox["F", RowBox[{"\[Mu]", "\[Nu]"}], "\[Null]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "a"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox["F", RowBox[{"\[Mu]", "\[Nu]"}], "a"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "a", ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b12", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c55", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b12", "\[NoBreak]", "c55"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}], "]"}]], "Input"], Cell[TextData[ "QuantumField[PartialD[LorentzIndex[\[Mu]]], GaugeField, \n LorentzIndex[\ \[Nu]]] - \n QuantumField[PartialD[LorentzIndex[\[Nu]]], GaugeField, \n \ LorentzIndex[\[Mu]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "OPEDelta", ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}], "]"}]], "Input"], Cell[TextData[ "QuantumField[PartialD[LorentzIndex[\[Mu]]], GaugeField, \n \ Momentum[OPEDelta]] - \n QuantumField[PartialD[Momentum[OPEDelta]], \ GaugeField, \n LorentzIndex[\[Mu]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "a", ",", RowBox[{"CouplingConstant", "\[Rule]", RowBox[{"-", "Gstrong"}]}], ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b13", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c56", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b13", "\[NoBreak]", "c56"}]]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FORM2FeynCalc", "Section", CellTags->"FORM2FeynCalc"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FORM2FeynCalc[expr] translates the FORM expr into FeynCalc \ notation. FORM2FeynCalc[file] translates the FORM expresssions in file into \ FeynCalcnotation. FORM2FeynCalc[file, x1, x2, ...] reads in a file in \ FORM-format and translates the assignments for the variables a, b, ... into \ FeynCalc syntax. If the option Set is True, the variables x1, x2 are \ assigned to the right hand sides defined in the FORM - file.\ \>", "Text"], Cell[CellGroupData[{ Cell[TextData[{ "See also: ", " ", ButtonBox["FeynCalc2FORM", ButtonData:>"FeynCalc2FORM", ButtonStyle->"Hyperlink", ButtonNote->"FeynCalc2FORM"], "." }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "FORM2FeynCalc", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Dimension", "\[Rule]", "4"}], ",", RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"Dot", "\[Rule]", "Dot"}], ",", RowBox[{"HoldForm", "\[Rule]", "True"}], ",", RowBox[{"LorentzIndex", "\[Rule]", RowBox[{"{", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "}"}]}], ",", RowBox[{"Set", "\[Rule]", "False"}], ",", RowBox[{"Replace", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"Vectors", "\[Rule]", "Automatic"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FORM2FeynCalc", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"x", " ", SuperscriptBox["m", "2"]}], ")"}]}], "+", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["2*x . m^2 + SP[p, q]", "Output"] }, Open ]], Cell["\<\ Functions are automatically converted right, but bracketed \ expressions need to be substituted explicitly.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FORM2FeynCalc", "[", RowBox[{"\"\\"", ",", RowBox[{"Replace", "\[Rule]", RowBox[{"{", RowBox[{"\"\<[li2(1-x)]\>\"", "->", "\"\\""}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}], "+", "x", "+", RowBox[{"f", "(", "z", ")"}], "+", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["x + f[z] + Log[x]^2 + PolyLog[2, 1 - x]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FORM2FeynCalc", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"x", "+", RowBox[{ RowBox[{"Hold", "(", "1", ")"}], " ", "y"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FORM2FeynCalc", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"p", " ", "mu", " ", SuperscriptBox["q", "nu"]}], "+", SuperscriptBox["g", RowBox[{"mu", "nu"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["p . mu . FV[q, nu] + MT[mu, nu]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FORM2FeynCalc", "[", RowBox[{"\"\\"", ",", RowBox[{"Replace", "->", RowBox[{"{", RowBox[{ RowBox[{"mu", "->", "\[Mu]"}], ",", RowBox[{"nu", "->", "\[Nu]"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"p", " ", "\[Mu]", " ", SuperscriptBox["q", "\[Nu]"]}], "+", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ "FORM2FeynCalc", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", "\[ImaginaryI]", " ", "az", " ", "bz", " ", SuperscriptBox["aM", "2"], " ", "D1", " ", RowBox[{"Hold", "(", "1", ")"}], " ", "b$G1", " ", RowBox[{"eperp", "(", RowBox[{"mu", ",", "nu"}], ")"}], " ", FormBox[ RowBox[{ FormBox["avec", "TraditionalForm"], "\[CenterDot]", FormBox["bvec", "TraditionalForm"]}], "TraditionalForm"], " ", "blam"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FourDivergence", "Section", CellTags->"FourDivergence"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FourDivergence[exp, FourVector[p, mu]] calculates the partial \ derivative of exp w.r.t. p(mu). FourDivergence[exp, FourVector[p, mu], \ FourVector[p,nu], ...]gives the multiple derivative.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["RussianTrick", ButtonData:>"RussianTrick", ButtonStyle->"Hyperlink", ButtonNote->"RussianTrick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"ScalarProduct", "[", RowBox[{"p", ",", "q"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourDivergence", "[", RowBox[{"t", ",", RowBox[{"FourVector", "[", RowBox[{"q", ",", "\[Mu]"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"ScalarProduct", "[", RowBox[{ RowBox[{"p", "-", "k"}], ",", "q"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"(", FormBox[ RowBox[{"p", "-", "k"}], "TraditionalForm"], ")", "\[CenterDot]", FormBox["q", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourDivergence", "[", RowBox[{"t", ",", RowBox[{"FourVector", "[", RowBox[{ RowBox[{"k", "-", "p"}], ",", "\[Mu]"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "t", "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FourLaplacian", "Section", CellTags->"FourLaplacian"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "FourLaplacian[exp, p, q] is ", Cell[BoxData[ FormBox[ RowBox[{"\[PartialD]", RowBox[{"/", RowBox[{"\[PartialD]", SubscriptBox["p", "\[Mu]"]}]}], " "}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{"\[PartialD]", RowBox[{"/", RowBox[{"\[PartialD]", SubscriptBox["q", "\[Mu]"]}]}], " "}], TraditionalForm]]], "exp." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "FourLaplacian", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Dimension", "\[Rule]", "D"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["FourDivergence", ButtonData:>"FourDivergence", ButtonStyle->"Hyperlink", ButtonNote->"FourDivergence"], ", ", ButtonBox["RussianTrick", ButtonData:>"RussianTrick", ButtonStyle->"Hyperlink", ButtonNote->"RussianTrick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SP", "[", RowBox[{"q", ",", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourLaplacian", "[", RowBox[{"%", ",", "q", ",", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"2", " ", "D"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}], RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{"q", "-", "p"}]}], "]"}]}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"], RowBox[{ SuperscriptBox["q", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourLaplacian", "[", RowBox[{"%", ",", "q", ",", " ", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"4", " ", "m", " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]]}], RowBox[{ SuperscriptBox["q", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"2", " ", "D", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"]}], RowBox[{ SuperscriptBox["q", "2"], " ", SuperscriptBox["q", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"4", " ", "m", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"]}], RowBox[{ SuperscriptBox["q", "2"], " ", SuperscriptBox["q", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{"12", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"]}], RowBox[{ SuperscriptBox["q", "2"], " ", SuperscriptBox["q", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"2", " ", "D", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"]}], RowBox[{ SuperscriptBox["q", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"4", " ", "m", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"]}], RowBox[{ SuperscriptBox["q", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{"12", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"]}], RowBox[{ SuperscriptBox["q", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], RowBox[{ SuperscriptBox["q", "2"], " ", SuperscriptBox["q", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FourVector", "Section", CellTags->"FourVector"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "FourVector[p, \[Mu]] is the four-dimensional vector p with Lorentz index \ \[Mu]. \nA vector with space-time Dimension D is obtained by supplying the \ option Dimension \[Rule] D."], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FV", ButtonData:>"FV", ButtonStyle->"Hyperlink", ButtonNote->"FV"], ", ", ButtonBox["FVD", ButtonData:>"FVD", ButtonStyle->"Hyperlink", ButtonNote->"FVD"], ", ", ButtonBox["Pair", ButtonData:>"Pair", ButtonStyle->"Hyperlink", ButtonNote->"Pair"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourVector", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourVector", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FourVector", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], "]"}]], "Input"], Cell[TextData["Pair[LorentzIndex[\[Mu]], Momentum[p]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FourVector", "[", RowBox[{"p", ",", "\[Mu]", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], "]"}]], "Input"], Cell[TextData["Pair[LorentzIndex[\[Mu], D], Momentum[p, D]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FCE", "[", RowBox[{"FourVector", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], "]"}], "]"}]], "Input"], Cell[TextData["FV[p, \[Mu]]"], "Output"] }, Open ]], Cell["\<\ There is no special function to expand momenta in FourVector. Since FourVector is turned into Pair internally ExpandScalarProduct may be \ used.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandScalarProduct", "[", RowBox[{"FourVector", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", "\[Mu]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "-", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FreeQ2", "Section", CellTags->"FreeQ2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FreeQ2[expr, {form1, form2, ...}] yields True if expr does not \ contain any occurence of form1, form2, ... and False otherwise. FreeQ2[expr, form] is the same as FreeQ[expr, form].\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["SelectFree", ButtonData:>"SelectFree", ButtonStyle->"Hyperlink", ButtonNote->"SelectFree"], ", ", ButtonBox["SelectNotFree", ButtonData:>"SelectNotFree", ButtonStyle->"Hyperlink", ButtonNote->"SelectNotFree"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FreeQ2", "[", RowBox[{ RowBox[{"x", "+", RowBox[{"f", "[", "x", "]"}], "+", "y"}], ",", " ", RowBox[{"{", RowBox[{"a", ",", "x"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["False", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FreeQ2", "[", RowBox[{ RowBox[{"x", "+", RowBox[{"f", "[", "x", "]"}], "+", "y"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FreeQ2", "[", RowBox[{"x", ",", " ", "y"}], "]"}]], "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FreeQ2", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", " ", "f"}], "]"}]], "Input"], Cell[BoxData[ FormBox["False", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FromTFi", "Section", CellTags->"FromTFi"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FromTFi[expr, q1, q2, p] translates the TFi notatation from the \ TARCER package to the usual FeynCalc notation. See TFi for details on the \ conventions.\ \>", "Text"], Cell[TextData[{ "See also: ", ButtonBox["TFi", ButtonData:>"TFi", ButtonStyle->"Hyperlink", ButtonNote->"TFi"], ", ", ButtonBox["ToTFi", ButtonData:>"ToTFi", ButtonStyle->"Hyperlink", ButtonNote->"ToTFi"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FAD", "[", RowBox[{"q1", ",", RowBox[{"q1", "-", "p"}], ",", RowBox[{"{", RowBox[{"q2", ",", "M"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"q2", "-", "p"}], ",", "m"}], "}"}], ",", RowBox[{"q1", "-", "q2"}]}], "]"}], "//", "ToTFi"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ SubsuperscriptBox[ StyleBox["F", SingleLetterItalics->False, FontWeight->"Bold"], RowBox[{ FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "M"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "m"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"]}], RowBox[{"(", FormBox["D", "TraditionalForm"], ")"}]], TFi[ D, SPD[ p, p], {{1, 0}, {1, M}, {1, 0}, {1, m}, {1, 0}}], Editable->True], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromTFi", "[", RowBox[{ RowBox[{"TFi", "[", RowBox[{"D", ",", RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}], ",", RowBox[{"SOD", "[", "p", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "M"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}]}], "]"}], ",", "q1", ",", "q2", ",", "p"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ SubsuperscriptBox["q", "2", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], "-", SuperscriptBox["M", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", SubscriptBox["q", "2"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "1", "2"], "-", SuperscriptBox["m", "2"]}], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromTFi", "[", RowBox[{ RowBox[{"TFi", "[", RowBox[{"D", ",", RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}], ",", RowBox[{"SOD", "[", "p", "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "M"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}]}], "]"}], ",", "q1", ",", "q2", ",", "p"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", SubscriptBox["q", "2"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "2", "2"], "-", SuperscriptBox["M", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "1", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FRH", "Section", CellTags->"FRH"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ FRH[exp_] := FixedPoint[ReleaseHold, exp], i.e., FRH removes all \ HoldForm and Hold in exp.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Isolate", ButtonData:>"Isolate", ButtonStyle->"Hyperlink", ButtonNote->"Isolate"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hold", "[", RowBox[{"1", "-", "1", " ", "-", " ", RowBox[{"Hold", "[", RowBox[{"2", "-", "2"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"Hold", "(", RowBox[{ RowBox[{"-", RowBox[{"Hold", "(", RowBox[{"2", "-", "2"}], ")"}]}], "+", "1", "-", "1"}], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FRH", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Isolate", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "-", "x", "-", "1"}], "==", "0"}], "]"}], ",", "x", ",", RowBox[{"IsolateNames", "->", "H"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", TagBox[ RowBox[{"H", "(", "3", ")"}], HoldForm]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", TagBox[ RowBox[{"H", "(", "6", ")"}], HoldForm]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", TagBox[ RowBox[{"H", "(", "7", ")"}], HoldForm]}], "}"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FRH", "[", RowBox[{"H", "[", "3", "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "3"], " ", RadicalBox[ RowBox[{ FractionBox["27", "2"], "-", FractionBox[ RowBox[{"3", " ", SqrtBox["69"]}], "2"]}], "3"]}], "+", FractionBox[ RadicalBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"9", "+", SqrtBox["69"]}], ")"}]}], "3"], SuperscriptBox["3", RowBox[{"2", "/", "3"}]]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FunctionalD", "Section", CellTags->"FunctionalD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "FunctionalD[expr, {QuantumField[name, {\[Mu]}, {a}][p], ...}] calculates the \ functional derivative of expr with respect to the field list (with incoming \ momenta p, etc.) and does the fourier transform.\nFunctionalD[expr, \ {QuantumField[name, {\[Mu]},{a}], ...}] calculates the functional derivate \ and does partial integration but omits the x-space delta functions."], "Text"], Cell["FunctionalD is a low level function used in FeynRule.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynRule", ButtonData:>"FeynRule", ButtonStyle->"Hyperlink", ButtonNote->"FeynRule"], ", ", ButtonBox["QuantumField", ButtonData:>"QuantumField", ButtonStyle->"Hyperlink", ButtonNote->"QuantumField"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[TextData[{ "Instead of the usual ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Phi]", "(", "x", ")"}], "/", RowBox[{"\[Delta]\[Phi]", "(", "y", ")"}]}], "=", RowBox[{ RowBox[{"\[Delta]", "^", RowBox[{"(", "D", ")"}]}], RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}]}]}], TraditionalForm]]], " the arguments and the \[Delta] function are omitted, i.e., for the \ program for simplicity: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Delta]\[Phi]", "/", "\[Delta]\[Phi]"}], "=", "1"}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionalD", "[", RowBox[{ RowBox[{"QuantumField", "[", "\[Phi]", "]"}], ",", RowBox[{"QuantumField", "[", "\[Phi]", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionalD", "[", RowBox[{ RowBox[{ RowBox[{"QuantumField", "[", "\[Phi]", "]"}], "^", "2"}], ",", RowBox[{"QuantumField", "[", "\[Phi]", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"2", " ", "\[Phi]"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "Instead of the usual ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Delta]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"\[Phi]", "(", "x", ")"}]}]}], ")"}], "/", RowBox[{"\[Delta]\[Phi]", "(", "y", ")"}]}], "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{ RowBox[{"\[Delta]", "^", RowBox[{"(", "D", ")"}]}], RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}]}]}]}], TraditionalForm]]], " the arguments are omitted, and the ", Cell[BoxData[ FormBox[ SubscriptBox["\[PartialD]", "\[Mu]"], TraditionalForm]]], "operator is specified by default to be an integration by parts operator, \ i.e., the right hand side will be just ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FormBox[ SubscriptBox["\[PartialD]", "\[Mu]"], "TraditionalForm"]}], ","}], TraditionalForm]]], " or, more precisely (by default) ", Cell[BoxData[ FormBox[ RowBox[{"-", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]]], "." }], "Text", ZeroWidthTimes->True], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionalD", "[", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{ RowBox[{"PartialD", "[", "\[Mu]", "]"}], ",", "\[Phi]"}], "]"}], ",", RowBox[{"QuantumField", "[", "\[Phi]", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"S", "[", "\[Phi]", "]"}], " ", "=", RowBox[{ RowBox[{"1", "/", "2"}], RowBox[{"\[Integral]", " ", RowBox[{ RowBox[{"d", "^", "D"}], RowBox[{"x", " ", "[", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"\[Phi]", "(", "x", ")"}]}], " ", RowBox[{ RowBox[{"\[PartialD]", RowBox[{"^", "\[Mu]"}]}], RowBox[{"\[Phi]", "(", "x", ")"}]}]}], "-", RowBox[{ RowBox[{"m", "^", "2"}], RowBox[{"\[Phi]", "(", "x", ")"}], " ", RowBox[{"\[Phi]", "(", "y", ")"}]}]}], "]"}]}]}]}]}], TraditionalForm]]]], "Subsubsection", ZeroWidthTimes->True], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"s", "[", "\[Phi]", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{ RowBox[{"PartialD", "[", "\[Mu]", "]"}], ",", "\[Phi]"}], "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{ RowBox[{"PartialD", "[", "\[Mu]", "]"}], ",", "\[Phi]"}], "]"}]}], "-", RowBox[{ RowBox[{"m", "^", "2"}], " ", RowBox[{ RowBox[{"QuantumField", "[", "\[Phi]", "]"}], ".", RowBox[{"QuantumField", "[", "\[Phi]", "]"}]}]}]}], ")"}], "/", "2"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["\[Phi]", "\[Null]", "\[Null]"]}], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["\[Phi]", "\[Null]", "\[Null]"]}]}], "-", RowBox[{ SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"\[Phi]", " ", "\[Phi]"}], ")"}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionalD", "[", RowBox[{ RowBox[{"s", "[", "\[Phi]", "]"}], ",", RowBox[{"QuantumField", "[", "\[Phi]", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[Phi]"}], " ", SuperscriptBox["m", "2"]}], "-", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["\[Phi]", "\[Null]", "\[Null]"]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"S", "[", "A", "]"}], " ", "=", " ", RowBox[{"-", RowBox[{"\[Integral]", " ", RowBox[{ RowBox[{"d", "^", "D"}], "x", " ", RowBox[{"1", "/", "4"}], " ", RowBox[{ SubsuperscriptBox["F", "a", "\[Mu]\[Nu]"], "(", "x", ")"}], " ", RowBox[{ SubscriptBox["F", "\[Mu]\[Nu]a"], "(", "x", ")"}]}]}]}]}], TraditionalForm]]]], "Subsubsection", ZeroWidthTimes->True], Cell[TextData[StyleBox["First approach", FontWeight->"Bold"]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F1", "=", RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "a", ",", RowBox[{"{", RowBox[{"A", ",", "b", ",", "c"}], "}"}], ",", "1", ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "c"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F2", "=", RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "a", ",", RowBox[{"{", RowBox[{"A", ",", "d", ",", "e"}], "}"}], ",", "1", ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "d", "\[NoBreak]", "e"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"S", "[", "A", "]"}], "=", RowBox[{ RowBox[{"-", RowBox[{"1", "/", "4"}]}], RowBox[{"F1", ".", "F2"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "c"}]]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "d", "\[NoBreak]", "e"}]]}]}], ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "In order to derive the equation of motion the functional derivative of ", Cell[BoxData[ FormBox["S", TraditionalForm]]], " with respect to ", Cell[BoxData[ FormBox[ SubsuperscriptBox["A", "\[Sigma]", "g"], TraditionalForm]]], "has to be set to zero. Bearing in mind that for FeynCalc we have to be \ precise as to where which operators (coming from the substitution of the \ derivative of the \[Delta] function) act:, act with the functional \ derivative operator on the first field strength:" }], "Text"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox[ RowBox[{ FormBox[ RowBox[{ FormBox[ RowBox[{"0", " ", "=", " ", RowBox[{ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"\[Delta]", "S"}], ")"}], "/", RowBox[{"(", RowBox[{"\[Delta]", RowBox[{ SubsuperscriptBox["A", "\[Sigma]", "g"], "(", "y", ")"}]}], ")"}]}], "TraditionalForm"], "=", RowBox[{"-", RowBox[{"2", "/", "4"}]}]}]}], "TraditionalForm"], RowBox[{"\[Integral]", RowBox[{ RowBox[{"d", "^", "D"}], "x"}]}]}], "TraditionalForm"], " ", RowBox[{"(", RowBox[{"\[Delta]", "/", RowBox[{"(", RowBox[{"\[Delta]", RowBox[{ SubsuperscriptBox["A", "\[Sigma]", "g"], "(", "y", ")"}]}], ")"}]}]}]}], "TraditionalForm"], " ", RowBox[{ SubscriptBox["F", "\[Mu]\[Nu]a"], "(", "x", ")"}]}], ")"}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{" ", SubsuperscriptBox["F", "a", RowBox[{",", "\[Mu]\[Nu]"}]]}], "TraditionalForm"], "(", "x", ")"}], TraditionalForm]]] }], "Text", ZeroWidthTimes->True], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"See", " ", "what", " ", "happens", " ", "with", " ", "just", RowBox[{ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"\[Delta]", RowBox[{"S", "[", "A", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"\[Delta]", SubsuperscriptBox["A", "\[Sigma]", "g"]}], ")"}]}], "TraditionalForm"], "."}]}], TraditionalForm]]]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ag", "=", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"{", "\[Sigma]", "}"}], ",", RowBox[{"{", "g", "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"FunctionalD", "[", RowBox[{"F1", ",", "Ag"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[ "In order to minimize the number of dummy indices, replace b \[Rule] c."], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", " ", "=", " ", RowBox[{"t1", " ", "/.", " ", RowBox[{"b", "\[Rule]", "c"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]]}], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Nu]", "\[Sigma]"}]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Sigma]"}]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "Instead of inserting the definition for the second ", Cell[BoxData[ FormBox[ SubsuperscriptBox["F", "a", "\[Mu]\[Nu]"], TraditionalForm]]], ", introduce a QuantumField object with antisymmetry built into the Lorentz \ indices:" }], "Text"], Cell[BoxData[ RowBox[{"F", "/:", " ", RowBox[{"QuantumField", "[", RowBox[{ "pard___", ",", "F", ",", "\[Beta]_", ",", "\[Alpha]_", ",", "s_"}], "]"}], ":=", RowBox[{ RowBox[{"-", RowBox[{"QuantumField", "[", RowBox[{ "pard", ",", "F", ",", "\[Alpha]", ",", "\[Beta]", ",", "s"}], "]"}]}], "/;", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"\[Beta]", ",", "\[Alpha]"}], "}"}], "]"}]}]}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", RowBox[{"F", ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Mu]", "\[RuleDelayed]", "\[Nu]"}], ",", RowBox[{"\[Nu]", "\[RuleDelayed]", "\[Mu]"}]}], "}"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{ RowBox[{"Contract", "[", RowBox[{"ExpandPartialD", "[", RowBox[{ RowBox[{"-", RowBox[{"1", "/", "2"}]}], " ", RowBox[{"t1", ".", RowBox[{"QuantumField", "[", RowBox[{"F", ",", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}], ",", RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}], ",", RowBox[{"SUNIndex", "[", "a", "]"}]}], "]"}]}]}], "]"}], "]"}], "/.", RowBox[{"Dot", "\[Rule]", "Times"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t3", " ", "=", " ", RowBox[{"t2", " ", "/.", " ", RowBox[{"\[Nu]", "\[Rule]", "\[Mu]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t4", "=", RowBox[{ RowBox[{"FCE", "[", "t3", "]"}], "/.", " ", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "c", ",", "g"}], "]"}], "\[Rule]", RowBox[{"-", RowBox[{"SUNF", "[", RowBox[{"g", ",", "c", ",", "a"}], "]"}]}]}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{"g", "\[NoBreak]", "c", "\[NoBreak]", "a"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "Since the variational derivative vanishes t4 implies that 0 = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["D", "\[Mu]"], SubsuperscriptBox["F", "g", "\[Mu]\[Sigma]"]}], TraditionalForm]]], " ." }], "Text"], Cell[TextData[StyleBox["Second approach", FontWeight->"Bold"]], "Text"], Cell["\<\ It is of course also possible to do the functional deriviate on the \ S[A] with both field strength tensors inserted.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S", "[", "A", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "c"}]]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "d", "\[NoBreak]", "e"}]]}]}], ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r1", "=", RowBox[{ RowBox[{"\[IndentingNewLine]", "FunctionalD"}], "[", RowBox[{ RowBox[{"S", "[", "A", "]"}], ",", "Ag"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]]}], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]]}], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ This is just funcional derivatves and partial integration and \ simple contraction of indices. No attempt is made to rename dummy indices \ (since this is difficult in general ...).\ \>", "Text"], Cell["\<\ With a general replacement rule only valid for commuting fields the \ color indices can be canonicalized a bit more. The idea is to use the \ commutative properties of the vector fields, and canonicalize the color \ indices by a trick. This function will work on any commuting product of \ fields.\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "symfun", "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"symfun", "[", RowBox[{"z_", ",", "fieldname_Symbol"}], "]"}], ":=", RowBox[{"Expand", "[", RowBox[{"SUNSimplify", "[", RowBox[{"FixedPoint", "[", RowBox[{ RowBox[{ RowBox[{"Collect2", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DotSimplify", "[", RowBox[{"#1", "/.", RowBox[{"Times", "\[Rule]", "Dot"}]}], "]"}], "/.", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", "qi___", ")"}], ".", RowBox[{"QuantumField", "[", RowBox[{ "par1___", ",", "fieldname", ",", "li1_", ",", "sui1_"}], "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{ "par2___", ",", "fieldname", ",", "li2_", ",", "sui2_"}], "]"}], ".", "qf___"}], " ", ")"}], "any_"}], ")"}], "\[RuleDelayed]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"qi", ".", RowBox[{"QuantumField", "[", RowBox[{ "par1", ",", "A", ",", "li1", ",", "sui2"}], "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{ "par2", ",", "fieldname", ",", "li2", ",", "sui1"}], "]"}], ".", "qf"}], " ", ")"}], RowBox[{"(", RowBox[{"any", "/.", RowBox[{"{", RowBox[{ RowBox[{ "sui1", "\[RuleDelayed]", "sui2"}], ",", RowBox[{ "sui2", "\[RuleDelayed]", "sui1"}]}], "}"}]}], ")"}]}], ")"}], "/;", RowBox[{ RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{"FreeQ2", "[", RowBox[{"any", ",", RowBox[{"{", RowBox[{"sui1", ",", "su2"}], "}"}]}], "]"}], ")"}]}], ")"}], "&&", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"sui1", ",", "sui2"}], "}"}], "]"}], ")"}]}]}]}]}]}], "/.", RowBox[{"Dot", "\[Rule]", "Times"}]}], ",", "QuantumField"}], "]"}], "&"}], ",", "z", ",", "42"}], "]"}], "]"}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r2", " ", "=", " ", RowBox[{"symfun", "[", RowBox[{"r1", ",", "A"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r3", "=", RowBox[{"r2", "/.", RowBox[{"\[Nu]", "\[Rule]", "\[Mu]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"2", " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["3", "4"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "Inspection reveals that still terms are the same. Gather the terms with \ two ", Cell[BoxData[ FormBox[ RowBox[{"f", " "}], TraditionalForm]]], "'s:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"twof", "=", RowBox[{"Select", "[", RowBox[{"r3", ",", RowBox[{ RowBox[{ RowBox[{"Count", "[", RowBox[{"#", ",", RowBox[{"SUNF", "[", "__", "]"}]}], "]"}], "===", "2"}], "&"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "4"], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"twofnew", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "twof", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"twof", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"b", "\[RuleDelayed]", "c"}], ",", RowBox[{"c", "\[RuleDelayed]", "b"}]}], "}"}]}], ")"}]}], ")"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[RuleDelayed]", "c"}], ",", RowBox[{"c", "\[RuleDelayed]", "a"}]}], "}"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r4", " ", "=", " ", RowBox[{"r3", "-", "twof", "+", "twofnew"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"2", " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Check that this is now indeed the same as the t4 result from the first \ attempt.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData["t4"], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["F", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{"g", "\[NoBreak]", "c", "\[NoBreak]", "a"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"w0", "=", RowBox[{ RowBox[{ RowBox[{"RightPartialD", "[", "\[Mu]", "]"}], ".", RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Sigma]", ",", "g", ",", RowBox[{"{", RowBox[{"A", ",", "a", ",", "b"}], "}"}], ",", "1"}], "]"}]}], "+", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}], ",", RowBox[{"SUNIndex", "[", "c", "]"}]}], "]"}], RowBox[{"FieldStrength", "[", RowBox[{"\[Mu]", ",", "\[Sigma]", ",", "a", ",", RowBox[{"{", RowBox[{"A", ",", "b", ",", "d"}], "}"}], ",", "1"}], "]"}], RowBox[{"SUNF", "[", RowBox[{"g", ",", "c", ",", "a"}], "]"}]}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["F", RowBox[{"\[Mu]", "\[Sigma]"}], RowBox[{"g", FormBox[ RowBox[{"{", RowBox[{"A", ",", "a", ",", "b"}], "}"}], "TraditionalForm"], FormBox["1", "TraditionalForm"]}]]}], "+", RowBox[{ SubsuperscriptBox["F", RowBox[{"\[Mu]", "\[Sigma]"}], RowBox[{"a", FormBox[ RowBox[{"{", RowBox[{"A", ",", "b", ",", "d"}], "}"}], "TraditionalForm"], FormBox["1", "TraditionalForm"]}]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{"g", "\[NoBreak]", "c", "\[NoBreak]", "a"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"w1", "=", RowBox[{"Explicit", "[", "w0", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"g", "\[NoBreak]", "a", "\[NoBreak]", "b"}]]}]}], ")"}]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "d"}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{"g", "\[NoBreak]", "c", "\[NoBreak]", "a"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"w2", "=", RowBox[{ RowBox[{"ExpandPartialD", "[", "w1", "]"}], "/.", RowBox[{"Dot", "\[Rule]", "Times"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"], FormBox[ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], "TraditionalForm"]}], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dif1", " ", "=", " ", RowBox[{"w2", "-", "r4"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["A", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["g", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dif2", "=", RowBox[{"symfun", "[", RowBox[{"dif1", ",", "A"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell["quod erat demonstrandum", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"Unset", "[", RowBox[{"s", "[", "\[Phi]", "]"}], "]"}], ";", RowBox[{ RowBox[{ RowBox[{"Unset", "[", RowBox[{"S", "[", "A", "]"}], "]"}], ";"}], "\[IndentingNewLine]"}]}], RowBox[{"Clear", "[", RowBox[{ "Ag", ",", "F1", ",", "F2", ",", "t1", ",", "t2", ",", "t3", ",", "t4", ",", "F", ",", "r1", ",", "r2", ",", "r3", ",", "symfun", ",", "twof", ",", "twofnew", ",", "w0", ",", "w1", ",", "w2", ",", "dif1", ",", "dif2", ",", "dif3"}], "]"}]}], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Examples of funcional differentiation as used in FeynRule", "Subsection"], Cell["This is a part of the QCD Lagrangian.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"Gstrong", "*", RowBox[{ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", " ", RowBox[{"LorentzIndex", "[", "li1", "]"}], ",", " ", " ", RowBox[{"SUNIndex", "[", "si2", "]"}]}], "]"}], "[", "]"}], " ", ".", " ", " ", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", " ", RowBox[{"LorentzIndex", "[", "li2", "]"}], ",", " ", " ", " ", RowBox[{"SUNIndex", "[", "si4", "]"}]}], "]"}], "[", "]"}], " ", ".", " ", " ", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{ RowBox[{"PartialD", "[", RowBox[{"LorentzIndex", "[", "li1", "]"}], "]"}], ",", " ", "GaugeField", ",", " ", " ", " ", RowBox[{"LorentzIndex", "[", "li2", "]"}], ",", " ", RowBox[{"SUNIndex", "[", "si1", "]"}]}], "]"}], "[", "]"}]}], "*", " ", " ", RowBox[{"SUNF", "[", RowBox[{ RowBox[{"SUNIndex", "[", "si1", "]"}], ",", " ", RowBox[{"SUNIndex", "[", "si2", "]"}], ",", " ", RowBox[{"SUNIndex", "[", "si4", "]"}]}], "]"}]}], ")"}], "/", "4"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "4"], " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si2", "TraditionalForm"], "TraditionalForm"]], "(", ")"}], " ", RowBox[{ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si4", "TraditionalForm"], "TraditionalForm"]], "(", ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]]}], ")"}], "(", ")"}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["si2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["si4", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionalD", "[", RowBox[{"%", ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"{", "a", "}"}]}], "]"}], "[", "p", "]"}], ",", " ", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Nu]", "}"}], ",", RowBox[{"{", "b", "}"}]}], "]"}], "[", "q", "]"}], ",", " ", RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Rho]", "}"}], ",", RowBox[{"{", "c", "}"}]}], "]"}], "[", "r", "]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "4"], " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li1", "\[Mu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si2", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li2", "\[Nu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si4", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"li2", "\[Rho]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li1", "\[Mu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si2", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li2", "\[Rho]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si4", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"li2", "\[Nu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li1", "\[Nu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si2", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li2", "\[Mu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si4", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"li2", "\[Rho]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li1", "\[Nu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si2", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li2", "\[Rho]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si4", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"li2", "\[Mu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li1", "\[Rho]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si2", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li2", "\[Mu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si4", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"li2", "\[Nu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li1", "\[Rho]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si2", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{"li2", "\[Nu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si4", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"li2", "\[Mu]"}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["si1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["si2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["si4", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Calc", "[", RowBox[{"%", "//", "Calc"}], "]"}], "//", "Factor"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", 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 ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FVD", "Section", CellTags->"FVD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "FVD[p, \[Mu]] is the D-dimensional vector p with Lorentz index \[Mu]."], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FCE", ButtonData:>"FCE", ButtonStyle->"Hyperlink", ButtonNote->"FCE"], ", ", ButtonBox["FCI", ButtonData:>"FCI", ButtonStyle->"Hyperlink", ButtonNote->"FCI"], ", ", ButtonBox["FV", ButtonData:>"FV", ButtonStyle->"Hyperlink", ButtonNote->"FV"], ", ", ButtonBox["FourVector", ButtonData:>"FourVector", ButtonStyle->"Hyperlink", ButtonNote->"FourVector"], ", ", ButtonBox["Pair", ButtonData:>"Pair", ButtonStyle->"Hyperlink", ButtonNote->"Pair"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["p", "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FVD", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData["FVD[p, \[Mu]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCI", "[", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData["Pair[LorentzIndex[\[Mu], D], Momentum[p, D]]"], "Output"] }, Open ]], Cell["There is no special function to expand momenta in FVD.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandScalarProduct", "[", RowBox[{"FVD", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", "\[Mu]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "-", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input"], Cell[TextData[ "Pair[LorentzIndex[\[Mu], D], Momentum[p, D]] - \n Pair[LorentzIndex[\[Mu], \ D], Momentum[q, D]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FV", "Section", CellTags->"FV"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "FV[p, \[Mu]] is the four-dimensional vector ", Cell[BoxData[ FormBox[ RowBox[{"p", "^", "\[Mu]"}], TraditionalForm]]], ". " }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FCE", ButtonData:>"FCE", ButtonStyle->"Hyperlink", ButtonNote->"FCE"], ",", ButtonBox["FCI", ButtonData:>"FCI", ButtonStyle->"Hyperlink", ButtonNote->"FCI"], ", ", ButtonBox["FVD", ButtonData:>"FVD", ButtonStyle->"Hyperlink", ButtonNote->"FVD"], ", ", ButtonBox["FourVector", ButtonData:>"FourVector", ButtonStyle->"Hyperlink", ButtonNote->"FourVector"], ", ", ButtonBox["Pair", ButtonData:>"Pair", ButtonStyle->"Hyperlink", ButtonNote->"Pair"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FV", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["p", "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FV", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FV", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData["FV[p, \[Mu]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCI", "[", RowBox[{"FV", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData["Pair[LorentzIndex[\[Mu]], Momentum[p]]"], "Output"] }, Open ]], Cell["\<\ There is no special function to expand momenta in FV; \ ExpandScalarProduct does the job.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandScalarProduct", "[", RowBox[{"FV", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", "\[Mu]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "-", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input"], Cell[TextData[ "Pair[LorentzIndex[\[Mu]], Momentum[p]] - \n Pair[LorentzIndex[\[Mu]], \ Momentum[q]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GAD", "Section", CellTags->"GAD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "GAD[\[Mu]] can be used as input for a D-dimensional ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Gamma]", "\[Mu]"], " "}], TraditionalForm]]], "and is transformed into DiracGamma[LorentzIndex[\[Mu],D],D] by \ FeynCalcInternal (=FCI).GAD[\[Mu],\[Nu], ...] is a short form for \ GAD[\[Mu]].GAD[\[Nu]]. ... ." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracMatrix", ButtonData:>"DiracMatrix", ButtonStyle->"Hyperlink", ButtonNote->"DiracMatrix"], ", ", ButtonBox["GA", ButtonData:>"GA", ButtonStyle->"Hyperlink", ButtonNote->"GA"], ", ", ButtonBox["GS", ButtonData:>"GS", ButtonStyle->"Hyperlink", ButtonNote->"GS"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GAD", "[", "\[Mu]", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GAD", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "-", RowBox[{"GAD", "[", RowBox[{"\[Nu]", ",", "\[Mu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FCI", "[", RowBox[{"GAD", "[", "\[Mu]", "]"}], "]"}], "]"}]], "Input"], Cell[TextData["DiracGamma[LorentzIndex[\[Mu], D], D]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GAD", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Sigma]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"GAD", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], "]"}]], "Input"], Cell[TextData[ "GAD[\[Mu]] . GAD[\[Nu]] . GAD[\[Rho]] . GAD[\[Sigma]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GAD", "[", "\[Alpha]", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"GSD", "[", "p", "]"}], "+", "m"}], ")"}], ".", RowBox[{"GAD", "[", "\[Beta]", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", RowBox[{"(", RowBox[{"m", "+", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}]}], ")"}], " ", SuperscriptBox["\[Gamma]", "\[Beta]"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GammaEpsilon", "Section", CellTags->"GammaEpsilon"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ GammaEpsilon[exp] gives a series expansion of Gamma[exp] in Epsilon \ up to order 6 (where EulerGamma is neglected).\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["GammaExpand", ButtonData:>"GammaExpand", ButtonStyle->"Hyperlink", ButtonNote->"GammaExpand"], ", ", ButtonBox["Series2", ButtonData:>"Series2", ButtonStyle->"Hyperlink", ButtonNote->"Series2"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["\<\ If the argument is of the form (1+a Epsilon) the result is not \ calculated but tabulated.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GammaEpsilon", "[", RowBox[{"1", "+", RowBox[{"a", " ", "Epsilon"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"C$1145", " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "6"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "5"]}], " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["5", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], " ", SuperscriptBox["a", "5"]}], "-", RowBox[{ FractionBox["1", "36"], " ", SuperscriptBox["\[Pi]", "2"], " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], " ", SuperscriptBox["a", "5"]}]}], ")"}], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "5"]}], "+", RowBox[{ FractionBox["1", "160"], " ", SuperscriptBox["a", "4"], " ", SuperscriptBox["\[Pi]", "4"], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "4"]}], "-", RowBox[{ FractionBox["1", "3"], " ", SuperscriptBox["a", "3"], " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "3"]}], "+", RowBox[{ FractionBox["1", "12"], " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "2"]}], "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GammaEpsilon", "[", RowBox[{"1", "-", RowBox[{"Epsilon", "/", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"C$1146", " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "6"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "1152"], "+", FractionBox[ TagBox[ RowBox[{"\[Zeta]", "(", TagBox["5", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], "160"]}], ")"}], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "5"]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "4"], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "4"]}], "2560"], "+", RowBox[{ FractionBox["1", "24"], " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "3"]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "2"]}], "48"], "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell["For other arguments the expansion is calculated.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GammaEpsilon", "[", "Epsilon", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"C$1150", " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "6"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "36"], " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "2", ")"}]], "(", "1", ")"}]}], "-", FractionBox[ RowBox[{ RowBox[{ FractionBox["1", "36"], " ", SuperscriptBox["\[Pi]", "3"], " ", RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "2", ")"}]], "(", "1", ")"}]}], "+", RowBox[{ FractionBox["1", "120"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["5", "3"]}], " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "2", ")"}]], "(", "1", ")"}]}], "+", RowBox[{"24", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["5", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}]}], "\[Pi]"]}], ")"}], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "4"]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "4"], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "3"]}], "160"], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "2", ")"}]], "(", "1", ")"}], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "2"]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", TagBox["\[CurlyEpsilon]", TraditionalForm]}], "12"], "+", FractionBox["1", FormBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GammaEpsilon", "[", "x", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", "x", ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GammaExpand", "Section", CellTags->"GammaExpand"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ GammaExpand[exp] rewrites Gamma[n + m] in exp (where n has Head \ Integer).\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["GammaEpsilon", ButtonData:>"GammaEpsilon", ButtonStyle->"Hyperlink", ButtonNote->"GammaEpsilon"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GammaExpand", "[", RowBox[{"Gamma", "[", RowBox[{"2", " ", "+", " ", "Epsilon"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ TagBox["\[CurlyEpsilon]", TraditionalForm], "+", "1"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{ TagBox["\[CurlyEpsilon]", TraditionalForm], "+", "1"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GammaExpand", "[", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "3"}], "+", "Epsilon"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ TagBox["\[CurlyEpsilon]", TraditionalForm], "+", "1"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{ TagBox["\[CurlyEpsilon]", TraditionalForm], "-", "3"}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox["\[CurlyEpsilon]", TraditionalForm], "-", "2"}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox["\[CurlyEpsilon]", TraditionalForm], "-", "1"}], ")"}], " ", TagBox["\[CurlyEpsilon]", TraditionalForm]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GammaExpand", "[", RowBox[{"Gamma", "[", RowBox[{"1", " ", "+", " ", "Epsilon"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ TagBox["\[CurlyEpsilon]", TraditionalForm], "+", "1"}], ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GA", "Section", CellTags->"GA"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "GA[\[Mu]] can be used as input for a 4-dimensional ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Gamma]", "\[Mu]"], " "}], TraditionalForm]]], "and is transformed into DiracGamma[LorentzIndex[\[Mu]]] by \ FeynCalcInternal (=FCI).GA[\[Mu],\[Nu], ...] is a short form for \ GA[\[Mu]].GA[\[Nu]]. ... ." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracMatrix", ButtonData:>"DiracMatrix", ButtonStyle->"Hyperlink", ButtonNote->"DiracMatrix"], ", ", ButtonBox["GAD", ButtonData:>"GAD", ButtonStyle->"Hyperlink", ButtonNote->"GAD"], ", ", ButtonBox["GS", ButtonData:>"GS", ButtonStyle->"Hyperlink", ButtonNote->"GS"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GA", "[", "\[Mu]", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Gamma]", "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "-", RowBox[{"GA", "[", RowBox[{"\[Nu]", ",", "\[Mu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], "-", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FCI", "[", RowBox[{"GA", "[", "\[Mu]", "]"}], "]"}], "]"}]], "Input"], Cell[TextData["DiracGamma[LorentzIndex[\[Mu]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Rho]"], " ", SuperscriptBox["\[Gamma]", "\[Sigma]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], "]"}]], "Input"], Cell[TextData["GA[\[Mu]] . GA[\[Nu]] . GA[\[Rho]] . GA[\[Sigma]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GA", "[", "\[Alpha]", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"GS", "[", "p", "]"}], "+", "m"}], ")"}], ".", RowBox[{"GA", "[", "\[Beta]", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], " ", RowBox[{"(", RowBox[{"m", "+", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}]}], ")"}], " ", SuperscriptBox["\[Gamma]", "\[Beta]"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GhostPropagator", "Section", CellTags->"GhostPropagator"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "GhostPropagator[p, a, b] gives the ghost propagator where \"a\" and \"b\" \ are the color indices. GhostPropagator[p] omits the ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{"a", "\[NoBreak]", "b"}]], "."}], TraditionalForm]]] }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["GHP", ButtonData:>"GHP", ButtonStyle->"Hyperlink", ButtonNote->"GHP"], ", ", ButtonBox["GluonPropagator", ButtonData:>"GluonPropagator", ButtonStyle->"Hyperlink", ButtonNote->"GluonPropagator"], ", ", ButtonBox["GluonGhostVertex", ButtonData:>"GluonGhostVertex", ButtonStyle->"Hyperlink", ButtonNote->"GluonGhostVertex"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GhostPropagator", "[", RowBox[{"p", ",", "a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GhostPropagator", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["\[ImaginaryI]", SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GhostPropagator", "[", RowBox[{"p", ",", "1", ",", "2"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"]}]]}], SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GhostPropagator", "[", RowBox[{ RowBox[{"-", "k"}], ",", "3", ",", "4"}], "]"}], "//", " ", "FCE"}], "//", "InputForm"}]], "Input"], Cell["I*FAD[-k]*SD[ci3, ci4]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GHP", "Section", CellTags->"GHP"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "GHP[p, a, b] gives the ghost propagator where \"a\" and \"b\" are the \ color indices. GHP[p] omits the ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{"a", "\[NoBreak]", "b"}]], "."}], TraditionalForm]]] }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["GhostPropagator", ButtonData:>"GhostPropagator", ButtonStyle->"Hyperlink", ButtonNote->"GhostPropagator"], ", ", ButtonBox["GluonPropagator", ButtonData:>"GluonPropagator", ButtonStyle->"Hyperlink", ButtonNote->"GluonPropagator"], ", ", ButtonBox["GluonGhostVertex", ButtonData:>"GluonGhostVertex", ButtonStyle->"Hyperlink", ButtonNote->"GluonGhostVertex"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GHP", "[", RowBox[{"p", ",", "a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GHP", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["\[ImaginaryI]", SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GHP", "[", RowBox[{"p", ",", "1", ",", "2"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"]}]]}], SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FCE", "[", RowBox[{"GHP", "[", RowBox[{ RowBox[{"-", "k"}], ",", "3", ",", "4"}], "]"}], "]"}], "]"}]], "Input"], Cell["I*FAD[-k]*SD[ci3, ci4]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GaugeField", "Section", CellTags->"GluonField"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ GaugeField is a just a name. No functional properties are \ associated with it. GaugeField is used as default setting for the option QuantumField of \ FieldStrength.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FieldStrength", ButtonData:>"FieldStrength", ButtonStyle->"Hyperlink", ButtonNote->"FieldStrength"], ", ", ButtonBox["QuantumField", ButtonData:>"QuantumField", ButtonStyle->"Hyperlink", ButtonNote->"QuantumField"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData["GaugeField"], "Input"], Cell[BoxData[ FormBox["A", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}], ",", RowBox[{"SUNIndex", "[", "a", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GluonGhostVertex", "Section", CellTags->"GluonGhostVertex"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ GluonGhostVertex[{p,mu,a}, {q,nu,b}, {k,rho,c}] or GluonGhostVertex[ p,mu,a , q,nu,b , k,rho,c ] yields the Gluon-Ghost vertex. \ The first argument represents the gluon and the third argument the outgoing \ ghost field (but incoming four-momentum). The dimension and the name of the \ coupling constant are determined by the options Dimension and \ CouplingConstant.\ \>", "Text"], Cell[CellGroupData[{ Cell[TextData[{ "See also: ", " ", ButtonBox["GluonVertex", ButtonData:>"GluonVertex", ButtonStyle->"Hyperlink", ButtonNote->"GluonVertex"], "." }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "GluonGhostVertex", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonGhostVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Rho]", ",", "c"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "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[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "Gstrong*Pair[LorentzIndex[\[Mu], D], Momentum[k, D]]*\n SUNF[SUNIndex[a], \ SUNIndex[b], SUNIndex[c]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonGhostVertex", "[", RowBox[{"p", ",", "1", ",", "q", ",", "2", ",", "k", ",", "3"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci3", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GluonPropagator", "Section", CellTags->"GluonPropagator"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "GluonPropagator[p, {mu, a}, {nu, b}] or \nGluonPropagator[p, mu, a , nu, \ b ] yields the gluon propagator. \nGluonPropagator[p, {mu}, {nu}] or \ GluonPropagator[p, mu, nu] omits the SUNDelta. The gauge and the dimension \ is determined by the option Gauge and Dimension. \nThe following settings of \ Gauge are possible: \n1 \[VeryThinSpace]\[VeryThinSpace] \ \[VeryThinSpace] : the Feynman gauge\n\[Alpha] \ : the general covariant gauge\n{Momentum[n] ,1} \ : axial gauge."], "Text"], Cell["GP can be used as an abbreviation of GluonPropagator.", "Text"], Cell[CellGroupData[{ Cell[BoxData["GP"], "Input"], Cell[BoxData[ FormBox["GluonPropagator", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "GluonPropagator", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CounterTerm", "\[Rule]", "False"}], ",", RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Gauge", "\[Rule]", "1"}], ",", RowBox[{"\[CapitalKoppa]", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["GluonVertex", ButtonData:>"GluonVertex", ButtonStyle->"Hyperlink", ButtonNote->"GluonVertex"], ", ", ButtonBox["GhostPropagator", ButtonData:>"GhostPropagator", ButtonStyle->"Hyperlink", ButtonNote->"GhostPropagator"], ", ", ButtonBox["GluonGhostVertex", ButtonData:>"GluonGhostVertex", ButtonStyle->"Hyperlink", ButtonNote->"GluonGhostVertex"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Examples"], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonPropagator", "[", RowBox[{"p", ",", "\[Mu]", ",", "a", ",", "\[Nu]", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], SuperscriptBox["p", "2"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonPropagator", "[", RowBox[{"p", ",", "\[Mu]", ",", "a", ",", "\[Nu]", ",", "b", ",", RowBox[{"Gauge", "\[Rule]", "\[Alpha]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], SuperscriptBox["p", "2"]], "-", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonPropagator", "[", RowBox[{"p", ",", "\[Mu]", ",", "a", ",", "\[Nu]", ",", "b", ",", RowBox[{"Gauge", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Momentum", "[", "n", "]"}], ",", "1"}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["n", "TraditionalForm"], "2"]}], "+", FractionBox[ RowBox[{ SuperscriptBox[ FormBox["n", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["n", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["n", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]], "+", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox[ FormBox["n", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox[ FormBox["n", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], RowBox[{ FormBox["n", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonPropagator", "[", RowBox[{"p", ",", "\[Mu]", ",", "\[Nu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], SuperscriptBox["p", "2"]]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ This is a convenient way to enter amplitudes by hand (GP is an \ abbreviation GluonPropagator).\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GP", "[", RowBox[{"p", ",", "1", ",", "2"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"]}]]}], SuperscriptBox["p", "2"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GP", "[", RowBox[{ RowBox[{"-", "k"}], ",", "3", ",", "4"}], "]"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["-I*FAD[-k]*MTD[li3, li4]*SD[ci3, ci4]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonPropagator", "[", RowBox[{"p", ",", "\[Mu]", ",", "a", ",", "\[Nu]", ",", "b", ",", RowBox[{"CounterTerm", "\[Rule]", " ", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["C", "A"], " ", SubsuperscriptBox["g", "s", "2"], " ", SubscriptBox["S", "n"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"11", " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "3"], "-", RowBox[{ FractionBox["19", "6"], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TagBox["\[CurlyEpsilon]", TraditionalForm]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonPropagator", "[", RowBox[{"p", ",", "\[Mu]", ",", "a", ",", "\[Nu]", ",", "b", ",", RowBox[{"CounterTerm", "\[Rule]", " ", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["C", "A"], " ", SubsuperscriptBox["g", "s", "2"], " ", SubscriptBox["S", "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ FractionBox["1", "6"], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TagBox["\[CurlyEpsilon]", TraditionalForm]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonPropagator", "[", RowBox[{"p", ",", "\[Mu]", ",", "a", ",", "\[Nu]", ",", "b", ",", RowBox[{"CounterTerm", "\[Rule]", " ", "3"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", SubsuperscriptBox["g", "s", "2"], " ", SubscriptBox["S", "n"], " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["4", "3"], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "-", FractionBox[ RowBox[{"4", " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "3"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TagBox["\[CurlyEpsilon]", TraditionalForm]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonPropagator", "[", RowBox[{"p", ",", "\[Mu]", ",", "a", ",", "\[Nu]", ",", "b", ",", RowBox[{"CounterTerm", "\[Rule]", " ", "4"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["C", "A"], " ", SubsuperscriptBox["g", "s", "2"], " ", SubscriptBox["S", "n"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"10", " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "3"], "-", RowBox[{ FractionBox["10", "3"], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TagBox["\[CurlyEpsilon]", TraditionalForm]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonPropagator", "[", RowBox[{"p", ",", "\[Mu]", ",", "a", ",", "\[Nu]", ",", "b", ",", RowBox[{"CounterTerm", "\[Rule]", " ", "5"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["C", "A"], " ", SubscriptBox["S", "n"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"10", " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "3"], "-", RowBox[{ FractionBox["10", "3"], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", SubsuperscriptBox["g", "s", "2"]}], TagBox["\[CurlyEpsilon]", TraditionalForm]], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["S", "n"], " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["4", "3"], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "-", FractionBox[ RowBox[{"4", " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "3"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", SubsuperscriptBox["g", "s", "2"]}], TagBox["\[CurlyEpsilon]", TraditionalForm]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GluonVertex", "Section", CellTags->"GluonVertex"], Cell[CellGroupData[{ Cell["Description", "Subsection"], 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[ FormBox["GluonVertex", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "GluonVertex", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Explicit", "\[Rule]", "False"}], ",", RowBox[{"\[CapitalKoppa]", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["GluonGhostVertex", ButtonData:>"GluonGhostVertex", ButtonStyle->"Hyperlink", ButtonNote->"GluonGhostVertex"], ", ", ButtonBox["GluonPropagator", ButtonData:>"GluonPropagator", ButtonStyle->"Hyperlink", ButtonNote->"GluonPropagator"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox["p", "TraditionalForm"], RowBox[{",", " "}], FormBox["q", "TraditionalForm"], RowBox[{",", " "}], 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[ RowBox[{ RowBox[{"GluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}]}], "]"}], "//", "Explicit"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], 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[ RowBox[{"GluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["V", RowBox[{"\[Mu]", "\[Nu]", "\[Rho]"}]], "(", RowBox[{"p", RowBox[{",", " "}], "q", RowBox[{",", " "}], "r"}], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"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"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]", ",", "d"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], 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"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], 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"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], 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["\<\ 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[ RowBox[{"GV", "[", RowBox[{"p", ",", "1", ",", "q", ",", "2", ",", "r", ",", "3"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox["p", "TraditionalForm"], RowBox[{",", " "}], FormBox["q", "TraditionalForm"], RowBox[{",", " "}], 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[ RowBox[{"GV", "[", RowBox[{ "p", ",", "1", ",", "q", ",", "2", ",", "r", ",", "3", ",", "s", ",", "4"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GSD", "Section", CellTags->"GSD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "GSD[p] can be used as input for a D-dimensional ", Cell[BoxData[ FormBox[ RowBox[{ "p", " ", "\[NegativeMediumSpace]", "\[NegativeMediumSpace]", "\[NegativeMediumSpace]", "\[NegativeMediumSpace]", "/", " ", RowBox[{"(", RowBox[{ RowBox[{"=", RowBox[{"\[Gamma]", ".", "p"}]}], " ", "=", " ", RowBox[{ SubscriptBox["\[Gamma]", "\[Mu]"], RowBox[{"p", "^", "\[Mu]"}]}]}], ")"}]}], TraditionalForm]]], " and is transformed into DiracGamma[Momentum[p,D],D] by FeynCalcInternal \ (=FCI).\nGSD[p,q, ...] is a short form for GSD[p].GSD[q]. ... ." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracGamma", ButtonData:>"DiracGamma", ButtonStyle->"Hyperlink", ButtonNote->"DiracGamma"], ", ", ButtonBox["DiracSlash", ButtonData:>"DiracSlash", ButtonStyle->"Hyperlink", ButtonNote->"DiracSlash"], ", ", ButtonBox["GA", ButtonData:>"GA", ButtonStyle->"Hyperlink", ButtonNote->"GA"], ", ", ButtonBox["GAD", ButtonData:>"GAD", ButtonStyle->"Hyperlink", ButtonNote->"GAD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GSD", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GSD", "[", "p", "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["DiracGamma[Momentum[p, D], D]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GSD", "[", RowBox[{"p", ",", "q", ",", "r", ",", "s"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "q"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "r"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "s"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GSD", "[", RowBox[{"p", ",", "q", ",", "r", ",", "s"}], "]"}], "//", "InputForm"}]], "Input"], Cell["GSD[p] . GSD[q] . GSD[r] . GSD[s]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GSD", "[", "q", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"GSD", "[", "p", "]"}], "+", "m"}], ")"}], ".", RowBox[{"GSD", "[", "q", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "\[CenterDot]", "q"}], " ", RowBox[{"(", RowBox[{"m", "+", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}]}], ")"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "q"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GS", "Section", CellTags->"GS"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "GS[p] can be used as input for a 4-dimensional ", Cell[BoxData[ FormBox[ RowBox[{ "p", " ", "\[NegativeMediumSpace]", "\[NegativeMediumSpace]", "\[NegativeMediumSpace]", "\[NegativeMediumSpace]", "/", " ", RowBox[{"(", RowBox[{ RowBox[{"=", RowBox[{"\[Gamma]", ".", "p"}]}], " ", "=", " ", RowBox[{ SubscriptBox["\[Gamma]", "\[Mu]"], RowBox[{"p", "^", "\[Mu]"}]}]}], ")"}]}], TraditionalForm]]], " and is transformed into DiracGamma[Momentum[p]] by FeynCalcInternal \ (=FCI).\nGS[p,q, ...] is a short form for GS[p].GS[q]. ... ." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracGamma", ButtonData:>"DiracGamma", ButtonStyle->"Hyperlink", ButtonNote->"DiracGamma"], ", ", ButtonBox["DiracSlash", ButtonData:>"DiracSlash", ButtonStyle->"Hyperlink", ButtonNote->"DiracSlash"], ", ", ButtonBox["GA", ButtonData:>"GA", ButtonStyle->"Hyperlink", ButtonNote->"GA"], ", ", ButtonBox["GAD", ButtonData:>"GAD", ButtonStyle->"Hyperlink", ButtonNote->"GAD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GS", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GS", "[", "p", "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["DiracGamma[Momentum[p]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GS", "[", RowBox[{"p", ",", "q", ",", "r", ",", "s"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "\[CenterDot]", "p"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "q"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "r"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "s"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GS", "[", RowBox[{"p", ",", "q", ",", "r", ",", "s"}], "]"}], "//", "InputForm"}]], "Input"], Cell["GS[p] . GS[q] . GS[r] . GS[s]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GS", "[", "q", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"GS", "[", "p", "]"}], "+", "m"}], ")"}], ".", RowBox[{"GS", "[", "q", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Gamma]", "\[CenterDot]", "q"}], " ", RowBox[{"(", RowBox[{"m", "+", RowBox[{"\[Gamma]", "\[CenterDot]", "p"}]}], ")"}], " ", RowBox[{"\[Gamma]", "\[CenterDot]", "q"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Hill", "Section", CellTags->"Hill"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Hill[x,y] gives the Hill identity with arguments x and y. The \ returned object is 0.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["SimplifyPolyLog", ButtonData:>"SimplifyPolyLog", ButtonStyle->"Hyperlink", ButtonNote->"SimplifyPolyLog"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hill", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"log", "(", "a", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "a"}], ")"}], "-", RowBox[{"log", "(", RowBox[{"1", "-", "b"}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"log", "(", FractionBox[ RowBox[{"1", "-", "a"}], RowBox[{"1", "-", "b"}]], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"log", "(", "a", ")"}]}], "+", RowBox[{"log", "(", RowBox[{"1", "-", "b"}], ")"}], "-", RowBox[{"log", "(", FractionBox[ RowBox[{"a", "-", "b"}], "a"], ")"}], "+", RowBox[{"log", "(", FractionBox[ RowBox[{"a", "-", "b"}], RowBox[{"1", "-", "b"}]], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "b"}], ")"}], "-", RowBox[{"log", "(", FractionBox[ RowBox[{"a", "-", "b"}], "a"], ")"}], "+", RowBox[{"log", "(", FractionBox[ RowBox[{"a", "-", "b"}], RowBox[{"a", " ", RowBox[{"(", RowBox[{"1", "-", "b"}], ")"}]}]], ")"}]}], ")"}], " ", RowBox[{"log", "(", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a"}], ")"}], " ", "b"}], RowBox[{"a", " ", RowBox[{"(", RowBox[{"1", "-", "b"}], ")"}]}]], ")"}]}], "+", RowBox[{ SubscriptBox["Li", "2"], "(", "a", ")"}], "+", RowBox[{ SubscriptBox["Li", "2"], "(", FractionBox[ RowBox[{"1", "-", "a"}], RowBox[{"1", "-", "b"}]], ")"}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", "b", ")"}], "+", RowBox[{ SubscriptBox["Li", "2"], "(", FractionBox["b", "a"], ")"}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a"}], ")"}], " ", "b"}], RowBox[{"a", " ", RowBox[{"(", RowBox[{"1", "-", "b"}], ")"}]}]], ")"}], "-", FractionBox[ SuperscriptBox["\[Pi]", "2"], "6"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"%", " ", "/.", " ", RowBox[{"a", ":>", " ", ".123"}]}], " ", "/.", " ", RowBox[{"b", ":>", " ", ".656"}]}], " ", "//", " ", "Chop"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Hill", "[", RowBox[{"x", ",", RowBox[{"x", " ", "y"}]}], "]"}], "//", "PowerExpand"}], "//", "SimplifyPolyLog"}], "//", "Expand"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], "-", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "y"}], ")"}], " ", RowBox[{"log", "(", "y", ")"}]}], "-", RowBox[{ RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", RowBox[{"x", " ", "y"}]}], ")"}]}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "y"}], ")"}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"x", " ", "y"}], ")"}], "+", RowBox[{ SubscriptBox["Li", "2"], "(", FractionBox[ RowBox[{"1", "-", "x"}], RowBox[{"1", "-", RowBox[{"x", " ", "y"}]}]], ")"}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "y"}], RowBox[{"1", "-", RowBox[{"x", " ", "y"}]}]], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"%", " ", "/.", " ", RowBox[{"x", ":>", " ", ".34"}]}], "/.", " ", RowBox[{"y", "->", " ", ".6"}]}], "//", "N"}], "//", "Chop"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["HypergeometricAC", "Section", CellTags->"HypergeometricAC"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ HypergeometricAC[n][exp] analytically continues Hypergeometric2F1 \ functions in exp. The second argument n refers to the equation number (n) in \ chapter 2.10 of \"Higher Transcendental Functions\" by Ergelyi, Magnus, Oberhettinger, Tricomi. In case of eq. (6) (p.109) the last line is returned \ for HypergeometricAC[6][exp], while the first equality is given by HypergeometricAC[61][exp]. ((2.10.1) is identical to eq. (9.5.7) of \"Special \ Functions & their Applications\" by N.N.Lebedev).\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "HypergeometricAC", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Collect2", "\[Rule]", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["HypExplicit", ButtonData:>"HypExplicit", ButtonStyle->"Hyperlink", ButtonNote->"HypExplicit"], ", ", ButtonBox["HypergeometricIR", ButtonData:>"HypergeometricIR", ButtonStyle->"Hyperlink", ButtonNote->"HypergeometricIR"], ", ", ButtonBox["HypergeometricSE", ButtonData:>"HypergeometricSE", ButtonStyle->"Hyperlink", ButtonNote->"HypergeometricSE"], ", ", ButtonBox["ToHypergeometric", ButtonData:>"ToHypergeometric", ButtonStyle->"Hyperlink", ButtonNote->"ToHypergeometric"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["These are all transformation rules currently built in.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HypergeometricAC", "[", "1", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "z"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Alpha]", "+", "\[Beta]", "-", "\[Gamma]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "\[Gamma]", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"\[Gamma]", "-", "\[Alpha]"}], (Editable -> True)], ",", TagBox[ RowBox[{"\[Gamma]", "-", "\[Beta]"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "\[Alpha]"}], "-", "\[Beta]", "+", "\[Gamma]", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "\[Alpha]"}], "-", "\[Beta]", "+", "\[Gamma]"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "\[Alpha]", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "\[Beta]", ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", "\[Gamma]", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{ RowBox[{"-", "\[Alpha]"}], "-", "\[Beta]", "+", "\[Gamma]"}], ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["\[Alpha]", (Editable -> True)], ",", TagBox["\[Beta]", (Editable -> True)]}], ";", TagBox[ RowBox[{ "\[Alpha]", "+", "\[Beta]", "-", "\[Gamma]", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Gamma]", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Gamma]", "-", "\[Beta]"}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HypergeometricAC", "[", "2", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "z"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Beta]", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "\[Gamma]", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["\[Alpha]", (Editable -> True)], ",", TagBox[ RowBox[{"\[Alpha]", "-", "\[Gamma]", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"\[Alpha]", "-", "\[Beta]", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"-", "\[Alpha]"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "\[Beta]", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Gamma]", "-", "\[Alpha]"}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "\[Gamma]", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["\[Beta]", (Editable -> True)], ",", TagBox[ RowBox[{"\[Beta]", "-", "\[Gamma]", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "\[Alpha]"}], "+", "\[Beta]", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"-", "\[Beta]"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "\[Alpha]", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Gamma]", "-", "\[Beta]"}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HypergeometricAC", "[", "3", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "z"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Beta]", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "\[Gamma]", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["\[Alpha]", (Editable -> True)], ",", TagBox[ RowBox[{"\[Gamma]", "-", "\[Beta]"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"\[Alpha]", "-", "\[Beta]", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "\[Alpha]"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "\[Beta]", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Gamma]", "-", "\[Alpha]"}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Alpha]", "-", "\[Beta]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "\[Gamma]", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["\[Beta]", (Editable -> True)], ",", TagBox[ RowBox[{"\[Gamma]", "-", "\[Alpha]"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "\[Alpha]"}], "+", "\[Beta]", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "\[Beta]"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "\[Alpha]", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Gamma]", "-", "\[Beta]"}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HypergeometricAC", "[", "4", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "z"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", "\[Gamma]", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{ RowBox[{"-", "\[Alpha]"}], "-", "\[Beta]", "+", "\[Gamma]"}], ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["\[Alpha]", (Editable -> True)], ",", TagBox[ RowBox[{"\[Alpha]", "-", "\[Gamma]", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ "\[Alpha]", "+", "\[Beta]", "-", "\[Gamma]", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox[ RowBox[{"1", "-", "z"}], "z"]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox["z", RowBox[{"-", "\[Alpha]"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Gamma]", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Gamma]", "-", "\[Beta]"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "\[Alpha]"}], "-", "\[Beta]", "+", "\[Gamma]"}]], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Alpha]", "+", "\[Beta]", "-", "\[Gamma]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "\[Gamma]", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"\[Gamma]", "-", "\[Alpha]"}], (Editable -> True)], ",", TagBox[ RowBox[{"1", "-", "\[Alpha]"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "\[Alpha]"}], "-", "\[Beta]", "+", "\[Gamma]", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox[ RowBox[{"1", "-", "z"}], "z"]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "\[Gamma]"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "\[Alpha]", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "\[Beta]", ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HypergeometricAC", "[", "6", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "z"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "\[Beta]"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["\[Beta]", (Editable -> True)], ",", TagBox[ RowBox[{"\[Gamma]", "-", "\[Alpha]"}], (Editable -> True)]}], ";", TagBox["\[Gamma]", (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox["z", RowBox[{"1", "-", "z"}]]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HypergeometricAC", "[", "61", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "z"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "\[Alpha]"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["\[Alpha]", (Editable -> True)], ",", TagBox[ RowBox[{"\[Gamma]", "-", "\[Beta]"}], (Editable -> True)]}], ";", TagBox["\[Gamma]", (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox["z", RowBox[{"1", "-", "z"}]]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["HypergeometricIR", "Section", CellTags->"HypergeometricIR"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ HypergeometricIR[exp, t] substitutes for all \ Hypergeometric2F1[a,b,c,z] in exp by its Euler integral reprentation. The \ factor Integratedx[t, 0, 1] can be omitted by setting the option Integratedx \ -> False.\ \>", "Text"], Cell[CellGroupData[{ Cell[TextData[{ "See also: ", " ", ButtonBox["HypergeometricAC", ButtonData:>"HypergeometricAC", ButtonStyle->"Hyperlink", ButtonNote->"HypergeometricAC"], ", ", ButtonBox["HypergeometricSE", ButtonData:>"HypergeometricSE", ButtonStyle->"Hyperlink", ButtonNote->"HypergeometricSE"], ", ", ButtonBox["ToHypergeometric", ButtonData:>"ToHypergeometric", ButtonStyle->"Hyperlink", ButtonNote->"ToHypergeometric"], "." }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "HypergeometricIR", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Integratedx", "\[Rule]", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HypergeometricIR", "[", RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], ",", "t"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], RowBox[{ RowBox[{"-", "b"}], "+", "c", "-", "1"}]], " ", SuperscriptBox["t", RowBox[{"b", "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"t", " ", "z"}]}], ")"}], RowBox[{"-", "a"}]], " ", RowBox[{"\[CapitalGamma]", "(", "c", ")"}]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "b", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "-", "b"}], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToHypergeometric", "[", RowBox[{ RowBox[{ RowBox[{"t", "^", "b"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "^", "c"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t", " ", "z"}]}], ")"}], "^", "a"}]}], ",", "t"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "+", "1"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "+", "1"}], ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"b", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"b", "+", "c", "+", "2"}], (Editable -> True)], ";", TagBox[ RowBox[{"-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "+", "c", "+", "2"}], ")"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HypergeometricIR", "[", RowBox[{"%", ",", "t"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "c"], " ", SuperscriptBox["t", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"t", " ", "z"}], "+", "1"}], ")"}], "a"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["HypergeometricSE", "Section", CellTags->"HypergeometricSE"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "HypergeometricSE[exp, \[Nu]] expresses Hypergeometric functions by their \ series expansion in terms of a sum (the Sum is omitted and \[Nu], running \ from 0 to \[Infinity], is the summation index)."], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "HypergeometricSE", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Simplify", "\[Rule]", "FullSimplify"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["HypergeometricIR", ButtonData:>"HypergeometricIR", ButtonStyle->"Hyperlink", ButtonNote->"HypergeometricIR"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HypergeometricSE", "[", RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], ",", "\[Nu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["z", "\[Nu]"], " ", RowBox[{"\[CapitalGamma]", "(", "c", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", "+", "\[Nu]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "+", "\[Nu]"}], ")"}]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "a", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "b", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "+", "\[Nu]"}], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HypergeometricSE", "[", RowBox[{ RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "e"}], "}"}], ",", "z"}], "]"}], ",", "\[Nu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["z", "\[Nu]"], " ", RowBox[{"\[CapitalGamma]", "(", "d", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "e", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", "+", "\[Nu]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "+", "\[Nu]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "+", "\[Nu]"}], ")"}]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "a", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "b", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "c", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"d", "+", "\[Nu]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"e", "+", "\[Nu]"}], ")"}]}]], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["HypExplicit", "Section", CellTags->"HypExplicit"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "HypExplicit[exp, \[Nu]] expresses Hypergeometric functions in exp by their \ definition in terms of a sum (the Sum is omitted and \[Nu] is the summation \ index)."], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["HypergeometricIR", ButtonData:>"HypergeometricIR", ButtonStyle->"Hyperlink", ButtonNote->"HypergeometricIR"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HypExplicit", "[", RowBox[{"%", ",", "\[Nu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["z", "\[Nu]"], " ", RowBox[{"\[CapitalGamma]", "(", "c", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", "+", "\[Nu]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "+", "\[Nu]"}], ")"}]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "a", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "b", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "+", "\[Nu]"}], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "e"}], "}"}], ",", "z"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "3"], SubscriptBox["F", "2"]}], "(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)], ",", TagBox["c", (Editable -> True)]}], InterpretTemplate[ { SlotSequence[ 1]}&]], (Editable -> False)], ";", TagBox[ TagBox[ RowBox[{ TagBox["d", (Editable -> True)], ",", TagBox["e", (Editable -> True)]}], InterpretTemplate[ { SlotSequence[ 1]}&]], (Editable -> False)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ HypergeometricPFQ[ #, #2, #3]&]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HypExplicit", "[", RowBox[{"%", ",", "\[Nu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["z", "\[Nu]"], " ", RowBox[{"\[CapitalGamma]", "(", "d", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "e", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", "+", "\[Nu]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "+", "\[Nu]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "+", "\[Nu]"}], ")"}]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "a", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "b", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "c", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"d", "+", "\[Nu]"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"e", "+", "\[Nu]"}], ")"}]}]], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Integrate2", "Section", CellTags->"Integrate2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "Integrate2 is like Integrate, but : \nIntegrate2[a_Plus, b__] := \ Map[Integrate2[#, b]&, a] (effectively, more linear algebra is done)\n \ Integrate2[f[x] DeltaFunction[x], x] \[LongRightArrow] f[0]\n \ Integrate2[f[x] DeltaFunction[x0-x], x] \[LongRightArrow] f[x0]. \n \ Integrate2[f[x] DeltaFunction[a + b x], x] \[LongRightArrow] Integrate[f[x] \ (1/abs[b]) DeltaFunction[a/b + x], x], where abs[b] \[LongRightArrow] b, if \ b is a Symbol, and if b = -c, then abs[-c] \[LongRightArrow] c, i.e., the \ variable contained in b is supposed to be positive.\n", Cell[BoxData[ FormBox[ RowBox[{" ", "\[Pi]", "^", "2"}], TraditionalForm]]], " is replaced by 6 Zeta2. \nIntegrate2[1/(1-y),{y,x,1}] is intepreted as \ distribution, i.e. as Integrate2[-1/(1-y)],{y, 0, x}] \[LongRightArrow] \ Log[1-y]. \nIntegrate2[1/(1-x),{x,0,1}] \[LongRightArrow] 0." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DeltaFunction", ButtonData:>"DeltaFunction", ButtonStyle->"Hyperlink", ButtonNote->"DeltaFunction"], ", ", ButtonBox["Integrate3", ButtonData:>"Integrate3", ButtonStyle->"Hyperlink", ButtonNote->"Integrate3"], ", ", ButtonBox["SumS", ButtonData:>"SumS", ButtonStyle->"Hyperlink", ButtonNote->"SumS"], ", ", ButtonBox["SumT", ButtonData:>"SumT", ButtonStyle->"Hyperlink", ButtonNote->"SumT"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "+", "x"}], "]"}], RowBox[{ RowBox[{"Log", "[", "x", "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], "//", "Timing"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"0.259999999999990905`", " ", "Second"}], ",", RowBox[{ TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], "-", RowBox[{ FractionBox["3", "2"], " ", RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"log", "(", "2", ")"}]}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "Since Integrate2 uses table-look-up methods it is much faster than ", StyleBox["Mathematica", FontSlant->"Italic"], "'s Integrate." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"x", "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], "+", RowBox[{"4", " ", RowBox[{"log", "(", "2", ")"}]}], "-", "4"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"3", ",", RowBox[{"-", "x"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[Zeta]", "(", "2", ")"}], "2"], "-", FractionBox[ RowBox[{"3", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "4"], "-", RowBox[{"2", " ", RowBox[{"log", "(", "2", ")"}]}], "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"3", ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"log", "(", "2", ")"}]}], " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", FractionBox[ RowBox[{"3", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "4"], "+", FractionBox[ RowBox[{ SuperscriptBox["log", "3"], "(", "2", ")"}], "3"], "-", RowBox[{ SuperscriptBox["log", "2"], "(", "2", ")"}], "+", RowBox[{"2", " ", RowBox[{"log", "(", "2", ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"DeltaFunction", "[", RowBox[{"1", "-", "x"}], "]"}], " ", RowBox[{"f", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"f", "(", "1", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "Integrate2 does integration in a Hadamard sense, i.e., ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{"f", "(", "x", ")"}], RowBox[{"\[DifferentialD]", "x"}]}], " "}], TraditionalForm]]], " means acutally expanding the\nresult of ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "\[Delta]", RowBox[{"1", "-", "\[Delta]"}]], RowBox[{ RowBox[{"f", "(", "x", ")"}], RowBox[{"\[DifferentialD]", "x"}]}], " "}], TraditionalForm]]], "up do O(\[Delta]) and neglecting all \[Delta]-dependent terms.\nE.g. ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "\[Delta]", RowBox[{"1", "-", "\[Delta]"}]], RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]]], "= ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "log"}], RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], SubsuperscriptBox["\[VerticalSeparator]", "\[Delta]", RowBox[{"1", "-", "\[Delta]"}]]}], TraditionalForm]]], " = -log(\[Delta])+log(1) \[Implies] 0." }], "Text", ZeroWidthTimes->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "In the physics literature sometimes the \"+\" notation is used. In \ FeynCalc the ", Cell[BoxData[ FormBox[ SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"], TraditionalForm]]], " is represented by ", Cell[BoxData[ FormBox[ RowBox[{"PlusDistribution", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "]"}], TraditionalForm]]], " or just ", Cell[BoxData[ FormBox[ RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "."}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"PlusDistribution", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"1", "-", "x"}]}], "]"}], "/", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"2", "-", RowBox[{"\[Zeta]", "(", "2", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Log", "[", "x", "]"}], " ", RowBox[{"Log", "[", RowBox[{"1", "+", "x"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], "8"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Log", "[", "x", "]"}], "^", "2"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"2", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"-", "x"}]}], "]"}], "/", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], "4"], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"log", "(", "2", ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", "x", "]"}], " ", RowBox[{"PolyLog", "[", RowBox[{"2", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"x", " ", RowBox[{"PolyLog", "[", RowBox[{"3", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Zeta]", "(", "2", ")"}], "4"]}], "+", FractionBox[ TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], "2"], "+", FractionBox["3", "16"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Log", "[", "x", "]"}], "^", "2"}], " ", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["log", "2"], "(", "2", ")"}], " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "-", RowBox[{"4", " ", RowBox[{ SubscriptBox["Li", "4"], "(", FractionBox["1", "2"], ")"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox["log", "4"], "(", "2", ")"}], "6"], "+", FractionBox[ SuperscriptBox["\[Pi]", "4"], "90"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", " ", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "+", "z"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "x", "+", RowBox[{"x", " ", "z"}]}], ")"}]}], ")"}], "/", "z"}]}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x", "+", RowBox[{"x", " ", "z"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["log", "3"], "(", "z", ")"}], RowBox[{"6", " ", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}]], "-", FractionBox[ RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "z", ")"}]}], RowBox[{"1", "-", "z"}]], "-", FractionBox[ RowBox[{ RowBox[{"log", "(", RowBox[{"z", "+", "1"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "z", ")"}]}], RowBox[{"1", "-", "z"}]], "-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["log", "2"], "(", "z", ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}]], "-", FractionBox[ RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"log", "(", "z", ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"4", " ", RowBox[{"log", "(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"z", "+", "1"}], ")"}], " ", RowBox[{"log", "(", "z", ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", RowBox[{"log", "(", RowBox[{"z", "+", "1"}], ")"}], " ", RowBox[{"log", "(", "z", ")"}]}], RowBox[{"1", "-", "z"}]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"log", "(", "z", ")"}]}], RowBox[{"1", "-", "z"}]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", "z"}], ")"}], " ", RowBox[{"log", "(", "z", ")"}]}], RowBox[{"1", "-", "z"}]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ SuperscriptBox["log", "3"], "(", RowBox[{"z", "+", "1"}], ")"}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}]], "-", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "z"}], ")"}]}], RowBox[{"1", "-", "z"}]], "-", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"z", "+", "1"}], ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], RowBox[{"1", "-", "z"}]], "-", FractionBox[ RowBox[{"10", " ", RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "z"}], ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"14", " ", RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"log", "(", RowBox[{"z", "+", "1"}], ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", RowBox[{"log", "(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"z", "+", "1"}], ")"}]}], RowBox[{"1", "-", "z"}]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["S", RowBox[{ FormBox["1", "TraditionalForm"], FormBox["2", "TraditionalForm"]}]], "(", FormBox[ RowBox[{"1", "-", "z"}], "TraditionalForm"], ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"4", " ", RowBox[{"log", "(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", "z"}], ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", "z"}], ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"4", " ", RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"1", "-", "z"}], ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"2", " ", RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"-", "z"}], ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"4", " ", RowBox[{ SubscriptBox["Li", "3"], "(", FractionBox["1", RowBox[{"z", "+", "1"}]], ")"}]}], RowBox[{"1", "-", "z"}]], "+", FractionBox[ RowBox[{"4", " ", RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"-", FractionBox[ RowBox[{"z", "+", "1"}], RowBox[{"1", "-", "z"}]]}], ")"}]}], RowBox[{"1", "-", "z"}]], "-", FractionBox[ RowBox[{"4", " ", RowBox[{ SubscriptBox["Li", "3"], "(", FractionBox[ RowBox[{"z", "+", "1"}], RowBox[{"1", "-", "z"}]], ")"}]}], RowBox[{"1", "-", "z"}]], "-", FractionBox[ RowBox[{"2", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], RowBox[{"1", "-", "z"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Apart", "[", RowBox[{ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", RowBox[{"(", RowBox[{"OPEm", "-", "1"}], ")"}]}], " ", RowBox[{"PolyLog", "[", RowBox[{"3", ",", RowBox[{"1", "-", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", "OPEm"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Zeta]", "(", "2", ")"}], RowBox[{"m", "-", "1"}]]}], "-", FractionBox[ RowBox[{"\[Zeta]", "(", "2", ")"}], SuperscriptBox["m", "2"]], "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "2"}], "TraditionalForm"], ")"}]}], " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", RowBox[{"\[Zeta]", "(", "2", ")"}], "+", RowBox[{ SubscriptBox["S", "12"], "(", FormBox["m", "TraditionalForm"], ")"}], "+", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "m"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataType", "[", RowBox[{"OPEm", ",", "PositiveInteger"}], "]"}]], "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", RowBox[{"(", RowBox[{"OPEm", "-", "1"}], ")"}]}], " ", RowBox[{"DeltaFunction", "[", RowBox[{"1", "-", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell["\<\ This is the polarized non-singlet spin splitting function whose \ first moment vanishes.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tt", "=", RowBox[{"SplittingFunction", "[", "PQQNS", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "+", FractionBox["3", RowBox[{"1", "-", "x"}]]}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", FractionBox[ RowBox[{"16", " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], RowBox[{"1", "-", "x"}]], "-", RowBox[{"40", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", RowBox[{"48", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "+", "3"}], ")"}]}]}], ")"}], " ", SubsuperscriptBox["C", "F", "2"]}], "+", RowBox[{ SubscriptBox["N", "f"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"88", " ", "x"}], "9"], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"16", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "3"]}], "-", FractionBox["2", "3"]}], ")"}], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "-", FractionBox[ RowBox[{"8", " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]], "-", RowBox[{ FractionBox["80", "9"], " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "-", FractionBox["8", "9"]}], ")"}], " ", SubscriptBox["C", "F"]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ SubscriptBox["C", "F"], "-", FractionBox[ SubscriptBox["C", "A"], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}], "-", RowBox[{"4", " ", RowBox[{"log", "(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "-", RowBox[{"4", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", "x"}], ")"}]}]}], ")"}]}], RowBox[{"x", "+", "1"}]]}], ")"}], " ", SubscriptBox["C", "F"]}], "+", RowBox[{ SubscriptBox["C", "A"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], RowBox[{"1", "-", "x"}]], "-", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", "x"}], "-", FractionBox["22", RowBox[{"1", "-", "x"}]], "+", "5"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ FractionBox["4", "9"], " ", RowBox[{"(", RowBox[{"53", "-", RowBox[{"187", " ", "x"}]}], ")"}]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["536", "9"], "-", RowBox[{"16", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}]}], ")"}], " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "+", RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"88", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "3"], "-", RowBox[{"24", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "+", FractionBox["17", "3"]}], ")"}]}]}], ")"}], " ", SubscriptBox["C", "F"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Integrate2", "[", RowBox[{"tt", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], "//", "Timing"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"1.78000000000000113`", " ", "Second"}], ",", "0"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Integrate2[DeltaFunction[1-x] f[x],{x,0,1}]", "Input", FormatType->InputForm], Cell[BoxData[ FormBox[ RowBox[{"f", "(", "1", ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Integrate3", "Section", CellTags->"Integrate3"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Integrate3 contains the integral table used by Integrate2. \ Integration is performed in a distributional sense.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Integrate2", ButtonData:>"Integrate2", ButtonStyle->"Hyperlink", ButtonNote->"Integrate2"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate3", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "OPEm"}], " ", RowBox[{"Log", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "2"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate3", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "OPEm"}], " ", RowBox[{"Log", "[", "x", "]"}], " ", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox["m", "TraditionalForm"], ")"}]}], "-", RowBox[{ SubscriptBox["S", "12"], "(", FormBox["m", "TraditionalForm"], ")"}], "-", RowBox[{ SubscriptBox["S", "21"], "(", FormBox["m", "TraditionalForm"], ")"}], "+", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate3", "[", RowBox[{ RowBox[{"DeltaFunctionPrime", "[", RowBox[{"1", "-", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate3", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], " ", RowBox[{"DeltaFunctionPrime", "[", RowBox[{"1", "-", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "(", "1", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate3", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["IntegrateByParts", "Section", CellTags->"IntegrateByParts"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ IntegrateByParts[(1-t)^(a Epsilon -1) g[t], deriv, t] does an \ integration by parts of the definite integral over t from 0 to 1.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "IntegrateByParts", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Hold", "\[Rule]", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IntegrateByParts", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "Epsilon"}], "-", "1"}], ")"}]}], " ", RowBox[{"g", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "Epsilon"}], "-", "1"}], ")"}]}], ",", "t"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "(", "t", ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], RowBox[{"a", " ", TagBox["\[CurlyEpsilon]", TraditionalForm]}]]}], RowBox[{"a", " ", TagBox["\[CurlyEpsilon]", TraditionalForm]}]], "+", FractionBox[ RowBox[{"g", "(", "0", ")"}], RowBox[{"a", " ", TagBox["\[CurlyEpsilon]", TraditionalForm]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["InverseMellin", "Section", CellTags->"InverseMellin"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "InverseMellin[exp, y] performs the inverse Mellin transform of polynomials \ in OPEm.\nThe inverse transforms are not calculated but a table-lookup is \ done.\nWARNING: do not \"trust\" the results for the inverse Mellin \ transform involving SumT's; there is an unresolved inconsistency here \ (related to ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "m"}], ")"}], "."}], TraditionalForm]]] }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DeltaFunction", ButtonData:>"DeltaFunction", ButtonStyle->"Hyperlink", ButtonNote->"DeltaFunction"], ", ", ButtonBox["Integrate2", ButtonData:>"Integrate2", ButtonStyle->"Hyperlink", ButtonNote->"Integrate2"], ", ", ButtonBox["OPEm", ButtonData:>"OPEi", ButtonStyle->"Hyperlink", ButtonNote->"SumS"], ", ", ButtonBox["SumS", ButtonData:>"SumS", ButtonStyle->"Hyperlink", ButtonNote->"SumS"], ", ", ButtonBox["SumT", ButtonData:>"SumT", ButtonStyle->"Hyperlink", ButtonNote->"SumT"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseMellin", "[", RowBox[{ RowBox[{"1", "/", "OPEm"}], ",", "y"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseMellin", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"OPEm", "+", "3"}], ")"}]}], ",", "y"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["y", RowBox[{"m", "+", "2"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseMellin", "[", RowBox[{"1", ",", "y"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "y"}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseMellin", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"OPEm", "^", "4"}]}], ",", "y"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], " ", SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{ SuperscriptBox["log", "3"], "(", "y", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseMellin", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "OPEm"}], "+", "1"}], ",", "y"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "y"}], "TraditionalForm"], ")"}], " ", SuperscriptBox["y", RowBox[{"m", "-", "1"}]]}], "+", SuperscriptBox["y", RowBox[{"m", "-", "1"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseMellin", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "i"}], "+", "1"}], ",", "y", ",", "i"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "y"}], "TraditionalForm"], ")"}], " ", SuperscriptBox["y", RowBox[{"i", "-", "1"}]]}], "+", SuperscriptBox["y", RowBox[{"i", "-", "1"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ The inverse operation to InverseMellin is done by Integrate2.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"InverseMellin", "[", RowBox[{ RowBox[{"1", "/", "OPEm"}], ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", "m"], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Below is a list of all built-in basic inverse Mellin transforms .\ \ \>", "Text"], Cell["\<\ list={1, 1/(OPEm + n), 1/(-opem + n), PolyGamma[0,OPEm], SumS[1,-1+OPEm], SumS[1,-1+OPEm]/(OPEm-1), SumS[1,-1+OPEm]/(1-OPEm), SumS[1,-1+OPEm]/(OPEm+1), SumS[1,-1+OPEm]/OPEm^2, SumS[1,-1+OPEm]/OPEm, SumS[1,-1+OPEm]^2/OPEm, SumS[2,-1+OPEm], SumS[2,-1+OPEm]/OPEm, SumS[3,-1+OPEm], SumS[1,1,-1+OPEm], SumS[1,OPEm-1]^2, SumS[1,2,-1+OPEm], SumS[2,1,-1+OPEm], SumS[1, -1 + OPEm]^3, SumS[1, -1 + OPEm]*SumS[2, -1 + OPEm], SumS[1,1,1,-1+OPEm] }; \ \>", "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"SetAttributes", "[", RowBox[{"im", ",", "HoldAll"}], "]"}], ";"}], RowBox[{"\t", RowBox[{ RowBox[{ RowBox[{"im", "[", "z_", "]"}], " ", ":=", " ", RowBox[{"SequenceForm", "[", RowBox[{ RowBox[{"HoldForm", "[", "z", "]"}], ",", "\"\< \[HumpEqual] \>\"", ",", " ", "\t\t ", " ", RowBox[{"InverseMellin", "[", RowBox[{"z", ",", "y"}], "]"}]}], "]"}]}], ";"}]}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{"OPEm", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ FractionBox["1", SuperscriptBox["m", "3"]], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "y", ")"}]}]}], SequenceForm[ HoldForm[ Power[ OPEm, -3]], " \[HumpEqual] ", Times[ Rational[ 1, 2], Power[ y, Plus[ -1, OPEm]], Power[ Log[ y], 2]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{"OPEm", "^", RowBox[{"(", RowBox[{"-", "2"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ FractionBox["1", SuperscriptBox["m", "2"]], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", SuperscriptBox["y", RowBox[{"m", "-", "1"}]]}], " ", RowBox[{"log", "(", "y", ")"}]}]}], SequenceForm[ HoldForm[ Power[ OPEm, -2]], " \[HumpEqual] ", Times[ -1, Power[ y, Plus[ -1, OPEm]], Log[ y]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{"PolyGamma", "[", RowBox[{"0", ",", "OPEm"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "0", ")"}]], "(", "m", ")"}], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", TagBox["\[Gamma]", EulerGamma]}], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "y"}], "TraditionalForm"], ")"}], " ", SuperscriptBox["y", RowBox[{"m", "-", "1"}]]}], "-", RowBox[{ SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "y"}]], ")"}], "+"], " ", SuperscriptBox["y", RowBox[{"m", "-", "1"}]]}]}]}], SequenceForm[ HoldForm[ PolyGamma[ 0, OPEm]], " \[HumpEqual] ", Plus[ Times[ -1, EulerGamma, Power[ y, Plus[ -1, OPEm]], DeltaFunction[ Plus[ 1, Times[ -1, y]]]], Times[ -1, Power[ y, Plus[ -1, OPEm]], PlusDistribution[ Power[ Plus[ 1, Times[ -1, y]], -1]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{"SumS", "[", RowBox[{"1", ",", RowBox[{"OPEm", "-", "1"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", SuperscriptBox["y", RowBox[{"m", "-", "1"}]]}], " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "y"}]], ")"}], "+"]}]}], SequenceForm[ HoldForm[ SumS[ 1, Plus[ OPEm, -1]]], " \[HumpEqual] ", Times[ -1, Power[ y, Plus[ -1, OPEm]], PlusDistribution[ Power[ Plus[ 1, Times[ -1, y]], -1]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{ RowBox[{"SumS", "[", RowBox[{"1", ",", RowBox[{"OPEm", "-", "1"}]}], "]"}], "/", RowBox[{"(", RowBox[{"OPEm", "-", "1"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ FractionBox[ RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], RowBox[{"m", "-", "1"}]], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", SuperscriptBox["y", RowBox[{"m", "-", "2"}]]}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "y"}], ")"}]}]}], SequenceForm[ HoldForm[ Times[ SumS[ 1, Plus[ OPEm, -1]], Power[ Plus[ OPEm, -1], -1]]], " \[HumpEqual] ", Times[ -1, Power[ y, Plus[ -2, OPEm]], Log[ Plus[ 1, Times[ -1, y]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{ RowBox[{"SumS", "[", RowBox[{"1", ",", RowBox[{"OPEm", "-", "1"}]}], "]"}], "/", RowBox[{"(", RowBox[{"OPEm", "+", "1"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ FractionBox[ RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], RowBox[{"m", "+", "1"}]], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", SuperscriptBox["y", RowBox[{"m", "-", "1"}]]}], "-", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "y"}], ")"}], " ", SuperscriptBox["y", "m"]}], "+", RowBox[{ RowBox[{"log", "(", "y", ")"}], " ", SuperscriptBox["y", "m"]}], "+", SuperscriptBox["y", "m"]}]}], SequenceForm[ HoldForm[ Times[ SumS[ 1, Plus[ OPEm, -1]], Power[ Plus[ OPEm, 1], -1]]], " \[HumpEqual] ", Plus[ Times[ -1, Power[ y, Plus[ -1, OPEm]]], Power[ y, OPEm], Times[ -1, Power[ y, OPEm], Log[ Plus[ 1, Times[ -1, y]]]], Times[ Power[ y, OPEm], Log[ y]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{ RowBox[{"SumS", "[", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "1"}], "+", "OPEm"}]}], "]"}], "/", RowBox[{"OPEm", "^", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ FractionBox[ RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], SuperscriptBox["m", "2"]], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "y", ")"}]}], "+", RowBox[{"\[Zeta]", "(", "2", ")"}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", "y", ")"}]}], ")"}]}]}], SequenceForm[ HoldForm[ Times[ SumS[ 1, Plus[ -1, OPEm]], Power[ Power[ OPEm, 2], -1]]], " \[HumpEqual] ", Times[ Power[ y, Plus[ -1, OPEm]], Plus[ Zeta2, Times[ Rational[ -1, 2], Power[ Log[ y], 2]], Times[ -1, PolyLog[ 2, y]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{ RowBox[{"SumS", "[", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "1"}], "+", "OPEm"}]}], "]"}], "/", "OPEm"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ FractionBox[ RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], "m"], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"log", "(", "y", ")"}], "-", RowBox[{"log", "(", RowBox[{"1", "-", "y"}], ")"}]}], ")"}]}]}], SequenceForm[ HoldForm[ Times[ SumS[ 1, Plus[ -1, OPEm]], Power[ OPEm, -1]]], " \[HumpEqual] ", Times[ Power[ y, Plus[ -1, OPEm]], Plus[ Times[ -1, Log[ Plus[ 1, Times[ -1, y]]]], Log[ y]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{ RowBox[{ RowBox[{"SumS", "[", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "1"}], "+", "OPEm"}]}], "]"}], "^", "2"}], "/", "OPEm"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ FractionBox[ RowBox[{ SubsuperscriptBox["S", "1", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], "m"], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "y"}], ")"}], "+", FractionBox[ RowBox[{ SuperscriptBox["log", "2"], "(", "y", ")"}], "2"], "-", RowBox[{"3", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "y"}], ")"}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["Li", "2"], "(", "y", ")"}]}]}], ")"}]}]}], SequenceForm[ HoldForm[ Times[ Power[ SumS[ 1, Plus[ -1, OPEm]], 2], Power[ OPEm, -1]]], " \[HumpEqual] ", Times[ Power[ y, Plus[ -1, OPEm]], Plus[ Times[ -3, Zeta2], Power[ Log[ Plus[ 1, Times[ -1, y]]], 2], Times[ Rational[ 1, 2], Power[ Log[ y], 2]], PolyLog[ 2, Plus[ 1, Times[ -1, y]]], Times[ 2, PolyLog[ 2, y]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{"SumS", "[", RowBox[{"2", ",", RowBox[{"OPEm", "-", "1"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "y"}], "TraditionalForm"], ")"}]}], "+", FractionBox[ RowBox[{"log", "(", "y", ")"}], RowBox[{"1", "-", "y"}]]}], ")"}]}]}], SequenceForm[ HoldForm[ SumS[ 2, Plus[ OPEm, -1]]], " \[HumpEqual] ", Times[ Power[ y, Plus[ -1, OPEm]], Plus[ Times[ Zeta2, DeltaFunction[ Plus[ 1, Times[ -1, y]]]], Times[ Power[ Plus[ 1, Times[ -1, y]], -1], Log[ y]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{ RowBox[{"SumS", "[", RowBox[{"2", ",", RowBox[{"OPEm", "-", "1"}]}], "]"}], "/", "OPEm"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ FractionBox[ RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], "m"], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "y", ")"}]}], "+", RowBox[{"\[Zeta]", "(", "2", ")"}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "y"}], ")"}]}], ")"}]}]}], SequenceForm[ HoldForm[ Times[ SumS[ 2, Plus[ OPEm, -1]], Power[ OPEm, -1]]], " \[HumpEqual] ", Times[ Power[ y, Plus[ -1, OPEm]], Plus[ Zeta2, Times[ Rational[ -1, 2], Power[ Log[ y], 2]], Times[ -1, PolyLog[ 2, Plus[ 1, Times[ -1, y]]]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{"SumS", "[", RowBox[{"3", ",", RowBox[{"OPEm", "-", "1"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{ SubscriptBox["S", "3"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "y"}], "TraditionalForm"], ")"}], " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "-", FractionBox[ RowBox[{ SuperscriptBox["log", "2"], "(", "y", ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]]}], ")"}]}]}], SequenceForm[ HoldForm[ SumS[ 3, Plus[ OPEm, -1]]], " \[HumpEqual] ", Times[ Power[ y, Plus[ -1, OPEm]], Plus[ Times[ Rational[ -1, 2], Power[ Plus[ 1, Times[ -1, y]], -1], Power[ Log[ y], 2]], Times[ DeltaFunction[ Plus[ 1, Times[ -1, y]]], Zeta[ 3]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{"SumS", "[", RowBox[{"1", ",", "1", ",", RowBox[{"OPEm", "-", "1"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{ SubscriptBox["S", "11"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"log", "(", RowBox[{"1", "-", "y"}], ")"}], RowBox[{"1", "-", "y"}]], ")"}], "+"]}]}], SequenceForm[ HoldForm[ SumS[ 1, 1, Plus[ OPEm, -1]]], " \[HumpEqual] ", Times[ Power[ y, Plus[ -1, OPEm]], PlusDistribution[ Times[ Power[ Plus[ 1, Times[ -1, y]], -1], Log[ Plus[ 1, Times[ -1, y]]]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"im", "[", RowBox[{"SumS", "[", RowBox[{"1", ",", "2", ",", RowBox[{"OPEm", "-", "1"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{ SubscriptBox["S", "12"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "y"}], "TraditionalForm"], ")"}]}], "-", RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "y"}]], ")"}], "+"]}], "+", FractionBox[ RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "y"}], ")"}], RowBox[{"1", "-", "y"}]]}], ")"}]}]}], SequenceForm[ HoldForm[ SumS[ 1, 2, Plus[ OPEm, -1]]], " \[HumpEqual] ", Times[ Power[ y, Plus[ -1, OPEm]], Plus[ Times[ -1, Zeta2, PlusDistribution[ Power[ Plus[ 1, Times[ -1, y]], -1]]], Times[ Power[ Plus[ 1, Times[ -1, y]], -1], PolyLog[ 2, Plus[ 1, Times[ -1, y]]]], Times[ -1, DeltaFunction[ Plus[ 1, Times[ -1, y]]], Zeta[ 3]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"im", "[", RowBox[{"SumS", "[", RowBox[{"2", ",", "1", ",", RowBox[{"OPEm", "-", "1"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{ SubscriptBox["S", "21"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "y"}], "TraditionalForm"], ")"}]}], "-", RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "y"}]], ")"}], "+"]}], "+", FractionBox[ RowBox[{ SubscriptBox["Li", "2"], "(", "y", ")"}], RowBox[{"1", "-", "y"}]]}], ")"}]}]}], SequenceForm[ HoldForm[ SumS[ 2, 1, Plus[ OPEm, -1]]], " \[HumpEqual] ", Times[ Power[ y, Plus[ -1, OPEm]], Plus[ Times[ -1, Zeta2, PlusDistribution[ Power[ Plus[ 1, Times[ -1, y]], -1]]], Times[ Power[ Plus[ 1, Times[ -1, y]], -1], PolyLog[ 2, y]], Times[ 2, DeltaFunction[ Plus[ 1, Times[ -1, y]]], Zeta[ 3]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"im", "[", RowBox[{"SumS", "[", RowBox[{"1", ",", "1", ",", "1", ",", RowBox[{"OPEm", "-", "1"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{ SubscriptBox["S", "111"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], HoldForm], "\[InvisibleSpace]", "\<\" \[HumpEqual] \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["y", RowBox[{"m", "-", "1"}]], " ", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "y"}], ")"}], RowBox[{"1", "-", "y"}]], ")"}], "+"]}]}], SequenceForm[ HoldForm[ SumS[ 1, 1, 1, Plus[ OPEm, -1]]], " \[HumpEqual] ", Times[ Rational[ -1, 2], Power[ y, Plus[ -1, OPEm]], PlusDistribution[ Times[ Power[ Plus[ 1, Times[ -1, y]], -1], Power[ Log[ Plus[ 1, Times[ -1, y]]], 2]]]]], Editable->False], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "im", "]"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Isolate", "Section", CellTags->"Isolate"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Isolate[expr] substitutes abbreviations KK[i] for all Plus[...] \ (sub-sums) in expr. The inserted KK[i] have head HoldForm. Isolate[expr, varlist] substitutes KK[i] for all subsums in expr which are \ free of any occurence of a member of the list varlist. Instead of KK any \ other head or a list of names of the abbreviations may be specified with the \ option IsolateNames.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Isolate", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"IsolateNames", "\[Rule]", "KK"}], ",", RowBox[{"IsolatePrint", "\[Rule]", "False"}], ",", RowBox[{"IsolateSplit", "\[Rule]", InterpretationBox["\[Infinity]", DirectedInfinity[ 1]]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Isolate", "[", RowBox[{"a", "+", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{"KK", "(", "3", ")"}], HoldForm], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"Isolate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "f"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"c", "+", "d"}], ")"}], " ", "f"}], " ", "+", " ", "e"}], ",", "f"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"e", "+", RowBox[{"f", " ", TagBox[ RowBox[{"KK", "(", "3", ")"}], HoldForm]}], "+", RowBox[{"f", " ", TagBox[ RowBox[{"KK", "(", "4", ")"}], HoldForm]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "t1", "]"}]], "Input"], Cell["e + f*HoldForm[KK[3]] + f*HoldForm[KK[4]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"KK", "[", "1", "]"}], ",", " ", "t1", ",", " ", RowBox[{"ReleaseHold", "[", "t1", "]"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "-", RowBox[{"2", " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "+", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], ",", RowBox[{"e", "+", RowBox[{"f", " ", TagBox[ RowBox[{"KK", "(", "3", ")"}], HoldForm]}], "+", RowBox[{"f", " ", TagBox[ RowBox[{"KK", "(", "4", ")"}], HoldForm]}]}], ",", RowBox[{"e", "+", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "f"}], "+", RowBox[{ RowBox[{"(", RowBox[{"c", "+", "d"}], ")"}], " ", "f"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Isolate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "z", "]"}], " ", RowBox[{"(", RowBox[{"b", "+", RowBox[{"c", " ", RowBox[{"(", RowBox[{"y", "+", "z"}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"d", "[", "z", "]"}], " ", RowBox[{"(", RowBox[{"y", "+", "z"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"a", ",", "d"}], "}"}], ",", RowBox[{"IsolateNames", "\[Rule]", "F"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"d", "(", "z", ")"}], " ", TagBox[ RowBox[{"F", "(", "3", ")"}], HoldForm]}], "+", RowBox[{ RowBox[{"a", "(", "z", ")"}], " ", TagBox[ RowBox[{"F", "(", "4", ")"}], HoldForm]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"??", "F"}]], "Input"], Cell[BoxData[ FormBox["\<\"Global`F\"\>", TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"F", "[", "3", "]"}], " ", "=", " ", RowBox[{"y", " ", "+", " ", "z"}]}], "\n", " ", "\n", RowBox[{ RowBox[{"F", "[", "4", "]"}], " ", "=", " ", RowBox[{"b", " ", "+", " ", RowBox[{"c", "*", RowBox[{"HoldForm", "[", RowBox[{"F", "[", "3", "]"}], "]"}]}]}]}]}], ShowStringCharacters->True, NumberMarks->True], InputForm[ Definition[ F]], Editable->True, AutoDelete->True], TraditionalForm]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Isolate", "[", RowBox[{ RowBox[{"a", "-", "b", "-", "c", "-", "d", "-", "e"}], ",", RowBox[{"IsolateNames", "\[Rule]", "L"}], ",", RowBox[{"IsolateSplit", "\[Rule]", "15"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{"L", "(", "3", ")"}], HoldForm], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"L", "[", "2", "]"}], ",", RowBox[{"L", "[", "1", "]"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{"L", "(", "1", ")"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t1", ",", "L"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Kummer", "Section", CellTags->"Kummer"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Kummer[i][exp] applies Kummer relation number i (i =1, ... 24, \ 94,95,96) to all Hypergeometric2F1 in exp. i = 94 corresponds to eq. 9.131.2, i = 95 to eq. 9.132.1 and i = 96 to eq. 9.132.2 in Gradsteyn & Ryzhik.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["HypergeometricAC", ButtonData:>"HypergeometricAC", ButtonStyle->"Hyperlink", ButtonNote->"HypergeometricAC"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "2", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "3", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "a"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox["z", RowBox[{"1", "-", "z"}]]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "4", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "b"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox["z", RowBox[{"1", "-", "z"}]]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "6", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "6", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "+", "b", "-", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox["z", RowBox[{"1", "-", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "+", "b", "-", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "7", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox["z", RowBox[{"-", "a"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox[ RowBox[{"1", "-", "z"}], "z"]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "7", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "+", "b", "-", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox["z", RowBox[{"-", "a"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "+", "b", "-", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox[ RowBox[{"1", "-", "z"}], "z"]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "8", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox["z", RowBox[{"-", "b"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox[ RowBox[{"1", "-", "z"}], "z"]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "8", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "+", "b", "-", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox["z", RowBox[{"-", "b"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "+", "b", "-", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox[ RowBox[{"1", "-", "z"}], "z"]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "10", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"a", "+", "b", "-", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"a", "+", "1", "-", "b"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "10", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"a", "+", "1", "-", "b"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "-", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"a", "+", "b", "-", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"1", "-", "b"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "-", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "11", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{"1", "-", "z"}], "z"]}], ")"}], RowBox[{"-", "a"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "a"], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"a", "+", "1", "-", "b"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "11", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"a", "+", "1", "-", "b"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "-", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{"1", "-", "z"}], "z"]}], ")"}], RowBox[{"-", "a"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "a"], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "-", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "12", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "b"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"b", "-", "a"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["b", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"a", "+", "1", "-", "b"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "12", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"a", "+", "1", "-", "b"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "-", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "+", "c", "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "-", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox[ RowBox[{"1", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "-", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "14", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"a", "+", "b", "-", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", RowBox[{"b", "+", "1", "-", "a"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "14", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", RowBox[{"b", "+", "1", "-", "a"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"a", "+", "b", "-", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"1", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "15", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "b"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "b"], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["b", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", RowBox[{"b", "+", "1", "-", "a"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "15", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", RowBox[{"b", "+", "1", "-", "a"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "b"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "b"], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["b", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "16", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "a"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "a"], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", RowBox[{"b", "+", "1", "-", "a"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "16", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", RowBox[{"b", "+", "1", "-", "a"}], ",", RowBox[{"z", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "b"}], "+", "c", "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"b", "-", "c", "+", "1"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox[ RowBox[{"1", "-", "a"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"b", "+", "1", "-", "c"}], ",", RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "18", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"b", "+", "1", "-", "c"}], ",", RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"2", "-", "c"}], (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"1", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"1", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"2", "-", "c"}], (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "18", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"b", "+", "1", "-", "c"}], ",", RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "19", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"b", "+", "1", "-", "c"}], ",", RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"2", "-", "c"}], (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "+", "c", "-", "1"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox[ RowBox[{"1", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"2", "-", "c"}], (Editable -> True)], ";", TagBox[ FractionBox["z", RowBox[{"z", "-", "1"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "19", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "a"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["z", RowBox[{"z", "-", "1"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"b", "+", "1", "-", "c"}], ",", RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "20", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "+", "1", "-", "c"}], ",", RowBox[{"b", "+", "1", "-", "c"}], ",", RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"2", "-", "c"}], (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "b"}], "+", "c", "-", "1"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)], ",", TagBox[ RowBox[{"1", "-", "a"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"2", "-", "c"}], (Editable -> True)], ";", TagBox[ FractionBox["z", RowBox[{"z", "-", "1"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "20", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "b"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["b", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["z", RowBox[{"z", "-", "1"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"c", "-", "a"}], ",", RowBox[{"c", "-", "b"}], ",", RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "22", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"c", "-", "a"}], ",", RowBox[{"c", "-", "b"}], ",", RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox["z", RowBox[{"1", "-", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"1", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"1", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "22", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"c", "-", "a"}], ",", RowBox[{"c", "-", "b"}], ",", RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "23", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"c", "-", "a"}], ",", RowBox[{"c", "-", "b"}], ",", RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"a", "-", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"1", "-", "a"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", FractionBox["1", RowBox[{"1", "-", "z"}]]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "23", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "a"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", FractionBox["1", RowBox[{"1", "-", "z"}]]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"c", "-", "a"}], ",", RowBox[{"c", "-", "b"}], ",", RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "24", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"c", "-", "a"}], ",", RowBox[{"c", "-", "b"}], ",", RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox["z", RowBox[{"b", "-", "c"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)], ",", TagBox[ RowBox[{"1", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox[ RowBox[{"1", "-", "z"}], "z"]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "24", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ SuperscriptBox["z", RowBox[{"-", "b"}]], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["b", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox[ RowBox[{"1", "-", "z"}], "z"]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "94", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", "+", "b", "-", "c"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "c", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "a", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "b", ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", "c", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", "c"}], ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "+", "b", "-", "c", "+", "1"}], (Editable -> True)], ";", TagBox[ RowBox[{"1", "-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "-", "a"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "-", "b"}], ")"}]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "95", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "-", "a"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "c", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "b"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "-", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "a"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "b", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "-", "a"}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "c", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["b", (Editable -> True)], ",", TagBox[ RowBox[{"c", "-", "a"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", RowBox[{"1", "-", "z"}]], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "b"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "a", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "-", "b"}], ")"}]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", RowBox[{ RowBox[{"Kummer", "[", "96", "]"}], "[", RowBox[{"Hypergeometric2F1", "[", RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], "==", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "a"], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "-", "a"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "c", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox[ RowBox[{"a", "-", "c", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"a", "-", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox["z", RowBox[{"-", "a"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "b", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "-", "a"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "b"], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", "c", ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["b", (Editable -> True)], ",", TagBox[ RowBox[{"b", "-", "c", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "1"}], (Editable -> True)], ";", TagBox[ FractionBox["1", "z"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], " ", SuperscriptBox["z", RowBox[{"-", "b"}]]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", "a", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "-", "b"}], ")"}]}]]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Lagrangian", "Section", CellTags->"Lagrangian"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Lagrangian[oqu] gives the unpolarized quark operator. \ Lagrangian[oqp] gives the polarized quark operator. Lagrangian[\"QCD\"] gives part of the QCD Lagrangian.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynRule", ButtonData:>"FeynRule", ButtonStyle->"Hyperlink", ButtonNote->"FeynRule"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lagrangian", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["F", RowBox[{"\[Alpha]", "\[Beta]"}], "a"], " ", SubsuperscriptBox["F", RowBox[{"\[Alpha]", "\[Beta]"}], "a"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Twist-2 operator product expansion operators", "Subsubsection"], Cell[CellGroupData[{ Cell["Lagrangian[\"ogu\"]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ImaginaryI]", RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["F", RowBox[{"\[Alpha]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "a"], " ", SuperscriptBox[ RowBox[{"(", SubsuperscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"], RowBox[{"a", "b"}]], ")"}], RowBox[{"m", "-", "2"}]], " ", SubsuperscriptBox["F", RowBox[{"\[Alpha]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "b"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Lagrangian[\"ogp\"]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ImaginaryI]", "m"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Gamma]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SubsuperscriptBox["F", RowBox[{"\[Beta]", "\[Gamma]"}], "a"], " ", SuperscriptBox[ RowBox[{"(", SubsuperscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"], RowBox[{"a", "b"}]], ")"}], RowBox[{"m", "-", "2"}]], " ", SubsuperscriptBox["F", RowBox[{"\[Alpha]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "b"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Lagrangian[\"oqu\"]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[ImaginaryI]", "m"], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox["\[Psi]", "_"], "TraditionalForm"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ SubscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"]], RowBox[{"m", "-", "1"}]], " ", FormBox["\[Psi]", "TraditionalForm"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Lagrangian[\"oqp\"]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[ImaginaryI]", "m"], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox["\[Psi]", "_"], "TraditionalForm"], " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ SubscriptBox["D", FormBox["\[CapitalDelta]", "TraditionalForm"]], RowBox[{"m", "-", "1"}]], " ", FormBox["\[Psi]", "TraditionalForm"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["LCD", "Section", CellTags->"LCD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ LCD[m,n,r,s] evaluates to D-dimensional LeviCivita[m,n,r,s] by \ virtue of FeynCalcInternal. LCD[m,...][p, ...] evaluates to D-dimensional LeviCivita[m,...][p,...] applying FeynCalcInternal.\ \>", "Text"], Cell["\<\ You need to do SetOptions[Eps, Dimension->D] before LCD can be \ used as D-dimensional Levi-Civita input function.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["LeviCivita", ButtonData:>"LeviCivita", ButtonStyle->"Hyperlink", ButtonNote->"LeviCivita"], ", ", ButtonBox["LC", ButtonData:>"LC", ButtonStyle->"Hyperlink", ButtonNote->"LC"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Eps", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LCD", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]", "\[Nu]", "\[Rho]", "\[Sigma]"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "Eps[LorentzIndex[\[Mu], D], LorentzIndex[\[Nu], D], \n LorentzIndex[\[Rho], \ D], LorentzIndex[\[Sigma], D]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LCD", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"p", ",", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]", "\[Nu]", "p", "q"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"%", "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "Eps[LorentzIndex[\[Mu], D], LorentzIndex[\[Nu], D], \n Momentum[p, D], \ Momentum[q, D]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor2", "[", RowBox[{"Contract", "[", RowBox[{ RowBox[{ RowBox[{"LCD", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}], "[", "p", "]"}], " ", RowBox[{ RowBox[{"LCD", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}], "[", "q", "]"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "-", "D"}], ")"}], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"Eps", ",", RowBox[{"Dimension", "\[Rule]", "4"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Dimension", "\[Rule]", "4"}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["LC", "Section", CellTags->"LC"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ LC[m,n,r,s] evaluates to 4-dimensional LeviCivita[m,n,r,s] by \ virtue of applying FeynCalcInternal. LC[m,...][p, ...] evaluates to 4-dimensional LeviCivita[m,...][p,...] applying FeynCalcInternal.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["LeviCivita", ButtonData:>"LeviCivita", ButtonStyle->"Hyperlink", ButtonNote->"LeviCivita"], ", ", ButtonBox["LCD", ButtonData:>"LCD", ButtonStyle->"Hyperlink", ButtonNote->"LCD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LC", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]", "\[Nu]", "\[Rho]", "\[Sigma]"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "Eps[LorentzIndex[\[Mu]], LorentzIndex[\[Nu]], \n LorentzIndex[\[Rho]], \ LorentzIndex[\[Sigma]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LC", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"p", ",", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]", "\[Nu]", "p", "q"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"%", "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "Eps[LorentzIndex[\[Mu]], LorentzIndex[\[Nu]], Momentum[p], \n \ Momentum[q]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Contract", "[", RowBox[{ RowBox[{ RowBox[{"LC", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}], "[", "p", "]"}], " ", RowBox[{ RowBox[{"LC", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}], "[", "q", "]"}]}], "]"}], " "}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["LeftPartialD", "Section", CellTags->"LeftPartialD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "LeftPartialD[\[Mu]] denotes ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]]], "acting to the left." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["ExpandPartialD", ButtonData:>"ExpandPartialD", ButtonStyle->"Hyperlink", ButtonNote->"ExpandPartialD"], ", ", ButtonBox["PartialD", ButtonData:>"PartialD", ButtonStyle->"Hyperlink", ButtonNote->"PartialD"], ", ", ButtonBox["LeftRightPartialD", ButtonData:>"LeftRightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"LeftRightPartialD"], ", ", ButtonBox["RightPartialD", ButtonData:>"RightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"RightPartialD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Examples"], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}]}], "]"}], ".", RowBox[{"LeftPartialD", "[", "\[Nu]", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "\[Mu]"], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input"], Cell[TextData[ "QuantumField[PartialD[LorentzIndex[\[Nu]]], A, \n LorentzIndex[\[Mu]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"LeftPartialD", "[", "\[Mu]", "]"}], "]"}]], "Input"], Cell[TextData["LeftPartialD[LorentzIndex[\[Mu]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}]}], "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}]}], "]"}], ".", RowBox[{"LeftPartialD", "[", "\[Rho]", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "\[Mu]"], " ", SubscriptBox["A", "\[Nu]"], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["A", "\[Mu]"], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], " ", SubscriptBox["A", "\[Nu]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input"], Cell[TextData[ "QuantumField[A, LorentzIndex[\[Mu]]] . \n \ QuantumField[PartialD[LorentzIndex[\[Rho]]], A, \n LorentzIndex[\[Nu]]] + \ \n QuantumField[PartialD[LorentzIndex[\[Rho]]], A, \n \ LorentzIndex[\[Mu]]] . \n QuantumField[A, LorentzIndex[\[Nu]]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["LeftRightPartialD", "Section", CellTags->"LeftRightPartialD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "LeftRightPartialD[mu] denotes ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]]], ", acting to the left and right. \n \ ExplitPartialD[LeftRightPartialD[\[Mu]]] gives 1/2 (RightPartialD[\[Mu]] - \ LeftPartialD[\[Mu]])." }], "Text"], Cell[TextData[{ "See also: ", ButtonBox["ExplicitPartialD", ButtonData:>"ExplicitPartialD", ButtonStyle->"Hyperlink", ButtonNote->"ExplicitPartialD"], ", ", ButtonBox["ExpandPartialD", ButtonData:>"ExpandPartialD", ButtonStyle->"Hyperlink", ButtonNote->"ExpandPartialD"], ", ", ButtonBox["PartialD", ButtonData:>"PartialD", ButtonStyle->"Hyperlink", ButtonNote->"PartialD"], ", ", ButtonBox["LeftPartialD", ButtonData:>"LeftPartialD", ButtonStyle->"Hyperlink", ButtonNote->"LeftPartialD"], ", ", ButtonBox["LeftRightPartialD2", ButtonData:>"LeftRightPartialD2", ButtonStyle->"Hyperlink", ButtonNote->"LeftRightPartialD2"], ", ", ButtonBox["RightPartialD", ButtonData:>"RightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"RightPartialD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LeftRightPartialD", "[", "\[Mu]", "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExplicitPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "-", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LeftRightPartialD", "[", "\[Mu]", "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["A", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], "2"], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["A", "\[Nu]"]}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}]}], "]"}], ".", RowBox[{"LeftRightPartialD", "[", "\[Nu]", "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Rho]", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "\[Mu]"], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["A", "\[Rho]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["A", "\[Mu]"], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], " ", SubscriptBox["A", "\[Rho]"]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["LeftRightPartialD2", "Section", CellTags->"LeftRightPartialD2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "LeftRightPartialD2[mu] denotes ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]]], ", acting to the left and right. \n \ ExplitPartialD[LeftRightPartialD2[\[Mu]]] gives (RightPartialD[\[Mu]] + \ LeftPartialD[\[Mu]])." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["ExplicitPartialD", ButtonData:>"ExplicitPartialD", ButtonStyle->"Hyperlink", ButtonNote->"ExplicitPartialD"], ", ", ButtonBox["ExpandPartialD", ButtonData:>"ExpandPartialD", ButtonStyle->"Hyperlink", ButtonNote->"ExpandPartialD"], ", ", ButtonBox["PartialD", ButtonData:>"PartialD", ButtonStyle->"Hyperlink", ButtonNote->"PartialD"], ", ", ButtonBox["LeftPartialD", ButtonData:>"LeftPartialD", ButtonStyle->"Hyperlink", ButtonNote->"LeftPartialD"], ", ", ButtonBox["RightPartialD", ButtonData:>"RightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"RightPartialD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LeftRightPartialD2", "[", "\[Mu]", "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExplicitPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "+", SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LeftRightPartialD2", "[", "\[Mu]", "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["A", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["A", "\[Nu]"]}], "+", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}]}], "]"}], ".", RowBox[{"LeftRightPartialD2", "[", "\[Nu]", "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Rho]", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "\[Mu]"], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftRightArrow]"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["A", "\[Rho]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["A", "\[Mu]"], " ", RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], " ", SubscriptBox["A", "\[Rho]"]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["LeviCivita ", "Section", CellTags->"LeviCivita"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "LeviCivita[\[Mu], \[Nu], \[Rho], \[Sigma]] is an input function for the \ totally antisymmetric Levi-Civita tensor. It evaluates automatically to the \ internal representation Eps[ LorentzIndex[\[Mu]], LorentzIndex[\[Nu]], \ LorentzIndex[\[Rho]], LorentzIndex[\[Sigma]] ] (or with a second argument \ in LorentzIndex for the Dimension, if the option Dimension of LeviCivita is \ changed). LeviCivita[\[Mu], \[Nu] ...][ p, ...] evaluates to \ Eps[LorentzIndex[\[Mu]], LorentzIndex[\[Nu]], ..., Momentum[p], ...]."], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "LeviCivita", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Dimension", "\[Rule]", "D"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["LC", ButtonData:>"LC", ButtonStyle->"Hyperlink", ButtonNote->"LC"], ", ", ButtonBox["LCD", ButtonData:>"LCD", ButtonStyle->"Hyperlink", ButtonNote->"LCD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LeviCivita", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Delta]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Gamma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Delta]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LeviCivita", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"OPEDelta", ",", "p"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LeviCivita", "[", "]"}], "[", RowBox[{"p", ",", "q", ",", "r", ",", "s"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox["p", "TraditionalForm"], FormBox["q", "TraditionalForm"], FormBox["r", "TraditionalForm"], FormBox["s", "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LeviCivita", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Beta]", ",", "\[Delta]"}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"LeviCivita", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"OPEDelta", ",", "p"}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "Eps[LorentzIndex[\[Mu]], LorentzIndex[\[Nu]], \n Momentum[OPEDelta], \ Momentum[p]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"t1", " ", "=", " ", RowBox[{ RowBox[{"LeviCivita", "[", RowBox[{ "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Rho]"}], "]"}], ".", RowBox[{"LeviCivita", "[", RowBox[{ "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Rho]"}], "]"}]}]}], " "}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Gamma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Gamma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "24"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"LeviCivita", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], ";", RowBox[{"SetOptions", "[", RowBox[{"Eps", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Contract", "[", " ", RowBox[{ RowBox[{"LeviCivita", "[", RowBox[{ "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Rho]"}], "]"}], ".", RowBox[{"LeviCivita", "[", RowBox[{ "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Rho]"}], "]"}]}], "]"}], "//", "Factor2"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "-", "D"}], ")"}], " ", "D"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"LeviCivita", ",", RowBox[{"Dimension", "\[Rule]", "4"}]}], "]"}], ";", RowBox[{"SetOptions", "[", RowBox[{"Eps", ",", RowBox[{"Dimension", "\[Rule]", "4"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LC", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Delta]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{"\[Alpha]", "\[Beta]", "\[Gamma]", "\[Delta]"}]], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "t1", "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["LorentzIndex", "Section", CellTags->"LorentzIndex"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "LorentzIndex[\[Mu]] denotes a four dimensional Lorentz index. \nFor other \ than four dimensions: LorentzIndex[\[Mu], D] or LorentzIndex[n], etc. \ LorentzIndex[\[Mu], 4]simplifies to LorentzIndex[\[Mu]]."], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["ChangeDimension", ButtonData:>"ChangeDimension", ButtonStyle->"Hyperlink", ButtonNote->"ChangeDimension"], ", ", ButtonBox["Momentum", ButtonData:>"Momentum", ButtonStyle->"Hyperlink", ButtonNote->"Momentum"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["This denotes a four-dimensional Lorentz index.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LorentzIndex", "[", "\[Alpha]", "]"}]], "Input"], Cell[BoxData[ FormBox["\[Alpha]", TraditionalForm]], "Output"] }, Open ]], Cell["\<\ An optional second argument can be given for a dimension different \ from 4.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LorentzIndex", "[", RowBox[{"\[Alpha]", ",", "n"}], "]"}]], "Input"], Cell[BoxData[ FormBox["\[Alpha]", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData["LorentzIndex[ComplexIndex[\[Alpha]]]"], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Alpha]", "*"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData["ComplexConjugate[LorentzIndex[\[Mu]]]"], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Mu]", "*"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[ "ComplexConjugate[LorentzIndex[ComplexIndex[\[Beta]]]]"], "Input"], Cell[BoxData[ FormBox["\[Beta]", TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Setting $LorentzIndices=True displays the dimension as a \ subindex.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"$LorentzIndices", "=", "True"}], ";"}], RowBox[{" ", RowBox[{"LorentzIndex", "[", RowBox[{"\[Alpha]", ",", "D"}], " ", "]"}]}]}], "Input"], Cell[BoxData[ FormBox[ SubscriptBox[ FormBox["\[Alpha]", "TraditionalForm"], FormBox["D", "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LorentzIndex", "[", RowBox[{"\[Nu]", ",", "4"}], "]"}]], "Input"], Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"$LorentzIndices", " ", "=", " ", "False"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Map2", "Section", CellTags->"Map2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Map2[f, exp] is equivalent to Map if Nterms[exp] > 0, otherwise \ Map2[f, exp] gives f[exp].\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["NTerms", ButtonData:>"NTerms", ButtonStyle->"Hyperlink", ButtonNote->"NTerms"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map2", "[", RowBox[{"f", ",", RowBox[{"a", "-", "b"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "a", ")"}], "+", RowBox[{"f", "(", RowBox[{"-", "b"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map2", "[", RowBox[{"f", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"f", "(", "x", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map2", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map2", "[", RowBox[{"f", ",", "1"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"f", "(", "1", ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["MetricTensor", "Section", CellTags->"MetricTensor"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "MetricTensor[\[Mu], \[Nu]] is the metric tensor. The default dimension is \ 4."], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynCalcExternal", ButtonData:>"FeynCalcExternal", ButtonStyle->"Hyperlink", ButtonNote->"FeynCalcExternal"], ", ", ButtonBox["FCE", ButtonData:>"FCE", ButtonStyle->"Hyperlink", ButtonNote->"FCE"], ", ", ButtonBox["FCI", ButtonData:>"FCI", ButtonStyle->"Hyperlink", ButtonNote->"FCI"], ", ", ButtonBox["MT", ButtonData:>"MT", ButtonStyle->"Hyperlink", ButtonNote->"MT"], ", ", ButtonBox["MTD", ButtonData:>"MTD", ButtonStyle->"Hyperlink", ButtonNote->"MTD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MetricTensor", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", RowBox[{"%", " ", "%"}], "]"}]], "Input"], Cell[BoxData[ FormBox["4", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MetricTensor", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"Dimension", "\[Rule]", "n"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", RowBox[{"%", " ", "%"}], "]"}]], "Input"], Cell[BoxData[ FormBox["n", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"MetricTensor", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}]], "Input"], Cell["Pair[LorentzIndex[a], LorentzIndex[b]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"MetricTensor", "[", RowBox[{"a", ",", "b", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], "]"}]], "Input"], Cell["Pair[LorentzIndex[a, D], LorentzIndex[b, D]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FCE", "[", RowBox[{"MetricTensor", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}], "]"}]], "Input"], Cell["MT[a, b]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FCE", "[", RowBox[{"MetricTensor", "[", RowBox[{"a", ",", "b", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], "]"}], "]"}]], "Input"], Cell["MTD[a, b]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["MomentumCombine", "Section", CellTags->"MomentumCombine"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ MomentumCombine[expr] is the inverse operation to MomentumExpand \ and ExpandScalarProduct. MomentumCombine combines also Pair`s.\ \>", "Text"], Cell[TextData[{ "See also: ", ButtonBox["ExpandScalarProduct", ButtonData:>"ExpandScalarProduct", ButtonStyle->"Hyperlink", ButtonNote->"ExpandScalarProduct"], ", ", ButtonBox["Momentum", ButtonData:>"Momentum", ButtonStyle->"Hyperlink", ButtonNote->"Momentum"], ", ", ButtonBox["MomentumExpand", ButtonData:>"MomentumExpand", ButtonStyle->"Hyperlink", ButtonNote->"MomentumExpand"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Momentum", "[", "p", "]"}], "-", RowBox[{"2", " ", RowBox[{"Momentum", "[", "q", "]"}]}]}], " "}], "//", " ", "MomentumCombine"}], " ", "//", " ", "InputForm"}]], "Input"], Cell["Momentum[p - 2*q]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{ RowBox[{ RowBox[{"FV", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], " ", "+", " ", RowBox[{"2", " ", RowBox[{"FV", "[", RowBox[{"q", ",", "\[Mu]"}], "]"}]}]}], " "}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["p", "\[Mu]"], "+", RowBox[{"2", " ", SuperscriptBox["q", "\[Mu]"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MomentumCombine", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"p", "+", RowBox[{"2", " ", "q"}]}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MomentumCombine", "[", "t1", "]"}], "//", "InputForm"}]], "Input"], Cell[TextData["Pair[LorentzIndex[\[Mu]], Momentum[p + 2*q]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MomentumCombine", "[", "t1", "]"}], "//", "ExpandScalarProduct"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input"], Cell[TextData[ "Pair[LorentzIndex[\[Mu]], Momentum[p]] + \n 2*Pair[LorentzIndex[\[Mu]], \ Momentum[q]]"], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "t1", "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["MomentumExpand", "Section", CellTags->"MomentumExpand"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ MomentumExpand[expr] expands Momentum[a+b+ ...] in expr into \ Momentum[a] + Momentum[b] + ... .\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["ExpandScalarProduct", ButtonData:>"ExpandScalarProduct", ButtonStyle->"Hyperlink", ButtonNote->"ExpandScalarProduct"], ", ", ButtonBox["MomentumCombine", ButtonData:>"MomentumCombine", ButtonStyle->"Hyperlink", ButtonNote->"MomentumCombine"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MomentumExpand", "[", RowBox[{"Momentum", "[", RowBox[{"p", "+", "q"}], "]"}], "]"}], "//", "InputForm"}]], "Input"], Cell["Momentum[p] + Momentum[q]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ScalarProduct", "[", RowBox[{ RowBox[{"p", "+", "q"}], ",", "r"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"(", FormBox[ RowBox[{"p", "+", "q"}], "TraditionalForm"], ")", "\[CenterDot]", FormBox["r", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["Pair[Momentum[p + q], Momentum[r]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MomentumExpand", "[", RowBox[{"ScalarProduct", "[", RowBox[{ RowBox[{"p", "+", "q"}], ",", "r"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"(", FormBox[ RowBox[{"p", "+", "q"}], "TraditionalForm"], ")", "\[CenterDot]", FormBox["r", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["Pair[Momentum[p] + Momentum[q], Momentum[r]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MomentumExpand", "[", RowBox[{"ScalarProduct", "[", RowBox[{ RowBox[{"p", "+", "q"}], ",", RowBox[{"r", "-", "p"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"(", FormBox[ RowBox[{"p", "+", "q"}], "TraditionalForm"], ")", "\[CenterDot]", "(", FormBox[ RowBox[{"r", "-", "p"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["Pair[Momentum[p] + Momentum[q], -Momentum[p] + Momentum[r]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "-", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Momentum", "Section", CellTags->"Momentum"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Momentum[p] is the head of a four momentum (p). The internal \ representation of a four-dimensional p is Momentum[p]. For other than four dimensions: Momentum[p, dim]. Momentum[p, 4] simplifies \ to Momentum[p].\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracGamma", ButtonData:>"DiracGamma", ButtonStyle->"Hyperlink", ButtonNote->"DiracGamma"], ", ", ButtonBox["Eps", ButtonData:>"Eps", ButtonStyle->"Hyperlink", ButtonNote->"Eps"], ", ", ButtonBox["LorentzIndex", ButtonData:>"LorentzIndex", ButtonStyle->"Hyperlink", ButtonNote->"LorentzIndex"], ", ", ButtonBox["MomentumExpand", ButtonData:>"MomentumExpand", ButtonStyle->"Hyperlink", ButtonNote->"MomentumExpand"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["This is a four dimensional momentum.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Momentum", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox["p", TraditionalForm]], "Output"] }, Open ]], Cell["\<\ As an optional second argument the dimension must be specified if \ it is different from 4.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Momentum", "[", RowBox[{"p", ",", "D"}], "]"}]], "Input"], Cell[BoxData[ FormBox["p", TraditionalForm]], "Output"] }, Open ]], Cell["The dimension index is supressed in the output.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Momentum", "[", RowBox[{"p", ",", "d"}], "]"}], "//", "InputForm"}]], "Input"], Cell["Momentum[p, d]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", RowBox[{"Momentum", "[", RowBox[{"-", "q"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", "q"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "//", "InputForm"}]], "Input"], Cell["-Momentum[q]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", " ", "=", " ", RowBox[{ RowBox[{"Momentum", "[", RowBox[{"p", "-", "q"}], "]"}], " ", "+", " ", RowBox[{"Momentum", "[", RowBox[{"2", "q"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "+", RowBox[{"2", " ", "q"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", "//", "InputForm"}]], "Input"], Cell["Momentum[p - q] + 2*Momentum[q]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"a2", "//", "MomentumExpand"}], "//", "InputForm"}]], "Input"], Cell["Momentum[p] + Momentum[q]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"a2", "//", "MomentumCombine"}], "//", "InputForm"}]], "Input"], Cell["Momentum[p + q]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChangeDimension", "[", RowBox[{ RowBox[{"Momentum", "[", "p", "]"}], ",", "d"}], "]"}], "//", "InputForm"}]], "Input"], Cell["Momentum[p, d]", "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"a1", ",", "a2"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["MTD", "Section", CellTags->"MTD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "MTD[\[Mu],\[Nu]] is the metric tensor in D dimensions."], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynCalcExternal", ButtonData:>"FeynCalcExternal", ButtonStyle->"Hyperlink", ButtonNote->"FeynCalcExternal"], ", ", ButtonBox["FCE", ButtonData:>"FCE", ButtonStyle->"Hyperlink", ButtonNote->"FCE"], ", ", ButtonBox["FCI", ButtonData:>"FCI", ButtonStyle->"Hyperlink", ButtonNote->"FCI"], ", ", ButtonBox["MetricTensor", ButtonData:>"MetricTensor", ButtonStyle->"Hyperlink", ButtonNote->"MetricTensor"], ", ", ButtonBox["MT", ButtonData:>"MT", ButtonStyle->"Hyperlink", ButtonNote->"MT"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MTD", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", RowBox[{ RowBox[{"MTD", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["D", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MTD", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData["MTD[\[Alpha], \[Beta]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCI", "[", RowBox[{"MTD", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "Pair[LorentzIndex[\[Alpha], D], LorentzIndex[\[Beta], D]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCE", "[", RowBox[{"FCI", "[", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "]"}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData["MTD[\[Mu], \[Nu]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["MT", "Section", CellTags->"MT"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData["MT[\[Mu],\[Nu]] is the metric tensor in 4 dimensions."], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynCalcExternal", ButtonData:>"FeynCalcExternal", ButtonStyle->"Hyperlink", ButtonNote->"FeynCalcExternal"], ", ", ButtonBox["FCE", ButtonData:>"FCE", ButtonStyle->"Hyperlink", ButtonNote->"FCE"], ", ", ButtonBox["FCI", ButtonData:>"FCI", ButtonStyle->"Hyperlink", ButtonNote->"FCI"], ", ", ButtonBox["MetricTensor", ButtonData:>"MetricTensor", ButtonStyle->"Hyperlink", ButtonNote->"MetricTensor"], ", ", ButtonBox["MTD", ButtonData:>"MTD", ButtonStyle->"Hyperlink", ButtonNote->"MTD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MT", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", RowBox[{ RowBox[{"MT", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], " ", RowBox[{"MT", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["4", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MT", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "InputForm"}]], "Input"], Cell["MT[a, b]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCI", "[", RowBox[{"MT", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}], "//", "InputForm"}]], "Input"], Cell["Pair[LorentzIndex[a], LorentzIndex[b]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCE", "[", RowBox[{"FCI", "[", RowBox[{"MT", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}], "]"}], "//", "InputForm"}]], "Input"], Cell["MT[a, b]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Nielsen", "Section", CellTags->"Nielsen"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["Nielsen[i,j, x] denotes Nielsen's polylogarithm.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Nielsen", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"PolyLog", "\[Rule]", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["SimplifyPolyLog", ButtonData:>"SimplifyPolyLog", ButtonStyle->"Hyperlink", ButtonNote->"SimplifyPolyLog"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Nielsen", "[", RowBox[{"1", ",", "2", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["S", RowBox[{ FormBox["1", "TraditionalForm"], FormBox["2", "TraditionalForm"]}]], "(", "x", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Numerical evaluation is done via N[Nielsen[n_,p_,x_]] := (-1)^(n+p-1)/(n-1)!/p! NIntegrate[Log[1-x t]^p \ Log[t]^(n-1)/t,{t,0,1}];\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"Nielsen", "[", RowBox[{"1", ",", "2", ",", ".45"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox["0.0728716261210464733`", TraditionalForm]], "Output"] }, Open ]], Cell["Some special values are built in.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Nielsen", "[", RowBox[{"1", ",", "2", ",", "0"}], "]"}], ",", RowBox[{"Nielsen", "[", RowBox[{"1", ",", "2", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Nielsen", "[", RowBox[{"1", ",", "2", ",", RowBox[{"1", "/", "2"}]}], "]"}], ",", RowBox[{"Nielsen", "[", RowBox[{"1", ",", "2", ",", "1"}], "]"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"0", ",", FractionBox[ TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], "8"], ",", FractionBox[ TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], "8"], ",", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Nielsen", "[", RowBox[{"1", ",", "2", ",", "x", ",", RowBox[{"PolyLog", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"1", "-", "x"}], ")"}], "+", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Nielsen", "[", RowBox[{"1", ",", "3", ",", "x", ",", RowBox[{"PolyLog", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{ SuperscriptBox["log", "3"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{ SubscriptBox["Li", "4"], "(", RowBox[{"1", "-", "x"}], ")"}], "+", FractionBox[ SuperscriptBox["\[Pi]", "4"], "90"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Nielsen", "[", RowBox[{"3", ",", "1", ",", "x", ",", RowBox[{"PolyLog", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Li", "4"], "(", "x", ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["NTerms", "Section", CellTags->"NTerms"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ NTerms[x] is equivalent to Length if x is a sum; otherwise \ NTerms[x] returns 1, except NTerms[0] -> 0.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NTerms", "[", RowBox[{"a", "-", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox["2", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NTerms", "[", RowBox[{"a", " ", "b", " ", "c"}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NTerms", "[", "9", "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NTerms", "[", "0", "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["OneLoop", "Section", CellTags->"OneLoop"], Cell[TextData[{ "Documentation unfinished ....; see also the old FeynCalc documentation at \ ", ButtonBox["http://www.mertig.com/oldfc", ButtonData:>{ URL[ "http://www.mertig.com/oldfc"], None}, ButtonStyle->"Hyperlink"], ". \n\nNOTICE: While OneLoop is restricted to 't Hooft Feynman gauge the \ function ", ButtonBox["OneLoopSimplify", ButtonData:>"OneLoopSimplify", ButtonStyle->"Hyperlink", ButtonNote->"OneLoopSimplify"], " does not have this restriction (but is slower).\nOneLoop handles \ selfenergies, vertex and box-graphs (those only up to 3rd rank tensor in the \ integration variable).\n\n", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{"WARNING", ":", " ", RowBox[{"If", " ", "you", " ", "encounter", " ", RowBox[{"anomalies", ":", " ", RowBox[{ RowBox[{ "The", " ", "default", " ", "setting", " ", "of", " ", "$West"}], " ", "is", " ", "True"}]}]}]}], ",", " ", RowBox[{"i", ".", "e", "."}], ",", " ", RowBox[{"the", " ", "way", " ", RowBox[{"tr", "(", RowBox[{ RowBox[{"\[Gamma]", "^", "\[Mu]"}], RowBox[{"\[Gamma]", "^", "\[Nu]"}], RowBox[{"\[Gamma]", "^", "\[Rho]"}], RowBox[{"\[Gamma]", "^", "\[Sigma]"}], RowBox[{"\[Gamma]", "^", "\[Tau]"}], RowBox[{"\[Gamma]", "^", "\[Lambda]"}], RowBox[{"\[Gamma]", "^", "5"}]}], ")"}]}]}], TraditionalForm]]], " ", "\n", "iscalc", Cell[BoxData[ FormBox[ RowBox[{ "ulated", " ", "in", " ", "D", " ", "dimensions", " ", "has", " ", "changed", " ", "compared", " ", "to", " ", "the", " ", "old", " ", RowBox[{"FeynCalc", ".", " ", "Keep"}], " ", "in", " ", "mind", " ", "that", " ", "the", " ", "issue", " ", "of", " ", RowBox[{"\[Gamma]", "^", "5"}]}], TraditionalForm]]], "schemes is tricky." }], "Text"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ OneLoop[q, amplitude] calculates the one-loop Feynman diagram \ amplitude. The argument q denotes the integration variable, i.e., the loop \ momentum.OneLoop[name, q, amplitude] has as first argument a name of the \ amplitude.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "OneLoop", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Apart2", "\[Rule]", "True"}], ",", RowBox[{"CancelQP", "\[Rule]", "True"}], ",", RowBox[{"DenominatorOrder", "\[Rule]", "False"}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"Factoring", "\[Rule]", "False"}], ",", RowBox[{"FormatType", "\[Rule]", "InputForm"}], ",", RowBox[{"InitialSubstitutions", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"IntermediateSubstitutions", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"IsolateNames", "\[Rule]", "False"}], ",", RowBox[{"Mandelstam", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"OneLoopSimplify", "\[Rule]", "False"}], ",", RowBox[{"Prefactor", "\[Rule]", "1"}], ",", RowBox[{"ReduceGamma", "\[Rule]", "False"}], ",", RowBox[{"ReduceToScalars", "\[Rule]", "False"}], ",", RowBox[{"SmallVariables", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"WriteOut", "\[Rule]", "False"}], ",", RowBox[{"WriteOutPaVe", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["B0", ButtonData:>"B0", ButtonStyle->"Hyperlink", ButtonNote->"B0"], ", ", ButtonBox["C0", ButtonData:>"C0", ButtonStyle->"Hyperlink", ButtonNote->"C0"], ", ", ButtonBox["D0", ButtonData:>"D0", ButtonStyle->"Hyperlink", ButtonNote->"D0"], ", ", ButtonBox["OneLoopSimplify", ButtonData:>"OneLoopSimplify", ButtonStyle->"Hyperlink", ButtonNote->"OneLoopSimplify"], ", ", ButtonBox["TID", ButtonData:>"TID", ButtonStyle->"Hyperlink", ButtonNote->"TID"], ", ", ButtonBox["TIDL", ButtonData:>"TIDL", ButtonStyle->"Hyperlink", ButtonNote->"TIDL"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SP", "[", RowBox[{"k", ",", "r"}], "]"}], " ", RowBox[{"FAD", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "m"}], "}"}], " ", ",", " ", RowBox[{"k", " ", "-", " ", "p"}]}], "]"}]}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p"}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OneLoop", "[", RowBox[{"k", ",", "%"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["m", "2"], ")"}], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", SuperscriptBox["m", "2"]}], RowBox[{"2", " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]]}], "+", FractionBox[ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], ",", "0", ",", SuperscriptBox["m", "2"], ")"}], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", SuperscriptBox["m", "2"]}], RowBox[{"2", " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]], "-", FractionBox[ RowBox[{ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", SuperscriptBox["m", "2"]}], RowBox[{"2", " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox["B", "0"], "(", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], ",", "0", ",", SuperscriptBox["m", "2"], ")"}], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["OneLoopSimplify", "Section", CellTags->"OneLoopSimplify"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ OneLoopSimplify[amp, q] simplifies the one-loop amplitude amp. The \ second argument denotes the integration momentum.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "OneLoopSimplify", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Collecting", "\[Rule]", "False"}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"DimensionalReduction", "\[Rule]", "False"}], ",", RowBox[{"DiracSimplify", "\[Rule]", "True"}], ",", RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"IntegralTable", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"OPE1Loop", "\[Rule]", "False"}], ",", RowBox[{"ScalarProductCancel", "\[Rule]", "True"}], ",", RowBox[{"SUNNToCACF", "\[Rule]", "True"}], ",", RowBox[{"SUNTrace", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["OneLoop", ButtonData:>"OneLoop", ButtonStyle->"Hyperlink", ButtonNote->"OneLoop"], ", ", ButtonBox["TID", ButtonData:>"TID", ButtonStyle->"Hyperlink", ButtonNote->"TID"], ", ", ButtonBox["TIDL", ButtonData:>"TIDL", ButtonStyle->"Hyperlink", ButtonNote->"TIDL"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SP", "[", RowBox[{"k", ",", "r"}], "]"}], " ", RowBox[{"FAD", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "m"}], "}"}], " ", ",", " ", RowBox[{"k", " ", "-", " ", "p"}]}], "]"}]}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p"}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OneLoopSimplify", "[", RowBox[{"%", ",", "k"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["m", "2"], "+", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], ")"}], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p"}], ")"}], "2"]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]], "-", FractionBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OneLoopSimplify", "[", RowBox[{ RowBox[{"%", "/.", RowBox[{"m", "\[Rule]", "0"}]}], ",", "k"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p"}], ")"}], "2"]}], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FAD", "[", RowBox[{"k", ",", "k", ",", " ", RowBox[{"k", " ", "-", " ", SubscriptBox["p", "1"]}], ",", " ", RowBox[{"k", " ", "-", " ", SubscriptBox["p", "2"]}]}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{"k", ",", "\[Mu]"}], "]"}]}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OneLoopSimplify", "[", " ", RowBox[{"%", ",", "k"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "+", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}]}]], "-", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}]}]], "-", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "+", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FCE", "[", "%", "]"}], "/.", RowBox[{ RowBox[{"SPD", "[", SubscriptBox["p", "1"], "]"}], "\[Rule]", "0"}]}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"]}], ")"}], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}]], "-", FractionBox[ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"]}], ")"}], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}]], "-", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "+", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OneLoopSimplify", "[", RowBox[{ RowBox[{ RowBox[{"FAD", "[", RowBox[{ RowBox[{"k", "-", SubscriptBox["p", "1"]}], ",", RowBox[{"k", "-", SubscriptBox["p", "2"]}]}], "]"}], " ", RowBox[{ RowBox[{"SP", "[", RowBox[{"k", ",", "l"}], "]"}], "^", "2"}]}], ",", "k"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["l", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{"2", " ", "D", " ", RowBox[{ FormBox["l", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", RowBox[{ FormBox["l", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}]}], "-", RowBox[{"4", " ", RowBox[{ FormBox["l", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", RowBox[{ FormBox["l", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}]}], "+", RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["l", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{ SuperscriptBox[ FormBox["l", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox["l", "TraditionalForm"], "2"], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["l", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"], "+", SubscriptBox["p", "2"]}], ")"}], "2"]}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["OPEDelta", "Section", CellTags->"OPEDelta"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ OPEDelta is a lightlike axial vector as used e.g. in the operator \ product expansion in QCD.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Twist2QuarkOperator", ButtonData:>"Twist2QuarkOperator", ButtonStyle->"Hyperlink", ButtonNote->"Twist2QuarkOperator"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourVector", "[", RowBox[{"OPEDelta", ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", RowBox[{"%", " ", "%"}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SP", "[", RowBox[{"OPEDelta", ",", "OPEDelta"}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["OPEi, OPEj, OPEk, OPEl, OPEm, OPEn, OPEo", "Section", CellTags->{"OPEi", "OPEj", "OPEk", "OPEl", "OPEm", "OPEn", "OPEo"}], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ OPEi, etc. are variables with DataType PositiveInteger which are \ used in functions relating to the operator product expansion.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData["OPEi"], "Input"], Cell[BoxData[ FormBox["i", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataType", "[", RowBox[{ "OPEi", ",", " ", "OPEj", ",", "OPEk", ",", "OPEl", ",", " ", "OPEm", ",", " ", "OPEn", ",", " ", "OPEo", ",", " ", "PositiveInteger"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PowerSimplify", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"2", "OPEi"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"2", "OPEj"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"2", "OPEk"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"2", "OPEl"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"2", "OPEm"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"2", "OPEn"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"2", "OPEo"}], ")"}]}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell["Re has been changed:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Re", "[", "OPEi", "]"}], ">", RowBox[{"-", "3"}]}], ",", " ", RowBox[{ RowBox[{"Re", "[", "OPEi", "]"}], ">", RowBox[{"-", "2"}]}], ",", " ", RowBox[{ RowBox[{"Re", "[", "OPEi", "]"}], ">", RowBox[{"-", "1"}]}], ",", " ", " ", " ", RowBox[{ RowBox[{"Re", "[", "OPEi", "]"}], ">", "0"}], ",", " ", RowBox[{ RowBox[{"Re", "[", "OPEi", "]"}], ">", "1"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{"-", "OPEi"}], " ", "+", " ", "OPEm"}], "]"}], " ", ">", " ", "0"}], ",", " ", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{"-", "OPEi"}], " ", "+", " ", "OPEm"}], "]"}], " ", ">", " ", "1"}], ",", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{"-", "OPEi"}], " ", "+", " ", "OPEm"}], "]"}], " ", ">", " ", "2"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Re", "[", "OPEm", "]"}], ">", RowBox[{"-", "3"}]}], ",", " ", RowBox[{ RowBox[{"Re", "[", "OPEm", "]"}], ">", RowBox[{"-", "2"}]}], ",", " ", RowBox[{ RowBox[{"Re", "[", "OPEm", "]"}], ">", RowBox[{"-", "1"}]}], ",", " ", " ", " ", RowBox[{ RowBox[{"Re", "[", "OPEm", "]"}], ">", "0"}], ",", " ", RowBox[{ RowBox[{"Re", "[", "OPEm", "]"}], ">", "1"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"$Color", "=", "True"}], ";"}], " "}], RowBox[{"\t", "OPEm"}]}], "Input"], Cell[BoxData[ FormBox[ TagBox[ StyleBox["m", FontColor->RGBColor[0, 1, 0.2]], (HighEnergyPhysics`FeynCalc`OPEm`Private`Tag -> OPEm)], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"$Color", "=", "False"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["OPESumExplicit", "Section", CellTags->"OPESumExplicit"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["OPESumExplicit[exp] calculates OPESum's.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["OPESum", ButtonData:>"OPESum", ButtonStyle->"Hyperlink", ButtonNote->"OPESum"], ", ", ButtonBox["OPESumSimplify", ButtonData:>"OPESumSimplify", ButtonStyle->"Hyperlink", ButtonNote->"OPESumSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"OPESum", "[", RowBox[{ RowBox[{ RowBox[{"A", "^", "i"}], RowBox[{"B", "^", RowBox[{"(", RowBox[{"m", "-", "i", "-", "3"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"m", "-", "3"}]}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox["A", "i"], " ", SuperscriptBox["B", RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]]}]}], HoldForm], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OPESumExplicit", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ FormBox[ SuperscriptBox["A", RowBox[{"m", "-", "2"}]], "TraditionalForm"], RowBox[{"A", "-", "B"}]], "-", FractionBox[ FormBox[ SuperscriptBox["B", RowBox[{"m", "-", "2"}]], "TraditionalForm"], RowBox[{"A", "-", "B"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", " ", "=", " ", RowBox[{"OPESum", "[", RowBox[{ RowBox[{ RowBox[{"a", "^", "i"}], RowBox[{"b", "^", RowBox[{"(", RowBox[{"j", "-", "i"}], ")"}]}], RowBox[{"c", "^", RowBox[{"(", RowBox[{"m", "-", "j", "-", "4"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"m", "-", "4"}]}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox["a", "i"], " ", SuperscriptBox["b", RowBox[{"j", "-", "i"}]], " ", SuperscriptBox["c", RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]]}], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OPESumExplicit", "[", "t2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"c", " ", FormBox[ SuperscriptBox["a", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]]}], "+", FractionBox[ RowBox[{"b", " ", FormBox[ SuperscriptBox["a", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]], "+", FractionBox[ RowBox[{"c", " ", FormBox[ SuperscriptBox["b", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]], "-", FractionBox[ RowBox[{"a", " ", FormBox[ SuperscriptBox["b", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]], "-", FractionBox[ RowBox[{"b", " ", FormBox[ SuperscriptBox["c", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]], "+", FractionBox[ RowBox[{"a", " ", FormBox[ SuperscriptBox["c", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"t1", ",", "t2"}], "]"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["OPESum", "Section", CellTags->"OPESum"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ OPESum[exp, {i, 0, m}] denotes a symbolic sum.The syntax is the \ same as for Sum.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["OPESumExplicit", ButtonData:>"OPESumExplicit", ButtonStyle->"Hyperlink", ButtonNote->"OPESumExplicit"], ", ", ButtonBox["OPESumSimplify", ButtonData:>"OPESumSimplify", ButtonStyle->"Hyperlink", ButtonNote->"OPESumSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"OPESum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SO", "[", "p", "]"}], "^", "OPEi"}], RowBox[{ RowBox[{"SO", "[", "k", "]"}], "^", RowBox[{"(", RowBox[{"OPEm", "-", "OPEi", "-", "3"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"OPEi", ",", "0", ",", RowBox[{"OPEm", "-", "3"}]}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["k", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["p", "TraditionalForm"]}], ")"}], "i"]}]}], HoldForm], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OPESumExplicit", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["k", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"], RowBox[{ RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["k", "TraditionalForm"]}], "-", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]}]], "-", FractionBox[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"], RowBox[{ RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["k", "TraditionalForm"]}], "-", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", " ", "=", " ", RowBox[{"OPESum", "[", RowBox[{ RowBox[{ RowBox[{"a", "^", "i"}], RowBox[{"b", "^", RowBox[{"(", RowBox[{"j", "-", "i"}], ")"}]}], RowBox[{"c", "^", RowBox[{"(", RowBox[{"m", "-", "j", "-", "4"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"m", "-", "4"}]}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox["a", "i"], " ", SuperscriptBox["b", RowBox[{"j", "-", "i"}]], " ", SuperscriptBox["c", RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]]}], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OPESumExplicit", "[", "t2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"c", " ", FormBox[ SuperscriptBox["a", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]]}], "+", FractionBox[ RowBox[{"b", " ", FormBox[ SuperscriptBox["a", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]], "+", FractionBox[ RowBox[{"c", " ", FormBox[ SuperscriptBox["b", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]], "-", FractionBox[ RowBox[{"a", " ", FormBox[ SuperscriptBox["b", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]], "-", FractionBox[ RowBox[{"b", " ", FormBox[ SuperscriptBox["c", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]], "+", FractionBox[ RowBox[{"a", " ", FormBox[ SuperscriptBox["c", RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{" ", RowBox[{"Clear", "[", RowBox[{"t1", ",", "t2"}], "]"}]}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["OPESumSimplify", "Section", CellTags->"OPESumSimplify"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["OPESumSimplify[exp] simplifies OPESum's in exp.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["OPESum", ButtonData:>"OPESum", ButtonStyle->"Hyperlink", ButtonNote->"OPESum"], ", ", ButtonBox["OPESumExplicit", ButtonData:>"OPESumExplicit", ButtonStyle->"Hyperlink", ButtonNote->"OPESumExplicit"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell["\<\ OPESum[(-SOD[p])^(OPEi+1) \ SOD[p-q]^(OPEm-OPEi-2),{OPEi,0,OPEm}]\ \>", "Input", FormatType->InputForm], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "m"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], RowBox[{"i", "+", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["\<\"(\"\>", "TraditionalForm"], FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], FormBox["\<\")\"\>", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]]}]}], HoldForm], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["OPESumSimplify[%]", "Input", FormatType->InputForm], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "m"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]]}]}], HoldForm], "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OPESumSimplify", "[", RowBox[{ RowBox[{"OPESum", "[", RowBox[{"{", RowBox[{"OPEi", ",", "0", ",", "OPEm"}], "}"}], "]"}], " ", RowBox[{"a", "^", "OPEi"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "m"], FormBox[ SuperscriptBox["a", "i"], "TraditionalForm"]}], HoldForm], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OPESumSimplify", "[", RowBox[{ RowBox[{"OPESum", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "0", ",", "i"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "m"}], "}"}]}], "]"}], " ", RowBox[{"a", "^", RowBox[{"(", RowBox[{"j", "-", "i"}], ")"}]}], " ", RowBox[{"b", "^", "i"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "m"], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "i"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox["a", RowBox[{"j", "-", "i"}]], " ", SuperscriptBox["b", "i"]}], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["OPESum[a^(-i + j)*b^i, {i, 0, m}, {j, 0, i}]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Pair", "Section", CellTags->"Pair"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "Pair[x, y] is the head of a special pairing used in the internal \ representation: \nx and y may have heads LorentzIndex or Momentum. If both x \ and y have head LorentzIndex, the metric tensor is understood. If x and y \ have head Momentum, a scalar product is meant. If one of x and y has head \ LorentzIndex and the other Momentum, a Lorentz vector ", Cell[BoxData[ FormBox[ RowBox[{"p", "^", "\[Mu]"}], TraditionalForm]]], " is understood." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FourVector", ButtonData:>"FourVector", ButtonStyle->"Hyperlink", ButtonNote->"FourVector"], ", ", ButtonBox["FV", ButtonData:>"FV", ButtonStyle->"Hyperlink", ButtonNote->"FV"], ", ", ButtonBox["FVD", ButtonData:>"FVD", ButtonStyle->"Hyperlink", ButtonNote->"FVD"], ", ", ButtonBox["MetricTensor", ButtonData:>"MetricTensor", ButtonStyle->"Hyperlink", ButtonNote->"MetricTensor"], ", ", ButtonBox["MT", ButtonData:>"MT", ButtonStyle->"Hyperlink", ButtonNote->"MT"], ", ", ButtonBox["MTD", ButtonData:>"MTD", ButtonStyle->"Hyperlink", ButtonNote->"MTD"], ", ", ButtonBox["ScalarProduct", ButtonData:>"ScalarProduct", ButtonStyle->"Hyperlink", ButtonNote->"ScalarProduct"], ", ", ButtonBox["SP", ButtonData:>"SP", ButtonStyle->"Hyperlink", ButtonNote->"SP"], ", ", ButtonBox["SPD", ButtonData:>"SPD", ButtonStyle->"Hyperlink", ButtonNote->"SPD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["This represents a four-dimensional metric tensor.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pair", "[", RowBox[{ RowBox[{"LorentzIndex", "[", "\[Alpha]", "]"}], ",", RowBox[{"LorentzIndex", "[", "\[Beta]", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]], TraditionalForm]], "Output"] }, Open ]], Cell["This is a D-dimensional metric tensor.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pair", "[", RowBox[{ RowBox[{"LorentzIndex", "[", RowBox[{"\[Alpha]", ",", "D"}], "]"}], ",", RowBox[{"LorentzIndex", "[", RowBox[{"\[Beta]", ",", "D"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pair", "[", RowBox[{ RowBox[{"LorentzIndex", "[", "\[Alpha]", "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", "q", "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", "p", "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", RowBox[{"p", "-", "q"}], "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", "p", "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], "^", "2"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "4"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", "p", "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], "^", "3"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "6"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"LorentzIndex", "[", RowBox[{"\[Alpha]", ",", RowBox[{"n", "-", "4"}]}], "]"}], ",", RowBox[{"LorentzIndex", "[", "\[Beta]", "]"}]}], "]"}], "//", "Contract"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandScalarProduct", "[", RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", RowBox[{"p", "-", "q"}], "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "-", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", RowBox[{"-", "q"}], "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], " ", "+", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", "q", "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["PartialD", "Section", CellTags->"PartialD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "PartialD[\[Mu]] denotes the four-dimensional ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "."}], TraditionalForm]]], " PartialD is used to denote derivative fields. \ PartialD[LorentzIndex[\[Mu],D]] denotes the D-dimensional ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], "."}], TraditionalForm]]] }], "Text", ZeroWidthTimes->True], Cell[TextData[{ "See also: ", " ", ButtonBox["ExpandPartialD", ButtonData:>"ExpandPartialD", ButtonStyle->"Hyperlink", ButtonNote->"ExpandPartialD"], ", ", ButtonBox["LeftRightPartialD", ButtonData:>"LeftRightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"LeftRightPartialD"], ", ", ButtonBox["RightPartialD", ButtonData:>"RightPartialD", ButtonStyle->"Hyperlink", ButtonNote->"RightPartialD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Examples"], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"{", "\[Mu]", "}"}]}], "]"}], ".", RowBox[{"LeftPartialD", "[", "\[Nu]", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "\[Mu]"], " ", SubscriptBox[ OverscriptBox["\[PartialD]", "\[LeftArrow]"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input"], Cell[TextData[ "QuantumField[PartialD[LorentzIndex[\[Nu]]], A, \n LorentzIndex[\[Mu]]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["PaVe", "Section", CellTags->"PaVe"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ PaVe[ i,j,... {p10,p12,...},{m1^2, mw^2, ...} ] denotes the invariant (and scalar) Passarino-Veltman integrals, i.e. the coefficient functions of the tensor integral decomposition. Joining plist and mlist gives the same \ conventions as for A0, B0, C0, D0. Automatic simlifications are performed \ for the coefficient functions of two-point integrals and for the scalar \ integrals.\ \>", "Text"], Cell[TextData[{ "For a more detailed description see the manual (no changes from there \ basically):\n", ButtonBox["http://www.mertig.com/oldfc", ButtonData:>{ URL[ "http://www.mertig.com/oldfc"], None}, ButtonStyle->"Hyperlink"] }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["PaVeReduce", ButtonData:>"PaVeReduce", ButtonStyle->"Hyperlink", ButtonNote->"PaVeReduce"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["Some of the PaVe's reduce to special cases.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PaVe", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", RowBox[{"{", RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"D\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m1", ",", "m2", ",", "m3", ",", "m4", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PaVe", "[", RowBox[{"0", ",", "0", ",", RowBox[{"{", "pp", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "^", "2"}], ",", RowBox[{"M", "^", "2"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "3"], " ", RowBox[{ SubscriptBox["B", "0"], "(", "pp", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}], " ", SuperscriptBox["m", "2"]}], "+", RowBox[{ FractionBox["1", "18"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["m", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["M", "2"]}], "-", "pp"}], ")"}]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["M", "2"], ",", SuperscriptBox["M", "2"], ")"}], " ", SuperscriptBox["M", "2"]}], "+", SuperscriptBox["M", "2"], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["m", "2"], "-", SuperscriptBox["M", "2"], "+", "pp"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["M", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["B", "0"], "(", "pp", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}], "-", RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}]}], ")"}]}], RowBox[{"2", " ", "pp"}]], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SubscriptBox["B", "0"], "(", "pp", ",", SuperscriptBox["m", "2"], ",", SuperscriptBox["M", "2"], ")"}]}]}], ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["PaVeOrder", "Section", CellTags->"PaVeOrder"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ PaVeOrder[expr] orders the arguments of all D0 in expr in a \ standard way. PaVeOrder[expr, PaVeOrderList -> { {..., s, u, ...}, {... m1^2, m2^2, ...}, \ ...}] orders the arguments of all D0 in expr according to the specified \ ordering lists. The lists may contain only a subsequence of the D0-variables.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["PaVeReduce", ButtonData:>"PaVeReduce", ButtonStyle->"Hyperlink", ButtonNote->"PaVeReduce"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PaVeOrder", "[", RowBox[{ RowBox[{"D0", "[", RowBox[{ "me2", ",", "me2", ",", "mw2", ",", "mw2", ",", "t", ",", "s", ",", "me2", ",", "0", ",", "me2", ",", "0"}], "]"}], ",", RowBox[{"PaVeOrderList", "\[Rule]", RowBox[{"{", RowBox[{"me2", ",", "me2", ",", "0", ",", "0"}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"D\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "me2", ",", "s", ",", "mw2", ",", "t", ",", "mw2", ",", "me2", ",", "me2", ",", FormBox["0", "TraditionalForm"], ",", FormBox["0", "TraditionalForm"], ",", "me2", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PaVeOrder", "[", RowBox[{ RowBox[{"D0", "[", RowBox[{ "me2", ",", "me2", ",", "mw2", ",", "mw2", ",", "t", ",", "s", ",", "me2", ",", "0", ",", "me2", ",", "0"}], "]"}], ",", RowBox[{"PaVeOrderList", "\[Rule]", RowBox[{"{", RowBox[{"me2", ",", "me2", ",", "0", ",", "0"}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\<\"D\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "me2", ",", "s", ",", "mw2", ",", "t", ",", "mw2", ",", "me2", ",", "me2", ",", FormBox["0", "TraditionalForm"], ",", FormBox["0", "TraditionalForm"], ",", "me2", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PaVeOrder", "[", RowBox[{ RowBox[{ RowBox[{"D0", "[", RowBox[{ "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m12", ",", "m22", ",", "m32", ",", "m42"}], "]"}], "+", RowBox[{"D0", "[", RowBox[{ "me2", ",", "me2", ",", "mw2", ",", "mw2", ",", "t", ",", "s", ",", "me2", ",", "0", ",", "me2", ",", "0"}], "]"}]}], ",", RowBox[{"PaVeOrderList", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"me2", ",", "me2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"f", ",", "e"}], "}"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox[ SubscriptBox["\<\"D\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "a", ",", "d", ",", "c", ",", "b", ",", "f", ",", "e", ",", "m22", ",", "m12", ",", "m42", ",", "m32", ")"}], "+", RowBox[{ FormBox[ SubscriptBox["\<\"D\"\>", "\<\"0\"\>"], "TraditionalForm"], "(", "me2", ",", "s", ",", "mw2", ",", "t", ",", "mw2", ",", "me2", ",", "me2", ",", FormBox["0", "TraditionalForm"], ",", FormBox["0", "TraditionalForm"], ",", "me2", ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["PaVeReduce", "Section", CellTags->"PaVeReduce"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ PaVeReduce[expr] reduces all Passarino-Veltman integrals (i.e. all \ PaVe's) in expr down to scalar A0, B0, C0 and D0.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "PaVeReduce", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Dimension", "\[Rule]", "True"}], ",", RowBox[{"IsolateNames", "\[Rule]", "False"}], ",", RowBox[{"Mandelstam", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"PaVeOrderList", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"WriteOutPaVe", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "WriteOutPaVe"}]], "Input"], Cell[BoxData[ FormBox[ "\<\"WriteOutPaVe is an option for PaVeReduce and OneLoopSum. If set to \ a string, the results of all Passarino-Veltman PaVe's are written out.\"\>", TraditionalForm]], "Print"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["FRH", ButtonData:>"FRH", ButtonStyle->"Hyperlink", ButtonNote->"FRH"], ", ", ButtonBox["PaVeOrder", ButtonData:>"PaVeOrder", ButtonStyle->"Hyperlink", ButtonNote->"PaVeOrder"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PaVeReduce", "[", RowBox[{ RowBox[{"PaVe", "[", RowBox[{"1", ",", "2", ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "^", "2"}], ",", RowBox[{"m", "^", "2"}], ",", RowBox[{"M", "^", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"IsolateHead", "\[Rule]", "L"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{"L", "(", "14", ")"}], HoldForm], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "[", "10", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["m", "2"]}], "-", "s"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FRH", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["m", "2"]}], "-", "s"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PaVeReduce", "[", RowBox[{ RowBox[{"PaVe", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{ RowBox[{"SmallVariable", "[", "me2", "]"}], ",", "mw2", ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"SmallVariable", "[", "me2", "]"}], ",", "0", ",", "mw2"}], "}"}]}], "]"}], ",", RowBox[{"WriteOutPaVe", "\[Rule]", "\"\\""}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SubscriptBox["B", "0"], "(", "0", ",", "mw2", ",", "mw2", ")"}], RowBox[{"mw2", "-", "t"}]], "-", FractionBox[ RowBox[{ SubscriptBox["B", "0"], "(", "t", ",", "mw2", ",", "me2", ")"}], RowBox[{"mw2", "-", "t"}]], "+", FractionBox["2", RowBox[{"mw2", "-", "t"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "String"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[GridBox[{ {"\<\"( 2/(mw2 - t) + B0[0, mw2, mw2]/(mw2 - t) - \"\>"}, {"\<\" B0[t, mw2, SmallVariable[me2]]/(mw2 - t)\"\>"}, {"\<\" ) \"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"( 2/(mw2 - t) + B0[0, mw2, mw2]/(mw2 - t) - ", " B0[t, mw2, SmallVariable[me2]]/(mw2 - t)", " ) "}]], TraditionalForm]], "Output"] }, Open ]], Cell["DeleteFile/@FileNames[\"ptePaVe2Csmame2mw2tCsmame20mw2.s\"];", "Input", FormatType->InputForm], Cell["se=SmallVariable[ME2];", "Input", FormatType->InputForm], Cell[CellGroupData[{ Cell["\<\ d122=PaVeReduce[PaVe[1,2,2,{se,MW2,MW2,se,S,T},{0,se,0,se}],Mandelstam->{S,T, U,2 MW2},IsolateHead->F] \ \>", "Input", FormatType->InputForm], Cell[BoxData[ FormBox[ TagBox[ RowBox[{"F", "(", "20", ")"}], HoldForm], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Write2[\"fctd122.for\",d122res==d122,FormatType->FortranForm];", "Input", FormatType->InputForm], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "\<\"FORTRAN generation WARNING! Too long line \ encountered. Check line \"\>", "\[InvisibleSpace]", "15"}], SequenceForm[ "FORTRAN generation WARNING! Too long line \ encountered. Check line ", 15], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "\<\"FORTRAN generation WARNING! Too long line \ encountered. Check line \"\>", "\[InvisibleSpace]", "21"}], SequenceForm[ "FORTRAN generation WARNING! Too long line \ encountered. Check line ", 21], Editable->False], TraditionalForm]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell["ReadList[\"fctd122.for\",String]//TableForm", "Input", FormatType->InputForm], Cell[BoxData[ FormBox[ InterpretationBox[GridBox[{ {"\<\" F(1) = F(1)\"\>"}, {"\<\" F(2) = F(2)\"\>"}, {"\<\" F(3) = y + z\"\>"}, {"\<\" F(4) = b + c*F(3)\"\>"}, {"\<\" F(5) = B0(MW2,ME2,0D0)\"\>"}, {"\<\" F(6) = B0(S,0D0,0D0)\"\>"}, {"\<\" F(7) = B0(T,ME2,ME2)\"\>"}, {"\<\" F(8) = C0(MW2,MW2,T,ME2,0D0,ME2)\"\>"}, {"\<\" F(9) = C0(MW2,S,ME2,ME2,0D0,0D0)\"\>"}, {"\<\" F(10) = C0(T,ME2,ME2,ME2,ME2,0D0)\"\>"}, { "\<\" F(11) = \ D0(MW2,MW2,ME2,ME2,T,S,ME2,0D0,ME2,0D0)\"\>"}, {"\<\" F(12) = MW2 + S\"\>"}, {"\<\" F(13) = 4*MW2 - T\"\>"}, {"\<\" F(14) = MW2**2 - S*U\"\>"}, {"\<\" F(15) = MW2 - S\"\>"}, { "\<\" F(16) = 4*MW2**5 - 5*MW2**4*S - 16*MW2**3*S**2 + \ 4*MW2**2*S**3 + \"\>"}, { "\<\" & 4*MW2*S**4 - MW2**4*U - 4*MW2**2*S**2*U + \ 8*MW2*S**3*U + \"\>"}, {"\<\" & 4*MW2**2*S*U**2 + S**3*U**2 + S**2*U**3\"\>"}, {"\<\" F(17) = MW2**2 - 4*MW2*S + 2*S**2 + S*U\"\>"}, { "\<\" F(18) = 4*MW2**3 - 9*MW2**2*S + 2*S**3 - MW2**2*U \ - 4*MW2*S*U + \"\>"}, {"\<\" & 5*S**2*U + 3*S*U**2\"\>"}, { "\<\" F(19) = 2*MW2**6 - 8*MW2**5*S + 12*MW2**4*S**2 - \ 8*MW2**3*S**3 + \"\>"}, { "\<\" & 2*MW2**2*S**4 - 2*MW2**5*T + 20*MW2**4*S*T - \ \"\>"}, { "\<\" & 36*MW2**3*S**2*T + 20*MW2**2*S**3*T - 2*MW2*S**4*T \ - \"\>"}, { "\<\" & 6*MW2**3*S*T**2 + 6*MW2**2*S**2*T**2 - \ 6*MW2*S**3*T**2 + \"\>"}, {"\<\" & 4*MW2*S**2*T**3 - S**2*T**4\"\>"}, {"\<\" F(20) = -F(12)/(2D0*F(13)*F(14)) - \"\>"}, {"\<\" & (S**2*T**2*F(10)*F(15))/(2D0*F(14)**3) + \"\>"}, {"\<\" & (S**3*T**2*F(11)*F(15))/(2D0*F(14)**3) + \"\>"}, {"\<\" & (S**2*T*F(9)*F(15)**2)/F(14)**3 - \"\>"}, { "\<\" & (F(5)*F(16))/(2D0*F(13)**2*F(14)**2*F(15)) + \ \"\>"}, {"\<\" & (S*F(6)*F(17))/(2D0*F(14)**2*F(15)) + \"\>"}, { "\<\" & (F(7)*F(12)*F(18))/(2D0*F(13)**2*F(14)**2) - \ \"\>"}, {"\<\" & (F(8)*F(12)*F(19))/(2D0*F(13)**2*F(14)**3)\"\>"}, {"\<\" d122res = F(20)\"\>"}, {"\<\" \"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {" F(1) = F(1)", " F(2) = F(2)", " F(3) = y + z", " F(4) = b + c*F(3)", " F(5) = B0(MW2,ME2,0D0)", " F(6) = B0(S,0D0,0D0)", " F(7) = B0(T,ME2,ME2)", " F(8) = C0(MW2,MW2,T,ME2,0D0,ME2)", " F(9) = C0(MW2,S,ME2,ME2,0D0,0D0)", " F(10) = C0(T,ME2,ME2,ME2,ME2,0D0)", " F(11) = D0(MW2,MW2,ME2,ME2,T,S,ME2,0D0,ME2,0D0)", " F(12) = MW2 + S", " F(13) = 4*MW2 - T", " F(14) = MW2**2 - S*U", " F(15) = MW2 - S", " F(16) = 4*MW2**5 - 5*MW2**4*S - 16*MW2**3*S**2 + \ 4*MW2**2*S**3 + ", " & 4*MW2*S**4 - MW2**4*U - 4*MW2**2*S**2*U + 8*MW2*S**3*U + ", " & 4*MW2**2*S*U**2 + S**3*U**2 + S**2*U**3", " F(17) = MW2**2 - 4*MW2*S + 2*S**2 + S*U", " F(18) = 4*MW2**3 - 9*MW2**2*S + 2*S**3 - MW2**2*U - \ 4*MW2*S*U + ", " & 5*S**2*U + 3*S*U**2", " F(19) = 2*MW2**6 - 8*MW2**5*S + 12*MW2**4*S**2 - \ 8*MW2**3*S**3 + ", " & 2*MW2**2*S**4 - 2*MW2**5*T + 20*MW2**4*S*T - ", " & 36*MW2**3*S**2*T + 20*MW2**2*S**3*T - 2*MW2*S**4*T - ", " & 6*MW2**3*S*T**2 + 6*MW2**2*S**2*T**2 - 6*MW2*S**3*T**2 + ", " & 4*MW2*S**2*T**3 - S**2*T**4", " F(20) = -F(12)/(2D0*F(13)*F(14)) - ", " & (S**2*T**2*F(10)*F(15))/(2D0*F(14)**3) + ", " & (S**3*T**2*F(11)*F(15))/(2D0*F(14)**3) + ", " & (S**2*T*F(9)*F(15)**2)/F(14)**3 - ", " & (F(5)*F(16))/(2D0*F(13)**2*F(14)**2*F(15)) + ", " & (S*F(6)*F(17))/(2D0*F(14)**2*F(15)) + ", " & (F(7)*F(12)*F(18))/(2D0*F(13)**2*F(14)**2) - ", " & (F(8)*F(12)*F(19))/(2D0*F(13)**2*F(14)**3)", " d122res = F(20)", " "}]], TraditionalForm]], "Output"] }, Open ]], Cell["DeleteFile/@FileNames[\"fctd122.for\"];", "Input", FormatType->InputForm] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["PlusDistribution", "Section", CellTags->"PlusDistribution"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ PlusDistribution[1/(1-x)] denotes a distribution (in the sense of \ the \"+\" prescription).\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Integrate2", ButtonData:>"Integrate2", ButtonStyle->"Hyperlink", ButtonNote->"Integrate2"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PlusDistribution", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PlusDistribution", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"1", "-", "x"}]], ")"}], "+"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"PlusDistribution", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"PlusDistribution", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"PlusDistribution", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}], "^", "2"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PlusDistribution", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"x", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"log", "(", "x", ")"}], RowBox[{"1", "-", "x"}]], "+", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"1", "-", "x"}]], ")"}], "+"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Polarization", "Section", CellTags->"Polarization"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Polarization[k] = Polarization[k, I] is the head of a polarization \ momentum with (incoming) momentum k. A slashed polarization vector (e1(k) \ slash) has to be entered as DiracSlash[Polarization[k]]. The internal representation for \ a polarization vector e1 corresponding to a boson with four momentum k is: Momentum[ Polarization[ k, I ] ]. With this notation transversality of polarization vectors is provided, i.e. , \ Pair[ Momentum[k], Momentum[ Polarization[k, I] ] ] yields 0. Polarization[k,-I] denotes the complex conjugate polarization. Polarization is also an option of various functions related to the operator \ product expansion. The setting 0 denotes the unpolarized and 1 the polarized case.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["PolarizationVector", ButtonData:>"PolarizationVector", ButtonStyle->"Hyperlink", ButtonNote->"PolarizationVector"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Polarization", "[", "k", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[CurlyEpsilon]", "(", "k", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Polarization", "[", "k", "]"}], "//", "InputForm"}]], "Input"], Cell["Polarization[k, I]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Polarization", "[", "k", "]"}], "//", "ComplexConjugate"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ InterpretationBox[ SuperscriptBox["\<\"\[CurlyEpsilon]\"\>", "\<\"*\"\>"], Superscript[ "\[CurlyEpsilon]", "*"], Editable->False], "TraditionalForm"], "(", "k", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Polarization", "[", "k", "]"}], "//", "ComplexConjugate"}], "//", "InputForm"}]], "Input"], Cell["Polarization[k, -I]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSlash", "[", RowBox[{"Polarization", "[", "k", "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox[ RowBox[{"\[CurlyEpsilon]", "(", "k", ")"}], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracSlash", "[", RowBox[{"Polarization", "[", "k", "]"}], "]"}], "//", "InputForm"}]], "Input"], Cell["DiracGamma[Momentum[Polarization[k, I]]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pair", "[", " ", RowBox[{ RowBox[{"Momentum", "[", "k", "]"}], ",", " ", RowBox[{"Momentum", "[", " ", RowBox[{"Polarization", "[", RowBox[{"k", ",", " ", "I"}], "]"}], " ", "]"}]}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["PolarizationSum", "Section", CellTags->"PolarizationSum"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ PolarizationSum[ mu,nu, ... ] defines (as abbreviations) several \ polarization sums. The first two arguments are the interpreted as Lorentz \ indices, all further ones are momenta. PolarizationSum performs no \ calculations.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "PolarizationSum", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Dimension", "\[Rule]", "4"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["Polarization", ButtonData:>"Polarization", ButtonStyle->"Hyperlink", ButtonNote->"Polarization"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolarizationSum", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolarizationSum", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "k"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], SuperscriptBox[ FormBox["k", "TraditionalForm"], "2"]], "-", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolarizationSum", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "k", ",", "n"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "-", FractionBox[ RowBox[{ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["n", "TraditionalForm"], "2"]}], SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["n", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]], "+", FractionBox[ RowBox[{ SuperscriptBox[ FormBox["n", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["n", "TraditionalForm"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["n", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["n", "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolarizationSum", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "k", ",", RowBox[{ SubscriptBox["p", "1"], "-", SubscriptBox["p", "2"]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], "-", FractionBox[ RowBox[{ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "-", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "-", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "-", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ SubscriptBox["p", "1"], "-", SubscriptBox["p", "2"]}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], ")"}], " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "-", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ SubscriptBox["p", "1"], "-", SubscriptBox["p", "2"]}], "TraditionalForm"], ")"}], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], ")"}]}], RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "-", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["PolarizationVector", "Section", CellTags->"PolarizationVector"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["PolarizationVector[p, mu] gives a polarization vector.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Pair", ButtonData:>"Pair", ButtonStyle->"Hyperlink", ButtonNote->"Pair"], ", ", ButtonBox["Polarization", ButtonData:>"Polarization", ButtonStyle->"Hyperlink", ButtonNote->"Polarization"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolarizationVector", "[", RowBox[{"k", ",", "\[Mu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CurlyEpsilon]", "\[Mu]"], "(", "k", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Conjugate", "[", RowBox[{"PolarizationVector", "[", RowBox[{"k", ",", "\[Mu]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[CurlyEpsilon]", "\[Mu]", "*"], "(", "k", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PolarizationVector", "[", RowBox[{"k", ",", "mu"}], "]"}], "//", "InputForm"}]], "Input"], Cell["Pair[LorentzIndex[mu], Momentum[Polarization[k, I]]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", " ", "=", " ", RowBox[{ RowBox[{"PolarizationVector", "[", RowBox[{"k", ",", "\[Mu]"}], "]"}], " ", RowBox[{"FourVector", "[", RowBox[{"k", ",", "\[Mu]"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[CurlyEpsilon]", "\[Mu]"], "(", "k", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "a1", "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", " ", "=", " ", RowBox[{ RowBox[{"PolarizationVector", "[", RowBox[{ RowBox[{"k", "-", "p"}], ",", "\[Mu]"}], "]"}], " ", RowBox[{"FourVector", "[", RowBox[{"k", ",", "\[Mu]"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[CurlyEpsilon]", "\[Mu]"], "(", FormBox[ RowBox[{"k", "-", "p"}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "a2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"\[CurlyEpsilon]", "(", FormBox[ RowBox[{"k", "-", "p"}], "TraditionalForm"], ")"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a3", " ", "=", " ", RowBox[{ RowBox[{"PolarizationVector", "[", RowBox[{ RowBox[{"k", "-", "p"}], ",", "\[Mu]"}], "]"}], " ", RowBox[{"FourVector", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ SubscriptBox["\[CurlyEpsilon]", "\[Mu]"], "(", FormBox[ RowBox[{"k", "-", "p"}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", "a3", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"\[CurlyEpsilon]", "(", FormBox[ RowBox[{"k", "-", "p"}], "TraditionalForm"], ")"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["PowerSimplify", "Section", CellTags->"PowerSimplify"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ PowerSimplify[exp] simplifies (-x)^a to (-1)^a x^a and (y-x)^n to \ (-1)^n (x-y)^n; thus assuming that the exponent is an integer (even if it is \ symbolic). Furthermore (-1)^(a+n) and I^(a+n) are expanded and (I)^(2 m) -> (-1)^m and (-1)^(n_Integer?EvenQ m) -> 1 and (-1)^(n_Integer?OddQ m) -> \ (-1)^m and (-1)^(-n) -> (-1)^n and Exp[I m Pi] -> (-1)^m.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DataType", ButtonData:>"DataType", ButtonStyle->"Hyperlink", ButtonNote->"DataType"], ", ", "OPEm", "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PowerSimplify", "[", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"2", "OPEm"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PowerSimplify", "[", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"OPEm", "+", "2"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PowerSimplify", "[", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"OPEm", "-", "2"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PowerSimplify", "[", RowBox[{"I", "^", RowBox[{"(", RowBox[{"2", "OPEm"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["PropagatorDenominatorExplicit", "Section", CellTags->"PropagatorDenominatorExplicit"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ PropagatorDenominatorExplicit[exp] changes each occurence of \ PropagatorDenominator[a,b] in exp into 1/(ScalarProduct[a,a]-b^2) and \ replaces FeynAmpDenominator by Identity.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynAmpDenominator", ButtonData:>"FeynAmpDenominator", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmpDenominator"], ", ", ButtonBox["PropagatorDenominator", ButtonData:>"PropagatorDenominator", ButtonStyle->"Hyperlink", ButtonNote->"PropagatorDenominator"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FAD", "[", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"q", "-", "p"}], ",", "0"}], "}"}]}], "]"}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PropagatorDenominatorExplicit", "[", "%", "]"}], "//", "FCE"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], "TraditionalForm"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], "-", RowBox[{"2", " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"]}], "+", FormBox[ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], "TraditionalForm"]}], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["1/((-m^2 + SPD[q, q])*(SPD[p, p] - 2*SPD[p, q] + SPD[q, q]))", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["PropagatorDenominator", "Section", CellTags->"PropagatorDenominator"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "PropagatorDenominator[q, m] is a factor of the denominator of a \ propagator. If p is supposed to be D-dimensional enter: \n\ PropagatorDenominator[Momentum[q, D], m]. \nWhat is meant is ", Cell[BoxData[ FormBox[ RowBox[{" ", "1", "/", RowBox[{"(", RowBox[{"q", "^", "2"}]}]}], TraditionalForm]]], " - ", Cell[BoxData[ FormBox[ RowBox[{"m", "^", "2"}], TraditionalForm]]], "). PropagatorDenominator[p] evaluates to PropagatorDenominator[p, 0]. " }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynAmpDenominator", ButtonData:>"FeynAmpDenominator", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmpDenominator"], ", ", ButtonBox["PropagatorDenominatorExplicit", ButtonData:>"PropagatorDenominatorExplicit", ButtonStyle->"Hyperlink", ButtonNote->"PropagatorDenominatorExplicit"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"PropagatorDenominator", "[", RowBox[{"p", ",", "m"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ SuperscriptBox["p", "2"], "-", SuperscriptBox["m", "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PropagatorDenominator", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"t1", "=", RowBox[{"PropagatorDenominator", "[", RowBox[{"q", ",", "m"}], "]"}]}], " "}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["m", "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"FCI", "[", "t1", "]"}], "]"}]], "Input"], Cell["PropagatorDenominator[Momentum[q, D], m]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"ChangeDimension", "[", RowBox[{"t1", ",", "D"}], "]"}], "]"}]], "Input"], Cell["PropagatorDenominator[Momentum[q, D], m]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PropagatorDenominatorExplicit", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], "-", SuperscriptBox["m", "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input"], Cell["(-m^2 + Pair[Momentum[q], Momentum[q]])^(-1)", "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "t1", "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["QuantumField", "Section", CellTags->"QuantumField"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ QuantumField is the head of quantized fields and their derivatives. QuantumField[par, ftype, {lorind}, {sunind}] denotes a quantum field of type ftype with (possible) Lorentz-indices lorind and SU(N)-indices sunind. The \ optional first argument par denotes a partial derivative acting on the field.\ \ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynRule", ButtonData:>"FeynRule", ButtonStyle->"Hyperlink", ButtonNote->"FeynRule"], ", ", ButtonBox["PartialD", ButtonData:>"PartialD", ButtonStyle->"Hyperlink", ButtonNote->"PartialD"], ", ", ButtonBox["ExpandPartialD", ButtonData:>"ExpandPartialD", ButtonStyle->"Hyperlink", ButtonNote->"ExpandPartialD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["This denotes a scalar field.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", "S", "]"}]], "Input"], Cell[BoxData[ FormBox["S", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", "AntiQuarkField", "]"}]], "Input"], Cell[BoxData[ FormBox[ OverscriptBox["\[Psi]", "_"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", "QuarkField", "]"}]], "Input"], Cell[BoxData[ FormBox["\[Psi]", TraditionalForm]], "Output"] }, Open ]], Cell["This is a field with a Lorentz index.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", RowBox[{"B", ",", RowBox[{"{", "\[Mu]", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["B", "\[Mu]"], TraditionalForm]], "Output"] }, Open ]], Cell["Color indices should be put after the Lorentz ones.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", RowBox[{"GaugeField", ",", RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"{", "a", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox[ FormBox["A", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "QuantumField[GaugeField, LorentzIndex[\[Mu]], SUNIndex[a]]"], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ SubsuperscriptBox["A", "\[CapitalDelta]", "a"], TraditionalForm]]], " is a short form for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[CapitalDelta]", "^", "\[Mu]"}], " ", RowBox[{ SubsuperscriptBox["A", "\[Mu]", "a"], "."}]}], TraditionalForm]]], " " }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"{", "OPEDelta", "}"}], ",", RowBox[{"{", "a", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox["A", FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ The first list of indices is usually interpreted as type LorentzIndex, except \ for OPEDelta, which gets converted to type Momentum. \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"{", "OPEDelta", "}"}], ",", RowBox[{"{", "a", "}"}]}], "]"}], "//", "InputForm"}]], "Input"], Cell["QuantumField[A, Momentum[OPEDelta], SUNIndex[a]]", "Output"] }, Open ]], Cell["Derivatives of fields are denoted as follows.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", RowBox[{ RowBox[{"PartialD", "[", "\[Mu]", "]"}], ",", "A", ",", RowBox[{"{", "\[Mu]", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", RowBox[{ RowBox[{"PartialD", "[", "OPEDelta", "]"}], ",", "S"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[PartialD]", FormBox["\[CapitalDelta]", "TraditionalForm"]], SubsuperscriptBox["S", "\[Null]", "\[Null]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", RowBox[{ RowBox[{"PartialD", "[", "OPEDelta", "]"}], ",", "A", ",", RowBox[{"{", "OPEDelta", "}"}], ",", RowBox[{"{", "a", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["\[PartialD]", FormBox["\[CapitalDelta]", "TraditionalForm"]], "TraditionalForm"], SubsuperscriptBox["A", FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantumField", "[", RowBox[{ RowBox[{ RowBox[{"PartialD", "[", "OPEDelta", "]"}], "^", "OPEm"}], ",", "A", ",", RowBox[{"{", "OPEDelta", "}"}], ",", RowBox[{"{", "a", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ SubscriptBox["\[PartialD]", FormBox["\[CapitalDelta]", "TraditionalForm"]], "TraditionalForm"], ")"}], FormBox["m", "TraditionalForm"]], SubsuperscriptBox["A", FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"QuantumField", "[", RowBox[{"QuantumField", "[", "A", "]"}], "]"}], " ", "===", " ", RowBox[{"QuantumField", "[", "A", "]"}]}]], "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["QuarkField", "Section", CellTags->"QuarkField"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ QuarkField is the name of a fermionic field. QuarkField is just a \ name with no functional properties. Only typesetting rules are attached.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["AntiQuarkField", ButtonData:>"AntiQuarkField", ButtonStyle->"Hyperlink", ButtonNote->"AntiQuarkField"], ", ", ButtonBox["QuantumField", ButtonData:>"QuantumField", ButtonStyle->"Hyperlink", ButtonNote->"QuantumField"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData["QuarkField"], "Input"], Cell[BoxData[ FormBox["\[Psi]", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["QuarkGluonVertex", "Section", CellTags->"QuarkGluonVertex"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[ "QuarkGluonVertex[\[Mu], a] gives the Feynman rule for the quark-gluon \ vertex. "], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "QuarkGluonVertex", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CounterTerm", "\[Rule]", "False"}], ",", RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"\[CapitalKoppa]", "\[Rule]", "False"}], ",", RowBox[{"Polarization", "\[Rule]", "0"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["GluonVertex", ButtonData:>"GluonVertex", ButtonStyle->"Hyperlink", ButtonNote->"GluonVertex"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuarkGluonVertex", "[", RowBox[{"\[Mu]", ",", "a"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuarkGluonVertex", "[", RowBox[{"\[Mu]", ",", "a", ",", RowBox[{"CounterTerm", " ", "\[Rule]", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SubscriptBox["C", "F"], "-", FractionBox[ SubscriptBox["C", "A"], "2"]}], ")"}], " ", SubsuperscriptBox["g", "s", "3"], " ", SubscriptBox["S", "n"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}]}], TagBox["\[CurlyEpsilon]", TraditionalForm]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuarkGluonVertex", "[", RowBox[{"\[Mu]", ",", "a", ",", RowBox[{"CounterTerm", " ", "\[Rule]", "2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"3", " ", "\[ImaginaryI]", " ", SubscriptBox["C", "A"], " ", SubsuperscriptBox["g", "s", "3"], " ", SubscriptBox["S", "n"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}]}], TagBox["\[CurlyEpsilon]", TraditionalForm]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuarkGluonVertex", "[", RowBox[{"\[Mu]", ",", "a", ",", RowBox[{"CounterTerm", " ", "\[Rule]", "3"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SubscriptBox["C", "A"], "+", SubscriptBox["C", "F"]}], ")"}], " ", SubsuperscriptBox["g", "s", "3"], " ", SubscriptBox["S", "n"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}]}], TagBox["\[CurlyEpsilon]", TraditionalForm]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuarkGluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", "k", "}"}], ",", RowBox[{"OPE", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}]}], "+", RowBox[{ SubscriptBox["g", "s"], " ", "\[CapitalKoppa]", " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuarkGluonVertex", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", "k", "}"}], ",", RowBox[{"OPE", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["QuarkPropagator", "Section", CellTags->"QuarkPropagator"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ QuarkPropagator[p] is the massless quark propagator. QuarkPropagator[{p,m}] or gives the quark propagator with mass m.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "QuarkPropagator", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CounterTerm", "\[Rule]", "False"}], ",", RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Loop", "\[Rule]", "0"}], ",", RowBox[{"\[CapitalKoppa]", "\[Rule]", "False"}], ",", RowBox[{"Polarization", "\[Rule]", "0"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["GluonPropagator", ButtonData:>"GluonPropagator", ButtonStyle->"Hyperlink", ButtonNote->"GluonPropagator"], ", ", ButtonBox["QuarkGluonVertex", ButtonData:>"QuarkGluonVertex", ButtonStyle->"Hyperlink", ButtonNote->"QuarkGluonVertex"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuarkPropagator", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuarkPropagator", "[", RowBox[{"{", RowBox[{"p", ",", "m"}], "}"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"m", "+", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], ")"}]}], RowBox[{ SuperscriptBox["p", "2"], "-", SuperscriptBox["m", "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuarkPropagator", "[", RowBox[{"p", ",", "1", ",", "2"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], SuperscriptBox["p", "2"]], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["RightPartialD", "Section", CellTags->"RightPartialD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "RightPartialD[\[Mu]] denotes ", Cell[BoxData[ FormBox[ SubscriptBox["\[PartialD]", "\[Mu]"], TraditionalForm]]], ", acting to the right." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["ExpandPartialD", ButtonData:>"ExpandPartialD", ButtonStyle->"Hyperlink", ButtonNote->"ExpandPartialD"], ", ", ButtonBox["PartialD", ButtonData:>"PartialD", ButtonStyle->"Hyperlink", ButtonNote->"PartialD"], ", ", ButtonBox["LeftPartialD", ButtonData:>"LeftPartialD", ButtonStyle->"Hyperlink", ButtonNote->"LeftPartialD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RightPartialD", "[", "\[Mu]", "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RightPartialD", "[", "\[Mu]", "]"}], ".", RowBox[{"QuantumField", "[", RowBox[{"A", ",", RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["\[PartialD]", "\[RightArrow]"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["A", "\[Mu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandPartialD", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[PartialD]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], SubsuperscriptBox["A", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[Null]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "QuantumField[PartialD[LorentzIndex[\[Mu]]], A, \n LorentzIndex[\[Mu]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RightPartialD", "[", "\[Mu]", "]"}], "//", "InputForm"}]], "Input"], Cell[TextData["RightPartialD[LorentzIndex[\[Mu]]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["RussianTrick", "Section", CellTags->"RussianTrick"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ RussianTrick[exp, k, {q1,q2,p}] (=RussianTrick[exp,p,p,{q1,q2,p}]) \ does the integration by parts where p is the external momentum. RussianTrick[exp, k,l, {q1,q2,p}] (=RussianTrick[exp,k,l]) does integration \ by parts where l is the momentum to be differentiated.\ \>", "Text"], Cell["The result is an expression which is vanishing.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FourDivergence", ButtonData:>"FourDivergence", ButtonStyle->"Hyperlink", ButtonNote->"FourDivergence"], ", ", ButtonBox["FourLaplacian", ButtonData:>"FourLaplacian", ButtonStyle->"Hyperlink", ButtonNote->"FourLaplacian"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"RHI", "[", RowBox[{ RowBox[{"{", RowBox[{ "OPEm", ",", "0", ",", " ", "0", ",", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"1", "1", "1", "1", "1"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "//", "RHI2FC"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], ")"}], "m"], RowBox[{ SubsuperscriptBox["q", "1", "2"], " ", SubsuperscriptBox["q", "2", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", SubscriptBox["q", "2"]}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RussianTrick", "[", RowBox[{ RowBox[{"%", "//", "RHI2FC"}], ",", "q2"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], ")"}], "m"], RowBox[{ SubsuperscriptBox["q", "1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"]}]]}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], ")"}], "m"], RowBox[{ SubsuperscriptBox["q", "1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"4", "-", "D"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], ")"}], "m"]}], RowBox[{ SubsuperscriptBox["q", "1", "2"], " ", SubsuperscriptBox["q", "2", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], ")"}], "m"], RowBox[{ SubsuperscriptBox["q", "2", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], ")"}], "m"], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], RowBox[{ SubsuperscriptBox["q", "2", "2"], " ", SubsuperscriptBox["q", "1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FC2RHI", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"0", "1", "1", "1", "2"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], "TraditionalForm"], "-", FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"1", "0", "1", "1", "2"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], "TraditionalForm"], "-", FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"1", "0", "1", "2", "1"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], "TraditionalForm"], "+", RowBox[{ RowBox[{"(", RowBox[{"D", "-", "4"}], ")"}], " ", FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"1", "1", "1", "1", "1"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], "TraditionalForm"]}], "+", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], " ", FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"1", "1", "1", "2", "1"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve2", "[", RowBox[{"%", ",", "t"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"1", "1", "1", "1", "1"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], "TraditionalForm"], "\[Rule]", FractionBox[ RowBox[{ FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"0", "1", "1", "1", "2"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], "TraditionalForm"], "-", FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"1", "0", "1", "1", "2"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], "TraditionalForm"], "-", FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"1", "0", "1", "2", "1"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], "TraditionalForm"], "+", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], " ", FormBox[ SubsuperscriptBox[ StyleBox["T", FontFamily->"Times", FontWeight->"Bold"], StyleBox[ RowBox[{"1", "1", "1", "2", "1"}], FontColor->RGBColor[0, 0, 1]], RowBox[{ FormBox["m", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"], FormBox["0", "TraditionalForm"]}]], "TraditionalForm"]}]}], RowBox[{"4", "-", "D"}]]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "t", "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ScalarProduct", "Section", CellTags->"ScalarProduct"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "ScalarProduct[p, q] is the input for scalar product. ScalarProduct[p] is \ equivalent to ScalarProduct[p, p]. Expansion of sums of momenta in \ ScalarProduct is done with ExpandScalarProduct. Scalar product may be set, \ e.g., ScalarProduct[a, b] = ", Cell[BoxData[ FormBox[ RowBox[{"m", "^", "2"}], TraditionalForm]]], "; but a and b must not contain sums. Note that ScalarProduct[a, b] = ", Cell[BoxData[ FormBox[ RowBox[{"m", "^", "2"}], TraditionalForm]]], " actually sets also: Pair[Momentum[a, ___], Momentum[b, ___]] = ", Cell[BoxData[ FormBox[ RowBox[{"m", "^", "2"}], TraditionalForm]]], ". \nIt is encouraged to always set ScalarProduct's ", StyleBox["before", FontWeight->"Bold"], " any calculation. \nThis improves the performance of FeynCalc ." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Calc", ButtonData:>"Calc", ButtonStyle->"Hyperlink", ButtonNote->"Calc"], ", ", ButtonBox["ExpandScalarProduct", ButtonData:>"ExpandScalarProduct", ButtonStyle->"Hyperlink", ButtonNote->"ExpandScalarProduct"], ", ", ButtonBox["Pair", ButtonData:>"Pair", ButtonStyle->"Hyperlink", ButtonNote->"Pair"], ", ", ButtonBox["SP", ButtonData:>"SP", ButtonStyle->"Hyperlink", ButtonNote->"SP"], ", ", ButtonBox["SPD", ButtonData:>"SPD", ButtonStyle->"Hyperlink", ButtonNote->"SPD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ScalarProduct", "[", RowBox[{"p", ",", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ScalarProduct", "[", RowBox[{ RowBox[{"p", "+", "q"}], ",", RowBox[{"-", "q"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", "(", FormBox[ RowBox[{"p", "+", "q"}], "TraditionalForm"], ")"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ScalarProduct", "[", RowBox[{"p", ",", "p"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ScalarProduct", "[", "q", "]"}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ScalarProduct", "[", RowBox[{"p", ",", "q"}], "]"}], "//", "InputForm"}]], "Input"], Cell["Pair[Momentum[p], Momentum[q]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ScalarProduct", "[", RowBox[{"p", ",", "q", ",", RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], "//", "InputForm"}]], "Input"], Cell["Pair[Momentum[p, D], Momentum[q, D]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ScalarProduct", "[", RowBox[{ SubscriptBox["p", "1"], ",", SubscriptBox["p", "2"]}], "]"}], " ", "=", " ", RowBox[{"s", "/", "2"}]}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["s", "2"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandScalarProduct", "[", " ", RowBox[{"ScalarProduct", "[", RowBox[{ RowBox[{ SubscriptBox["p", "1"], "-", "q"}], ",", RowBox[{ SubscriptBox["p", "2"], "-", "k"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["s", "2"], "+", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "-", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "-", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", " ", RowBox[{"ScalarProduct", "[", RowBox[{ RowBox[{ SubscriptBox["p", "1"], "-", "q"}], ",", RowBox[{ SubscriptBox["p", "2"], "-", "k"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["s", "2"], "+", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "-", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "-", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ScalarProductCancel", "Section", CellTags->"ScalarProductCancel"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ ScalarProductCancel[exp, q1, q2, ...] cancels scalar products with \ propagators. ScalarProductCancel[exp] cancels simple cases.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData["SPC"], "Input"], Cell[BoxData[ FormBox["ScalarProductCancel", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SPC", "//", "Options"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"ChangeDimension", "\[Rule]", "D"}], ",", RowBox[{"Collecting", "\[Rule]", "True"}], ",", RowBox[{"FeynAmpDenominatorSimplify", "\[Rule]", "False"}], ",", RowBox[{"FeynAmpDenominatorCombine", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "SPC"}]], "Input"], Cell[BoxData[ FormBox[ "\<\"SPC is an abbreviation for ScalarProductCancel.\"\>", TraditionalForm]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "See also: ", " ", ButtonBox["FeynAmpDenominatorSimplify", ButtonData:>"FeynAmpDenominatorSimplify", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmpDenominatorSimplify"], "." }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"SPD", "[", RowBox[{"q", ",", "p"}], "]"}], " ", RowBox[{"FAD", "[", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"q", "-", "p"}], ",", "0"}], "}"}]}], "]"}]}], "//", "FCI"}]}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ScalarProductCancel", "[", RowBox[{"t1", ",", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["m", "2"]}], ")"}]}]]}], "+", FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ FractionBox[ SuperscriptBox["m", "2"], "2"], "+", FractionBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "2"]}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FeynAmpDenominatorSimplify", "[", RowBox[{"%", ",", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ FractionBox[ SuperscriptBox["m", "2"], "2"], "+", FractionBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "2"]}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], "-", FractionBox["1", RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["m", "2"]}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SPC", "[", RowBox[{"t1", ",", "q", ",", RowBox[{"FDS", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ FractionBox[ SuperscriptBox["m", "2"], "2"], "+", FractionBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "2"]}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"]}]], "-", FractionBox["1", RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], "-", SuperscriptBox["m", "2"]}], ")"}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"SPD", "[", RowBox[{"q2", ",", "p"}], "]"}], RowBox[{"SPD", "[", RowBox[{"q1", ",", "p"}], "]"}], " ", RowBox[{"FAD", "[", RowBox[{ RowBox[{"{", RowBox[{"q1", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"q2", ",", "m"}], "}"}], ",", RowBox[{"q1", "-", "p"}], ",", RowBox[{"q2", "-", "p"}], ",", RowBox[{"q2", "-", "q1"}]}], "]"}]}], "//", "FCI"}]}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}]}], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "1", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "2", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SPC", "[", RowBox[{"t2", ",", "q1", ",", "q2", ",", RowBox[{"FDS", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "1", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "2", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"]}], ")"}]}]], "-", FractionBox["1", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "1", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["m", "2"], "2"]}], "-", FractionBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "2"]}], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "1", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "2", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ FractionBox[ SuperscriptBox["m", "2"], "2"], "+", FractionBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "2"]}], RowBox[{ SubsuperscriptBox["q", "1", "2"], " ", SubsuperscriptBox["q", "2", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ FractionBox[ SuperscriptBox["m", "4"], "4"], "+", FractionBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], " ", SuperscriptBox["m", "2"]}], "2"], "+", FractionBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "4"], "4"]}], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "1", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "2", "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", SubscriptBox["q", "1"]}], ")"}], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"t1", ",", "t2"}], "]"}], ";"}]], "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SD", "Section", CellTags->"SD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ SD[i, j] is the (FeynCalc-external) Kronecker-delta for SU(N) with \ color indices i and j. SD[i,j] is transformed into SUNDelta[SUNIndex[i],SUNIndex[j]] by FeynCalcInternal.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["SUNDelta", ButtonData:>"SUNDelta", ButtonStyle->"Hyperlink", ButtonNote->"SUNDelta"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SD", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["\[Delta]", RowBox[{"a", "b"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"%", "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["SUNDelta[SUNIndex[a], SUNIndex[b]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"%", "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["SD[a, b]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SelectFree", "Section", CellTags->"SelectFree"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ SelectFree[expr, a, b, ...] is equivalent to Select[expr, FreeQ2[#, \ {a,b, ...}]&], except the special cases: SelectFree[a, b] returns a and \ SelectFree[a,a] returns 1 (where a is not a product or a sum).\ \>", "Text"], Cell["SelectFree is equivalent to Select1.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FreeQ2", ButtonData:>"FreeQ2", ButtonStyle->"Hyperlink", ButtonNote->"FreeQ2"], ", ", ButtonBox["SelectNotFree", ButtonData:>"SelectNotFree", ButtonStyle->"Hyperlink", ButtonNote->"SelectNotFree"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectFree", "[", RowBox[{ RowBox[{"a", "+", "b", "+", RowBox[{"f", "[", "a", "]"}], "+", "d"}], ",", "a"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"b", "+", "d"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectFree", "[", RowBox[{ RowBox[{"x", " ", "y"}], ",", " ", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox["y", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectFree", "[", RowBox[{ RowBox[{"2", " ", "x", " ", "y", " ", "z", " ", RowBox[{"f", "[", "x", "]"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"2", " ", "z"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectFree", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox["a", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectFree", "[", RowBox[{"a", ",", "a"}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectFree", "[", RowBox[{"1", ",", "c"}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectFree", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SelectNotFree", "Section", CellTags->"SelectNotFree"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ SelectNotFree[expr, x] returns that part of expr which is not free \ of any occurance of x.\ \>", "Text"], Cell["\<\ SelectNotFree[expr, a, b, ...] is equivalent to Select[expr, \ !FreeQ2[#, {a, b, ...}]&], except the special cases: SelectNotFree[a, b] \ returns 1 and SelectNotFree[a, a] returns a (where a is not a product or a \ sum).\ \>", "Text"], Cell["SelectNotFree is equivalent to Select2.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["FreeQ2", ButtonData:>"FreeQ2", ButtonStyle->"Hyperlink", ButtonNote->"FreeQ2"], ", ", ButtonBox["SelectFree", ButtonData:>"SelectFree", ButtonStyle->"Hyperlink", ButtonNote->"SelectFree"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectNotFree", "[", RowBox[{ RowBox[{"a", "+", "b", "+", RowBox[{"f", "[", "a", "]"}]}], ",", "a"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"a", "+", RowBox[{"f", "(", "a", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectNotFree", "[", RowBox[{ RowBox[{"2", " ", "x", " ", "y", " ", RowBox[{"f", "[", "x", "]"}], " ", "z"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"x", " ", "y", " ", RowBox[{"f", "(", "x", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectNotFree", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectNotFree", "[", RowBox[{ RowBox[{"a", "+", "x"}], ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectNotFree", "[", RowBox[{"a", ",", "a"}], "]"}]], "Input"], Cell[BoxData[ FormBox["a", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectNotFree", "[", RowBox[{"1", ",", "c"}], "]"}]], "Input"], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectNotFree", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"f", "(", "x", ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Series2", "Section", CellTags->"Series2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Series2 performs a series expansion around 0. Series2 is (up to the Gamma - \ bug) equivalent to Series, except that it applies Normal on the result and \ has an option FinalSubstitutions. Series2[f, e, n] is equivalent to \ Series2[f, {e, 0, n}].\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Series2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Collecting", "\[Rule]", "False"}], ",", RowBox[{"Factoring", "\[Rule]", "True"}], ",", RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", RowBox[{ TagBox["\[Gamma]", EulerGamma], "\[Rule]", "0"}], "}"}]}], ",", RowBox[{"Print", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series2", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ")"}], "^", RowBox[{"(", RowBox[{"\[Delta]", "/", "2"}], ")"}]}], ",", "\[Delta]", ",", "1"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[Delta]", " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series2", "[", RowBox[{ RowBox[{"Gamma", "[", "x", "]"}], ",", "x", ",", "1"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "x"}], "12"], "+", FractionBox["1", "x"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series", "[", RowBox[{ RowBox[{"Gamma", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ FractionBox["1", "x"], "+", InterpretationBox[ RowBox[{"O", "(", SuperscriptBox["x", "0"], ")"}], SeriesData[ x, 0, {}, -1, 0, 1]]}], SeriesData[ x, 0, {1}, -1, 0, 1]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series2", "[", RowBox[{ RowBox[{"Gamma", "[", "x", "]"}], ",", "x", ",", "2"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]], " ", SuperscriptBox["x", "2"]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "x"}], "12"], "+", FractionBox["1", "x"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Series2", "[", RowBox[{ RowBox[{"Gamma", "[", "x", "]"}], ",", "x", ",", "2", ",", RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", "}"}]}]}], "]"}], "//", "FullSimplify"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ TagBox["\[Gamma]", EulerGamma], "3"]}], "+", RowBox[{ TagBox["\[Gamma]", EulerGamma], " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"4", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], " ", SuperscriptBox["x", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ TagBox["\[Gamma]", EulerGamma], "2"]}], "+", SuperscriptBox["\[Pi]", "2"]}], ")"}], " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"12", " ", TagBox["\[Gamma]", EulerGamma], " ", "x"}], "+", "12"}], RowBox[{"12", " ", "x"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Series", "[", RowBox[{ RowBox[{"Gamma", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}], "//", "Normal"}], "//", "FullSimplify"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ TagBox["\[Gamma]", EulerGamma], "3"]}], "+", RowBox[{ TagBox["\[Gamma]", EulerGamma], " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"4", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], " ", SuperscriptBox["x", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ TagBox["\[Gamma]", EulerGamma], "2"]}], "+", SuperscriptBox["\[Pi]", "2"]}], ")"}], " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"12", " ", TagBox["\[Gamma]", EulerGamma], " ", "x"}], "+", "12"}], RowBox[{"12", " ", "x"}]], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ There is a table of expansions of special hypergeometric functions.\ \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series2", "[", RowBox[{ RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"OPEm", "-", "1"}], ",", RowBox[{ RowBox[{"Epsilon", "/", "2"}], "+", "OPEm"}]}], "}"}], ",", RowBox[{"{", RowBox[{"OPEm", ",", RowBox[{"OPEm", "+", "Epsilon"}]}], "}"}], ",", "1"}], "]"}], ",", "\t ", RowBox[{"{", RowBox[{"Epsilon", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", TagBox["\[CurlyEpsilon]", TraditionalForm], " ", RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "1", ")"}]], "(", "m", ")"}], " ", RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}]}], "+", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}]}], TagBox["\[CurlyEpsilon]", TraditionalForm]], "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"Series2", "[", RowBox[{ RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "OPEm", ",", " ", RowBox[{ RowBox[{"Epsilon", "/", "2"}], " ", "+", " ", "OPEm"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"1", " ", "+", " ", "OPEm"}], ",", " ", RowBox[{"Epsilon", " ", "+", " ", "OPEm"}]}], "}"}], ",", " ", " ", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"Epsilon", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "4"], " ", TagBox["\[CurlyEpsilon]", TraditionalForm], " ", "m", " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "0", ")"}]], "(", "m", ")"}], "2"]}], "+", FractionBox[ RowBox[{"2", " ", "m"}], TagBox["\[CurlyEpsilon]", TraditionalForm]], "+", RowBox[{ FractionBox["3", "4"], " ", TagBox["\[CurlyEpsilon]", TraditionalForm], " ", "m", " ", RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "1", ")"}]], "(", "m", ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", TagBox["\[CurlyEpsilon]", TraditionalForm], " ", "m", " ", RowBox[{ SubscriptBox["S", "11"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}]}], "+", RowBox[{ FractionBox["1", "24"], " ", TagBox["\[CurlyEpsilon]", TraditionalForm], " ", "m", " ", SuperscriptBox["\[Pi]", "2"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hypergeometric2F1", "[", RowBox[{"1", ",", " ", "Epsilon", ",", " ", RowBox[{"1", " ", "+", " ", RowBox[{"2", " ", "Epsilon"}]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["1", (Editable -> True)], ",", TagBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], (Editable -> True)]}], ";", TagBox[ RowBox[{ RowBox[{"2", " ", TagBox["\[CurlyEpsilon]", TraditionalForm]}], "+", "1"}], (Editable -> True)], ";", TagBox["x", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series2", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"Epsilon", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], " ", RowBox[{ SuperscriptBox["log", "3"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"log", "(", "x", ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{ FractionBox["1", "6"], " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{ SubscriptBox["Li", "3"], "(", "x", ")"}]}], "-", RowBox[{"2", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}]}], ")"}], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", FractionBox[ SuperscriptBox["\[Pi]", "2"], "6"]}], ")"}], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "2"]}], "-", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", TagBox["\[CurlyEpsilon]", TraditionalForm]}], "+", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "There are over 100 more special expansions of ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], TraditionalForm]]], " tabulated in Series2.m. The interested user can consult the source code \ (search for HYPERLIST)." }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SimplifyDeltaFunction", "Section", CellTags->"SimplifyDeltaFunction"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ SimplifyDeltaFunction[exp, x] simplifies f[x]*DeltaFunction[1-x] \ toLimit[f[x],x->1] DeltaFunction[1-x] and applies a list of transformation \ rules for DeltaFunctionPrime[1-x]*x^(OPEm-1)*f[x] where x^(OPEm-1) is \ suppressed in exp.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DeltaFunction", ButtonData:>"DeltaFunction", ButtonStyle->"Hyperlink", ButtonNote->"DeltaFunction"], ", ", ButtonBox["DeltaFunctionPrime", ButtonData:>"DeltaFunctionPrime", ButtonStyle->"Hyperlink", ButtonNote->"DeltaFunctionPrime"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x", "]"}], " ", RowBox[{"DeltaFunction", "[", RowBox[{"1", "-", "x"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"g", "(", "x", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyDeltaFunction", "[", " ", RowBox[{"%", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ UnderscriptBox["lim", RowBox[{"x", "\[Rule]", "1"}]], "\[ThinSpace]", RowBox[{"g", "(", "x", ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x", "]"}], RowBox[{"DeltaFunctionPrime", "[", RowBox[{"1", "-", "x"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["\[Delta]", "\[Prime]"], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"g", "(", "x", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyDeltaFunction", "[", " ", RowBox[{"%", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["\[Delta]", "\[Prime]"], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ UnderscriptBox["lim", RowBox[{"x", "\[Rule]", "1"}]], "\[ThinSpace]", RowBox[{"g", "(", "x", ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ UnderscriptBox["lim", RowBox[{"x", "\[Rule]", "1"}]], "\[ThinSpace]", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "(", "x", ")"}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", " ", RowBox[{"Log", "[", "x", "]"}], " ", RowBox[{"DeltaFunctionPrime", "[", RowBox[{"1", "-", "x"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"x", " ", RowBox[{ SuperscriptBox["\[Delta]", "\[Prime]"], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyDeltaFunction", "[", " ", RowBox[{"%", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"1", "-", "x"}]}], "]"}], " ", RowBox[{"DeltaFunctionPrime", "[", RowBox[{"1", "-", "x"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["\[Delta]", "\[Prime]"], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyDeltaFunction", "[", " ", RowBox[{"%", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Log", "[", "x", "]"}], RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"1", "-", "x"}]}], "]"}], " ", RowBox[{"DeltaFunctionPrime", "[", RowBox[{"1", "-", "x"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["\[Delta]", "\[Prime]"], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyDeltaFunction", "[", " ", RowBox[{"%", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"3", ",", RowBox[{"1", "-", "x"}]}], "]"}], " ", RowBox[{"DeltaFunctionPrime", "[", RowBox[{"1", "-", "x"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["\[Delta]", "\[Prime]"], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"1", "-", "x"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyDeltaFunction", "[", " ", RowBox[{"%", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SimplifyPolyLog", "Section", CellTags->"SimplifyPolyLog"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ SimplifyPolyLog[y] performs several simplifications assuming that \ the variables occuring in the Log and PolyLog functions are between 0 and 1. \ \ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Nielsen", ButtonData:>"Nielsen", ButtonStyle->"Hyperlink", ButtonNote->"Nielsen"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"sip", "[", "y_", "]"}], " ", ":=", " ", RowBox[{"y", " ", "==", " ", RowBox[{"SimplifyPolyLog", "[", "y", "]"}]}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"1", "/", "x"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Li", "2"], "(", FractionBox["1", "x"], ")"}], "==", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{"\[Zeta]", "(", "2", ")"}], "+", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"2", ",", "x"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Li", "2"], "(", "x", ")"}], "==", RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], "-", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"1", "-", RowBox[{"x", "^", "2"}]}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}], "==", RowBox[{ RowBox[{"-", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "-", RowBox[{"2", " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"x", "+", "1"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", "x"}], ")"}]}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"x", "^", "2"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Li", "2"], "(", SuperscriptBox["x", "2"], ")"}], "==", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "-", RowBox[{"2", " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", "x"}], ")"}]}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"-", RowBox[{"x", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", FractionBox["x", RowBox[{"1", "-", "x"}]]}], ")"}], "==", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{"\[Zeta]", "(", "2", ")"}], "+", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"x", "/", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Li", "2"], "(", FractionBox["x", RowBox[{"x", "-", "1"}]], ")"}], "==", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{"\[Zeta]", "(", "2", ")"}], "+", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"Nielsen", "[", RowBox[{"1", ",", "2", ",", RowBox[{"-", RowBox[{"x", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["S", RowBox[{ FormBox["1", "TraditionalForm"], FormBox["2", "TraditionalForm"]}]], "(", FormBox[ RowBox[{"-", FractionBox["x", RowBox[{"1", "-", "x"}]]}], "TraditionalForm"], ")"}], "==", RowBox[{ RowBox[{ SubscriptBox["S", RowBox[{ FormBox["1", "TraditionalForm"], FormBox["2", "TraditionalForm"]}]], "(", "x", ")"}], "-", RowBox[{ FractionBox["1", "6"], " ", RowBox[{ SuperscriptBox["log", "3"], "(", RowBox[{"1", "-", "x"}], ")"}]}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"3", ",", RowBox[{"-", RowBox[{"1", "/", "x"}]}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"-", FractionBox["1", "x"]}], ")"}], "==", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["log", "3"], "(", "x", ")"}], "6"], "+", RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"-", "x"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"3", ",", RowBox[{"1", "-", "x"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"3", ",", RowBox[{"x", "^", "2"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Li", "3"], "(", SuperscriptBox["x", "2"], ")"}], "==", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", RowBox[{"4", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", RowBox[{"4", " ", RowBox[{ SubscriptBox["S", RowBox[{ FormBox["1", "TraditionalForm"], FormBox["2", "TraditionalForm"]}]], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", RowBox[{"4", " ", RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"-", "x"}], ")"}]}], "+", RowBox[{"4", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"3", ",", RowBox[{"-", RowBox[{"x", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"-", FractionBox["x", RowBox[{"1", "-", "x"}]]}], ")"}], "==", RowBox[{ RowBox[{ FractionBox["1", "6"], " ", RowBox[{ SuperscriptBox["log", "3"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ SubscriptBox["S", RowBox[{ FormBox["1", "TraditionalForm"], FormBox["2", "TraditionalForm"]}]], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], "+", RowBox[{ RowBox[{"log", "(", "x", ")"}], " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"1", "-", "x"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"3", ",", RowBox[{"1", "-", RowBox[{"1", "/", "x"}]}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Li", "3"], "(", RowBox[{"1", "-", FractionBox["1", "x"]}], ")"}], "==", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["log", "3"], "(", "x", ")"}], "6"], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ SubscriptBox["S", RowBox[{ FormBox["1", "TraditionalForm"], FormBox["2", "TraditionalForm"]}]], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], "+", RowBox[{ SubscriptBox["S", RowBox[{ FormBox["1", "TraditionalForm"], FormBox["2", "TraditionalForm"]}]], "(", "x", ")"}], "-", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"PolyLog", "[", RowBox[{"4", ",", RowBox[{"-", RowBox[{"x", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"Log", "[", RowBox[{"a", "+", RowBox[{"b", "/", "c"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"log", "(", RowBox[{"a", "+", FractionBox["b", "c"]}], ")"}], "==", RowBox[{"log", "(", FractionBox[ RowBox[{"b", "+", RowBox[{"a", " ", "c"}]}], "c"], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sip", "[", RowBox[{"Log", "[", RowBox[{"1", "/", "x"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"log", "(", FractionBox["1", "x"], ")"}], "==", RowBox[{"-", RowBox[{"log", "(", "x", ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["sip[ArcTanh[x]]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["tanh", RowBox[{"-", "1"}]], "(", "x", ")"}], "==", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"log", "(", RowBox[{"-", FractionBox[ RowBox[{"x", "+", "1"}], RowBox[{"1", "-", "x"}]]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["sip[ArcSinh[x]]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["sinh", RowBox[{"-", "1"}]], "(", "x", ")"}], "==", RowBox[{"log", "(", RowBox[{"x", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["sip[ArcCosh[x]]", "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["cosh", RowBox[{"-", "1"}]], "(", "x", ")"}], "==", RowBox[{"log", "(", RowBox[{"x", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "1"}]]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "sip", "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SOD", "Section", CellTags->"SOD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ SOD[q] is a D-dimensional scalar product of OPEDelta with q. It is \ transformed into Pair[Momentum[q,D], Momentum[OPEDelta,D] by \ FeynCalcInternal.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["OPEDelta", ButtonData:>"OPEDelta", ButtonStyle->"Hyperlink", ButtonNote->"OPEDelta"], ", ", ButtonBox["Pair", ButtonData:>"Pair", ButtonStyle->"Hyperlink", ButtonNote->"Pair"], ", ", ButtonBox["ScalarProduct", ButtonData:>"ScalarProduct", ButtonStyle->"Hyperlink", ButtonNote->"ScalarProduct"], ", ", ButtonBox["SOD", ButtonData:>"SOD", ButtonStyle->"Hyperlink", ButtonNote->"SOD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SOD", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["p", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SOD", "[", RowBox[{"p", "-", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["\<\"(\"\>", "TraditionalForm"], FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], FormBox["\<\")\"\>", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SOD", "[", "p", "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["Pair[Momentum[OPEDelta, D], Momentum[p, D]]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solve2", "Section", CellTags->"Solve2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Solve2 is equivalent to Solve, except that it works only for \ linear equations (and returns just a list) and accepts the options \ Factoring and FinalSubstitutions. Solve2 uses the \"high school algorithm\" and factors intermediate \ results.Therefore it can be drastically more useful than Solve.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Solve2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Factoring", "\[Rule]", "Factor2"}], ",", RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", "}"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve2", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "==", RowBox[{"b", "-", RowBox[{"w", "/", "2"}]}]}], ",", RowBox[{ RowBox[{"y", "-", "d"}], "==", "p"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", "w"}], ")"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"d", "+", "p"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ If no equation sign is given the polynomials are supposed to be \ 0.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve2", "[", RowBox[{ RowBox[{"x", "+", "y"}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", "y"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve2", "[", RowBox[{ RowBox[{"x", "+", "y"}], ",", "x", ",", RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", RowBox[{"y", "\[Rule]", "h"}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", "h"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve2", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "==", RowBox[{"b", "-", RowBox[{"w", "/", "2"}]}]}], ",", RowBox[{ RowBox[{"y", "-", "d"}], "==", "p"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"Factoring", "\[Rule]", "Expand"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["b", "2"], "-", FractionBox["w", "4"]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"d", "+", "p"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "==", RowBox[{"b", "-", RowBox[{"w", "/", "2"}]}]}], ",", RowBox[{ RowBox[{"y", "-", "d"}], "==", "p"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", "w"}], ")"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"d", "+", "p"}]}]}], "}"}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SO", "Section", CellTags->"SO"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ SO[q] is a four-dimensional scalar product of OPEDelta with q. It is transformed into Pair[Momentum[q], Momentum[OPEDelta] by FCI.\ \>", "Text"], Cell[TextData[{ "See also: ", ButtonBox["FCI", ButtonData:>"FCI", ButtonStyle->"Hyperlink", ButtonNote->"FCI"], ", ", ButtonBox["OPEDelta", ButtonData:>"OPEDelta", ButtonStyle->"Hyperlink", ButtonNote->"OPEDelta"], ", ", ButtonBox["Pair", ButtonData:>"Pair", ButtonStyle->"Hyperlink", ButtonNote->"Pair"], ", ", ButtonBox["ScalarProduct", ButtonData:>"ScalarProduct", ButtonStyle->"Hyperlink", ButtonNote->"ScalarProduct"], ", ", ButtonBox["SOD", ButtonData:>"SOD", ButtonStyle->"Hyperlink", ButtonNote->"SOD"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SO", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["p", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SO", "[", RowBox[{"p", "-", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", "TraditionalForm"], FormBox["\<\"\[CenterDot]\"\>", "TraditionalForm"], FormBox["\<\"(\"\>", "TraditionalForm"], FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], FormBox["\<\")\"\>", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SO", "[", "p", "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["Pair[Momentum[OPEDelta], Momentum[p]]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SPD", "Section", CellTags->"SPD"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "SPD[a, b] denotes a D-dimensional scalar product. SPD[a, b] is transformed \ into ScalarProduct[a, b,Dimension\[Rule]D] by FeynCalcInternal. SPD[p] is \ the same as SPD[p,p] ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"=", RowBox[{"p", "^", "2"}]}]}], TraditionalForm]]], ")." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Calc", ButtonData:>"Calc", ButtonStyle->"Hyperlink", ButtonNote->"Calc"], ", ", ButtonBox["ExpandScalarProduct", ButtonData:>"ExpandScalarProduct", ButtonStyle->"Hyperlink", ButtonNote->"ExpandScalarProduct"], ", ", ButtonBox["ScalarProduct", ButtonData:>"ScalarProduct", ButtonStyle->"Hyperlink", ButtonNote->"ScalarProduct"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}], " ", "+", " ", RowBox[{"SPD", "[", "q", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], "+", FormBox[ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SPD", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", RowBox[{"q", "+", RowBox[{"2", "p"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")", "\[CenterDot]", "(", FormBox[ RowBox[{ RowBox[{"2", " ", "p"}], "+", "q"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", " ", RowBox[{"SPD", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", RowBox[{"q", "+", RowBox[{"2", "p"}]}]}], "]"}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "-", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "-", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandScalarProduct", "[", RowBox[{"SPD", "[", RowBox[{"p", "-", "q"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "-", RowBox[{"2", " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "+", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SPD", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SPD[a, b]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SPD", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["Pair[Momentum[a, D], Momentum[b, D]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SPD", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["SPD[a, b]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCE", "[", RowBox[{"ChangeDimension", "[", RowBox[{ RowBox[{"SP", "[", RowBox[{"p", ",", "q"}], "]"}], ",", " ", "D"}], "]"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SPD[p, q]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Spinor", "Section", CellTags->"Spinor"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "Spinor[p, m, optarg] is the head of Dirac spinors. \nWhich of the spinors \ u, v, ", Cell[BoxData[ FormBox[ OverscriptBox["u", "_"], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{",", " "}], TraditionalForm]]], "or ", Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["v", "_"], " "}], TraditionalForm]]], "is understood, depends on the sign of the momentum (p) argument and the \ relative position of DiracSlash[p]: Spinor[sign p, mass] is that spinor \ which yields: sign*mass*Spinor[p, mass] if the Dirac equation is applied (by \ DiracEquation or DiracSimplify)." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["SpinorU", ButtonData:>"SpinorU", ButtonStyle->"Hyperlink", ButtonNote->"SpinorU"], ", ", ButtonBox["SpinorV", ButtonData:>"SpinorV", ButtonStyle->"Hyperlink", ButtonNote->"SpinorV"], ", ", ButtonBox["SpinorUBar", ButtonData:>"SpinorUBar", ButtonStyle->"Hyperlink", ButtonNote->"SpinorUBar"], ", ", ButtonBox["SpinorVBar", ButtonData:>"SpinorVBar", ButtonStyle->"Hyperlink", ButtonNote->"SpinorVBar"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Spinor", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[CurlyPhi]", "(", FormBox["p", "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Spinor", "[", RowBox[{"p", ",", "m"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[CurlyPhi]", "(", FormBox["p", "TraditionalForm"], ",", "m", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", RowBox[{ RowBox[{"Spinor", "[", RowBox[{ RowBox[{"-", "p"}], ",", "m"}], "]"}], ".", RowBox[{"DiracSlash", "[", "p", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{"\[CurlyPhi]", "(", FormBox[ RowBox[{"-", "p"}], "TraditionalForm"], ",", "m", ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Spinor", "[", "p", "]"}], "//", "InputForm"}]], "Input"], Cell["Spinor[Momentum[p], 0, 1]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChangeDimension", "[", RowBox[{ RowBox[{"Spinor", "[", "p", "]"}], ",", "D"}], "]"}], "//", "InputForm"}]], "Input"], Cell["Spinor[Momentum[p], 0, 1]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Spinor", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "InputForm"}]], "Input"], Cell["Spinor[Momentum[p], m, 1]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Spinor", "[", RowBox[{"p", ",", RowBox[{"SmallVariable", "[", "m", "]"}]}], "]"}], "//", "InputForm"}]], "Input"], Cell["Spinor[Momentum[p], 0, 1]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SpinorUBar", "Section", CellTags->"SpinorUBar"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "SpinorUBar[p, m] denotes a ", Cell[BoxData[ FormBox[ OverscriptBox["u", "_"], TraditionalForm]]], " - spinor." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Spinor", ButtonData:>"Spinor", ButtonStyle->"Hyperlink", ButtonNote->"Spinor"], ", ", ButtonBox["SpinorU", ButtonData:>"SpinorU", ButtonStyle->"Hyperlink", ButtonNote->"SpinorU"], ", ", ButtonBox["SpinorV", ButtonData:>"SpinorV", ButtonStyle->"Hyperlink", ButtonNote->"SpinorV"], ", ", ButtonBox["SpinorVBar", ButtonData:>"SpinorVBar", ButtonStyle->"Hyperlink", ButtonNote->"SpinorVBar"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["One argument only assumes a massless spinor.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SpinorUBar", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ OverscriptBox["\<\"u\"\>", "_"], "TraditionalForm"], "(", "p", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SpinorUBar", "[", RowBox[{"p", ",", "m"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ OverscriptBox["\<\"u\"\>", "_"], "TraditionalForm"], "(", "p", ",", "m", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SpinorUBar", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SpinorUBar[p, m]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SpinorUBar", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["Spinor[Momentum[p], m, 1]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SpinorUBar", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["Spinor[Momentum[p], m, 1]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SpinorU", "Section", CellTags->"SpinorU"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["SpinorU[p, m, optarg] denotes a u-spinor.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Spinor", ButtonData:>"Spinor", ButtonStyle->"Hyperlink", ButtonNote->"Spinor"], ", ", ButtonBox["SpinorUBar", ButtonData:>"SpinorUBar", ButtonStyle->"Hyperlink", ButtonNote->"SpinorUBar"], ", ", ButtonBox["SpinorV", ButtonData:>"SpinorV", ButtonStyle->"Hyperlink", ButtonNote->"SpinorV"], ", ", ButtonBox["SpinorVBar", ButtonData:>"SpinorVBar", ButtonStyle->"Hyperlink", ButtonNote->"SpinorVBar"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SpinorU", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"u", "(", "p", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SpinorU", "[", RowBox[{"p", ",", "m"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"u", "(", "p", ",", "m", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SpinorU", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SpinorU[p, m]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SpinorU", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["Spinor[Momentum[p], m, 1]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SpinorU", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["Spinor[Momentum[p], m, 1]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SpinorVBar", "Section", CellTags->"SpinorVBar"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "SpinorVBar[p, m] denotes a ", Cell[BoxData[ FormBox[ OverscriptBox["v", "_"], TraditionalForm]]], "(p,m) - spinor." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Spinor", ButtonData:>"Spinor", ButtonStyle->"Hyperlink", ButtonNote->"Spinor"], ", ", ButtonBox["SpinorU", ButtonData:>"SpinorU", ButtonStyle->"Hyperlink", ButtonNote->"SpinorU"], ", ", ButtonBox["SpinorV", ButtonData:>"SpinorV", ButtonStyle->"Hyperlink", ButtonNote->"SpinorV"], ", ", ButtonBox["SpinorUBar", ButtonData:>"SpinorUBar", ButtonStyle->"Hyperlink", ButtonNote->"SpinorUBar"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SpinorVBar", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ OverscriptBox["\<\"v\"\>", "_"], "TraditionalForm"], "(", "p", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SpinorVBar", "[", RowBox[{"p", ",", "m"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ OverscriptBox["\<\"v\"\>", "_"], "TraditionalForm"], "(", "p", ",", "m", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SpinorVBar", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SpinorVBar[p, m]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SpinorVBar", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["Spinor[-Momentum[p], m, 1]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SpinorVBar", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["Spinor[-Momentum[p], m, 1]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SpinorV", "Section", CellTags->"SpinorV"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["SpinorV[p, m, optarg] denotes a v-spinor.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Spinor", ButtonData:>"Spinor", ButtonStyle->"Hyperlink", ButtonNote->"Spinor"], ", ", ButtonBox["SpinorUBar", ButtonData:>"SpinorUBar", ButtonStyle->"Hyperlink", ButtonNote->"SpinorUBar"], ", ", ButtonBox["SpinorU", ButtonData:>"SpinorU", ButtonStyle->"Hyperlink", ButtonNote->"SpinorU"], ", ", ButtonBox["SpinorVBar", ButtonData:>"SpinorVBar", ButtonStyle->"Hyperlink", ButtonNote->"SpinorVBar"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SpinorV", "[", "p", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"v", "(", "p", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SpinorV", "[", RowBox[{"p", ",", "m"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"v", "(", "p", ",", "m", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SpinorV", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SpinorV[p, m]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SpinorV", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["Spinor[-Momentum[p], m, 1]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SpinorV", "[", RowBox[{"p", ",", "m"}], "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["Spinor[-Momentum[p], m, 1]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SplittingFunction", "Section", CellTags->"SplittingFunction"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "SplittingFunction[pxy] is a database of splitting functions in the ", Cell[BoxData[ FormBox[ OverscriptBox["MS", "_"], TraditionalForm]]], " scheme." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "SplittingFunction", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Polarization", "\[Rule]", "1"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["AnomalousDimension", ButtonData:>"AnomalousDimension", ButtonStyle->"Hyperlink", ButtonNote->"AnomalousDimension"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell["Unpolarized case:", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"SplittingFunction", ",", RowBox[{"Polarization", "\[Rule]", "0"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "Pqq", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "x"}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", RowBox[{"8", " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "-", "4"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "Pqg", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{"16", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"16", " ", "x"}], "+", "8"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "Pgq", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "x"}], "-", "8", "+", FractionBox["8", "x"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "Pgg", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"8", " ", SubscriptBox["C", "A"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", "x", "+", RowBox[{ FractionBox["11", "12"], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"], "-", "2", "+", FractionBox["1", "x"]}], ")"}]}], "-", RowBox[{ FractionBox["8", "3"], " ", SubscriptBox["N", "f"], " ", SubscriptBox["T", "f"], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "aqq", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{"7", "-", RowBox[{"4", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}]}], ")"}], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "+", "2"}], ")"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"log", "(", "x", ")"}], RowBox[{"1", "-", "x"}]], "+", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"1", "-", "x"}]], ")"}], "+"]}], ")"}]}], "-", "4"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "agq", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x"}], "+", "4", "-", FractionBox["4", "x"]}], ")"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "+", "2", "-", FractionBox["4", "x"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "aqg", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"8", " ", "x"}], "-", "4"}], ")"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "-", "4"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"SplittingFunction", "[", "agg", "]"}]], "Input"], Cell["Polarized case:", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"SplittingFunction", ",", RowBox[{"Polarization", "\[Rule]", "1"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "Pqq", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "x"}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", RowBox[{"8", " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "-", "4"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "Pqg", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{"16", " ", "x"}], "-", "8"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "Pgq", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{"8", "-", RowBox[{"4", " ", "x"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "Pgg", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["C", "A"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "16"}], " ", "x"}], "+", RowBox[{ FractionBox["22", "3"], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", RowBox[{"8", " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "+", "8"}], ")"}]}], "-", RowBox[{ FractionBox["8", "3"], " ", SubscriptBox["N", "f"], " ", SubscriptBox["T", "f"], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "aqq", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"2", " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{"7", "-", RowBox[{"4", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}]}], ")"}], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "+", "2"}], ")"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "-", RowBox[{"4", " ", RowBox[{"log", "(", "x", ")"}], " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "-", RowBox[{"4", " ", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "-", "4"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "agq", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "-", "4"}], ")"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "+", "2"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "agqd", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "-", "4"}], ")"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "-", "2"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "aqg", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "x"}]}], ")"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "-", "4"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "aqgd", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "x"}]}], ")"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "-", "4"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "agg", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["C", "A"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["67", "9"], "-", RowBox[{"4", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}]}], ")"}], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"8", " ", "x"}], "-", "4"}], ")"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"log", "(", "x", ")"}], RowBox[{"1", "-", "x"}]], "+", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"1", "-", "x"}]], ")"}], "+"]}], ")"}]}], "+", "2"}], ")"}]}], "-", RowBox[{ FractionBox["20", "9"], " ", SubscriptBox["T", "f"], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "aggd", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["C", "A"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["67", "9"], "-", RowBox[{"4", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}]}], ")"}], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"8", " ", "x"}], "-", "4"}], ")"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], " ", "x"}], ")"}]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"log", "(", "x", ")"}], RowBox[{"1", "-", "x"}]], "+", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"1", "-", "x"}]], ")"}], "+"]}], ")"}]}], "+", "2"}], ")"}]}], "-", RowBox[{ FractionBox["20", "9"], " ", SubscriptBox["T", "f"], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "PQQS", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "F"], " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "16"}], " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"48", " ", "x"}], "-", "16"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "PQQNS", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "+", FractionBox["3", RowBox[{"1", "-", "x"}]]}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", FractionBox[ RowBox[{"16", " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], RowBox[{"1", "-", "x"}]], "-", RowBox[{"40", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", RowBox[{"48", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "+", "3"}], ")"}]}]}], ")"}], " ", SubsuperscriptBox["C", "F", "2"]}], "+", RowBox[{ SubscriptBox["N", "f"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"88", " ", "x"}], "9"], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"16", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "3"]}], "-", FractionBox["2", "3"]}], ")"}], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "-", FractionBox[ RowBox[{"8", " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]], "-", RowBox[{ FractionBox["80", "9"], " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "-", FractionBox["8", "9"]}], ")"}], " ", SubscriptBox["C", "F"]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ SubscriptBox["C", "F"], "-", FractionBox[ SubscriptBox["C", "A"], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}], "-", RowBox[{"4", " ", RowBox[{"log", "(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "-", RowBox[{"4", " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", "x"}], ")"}]}]}], ")"}]}], RowBox[{"x", "+", "1"}]]}], ")"}], " ", SubscriptBox["C", "F"]}], "+", RowBox[{ SubscriptBox["C", "A"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], RowBox[{"1", "-", "x"}]], "-", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", "x"}], "-", FractionBox["22", RowBox[{"1", "-", "x"}]], "+", "5"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ FractionBox["4", "9"], " ", RowBox[{"(", RowBox[{"53", "-", RowBox[{"187", " ", "x"}]}], ")"}]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["536", "9"], "-", RowBox[{"16", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}]}], ")"}], " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "+", RowBox[{ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"88", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "3"], "-", RowBox[{"24", " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "+", FractionBox["17", "3"]}], ")"}]}]}], ")"}], " ", SubscriptBox["C", "F"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "PQG", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", " ", SubscriptBox["C", "F"], " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"8", " ", "x"}], "-", "4"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"16", "-", RowBox[{"16", " ", "x"}]}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"16", " ", "x"}]}], ")"}], " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "x"}], "-", "2"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", RowBox[{"54", " ", "x"}], "-", RowBox[{"16", " ", "x", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", RowBox[{"8", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "-", RowBox[{"18", " ", RowBox[{"log", "(", "x", ")"}]}], "-", "44"}], ")"}]}], "+", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "x"}]}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"16", " ", "x"}], "-", "16"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", "x"}], "-", "4"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "-", RowBox[{"44", " ", "x"}], "-", RowBox[{"8", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"32", " ", "x"}], "+", "4"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "16"}], " ", "x"}], "-", "8"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"x", "+", "1"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "16"}], " ", "x"}], "-", "8"}], ")"}], " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", "x"}], ")"}]}], "+", "48"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "PGQ", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["C", "A"], " ", SubscriptBox["C", "F"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"16", "-", RowBox[{"8", " ", "x"}]}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"8", " ", "x"}], "3"], "+", FractionBox["80", "3"]}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"16", " ", "x"}], "-", "32"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"8", " ", "x"}], "+", "16"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", FractionBox[ RowBox[{"280", " ", "x"}], "9"], "+", RowBox[{"16", " ", "x", " ", RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"32", "-", RowBox[{"104", " ", "x"}]}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"16", " ", "x"}], "+", "32"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}], " ", RowBox[{"log", "(", RowBox[{"x", "+", "1"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"16", " ", "x"}], "+", "32"}], ")"}], " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", "x"}], ")"}]}], "+", FractionBox["328", "9"]}], ")"}]}], "+", RowBox[{ SubsuperscriptBox["C", "F", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"8", " ", "x"}], "-", "16"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", "x"}], "-", "16"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"4", " ", "x"}]}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", RowBox[{"32", " ", "x"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"32", " ", "x"}], "+", "64"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"36", " ", "x"}], "+", "48"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", "68"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["C", "F"], " ", SubscriptBox["T", "f"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"32", " ", "x"}], "9"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"32", " ", "x"}], "3"], "-", FractionBox["64", "3"]}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], "-", FractionBox["128", "9"]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SplittingFunction", "[", "PGG", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["8", RowBox[{"x", "+", "1"}]]}], "+", "32", "+", FractionBox["8", RowBox[{"1", "-", "x"}]]}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["232", "3"], "-", FractionBox[ RowBox[{"536", " ", "x"}], "3"]}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"64", " ", "x"}], "-", FractionBox["32", RowBox[{"1", "-", "x"}]], "-", "32"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"64", " ", "x"}], "+", FractionBox["32", RowBox[{"x", "+", "1"}]], "+", "32"}], ")"}], " ", RowBox[{"log", "(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", FractionBox[ RowBox[{"388", " ", "x"}], "9"], "+", RowBox[{ FractionBox["64", "3"], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", RowBox[{ RowBox[{"\[Zeta]", "(", "2", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"64", " ", "x"}], "-", RowBox[{"16", " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "+", FractionBox["16", RowBox[{"x", "+", "1"}]]}], ")"}]}], "+", RowBox[{ FractionBox["536", "9"], " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"64", " ", "x"}], "+", FractionBox["32", RowBox[{"x", "+", "1"}]], "+", "32"}], ")"}], " ", RowBox[{ SubscriptBox["Li", "2"], "(", RowBox[{"-", "x"}], ")"}]}], "+", RowBox[{"24", " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], " ", TagBox[ RowBox[{"\[Zeta]", "(", TagBox["3", (Editable -> True)], ")"}], InterpretTemplate[ Zeta[ #]&]]}], "-", FractionBox["148", "9"]}], ")"}], " ", SubsuperscriptBox["C", "A", "2"]}], "+", RowBox[{ SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"608", " ", "x"}], "9"], "-", RowBox[{ FractionBox["32", "3"], " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"32", " ", "x"}], "3"]}], "-", FractionBox["32", "3"]}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "-", RowBox[{ FractionBox["160", "9"], " ", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"]}], "-", FractionBox["448", "9"]}], ")"}], " ", SubscriptBox["C", "A"]}], "+", RowBox[{ SubscriptBox["C", "F"], " ", SubscriptBox["T", "f"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "16"}], " ", "x"}], "-", "16"}], ")"}], " ", RowBox[{ SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"16", " ", "x"}], "-", "80"}], ")"}], " ", RowBox[{"log", "(", "x", ")"}]}], "+", RowBox[{"80", " ", "x"}], "-", RowBox[{"8", " ", RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}]}], "-", "80"}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SP", "Section", CellTags->"SP"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "SP[a, b] denotes a four-dimensional scalar product. SP[a, b] is \ transformed into ScalarProduct[a, b] by FeynCalcInternal. SP[p] is the same \ as SP[p, p] ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"=", SuperscriptBox["p", "2"]}]}], TraditionalForm]]], ")." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Calc", ButtonData:>"Calc", ButtonStyle->"Hyperlink", ButtonNote->"Calc"], ", ", ButtonBox["ExpandScalarProduct", ButtonData:>"ExpandScalarProduct", ButtonStyle->"Hyperlink", ButtonNote->"ExpandScalarProduct"], ", ", ButtonBox["ScalarProduct", ButtonData:>"ScalarProduct", ButtonStyle->"Hyperlink", ButtonNote->"ScalarProduct"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SP", "[", RowBox[{"p", ",", "q"}], "]"}], " ", "+", " ", RowBox[{"SP", "[", "q", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], "+", FormBox[ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SP", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", RowBox[{"q", "+", RowBox[{"2", "p"}]}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"(", FormBox[ RowBox[{"p", "-", "q"}], "TraditionalForm"], ")", "\[CenterDot]", "(", FormBox[ RowBox[{ RowBox[{"2", " ", "p"}], "+", "q"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", " ", RowBox[{"SP", "[", RowBox[{ RowBox[{"p", "-", "q"}], ",", RowBox[{"q", "+", RowBox[{"2", "p"}]}]}], "]"}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "-", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "-", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpandScalarProduct", "[", RowBox[{"SP", "[", RowBox[{"p", "-", "q"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "-", RowBox[{"2", " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "+", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SP", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SP[a, b]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SP", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["Pair[Momentum[a], Momentum[b]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SP", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["SP[a, b]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SumP", "Section", CellTags->"SumP"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "SumP[k, m] is ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], RowBox[{ SubsuperscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"2", "m"}]], RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "i"}]}], ")"}], "/", SuperscriptBox["i", "k"]}]}]}], TraditionalForm]]] }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["SumS", ButtonData:>"SumS", ButtonStyle->"Hyperlink", ButtonNote->"SumS"], ", ", ButtonBox["SumT", ButtonData:>"SumT", ButtonStyle->"Hyperlink", ButtonNote->"SumT"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumP", "[", RowBox[{"1", ",", RowBox[{"m", "-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["S", "1", "'"], "\[NoBreak]", "(", "\[NoBreak]", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], "\[NoBreak]", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumP", "[", RowBox[{"2", ",", RowBox[{"m", "-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["S", "2", "'"], "\[NoBreak]", "(", "\[NoBreak]", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], "\[NoBreak]", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumP", "[", RowBox[{"1", ",", "m"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["S", "1", "'"], "\[NoBreak]", "(", "\[NoBreak]", FormBox["m", "TraditionalForm"], "\[NoBreak]", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumP", "[", RowBox[{"1", ",", "4"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["25", "12"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "8"], RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "i"}]}], ")"}], "/", "i"}]}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["25", "12"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Explicit", "[", RowBox[{"SumP", "[", RowBox[{"1", ",", RowBox[{"n", "/", "2"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], ")"}], " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ FractionBox[ RowBox[{"n", "-", "1"}], "2"], "TraditionalForm"], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], ")"}], " ", RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ FractionBox["n", "2"], "TraditionalForm"], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", RowBox[{"n", "\[Rule]", "8"}]}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["25", "12"], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SumS", "Section", CellTags->"SumS"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "SumS[1, m] is the harmonic number ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "m"], " ", RowBox[{"i", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"=", RowBox[{ SubscriptBox["S", "1"], "(", "m", ")"}]}], " ", ")"}], "."}], TraditionalForm]]], "\nSumS[1,1,m] is ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "m"], SubscriptBox["S", "1"]}], TraditionalForm]]], "(i)/i.\nSumS[k,l,m] is ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "m"], " ", RowBox[{ RowBox[{ SubscriptBox["S", "l"], "(", "i", ")"}], "/", SuperscriptBox["i", "k"]}]}], TraditionalForm]]], ". \nSumS[r, n] represents Sum[Sign[r]^i/i^Abs[r], {i, 1, n}]. \nSumS[r,s, \ n] is Sum[Sign[r]^k/k^Abs[r] Sign[s]^j/j^Abs[s], {k, 1, n}, {j, 1, k}], \ etc." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "SumS", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Reduce", "\[Rule]", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["SumP", ButtonData:>"SumP", ButtonStyle->"Hyperlink", ButtonNote->"SumP"], ", ", ButtonBox["SumT", ButtonData:>"SumT", ButtonStyle->"Hyperlink", ButtonNote->"SumT"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{"1", ",", RowBox[{"m", "-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{"2", ",", RowBox[{"m", "-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["S", "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{"1", ",", "m"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["S", "1"], "(", "m", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{"1", ",", "m", ",", RowBox[{"Reduce", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["S", "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], "+", FractionBox["1", "m"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{"3", ",", RowBox[{"m", "+", "2"}], ",", RowBox[{"Reduce", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["S", "3"], "(", FormBox[ RowBox[{"m", "+", "1"}], "TraditionalForm"], ")"}], "+", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "2"}], ")"}], "3"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"SumS", ",", RowBox[{"Reduce", "\[Rule]", "True"}]}], "]"}], ";"}], RowBox[{"SumS", "[", RowBox[{"3", ",", RowBox[{"m", "+", "2"}]}], "]"}]}], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["S", "3"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], "+", FractionBox["1", SuperscriptBox["m", "3"]], "+", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "3"]], "+", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "+", "2"}], ")"}], "3"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"SumS", ",", RowBox[{"Reduce", "\[Rule]", "False"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{"1", ",", "4"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["25", "12"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{"1", "/", "i"}]}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["25", "12"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{"1", ",", "2", ",", RowBox[{"m", "-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["S", "12"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{"1", ",", "1", ",", "1", ",", "11"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["31276937512951", "4260000729600"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{ RowBox[{"-", "1"}], ",", "4"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["7", "12"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumT", "[", RowBox[{"1", ",", "4"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["7", "12"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SumT", "Section", CellTags->"SumT"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "SumT[1, m] is the alternative harmonic number ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "m"], " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "i"}], "/", RowBox[{"i", " "}]}]}], TraditionalForm]]], "\nSumT[r, n] represents Sum[(-1)^i/i^r, {i,1,n}], \nSumT[r,s, n] is \ Sum[1/k^r (-1)^j/j^s, {k, 1, n}, {j, 1, k}]." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["SumP", ButtonData:>"SumP", ButtonStyle->"Hyperlink", ButtonNote->"SumP"], ", ", ButtonBox["SumS", ButtonData:>"SumS", ButtonStyle->"Hyperlink", ButtonNote->"SumS"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumT", "[", RowBox[{"1", ",", RowBox[{"m", "-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumT", "[", RowBox[{"2", ",", RowBox[{"m", "-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "2"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumT", "[", RowBox[{"1", ",", "m"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "1"], "(", "m", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumT", "[", RowBox[{"1", ",", "m", ",", RowBox[{"Reduce", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "1"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "m"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumT", "[", RowBox[{"1", ",", "4"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["7", "12"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "i"}], "/", "i"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["7", "12"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumT", "[", RowBox[{"1", ",", "2", ",", RowBox[{"m", "-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["S", "~"], "12"], "(", FormBox[ RowBox[{"m", "-", "1"}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumT", "[", RowBox[{"1", ",", "2", ",", "42"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["38987958697055013360489864298703621429610152138683927", "10512121660702378405316004964483761080879190528000000"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumT", "[", RowBox[{"1", ",", "4"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["7", "12"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{ RowBox[{"-", "1"}], ",", "4"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["7", "12"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"m", "-", "1"}]], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "i"}], "/", "i"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "0", ")"}]], "(", FractionBox["m", "2"], ")"}], "-", RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "0", ")"}]], "(", FractionBox[ RowBox[{"m", "+", "1"}], "2"], ")"}]}], ")"}]}], "-", FractionBox[ RowBox[{"log", "(", "4", ")"}], "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumT", "[", RowBox[{"1", ",", "2", ",", "12"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["57561743656913", "21300003648000"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SumS", "[", RowBox[{"1", ",", RowBox[{"-", "2"}], ",", "42"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["38987958697055013360489864298703621429610152138683927", "10512121660702378405316004964483761080879190528000000"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Array", "[", RowBox[{"SumT", ",", "6"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", FractionBox["5", "8"]}], ",", RowBox[{"-", FractionBox["179", "216"]}], ",", RowBox[{"-", FractionBox["1207", "1728"]}], ",", RowBox[{"-", FractionBox["170603", "216000"]}], ",", RowBox[{"-", FractionBox["155903", "216000"]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"SumS", "[", RowBox[{ RowBox[{"-", "2"}], ",", "1", ",", "#1"}], "]"}], "&"}], ",", "6"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", FractionBox["5", "8"]}], ",", RowBox[{"-", FractionBox["179", "216"]}], ",", RowBox[{"-", FractionBox["1207", "1728"]}], ",", RowBox[{"-", FractionBox["170603", "216000"]}], ",", RowBox[{"-", FractionBox["155903", "216000"]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SUNDelta", "Section", CellTags->"SUNDelta"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ SUNDelta[a, b] is the Kronecker-delta for SU(N) with color indices \ a and b.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["SD", ButtonData:>"SD", ButtonStyle->"Hyperlink", ButtonNote->"SD"], ", ", ButtonBox["SUNF", ButtonData:>"SUNF", ButtonStyle->"Hyperlink", ButtonNote->"SUNF"], ", ", ButtonBox["SUNSimplify", ButtonData:>"SUNSimplify", ButtonStyle->"Hyperlink", ButtonNote->"SUNSimplify"], ", ", ButtonBox["Trick", ButtonData:>"Trick", ButtonStyle->"Hyperlink", ButtonNote->"Trick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNDelta", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["\[Delta]", RowBox[{"a", "b"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Trick", "[", " ", RowBox[{ RowBox[{"SUNDelta", "[", RowBox[{"a", ",", "b"}], "]"}], " ", RowBox[{"SUNDelta", "[", RowBox[{"b", ",", "c"}], "]"}]}], " ", "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNDelta", "[", RowBox[{ RowBox[{"SUNIndex", "[", "a", "]"}], ",", RowBox[{"SUNIndex", "[", "b", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNDelta", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SUNDelta[a, b]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SUNDelta", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["SUNDelta[SUNIndex[a], SUNIndex[b]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SUNDelta", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["SD[a, b]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SD", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["SUNDelta[SUNIndex[a], SUNIndex[b]]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SUND", "Section", CellTags->"SUND"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "SUND[a,b,c] are the symmetric SU(N) ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["d", "abc"], "."}], TraditionalForm]]] }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["SUNDelta", ButtonData:>"SUNDelta", ButtonStyle->"Hyperlink", ButtonNote->"SUNDelta"], ", ", ButtonBox["SUNF", ButtonData:>"SUNF", ButtonStyle->"Hyperlink", ButtonNote->"SUNF"], ", ", ButtonBox["SUNSimplify", ButtonData:>"SUNSimplify", ButtonStyle->"Hyperlink", ButtonNote->"SUNSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["d", RowBox[{"a", "b", "c"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tt", "=", RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUND", "[", RowBox[{"c", ",", "a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["d", RowBox[{"a", "b", "c"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"4", "-", SubsuperscriptBox["C", "A", "2"]}], ")"}], " ", SubscriptBox["C", "F"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], ",", RowBox[{"SUNNToCACF", "->", "False"}]}], "]"}], "//", "Factor2"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["N", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"4", "-", SuperscriptBox["N", "2"]}], ")"}]}], "N"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUND", "[", RowBox[{"e", ",", "b", ",", "c"}], "]"}]}], ",", RowBox[{"SUNNToCACF", "->", "False"}]}], "]"}], "//", "Factor2"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"4", "-", SuperscriptBox["N", "2"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "N"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SUND[a, b, c]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["SUND[SUNIndex[a], SUNIndex[b], SUNIndex[c]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["SUND[a, b, c]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SUNF", "Section", CellTags->"SUNF"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ SUNF[a,b,c] are the structure constants of SU(N). The arguments \ a,b,c should be of symbolic type.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "SUNF", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Explicit", "\[Rule]", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["SUND", ButtonData:>"SUND", ButtonStyle->"Hyperlink", ButtonNote->"SUND"], ", ", ButtonBox["SUNDelta", ButtonData:>"SUNDelta", ButtonStyle->"Hyperlink", ButtonNote->"SUNDelta"], ", ", ButtonBox["SUNIndex", ButtonData:>"SUNIndex", ButtonStyle->"Hyperlink", ButtonNote->"SUNIndex"], ", ", ButtonBox["SUNSimplify", ButtonData:>"SUNSimplify", ButtonStyle->"Hyperlink", ButtonNote->"SUNSimplify"], ", ", ButtonBox["SUNT", ButtonData:>"SUNT", ButtonStyle->"Hyperlink", ButtonNote->"SUNT"], ", ", ButtonBox["Trick", ButtonData:>"Trick", ButtonStyle->"Hyperlink", ButtonNote->"Trick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{ RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "x"}], "+", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"b", ",", "a", ",", "c"}], "]"}], "y"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"x", " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "c"}]]}], "+", RowBox[{"y", " ", SubscriptBox["f", RowBox[{"b", "\[NoBreak]", "a", "\[NoBreak]", "c"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Calc", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"x", " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"y", " ", 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[ RowBox[{"SUNSimplify", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}], " ", 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[ RowBox[{"SUNF", "[", RowBox[{"a", ",", "a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "a", "\[NoBreak]", "b"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "a", ",", "b"}], "]"}], "//", "Calc"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "This is a consequence of the usual choice for the normalization of the ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", "a"], " ", "generators", "in", " ", RowBox[{ RowBox[{"(", RowBox[{"see", " ", " ", "SUNT"}], ")"}], "."}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}], "-", RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "d"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "A"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}], "-", RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SUNF[a, b, c]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["SUNF[SUNIndex[a], SUNIndex[b], SUNIndex[c]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["SUNF[a, b, c]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNF", "[", RowBox[{"b", ",", "a", ",", "c"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["f", RowBox[{"b", "\[NoBreak]", "a", "\[NoBreak]", "c"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNF", "[", RowBox[{"b", ",", "a", ",", "c"}], "]"}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SUNIndex", "Section", CellTags->"SUNIndex"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["SUNIndex is the head of SU(N)indices.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["SUNDelta", ButtonData:>"SUNDelta", ButtonStyle->"Hyperlink", ButtonNote->"SUNDelta"], ", ", ButtonBox["SUNF", ButtonData:>"SUNF", ButtonStyle->"Hyperlink", ButtonNote->"SUNF"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNIndex", "[", "i", "]"}]], "Input"], Cell[BoxData[ FormBox["i", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SUNDelta", "[", RowBox[{"i", ",", "j"}], "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["SUNDelta[SUNIndex[i], SUNIndex[j]]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SUNSimplify", "Section", CellTags->"SUNSimplify"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ SUNSimplify simplifies products of SUNT (and complex conjugated) matrices. Basic renaming of dummy indices is done. If the option SUNTrace is set to \ False, then any SUNT-matrices are taken out of DiracTrace[...]; otherwise a \ color-trace is taken (by SUNTrace) before taking the SUN-objects in front of \ DiracTrace[...].\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "SUNSimplify", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Expanding", "\[Rule]", "False"}], ",", RowBox[{"Explicit", "\[Rule]", "False"}], ",", RowBox[{"Factoring", "\[Rule]", "False"}], ",", RowBox[{"SUNFJacobi", "\[Rule]", "False"}], ",", RowBox[{"SUNNToCACF", "\[Rule]", "True"}], ",", RowBox[{"SUNTrace", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["Trick", ButtonData:>"Trick", ButtonStyle->"Hyperlink", ButtonNote->"Trick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{ RowBox[{"SUNDelta", "[", RowBox[{"a", ",", "b"}], "]"}], " ", RowBox[{"SUNDelta", "[", RowBox[{"b", ",", "c"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{"a", "b"}]], " ", SubscriptBox["\[Delta]", RowBox[{"b", "c"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", "t1", "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{ RowBox[{"SUNT", "[", "a", "]"}], ".", RowBox[{"SUNT", "[", "a", "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", FormBox["a", "TraditionalForm"]], " ", SubscriptBox["T", FormBox["a", "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", "t2", "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["C", "F"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"t2", ",", RowBox[{"SUNNToCACF", "->", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["N", "2"], "-", "1"}], RowBox[{"2", " ", "N"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t3", "=", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "r", ",", "s"}], "]"}], RowBox[{"SUNF", "[", RowBox[{"b", ",", "r", ",", "s"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "r", "\[NoBreak]", "s"}]], " ", SubscriptBox["f", RowBox[{"b", "\[NoBreak]", "r", "\[NoBreak]", "s"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", "t3", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "A"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t4", "=", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", ".", " ", RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "c"}]], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "c"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", "t4", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"2", " ", SubsuperscriptBox["C", "A", "2"], " ", SubscriptBox["C", "F"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t5", "=", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUNF", "[", RowBox[{"d", ",", "b", ",", "c"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "c"}]], " ", SubscriptBox["f", RowBox[{"d", "\[NoBreak]", "b", "\[NoBreak]", "c"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", "t5", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "A"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t6", "=", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUND", "[", RowBox[{"d", ",", "b", ",", "c"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["d", RowBox[{"b", "c", "d"}]], " ", SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "c"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"t6", ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], ",", RowBox[{"SUNNToCACF", "\[Rule]", "False"}]}], "]"}], "//", "Factor2"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["N", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"4", "-", SuperscriptBox["N", "2"]}], ")"}]}], "N"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUND", "[", RowBox[{"e", ",", "b", ",", "c"}], "]"}]}], ",", RowBox[{"SUNNToCACF", "\[Rule]", "False"}]}], "]"}], "//", "FullSimplify"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["N", "2"], "-", "4"}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "N"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}], "-", RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}], "+", RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUNT", "[", RowBox[{"c", ",", "b", ",", "a"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", SubscriptBox["C", "A"], " ", SubscriptBox["C", "F"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", RowBox[{ RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "e"}], "]"}], RowBox[{"SUNF", "[", RowBox[{"c", ",", "d", ",", "e"}], "]"}]}], "+", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "z"}], "]"}], RowBox[{"SUNF", "[", RowBox[{"c", ",", "d", ",", "z"}], "]"}]}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "e"}]], " ", SubscriptBox["f", RowBox[{"c", "\[NoBreak]", "d", "\[NoBreak]", "e"}]]}], "+", RowBox[{ SubscriptBox["f", RowBox[{"a", "\[NoBreak]", "b", "\[NoBreak]", "z"}]], " ", SubscriptBox["f", RowBox[{"c", "\[NoBreak]", "d", "\[NoBreak]", "z"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"a1", ",", RowBox[{"Explicit", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"2", " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", "=", RowBox[{"DiracTrace", "[", RowBox[{ RowBox[{"SUNT", "[", RowBox[{"a", ",", "b"}], "]"}], ".", RowBox[{"DiracMatrix", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox["a", "TraditionalForm"]], SubscriptBox["T", FormBox["b", "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], SuperscriptBox["\[Gamma]", "\[Nu]"]}], ")"}]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", "a2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"tr", "(", FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], "TraditionalForm"], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"a2", ",", RowBox[{"SUNTrace", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"tr", "(", FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], "TraditionalForm"], ")"}], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNSimplify", "[", RowBox[{"a2", ",", RowBox[{"SUNTrace", "\[Rule]", "False"}]}], "]"}], "//", "InputForm"}]], "Input"], Cell[TextData[ "DiracTrace[DiracGamma[LorentzIndex[\[Mu]]] . \n DiracGamma[LorentzIndex[\ \[Nu]]]] . SUNT[SUNIndex[a]] . \n SUNT[SUNIndex[b]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SUNT", "Section", CellTags->"SUNT"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "SUNT[a] is the SU(N) ", Cell[BoxData[ FormBox[ SubscriptBox["T", "a"], TraditionalForm]]], " generator in the fundamental representation." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["CA", ButtonData:>"CA", ButtonStyle->"Hyperlink", ButtonNote->"CA"], ", ", ButtonBox["CF", ButtonData:>"CF", ButtonStyle->"Hyperlink", ButtonNote->"CF"], ", ", ButtonBox["SUND", ButtonData:>"SUND", ButtonStyle->"Hyperlink", ButtonNote->"SUND"], ", ", ButtonBox["SUNDelta", ButtonData:>"SUNDelta", ButtonStyle->"Hyperlink", ButtonNote->"SUNDelta"], ", ", ButtonBox["SUNF", ButtonData:>"SUNF", ButtonStyle->"Hyperlink", ButtonNote->"SUNF"], ", ", ButtonBox["SUNSimplify", ButtonData:>"SUNSimplify", ButtonStyle->"Hyperlink", ButtonNote->"SUNSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNT", "[", "a", "]"}]], "Input"], Cell[BoxData[ FormBox[ SubscriptBox["T", FormBox["a", "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "Since ", Cell[BoxData[ FormBox[ SubscriptBox["T", "a"], TraditionalForm]]], " is a noncommutative object, products have to separated by a dot (.)." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNT", "[", "a", "]"}], ".", " ", RowBox[{"SUNT", "[", "b", "]"}], ".", " ", RowBox[{"SUNT", "[", "c", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", FormBox["a", "TraditionalForm"]], " ", SubscriptBox["T", FormBox["b", "TraditionalForm"]], " ", SubscriptBox["T", FormBox["c", "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNT", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", FormBox["a", "TraditionalForm"]], SubscriptBox["T", FormBox["b", "TraditionalForm"]], SubscriptBox["T", FormBox["c", "TraditionalForm"]], SubscriptBox["T", FormBox["d", "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUNT", "[", RowBox[{"a", ",", "b", ",", "a"}], "]"}], ",", RowBox[{"SUNNToCACF", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], RowBox[{"2", " ", "N"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"SUNT", "[", RowBox[{"a", ",", "b", ",", "b", ",", "a"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ SubsuperscriptBox["C", "F", "2"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"SUNT", "[", RowBox[{"a", ",", "b", ",", "a"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{ SubscriptBox["C", "A"], "-", RowBox[{"2", " ", SubscriptBox["C", "F"]}]}], ")"}], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUNT", "[", RowBox[{"a", ",", "b", ",", "a"}], "]"}], ",", RowBox[{"SUNNToCACF", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], RowBox[{"2", " ", "N"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "The normalizaton of the generators is chosen in the standard way, \ therefore ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"tr", "(", RowBox[{ SubscriptBox["T", "a"], SubscriptBox["T", "b"]}], ")"}], " ", "=", " ", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{ SubscriptBox["\[Delta]", "ab"], "."}]}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNTrace", "[", RowBox[{"SUNT", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], "2"], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "In case you want ", Cell[BoxData[ FormBox[ SubscriptBox["T", "f"], TraditionalForm]]], ", you need to include a factor 2Tf inside the trace." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNTrace", "[", RowBox[{"2", " ", "Tf", " ", RowBox[{"SUNT", "[", RowBox[{"a", ",", "b"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", "f"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SUNTrace", "[", RowBox[{"SUNT", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}], "//", "InputForm"}]], "Input"], Cell["SUNDelta[SUNIndex[a], SUNIndex[b]]/2", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SUNT", "[", "a", "]"}], "//", "FCI"}], "//", "InputForm"}]], "Input"], Cell["SUNT[SUNIndex[a]]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SUNT", "[", "a", "]"}], "//", "FCI"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["SUNT[a]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SUNTrace", "Section", CellTags->"SUNTrace"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["SUNTrace[expr] calculates the color-trace.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "SUNTrace", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"Explicit", "\[Rule]", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["SUNSimplify", ButtonData:>"SUNSimplify", ButtonStyle->"Hyperlink", ButtonNote->"SUNSimplify"], ", ", ButtonBox["Tr", ButtonData:>"Tr", ButtonStyle->"Hyperlink", ButtonNote->"Tr"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNTrace", "[", RowBox[{"SUNT", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], "2"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNTrace", "[", RowBox[{"SUNT", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNTrace", "[", RowBox[{ RowBox[{"SUNT", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ SubscriptBox["d", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], "4"], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 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[ RowBox[{"SUNTrace", "[", RowBox[{"SUNT", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"SUNTrace", "[", RowBox[{ RowBox[{"SUNT", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "8"], " ", SubscriptBox["d", RowBox[{"e", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"e", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "e"}]], " ", SubscriptBox["d", RowBox[{"e", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ FractionBox["1", "8"], " ", SubscriptBox["d", RowBox[{"e", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"e", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "8"], " ", SubscriptBox["d", RowBox[{"e", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"e", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{"4", " ", "N"}]], "-", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{"4", " ", "N"}]], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{"4", " ", "N"}]], "+", RowBox[{ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", SubscriptBox["d", RowBox[{"e", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "e"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"t1", ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{"SUNTrace", "[", RowBox[{ RowBox[{"SUNT", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "]"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ SubscriptBox["d", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], "4"], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], RowBox[{"2", " ", "N"}]], "+", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["d", RowBox[{"c105", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SubscriptBox["d", RowBox[{"c106", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c106", FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "8"], " ", SubscriptBox["d", RowBox[{"c106", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c106", FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "8"], " ", SubscriptBox["d", RowBox[{"c106", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c106", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "-", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{"4", " ", "N"}]], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{"4", " ", "N"}]], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{"4", " ", "N"}]], "+", RowBox[{ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", SubscriptBox["d", RowBox[{"c106", FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "c106"}]]}], "-", RowBox[{ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", SubscriptBox["d", RowBox[{"c106", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "c106"}]]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "c105"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SubscriptBox["d", RowBox[{"c107", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c107", FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "8"], " ", SubscriptBox["d", RowBox[{"c107", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c107", FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ FractionBox["1", "8"], " ", SubscriptBox["d", RowBox[{"c107", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c107", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "-", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{"4", " ", "N"}]], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{"4", " ", "N"}]], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], RowBox[{"4", " ", "N"}]], "+", RowBox[{ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", SubscriptBox["d", RowBox[{"c107", FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "c107"}]]}], "-", RowBox[{ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", SubscriptBox["d", RowBox[{"c107", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c105", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "c107"}]]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{"t2", ",", RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUND", "[", RowBox[{"d", ",", "b", ",", "c"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "d"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUNF", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUND", "[", RowBox[{"a", ",", "d", ",", "c"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SUNSimplify", "[", RowBox[{ RowBox[{"SUND", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], " ", RowBox[{"SUND", "[", RowBox[{"d", ",", "b", ",", "c"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", "-", SubsuperscriptBox["C", "A", "2"]}], ")"}]}], " ", RowBox[{"(", RowBox[{ SubscriptBox["C", "A"], "-", RowBox[{"2", " ", SubscriptBox["C", "F"]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Symmetrize", "Section", CellTags->"Symmetrize"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Symmetrize[expr, {a1, a2, ...}] symmetrizes expr w.r.t. to the \ variables a2,a2. ...\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Symmetrize", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"f", "(", RowBox[{"a", ",", "b"}], ")"}], "+", RowBox[{"f", "(", RowBox[{"b", ",", "a"}], ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Symmetrize", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"f", "(", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], ")"}], "+", RowBox[{"f", "(", RowBox[{"a", ",", "c", ",", "b", ",", "d"}], ")"}], "+", RowBox[{"f", "(", RowBox[{"b", ",", "a", ",", "c", ",", "d"}], ")"}], "+", RowBox[{"f", "(", RowBox[{"b", ",", "c", ",", "a", ",", "d"}], ")"}], "+", RowBox[{"f", "(", RowBox[{"c", ",", "a", ",", "b", ",", "d"}], ")"}], "+", RowBox[{"f", "(", RowBox[{"c", ",", "b", ",", "a", ",", "d"}], ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Tdec", "Section", CellTags->"Tdec"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Tdec[{q,mu}, {p}]; Tdec[{{qi, mu}, {qj, nu}, ...}, {p1, p2, ...}] \ or Tdec[exp, {{qi, mu}, {qj, nu}, ...}, {p1, p2, ...}] calculates the \ tensorialdecomposition formulas. The more common ones are saved in TIDL.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Tdec", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Factoring", "\[Rule]", "Factor2"}], ",", RowBox[{"FeynCalcExternal", "\[Rule]", "True"}], ",", RowBox[{"List", "\[Rule]", "True"}], ",", RowBox[{"NumberOfMetricTensors", "\[Rule]", InterpretationBox["\[Infinity]", DirectedInfinity[ 1]]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["TID", ButtonData:>"TID", ButtonStyle->"Hyperlink", ButtonNote->"TID"], ", ", ButtonBox["TIDL", ButtonData:>"TIDL", ButtonStyle->"Hyperlink", ButtonNote->"TIDL"], ", ", ButtonBox["OneLoopSimplify", ButtonData:>"OneLoopSimplify", ButtonStyle->"Hyperlink", ButtonNote->"OneLoopSimplify"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[TextData[{ "Check that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{ RowBox[{"d", "^", "D"}], RowBox[{"f", "(", RowBox[{"p", ",", "q"}], ")"}], RowBox[{"q", "^", "\[Mu]"}]}]}], "=", " ", RowBox[{ RowBox[{ RowBox[{"p", "^", "\[Mu]"}], "/", RowBox[{"p", "^", "2"}]}], RowBox[{"\[Integral]", RowBox[{ RowBox[{"d", "^", "D"}], RowBox[{"f", "(", RowBox[{"p", ",", "q"}], ")"}], RowBox[{"p", "\[CenterDot]", "q"}]}]}]}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tdec", "[", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", "p", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X1", "\[Rule]", FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]}], ",", RowBox[{"X2", "\[Rule]", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"]}]}], "}"}], ",", FractionBox[ RowBox[{"X2", " ", SuperscriptBox["p", "\[Mu]"]}], "X1"]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"%", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"%", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["p", "\[Mu]"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"]}], FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"]], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "This calculates integral transformation for any\n ", Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ SuperscriptBox["d", "D"], SubscriptBox["q", "1"], SuperscriptBox["d", "D"], SubscriptBox["q", "2"], SuperscriptBox["d", "D"], SubscriptBox["q", "3"]}]}], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", RowBox[{"p", ",", RowBox[{ SubscriptBox["q", RowBox[{"1", ","}]], SubscriptBox["q", "2"]}], ",", SubscriptBox["q", "3"]}], ")"}], " ", SubsuperscriptBox["q", "1", "\[Mu]"], SubsuperscriptBox["q", "2", "\[Nu]"], SubsuperscriptBox["q", "3", "\[Rho]"]}], TraditionalForm]]], "." }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Tdec", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["q", "1"], ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["q", "2"], ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["q", "3"], ",", "\[Rho]"}], "}"}]}], "}"}], ",", RowBox[{"{", "p", "}"}]}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"t", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"t", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["D", "2"]}], ")"}], " ", SuperscriptBox["p", "\[Rho]"], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}], "TraditionalForm"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], "TraditionalForm"]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], "TraditionalForm"]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"D", "+", "1"}], ")"}], " ", SuperscriptBox[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], "2"]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["D", "2"]}], ")"}], " ", SuperscriptBox["p", "\[Nu]"], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Rho]"}]], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], "TraditionalForm"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}], "TraditionalForm"]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}], "TraditionalForm"]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"D", "+", "1"}], ")"}], " ", SuperscriptBox[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], "2"]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["D", "2"]}], ")"}], " ", SuperscriptBox["p", "\[Mu]"], " ", SuperscriptBox["g", RowBox[{"\[Nu]", "\[Rho]"}]], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], "TraditionalForm"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}], "TraditionalForm"]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}], "TraditionalForm"]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"D", "+", "1"}], ")"}], " ", SuperscriptBox[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], "2"]}]], "-", RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"D", "+", "1"}], ")"}], " ", SuperscriptBox[ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], "3"]}]], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["D", "2"]}], ")"}], " ", SuperscriptBox["p", "\[Mu]"], " ", SuperscriptBox["p", "\[Nu]"], " ", SuperscriptBox["p", "\[Rho]"], " ", RowBox[{"(", RowBox[{ RowBox[{"D", " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}], "TraditionalForm"]}], "+", RowBox[{"2", " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}], "TraditionalForm"]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}], "TraditionalForm"]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox[ SubscriptBox["q", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}], "TraditionalForm"]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], "TraditionalForm"], " ", FormBox[ RowBox[{ FormBox[ SubscriptBox["q", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}], "TraditionalForm"]}]}], ")"}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Contract", "[", RowBox[{ RowBox[{"%", " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}]}], RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Nu]"}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Rho]"}], "]"}]}], "]"}], "//", "Factor"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "3"], "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "t", "]"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Tensorfunction", "Section", CellTags->"Tensorfunction"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Tensorfunction[t, mu, nu, ...] transform into t[LorentzIndex[mu], \ LorentzIndex[nu], ...], i.e., it can be used as an unspecified tensoriell \ function t. A symmetric tensor can be obtained by Tensorfunction[{t, \"S\"}, mu, nu, \ ...], and an antisymmteric one by Tensorfunction[{t, \"A\"}, mu, nu, \ ...].\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Symmetrize", ButtonData:>"Symmetrize", ButtonStyle->"Hyperlink", ButtonNote->"Symmetrize"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tensorfunction", "[", RowBox[{"t", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Tau]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"t", "(", RowBox[{ FormBox["\[Mu]", "TraditionalForm"], ",", FormBox["\[Nu]", "TraditionalForm"], ",", FormBox["\[Tau]", "TraditionalForm"]}], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "FullForm"}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ StyleBox[ RowBox[{"t", "[", RowBox[{ RowBox[{"LorentzIndex", "[", "\\[Mu]", "]"}], ",", RowBox[{"LorentzIndex", "[", "\\[Nu]", "]"}], ",", RowBox[{"LorentzIndex", "[", "\\[Tau]", "]"}]}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True], FullForm], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", RowBox[{ RowBox[{"FV", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], " ", "%"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"t", "(", RowBox[{"p", ",", FormBox["\[Nu]", "TraditionalForm"], ",", FormBox["\[Tau]", "TraditionalForm"]}], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData[ "t[Momentum[p], LorentzIndex[\[Nu]], LorentzIndex[\[Tau]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tensorfunction", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "\"\\""}], "}"}], ",", "\[Alpha]", ",", "\[Beta]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{ FormBox["\[Alpha]", "TraditionalForm"], ",", FormBox["\[Beta]", "TraditionalForm"]}], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tensorfunction", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "\"\\""}], "}"}], ",", "\[Beta]", ",", "\[Alpha]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{ FormBox["\[Alpha]", "TraditionalForm"], ",", FormBox["\[Beta]", "TraditionalForm"]}], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData["f[LorentzIndex[\[Alpha]], LorentzIndex[\[Beta]]]"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"??", "f"}]], "Input"], Cell[BoxData[ FormBox["\<\"Global`f\"\>", TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ StyleBox[ RowBox[{ RowBox[{"Attributes", "[", "f", "]"}], " ", "=", " ", RowBox[{"{", "Orderless", "}"}]}], ShowStringCharacters->True, NumberMarks->True], InputForm[ Definition[ f]], Editable->True, AutoDelete->True], TraditionalForm]], "Print"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAttributes", "[", RowBox[{"f", ",", "Orderless"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["TFi", "Section", CellTags->"TFi"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ TFi[d, pp, {{n1,m1},{n2,m2},{n3,m3},{n4,m4},{n5,m5}}] is the \ \.02loop d-dimensional integral 1/( (q1^2 - m1^2)^n1 (q2^2 - m2^2)^n2 ((q1-p)^2 - m3^2)^n3 *((q2-p)^2 - m4^2)^n4 * ((q1-q2)^2 - m5^2)^n5 ) . TFi[d, pp, {x,y,z,v,w}, {{n1,m1},{n2,m2},{n3,m3},{n4,m4},{n5,m5}}] has as additional factors in the numerator (q1^2)^x*(q2^2)^y*(q1.p)^z* (q2.p)^v*(q1.q2)^w. TFi[d, pp, dp, {a,b}, {{n1,m1},{n2,m2},{n3,m3},{n4,m4},{n5,m5}}] has as additional factors in the numerator (OPEDelta.q1)^a * (OPEDelta.q2)^b; dp is \ (OPEDelta.p).\ \>", "Text"], Cell[TextData[{ "TFi is similar to TFI from the TARCER package, see ", " ", ButtonBox["hep-ph/9801383.", ButtonData:>{ URL[ "http://xxx.lanl.gov/abs/hep-ph/9801383"], None}, ButtonStyle->"Hyperlink"] }], "Text"], Cell["\<\ The function TarcerRecurse from the TARCER package recognize TFi \ (as well as TFI, which is defined in the HighEnergyPhysics`Tarcer` \ context).\ \>", "Text"], Cell[TextData[{ "See also: ", ButtonBox["ToTFi", ButtonData:>"ToTFi", ButtonStyle->"Hyperlink", ButtonNote->"ToTFi"], ", ", ButtonBox["FromTFi", ButtonData:>"FromTFi", ButtonStyle->"Hyperlink", ButtonNote->"FromTFi"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TFi", "[", RowBox[{"D", ",", RowBox[{"M", "^", "2"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "m1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "m2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "m3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "m4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "m5"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ SubsuperscriptBox[ StyleBox["F", SingleLetterItalics->False, FontWeight->"Bold"], RowBox[{ FormBox[ RowBox[{"{", RowBox[{"2", ",", "m1"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "m2"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"3", ",", "m3"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "m4"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "m5"}], "}"}], "TraditionalForm"]}], RowBox[{"(", FormBox["D", "TraditionalForm"], ")"}]], TFi[ D, Power[ M, 2], {{2, m1}, {1, m2}, {3, m3}, {1, m4}, {1, m5}}], Editable->True], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TFi", "[", RowBox[{"D", ",", RowBox[{"M", "^", "2"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "M"}], "}"}], ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ SubsuperscriptBox[ StyleBox["F", SingleLetterItalics->False, FontWeight->"Bold"], RowBox[{ FormBox[ RowBox[{"{", RowBox[{"2", ",", "M"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"]}], RowBox[{"(", FormBox["D", "TraditionalForm"], ")"}]], TFi[ D, Power[ M, 2], {{2, M}, {1, 0}, {1, 0}, {1, 0}, {1, 0}}], Editable->True], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["TIDL", "Section", CellTags->"TIDL"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[" TIDL is a database of tensorial reduction formalae.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["TID", ButtonData:>"TID", ButtonStyle->"Hyperlink", ButtonNote->"TID"] }], "Subsubsection"] }, Open ]], Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["B", "\[Mu]"], "-", "type"}], TraditionalForm]]]], "Subsection"], Cell[TextData[{ "In any n-dimensional integral \[Integral] ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["d", "n"], "\[NegativeVeryThinSpace]", " ", SuperscriptBox["q", "\[Mu]"], " ", RowBox[{"f", "(", RowBox[{"q", ",", "p"}], ")"}], " ", "the", " ", SuperscriptBox["q", "\[Mu]"], " "}], TraditionalForm]]], "can be replaced by" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TIDL", "[", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", "p", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["B", "\[Mu]\[Nu]"], "-", "type"}], TraditionalForm]]]], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TIDL", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}]}], "}"}], ",", RowBox[{"{", "p", "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "4"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "\[Mu]"], "-", "type"}], TraditionalForm]]]], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TIDL", "[", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["p", "1"], ",", SubscriptBox["p", "2"]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"]}]}], RowBox[{ FractionBox[ SuperscriptBox["s", "2"], "4"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}]], "+", FractionBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], RowBox[{ FractionBox[ SuperscriptBox["s", "2"], "4"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "\[Mu]\[Nu]"], "-", "type"}], TraditionalForm]]]], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TIDL", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["p", "1"], ",", SubscriptBox["p", "2"]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox["s", "2"]}], "4"], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", "s"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "-", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"D", "-", "2"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["s", "2"], "4"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}]}]], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox["s", "3"]}], "+", RowBox[{ FractionBox["1", "4"], " ", "D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox["s", "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", "D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", "s"}], "-", RowBox[{ FractionBox["1", "2"], " ", "D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{"D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "-", RowBox[{"2", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"D", "-", "2"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["s", "2"], "4"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox["s", "3"]}], "+", RowBox[{ FractionBox["1", "4"], " ", "D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox["s", "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", "D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", "s"}], "-", RowBox[{ FractionBox["1", "2"], " ", "D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{"D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "-", RowBox[{"2", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"D", "-", "2"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["s", "2"], "4"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", "D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox["s", "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox["s", "2"]}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox["s", "2"]}], "-", RowBox[{"D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "4"]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "4"]}], "-", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "4"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"D", "-", "2"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["s", "2"], "4"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", "D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox["s", "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox["s", "2"]}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", SuperscriptBox["s", "2"]}], "-", RowBox[{"D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", "s"}], "+", RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "4"]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "4"]}], "-", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "4"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"D", "-", "2"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["s", "2"], "4"], "-", RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}]}], ")"}], "2"]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "\[Mu]\[Nu]\[Rho]"], "-", "type"}], TraditionalForm]]]], "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"TIDL", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Rho]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "k"}], "}"}]}], "]"}], ";"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "\[Mu]\[Nu]\[Rho]\[Sigma]"], "-", "type"}], TraditionalForm]]]], "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"TIDL", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Sigma]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "k"}], "}"}]}], "]"}], ";"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["D", "\[Mu]"], "-", "type"}], TraditionalForm]]]], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TIDL", "[", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["p", "1"], ",", SubscriptBox["p", "2"], ",", SubscriptBox["p", "3"]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", " ", SubsuperscriptBox["p", FormBox["3", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", SuperscriptBox["s", "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", "s"}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", "s"}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "3"], "TraditionalForm"], "2"], " ", SuperscriptBox["s", "2"]}], "-", RowBox[{"4", " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", "s"}], "+", RowBox[{"4", " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "-", RowBox[{"4", " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "3"], "TraditionalForm"], "2"]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], ")"}]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}]}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}]}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "3"], "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "3"], "TraditionalForm"], "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "3"], "TraditionalForm"], "2"], " ", SuperscriptBox["s", "2"]}], "-", RowBox[{"4", " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", "s"}], "+", RowBox[{"4", " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "-", RowBox[{"4", " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "3"], "TraditionalForm"], "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}]}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}]}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "2"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "3"], "TraditionalForm"], "2"]}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "1"], "TraditionalForm"]}], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "3"], "TraditionalForm"], "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox[ SubscriptBox["p", "3"], "TraditionalForm"], "2"], " ", SuperscriptBox["s", "2"]}], "-", RowBox[{"4", " ", RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], " ", "s"}], "+", RowBox[{"4", " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["p", "3"], "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], "-", RowBox[{"4", " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox[ SubscriptBox["p", "3"], "TraditionalForm"], "2"]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["D", "\[Mu]\[Nu]"], "-", "type"}], TraditionalForm]]]], "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"TIDL", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "k", ",", "r"}], "}"}]}], "]"}], ";"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["D", "\[Mu]\[Nu]\[Rho]"], "-", "type"}], TraditionalForm]]]], "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"TIDL", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Rho]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "k", ",", "r"}], "}"}]}], "]"}], ";"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["D", "\[Mu]\[Nu]\[Rho]\[Sigma]"], "-", "type"}], TraditionalForm]]]], "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"TIDL", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"q", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Sigma]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "k", ",", "r", ",", "s"}], "}"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "%", "]"}], ",", " ", RowBox[{"LeafCount", "[", "%", "]"}], ",", RowBox[{"ByteCount", "[", "%", "]"}]}], "}"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"4", ",", "29", ",", "320"}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["TID", "Section", CellTags->"TID"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["TID[amp,q] performs a tensorial decomposition.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "TID", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Collecting", "\[Rule]", "True"}], ",", RowBox[{"Contract", "\[Rule]", "False"}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"ChangeDimension", "\[Rule]", "D"}], ",", RowBox[{"DimensionalReduction", "\[Rule]", "False"}], ",", RowBox[{"FeynAmpDenominatorCombine", "\[Rule]", "True"}], ",", RowBox[{"FeynAmpDenominatorSimplify", "\[Rule]", "False"}], ",", RowBox[{"Isolate", "\[Rule]", "False"}], ",", RowBox[{"ScalarProductCancel", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["OneLoopSimplify", ButtonData:>"OneLoopSimplify", ButtonStyle->"Hyperlink", ButtonNote->"OneLoopSimplify"], ", ", ButtonBox["TIDL", ButtonData:>"TIDL", ButtonStyle->"Hyperlink", ButtonNote->"TIDL"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FAD", "[", RowBox[{"k", ",", " ", RowBox[{"k", " ", "-", " ", SubscriptBox["p", "1"]}], ",", " ", RowBox[{"k", " ", "-", " ", SubscriptBox["p", "2"]}]}], "]"}], RowBox[{"FVD", "[", RowBox[{"k", ",", "\[Mu]"}], "]"}]}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Factor", "/@", RowBox[{"TID", "[", RowBox[{"%", ",", "k"}], "]"}]}], "//", "FCE"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["k", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ k, 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ k, Times[ -1, Subscript[ p, 1]]], 2], "]"], Editable->False], ")"}]}]], "TraditionalForm"], " ", RowBox[{"(", RowBox[{ RowBox[{"s", " ", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], "\[Mu]"]}], "-", RowBox[{"2", " ", SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], "\[Mu]"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "TraditionalForm"]}]}], ")"}]}], RowBox[{ SuperscriptBox["s", "2"], "-", RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], "TraditionalForm"]}]}]]}], "+", FractionBox[ RowBox[{ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["k", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ k, 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ k, Times[ -1, Subscript[ p, 1]]], 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ k, Times[ -1, Subscript[ p, 2]]], 2], "]"], Editable->False], ")"}]}]], "TraditionalForm"], " ", RowBox[{"(", RowBox[{ RowBox[{"s", " ", SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], "\[Mu]"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "TraditionalForm"]}], "-", RowBox[{"2", " ", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], "\[Mu]"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "TraditionalForm"]}], "-", RowBox[{"2", " ", SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], "\[Mu]"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "TraditionalForm"]}], "+", RowBox[{"s", " ", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], "\[Mu]"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], "TraditionalForm"]}]}], ")"}]}], RowBox[{ SuperscriptBox["s", "2"], "-", RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], "TraditionalForm"]}]}]], "-", FractionBox[ RowBox[{ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["k", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ k, 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ k, Times[ -1, Subscript[ p, 2]]], 2], "]"], Editable->False], ")"}]}]], "TraditionalForm"], " ", RowBox[{"(", RowBox[{ RowBox[{"s", " ", SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], "\[Mu]"]}], "-", RowBox[{"2", " ", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], "\[Mu]"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], "TraditionalForm"]}]}], ")"}]}], RowBox[{ SuperscriptBox["s", "2"], "-", RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], "TraditionalForm"]}]}]], "+", FractionBox[ RowBox[{ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "1"]}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ k, Times[ -1, Subscript[ p, 1]]], 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", SubscriptBox["p", "2"]}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ k, Times[ -1, Subscript[ p, 2]]], 2], "]"], Editable->False], ")"}]}]], "TraditionalForm"], " ", RowBox[{"(", RowBox[{ RowBox[{"s", " ", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], "\[Mu]"]}], "-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], "TraditionalForm"], " ", SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], "\[Mu]"]}], "+", RowBox[{"s", " ", SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], "\[Mu]"]}], "-", RowBox[{"2", " ", SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], "\[Mu]"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "TraditionalForm"]}]}], ")"}]}], RowBox[{ SuperscriptBox["s", "2"], "-", RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "TraditionalForm"], " ", FormBox[ SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"], "TraditionalForm"]}]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FAD", "[", RowBox[{"k", ",", " ", RowBox[{"k", " ", "-", " ", "p"}]}], "]"}], RowBox[{"FVD", "[", RowBox[{"k", ",", "\[Mu]"}], "]"}]}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p"}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TID", "[", RowBox[{"%", ",", "k"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p"}], ")"}], "2"]}], ")"}]}]], "-", FractionBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], RowBox[{"2", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]], "+", FractionBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p"}], ")"}], "2"], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TID", "[", RowBox[{"%%", ",", "k", ",", RowBox[{"FeynAmpDenominatorSimplify", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "p"}], ")"}], "2"]}], ")"}]}]], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ToDistribution", "Section", CellTags->"ToDistribution"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ ToDistribution[exp,x] replaces (1-x)^(a Epsilon - 1) in exp by 1/(a \ Epsilon) DeltaFunction[1-x] + 1/(1-x) + a Epsilon Log[1-x]/(1-x) + 1/2 a^2 Epsilon^2 Log[1-x]^2/(1-x)] and (1-x)^(a Epsilon - 2) in exp by -1/(a Epsilon) DeltaFunctionPrime[1-x] + 1/(1-x)^2 + (a Epsilon) Log[1-x]/(1-x)^2 + a^2 Epsilon^2/2 Log[1-x]^2/(1-x)^2 + a^3 Epsilon^3/6 Log[1-x]^3/(1-x)^2.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "ToDistribution", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"PlusDistribution", "\[Rule]", "Identity"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["PlusDistribution", ButtonData:>"PlusDistribution", ButtonStyle->"Hyperlink", ButtonNote->"PlusDistribution"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"ToDistribution", ",", RowBox[{"PlusDistribution", "\[Rule]", "PlusDistribution"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"PlusDistribution", "\[Rule]", "PlusDistribution"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToDistribution", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", RowBox[{"(", RowBox[{"Epsilon", "-", "1"}], ")"}]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "6"], " ", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox["log", "3"], "(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"1", "-", "x"}]], ")"}], "+"], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "3"]}], "+", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"1", "-", "x"}]], ")"}], "+"], " ", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "2"]}], "+", RowBox[{ SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"1", "-", "x"}]], ")"}], "+"], " ", TagBox["\[CurlyEpsilon]", TraditionalForm]}], "+", SubscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "-", "x"}]], ")"}], "+"], "+", FractionBox[ RowBox[{"\[Delta]", "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], TagBox["\[CurlyEpsilon]", TraditionalForm]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"ToDistribution", ",", RowBox[{"PlusDistribution", "\[Rule]", "Identity"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"PlusDistribution", "\[Rule]", "Identity"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToDistribution", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", RowBox[{"(", RowBox[{"Epsilon", "-", "2"}], ")"}]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "3"], " ", RowBox[{ SuperscriptBox["log", "3"], "(", RowBox[{"1", "-", "x"}], ")"}]}], RowBox[{"6", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "2"], " ", RowBox[{ SuperscriptBox["log", "2"], "(", RowBox[{"1", "-", "x"}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ TagBox["\[CurlyEpsilon]", TraditionalForm], " ", RowBox[{"log", "(", RowBox[{"1", "-", "x"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "2"]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Delta]", "\[Prime]"], "(", FormBox[ RowBox[{"1", "-", "x"}], "TraditionalForm"], ")"}], TagBox["\[CurlyEpsilon]", TraditionalForm]], "+", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "2"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series2", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"Epsilon", "-", "2"}]], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], ",", "Epsilon", ",", "3"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "3"]}], "-", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "2"], "-", TagBox["\[CurlyEpsilon]", TraditionalForm], "-", "1"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "@", "Integrate"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"GenerateConditions", "\[Rule]", "Automatic"}], ",", RowBox[{"PrincipalValue", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate2", "[", RowBox[{ RowBox[{"ToDistribution", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "^", RowBox[{"(", RowBox[{"Epsilon", "-", "2"}], ")"}]}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "3"]}], "-", SuperscriptBox[ TagBox["\[CurlyEpsilon]", TraditionalForm], "2"], "-", TagBox["\[CurlyEpsilon]", TraditionalForm], "-", "1"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ToHypergeometric", "Section", CellTags->"ToHypergeometric"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "ToHypergeometric[", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"t", "^", "b"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "^", "c"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t", " ", "z"}]}], ")"}], "^", "a"}]}], TraditionalForm]]], ", t] returns \n\[CapitalGamma](b+1) \ \[CapitalGamma](c+1)/\[CapitalGamma](b+c+2). ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Null]", "2"], RowBox[{ SubscriptBox["F", "1"], "(", RowBox[{ RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"b", "+", "1"}]}], ";", RowBox[{"b", "+", "c", "+", "2"}], ";", RowBox[{"-", "z"}]}], ")"}]}], TraditionalForm]]], ". \nRemember that Re b >0 and Re (c-b) > 0 should hold (need not be set in \ Mathematica)." }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["HypergeometricAC", ButtonData:>"HypergeometricAC", ButtonStyle->"Hyperlink", ButtonNote->"HypergeometricAC"], ", ", ButtonBox["HypergeometricIR", ButtonData:>"HypergeometricIR", ButtonStyle->"Hyperlink", ButtonNote->"HypergeometricIR"], ", ", ButtonBox["HypergeometricSE", ButtonData:>"HypergeometricSE", ButtonStyle->"Hyperlink", ButtonNote->"HypergeometricSE"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToHypergeometric", "[", RowBox[{ RowBox[{ RowBox[{"t", "^", "b"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "^", "c"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t", " ", "z"}]}], ")"}], "^", "a"}]}], ",", "t"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "+", "1"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "+", "1"}], ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"b", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"b", "+", "c", "+", "2"}], (Editable -> True)], ";", TagBox[ RowBox[{"-", "z"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "+", "c", "+", "2"}], ")"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToHypergeometric", "[", RowBox[{ RowBox[{"w", " ", RowBox[{"t", "^", RowBox[{"(", RowBox[{"b", "-", "1"}], ")"}]}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "^", RowBox[{"(", RowBox[{"c", "-", "b", "-", "1"}], ")"}]}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"t", " ", "z"}]}], ")"}], "^", RowBox[{"(", RowBox[{"-", "a"}], ")"}]}]}], ",", "t"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"w", " ", RowBox[{"\[CapitalGamma]", "(", "b", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "-", "b"}], ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox["z", (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}], RowBox[{"\[CapitalGamma]", "(", "c", ")"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToHypergeometric", "[", RowBox[{ RowBox[{ RowBox[{"t", "^", "b"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "^", "c"}], " ", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"t", " ", "z"}]}], ")"}], "^", "a"}]}], ",", "t"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["u", "a"], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "+", "1"}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "+", "1"}], ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox[ RowBox[{"-", "a"}], (Editable -> True)], ",", TagBox[ RowBox[{"b", "+", "1"}], (Editable -> True)]}], ";", TagBox[ RowBox[{"b", "+", "c", "+", "2"}], (Editable -> True)], ";", TagBox[ RowBox[{"-", FractionBox["z", "u"]}], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"b", "+", "c", "+", "2"}], ")"}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToHypergeometric", "[", RowBox[{ RowBox[{"w", " ", RowBox[{"t", "^", RowBox[{"(", RowBox[{"b", "-", "1"}], ")"}]}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "^", RowBox[{"(", RowBox[{"c", "-", "b", "-", "1"}], ")"}]}], " ", RowBox[{ RowBox[{"(", RowBox[{"u", "-", RowBox[{"t", " ", "z"}]}], ")"}], "^", RowBox[{"(", RowBox[{"-", "a"}], ")"}]}]}], ",", "t"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["u", RowBox[{"-", "a"}]], " ", "w", " ", RowBox[{"\[CapitalGamma]", "(", "b", ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"c", "-", "b"}], ")"}], " ", TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[ThinSpace]", "2"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{ TagBox["a", (Editable -> True)], ",", TagBox["b", (Editable -> True)]}], ";", TagBox["c", (Editable -> True)], ";", TagBox[ FractionBox["z", "u"], (Editable -> True)]}], ")"}], InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}], RowBox[{"\[CapitalGamma]", "(", "c", ")"}]], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ToLarin", "Section", CellTags->"ToLarin"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "ToLarin[exp] translates all ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "5"]}], TraditionalForm]]], " in exp into ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "/", "6"}], " ", SuperscriptBox["\[CurlyEpsilon]", "\[Mu]\[Nu]\[Lambda]\[Sigma]"], SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Lambda]"], " ", RowBox[{ SuperscriptBox["\[Gamma]", "\[Sigma]"], "."}]}], TraditionalForm]]] }], "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Eps", ButtonData:>"Eps", ButtonStyle->"Hyperlink", ButtonNote->"Eps"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DiracMatrix", "[", "\[Nu]", "]"}], ".", RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", RowBox[{"DiracMatrix", "[", "5", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "5"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToLarin", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], " ", SuperscriptBox["\[Gamma]", "du1"], " ", SuperscriptBox["\[Gamma]", "du2"], " ", SuperscriptBox["\[Gamma]", "du3"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["du1", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["du2", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["du3", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ToTFi", "Section", CellTags->"ToTFi"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ ToTFi[expr, q1, q2, p] translates FeynCalc 2-loop self energy type \ integrals into the TFi notatation, which can be used as input for the \ function TarcerRecurse from the TARCER package. See TFi for details on the \ conventions.\ \>", "Text"], Cell[TextData[{ "See also: ", ButtonBox["TFi", ButtonData:>"TFi", ButtonStyle->"Hyperlink", ButtonNote->"TFi"], ", ", ButtonBox["FromTFi", ButtonData:>"FromTFi", ButtonStyle->"Hyperlink", ButtonNote->"FromTFi"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FAD", "[", RowBox[{"q1", ",", RowBox[{"q1", "-", "p"}], ",", RowBox[{"{", RowBox[{"q2", ",", "M"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"q2", "-", "p"}], ",", "m"}], "}"}], ",", RowBox[{"q1", "-", "q2"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubsuperscriptBox["q", "1", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ q1, 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ Times[ -1, p], q1], 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", SubscriptBox["q", "2"]}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ q1, Times[ -1, q2]], 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubsuperscriptBox["q", "2", "2"], "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", SuperscriptBox["M", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ q2, 2], "-", Power[ M, 2], "]"], Editable->False], ")"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", SuperscriptBox["m", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm[ "[", Power[ Plus[ Times[ -1, p], q2], 2], "-", Power[ m, 2], "]"], Editable->False], ")"}]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToTFi", "[", RowBox[{"%", ",", "q1", ",", "q2", ",", "p"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ SubsuperscriptBox[ StyleBox["F", SingleLetterItalics->False, FontWeight->"Bold"], RowBox[{ FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "M"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "m"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"]}], RowBox[{"(", FormBox["D", "TraditionalForm"], ")"}]], TFi[ D, SPD[ p, p], {{1, 0}, {1, M}, {1, 0}, {1, m}, {1, 0}}], Editable->True], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["TFi[D, SPD[p, p], {{1, 0}, {1, M}, {1, 0}, {1, m}, {1, 0}}]", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SOD", "[", "q1", "]"}], " ", RowBox[{"SOD", "[", "q2", "]"}], RowBox[{"FAD", "[", RowBox[{"q1", ",", RowBox[{"q1", "-", "p"}], ",", RowBox[{"{", RowBox[{"q2", ",", "M"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"q2", "-", "p"}], ",", "m"}], "}"}], ",", RowBox[{"q1", "-", "q2"}]}], "]"}]}], "//", "FCI"}]], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "1"], "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox[ SubscriptBox["q", "2"], "TraditionalForm"]}]}], RowBox[{ SubsuperscriptBox["q", "1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", "p"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["q", "2", "2"], "-", SuperscriptBox["M", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "2"], "-", "p"}], ")"}], "2"], "-", SuperscriptBox["m", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["q", "1"], "-", SubscriptBox["q", "2"]}], ")"}], "2"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToTFi", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ SubsuperscriptBox[ StyleBox["F", SingleLetterItalics->False, FontWeight->"Bold"], RowBox[{ FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "M"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "m"}], "}"}], "TraditionalForm"], FormBox[ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "TraditionalForm"]}], RowBox[{"(", FormBox["D", "TraditionalForm"], ")", " ", "1", "1"}]], TFi[ D, SPD[ p, p], SOD[ p], {1, 1}, {{1, 0}, {1, M}, {1, 0}, {1, m}, {1, 0}}], Editable->True], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell["\<\ TFi[D, SPD[p, p], SOD[p], {1, 1}, {{1, 0}, {1, M}, {1, 0}, {1, m}, {1, 0}}]\ \>", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["TrickMandelstam", "Section", CellTags->"TrickMandelstam"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell[TextData[{ "TrickMandelstam[expr, {s, t, u, ", Cell[BoxData[ FormBox[ SubsuperscriptBox["m", "1", "2"], TraditionalForm]]], " + ", Cell[BoxData[ FormBox[ SubsuperscriptBox["m", "2", "2"], TraditionalForm]]], "+ ", Cell[BoxData[ FormBox[ SubsuperscriptBox["m", "3", "2"], TraditionalForm]]], "+ ", Cell[BoxData[ FormBox[ SubsuperscriptBox["m", "4", "2"], TraditionalForm]]], "}] simplifies all sums in expr so that one of the Mandelstam variables s, \ t or u is eliminated by the relation \ns + t + u = ", Cell[BoxData[ FormBox[ SubsuperscriptBox["m", "1", "2"], TraditionalForm]]], " + ", Cell[BoxData[ FormBox[ SubsuperscriptBox["m", "2", "2"], TraditionalForm]]], "+ ", Cell[BoxData[ FormBox[ SubsuperscriptBox["m", "3", "2"], TraditionalForm]]], "+ ", Cell[BoxData[ FormBox[ SubsuperscriptBox["m", "4", "2"], TraditionalForm]]], " .\nThe trick is that the resulting sum has the most short number of \ terms." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TrickMandelstam", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "+", "t", "-", "u"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", SubsuperscriptBox["M", "W", "2"]}], "-", "t", "-", "u"}], ")"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "t", ",", "u", ",", RowBox[{"2", SubsuperscriptBox["M", "W", "2"]}]}], "}"}]}], "]"}], "//", "Factor2"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "2"}], " ", "s", " ", RowBox[{"(", RowBox[{"u", "-", SubsuperscriptBox["M", "W", "2"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TrickMandelstam", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"M", "^", "2"}], " ", "s"}], " ", "-", " ", RowBox[{"s", "^", "2"}], " ", "+", " ", RowBox[{ RowBox[{"M", "^", "2"}], " ", "t"}], " ", "-", " ", RowBox[{"s", "t"}], " ", "+", " ", RowBox[{ RowBox[{"M", "^", "2"}], " ", "u"}], " ", "-", " ", RowBox[{"s", "u"}]}], ",", " ", RowBox[{"{", RowBox[{"s", ",", "t", ",", "u", ",", RowBox[{"2", RowBox[{"M", "^", "2"}]}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"2", " ", SuperscriptBox["M", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["M", "2"], "-", "s"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Trick", "Section", CellTags->"Trick"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Trick[exp] performs several basic simplifications without \ expansion. Trick[exp] uses Contract, DotSimplify and SUNDeltaContract.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Calc", ButtonData:>"Calc", ButtonStyle->"Hyperlink", ButtonNote->"Calc"], ", ", ButtonBox["Contract", ButtonData:>"Contract", ButtonStyle->"Hyperlink", ButtonNote->"Contract"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], ", ", ButtonBox["DotSimplify", ButtonData:>"DotSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DotSimplify"], ", ", ButtonBox["DiracTrick", ButtonData:>"DiracTrick", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrick"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Examples"], "Subsection"], Cell[TextData[{ "This calculates ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"g", "^", "\[Mu]\[Nu]"}], SubscriptBox["\[Gamma]", "\[Mu]"]}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubsuperscriptBox["g", "\[Nu]", "\[Nu]"], TraditionalForm]]], " in D dimensions." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Trick", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"GA", "[", "\[Mu]", "]"}], " ", RowBox[{"MT", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], ",", " ", RowBox[{"MTD", "[", RowBox[{"\[Nu]", ",", "\[Nu]"}], "]"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", "\[Nu]"], ",", "D"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FV", "[", RowBox[{ RowBox[{"p", "+", "r"}], ",", "\[Mu]"}], "]"}], " ", RowBox[{"MT", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], " ", RowBox[{"FV", "[", RowBox[{ RowBox[{"q", "-", "p"}], ",", "\[Nu]"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"q", "-", "p"}], "TraditionalForm"], ")"}], "\[Nu]"], ")"}], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{"p", "+", "r"}], "TraditionalForm"], ")"}], "\[Mu]"], ")"}], " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Trick", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "-", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Trick", "[", RowBox[{"c", ".", "b", ".", "a", " ", ".", " ", RowBox[{"GA", "[", "d", "]"}], ".", RowBox[{"GA", "[", "e", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"a", " ", "b", " ", "c", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "d"], " ", SuperscriptBox["\[Gamma]", "e"]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"%", "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["a*b*c*GA[d] . GA[e]", "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Tr", "Section", CellTags->"Tr"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Tr[exp] calculates the Dirac trace of exp. Depending on the setting \ of the option SUNTrace also a trace over SU(N) objects is performed. Tr is \ identical toDiracTrace, up to the default setting of DiracTraceEvaluate.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Tr", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"DiracTraceEvaluate", "\[Rule]", "True"}], ",", RowBox[{"Factoring", "\[Rule]", "False"}], ",", RowBox[{"FeynCalcExternal", "\[Rule]", "False"}], ",", RowBox[{"LeviCivitaSign", "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"Mandelstam", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"PairCollect", "\[Rule]", "False"}], ",", RowBox[{"Schouten", "\[Rule]", "442"}], ",", RowBox[{"SUNTrace", "\[Rule]", "True"}], ",", RowBox[{"TraceOfOne", "\[Rule]", "4"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["DiracSimplify", ButtonData:>"DiracSimplify", ButtonStyle->"Hyperlink", ButtonNote->"DiracSimplify"], ", ", ButtonBox["DiracTrace", ButtonData:>"DiracTrace", ButtonStyle->"Hyperlink", ButtonNote->"DiracTrace"], ", ", ButtonBox["SUNTrace", ButtonData:>"SUNTrace", ButtonStyle->"Hyperlink", ButtonNote->"SUNTrace"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], " ", SuperscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", "%", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", SuperscriptBox["g", RowBox[{"\[Mu]", "\[Nu]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"GSD", "[", "p", "]"}], "+", "m"}], ")"}], ".", RowBox[{"GAD", "[", "\[Mu]", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"GSD", "[", "q", "]"}], "-", "m"}], ")"}], ".", RowBox[{"GAD", "[", "\[Nu]", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], " ", SuperscriptBox["m", "2"]}], "+", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", RowBox[{"GA", "[", RowBox[{ "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "5"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", RowBox[{"GAD", "[", RowBox[{ "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Tau]", ",", "\[Xi]", ",", "5"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Xi]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Tau]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["$West"], "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "$West"}]], "Input"], Cell[BoxData[ FormBox[ "\<\"If $West is set to True (which is the default), traces involving \ more than 4 Dirac matrices and gamma5 are calculated recursively according to \ formula (A.5) from Comp. Phys. Comm 77 (1993) 286-298, which is based on the \ Breitenlohner Maison gamma5 - scheme.\"\>", TraditionalForm]], "Print"] }, Open ]], Cell["\<\ $West=False should be set before any calculation is done (because \ intermediate results from trace calculations are cached).\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"$West", "=", "False"}]], "Input"], Cell[BoxData[ FormBox["False", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", RowBox[{ RowBox[{"GAD", "[", RowBox[{ SubscriptBox["\[Nu]", "1"], ",", SubscriptBox["\[Nu]", "2"], ",", SubscriptBox["\[Nu]", "3"], ",", SubscriptBox["\[Nu]", "4"], ",", SubscriptBox["\[Nu]", "5"], ",", SubscriptBox["\[Nu]", "6"]}], "]"}], ".", RowBox[{"GA", "[", "5", "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "1"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "2"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "3"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "4"], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ SubscriptBox["\[Nu]", "5"], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ SubscriptBox["\[Nu]", "6"], "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", RowBox[{"GS", "[", RowBox[{"p", ",", "q", ",", "r", ",", "s"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], "-", RowBox[{ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], "+", RowBox[{ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["r", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"GS", "[", "p", "]"}], "+", "m"}], ")"}], ".", RowBox[{"GA", "[", "\[Mu]", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"GS", "[", "q", "]"}], "+", "m"}], ")"}], ".", RowBox[{"GA", "[", "\[Mu]", "]"}]}], ",", RowBox[{"Factoring", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["m", "2"]}], "-", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", RowBox[{ RowBox[{"GA", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", RowBox[{"FCE", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", SuperscriptBox["g", RowBox[{"\[Alpha]", "\[Beta]"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "InputForm"}]], "Input"], Cell[TextData["4*MT[\[Alpha], \[Beta]]"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Twist2GluonOperator", "Section", CellTags->"Twist2GluonOperator"], Cell[CellGroupData[{ Cell["Description", "Subsection"], 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"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Polarized case, zero-momentum insertion ", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"Twist2GluonOperator", ",", " ", RowBox[{"Polarization", " ", "->", " ", "1"}], ",", "\t", RowBox[{"Explicit", "->", "False"}], ",", " ", RowBox[{"ZeroMomentumInsertion", " ", "->", " ", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"Explicit", "\[Rule]", "False"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{"p", ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "b"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "-", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], 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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{"p", ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{"1", "-", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]], "TraditionalForm"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{"p", ",", RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"{", "\[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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{"p", ",", RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"{", "\[Nu]", "}"}], ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["3-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{"1", "-", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]"}], "}"}], ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "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"], FormBox["p", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "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"], FormBox["p", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "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"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["4-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]", ",", "d"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"]}], ")"}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c116", "TraditionalForm"], "TraditionalForm"]}]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c116", "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["c116", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c116", "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["c116", "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["c116", "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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]"}], "}"}], ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"m", "-", "2"}]]}], "-", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["s", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], 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[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["r", "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox["r", "TraditionalForm"], 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[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{ RowBox[{"-", "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"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{ RowBox[{"-", "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"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"j", "-", "i"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["s", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["s", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"j", "-", "i"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox["q", "TraditionalForm"], FormBox["s", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["s", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"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"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"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"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["q", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Unpolarized case, zero-momentum insertion", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"Twist2GluonOperator", ",", " ", RowBox[{"Polarization", " ", "->", " ", "0"}], ",", "\t ", " ", RowBox[{"ZeroMomentumInsertion", " ", "->", " ", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Polarization", "\[Rule]", "0"}], ",", RowBox[{"Explicit", "\[Rule]", "False"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{"p", ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "b"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"], "+", "1"}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], 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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{"p", ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"], "+", "1"}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{"p", ",", RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"{", "\[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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{"p", ",", RowBox[{"{", "\[Mu]", "}"}], ",", RowBox[{"{", "\[Nu]", "}"}], ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["3-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]"}], "}"}], ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "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"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "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"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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"], "\[CenterDot]", 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"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"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"], 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"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"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"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["4-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]", ",", "d"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"]}], ")"}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c117", "TraditionalForm"], "TraditionalForm"]}]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c117", "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["c117", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c117", "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["c117", "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["c117", "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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"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[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]"}], "}"}], ",", RowBox[{"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"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], 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"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], 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"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"m", "-", "2"}]]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{ RowBox[{"-", "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"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{ RowBox[{"-", "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"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "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"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"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"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"j", "-", "i"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"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"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"j", "-", "i"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Advanced Examples", "Subsection"], Cell["The setting All for Explicit performs the sums.", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Twist2GluonOperator", ",", " ", RowBox[{"Polarization", " ", "->", " ", "1"}], ",", " ", RowBox[{"Explicit", "->", "All"}]}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}]}], "]"}], ";"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Polarized case, non-zero-momentum insertion", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"Twist2GluonOperator", ",", " ", RowBox[{"Polarization", " ", "->", " ", "1"}], ",", RowBox[{"ZeroMomentumInsertion", "->", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"Explicit", "\[Rule]", "All"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "q"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "b"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["3-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], "m"]}], "+", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], "m"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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 ]] }, Open ]], Cell[CellGroupData[{ Cell["4-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]", ",", "d"}], "}"}], ",", "\t", RowBox[{"Explicit", "->", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"]}], ")"}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c118", "TraditionalForm"], "TraditionalForm"]}]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c118", "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["c118", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c118", "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["c118", "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["c118", "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 ]] }, Open ]], Cell[CellGroupData[{ Cell["Unpolarized case, non-zero-momentum insertion", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"Twist2GluonOperator", ",", " ", RowBox[{"Polarization", " ", "->", " ", "0"}], ",", RowBox[{"ZeroMomentumInsertion", "->", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Polarization", "\[Rule]", "0"}], ",", RowBox[{"Explicit", "\[Rule]", "All"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["2-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "q"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "b"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "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"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"], "+", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["3-gluon legs", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "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"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["q", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["\[Mu]", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["\[Mu]", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["\[Mu]", "TraditionalForm"]}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"], "+", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["\[Mu]", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]"}], "}"}], ",", RowBox[{"Explicit", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "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"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["q", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["\[Mu]", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["\[Mu]", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["\[Mu]", "TraditionalForm"]}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"], "+", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["\[Mu]", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]], "TraditionalForm"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["4-gluon legs", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]", ",", "d"}], "}"}], ",", "\t", RowBox[{"Explicit", "->", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"]}], ")"}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c119", "TraditionalForm"], "TraditionalForm"]}]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c119", "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["c119", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c119", "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["c119", "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["c119", "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[ RowBox[{"Short", "[", RowBox[{ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "\[Sigma]"}], "}"}], ",", RowBox[{"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"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], 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"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], 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"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"m", "-", "2"}]]}], "+", RowBox[{"\[LeftSkeleton]", "8", "\[RightSkeleton]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], ")"}], " ", RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], " ", RowBox[{"(", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "4"}]], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}], ")"}], RowBox[{"j", "-", "i"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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"], "\[CenterDot]", 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"], "\[CenterDot]", FormBox["s", "TraditionalForm"]}]}]}], ")"}]}]}], (Short[ #, 6]&)], TraditionalForm]], "Output"] }, Open ]], Cell["The setting Explicit -> All performs the sums.", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Twist2GluonOperator", ",", " ", RowBox[{"Polarization", " ", "->", " ", "1"}], ",", " ", RowBox[{"Explicit", "->", "All"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Short", "[", RowBox[{ RowBox[{"Twist2GluonOperator", "[", RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Rho]", ",", "c"}], "}"}]}], "]"}], ",", "5"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "2"}]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["r", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}], "i"]}]}], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{"\[LeftSkeleton]", "15", "\[RightSkeleton]"}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox["p", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], "m"]}], "+", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], ")"}], "m"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "m"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", 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 ]] }, Open ]], Cell[CellGroupData[{ Cell["Twist2QuarkOperator", "Section", CellTags->"Twist2QuarkOperator"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Twist2QuarkOperator[p] or Twist2QuarkOperator[p,_,_] yields the \ quark-antiquark operator (p is momentum in the direction of the incoming \ quark). Twist2QuarkOperator[{p,q}] yields the 2-quark operator for non-zero momentum \ insertion (p is momentum in the direction of the incoming quark). Twist2QuarkOperator[{p1,___}, {p2,___}, {p3, mu, a}] or Twist2QuarkOperator[p1,_,_, p2,_,_, p3,mu,a] is the quark-antiquark-gluon operator, where p1 is the incoming quark, p2 the incoming antiquark and p3 \ denotes the incoming gluon momentum. Twist2QuarkOperator[{p1}, {p2}, {p3, mu, a}, {p4, nu, b}] or Twist2QuarkOperator[{p1,___}, {p2,___}, {p3, mu, a}, {p4, nu, b}] or \ Twist2QuarkOperator[p1,_,_, p2,_,_, p3,mu,a, p4, nu, b] gives the \ Quark-Quark-Gluon-Gluon-operator. The setting of the option Polarization (unpolarized: 0; polarized: 1) \ determines whether the unpolarized or polarized operator is returned\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Twist2GluonOperator", ButtonData:>"Twist2GluonOperator", ButtonStyle->"Hyperlink", ButtonNote->"Twist2GluonOperator"], "." }], "Subsubsection"] }, Open ]], Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell["Polarized case, zero-momentum insertion", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"Twist2QuarkOperator", ",", RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}], ",", RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell["Quark-antiquark operator.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"Twist2QuarkOperator", "[", "p", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox["\[Gamma]", "5"]}], ")"}]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["Quark-antiquark-gluon operator.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Mu]", ",", "a"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SubscriptBox["g", "s"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox["\[Gamma]", "5"], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell["Quark-antiquark-gluon-gluon operator.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t3", "=", RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Nu]", ",", "b"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SubsuperscriptBox["g", "s", "2"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "3"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "j"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], RowBox[{"j", "-", "i"}]]}], "TraditionalForm"]}], ")"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"m", "-", "3"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "j"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "j"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "j"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], RowBox[{"j", "-", "i"}]]}], "TraditionalForm"]}], ")"}]}]}], ")"}]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Unpolarized case, zero-momentum insertion", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"Twist2QuarkOperator", ",", " ", RowBox[{"Polarization", "->", "0"}], ",", RowBox[{"ZeroMomentumInsertion", "->", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}], ",", RowBox[{"Polarization", "\[Rule]", "0"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell["Quark-antiquark operator.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t4", "=", RowBox[{"Twist2QuarkOperator", "[", "p", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["Quark-antiquark-gluon operator.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t5", "=", RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Mu]", ",", "a"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell["Quark-antiquark-gluon-gluon operator.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t6", "=", RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Nu]", ",", "b"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"]}], " ", SubsuperscriptBox["g", "s", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "i"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "j"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], RowBox[{"i", "-", "j"}]]}], "TraditionalForm"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "3"}]], "\<\"\"\>"}], HoldForm], "TraditionalForm"], FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "i"], "\<\"\"\>"}], "TraditionalForm"], FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], "j"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], RowBox[{"i", "-", "j"}]]}], "TraditionalForm"]}], ")"}]}]}], ")"}]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell["This shows the FeynCalcExternal (FCE) form.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Twist2QuarkOperator", "[", "p", "]"}], "//", "FCE"}], "//", "InputForm"}]], "Input"], Cell["GSD[OPEDelta]*SOD[p]^(-1 + OPEm)", "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"Explicit", "\[Rule]", "All"}], ",", RowBox[{"Polarization", "\[Rule]", "0"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SubscriptBox["g", "s"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]], RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]]}], RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}]]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Mu]", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Nu]", ",", "b"}], "}"}], ",", RowBox[{"Explicit", "\[Rule]", "All"}], ",", RowBox[{"Polarization", "\[Rule]", "0"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SubsuperscriptBox["g", "s", "2"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}]}]]}], "-", FractionBox[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]], "TraditionalForm"], RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}]}]], "+", FractionBox[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], RowBox[{"m", "-", "1"}]], "TraditionalForm"], RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}]}]]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], " ", SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]], "TraditionalForm"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}]}]]}], "-", FractionBox[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], ")"}], RowBox[{"m", "-", "1"}]], "TraditionalForm"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}]], "+", FractionBox[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}], RowBox[{"m", "-", "1"}]], "TraditionalForm"], RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["r", "TraditionalForm"]}]}], ")"}]}]]}], ")"}]}]}], ")"}]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Polarized case, non-zero momentum insertion", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"Twist2QuarkOperator", ",", RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}], ",", RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[ "With the setting ZeroMomentumInsertion \[Rule] False a non-zero momentum is \ assumed to flow into the operator vertex. "], "Text"], Cell["\<\ This is the Feynman rule associated with the quark-antiquark \ operator, where p is the momentum of the incoming quark and q the momentum of \ the antiquark. The momentum flowing into the operator vertex is thus \ -p-q.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"Twist2QuarkOperator", "[", RowBox[{"{", RowBox[{"p", ",", "q"}], "}"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "m"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], RowBox[{"m", "-", "1"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["This is the quark-antiquark-gluon operator vertex.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Mu]", ",", "a"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", "-", "m"}]], " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]}], ")"}], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], ")"}]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell["This shows the FeynCalcExternal form.", "Text"], Cell[CellGroupData[{ Cell["t2//FCE//InputForm", "Input"], Cell[TextData[ "2^(2 - OPEm)*Gstrong*SUNT[a] . GA[5] . GSD[OPEDelta]*\n FVD[OPEDelta, \ \[Mu]]*OPESum[(-SOD[k] + SOD[p] - SOD[q])^\n (-2 - OPEi + OPEm)*(SOD[k] + \ SOD[p] - SOD[q])^OPEi, \n {OPEi, 0, -2 + OPEm}]"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Unpolarized case, non-zero momentum insertion", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"Twist2QuarkOperator", ",", RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"CouplingConstant", "\[Rule]", SubscriptBox["g", "s"]}], ",", RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"Explicit", "\[Rule]", "True"}], ",", RowBox[{"Polarization", "\[Rule]", "1"}], ",", RowBox[{"ZeroMomentumInsertion", "\[Rule]", "False"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell["Quark-antiquark operator.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t4", "=", RowBox[{"Twist2QuarkOperator", "[", RowBox[{"{", RowBox[{"p", ",", "q"}], "}"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "m"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], RowBox[{"m", "-", "1"}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["Quark-antiquark-gluon operator.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t5", "=", RowBox[{"Twist2QuarkOperator", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{"{", "q", "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Mu]", ",", "a"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", "-", "m"}]], " ", SubscriptBox["g", "s"], " ", RowBox[{"(", RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["\[Gamma]", "5"], " ", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]}], ")"}], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"m", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], ")"}]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "-", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["k", "TraditionalForm"], "\[CenterDot]", FormBox["\[CapitalDelta]", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"t1", ",", "t2", ",", "t3", ",", "t4", ",", "t5"}], "]"}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Uncontract", "Section", CellTags->"Uncontract"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Uncontract[exp, q1, q2, ...] uncontracts Eps and DiracGamma. \ Uncontract[exp, q1, q2, Pair -> {p}] uncontracts also p.q1 and p.q2; the \ option Pair -> All uncontracts all momenta except OPEDelta.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Uncontract", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"Dimension", "\[Rule]", "D"}], ",", RowBox[{"DimensionalReduction", "\[Rule]", "False"}], ",", RowBox[{"Pair", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"Unique", "\[Rule]", "True"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["Contract", ButtonData:>"Contract", ButtonStyle->"Hyperlink", ButtonNote->"Contract"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", " ", "=", " ", RowBox[{ RowBox[{"LeviCivita", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"p", ",", "q"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox["p", "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Uncontract", "[", RowBox[{"t1", ",", " ", "p"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3219", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"], FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3219", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{"DiracSlash", "[", "p", "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[CenterDot]", FormBox["p", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Uncontract", "[", RowBox[{"t2", ",", " ", "p"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ RowBox[{"$AL$3220", "(", "1", ")"}], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3220", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Uncontract", "[", RowBox[{"t1", ",", " ", "p", ",", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3222", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3221", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3221", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3222", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell["By default scalar products are not uncontracted.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Uncontract", "[", RowBox[{ RowBox[{"ScalarProduct", "[", RowBox[{"p", ",", "q"}], "]"}], ",", " ", "q"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[CenterDot]", FormBox["q", "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[ "With the option Pair\[Rule]All they are \[OpenCurlyDoubleQuote]uncontracted \ \[CloseCurlyDoubleQuote]."], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Uncontract", "[", RowBox[{ RowBox[{"ScalarProduct", "[", RowBox[{"p", ",", "q"}], "]"}], ",", "q", ",", RowBox[{"Pair", "\[Rule]", "All"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3224", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3224", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Uncontract", "[", RowBox[{ RowBox[{ RowBox[{"ScalarProduct", "[", RowBox[{"p", ",", "q"}], "]"}], "^", "2"}], ",", "q", ",", RowBox[{"Pair", "\[Rule]", "All"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3225", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3225", "(", "1", ")"}], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3225", "(", "2", ")"}], "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox[ RowBox[{"$AL$3225", "(", "2", ")"}], "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"t1", ",", "t2"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["UnDeclareNonCommutative", "Section", CellTags->"UnDeclareNonCommutative"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ UnDeclareNonCommutative[a, b, ...] undeclares a,b, ... to be \ noncommutative, i.e., DataType[a,b, ..., NonCommutative] is set to \ False.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["DataType", ButtonData:>"DataType", ButtonStyle->"Hyperlink", ButtonNote->"DataType"], ", ", ButtonBox["DeclareNonCommutative", ButtonData:>"DeclareNonCommutative", ButtonStyle->"Hyperlink", ButtonNote->"DeclareNonCommutative"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[BoxData[ RowBox[{"DeclareNonCommutative", "[", "x", "]"}]], "Input"], Cell["\<\ As a side-effect of DeclareNonCommutative x is declared to be of \ DataType NonCommutative.\ \>", "Text"], Cell[CellGroupData[{ Cell["DataType[x,NonCommutative]", "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]], Cell["The inverse operation is UnDeclareNonCommutative.", "Text"], Cell[BoxData[ RowBox[{"UnDeclareNonCommutative", "[", "x", "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataType", "[", RowBox[{"x", ",", "NonCommutative"}], "]"}]], "Input"], Cell[BoxData[ FormBox["False", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"DeclareNonCommutative", "[", RowBox[{"y", ",", "z"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataType", "[", RowBox[{"y", ",", "z", ",", "NonCommutative"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"UnDeclareNonCommutative", "[", RowBox[{"y", ",", "z"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataType", "[", RowBox[{"y", ",", "z", ",", "NonCommutative"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Write2", "Section", CellTags->"Write2"], Cell[CellGroupData[{ Cell["Description", "Subsection"], Cell["\<\ Write2[file, val1 = expr1, val2 = expr2, ...] writes the settings \ val1 = expr1, val2 = expr2 in sequence followed by a newline, to the \ specified output file. Setting the option FormatType of Write2 to FortranForm \ results in FORTRAN syntax output.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Write2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"FinalSubstitutions", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"FormatType", "\[Rule]", "InputForm"}], ",", RowBox[{"D0Convention", "\[Rule]", "0"}], ",", RowBox[{"PageWidth", "\[Rule]", "65"}], ",", RowBox[{"PreFortranFile", "\[Rule]", "\<\"\"\>"}], ",", RowBox[{"PostFortranFile", "\[Rule]", "\<\"\"\>"}], ",", RowBox[{"StringReplace", "\[Rule]", RowBox[{"{", "}"}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Attributes", "[", "Write2", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"HoldRest", ",", "ReadProtected"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["Isolate", ButtonData:>"Isolate", ButtonStyle->"Hyperlink", ButtonNote->"Isolate"], ", ", ButtonBox["PaVeReduce", ButtonData:>"PaVeReduce", ButtonStyle->"Hyperlink", ButtonNote->"PaVeReduce"], "." }], "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b", "-", "c"}], ")"}], "^", "3"}], ",", "a", ",", "Factor"}], "]"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["a", "3"], "-", RowBox[{"3", " ", RowBox[{"(", RowBox[{"b", "+", "c"}], ")"}], " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "+", "c"}], ")"}], "2"], " ", "a"}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "+", "c"}], ")"}], "3"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tempfilename", "=", RowBox[{ RowBox[{"ToString", "[", "$SessionID", "]"}], "<>", "\"\<.s\>\""}]}]], "Input"], Cell[BoxData[ FormBox["\<\"20402343982247322360.s\"\>", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Write2", "[", RowBox[{"tempfilename", ",", RowBox[{"r", "=", "t"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"ReadList", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"$OperatingSystem", "===", "\"\\""}], ",", "\"\<:\>\"", ",", "\"\<\>\""}], "]"}], "<>", "tempfilename"}], ",", "String"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[GridBox[{ {"\<\"r = a^3 - 3*a^2*(b + c) + 3*a*(b + c)^2 - (b + c)^3\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"r = a^3 - 3*a^2*(b + c) + 3*a*(b + c)^2 - (b + c)^3"}]], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"DeleteFile", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"$OperatingSystem", "===", "\"\\""}], ",", "\"\<:\>\"", ",", "\"\<\>\""}], "]"}], "<>", "tempfilename"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tpol", "=", RowBox[{"x", "+", RowBox[{"Isolate", "[", RowBox[{"t", ",", "a"}], "]"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["a", "3"], "-", RowBox[{"3", " ", TagBox[ RowBox[{"KK", "(", "10", ")"}], HoldForm], " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", TagBox[ RowBox[{"KK", "(", "10", ")"}], HoldForm], ")"}], "2"], " ", "a"}], "-", SuperscriptBox[ RowBox[{"(", TagBox[ RowBox[{"KK", "(", "10", ")"}], HoldForm], ")"}], "3"], "+", "x"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KK", "[", "1", "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", "s"}], "+", SuperscriptBox[ FormBox[ SubscriptBox["p", "1"], "TraditionalForm"], "2"], "+", SuperscriptBox[ FormBox[ SubscriptBox["p", "2"], "TraditionalForm"], "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Write2", "[", RowBox[{"tempfilename", ",", RowBox[{"r", "=", "tpol"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"ReadList", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"$OperatingSystem", "===", "\"\\""}], ",", "\"\<:\>\"", ",", "\"\<\>\""}], "]"}], "<>", "tempfilename"}], ",", "String"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[GridBox[{ {"\<\"KK[10] = (b + c\"\>"}, {"\<\" );\"\>"}, { "\<\"r = ( a^3 + x - 3*a^2*HoldForm[KK[10]] + \ 3*a*HoldForm[KK[10]]^2 - \"\>"}, {"\<\" HoldForm[KK[10]]^3\"\>"}, {"\<\" );\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"KK[10] = (b + c", " );", "r = ( a^3 + x - 3*a^2*HoldForm[KK[10]] + 3*a*HoldForm[KK[10]]^2 - \ ", " HoldForm[KK[10]]^3", " );"}]], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"DeleteFile", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"$OperatingSystem", "===", "\"\\""}], ",", "\"\<:\>\"", ",", "\"\<\>\""}], "]"}], "<>", "tempfilename"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Write2", "[", RowBox[{"tempfilename", ",", RowBox[{"r", "=", "tpol"}], ",", RowBox[{"FormatType", "->", "FortranForm"}]}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"ReadList", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"$OperatingSystem", "===", "\"\\""}], ",", "\"\<:\>\"", ",", "\"\<\>\""}], "]"}], "<>", "tempfilename"}], ",", "String"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[GridBox[{ {"\<\" KK(10) = b + c\"\>"}, { "\<\" r = a**3 + x - 3*a**2*KK(10) + 3*a*KK(10)**2 - \ KK(10)**3\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {" KK(10) = b + c", " r = a**3 + x - 3*a**2*KK(10) + 3*a*KK(10)**2 - \ KK(10)**3"}]], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"DeleteFile", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"$OperatingSystem", "===", "\"\\""}], ",", "\"\<:\>\"", ",", "\"\<\>\""}], "]"}], "<>", "tempfilename"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Evaluation time and memory usage", "Section", CellTags->"Evaluation time and memory usage"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], "-", "absolutestarttime"}]], "Input"], Cell[BoxData[ FormBox["683.`8.554", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MemoryInUse", "[", "]"}]], "Input"], Cell[BoxData[ FormBox["10871956", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MaxMemoryUsed", "[", "]"}]], "Input"], Cell[BoxData[ FormBox["14925712", TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"X 3.0", ScreenRectangle->{{0, 1152}, {0, 864}}, WindowToolbars->{}, WindowSize->{531, 534}, WindowMargins->{{27, Automatic}, {106, Automatic}}, PrivateNotebookOptions->{"ShortBoxForm"->False}, TaggingRules:>{"MakeContentsNonDefaultOptions" -> {AutomaticCellTagging -> FromContent, PageNumbers -> False, SaveOptions -> True, SelectCellStyles -> {"Section"}, TOCCellStyles -> {"Index"}}}, StyleDefinitions -> "Default.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->{ "Short Overview"->{ Cell[50112, 1510, 87, 2, 54, "Section", PageBreakAbove->True, CellTags->"Short Overview"]}, "Load FeynCalc"->{ Cell[61133, 1838, 61, 1, 54, "Section", CellTags->"Load FeynCalc"]}, "A0"->{ Cell[62969, 1915, 63, 2, 54, "Section", PageBreakAbove->True, CellTags->"A0"]}, "Amplitudes"->{ Cell[66136, 2059, 55, 1, 54, "Section", CellTags->"Amplitudes"]}, "AnomalousDimension"->{ Cell[116360, 3307, 71, 1, 54, "Section", CellTags->"AnomalousDimension"]}, "Anti5"->{ Cell[158901, 4504, 45, 1, 54, "Section", CellTags->"Anti5"]}, "AntiCommutator"->{ Cell[165012, 4756, 63, 1, 54, "Section", CellTags->"AntiCommutator"]}, "AntiQuarkField"->{ Cell[170455, 4980, 63, 1, 54, "Section", CellTags->"AntiQuarkField"]}, "Apart1"->{ Cell[171354, 5027, 47, 1, 54, "Section", CellTags->"Apart1"]}, "Apart2"->{ Cell[174053, 5137, 47, 1, 54, "Section", CellTags->"Apart2"]}, "Apart3"->{ Cell[177957, 5275, 47, 1, 54, "Section", CellTags->"Apart3"]}, "B00"->{ Cell[190088, 5623, 41, 1, 54, "Section", CellTags->"B00"]}, "B0"->{ Cell[201131, 5984, 39, 1, 54, "Section", CellTags->"B0"]}, "B11"->{ Cell[204968, 6142, 41, 1, 54, "Section", CellTags->"B11"]}, "B1"->{ Cell[215424, 6501, 39, 1, 54, "Section", CellTags->"B1"]}, "BackgroundGluonVertex"->{ Cell[223386, 6792, 77, 1, 54, "Section", CellTags->"BackgroundGluonVertex"]}, "C0"->{ Cell[254831, 7630, 39, 1, 54, "Section", CellTags->"C0"]}, "Calc"->{ Cell[257521, 7739, 43, 1, 54, "Section", CellTags->"Calc"]}, "CA"->{ Cell[263844, 7984, 39, 1, 54, "Section", CellTags->"CA"]}, "Cases2"->{ Cell[264942, 8045, 47, 1, 54, "Section", CellTags->"Cases2"]}, "CF"->{ Cell[268349, 8172, 39, 1, 54, "Section", CellTags->"CF"]}, "ChangeDimension"->{ Cell[269866, 8252, 65, 1, 54, "Section", CellTags->"ChangeDimension"]}, "ChargeConjugationMatrixInv"->{ Cell[277409, 8555, 87, 1, 54, "Section", CellTags->"ChargeConjugationMatrixInv"]}, "ChargeConjugationMatrix"->{ Cell[280004, 8674, 81, 1, 54, "Section", CellTags->"ChargeConjugationMatrix"]}, "ChiralityProjector"->{ Cell[282149, 8772, 71, 1, 54, "Section", CellTags->"ChiralityProjector"]}, "Chisholm"->{ Cell[284701, 8883, 51, 1, 54, "Section", CellTags->"Chisholm"]}, "Collect2"->{ Cell[316867, 9839, 51, 1, 54, "Section", CellTags->"Collect2"]}, "Combine"->{ Cell[326715, 10172, 49, 1, 54, "Section", CellTags->"Combine"]}, "CommutatorExplicit"->{ Cell[329997, 10308, 71, 1, 54, "Section", CellTags->"CommutatorExplicit"]}, "Commutator"->{ Cell[332977, 10436, 55, 1, 54, "Section", CellTags->"Commutator"]}, "ComplexConjugate"->{ Cell[337356, 10604, 67, 1, 54, "Section", CellTags->"ComplexConjugate"]}, "ComplexIndex"->{ Cell[343393, 10837, 59, 1, 54, "Section", CellTags->"ComplexIndex"]}, "Contract"->{ Cell[345773, 10955, 51, 1, 54, "Section", CellTags->"Contract"]}, "Convolute"->{ Cell[359060, 11466, 53, 1, 54, "Section", CellTags->"Convolute"]}, "CovariantD"->{ Cell[375652, 12085, 55, 1, 54, "Section", CellTags->"CovariantD"]}, "D0"->{ Cell[407890, 12990, 39, 1, 54, "Section", CellTags->"D0"]}, "DataType"->{ Cell[411988, 13141, 51, 1, 54, "Section", CellTags->"DataType"]}, "DeclareNonCommutative"->{ Cell[420251, 13469, 77, 1, 54, "Section", CellTags->"DeclareNonCommutative"]}, "DeltaFunction"->{ Cell[422313, 13560, 61, 1, 54, "Section", CellTags->"DeltaFunction"]}, "DeltaFunctionPrime"->{ Cell[425117, 13680, 71, 1, 54, "Section", CellTags->"DeltaFunctionPrime"]}, "Dimension"->{ Cell[427192, 13771, 53, 1, 54, "Section", CellTags->"Dimension"]}, "DiracGammaCombine"->{ Cell[427569, 13789, 69, 1, 54, "Section", CellTags->"DiracGammaCombine"]}, "DiracGammaExpand"->{ Cell[430716, 13923, 67, 1, 54, "Section", CellTags->"DiracGammaExpand"]}, "DiracGamma"->{ Cell[435233, 14102, 55, 1, 54, "Section", CellTags->"DiracGamma"]}, "DiracGammaT"->{ Cell[444164, 14429, 57, 1, 54, "Section", CellTags->"DiracGammaT"]}, "DiracMatrix"->{ Cell[445690, 14502, 57, 1, 54, "Section", CellTags->"DiracMatrix"]}, "DiracOrder"->{ Cell[449918, 14686, 55, 1, 54, "Section", CellTags->"DiracOrder"]}, "DiracReduce"->{ Cell[456297, 14936, 57, 1, 54, "Section", CellTags->"DiracReduce"]}, "DiracSigmaExplicit"->{ Cell[463062, 15168, 71, 1, 54, "Section", CellTags->"DiracSigmaExplicit"]}, "DiracSigma"->{ Cell[464577, 15234, 55, 1, 54, "Section", CellTags->"DiracSigma"]}, "DiracSimplify"->{ Cell[467690, 15356, 61, 1, 54, "Section", CellTags->"DiracSimplify"]}, "DiracSimplify2"->{ Cell[495006, 16204, 63, 1, 54, "Section", CellTags->"DiracSimplify2"]}, "DiracSlash"->{ Cell[496835, 16275, 55, 1, 54, "Section", CellTags->"DiracSlash"]}, "DiracTrace"->{ Cell[501043, 16455, 55, 1, 54, "Section", CellTags->"DiracTrace"]}, "DiracTrick"->{ Cell[519320, 16997, 55, 1, 54, "Section", CellTags->"DiracTrick"]}, "DotSimplify"->{ Cell[544370, 17712, 57, 1, 54, "Section", CellTags->"DotSimplify"]}, "EpsChisholm"->{ Cell[551054, 17985, 57, 1, 54, "Section", CellTags->"EpsChisholm"]}, "EpsEvaluate"->{ Cell[553966, 18090, 57, 1, 54, "Section", CellTags->"EpsEvaluate"]}, "Epsilon"->{ Cell[557258, 18223, 49, 1, 54, "Section", CellTags->"Epsilon"]}, "Eps"->{ Cell[559006, 18302, 41, 1, 54, "Section", CellTags->"Eps"]}, "ExpandPartialD"->{ Cell[570018, 18702, 63, 1, 54, "Section", CellTags->"ExpandPartialD"]}, "ExpandScalarProduct"->{ Cell[583256, 19141, 73, 1, 54, "Section", CellTags->"ExpandScalarProduct"]}, "Explicit"->{ Cell[586837, 19297, 51, 1, 54, "Section", CellTags->"Explicit"]}, "ExplicitPartialD"->{ Cell[601528, 19768, 67, 1, 54, "Section", CellTags->"ExplicitPartialD"]}, "Factor2"->{ Cell[604911, 19898, 49, 1, 54, "Section", CellTags->"Factor2"]}, "FAD"->{ Cell[608654, 20058, 41, 1, 54, "Section", CellTags->"FAD"]}, "FCE"->{ Cell[613429, 20234, 41, 1, 54, "Section", CellTags->"FCE"]}, "FCI"->{ Cell[617771, 20404, 41, 1, 54, "Section", CellTags->"FCI"]}, "FermionSpinSum"->{ Cell[621473, 20546, 63, 1, 54, "Section", CellTags->"FermionSpinSum"]}, "FeynAmpDenominatorCombine"->{ Cell[627043, 20743, 85, 1, 54, "Section", CellTags->"FeynAmpDenominatorCombine"]}, "FeynAmpDenominator"->{ Cell[629331, 20834, 71, 1, 54, "Section", CellTags->"FeynAmpDenominator"]}, "FeynAmpDenominatorSimplify"->{ Cell[632008, 20944, 87, 1, 54, "Section", CellTags->"FeynAmpDenominatorSimplify"]}, "FeynAmpDenominatorSplit"->{ Cell[641168, 21261, 81, 1, 54, "Section", CellTags->"FeynAmpDenominatorSplit"]}, "FeynAmp"->{ Cell[644741, 21399, 49, 1, 54, "Section", CellTags->"FeynAmp"]}, "FeynCalc2FORM"->{ Cell[652895, 21640, 61, 1, 54, "Section", CellTags->"FeynCalc2FORM"]}, "FeynCalcExternal"->{ Cell[669824, 22174, 67, 1, 54, "Section", CellTags->"FeynCalcExternal"]}, "FeynCalcInternal"->{ Cell[673668, 22324, 67, 1, 54, "Section", CellTags->"FeynCalcInternal"]}, "FeynRule"->{ Cell[680365, 22560, 51, 1, 54, "Section", CellTags->"FeynRule"]}, "FieldStrength"->{ Cell[780133, 25412, 61, 1, 54, "Section", CellTags->"FieldStrength"]}, "FORM2FeynCalc"->{ Cell[789850, 25738, 61, 1, 54, "Section", CellTags->"FORM2FeynCalc"]}, "FourDivergence"->{ Cell[795295, 25944, 63, 1, 54, "Section", CellTags->"FourDivergence"]}, "FourLaplacian"->{ Cell[797546, 26045, 61, 1, 54, "Section", CellTags->"FourLaplacian"]}, "FourVector"->{ Cell[805468, 26310, 55, 1, 54, "Section", CellTags->"FourVector"]}, "FreeQ2"->{ Cell[808788, 26453, 47, 1, 54, "Section", CellTags->"FreeQ2"]}, "FromTFi"->{ Cell[810622, 26539, 49, 1, 54, "Section", CellTags->"FromTFi"]}, "FRH"->{ Cell[816636, 26740, 41, 1, 54, "Section", CellTags->"FRH"]}, "FunctionalD"->{ Cell[819465, 26859, 57, 1, 54, "Section", CellTags->"FunctionalD"]}, "FVD"->{ Cell[995725, 32145, 41, 1, 54, "Section", CellTags->"FVD"]}, "FV"->{ Cell[998702, 32283, 39, 1, 54, "Section", CellTags->"FV"]}, "GAD"->{ Cell[1001771, 32428, 41, 1, 54, "Section", CellTags->"GAD"]}, "GammaEpsilon"->{ Cell[1005066, 32563, 59, 1, 54, "Section", CellTags->"GammaEpsilon"]}, "GammaExpand"->{ Cell[1013333, 32826, 57, 1, 54, "Section", CellTags->"GammaExpand"]}, "GA"->{ Cell[1015735, 32925, 39, 1, 54, "Section", CellTags->"GA"]}, "GhostPropagator"->{ Cell[1019003, 33059, 65, 1, 54, "Section", CellTags->"GhostPropagator"]}, "GHP"->{ Cell[1021779, 33175, 41, 1, 54, "Section", CellTags->"GHP"]}, "GluonField"->{ Cell[1024492, 33291, 55, 1, 54, "Section", CellTags->"GluonField"]}, "GluonGhostVertex"->{ Cell[1025960, 33360, 67, 1, 54, "Section", CellTags->"GluonGhostVertex"]}, "GluonPropagator"->{ Cell[1029465, 33496, 65, 1, 54, "Section", CellTags->"GluonPropagator"]}, "GluonVertex"->{ Cell[1053930, 34221, 57, 1, 54, "Section", CellTags->"GluonVertex"]}, "GSD"->{ Cell[1086718, 35180, 41, 1, 54, "Section", CellTags->"GSD"]}, "GS"->{ Cell[1089834, 35308, 39, 1, 54, "Section", CellTags->"GS"]}, "Hill"->{ Cell[1092923, 35436, 43, 1, 54, "Section", CellTags->"Hill"]}, "HypergeometricAC"->{ Cell[1098496, 35627, 67, 1, 54, "Section", CellTags->"HypergeometricAC"]}, "HypergeometricIR"->{ Cell[1115705, 36108, 67, 1, 54, "Section", CellTags->"HypergeometricIR"]}, "HypergeometricSE"->{ Cell[1120030, 36267, 67, 1, 54, "Section", CellTags->"HypergeometricSE"]}, "HypExplicit"->{ Cell[1123354, 36376, 57, 1, 54, "Section", CellTags->"HypExplicit"]}, "Integrate2"->{ Cell[1128127, 36536, 55, 1, 54, "Section", CellTags->"Integrate2"]}, "Integrate3"->{ Cell[1159686, 37520, 55, 1, 54, "Section", CellTags->"Integrate3"]}, "IntegrateByParts"->{ Cell[1163189, 37662, 67, 1, 54, "Section", CellTags->"IntegrateByParts"]}, "InverseMellin"->{ Cell[1165202, 37740, 61, 1, 54, "Section", CellTags->"InverseMellin"]}, "Isolate"->{ Cell[1197657, 38880, 49, 1, 54, "Section", CellTags->"Isolate"]}, "Kummer"->{ Cell[1204182, 39121, 47, 1, 54, "Section", CellTags->"Kummer"]}, "Lagrangian"->{ Cell[1289354, 41648, 55, 1, 54, "Section", CellTags->"Lagrangian"]}, "LCD"->{ Cell[1294544, 41832, 41, 1, 54, "Section", CellTags->"LCD"]}, "LC"->{ Cell[1298592, 42003, 39, 1, 54, "Section", CellTags->"LC"]}, "LeftPartialD"->{ Cell[1301808, 42143, 59, 1, 54, "Section", CellTags->"LeftPartialD"]}, "LeftRightPartialD"->{ Cell[1306653, 42330, 69, 1, 54, "Section", CellTags->"LeftRightPartialD"]}, "LeftRightPartialD2"->{ Cell[1312929, 42556, 71, 1, 54, "Section", CellTags->"LeftRightPartialD2"]}, "LeviCivita"->{ Cell[1318523, 42765, 56, 1, 54, "Section", CellTags->"LeviCivita"]}, "LorentzIndex"->{ Cell[1326000, 43047, 59, 1, 54, "Section", CellTags->"LorentzIndex"]}, "Map2"->{ Cell[1328755, 43173, 43, 1, 54, "Section", CellTags->"Map2"]}, "MetricTensor"->{ Cell[1330397, 43257, 59, 1, 54, "Section", CellTags->"MetricTensor"]}, "MomentumCombine"->{ Cell[1333615, 43405, 65, 1, 54, "Section", CellTags->"MomentumCombine"]}, "MomentumExpand"->{ Cell[1337012, 43549, 63, 1, 54, "Section", CellTags->"MomentumExpand"]}, "Momentum"->{ Cell[1340583, 43704, 51, 1, 54, "Section", CellTags->"Momentum"]}, "MTD"->{ Cell[1344086, 43870, 41, 1, 54, "Section", CellTags->"MTD"]}, "MT"->{ Cell[1346481, 43982, 39, 1, 54, "Section", CellTags->"MT"]}, "Nielsen"->{ Cell[1348752, 44090, 49, 1, 54, "Section", CellTags->"Nielsen"]}, "NTerms"->{ Cell[1354049, 44290, 47, 1, 54, "Section", CellTags->"NTerms"]}, "OneLoop"->{ Cell[1355109, 44349, 49, 1, 54, "Section", CellTags->"OneLoop"]}, "OneLoopSimplify"->{ Cell[1363353, 44603, 65, 1, 54, "Section", CellTags->"OneLoopSimplify"]}, "OPEDelta"->{ Cell[1391546, 45447, 51, 1, 54, "Section", CellTags->"OPEDelta"]}, "OPEi"->{ Cell[1392885, 45515, 129, 1, 54, "Section", CellTags->{"OPEi", "OPEj", "OPEk", "OPEl", "OPEm", "OPEn", "OPEo"}]}, "OPEj"->{ Cell[1392885, 45515, 129, 1, 54, "Section", CellTags->{"OPEi", "OPEj", "OPEk", "OPEl", "OPEm", "OPEn", "OPEo"}]}, "OPEk"->{ Cell[1392885, 45515, 129, 1, 54, "Section", CellTags->{"OPEi", "OPEj", "OPEk", "OPEl", "OPEm", "OPEn", "OPEo"}]}, "OPEl"->{ Cell[1392885, 45515, 129, 1, 54, "Section", CellTags->{"OPEi", "OPEj", "OPEk", "OPEl", "OPEm", "OPEn", "OPEo"}]}, "OPEm"->{ Cell[1392885, 45515, 129, 1, 54, "Section", CellTags->{"OPEi", "OPEj", "OPEk", "OPEl", "OPEm", "OPEn", "OPEo"}]}, "OPEn"->{ Cell[1392885, 45515, 129, 1, 54, "Section", CellTags->{"OPEi", "OPEj", "OPEk", "OPEl", "OPEm", "OPEn", "OPEo"}]}, "OPEo"->{ Cell[1392885, 45515, 129, 1, 54, "Section", CellTags->{"OPEi", "OPEj", "OPEk", "OPEl", "OPEm", "OPEn", "OPEo"}]}, "OPESumExplicit"->{ Cell[1398292, 45714, 63, 1, 54, "Section", CellTags->"OPESumExplicit"]}, "OPESum"->{ Cell[1404731, 45940, 47, 1, 54, "Section", CellTags->"OPESum"]}, "OPESumSimplify"->{ Cell[1413585, 46231, 63, 1, 54, "Section", CellTags->"OPESumSimplify"]}, "Pair"->{ Cell[1419061, 46423, 43, 1, 54, "Section", CellTags->"Pair"]}, "PartialD"->{ Cell[1425883, 46702, 51, 1, 54, "Section", CellTags->"PartialD"]}, "PaVe"->{ Cell[1428541, 46812, 43, 1, 54, "Section", CellTags->"PaVe"]}, "PaVeOrder"->{ Cell[1433117, 46954, 53, 1, 54, "Section", CellTags->"PaVeOrder"]}, "PaVeReduce"->{ Cell[1437059, 47086, 55, 1, 54, "Section", CellTags->"PaVeReduce"]}, "PlusDistribution"->{ Cell[1448042, 47415, 67, 1, 54, "Section", CellTags->"PlusDistribution"]}, "Polarization"->{ Cell[1451634, 47562, 59, 1, 54, "Section", CellTags->"Polarization"]}, "PolarizationSum"->{ Cell[1454948, 47695, 65, 1, 54, "Section", CellTags->"PolarizationSum"]}, "PolarizationVector"->{ Cell[1466021, 48062, 71, 1, 54, "Section", CellTags->"PolarizationVector"]}, "PowerSimplify"->{ Cell[1470773, 48258, 61, 1, 54, "Section", CellTags->"PowerSimplify"]}, "PropagatorDenominatorExplicit"->{ Cell[1473026, 48357, 93, 1, 54, "Section", CellTags->"PropagatorDenominatorExplicit"]}, "PropagatorDenominator"->{ Cell[1475952, 48470, 77, 1, 54, "Section", CellTags->"PropagatorDenominator"]}, "QuantumField"->{ Cell[1479118, 48604, 59, 1, 54, "Section", CellTags->"QuantumField"]}, "QuarkField"->{ Cell[1486173, 48892, 55, 1, 54, "Section", CellTags->"QuarkField"]}, "QuarkGluonVertex"->{ Cell[1487040, 48937, 67, 1, 54, "Section", CellTags->"QuarkGluonVertex"]}, "QuarkPropagator"->{ Cell[1494790, 49193, 65, 1, 54, "Section", CellTags->"QuarkPropagator"]}, "RightPartialD"->{ Cell[1497664, 49307, 61, 1, 54, "Section", CellTags->"RightPartialD"]}, "RussianTrick"->{ Cell[1500369, 49427, 59, 1, 54, "Section", CellTags->"RussianTrick"]}, "ScalarProduct"->{ Cell[1517090, 49939, 61, 1, 54, "Section", CellTags->"ScalarProduct"]}, "ScalarProductCancel"->{ Cell[1522882, 50172, 73, 1, 54, "Section", CellTags->"ScalarProductCancel"]}, "SD"->{ Cell[1535377, 50587, 39, 1, 54, "Section", CellTags->"SD"]}, "SelectFree"->{ Cell[1536552, 50649, 55, 1, 54, "Section", CellTags->"SelectFree"]}, "SelectNotFree"->{ Cell[1539090, 50769, 61, 1, 54, "Section", CellTags->"SelectNotFree"]}, "Series2"->{ Cell[1541870, 50897, 49, 1, 54, "Section", CellTags->"Series2"]}, "SimplifyDeltaFunction"->{ Cell[1556455, 51367, 77, 1, 54, "Section", CellTags->"SimplifyDeltaFunction"]}, "SimplifyPolyLog"->{ Cell[1563556, 51642, 65, 1, 54, "Section", CellTags->"SimplifyPolyLog"]}, "SOD"->{ Cell[1580638, 52240, 41, 1, 54, "Section", CellTags->"SOD"]}, "Solve2"->{ Cell[1582696, 52336, 47, 1, 54, "Section", CellTags->"Solve2"]}, "SO"->{ Cell[1587042, 52501, 39, 1, 54, "Section", CellTags->"SO"]}, "SPD"->{ Cell[1589170, 52601, 41, 1, 54, "Section", CellTags->"SPD"]}, "Spinor"->{ Cell[1593694, 52795, 47, 1, 54, "Section", CellTags->"Spinor"]}, "SpinorUBar"->{ Cell[1597250, 52950, 55, 1, 54, "Section", CellTags->"SpinorUBar"]}, "SpinorU"->{ Cell[1599591, 53064, 49, 1, 54, "Section", CellTags->"SpinorU"]}, "SpinorVBar"->{ Cell[1601577, 53163, 55, 1, 54, "Section", CellTags->"SpinorVBar"]}, "SpinorV"->{ Cell[1603862, 53275, 49, 1, 54, "Section", CellTags->"SpinorV"]}, "SplittingFunction"->{ Cell[1605850, 53374, 69, 1, 54, "Section", CellTags->"SplittingFunction"]}, "SP"->{ Cell[1645790, 54552, 39, 1, 54, "Section", CellTags->"SP"]}, "SumP"->{ Cell[1649951, 54732, 43, 1, 54, "Section", CellTags->"SumP"]}, "SumS"->{ Cell[1654198, 54909, 43, 1, 54, "Section", CellTags->"SumS"]}, "SumT"->{ Cell[1660804, 55193, 43, 1, 54, "Section", CellTags->"SumT"]}, "SUNDelta"->{ Cell[1668535, 55516, 51, 1, 54, "Section", CellTags->"SUNDelta"]}, "SUND"->{ Cell[1671759, 55667, 43, 1, 54, "Section", CellTags->"SUND"]}, "SUNF"->{ Cell[1677994, 55915, 43, 1, 54, "Section", CellTags->"SUNF"]}, "SUNIndex"->{ Cell[1688741, 56319, 51, 1, 54, "Section", CellTags->"SUNIndex"]}, "SUNSimplify"->{ Cell[1689733, 56373, 57, 1, 54, "Section", CellTags->"SUNSimplify"]}, "SUNT"->{ Cell[1707433, 57016, 43, 1, 54, "Section", CellTags->"SUNT"]}, "SUNTrace"->{ Cell[1714620, 57322, 51, 1, 54, "Section", CellTags->"SUNTrace"]}, "Symmetrize"->{ Cell[1746531, 58297, 55, 1, 54, "Section", CellTags->"Symmetrize"]}, "Tdec"->{ Cell[1748518, 58372, 43, 1, 54, "Section", CellTags->"Tdec"]}, "Tensorfunction"->{ Cell[1768173, 58954, 63, 1, 54, "Section", CellTags->"Tensorfunction"]}, "TFi"->{ Cell[1772355, 59127, 41, 1, 54, "Section", CellTags->"TFi"]}, "TIDL"->{ Cell[1776943, 59291, 43, 1, 54, "Section", CellTags->"TIDL"]}, "TID"->{ Cell[1845483, 61105, 41, 1, 54, "Section", CellTags->"TID"]}, "ToDistribution"->{ Cell[1863819, 61629, 63, 1, 54, "Section", CellTags->"ToDistribution"]}, "ToHypergeometric"->{ Cell[1871683, 61906, 67, 1, 54, "Section", CellTags->"ToHypergeometric"]}, "ToLarin"->{ Cell[1879881, 62173, 49, 1, 54, "Section", CellTags->"ToLarin"]}, "ToTFi"->{ Cell[1882461, 62272, 45, 1, 54, "Section", CellTags->"ToTFi"]}, "TrickMandelstam"->{ Cell[1890880, 62549, 65, 1, 54, "Section", CellTags->"TrickMandelstam"]}, "Trick"->{ Cell[1893954, 62663, 45, 1, 54, "Section", CellTags->"Trick"]}, "Tr"->{ Cell[1898227, 62838, 39, 1, 54, "Section", CellTags->"Tr"]}, "Twist2GluonOperator"->{ Cell[1932916, 63866, 73, 1, 54, "Section", CellTags->"Twist2GluonOperator"]}, "Twist2QuarkOperator"->{ Cell[2247270, 71801, 73, 1, 54, "Section", CellTags->"Twist2QuarkOperator"]}, "Uncontract"->{ Cell[2301685, 73202, 55, 1, 54, "Section", CellTags->"Uncontract"]}, "UnDeclareNonCommutative"->{ Cell[2309604, 73503, 81, 1, 54, "Section", CellTags->"UnDeclareNonCommutative"]}, "Write2"->{ Cell[2311831, 73603, 47, 1, 54, "Section", CellTags->"Write2"]}, "Evaluation time and memory usage"->{ Cell[2320156, 73899, 99, 1, 54, "Section", CellTags->"Evaluation time and memory usage"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Short Overview", 2321729, 73954}, {"Load FeynCalc", 2321858, 73958}, {"A0", 2321947, 73961}, {"Amplitudes", 2322061, 73965}, {"AnomalousDimension", 2322163, 73968}, {"Anti5", 2322261, 73971}, {"AntiCommutator", 2322355, 73974}, {"AntiQuarkField", 2322458, 73977}, {"Apart1", 2322553, 73980}, {"Apart2", 2322640, 73983}, {"Apart3", 2322727, 73986}, {"B00", 2322811, 73989}, {"B0", 2322891, 73992}, {"B11", 2322971, 73995}, {"B1", 2323051, 73998}, {"BackgroundGluonVertex", 2323149, 74001}, {"C0", 2323247, 74004}, {"Calc", 2323328, 74007}, {"CA", 2323409, 74010}, {"Cases2", 2323492, 74013}, {"CF", 2323575, 74016}, {"ChangeDimension", 2323667, 74019}, {"ChargeConjugationMatrixInv", 2323783, 74022}, {"ChargeConjugationMatrix", 2323907, 74025}, {"ChiralityProjector", 2324023, 74028}, {"Chisholm", 2324124, 74031}, {"Collect2", 2324215, 74034}, {"Combine", 2324305, 74037}, {"CommutatorExplicit", 2324406, 74040}, {"Commutator", 2324510, 74043}, {"ComplexConjugate", 2324612, 74046}, {"ComplexIndex", 2324716, 74049}, {"Contract", 2324812, 74052}, {"Convolute", 2324905, 74055}, {"CovariantD", 2325000, 74058}, {"D0", 2325088, 74061}, {"DataType", 2325174, 74064}, {"DeclareNonCommutative", 2325279, 74067}, {"DeltaFunction", 2325389, 74070}, {"DeltaFunctionPrime", 2325496, 74073}, {"Dimension", 2325599, 74076}, {"DiracGammaCombine", 2325701, 74079}, {"DiracGammaExpand", 2325810, 74082}, {"DiracGamma", 2325912, 74085}, {"DiracGammaT", 2326009, 74088}, {"DiracMatrix", 2326107, 74091}, {"DiracOrder", 2326204, 74094}, {"DiracReduce", 2326301, 74097}, {"DiracSigmaExplicit", 2326406, 74100}, {"DiracSigma", 2326510, 74103}, {"DiracSimplify", 2326609, 74106}, {"DiracSimplify2", 2326712, 74109}, {"DiracSlash", 2326812, 74112}, {"DiracTrace", 2326908, 74115}, {"DiracTrick", 2327004, 74118}, {"DotSimplify", 2327101, 74121}, {"EpsChisholm", 2327199, 74124}, {"EpsEvaluate", 2327297, 74127}, {"Epsilon", 2327391, 74130}, {"Eps", 2327477, 74133}, {"ExpandPartialD", 2327570, 74136}, {"ExpandScalarProduct", 2327679, 74139}, {"Explicit", 2327782, 74142}, {"ExplicitPartialD", 2327882, 74145}, {"Factor2", 2327981, 74148}, {"FAD", 2328067, 74151}, {"FCE", 2328149, 74154}, {"FCI", 2328231, 74157}, {"FermionSpinSum", 2328324, 74160}, {"FeynAmpDenominatorCombine", 2328439, 74163}, {"FeynAmpDenominator", 2328558, 74166}, {"FeynAmpDenominatorSimplify", 2328678, 74169}, {"FeynAmpDenominatorSplit", 2328803, 74172}, {"FeynAmp", 2328909, 74175}, {"FeynCalc2FORM", 2329005, 74178}, {"FeynCalcExternal", 2329110, 74181}, {"FeynCalcInternal", 2329218, 74184}, {"FeynRule", 2329318, 74187}, {"FieldStrength", 2329415, 74190}, {"FORM2FeynCalc", 2329517, 74193}, {"FourDivergence", 2329620, 74196}, {"FourLaplacian", 2329723, 74199}, {"FourVector", 2329822, 74202}, {"FreeQ2", 2329914, 74205}, {"FromTFi", 2330003, 74208}, {"FRH", 2330089, 74211}, {"FunctionalD", 2330179, 74214}, {"FVD", 2330269, 74217}, {"FV", 2330350, 74220}, {"GAD", 2330431, 74223}, {"GammaEpsilon", 2330523, 74226}, {"GammaExpand", 2330623, 74229}, {"GA", 2330713, 74232}, {"GhostPropagator", 2330807, 74235}, {"GHP", 2330902, 74238}, {"GluonField", 2330992, 74241}, {"GluonGhostVertex", 2331095, 74244}, {"GluonPropagator", 2331203, 74247}, {"GluonVertex", 2331306, 74250}, {"GSD", 2331397, 74253}, {"GS", 2331479, 74256}, {"Hill", 2331562, 74259}, {"HypergeometricAC", 2331659, 74262}, {"HypergeometricIR", 2331768, 74265}, {"HypergeometricSE", 2331877, 74268}, {"HypExplicit", 2331981, 74271}, {"Integrate2", 2332079, 74274}, {"Integrate3", 2332176, 74277}, {"IntegrateByParts", 2332279, 74280}, {"InverseMellin", 2332385, 74283}, {"Isolate", 2332482, 74286}, {"Kummer", 2332572, 74289}, {"Lagrangian", 2332665, 74292}, {"LCD", 2332755, 74295}, {"LC", 2332837, 74298}, {"LeftPartialD", 2332928, 74301}, {"LeftRightPartialD", 2333034, 74304}, {"LeftRightPartialD2", 2333146, 74307}, {"LeviCivita", 2333251, 74310}, {"LorentzIndex", 2333350, 74313}, {"Map2", 2333443, 74316}, {"MetricTensor", 2333536, 74319}, {"MomentumCombine", 2333640, 74322}, {"MomentumExpand", 2333746, 74325}, {"Momentum", 2333845, 74328}, {"MTD", 2333933, 74331}, {"MT", 2334015, 74334}, {"Nielsen", 2334101, 74337}, {"NTerms", 2334191, 74340}, {"OneLoop", 2334281, 74343}, {"OneLoopSimplify", 2334380, 74346}, {"OPEDelta", 2334480, 74349}, {"OPEi", 2334569, 74352}, {"OPEj", 2334705, 74355}, {"OPEk", 2334841, 74358}, {"OPEl", 2334977, 74361}, {"OPEm", 2335113, 74364}, {"OPEn", 2335249, 74367}, {"OPEo", 2335385, 74370}, {"OPESumExplicit", 2335531, 74373}, {"OPESum", 2335628, 74376}, {"OPESumSimplify", 2335725, 74379}, {"Pair", 2335820, 74382}, {"PartialD", 2335909, 74385}, {"PaVe", 2335998, 74388}, {"PaVeOrder", 2336088, 74391}, {"PaVeReduce", 2336184, 74394}, {"PlusDistribution", 2336287, 74397}, {"Polarization", 2336392, 74400}, {"PolarizationSum", 2336496, 74403}, {"PolarizationVector", 2336606, 74406}, {"PowerSimplify", 2336714, 74409}, {"PropagatorDenominatorExplicit", 2336833, 74412}, {"PropagatorDenominator", 2336960, 74415}, {"QuantumField", 2337070, 74418}, {"QuarkField", 2337169, 74421}, {"QuarkGluonVertex", 2337272, 74424}, {"QuarkPropagator", 2337380, 74427}, {"RightPartialD", 2337485, 74430}, {"RussianTrick", 2337587, 74433}, {"ScalarProduct", 2337689, 74436}, {"ScalarProductCancel", 2337798, 74439}, {"SD", 2337896, 74442}, {"SelectFree", 2337985, 74445}, {"SelectNotFree", 2338085, 74448}, {"Series2", 2338182, 74451}, {"SimplifyDeltaFunction", 2338287, 74454}, {"SimplifyPolyLog", 2338400, 74457}, {"SOD", 2338495, 74460}, {"Solve2", 2338581, 74463}, {"SO", 2338666, 74466}, {"SPD", 2338748, 74469}, {"Spinor", 2338834, 74472}, {"SpinorUBar", 2338927, 74475}, {"SpinorU", 2339021, 74478}, {"SpinorVBar", 2339115, 74481}, {"SpinorV", 2339209, 74484}, {"SplittingFunction", 2339310, 74487}, {"SP", 2339406, 74490}, {"SumP", 2339489, 74493}, {"SumS", 2339574, 74496}, {"SumT", 2339659, 74499}, {"SUNDelta", 2339748, 74502}, {"SUND", 2339837, 74505}, {"SUNF", 2339922, 74508}, {"SUNIndex", 2340011, 74511}, {"SUNSimplify", 2340107, 74514}, {"SUNT", 2340199, 74517}, {"SUNTrace", 2340288, 74520}, {"Symmetrize", 2340383, 74523}, {"Tdec", 2340474, 74526}, {"Tensorfunction", 2340569, 74529}, {"TFi", 2340663, 74532}, {"TIDL", 2340747, 74535}, {"TID", 2340831, 74538}, {"ToDistribution", 2340925, 74541}, {"ToHypergeometric", 2341032, 74544}, {"ToLarin", 2341132, 74547}, {"ToTFi", 2341221, 74550}, {"TrickMandelstam", 2341318, 74553}, {"Trick", 2341415, 74556}, {"Tr", 2341499, 74559}, {"Twist2GluonOperator", 2341597, 74562}, {"Twist2QuarkOperator", 2341712, 74565}, {"Uncontract", 2341818, 74568}, {"UnDeclareNonCommutative", 2341928, 74571}, {"Write2", 2342034, 74574}, {"Evaluation time and memory usage", 2342149, 74577} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1731, 51, 61, 1, 107, "Title"], Cell[1795, 54, 83, 1, 64, "Subtitle"], Cell[1881, 57, 59, 1, 53, "Subsubtitle"], Cell[1943, 60, 64, 1, 53, "Subsubtitle"], Cell[2010, 63, 292, 8, 125, "Subsubtitle"], Cell[2305, 73, 167, 4, 53, "Subsubtitle", PageBreakBelow->True], Cell[CellGroupData[{ Cell[2497, 81, 36, 0, 54, "Section"], Cell[2536, 83, 287, 6, 86, "Text"], Cell[2826, 91, 238, 5, 18, "Text"], Cell[3067, 98, 236, 5, 18, "Text"], Cell[3306, 105, 214, 5, 18, "Text"], Cell[3523, 112, 230, 5, 18, "Text"], Cell[3756, 119, 246, 5, 18, "Text"], Cell[4005, 126, 218, 5, 18, "Text"], Cell[4226, 133, 238, 5, 18, "Text"], Cell[4467, 140, 238, 5, 18, "Text"], Cell[4708, 147, 222, 5, 18, "Text"], Cell[4933, 154, 222, 5, 18, "Text"], Cell[5158, 161, 222, 5, 18, "Text"], Cell[5383, 168, 216, 5, 18, "Text"], Cell[5602, 175, 214, 5, 18, "Text"], Cell[5819, 182, 216, 5, 18, "Text"], Cell[6038, 189, 214, 5, 18, "Text"], Cell[6255, 196, 255, 6, 18, "Text"], Cell[6513, 204, 214, 5, 18, "Text"], Cell[6730, 211, 218, 5, 18, "Text"], Cell[6951, 218, 214, 5, 18, "Text"], Cell[7168, 225, 222, 5, 18, "Text"], Cell[7393, 232, 214, 5, 18, "Text"], Cell[7610, 239, 240, 5, 18, "Text"], Cell[7853, 246, 262, 5, 18, "Text"], Cell[8118, 253, 256, 5, 18, "Text"], Cell[8377, 260, 246, 5, 18, "Text"], Cell[8626, 267, 226, 5, 18, "Text"], Cell[8855, 274, 226, 5, 18, "Text"], Cell[9084, 281, 224, 5, 18, "Text"], Cell[9311, 288, 246, 5, 18, "Text"], Cell[9560, 295, 230, 5, 18, "Text"], Cell[9793, 302, 242, 5, 18, "Text"], Cell[10038, 309, 234, 5, 18, "Text"], Cell[10275, 316, 226, 5, 18, "Text"], Cell[10504, 323, 228, 5, 18, "Text"], Cell[10735, 330, 230, 5, 18, "Text"], Cell[10968, 337, 214, 5, 18, "Text"], Cell[11185, 344, 226, 5, 18, "Text"], Cell[11414, 351, 252, 5, 18, "Text"], Cell[11669, 358, 236, 5, 18, "Text"], Cell[11908, 365, 246, 5, 18, "Text"], Cell[12157, 372, 228, 5, 18, "Text"], Cell[12388, 379, 244, 5, 18, "Text"], Cell[12635, 386, 242, 5, 18, "Text"], Cell[12880, 393, 230, 5, 18, "Text"], Cell[13113, 400, 232, 5, 18, "Text"], Cell[13348, 407, 235, 6, 18, "Text"], Cell[13586, 415, 230, 5, 18, "Text"], Cell[13819, 422, 232, 5, 18, "Text"], Cell[14054, 429, 246, 5, 18, "Text"], Cell[14303, 436, 230, 5, 18, "Text"], Cell[14536, 443, 236, 5, 18, "Text"], Cell[14775, 450, 238, 5, 18, "Text"], Cell[15016, 457, 230, 5, 18, "Text"], Cell[15249, 464, 230, 5, 18, "Text"], Cell[15482, 471, 230, 5, 18, "Text"], Cell[15715, 478, 232, 5, 18, "Text"], Cell[15950, 485, 232, 5, 18, "Text"], Cell[16185, 492, 232, 5, 18, "Text"], Cell[16420, 499, 224, 5, 18, "Text"], Cell[16647, 506, 216, 5, 18, "Text"], Cell[16866, 513, 238, 5, 18, "Text"], Cell[17107, 520, 248, 5, 18, "Text"], Cell[17358, 527, 226, 5, 18, "Text"], Cell[17587, 534, 242, 5, 18, "Text"], Cell[17832, 541, 224, 5, 18, "Text"], Cell[18059, 548, 216, 5, 18, "Text"], Cell[18278, 555, 216, 5, 18, "Text"], Cell[18497, 562, 216, 5, 18, "Text"], Cell[18716, 569, 238, 5, 18, "Text"], Cell[18957, 576, 260, 5, 18, "Text"], Cell[19220, 583, 246, 5, 18, "Text"], Cell[19469, 590, 262, 5, 18, "Text"], Cell[19734, 597, 256, 5, 18, "Text"], Cell[19993, 604, 224, 5, 18, "Text"], Cell[20220, 611, 236, 5, 18, "Text"], Cell[20459, 618, 242, 5, 18, "Text"], Cell[20704, 625, 242, 5, 18, "Text"], Cell[20949, 632, 226, 5, 18, "Text"], Cell[21178, 639, 236, 5, 18, "Text"], Cell[21417, 646, 236, 5, 18, "Text"], Cell[21656, 653, 238, 5, 18, "Text"], Cell[21897, 660, 236, 5, 18, "Text"], Cell[22136, 667, 230, 5, 18, "Text"], Cell[22369, 674, 222, 5, 18, "Text"], Cell[22594, 681, 224, 5, 18, "Text"], Cell[22821, 688, 216, 5, 18, "Text"], Cell[23040, 695, 232, 5, 18, "Text"], Cell[23275, 702, 216, 5, 18, "Text"], Cell[23494, 709, 214, 5, 18, "Text"], Cell[23711, 716, 216, 5, 18, "Text"], Cell[23930, 723, 234, 5, 18, "Text"], Cell[24167, 730, 232, 5, 18, "Text"], Cell[24402, 737, 214, 5, 18, "Text"], Cell[24619, 744, 240, 5, 18, "Text"], Cell[24862, 751, 216, 5, 18, "Text"], Cell[25081, 758, 230, 5, 18, "Text"], Cell[25314, 765, 242, 5, 18, "Text"], Cell[25559, 772, 240, 5, 18, "Text"], Cell[25802, 779, 232, 5, 18, "Text"], Cell[26037, 786, 216, 5, 18, "Text"], Cell[26256, 793, 214, 5, 18, "Text"], Cell[26473, 800, 218, 5, 18, "Text"], Cell[26694, 807, 242, 5, 18, "Text"], Cell[26939, 814, 242, 5, 18, "Text"], Cell[27184, 821, 242, 5, 18, "Text"], Cell[27429, 828, 232, 5, 18, "Text"], Cell[27664, 835, 230, 5, 18, "Text"], Cell[27897, 842, 230, 5, 18, "Text"], Cell[28130, 849, 242, 5, 18, "Text"], Cell[28375, 856, 236, 5, 18, "Text"], Cell[28614, 863, 224, 5, 18, "Text"], Cell[28841, 870, 222, 5, 18, "Text"], Cell[29066, 877, 230, 5, 18, "Text"], Cell[29299, 884, 216, 5, 18, "Text"], Cell[29518, 891, 214, 5, 18, "Text"], Cell[29735, 898, 234, 5, 18, "Text"], Cell[29972, 905, 244, 5, 18, "Text"], Cell[30219, 912, 246, 5, 18, "Text"], Cell[30468, 919, 230, 5, 18, "Text"], Cell[30701, 926, 234, 5, 18, "Text"], Cell[30938, 933, 218, 5, 18, "Text"], Cell[31159, 940, 234, 5, 18, "Text"], Cell[31396, 947, 240, 5, 18, "Text"], Cell[31639, 954, 238, 5, 18, "Text"], Cell[31880, 961, 226, 5, 18, "Text"], Cell[32109, 968, 216, 5, 18, "Text"], Cell[32328, 975, 214, 5, 18, "Text"], Cell[32545, 982, 224, 5, 18, "Text"], Cell[32772, 989, 222, 5, 18, "Text"], Cell[32997, 996, 224, 5, 18, "Text"], Cell[33224, 1003, 240, 5, 18, "Text"], Cell[33467, 1010, 226, 5, 18, "Text"], Cell[33696, 1017, 254, 5, 18, "Text"], Cell[33953, 1024, 238, 5, 18, "Text"], Cell[34194, 1031, 222, 5, 18, "Text"], Cell[34419, 1038, 238, 5, 18, "Text"], Cell[34660, 1045, 218, 5, 18, "Text"], Cell[34881, 1052, 226, 5, 18, "Text"], Cell[35110, 1059, 218, 5, 18, "Text"], Cell[35331, 1066, 228, 5, 18, "Text"], Cell[35562, 1073, 230, 5, 18, "Text"], Cell[35795, 1080, 242, 5, 18, "Text"], Cell[36040, 1087, 234, 5, 18, "Text"], Cell[36277, 1094, 240, 5, 18, "Text"], Cell[36520, 1101, 246, 5, 18, "Text"], Cell[36769, 1108, 236, 5, 18, "Text"], Cell[37008, 1115, 268, 5, 18, "Text"], Cell[37279, 1122, 252, 5, 18, "Text"], Cell[37534, 1129, 234, 5, 18, "Text"], Cell[37771, 1136, 230, 5, 18, "Text"], Cell[38004, 1143, 242, 5, 18, "Text"], Cell[38249, 1150, 240, 5, 18, "Text"], Cell[38492, 1157, 236, 5, 18, "Text"], Cell[38731, 1164, 234, 5, 18, "Text"], Cell[38968, 1171, 236, 5, 18, "Text"], Cell[39207, 1178, 248, 5, 18, "Text"], Cell[39458, 1185, 214, 5, 18, "Text"], Cell[39675, 1192, 230, 5, 18, "Text"], Cell[39908, 1199, 236, 5, 18, "Text"], Cell[40147, 1206, 224, 5, 18, "Text"], Cell[40374, 1213, 252, 5, 18, "Text"], Cell[40629, 1220, 240, 5, 18, "Text"], Cell[40872, 1227, 216, 5, 18, "Text"], Cell[41091, 1234, 222, 5, 18, "Text"], Cell[41316, 1241, 214, 5, 18, "Text"], Cell[41533, 1248, 216, 5, 18, "Text"], Cell[41752, 1255, 222, 5, 18, "Text"], Cell[41977, 1262, 230, 5, 18, "Text"], Cell[42210, 1269, 224, 5, 18, "Text"], Cell[42437, 1276, 230, 5, 18, "Text"], Cell[42670, 1283, 224, 5, 18, "Text"], Cell[42897, 1290, 244, 5, 18, "Text"], Cell[43144, 1297, 214, 5, 18, "Text"], Cell[43361, 1304, 218, 5, 18, "Text"], Cell[43582, 1311, 218, 5, 18, "Text"], Cell[43803, 1318, 218, 5, 18, "Text"], Cell[44024, 1325, 226, 5, 18, "Text"], Cell[44253, 1332, 218, 5, 18, "Text"], Cell[44474, 1339, 218, 5, 18, "Text"], Cell[44695, 1346, 226, 5, 18, "Text"], Cell[44924, 1353, 232, 5, 18, "Text"], Cell[45159, 1360, 218, 5, 18, "Text"], Cell[45380, 1367, 226, 5, 18, "Text"], Cell[45609, 1374, 230, 5, 18, "Text"], Cell[45842, 1381, 218, 5, 18, "Text"], Cell[46063, 1388, 238, 5, 18, "Text"], Cell[46304, 1395, 216, 5, 18, "Text"], Cell[46523, 1402, 218, 5, 18, "Text"], Cell[46744, 1409, 216, 5, 18, "Text"], Cell[46963, 1416, 238, 5, 18, "Text"], Cell[47204, 1423, 242, 5, 18, "Text"], Cell[47449, 1430, 224, 5, 18, "Text"], Cell[47676, 1437, 220, 5, 18, "Text"], Cell[47899, 1444, 240, 5, 18, "Text"], Cell[48142, 1451, 220, 5, 18, "Text"], Cell[48365, 1458, 214, 5, 18, "Text"], Cell[48582, 1465, 248, 5, 18, "Text"], Cell[48833, 1472, 248, 5, 18, "Text"], Cell[49084, 1479, 230, 5, 18, "Text"], Cell[49317, 1486, 256, 5, 18, "Text"], Cell[49576, 1493, 222, 5, 18, "Text"], Cell[49801, 1500, 274, 5, 18, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[50112, 1510, 87, 2, 54, "Section", PageBreakAbove->True, CellTags->"Short Overview"], Cell[50202, 1514, 987, 23, 122, "Text"], Cell[51192, 1539, 3287, 103, 86, "Text"], Cell[54482, 1644, 67, 0, 32, "Text"], Cell[54552, 1646, 2952, 97, 68, "Text"], Cell[57507, 1745, 1255, 24, 212, "Text"], Cell[58765, 1771, 246, 6, 50, "Text"], Cell[59014, 1779, 384, 9, 68, "Text"], Cell[59401, 1790, 621, 9, 140, "Text"], Cell[60025, 1801, 645, 20, 50, "Text"], Cell[60673, 1823, 73, 0, 32, "Text"], Cell[60749, 1825, 347, 8, 68, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[61133, 1838, 61, 1, 54, "Section", CellTags->"Load FeynCalc"], Cell[CellGroupData[{ Cell[61219, 1843, 106, 2, 27, "Input"], Cell[61328, 1847, 80, 1, 29, "Output"] }, Open ]], Cell[61423, 1851, 61, 0, 32, "Text"], Cell[61487, 1853, 256, 6, 27, "Input"], Cell[61746, 1861, 256, 6, 27, "Input"], Cell[62005, 1869, 30, 0, 32, "Text"], Cell[62038, 1871, 68, 1, 27, "Input"], Cell[62109, 1874, 92, 2, 32, "Text"], Cell[62204, 1878, 315, 13, 32, "Text"], Cell[62522, 1893, 92, 2, 32, "Text"], Cell[62617, 1897, 315, 13, 32, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[62969, 1915, 63, 2, 54, "Section", PageBreakAbove->True, CellTags->"A0"], Cell[CellGroupData[{ Cell[63057, 1921, 33, 0, 45, "Subsection"], Cell[63093, 1923, 362, 9, 28, "Text"], Cell[CellGroupData[{ Cell[63480, 1936, 64, 1, 27, "Input"], Cell[63547, 1939, 132, 4, 28, "Output"] }, Open ]], Cell[63694, 1946, 467, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[64198, 1974, 30, 0, 45, "Subsection"], Cell[64231, 1976, 254, 10, 32, "Text"], Cell[CellGroupData[{ Cell[64510, 1990, 85, 2, 27, "Input"], Cell[64598, 1994, 333, 9, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64968, 2008, 158, 4, 27, "Input"], Cell[65129, 2014, 333, 9, 29, "Output"] }, Open ]], Cell[65477, 2026, 223, 7, 32, "Text"], Cell[CellGroupData[{ Cell[65725, 2037, 58, 1, 27, "Input"], Cell[65786, 2040, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65882, 2046, 131, 3, 27, "Input"], Cell[66016, 2051, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66136, 2059, 55, 1, 54, "Section", CellTags->"Amplitudes"], Cell[CellGroupData[{ Cell[66216, 2064, 33, 0, 45, "Subsection"], Cell[66252, 2066, 241, 3, 68, "Text"], Cell[CellGroupData[{ Cell[66518, 2073, 72, 1, 27, "Input"], Cell[66593, 2076, 321, 8, 28, "Output"] }, Open ]], Cell[66929, 2087, 173, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[67139, 2100, 30, 0, 45, "Subsection"], Cell[67172, 2102, 68, 0, 32, "Text"], Cell[CellGroupData[{ Cell[67265, 2106, 78, 1, 27, "Input"], Cell[67346, 2109, 4548, 130, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71931, 2244, 28, 0, 27, "Input"], Cell[71962, 2246, 12013, 302, 86, "Output"] }, Open ]], Cell[83990, 2551, 195, 7, 32, "Text"], Cell[CellGroupData[{ Cell[84210, 2562, 307, 7, 43, "Input"], Cell[84520, 2571, 31779, 729, 215, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[116360, 3307, 71, 1, 54, "Section", CellTags->"AnomalousDimension"], Cell[CellGroupData[{ Cell[116456, 3312, 33, 0, 45, "Subsection"], Cell[116492, 3314, 111, 4, 50, "Text"], Cell[CellGroupData[{ Cell[116628, 3322, 44, 0, 27, "Input"], Cell[116675, 3324, 225, 6, 28, "Output"] }, Open ]], Cell[116915, 3333, 203, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[117155, 3346, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[117210, 3350, 39, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[117274, 3354, 161, 3, 27, "Input"], Cell[117438, 3359, 225, 6, 28, "Output"] }, Open ]], Cell[117678, 3368, 215, 7, 34, "Text"], Cell[CellGroupData[{ Cell[117918, 3379, 79, 1, 27, "Input"], Cell[118000, 3382, 509, 15, 45, "Output"] }, Open ]], Cell[118524, 3400, 214, 7, 34, "Text"], Cell[CellGroupData[{ Cell[118763, 3411, 78, 1, 27, "Input"], Cell[118844, 3414, 272, 8, 45, "Output"] }, Open ]], Cell[119131, 3425, 214, 7, 34, "Text"], Cell[CellGroupData[{ Cell[119370, 3436, 78, 1, 27, "Input"], Cell[119451, 3439, 271, 8, 45, "Output"] }, Open ]], Cell[119737, 3450, 214, 7, 33, "Text"], Cell[CellGroupData[{ Cell[119976, 3461, 78, 1, 27, "Input"], Cell[120057, 3464, 680, 19, 46, "Output"] }, Open ]], Cell[120752, 3486, 215, 7, 34, "Text"], Cell[CellGroupData[{ Cell[120992, 3497, 79, 1, 27, "Input"], Cell[121074, 3500, 780, 21, 46, "Output"] }, Open ]], Cell[121869, 3524, 215, 7, 34, "Text"], Cell[CellGroupData[{ Cell[122109, 3535, 79, 1, 27, "Input"], Cell[122191, 3538, 8475, 213, 411, "Output"] }, Open ]], Cell[130681, 3754, 214, 7, 34, "Text"], Cell[CellGroupData[{ Cell[130920, 3765, 78, 1, 27, "Input"], Cell[131001, 3768, 5368, 137, 222, "Output"] }, Open ]], Cell[136384, 3908, 214, 7, 34, "Text"], Cell[CellGroupData[{ Cell[136623, 3919, 78, 1, 27, "Input"], Cell[136704, 3922, 8275, 210, 321, "Output"] }, Open ]], Cell[144994, 4135, 214, 7, 33, "Text"], Cell[CellGroupData[{ Cell[145233, 4146, 78, 1, 27, "Input"], Cell[145314, 4149, 6455, 165, 257, "Output"] }, Open ]], Cell[151784, 4317, 241, 7, 33, "Text"], Cell[CellGroupData[{ Cell[152050, 4328, 78, 1, 27, "Input"], Cell[152131, 4331, 6089, 143, 229, "Output"] }, Open ]], Cell[158235, 4477, 307, 8, 33, "Text"], Cell[CellGroupData[{ Cell[158567, 4489, 53, 0, 27, "Input"], Cell[158623, 4491, 205, 5, 28, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[158901, 4504, 45, 1, 54, "Section", CellTags->"Anti5"], Cell[CellGroupData[{ Cell[158971, 4509, 33, 0, 45, "Subsection"], Cell[159007, 4511, 508, 15, 68, "Text"], Cell[159518, 4528, 155, 6, 32, "Text"], Cell[159676, 4536, 441, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[160154, 4559, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[160209, 4563, 123, 3, 27, "Input"], Cell[160335, 4568, 159, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[160531, 4577, 61, 1, 27, "Input"], Cell[160595, 4580, 230, 7, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[160862, 4592, 112, 3, 27, "Input"], Cell[160977, 4597, 164, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[161178, 4606, 167, 4, 27, "Input"], Cell[161348, 4612, 308, 7, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[161693, 4624, 88, 2, 27, "Input"], Cell[161784, 4628, 328, 7, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[162149, 4640, 96, 2, 27, "Input"], Cell[162248, 4644, 328, 7, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[162613, 4656, 119, 3, 27, "Input"], Cell[162735, 4661, 328, 7, 29, "Output"] }, Open ]], Cell[163078, 4671, 322, 11, 32, "Text"], Cell[CellGroupData[{ Cell[163425, 4686, 90, 2, 27, "Input"], Cell[163518, 4690, 164, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[163719, 4699, 61, 1, 27, "Input"], Cell[163783, 4702, 230, 7, 29, "Output"] }, Open ]], Cell[164028, 4712, 161, 4, 50, "Text"], Cell[164192, 4718, 91, 2, 27, "Input"], Cell[CellGroupData[{ Cell[164308, 4724, 90, 2, 27, "Input"], Cell[164401, 4728, 164, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[164602, 4737, 61, 1, 27, "Input"], Cell[164666, 4740, 192, 5, 29, "Output"] }, Open ]], Cell[164873, 4748, 90, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[165012, 4756, 63, 1, 54, "Section", CellTags->"AntiCommutator"], Cell[CellGroupData[{ Cell[165100, 4761, 33, 0, 45, "Subsection"], Cell[165136, 4763, 118, 4, 50, "Text"], Cell[165257, 4769, 617, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[165911, 4797, 30, 0, 45, "Subsection"], Cell[165944, 4799, 181, 8, 32, "Text"], Cell[166128, 4809, 104, 2, 27, "Input"], Cell[CellGroupData[{ Cell[166257, 4815, 97, 2, 27, "Input"], Cell[166357, 4819, 117, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[166511, 4827, 74, 1, 27, "Input"], Cell[166588, 4830, 144, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[166769, 4839, 268, 7, 27, "Input"], Cell[167040, 4848, 473, 15, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[167550, 4868, 261, 7, 27, "Input"], Cell[167814, 4877, 286, 8, 29, "Output"] }, Open ]], Cell[168115, 4888, 182, 4, 33, "Input"], Cell[168300, 4894, 75, 0, 32, "Text"], Cell[CellGroupData[{ Cell[168400, 4898, 136, 3, 27, "Input"], Cell[168539, 4903, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[168635, 4909, 138, 3, 27, "Input"], Cell[168776, 4914, 176, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[168989, 4924, 225, 6, 33, "Input"], Cell[169217, 4932, 86, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[169340, 4939, 222, 5, 33, "Input"], Cell[169565, 4946, 302, 9, 32, "Output"] }, Open ]], Cell[169882, 4958, 204, 4, 33, "Input"], Cell[170089, 4964, 126, 3, 27, "Input"], Cell[170218, 4969, 188, 5, 33, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[170455, 4980, 63, 1, 54, "Section", CellTags->"AntiQuarkField"], Cell[CellGroupData[{ Cell[170543, 4985, 33, 0, 45, "Subsection"], Cell[170579, 4987, 172, 5, 50, "Text"], Cell[170754, 4994, 313, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[171104, 5012, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[171159, 5016, 40, 0, 27, "Input"], Cell[171202, 5018, 91, 2, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[171354, 5027, 47, 1, 54, "Section", CellTags->"Apart1"], Cell[CellGroupData[{ Cell[171426, 5032, 33, 0, 45, "Subsection"], Cell[171462, 5034, 149, 4, 50, "Text"], Cell[171614, 5040, 283, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[171934, 5058, 30, 0, 45, "Subsection"], Cell[171967, 5060, 928, 23, 342, "Input"], Cell[CellGroupData[{ Cell[172920, 5087, 188, 5, 27, "Input"], Cell[173111, 5094, 183, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[173331, 5104, 187, 5, 27, "Input"], Cell[173521, 5111, 182, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[173740, 5121, 87, 2, 27, "Input"], Cell[173830, 5125, 59, 1, 28, "Output"] }, Open ]], Cell[173904, 5129, 100, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[174053, 5137, 47, 1, 54, "Section", CellTags->"Apart2"], Cell[CellGroupData[{ Cell[174125, 5142, 33, 0, 45, "Subsection"], Cell[174161, 5144, 89, 3, 32, "Text"], Cell[174253, 5149, 310, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[174600, 5167, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[174655, 5171, 245, 7, 27, "Input"], Cell[174903, 5180, 1469, 35, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[176409, 5220, 62, 1, 27, "Input"], Cell[176474, 5223, 1189, 33, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[177700, 5261, 99, 2, 27, "Input"], Cell[177802, 5265, 94, 3, 55, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[177957, 5275, 47, 1, 54, "Section", CellTags->"Apart3"], Cell[CellGroupData[{ Cell[178029, 5280, 33, 0, 45, "Subsection"], Cell[178065, 5282, 101, 3, 32, "Text"], Cell[178169, 5287, 170, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[178376, 5300, 30, 0, 45, "Subsection"], Cell[178409, 5302, 10522, 267, 267, "Input"], Cell[CellGroupData[{ Cell[188956, 5573, 188, 5, 27, "Input"], Cell[189147, 5580, 182, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189366, 5590, 187, 5, 27, "Input"], Cell[189556, 5597, 182, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189775, 5607, 87, 2, 27, "Input"], Cell[189865, 5611, 59, 1, 28, "Output"] }, Open ]], Cell[189939, 5615, 100, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[190088, 5623, 41, 1, 54, "Section", CellTags->"B00"], Cell[CellGroupData[{ Cell[190154, 5628, 33, 0, 45, "Subsection"], Cell[190190, 5630, 719, 22, 50, "Text"], Cell[CellGroupData[{ Cell[190934, 5656, 65, 1, 27, "Input"], Cell[191002, 5659, 133, 4, 28, "Output"] }, Open ]], Cell[191150, 5666, 366, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[191553, 5689, 30, 0, 45, "Subsection"], Cell[191586, 5691, 188, 5, 32, "Text"], Cell[CellGroupData[{ Cell[191799, 5700, 58, 1, 27, "Input"], Cell[191860, 5703, 134, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[192031, 5712, 189, 5, 27, "Input"], Cell[192223, 5719, 3675, 89, 125, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[195935, 5813, 189, 5, 27, "Input"], Cell[196127, 5820, 1908, 53, 81, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[198072, 5878, 244, 6, 27, "Input"], Cell[198319, 5886, 602, 20, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[198958, 5911, 154, 4, 27, "Input"], Cell[199115, 5917, 825, 23, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199977, 5945, 231, 6, 27, "Input"], Cell[200211, 5953, 859, 24, 45, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[201131, 5984, 39, 1, 54, "Section", CellTags->"B0"], Cell[CellGroupData[{ Cell[201195, 5989, 33, 0, 45, "Subsection"], Cell[201231, 5991, 734, 19, 86, "Text"], Cell[CellGroupData[{ Cell[201990, 6014, 64, 1, 27, "Input"], Cell[202057, 6017, 269, 7, 28, "Output"] }, Open ]], Cell[202341, 6027, 473, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[202851, 6055, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[202906, 6059, 219, 6, 27, "Input"], Cell[203128, 6067, 333, 10, 29, "Output"] }, Open ]], Cell[203476, 6080, 220, 5, 27, "Input"], Cell[CellGroupData[{ Cell[203721, 6089, 124, 3, 27, "Input"], Cell[203848, 6094, 237, 7, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[204122, 6106, 153, 4, 27, "Input"], Cell[204278, 6112, 237, 7, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[204552, 6124, 153, 4, 27, "Input"], Cell[204708, 6130, 199, 5, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[204968, 6142, 41, 1, 54, "Section", CellTags->"B11"], Cell[CellGroupData[{ Cell[205034, 6147, 33, 0, 45, "Subsection"], Cell[205070, 6149, 717, 22, 50, "Text"], Cell[CellGroupData[{ Cell[205812, 6175, 65, 1, 27, "Input"], Cell[205880, 6178, 133, 4, 28, "Output"] }, Open ]], Cell[206028, 6185, 470, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[206535, 6213, 30, 0, 45, "Subsection"], Cell[206568, 6215, 188, 5, 32, "Text"], Cell[CellGroupData[{ Cell[206781, 6224, 58, 1, 27, "Input"], Cell[206842, 6227, 134, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[207013, 6236, 189, 5, 27, "Input"], Cell[207205, 6243, 3866, 95, 127, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[211108, 6343, 189, 5, 27, "Input"], Cell[211300, 6350, 1587, 45, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[212924, 6400, 140, 3, 27, "Input"], Cell[213067, 6405, 134, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[213238, 6414, 189, 5, 27, "Input"], Cell[213430, 6421, 602, 20, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[214069, 6446, 139, 3, 27, "Input"], Cell[214211, 6451, 133, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[214381, 6460, 154, 4, 27, "Input"], Cell[214538, 6466, 261, 7, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[214836, 6478, 231, 6, 27, "Input"], Cell[215070, 6486, 293, 8, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[215424, 6501, 39, 1, 54, "Section", CellTags->"B1"], Cell[CellGroupData[{ Cell[215488, 6506, 33, 0, 45, "Subsection"], Cell[215524, 6508, 566, 17, 50, "Text"], Cell[CellGroupData[{ Cell[216115, 6529, 64, 1, 27, "Input"], Cell[216182, 6532, 133, 4, 28, "Output"] }, Open ]], Cell[216330, 6539, 598, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[216965, 6572, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[217020, 6576, 188, 5, 27, "Input"], Cell[217211, 6583, 1453, 40, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[218701, 6628, 243, 6, 27, "Input"], Cell[218947, 6636, 333, 10, 29, "Output"] }, Open ]], Cell[219295, 6649, 164, 4, 27, "Input"], Cell[CellGroupData[{ Cell[219484, 6657, 188, 5, 27, "Input"], Cell[219675, 6664, 431, 13, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[220143, 6682, 153, 4, 27, "Input"], Cell[220299, 6688, 454, 13, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[220790, 6706, 124, 3, 27, "Input"], Cell[220917, 6711, 454, 13, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[221408, 6729, 220, 5, 31, "Input"], Cell[221631, 6736, 913, 23, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[222581, 6764, 267, 6, 31, "Input"], Cell[222851, 6772, 474, 13, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[223386, 6792, 77, 1, 54, "Section", CellTags->"BackgroundGluonVertex"], Cell[CellGroupData[{ Cell[223488, 6797, 33, 0, 45, "Subsection"], Cell[223524, 6799, 1168, 19, 248, "Text"], Cell[CellGroupData[{ Cell[224717, 6822, 83, 1, 27, "Input"], Cell[224803, 6825, 298, 8, 28, "Output"] }, Open ]], Cell[225116, 6836, 185, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[225338, 6849, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[225393, 6853, 340, 8, 27, "Input"], Cell[225736, 6863, 2954, 83, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[228727, 6951, 427, 10, 27, "Input"], Cell[229157, 6963, 10652, 268, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[239846, 7236, 396, 9, 27, "Input"], Cell[240245, 7247, 3178, 88, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[243460, 7340, 483, 11, 43, "Input"], Cell[243946, 7353, 10824, 270, 87, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[254831, 7630, 39, 1, 54, "Section", CellTags->"C0"], Cell[CellGroupData[{ Cell[254895, 7635, 33, 0, 45, "Subsection"], Cell[254931, 7637, 449, 9, 86, "Text"], Cell[255383, 7648, 488, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[255908, 7676, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[255963, 7680, 150, 4, 27, "Input"], Cell[256116, 7686, 249, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[256402, 7697, 185, 5, 27, "Input"], Cell[256590, 7704, 249, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[256876, 7715, 332, 9, 27, "Input"], Cell[257211, 7726, 249, 6, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[257521, 7739, 43, 1, 54, "Section", CellTags->"Calc"], Cell[CellGroupData[{ Cell[257589, 7744, 33, 0, 45, "Subsection"], Cell[257625, 7746, 208, 5, 86, "Text"], Cell[257836, 7753, 426, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[258299, 7776, 39, 0, 45, "Subsection"], Cell[258341, 7778, 361, 12, 32, "Text"], Cell[CellGroupData[{ Cell[258727, 7794, 278, 7, 27, "Input"], Cell[259008, 7803, 115, 3, 28, "Output"] }, Open ]], Cell[259138, 7809, 224, 8, 32, "Text"], Cell[CellGroupData[{ Cell[259387, 7821, 243, 6, 27, "Input"], Cell[259633, 7829, 403, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[260073, 7847, 326, 9, 27, "Input"], Cell[260402, 7858, 548, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[260987, 7879, 60, 1, 27, "Input"], Cell[261050, 7882, 643, 21, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[261730, 7908, 189, 4, 27, "Input"], Cell[261922, 7914, 1359, 43, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[263318, 7962, 403, 12, 27, "Input"], Cell[263724, 7976, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[263844, 7984, 39, 1, 54, "Section", CellTags->"CA"], Cell[CellGroupData[{ Cell[263908, 7989, 33, 0, 45, "Subsection"], Cell[263944, 7991, 69, 0, 32, "Text"], Cell[264016, 7993, 286, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[264339, 8011, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[264394, 8015, 28, 0, 27, "Input"], Cell[264425, 8017, 85, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[264547, 8024, 143, 3, 27, "Input"], Cell[264693, 8029, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[264789, 8035, 30, 0, 27, "Input"], Cell[264822, 8037, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[264942, 8045, 47, 1, 54, "Section", CellTags->"Cases2"], Cell[CellGroupData[{ Cell[265014, 8050, 33, 0, 45, "Subsection"], Cell[265050, 8052, 267, 5, 86, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[265354, 8062, 39, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[265418, 8066, 302, 8, 27, "Input"], Cell[265723, 8076, 269, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[266029, 8089, 315, 9, 27, "Input"], Cell[266347, 8100, 273, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[266657, 8113, 451, 12, 27, "Input"], Cell[267111, 8127, 362, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[267510, 8142, 326, 8, 27, "Input"], Cell[267839, 8152, 449, 13, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[268349, 8172, 39, 1, 54, "Section", CellTags->"CF"], Cell[CellGroupData[{ Cell[268413, 8177, 33, 0, 45, "Subsection"], Cell[268449, 8179, 91, 3, 32, "Text"], Cell[268543, 8184, 286, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[268866, 8202, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[268921, 8206, 28, 0, 27, "Input"], Cell[268952, 8208, 85, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[269074, 8215, 153, 3, 27, "Input"], Cell[269230, 8220, 174, 5, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[269441, 8230, 30, 0, 27, "Input"], Cell[269474, 8232, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[269570, 8238, 147, 3, 27, "Input"], Cell[269720, 8243, 85, 2, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[269866, 8252, 65, 1, 54, "Section", CellTags->"ChangeDimension"], Cell[CellGroupData[{ Cell[269956, 8257, 33, 0, 45, "Subsection"], Cell[269992, 8259, 180, 5, 68, "Text"], Cell[270175, 8266, 536, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[270748, 8294, 30, 0, 45, "Subsection"], Cell[270781, 8296, 203, 3, 50, "Text"], Cell[CellGroupData[{ Cell[271009, 8303, 174, 4, 27, "Input"], Cell[271186, 8309, 170, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[271393, 8319, 103, 2, 27, "Input"], Cell[271499, 8323, 170, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[271706, 8333, 61, 1, 27, "Input"], Cell[271770, 8336, 68, 0, 40, "Output"] }, Open ]], Cell[271853, 8339, 91, 3, 32, "Text"], Cell[CellGroupData[{ Cell[271969, 8346, 155, 4, 27, "Input"], Cell[272127, 8352, 62, 0, 40, "Output"] }, Open ]], Cell[272204, 8355, 75, 0, 32, "Text"], Cell[CellGroupData[{ Cell[272304, 8359, 502, 13, 27, "Input"], Cell[272809, 8374, 704, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[273550, 8398, 105, 2, 27, "Input"], Cell[273658, 8402, 187, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[273882, 8413, 185, 4, 27, "Input"], Cell[274070, 8419, 187, 6, 28, "Output"] }, Open ]], Cell[274272, 8428, 103, 3, 50, "Text"], Cell[274378, 8433, 171, 4, 27, "Input"], Cell[274552, 8439, 184, 5, 68, "Text"], Cell[274739, 8446, 164, 4, 27, "Input"], Cell[CellGroupData[{ Cell[274928, 8454, 182, 4, 27, "Input"], Cell[275113, 8460, 574, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[275724, 8484, 139, 3, 27, "Input"], Cell[275866, 8489, 574, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[276477, 8513, 142, 4, 27, "Input"], Cell[276622, 8519, 289, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[276948, 8533, 31, 0, 27, "Input"], Cell[276982, 8535, 82, 2, 28, "Output"] }, Open ]], Cell[277079, 8540, 164, 4, 27, "Input"], Cell[277246, 8546, 114, 3, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[277409, 8555, 87, 1, 54, "Section", CellTags->"ChargeConjugationMatrixInv"], Cell[CellGroupData[{ Cell[277521, 8560, 33, 0, 45, "Subsection"], Cell[277557, 8562, 155, 4, 50, "Text"], Cell[277715, 8568, 221, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[277973, 8581, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[278028, 8585, 162, 3, 43, "Input"], Cell[278193, 8590, 192, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[278422, 8600, 60, 1, 27, "Input"], Cell[278485, 8603, 236, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[278758, 8615, 157, 3, 43, "Input"], Cell[278918, 8620, 188, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[279143, 8630, 60, 1, 27, "Input"], Cell[279206, 8633, 101, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[279344, 8640, 102, 2, 27, "Input"], Cell[279449, 8644, 141, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[279627, 8653, 56, 1, 27, "Input"], Cell[279686, 8656, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[279782, 8662, 77, 1, 27, "Input"], Cell[279862, 8665, 81, 2, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[280004, 8674, 81, 1, 54, "Section", CellTags->"ChargeConjugationMatrix"], Cell[CellGroupData[{ Cell[280110, 8679, 33, 0, 45, "Subsection"], Cell[280146, 8681, 143, 5, 32, "Text"], Cell[280292, 8688, 230, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[280559, 8701, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[280614, 8705, 162, 3, 43, "Input"], Cell[280779, 8710, 192, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[281008, 8720, 60, 1, 27, "Input"], Cell[281071, 8723, 236, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[281344, 8735, 157, 3, 43, "Input"], Cell[281504, 8740, 188, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[281729, 8750, 60, 1, 27, "Input"], Cell[281792, 8753, 101, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[281930, 8760, 74, 1, 27, "Input"], Cell[282007, 8763, 81, 2, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[282149, 8772, 71, 1, 54, "Section", CellTags->"ChiralityProjector"], Cell[CellGroupData[{ Cell[282245, 8777, 33, 0, 45, "Subsection"], Cell[282281, 8779, 544, 18, 50, "Text"], Cell[282828, 8799, 414, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[283279, 8822, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[283334, 8826, 233, 6, 27, "Input"], Cell[283570, 8834, 196, 6, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[283803, 8845, 59, 1, 27, "Input"], Cell[283865, 8848, 196, 6, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[284098, 8859, 145, 3, 27, "Input"], Cell[284246, 8864, 394, 12, 45, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[284701, 8883, 51, 1, 54, "Section", CellTags->"Chisholm"], Cell[CellGroupData[{ Cell[284777, 8888, 33, 0, 45, "Subsection"], Cell[284813, 8890, 120, 4, 50, "Text"], Cell[284936, 8896, 185, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[285158, 8909, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[285213, 8913, 176, 4, 27, "Input"], Cell[285392, 8919, 1766, 48, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[287195, 8972, 147, 3, 27, "Input"], Cell[287345, 8977, 210, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[287592, 8987, 98, 2, 27, "Input"], Cell[287693, 8991, 1322, 37, 31, "Output"] }, Open ]], Cell[289030, 9031, 54, 0, 32, "Text"], Cell[CellGroupData[{ Cell[289109, 9035, 89, 2, 27, "Input"], Cell[289201, 9039, 60, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[289298, 9045, 98, 2, 27, "Input"], Cell[289399, 9049, 1322, 37, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[290758, 9091, 89, 2, 27, "Input"], Cell[290850, 9095, 60, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[290947, 9101, 133, 3, 27, "Input"], Cell[291083, 9106, 567, 17, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[291687, 9128, 65, 1, 27, "Input"], Cell[291755, 9131, 1767, 53, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[293559, 9189, 207, 5, 27, "Input"], Cell[293769, 9196, 380, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[294186, 9209, 98, 2, 27, "Input"], Cell[294287, 9213, 10863, 290, 143, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[305187, 9508, 98, 2, 27, "Input"], Cell[305288, 9512, 10863, 290, 143, "Output"] }, Open ]], Cell[316166, 9805, 62, 0, 32, "Text"], Cell[CellGroupData[{ Cell[316253, 9809, 89, 2, 27, "Input"], Cell[316345, 9813, 84, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[316466, 9820, 89, 2, 27, "Input"], Cell[316558, 9824, 84, 2, 28, "Output"] }, Open ]], Cell[316657, 9829, 161, 4, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[316867, 9839, 51, 1, 54, "Section", CellTags->"Collect2"], Cell[CellGroupData[{ Cell[316943, 9844, 33, 0, 45, "Subsection"], Cell[316979, 9846, 596, 13, 176, "Text"], Cell[CellGroupData[{ Cell[317600, 9863, 70, 1, 27, "Input"], Cell[317673, 9866, 397, 9, 46, "Output"] }, Open ]], Cell[318085, 9878, 173, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[318295, 9891, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[318350, 9895, 472, 12, 27, "Input"], Cell[318825, 9909, 483, 14, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[319345, 9928, 144, 3, 27, "Input"], Cell[319492, 9933, 418, 12, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[319947, 9950, 145, 3, 27, "Input"], Cell[320095, 9955, 483, 14, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[320615, 9974, 597, 16, 27, "Input"], Cell[321215, 9992, 550, 15, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[321802, 10012, 316, 8, 27, "Input"], Cell[322121, 10022, 1103, 33, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[323261, 10060, 67, 1, 27, "Input"], Cell[323331, 10063, 934, 26, 47, "Output"] }, Open ]], Cell[324280, 10092, 89, 2, 27, "Input"], Cell[CellGroupData[{ Cell[324394, 10098, 298, 8, 27, "Input"], Cell[324695, 10108, 1083, 29, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[325815, 10142, 103, 2, 27, "Input"], Cell[325921, 10146, 733, 19, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[326715, 10172, 49, 1, 54, "Section", CellTags->"Combine"], Cell[CellGroupData[{ Cell[326789, 10177, 33, 0, 45, "Subsection"], Cell[326825, 10179, 294, 7, 86, "Text"], Cell[CellGroupData[{ Cell[327144, 10190, 69, 1, 27, "Input"], Cell[327216, 10193, 136, 4, 28, "Output"] }, Open ]], Cell[327367, 10200, 173, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[327577, 10213, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[327632, 10217, 311, 9, 27, "Input"], Cell[327946, 10228, 311, 9, 43, "Output"] }, Open ]], Cell[328272, 10240, 103, 5, 86, "Text"], Cell[CellGroupData[{ Cell[328400, 10249, 312, 9, 27, "Input"], Cell[328715, 10260, 298, 8, 43, "Output"] }, Open ]], Cell[329028, 10271, 155, 4, 50, "Text"], Cell[CellGroupData[{ Cell[329208, 10279, 427, 12, 27, "Input"], Cell[329638, 10293, 298, 8, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[329997, 10308, 71, 1, 54, "Section", CellTags->"CommutatorExplicit"], Cell[CellGroupData[{ Cell[330093, 10313, 33, 0, 45, "Subsection"], Cell[330129, 10315, 125, 3, 50, "Text"], Cell[330257, 10320, 292, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[330586, 10338, 30, 0, 45, "Subsection"], Cell[330619, 10340, 124, 2, 27, "Input"], Cell[CellGroupData[{ Cell[330768, 10346, 93, 2, 27, "Input"], Cell[330864, 10350, 152, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[331053, 10359, 74, 1, 27, "Input"], Cell[331130, 10362, 144, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[331311, 10371, 155, 4, 27, "Input"], Cell[331469, 10377, 270, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[331776, 10390, 74, 1, 27, "Input"], Cell[331853, 10393, 400, 12, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[332290, 10410, 116, 3, 27, "Input"], Cell[332409, 10415, 378, 10, 28, "Output"] }, Open ]], Cell[332802, 10428, 126, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[332977, 10436, 55, 1, 54, "Section", CellTags->"Commutator"], Cell[CellGroupData[{ Cell[333057, 10441, 33, 0, 45, "Subsection"], Cell[333093, 10443, 115, 4, 50, "Text"], Cell[333211, 10449, 629, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[333877, 10477, 30, 0, 45, "Subsection"], Cell[333910, 10479, 124, 2, 27, "Input"], Cell[CellGroupData[{ Cell[334059, 10485, 93, 2, 27, "Input"], Cell[334155, 10489, 152, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[334344, 10498, 74, 1, 27, "Input"], Cell[334421, 10501, 144, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[334602, 10510, 229, 6, 27, "Input"], Cell[334834, 10518, 378, 10, 28, "Output"] }, Open ]], Cell[335227, 10531, 126, 2, 27, "Input"], Cell[335356, 10535, 43, 0, 32, "Text"], Cell[335402, 10537, 195, 4, 27, "Input"], Cell[CellGroupData[{ Cell[335622, 10545, 482, 13, 27, "Input"], Cell[336107, 10560, 834, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[336978, 10586, 67, 1, 27, "Input"], Cell[337048, 10589, 59, 1, 28, "Output"] }, Open ]], Cell[337122, 10593, 66, 1, 27, "Input"], Cell[337191, 10596, 116, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[337356, 10604, 67, 1, 54, "Section", CellTags->"ComplexConjugate"], Cell[CellGroupData[{ Cell[337448, 10609, 33, 0, 45, "Subsection"], Cell[337484, 10611, 381, 8, 140, "Text"], Cell[337868, 10621, 456, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[338361, 10644, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[338416, 10648, 70, 0, 27, "Input"], Cell[338489, 10650, 289, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[338815, 10664, 29, 0, 27, "Input"], Cell[338847, 10666, 109, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[338993, 10673, 44, 0, 27, "Input"], Cell[339040, 10675, 215, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[339292, 10685, 36, 0, 27, "Input"], Cell[339331, 10687, 476, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[339844, 10705, 38, 0, 27, "Input"], Cell[339885, 10707, 642, 20, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[340564, 10732, 36, 0, 27, "Input"], Cell[340603, 10734, 642, 20, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[341282, 10759, 46, 0, 27, "Input"], Cell[341331, 10761, 460, 15, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[341828, 10781, 87, 1, 27, "Input"], Cell[341918, 10784, 72, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[342027, 10789, 242, 6, 27, "Input"], Cell[342272, 10797, 323, 8, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[342632, 10810, 72, 1, 27, "Input"], Cell[342707, 10813, 438, 12, 30, "Output"] }, Open ]], Cell[343160, 10828, 184, 3, 50, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[343393, 10837, 59, 1, 54, "Section", CellTags->"ComplexIndex"], Cell[CellGroupData[{ Cell[343477, 10842, 33, 0, 45, "Subsection"], Cell[343513, 10844, 128, 4, 50, "Text"], Cell[343644, 10850, 188, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[343869, 10863, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[343924, 10867, 72, 1, 27, "Input"], Cell[343999, 10870, 63, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[344099, 10876, 72, 1, 27, "Input"], Cell[344174, 10879, 91, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[344302, 10886, 61, 1, 27, "Input"], Cell[344366, 10889, 61, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[344464, 10894, 97, 2, 27, "Input"], Cell[344564, 10898, 236, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[344837, 10911, 72, 1, 27, "Input"], Cell[344912, 10914, 270, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[345219, 10928, 61, 1, 27, "Input"], Cell[345283, 10931, 81, 1, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[345401, 10937, 72, 1, 27, "Input"], Cell[345476, 10940, 236, 8, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[345773, 10955, 51, 1, 54, "Section", CellTags->"Contract"], Cell[CellGroupData[{ Cell[345849, 10960, 33, 0, 45, "Subsection"], Cell[345885, 10962, 391, 8, 104, "Text"], Cell[CellGroupData[{ Cell[346301, 10974, 70, 1, 27, "Input"], Cell[346374, 10977, 575, 12, 64, "Output"] }, Open ]], Cell[346964, 10992, 438, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[347439, 11015, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[347494, 11019, 206, 5, 27, "Input"], Cell[347703, 11026, 341, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[348081, 11042, 64, 1, 27, "Input"], Cell[348148, 11045, 236, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[348421, 11058, 167, 4, 27, "Input"], Cell[348591, 11064, 318, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[348946, 11079, 64, 1, 27, "Input"], Cell[349013, 11082, 206, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[349256, 11093, 103, 2, 27, "Input"], Cell[349362, 11097, 119, 3, 28, "Output"] }, Open ]], Cell[349496, 11103, 60, 0, 32, "Text"], Cell[CellGroupData[{ Cell[349581, 11107, 64, 1, 27, "Input"], Cell[349648, 11110, 59, 1, 28, "Output"] }, Open ]], Cell[349722, 11114, 189, 4, 50, "Text"], Cell[CellGroupData[{ Cell[349936, 11122, 204, 5, 27, "Input"], Cell[350143, 11129, 214, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[350394, 11140, 64, 1, 27, "Input"], Cell[350461, 11143, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[350557, 11149, 204, 5, 27, "Input"], Cell[350764, 11156, 214, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[351015, 11167, 200, 5, 27, "Input"], Cell[351218, 11174, 468, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[351723, 11195, 69, 1, 27, "Input"], Cell[351795, 11198, 191, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[352023, 11209, 262, 7, 27, "Input"], Cell[352288, 11218, 702, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[353027, 11245, 64, 1, 27, "Input"], Cell[353094, 11248, 674, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[353805, 11275, 250, 6, 27, "Input"], Cell[354058, 11283, 833, 27, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[354928, 11315, 64, 1, 27, "Input"], Cell[354995, 11318, 514, 17, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[355546, 11340, 327, 8, 27, "Input"], Cell[355876, 11350, 1191, 38, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[357104, 11393, 64, 1, 27, "Input"], Cell[357171, 11396, 179, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[357387, 11406, 435, 11, 27, "Input"], Cell[357825, 11419, 286, 7, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[358148, 11431, 98, 2, 27, "Input"], Cell[358249, 11435, 583, 18, 29, "Output"] }, Open ]], Cell[358847, 11456, 164, 4, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[359060, 11466, 53, 1, 54, "Section", CellTags->"Convolute"], Cell[CellGroupData[{ Cell[359138, 11471, 36, 0, 42, "Subsubsection"], Cell[359177, 11473, 1122, 27, 104, "Text"], Cell[CellGroupData[{ Cell[360324, 11504, 71, 1, 27, "Input"], Cell[360398, 11507, 420, 11, 28, "Output"] }, Open ]] }, Open ]], Cell[360845, 11522, 200, 8, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[361070, 11534, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[361125, 11538, 92, 2, 27, "Input"], Cell[361220, 11542, 117, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[361374, 11550, 92, 2, 27, "Input"], Cell[361469, 11554, 146, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[361652, 11563, 92, 2, 27, "Input"], Cell[361747, 11567, 86, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[361870, 11574, 185, 5, 27, "Input"], Cell[362058, 11581, 189, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[362284, 11591, 240, 6, 27, "Input"], Cell[362527, 11599, 189, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[362753, 11609, 185, 5, 27, "Input"], Cell[362941, 11616, 280, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[363258, 11629, 278, 8, 27, "Input"], Cell[363539, 11639, 588, 17, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[364164, 11661, 159, 4, 27, "Input"], Cell[364326, 11667, 350, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[364713, 11682, 192, 5, 27, "Input"], Cell[364908, 11689, 263, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[365208, 11702, 252, 7, 27, "Input"], Cell[365463, 11711, 373, 10, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[365873, 11726, 285, 8, 27, "Input"], Cell[366161, 11736, 650, 18, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[366848, 11759, 256, 7, 27, "Input"], Cell[367107, 11768, 799, 22, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[367943, 11795, 159, 4, 27, "Input"], Cell[368105, 11801, 200, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[368342, 11812, 159, 4, 27, "Input"], Cell[368504, 11818, 317, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[368858, 11832, 316, 9, 27, "Input"], Cell[369177, 11843, 488, 14, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[369702, 11862, 128, 3, 27, "Input"], Cell[369833, 11867, 210, 7, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[370080, 11879, 164, 4, 27, "Input"], Cell[370247, 11885, 220, 7, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[370504, 11897, 221, 6, 27, "Input"], Cell[370728, 11905, 488, 14, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[371253, 11924, 223, 6, 27, "Input"], Cell[371479, 11932, 340, 10, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[371856, 11947, 252, 7, 27, "Input"], Cell[372111, 11956, 643, 18, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[372791, 11979, 223, 6, 27, "Input"], Cell[373017, 11987, 454, 13, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[373508, 12005, 159, 4, 27, "Input"], Cell[373670, 12011, 200, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[373907, 12022, 128, 3, 27, "Input"], Cell[374038, 12027, 159, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[374234, 12037, 349, 10, 27, "Input"], Cell[374586, 12049, 1005, 29, 47, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[375652, 12085, 55, 1, 54, "Section", CellTags->"CovariantD"], Cell[CellGroupData[{ Cell[375732, 12090, 33, 0, 45, "Subsection"], Cell[375768, 12092, 734, 10, 212, "Text"], Cell[CellGroupData[{ Cell[376527, 12106, 72, 1, 27, "Input"], Cell[376602, 12109, 442, 10, 46, "Output"] }, Open ]], Cell[377059, 12122, 159, 5, 86, "Text"], Cell[377221, 12129, 468, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[377726, 12152, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[377781, 12156, 70, 1, 27, "Input"], Cell[377854, 12159, 89, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[377980, 12166, 107, 2, 27, "Input"], Cell[378090, 12170, 123, 3, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[378250, 12178, 137, 3, 27, "Input"], Cell[378390, 12183, 1338, 39, 34, "Output"] }, Open ]], Cell[379743, 12225, 139, 3, 50, "Text"], Cell[CellGroupData[{ Cell[379907, 12232, 73, 1, 27, "Input"], Cell[379983, 12235, 146, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[380166, 12244, 110, 2, 27, "Input"], Cell[380279, 12248, 180, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[380496, 12258, 160, 3, 27, "Input"], Cell[380659, 12263, 1169, 34, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[381865, 12302, 140, 3, 27, "Input"], Cell[382008, 12307, 1236, 35, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[383281, 12347, 149, 3, 27, "Input"], Cell[383433, 12352, 1768, 48, 37, "Output"] }, Open ]], Cell[385216, 12403, 649, 21, 35, "Text"], Cell[CellGroupData[{ Cell[385890, 12428, 183, 4, 27, "Input"], Cell[386076, 12434, 598, 18, 33, "Output"] }, Open ]], Cell[386689, 12455, 347, 10, 32, "Text"], Cell[CellGroupData[{ Cell[387061, 12469, 183, 4, 27, "Input"], Cell[387247, 12475, 3234, 80, 53, "Output"] }, Open ]], Cell[390496, 12558, 181, 6, 32, "Text"], Cell[CellGroupData[{ Cell[390702, 12568, 183, 4, 27, "Input"], Cell[390888, 12574, 9135, 204, 116, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[400060, 12783, 145, 4, 27, "Input"], Cell[400208, 12789, 253, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[400498, 12801, 163, 4, 27, "Input"], Cell[400664, 12807, 6294, 144, 116, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[406995, 12956, 183, 5, 27, "Input"], Cell[407181, 12963, 196, 5, 85, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[407414, 12973, 200, 5, 27, "Input"], Cell[407617, 12980, 212, 3, 85, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[407890, 12990, 39, 1, 54, "Section", CellTags->"D0"], Cell[CellGroupData[{ Cell[407954, 12995, 33, 0, 45, "Subsection"], Cell[407990, 12997, 528, 11, 122, "Text"], Cell[408521, 13010, 488, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[409046, 13038, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[409101, 13042, 313, 8, 27, "Input"], Cell[409417, 13052, 615, 18, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[410069, 13075, 520, 13, 59, "Input"], Cell[410592, 13090, 615, 18, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[411244, 13113, 65, 1, 27, "Input"], Cell[411312, 13116, 615, 18, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[411988, 13141, 51, 1, 54, "Section", CellTags->"DataType"], Cell[CellGroupData[{ Cell[412064, 13146, 33, 0, 45, "Subsection"], Cell[412100, 13148, 321, 6, 86, "Text"], Cell[412424, 13156, 215, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[412676, 13169, 30, 0, 45, "Subsection"], Cell[412709, 13171, 51, 0, 32, "Text"], Cell[412763, 13173, 196, 5, 27, "Input"], Cell[CellGroupData[{ Cell[412984, 13182, 206, 6, 27, "Input"], Cell[413193, 13190, 221, 7, 28, "Output"] }, Open ]], Cell[413429, 13200, 157, 4, 50, "Text"], Cell[CellGroupData[{ Cell[413611, 13208, 67, 1, 27, "Input"], Cell[413681, 13211, 218, 6, 28, "Output"] }, Open ]], Cell[413914, 13220, 262, 8, 27, "Input"], Cell[414179, 13230, 445, 12, 27, "Input"], Cell[414627, 13244, 431, 12, 27, "Input"], Cell[CellGroupData[{ Cell[415083, 13260, 353, 11, 27, "Input"], Cell[415439, 13273, 363, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[415839, 13289, 62, 1, 27, "Input"], Cell[415904, 13292, 298, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[416239, 13306, 62, 1, 27, "Input"], Cell[416304, 13309, 142, 4, 28, "Output"] }, Open ]], Cell[416461, 13316, 161, 4, 27, "Input"], Cell[416625, 13322, 160, 5, 27, "Input"], Cell[416788, 13329, 463, 13, 27, "Input"], Cell[CellGroupData[{ Cell[417276, 13346, 293, 9, 27, "Input"], Cell[417572, 13357, 299, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[417908, 13371, 60, 1, 27, "Input"], Cell[417971, 13374, 217, 7, 28, "Output"] }, Open ]], Cell[418203, 13384, 115, 3, 27, "Input"], Cell[418321, 13389, 197, 5, 27, "Input"], Cell[418521, 13396, 263, 8, 27, "Input"], Cell[418787, 13406, 93, 3, 32, "Text"], Cell[CellGroupData[{ Cell[418905, 13413, 108, 2, 27, "Input"], Cell[419016, 13417, 62, 1, 28, "Output"] }, Open ]], Cell[419093, 13421, 60, 0, 32, "Text"], Cell[CellGroupData[{ Cell[419178, 13425, 214, 6, 27, "Input"], Cell[419395, 13433, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[419491, 13439, 206, 6, 27, "Input"], Cell[419700, 13447, 490, 15, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[420251, 13469, 77, 1, 54, "Section", CellTags->"DeclareNonCommutative"], Cell[CellGroupData[{ Cell[420353, 13474, 33, 0, 45, "Subsection"], Cell[420389, 13476, 159, 4, 50, "Text"], Cell[420551, 13482, 340, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[420928, 13500, 30, 0, 45, "Subsection"], Cell[420961, 13502, 77, 1, 27, "Input"], Cell[421041, 13505, 116, 3, 32, "Text"], Cell[CellGroupData[{ Cell[421182, 13512, 104, 2, 27, "Input"], Cell[421289, 13516, 62, 1, 28, "Output"] }, Open ]], Cell[421366, 13520, 104, 2, 27, "Input"], Cell[CellGroupData[{ Cell[421495, 13526, 141, 3, 27, "Input"], Cell[421639, 13531, 155, 4, 28, "Output"] }, Open ]], Cell[421809, 13538, 116, 2, 27, "Input"], Cell[CellGroupData[{ Cell[421950, 13544, 141, 3, 27, "Input"], Cell[422094, 13549, 158, 4, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[422313, 13560, 61, 1, 54, "Section", CellTags->"DeltaFunction"], Cell[CellGroupData[{ Cell[422399, 13565, 33, 0, 45, "Subsection"], Cell[422435, 13567, 85, 1, 32, "Text"], Cell[422523, 13570, 611, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[423171, 13598, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[423226, 13602, 96, 2, 27, "Input"], Cell[423325, 13606, 176, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[423538, 13616, 309, 8, 27, "Input"], Cell[423850, 13626, 91, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[423978, 13633, 276, 7, 27, "Input"], Cell[424257, 13642, 91, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[424385, 13649, 309, 8, 27, "Input"], Cell[424697, 13659, 91, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[424825, 13666, 169, 4, 27, "Input"], Cell[424997, 13672, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[425117, 13680, 71, 1, 54, "Section", CellTags->"DeltaFunctionPrime"], Cell[CellGroupData[{ Cell[425213, 13685, 33, 0, 45, "Subsection"], Cell[425249, 13687, 104, 2, 32, "Text"], Cell[425356, 13691, 438, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[425831, 13714, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[425886, 13718, 101, 2, 27, "Input"], Cell[425990, 13722, 213, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[426240, 13733, 314, 8, 27, "Input"], Cell[426557, 13743, 166, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[426760, 13753, 309, 8, 27, "Input"], Cell[427072, 13763, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[427192, 13771, 53, 1, 54, "Section", CellTags->"Dimension"], Cell[CellGroupData[{ Cell[427270, 13776, 33, 0, 45, "Subsection"], Cell[427306, 13778, 214, 5, 68, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[427569, 13789, 69, 1, 54, "Section", CellTags->"DiracGammaCombine"], Cell[CellGroupData[{ Cell[427663, 13794, 33, 0, 45, "Subsection"], Cell[427699, 13796, 103, 3, 32, "Text"], Cell[427805, 13801, 837, 33, 58, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[428679, 13839, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[428734, 13843, 180, 4, 27, "Input"], Cell[428917, 13849, 247, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[429201, 13861, 65, 1, 27, "Input"], Cell[429269, 13864, 45, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[429351, 13869, 243, 6, 27, "Input"], Cell[429597, 13877, 313, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[429947, 13891, 65, 1, 27, "Input"], Cell[430015, 13894, 49, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[430101, 13899, 73, 1, 27, "Input"], Cell[430177, 13902, 478, 14, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[430716, 13923, 67, 1, 54, "Section", CellTags->"DiracGammaExpand"], Cell[CellGroupData[{ Cell[430808, 13928, 33, 0, 45, "Subsection"], Cell[430844, 13930, 162, 4, 50, "Text"], Cell[431009, 13936, 840, 33, 58, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[431886, 13974, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[431941, 13978, 294, 7, 27, "Input"], Cell[432238, 13987, 443, 13, 28, "Output"] }, Open ]], Cell[432696, 14003, 96, 3, 32, "Text"], Cell[CellGroupData[{ Cell[432817, 14010, 65, 1, 27, "Input"], Cell[432885, 14013, 71, 0, 40, "Output"] }, Open ]], Cell[432971, 14016, 70, 0, 32, "Text"], Cell[CellGroupData[{ Cell[433066, 14020, 72, 1, 27, "Input"], Cell[433141, 14023, 657, 19, 28, "Output"] }, Open ]], Cell[433813, 14045, 59, 0, 32, "Text"], Cell[CellGroupData[{ Cell[433897, 14049, 162, 3, 27, "Input"], Cell[434062, 14054, 71, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[434170, 14059, 112, 2, 27, "Input"], Cell[434285, 14063, 106, 3, 55, "Output"] }, Open ]], Cell[434406, 14069, 75, 0, 32, "Text"], Cell[CellGroupData[{ Cell[434506, 14073, 69, 1, 27, "Input"], Cell[434578, 14076, 530, 16, 29, "Output"] }, Open ]], Cell[435123, 14095, 61, 1, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[435233, 14102, 55, 1, 54, "Section", CellTags->"DiracGamma"], Cell[CellGroupData[{ Cell[435313, 14107, 33, 0, 45, "Subsection"], Cell[435349, 14109, 950, 27, 140, "Text"], Cell[436302, 14138, 712, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[437051, 14171, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[437106, 14175, 66, 1, 27, "Input"], Cell[437175, 14178, 94, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[437306, 14185, 116, 2, 27, "Input"], Cell[437425, 14189, 101, 2, 28, "Output"] }, Open ]], Cell[437541, 14194, 394, 12, 32, "Text"], Cell[CellGroupData[{ Cell[437960, 14210, 129, 3, 27, "Input"], Cell[438092, 14215, 206, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[438335, 14226, 257, 6, 27, "Input"], Cell[438595, 14234, 443, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[439075, 14252, 193, 5, 27, "Input"], Cell[439271, 14259, 206, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[439514, 14270, 181, 5, 27, "Input"], Cell[439698, 14277, 277, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[440012, 14290, 101, 2, 27, "Input"], Cell[440116, 14294, 657, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[440810, 14318, 283, 7, 27, "Input"], Cell[441096, 14327, 376, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[441509, 14341, 95, 2, 27, "Input"], Cell[441607, 14345, 892, 25, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[442536, 14375, 98, 2, 27, "Input"], Cell[442637, 14379, 1337, 38, 29, "Output"] }, Open ]], Cell[443989, 14420, 126, 3, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[444164, 14429, 57, 1, 54, "Section", CellTags->"DiracGammaT"], Cell[CellGroupData[{ Cell[444246, 14434, 33, 0, 45, "Subsection"], Cell[444282, 14436, 182, 4, 68, "Text"], Cell[444467, 14442, 182, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[444686, 14455, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[444741, 14459, 114, 2, 27, "Input"], Cell[444858, 14463, 204, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[445099, 14474, 65, 1, 27, "Input"], Cell[445167, 14477, 98, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[445302, 14484, 129, 4, 27, "Input"], Cell[445434, 14490, 195, 5, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[445690, 14502, 57, 1, 54, "Section", CellTags->"DiracMatrix"], Cell[CellGroupData[{ Cell[445772, 14507, 33, 0, 45, "Subsection"], Cell[445808, 14509, 954, 30, 104, "Text"], Cell[446765, 14541, 1119, 48, 58, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[447921, 14594, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[447976, 14598, 71, 1, 27, "Input"], Cell[448050, 14601, 98, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[448185, 14608, 144, 3, 27, "Input"], Cell[448332, 14613, 168, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[448537, 14622, 113, 3, 27, "Input"], Cell[448653, 14627, 62, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[448752, 14632, 101, 2, 27, "Input"], Cell[448856, 14636, 98, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[448991, 14643, 61, 1, 27, "Input"], Cell[449055, 14646, 37, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[449129, 14651, 63, 1, 27, "Input"], Cell[449195, 14654, 98, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[449330, 14661, 91, 2, 27, "Input"], Cell[449424, 14665, 65, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[449526, 14670, 108, 2, 27, "Input"], Cell[449637, 14674, 220, 5, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[449918, 14686, 55, 1, 54, "Section", CellTags->"DiracOrder"], Cell[CellGroupData[{ Cell[449998, 14691, 33, 0, 45, "Subsection"], Cell[450034, 14693, 177, 4, 68, "Text"], Cell[450214, 14699, 316, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[450567, 14717, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[450622, 14721, 138, 3, 27, "Input"], Cell[450763, 14726, 173, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[450973, 14735, 67, 1, 27, "Input"], Cell[451043, 14738, 311, 9, 29, "Output"] }, Open ]], Cell[451369, 14750, 68, 0, 32, "Text"], Cell[CellGroupData[{ Cell[451462, 14754, 138, 3, 27, "Input"], Cell[451603, 14759, 219, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[451859, 14769, 67, 1, 27, "Input"], Cell[451929, 14772, 311, 9, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[452277, 14786, 133, 3, 27, "Input"], Cell[452413, 14791, 215, 5, 29, "Output"] }, Open ]], Cell[452643, 14799, 239, 8, 32, "Text"], Cell[CellGroupData[{ Cell[452907, 14811, 67, 1, 27, "Input"], Cell[452977, 14814, 215, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[453229, 14824, 129, 3, 27, "Input"], Cell[453361, 14829, 211, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[453609, 14839, 67, 1, 27, "Input"], Cell[453679, 14842, 164, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[453880, 14851, 148, 4, 27, "Input"], Cell[454031, 14857, 227, 5, 29, "Output"] }, Open ]], Cell[454273, 14865, 455, 15, 32, "Text"], Cell[CellGroupData[{ Cell[454753, 14884, 191, 5, 27, "Input"], Cell[454947, 14891, 827, 20, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[455811, 14916, 66, 1, 27, "Input"], Cell[455880, 14919, 227, 5, 29, "Output"] }, Open ]], Cell[456122, 14927, 126, 3, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[456297, 14936, 57, 1, 54, "Section", CellTags->"DiracReduce"], Cell[CellGroupData[{ Cell[456379, 14941, 33, 0, 45, "Subsection"], Cell[456415, 14943, 637, 14, 212, "Text"], Cell[CellGroupData[{ Cell[457077, 14961, 73, 1, 27, "Input"], Cell[457153, 14964, 317, 8, 28, "Output"] }, Open ]], Cell[457485, 14975, 191, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[457713, 14988, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[457768, 14992, 133, 3, 27, "Input"], Cell[457904, 14997, 168, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[458109, 15006, 68, 1, 27, "Input"], Cell[458180, 15009, 266, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[458483, 15021, 63, 0, 27, "Input"], Cell[458549, 15023, 210, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[458796, 15033, 32, 0, 27, "Input"], Cell[458831, 15035, 969, 25, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[459837, 15065, 72, 0, 27, "Input"], Cell[459912, 15067, 259, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[460208, 15078, 37, 0, 27, "Input"], Cell[460248, 15080, 2076, 52, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[462361, 15137, 227, 5, 27, "Input"], Cell[462591, 15144, 83, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[462711, 15151, 89, 2, 27, "Input"], Cell[462803, 15155, 83, 2, 28, "Output"] }, Open ]], Cell[462901, 15160, 112, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[463062, 15168, 71, 1, 54, "Section", CellTags->"DiracSigmaExplicit"], Cell[CellGroupData[{ Cell[463158, 15173, 33, 0, 45, "Subsection"], Cell[463194, 15175, 155, 4, 50, "Text"], Cell[463352, 15181, 182, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[463571, 15194, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[463626, 15198, 176, 4, 27, "Input"], Cell[463805, 15204, 131, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[463973, 15212, 74, 1, 27, "Input"], Cell[464050, 15215, 466, 12, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[464577, 15234, 55, 1, 54, "Section", CellTags->"DiracSigma"], Cell[CellGroupData[{ Cell[464657, 15239, 33, 0, 45, "Subsection"], Cell[464693, 15241, 189, 4, 50, "Text"], Cell[464885, 15247, 206, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[465128, 15260, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[465183, 15264, 68, 0, 27, "Input"], Cell[465254, 15266, 131, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[465422, 15274, 39, 0, 27, "Input"], Cell[465464, 15276, 466, 12, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[465967, 15293, 68, 0, 27, "Input"], Cell[466038, 15295, 157, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[466232, 15304, 45, 0, 27, "Input"], Cell[466280, 15306, 118, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[466435, 15314, 75, 1, 27, "Input"], Cell[466513, 15317, 1012, 28, 43, "Output"] }, Open ]], Cell[467540, 15348, 101, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[467690, 15356, 61, 1, 54, "Section", CellTags->"DiracSimplify"], Cell[CellGroupData[{ Cell[467776, 15361, 33, 0, 45, "Subsection"], Cell[467812, 15363, 355, 7, 104, "Text"], Cell[CellGroupData[{ Cell[468192, 15374, 75, 1, 27, "Input"], Cell[468270, 15377, 615, 12, 64, "Output"] }, Open ]], Cell[468900, 15392, 441, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[469378, 15415, 30, 0, 45, "Subsection"], Cell[469411, 15417, 71, 0, 32, "Text"], Cell[CellGroupData[{ Cell[469507, 15421, 137, 3, 27, "Input"], Cell[469647, 15426, 219, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[469903, 15436, 70, 1, 27, "Input"], Cell[469976, 15439, 151, 4, 28, "Output"] }, Open ]], Cell[470142, 15446, 68, 0, 32, "Text"], Cell[CellGroupData[{ Cell[470235, 15450, 138, 3, 27, "Input"], Cell[470376, 15455, 219, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[470632, 15465, 70, 1, 27, "Input"], Cell[470705, 15468, 151, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[470893, 15477, 133, 3, 27, "Input"], Cell[471029, 15482, 215, 5, 29, "Output"] }, Open ]], Cell[471259, 15490, 239, 8, 32, "Text"], Cell[CellGroupData[{ Cell[471523, 15502, 70, 1, 27, "Input"], Cell[471596, 15505, 215, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[471848, 15515, 129, 3, 27, "Input"], Cell[471980, 15520, 211, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[472228, 15530, 70, 1, 27, "Input"], Cell[472301, 15533, 164, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[472502, 15542, 312, 8, 27, "Input"], Cell[472817, 15552, 482, 12, 28, "Output"] }, Open ]], Cell[473314, 15567, 94, 3, 32, "Text"], Cell[CellGroupData[{ Cell[473433, 15574, 70, 1, 27, "Input"], Cell[473506, 15577, 2322, 66, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[475865, 15648, 67, 1, 27, "Input"], Cell[475935, 15651, 675, 19, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[476647, 15675, 241, 5, 27, "Input"], Cell[476891, 15682, 395, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[477323, 15698, 70, 1, 27, "Input"], Cell[477396, 15701, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[477492, 15707, 382, 10, 27, "Input"], Cell[477877, 15719, 654, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[478568, 15740, 69, 1, 27, "Input"], Cell[478640, 15743, 14144, 377, 118, "Output"] }, Open ]], Cell[492799, 16123, 89, 3, 32, "Text"], Cell[CellGroupData[{ Cell[492913, 16130, 221, 5, 27, "Input"], Cell[493137, 16137, 298, 8, 28, "Output"] }, Open ]], Cell[493450, 16148, 117, 2, 32, "Text"], Cell[CellGroupData[{ Cell[493592, 16154, 266, 6, 27, "Input"], Cell[493861, 16162, 603, 17, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[494501, 16184, 238, 5, 27, "Input"], Cell[494742, 16191, 59, 1, 28, "Output"] }, Open ]], Cell[494816, 16195, 141, 3, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[495006, 16204, 63, 1, 54, "Section", CellTags->"DiracSimplify2"], Cell[CellGroupData[{ Cell[495094, 16209, 33, 0, 45, "Subsection"], Cell[495130, 16211, 207, 6, 32, "Text"], Cell[495340, 16219, 191, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[495568, 16232, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[495623, 16236, 184, 4, 27, "Input"], Cell[495810, 16242, 427, 9, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[496274, 16256, 70, 1, 27, "Input"], Cell[496347, 16259, 427, 9, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[496835, 16275, 55, 1, 54, "Section", CellTags->"DiracSlash"], Cell[CellGroupData[{ Cell[496915, 16280, 33, 0, 45, "Subsection"], Cell[496951, 16282, 348, 9, 50, "Text"], Cell[CellGroupData[{ Cell[497324, 16295, 72, 1, 27, "Input"], Cell[497399, 16298, 222, 6, 28, "Output"] }, Open ]], Cell[497636, 16307, 917, 38, 58, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[498590, 16350, 30, 0, 45, "Subsection"], Cell[498623, 16352, 306, 9, 32, "Text"], Cell[CellGroupData[{ Cell[498954, 16365, 66, 1, 27, "Input"], Cell[499023, 16368, 206, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[499266, 16379, 134, 3, 27, "Input"], Cell[499403, 16384, 400, 12, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[499840, 16401, 93, 2, 27, "Input"], Cell[499936, 16405, 400, 12, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[500373, 16422, 58, 1, 27, "Input"], Cell[500434, 16425, 104, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[500575, 16432, 102, 2, 27, "Input"], Cell[500680, 16436, 41, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[500758, 16441, 174, 5, 27, "Input"], Cell[500935, 16448, 47, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[501043, 16455, 55, 1, 54, "Section", CellTags->"DiracTrace"], Cell[CellGroupData[{ Cell[501123, 16460, 33, 0, 45, "Subsection"], Cell[501159, 16462, 297, 6, 86, "Text"], Cell[CellGroupData[{ Cell[501481, 16472, 72, 1, 27, "Input"], Cell[501556, 16475, 635, 13, 64, "Output"] }, Open ]], Cell[502206, 16491, 181, 6, 32, "Text"], Cell[502390, 16499, 158, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[502585, 16512, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[502640, 16516, 136, 3, 27, "Input"], Cell[502779, 16521, 260, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[503076, 16533, 177, 4, 27, "Input"], Cell[503256, 16539, 374, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[503667, 16553, 106, 2, 27, "Input"], Cell[503776, 16557, 730, 20, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[504543, 16582, 286, 7, 27, "Input"], Cell[504832, 16591, 683, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[505552, 16617, 320, 7, 27, "Input"], Cell[505875, 16626, 12193, 320, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[518105, 16951, 148, 3, 27, "Input"], Cell[518256, 16956, 394, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[518687, 16970, 272, 6, 27, "Input"], Cell[518962, 16978, 150, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[519149, 16987, 61, 1, 27, "Input"], Cell[519213, 16990, 46, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[519320, 16997, 55, 1, 54, "Section", CellTags->"DiracTrick"], Cell[CellGroupData[{ Cell[519400, 17002, 33, 0, 45, "Subsection"], Cell[519436, 17004, 183, 3, 50, "Text"], Cell[CellGroupData[{ Cell[519644, 17011, 72, 1, 27, "Input"], Cell[519719, 17014, 136, 4, 28, "Output"] }, Open ]], Cell[519870, 17021, 441, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[520348, 17044, 30, 0, 45, "Subsection"], Cell[520381, 17046, 71, 0, 32, "Text"], Cell[CellGroupData[{ Cell[520477, 17050, 137, 3, 27, "Input"], Cell[520617, 17055, 219, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[520873, 17065, 67, 1, 27, "Input"], Cell[520943, 17068, 151, 4, 28, "Output"] }, Open ]], Cell[521109, 17075, 68, 0, 32, "Text"], Cell[CellGroupData[{ Cell[521202, 17079, 138, 3, 27, "Input"], Cell[521343, 17084, 219, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[521599, 17094, 67, 1, 27, "Input"], Cell[521669, 17097, 187, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[521893, 17107, 133, 3, 27, "Input"], Cell[522029, 17112, 215, 5, 29, "Output"] }, Open ]], Cell[522259, 17120, 239, 8, 32, "Text"], Cell[CellGroupData[{ Cell[522523, 17132, 67, 1, 27, "Input"], Cell[522593, 17135, 215, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[522845, 17145, 129, 3, 27, "Input"], Cell[522977, 17150, 211, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[523225, 17160, 67, 1, 27, "Input"], Cell[523295, 17163, 164, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[523496, 17172, 312, 8, 27, "Input"], Cell[523811, 17182, 482, 12, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[524330, 17199, 67, 1, 27, "Input"], Cell[524400, 17202, 675, 19, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[525112, 17226, 61, 1, 27, "Input"], Cell[525176, 17229, 2322, 66, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[527535, 17300, 382, 10, 27, "Input"], Cell[527920, 17312, 654, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[528611, 17333, 66, 1, 27, "Input"], Cell[528680, 17336, 15629, 369, 118, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[544370, 17712, 57, 1, 54, "Section", CellTags->"DotSimplify"], Cell[CellGroupData[{ Cell[544452, 17717, 33, 0, 45, "Subsection"], Cell[544488, 17719, 299, 7, 86, "Text"], Cell[CellGroupData[{ Cell[544812, 17730, 73, 1, 27, "Input"], Cell[544888, 17733, 311, 8, 28, "Output"] }, Open ]], Cell[545214, 17744, 426, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[545677, 17767, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[545732, 17771, 341, 9, 27, "Input"], Cell[546076, 17782, 375, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[546488, 17796, 68, 1, 27, "Input"], Cell[546559, 17799, 510, 12, 28, "Output"] }, Open ]], Cell[547084, 17814, 114, 2, 27, "Input"], Cell[CellGroupData[{ Cell[547223, 17820, 183, 5, 27, "Input"], Cell[547409, 17827, 192, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[547638, 17838, 68, 1, 27, "Input"], Cell[547709, 17841, 231, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[547977, 17853, 122, 3, 27, "Input"], Cell[548102, 17858, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[548198, 17864, 68, 1, 27, "Input"], Cell[548269, 17867, 294, 9, 29, "Output"] }, Open ]], Cell[548578, 17879, 122, 3, 27, "Input"], Cell[CellGroupData[{ Cell[548725, 17886, 68, 1, 27, "Input"], Cell[548796, 17889, 231, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[549064, 17901, 126, 3, 27, "Input"], Cell[549193, 17906, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[549289, 17912, 68, 1, 27, "Input"], Cell[549360, 17915, 292, 9, 29, "Output"] }, Open ]], Cell[549667, 17927, 126, 3, 27, "Input"], Cell[CellGroupData[{ Cell[549818, 17934, 289, 7, 27, "Input"], Cell[550110, 17943, 128, 4, 28, "Output"] }, Open ]], Cell[550253, 17950, 77, 1, 27, "Input"], Cell[CellGroupData[{ Cell[550355, 17955, 104, 2, 27, "Input"], Cell[550462, 17959, 87, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[550586, 17966, 179, 4, 27, "Input"], Cell[550768, 17972, 96, 2, 28, "Output"] }, Open ]], Cell[550879, 17977, 126, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[551054, 17985, 57, 1, 54, "Section", CellTags->"EpsChisholm"], Cell[CellGroupData[{ Cell[551136, 17990, 33, 0, 45, "Subsection"], Cell[551172, 17992, 141, 4, 50, "Text"], Cell[551316, 17998, 176, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[551529, 18011, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[551584, 18015, 175, 4, 27, "Input"], Cell[551762, 18021, 1762, 48, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[553561, 18074, 67, 1, 27, "Input"], Cell[553631, 18077, 274, 6, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[553966, 18090, 57, 1, 54, "Section", CellTags->"EpsEvaluate"], Cell[CellGroupData[{ Cell[554048, 18095, 33, 0, 45, "Subsection"], Cell[554084, 18097, 147, 3, 50, "Text"], Cell[554234, 18102, 515, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[554786, 18130, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[554841, 18134, 330, 9, 27, "Input"], Cell[555174, 18145, 545, 18, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[555756, 18168, 67, 1, 27, "Input"], Cell[555826, 18171, 1056, 34, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[556919, 18210, 65, 1, 27, "Input"], Cell[556987, 18213, 210, 3, 85, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[557258, 18223, 49, 1, 54, "Section", CellTags->"Epsilon"], Cell[CellGroupData[{ Cell[557332, 18228, 33, 0, 45, "Subsection"], Cell[557368, 18230, 224, 8, 50, "Text"], Cell[557595, 18240, 173, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[557805, 18253, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[557860, 18257, 33, 0, 27, "Input"], Cell[557896, 18259, 113, 3, 28, "Output"] }, Open ]], Cell[558024, 18265, 94, 3, 32, "Text"], Cell[CellGroupData[{ Cell[558143, 18272, 630, 17, 43, "Input"], Cell[558776, 18291, 169, 4, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[559006, 18302, 41, 1, 54, "Section", CellTags->"Eps"], Cell[CellGroupData[{ Cell[559072, 18307, 33, 0, 45, "Subsection"], Cell[559108, 18309, 262, 4, 68, "Text"], Cell[CellGroupData[{ Cell[559395, 18317, 65, 1, 27, "Input"], Cell[559463, 18320, 132, 4, 28, "Output"] }, Open ]], Cell[559610, 18327, 515, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[560162, 18355, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[560217, 18359, 306, 6, 43, "Input"], Cell[560526, 18367, 574, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[561137, 18391, 298, 6, 43, "Input"], Cell[561438, 18399, 515, 17, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[561990, 18421, 151, 4, 27, "Input"], Cell[562144, 18427, 34, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[562215, 18432, 106, 2, 27, "Input"], Cell[562324, 18436, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[562420, 18442, 106, 2, 27, "Input"], Cell[562529, 18446, 81, 2, 28, "Output"] }, Open ]], Cell[562625, 18451, 164, 4, 27, "Input"], Cell[CellGroupData[{ Cell[562814, 18459, 481, 11, 43, "Input"], Cell[563298, 18472, 574, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[563909, 18496, 88, 2, 27, "Input"], Cell[564000, 18500, 82, 2, 28, "Output"] }, Open ]], Cell[564097, 18505, 164, 4, 27, "Input"], Cell[CellGroupData[{ Cell[564286, 18513, 481, 11, 43, "Input"], Cell[564770, 18526, 574, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[565381, 18550, 124, 3, 27, "Input"], Cell[565508, 18555, 289, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[565834, 18569, 115, 2, 27, "Input"], Cell[565952, 18573, 1066, 29, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[567055, 18607, 126, 2, 42, "Input"], Cell[567184, 18611, 2031, 52, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[569252, 18668, 46, 0, 27, "Input"], Cell[569301, 18670, 353, 11, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[569691, 18686, 88, 2, 27, "Input"], Cell[569782, 18690, 59, 1, 28, "Output"] }, Open ]], Cell[569856, 18694, 113, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[570018, 18702, 63, 1, 54, "Section", CellTags->"ExpandPartialD"], Cell[CellGroupData[{ Cell[570106, 18707, 33, 0, 45, "Subsection"], Cell[570142, 18709, 158, 4, 50, "Text"], Cell[570303, 18715, 605, 22, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[570945, 18742, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[571000, 18746, 356, 8, 43, "Input"], Cell[571359, 18756, 351, 10, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[571747, 18771, 70, 1, 27, "Input"], Cell[571820, 18774, 948, 28, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[572805, 18807, 61, 1, 27, "Input"], Cell[572869, 18810, 276, 4, 115, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[573182, 18819, 227, 5, 27, "Input"], Cell[573412, 18826, 313, 9, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[573762, 18840, 70, 1, 27, "Input"], Cell[573835, 18843, 820, 24, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[574692, 18872, 433, 11, 59, "Input"], Cell[575128, 18885, 321, 8, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[575486, 18898, 70, 1, 27, "Input"], Cell[575559, 18901, 2032, 55, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[577628, 18961, 140, 4, 27, "Input"], Cell[577771, 18967, 246, 6, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[578054, 18978, 72, 1, 27, "Input"], Cell[578129, 18981, 1245, 32, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[579411, 19018, 70, 1, 27, "Input"], Cell[579484, 19021, 1632, 44, 38, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[581153, 19070, 290, 7, 27, "Input"], Cell[581446, 19079, 1580, 46, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[583063, 19130, 70, 1, 27, "Input"], Cell[583136, 19133, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[583256, 19141, 73, 1, 54, "Section", CellTags->"ExpandScalarProduct"], Cell[CellGroupData[{ Cell[583354, 19146, 33, 0, 45, "Subsection"], Cell[583390, 19148, 157, 4, 50, "Text"], Cell[583550, 19154, 164, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[583751, 19167, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[583806, 19171, 114, 3, 27, "Input"], Cell[583923, 19176, 232, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[584192, 19188, 75, 1, 27, "Input"], Cell[584270, 19191, 309, 10, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[584616, 19206, 118, 3, 27, "Input"], Cell[584737, 19211, 204, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[584978, 19222, 75, 1, 27, "Input"], Cell[585056, 19225, 468, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[585561, 19246, 179, 5, 27, "Input"], Cell[585743, 19253, 273, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[586053, 19266, 107, 2, 27, "Input"], Cell[586163, 19270, 613, 20, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[586837, 19297, 51, 1, 54, "Section", CellTags->"Explicit"], Cell[CellGroupData[{ Cell[586913, 19302, 33, 0, 45, "Subsection"], Cell[586949, 19304, 302, 6, 104, "Text"], Cell[587254, 19312, 337, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[587628, 19330, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[587683, 19334, 198, 4, 27, "Input"], Cell[587884, 19340, 1293, 41, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[589214, 19386, 64, 1, 27, "Input"], Cell[589281, 19389, 4367, 127, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[593685, 19521, 143, 3, 27, "Input"], Cell[593831, 19526, 1125, 34, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[594993, 19565, 64, 1, 27, "Input"], Cell[595060, 19568, 3929, 108, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[599026, 19681, 114, 2, 27, "Input"], Cell[599143, 19685, 127, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[599307, 19693, 64, 1, 27, "Input"], Cell[599374, 19696, 2093, 65, 31, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[601528, 19768, 67, 1, 54, "Section", CellTags->"ExplicitPartialD"], Cell[CellGroupData[{ Cell[601620, 19773, 33, 0, 45, "Subsection"], Cell[601656, 19775, 132, 4, 50, "Text"], Cell[601791, 19781, 483, 17, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[602311, 19803, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[602366, 19807, 134, 2, 27, "Input"], Cell[602503, 19811, 602, 17, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[603142, 19833, 135, 2, 27, "Input"], Cell[603280, 19837, 467, 14, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[603784, 19856, 140, 3, 27, "Input"], Cell[603927, 19861, 496, 13, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[604460, 19879, 140, 4, 27, "Input"], Cell[604603, 19885, 247, 6, 34, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[604911, 19898, 49, 1, 54, "Section", CellTags->"Factor2"], Cell[CellGroupData[{ Cell[604985, 19903, 33, 0, 45, "Subsection"], Cell[605021, 19905, 380, 8, 104, "Text"], Cell[CellGroupData[{ Cell[605426, 19917, 69, 1, 27, "Input"], Cell[605498, 19920, 210, 6, 28, "Output"] }, Open ]], Cell[605723, 19929, 176, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[605936, 19942, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[605991, 19946, 195, 6, 27, "Input"], Cell[606189, 19954, 206, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[606432, 19965, 199, 5, 27, "Input"], Cell[606634, 19972, 484, 15, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[607155, 19992, 242, 7, 27, "Input"], Cell[607400, 20001, 146, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[607583, 20010, 63, 1, 27, "Input"], Cell[607649, 20013, 206, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[607892, 20024, 64, 1, 27, "Input"], Cell[607959, 20027, 146, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[608142, 20036, 138, 3, 27, "Input"], Cell[608283, 20041, 206, 6, 28, "Output"] }, Open ]], Cell[608504, 20050, 101, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[608654, 20058, 41, 1, 54, "Section", CellTags->"FAD"], Cell[CellGroupData[{ Cell[608720, 20063, 33, 0, 45, "Subsection"], Cell[608756, 20065, 322, 8, 122, "Text"], Cell[609081, 20075, 849, 33, 58, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[609967, 20113, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[610022, 20117, 115, 3, 27, "Input"], Cell[610140, 20122, 862, 22, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[611039, 20149, 179, 5, 27, "Input"], Cell[611221, 20156, 996, 24, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[612254, 20185, 236, 7, 27, "Input"], Cell[612493, 20194, 31, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[612561, 20199, 198, 6, 27, "Input"], Cell[612762, 20207, 148, 3, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[612947, 20215, 270, 7, 27, "Input"], Cell[613220, 20224, 148, 3, 55, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[613429, 20234, 41, 1, 54, "Section", CellTags->"FCE"], Cell[CellGroupData[{ Cell[613495, 20239, 33, 0, 45, "Subsection"], Cell[613531, 20241, 108, 3, 32, "Text"], Cell[613642, 20246, 54, 0, 32, "Text"], Cell[613699, 20248, 447, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[614183, 20271, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[614238, 20275, 253, 7, 27, "Input"], Cell[614494, 20284, 210, 6, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[614741, 20295, 61, 1, 27, "Input"], Cell[614805, 20298, 32, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[614874, 20303, 449, 11, 27, "Input"], Cell[615326, 20316, 613, 16, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[615976, 20337, 61, 1, 27, "Input"], Cell[616040, 20340, 113, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[616190, 20347, 55, 1, 27, "Input"], Cell[616248, 20350, 839, 24, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[617124, 20379, 61, 1, 27, "Input"], Cell[617188, 20382, 274, 4, 100, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[617499, 20391, 95, 2, 27, "Input"], Cell[617597, 20395, 113, 2, 55, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[617771, 20404, 41, 1, 54, "Section", CellTags->"FCI"], Cell[CellGroupData[{ Cell[617837, 20409, 33, 0, 45, "Subsection"], Cell[617873, 20411, 104, 3, 32, "Text"], Cell[617980, 20416, 54, 0, 32, "Text"], Cell[618037, 20418, 447, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[618521, 20441, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[618576, 20445, 449, 11, 27, "Input"], Cell[619028, 20458, 613, 16, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[619678, 20479, 61, 1, 27, "Input"], Cell[619742, 20482, 113, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[619892, 20489, 55, 1, 27, "Input"], Cell[619950, 20492, 839, 24, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[620826, 20521, 61, 1, 27, "Input"], Cell[620890, 20524, 274, 4, 100, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[621201, 20533, 95, 2, 27, "Input"], Cell[621299, 20537, 113, 2, 55, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[621473, 20546, 63, 1, 54, "Section", CellTags->"FermionSpinSum"], Cell[CellGroupData[{ Cell[621561, 20551, 33, 0, 45, "Subsection"], Cell[621597, 20553, 91, 3, 32, "Text"], Cell[CellGroupData[{ Cell[621713, 20560, 76, 1, 27, "Input"], Cell[621792, 20563, 294, 7, 28, "Output"] }, Open ]], Cell[622101, 20573, 426, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[622564, 20596, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[622619, 20600, 319, 8, 27, "Input"], Cell[622941, 20610, 512, 14, 29, "Output"] }, Open ]], Cell[623468, 20627, 184, 3, 50, "Text"], Cell[CellGroupData[{ Cell[623677, 20634, 100, 2, 27, "Input"], Cell[623780, 20638, 622, 17, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[624439, 20660, 98, 2, 27, "Input"], Cell[624540, 20664, 1260, 32, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[625837, 20701, 96, 2, 27, "Input"], Cell[625936, 20705, 1046, 31, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[627043, 20743, 85, 1, 54, "Section", CellTags->"FeynAmpDenominatorCombine"], Cell[CellGroupData[{ Cell[627153, 20748, 33, 0, 45, "Subsection"], Cell[627189, 20750, 187, 4, 68, "Text"], Cell[627379, 20756, 221, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[627637, 20769, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[627692, 20773, 192, 5, 27, "Input"], Cell[627887, 20780, 925, 25, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[628849, 20810, 156, 4, 27, "Input"], Cell[629008, 20816, 32, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[629077, 20821, 154, 4, 27, "Input"], Cell[629234, 20827, 36, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[629331, 20834, 71, 1, 54, "Section", CellTags->"FeynAmpDenominator"], Cell[CellGroupData[{ Cell[629427, 20839, 33, 0, 45, "Subsection"], Cell[629463, 20841, 226, 5, 68, "Text"], Cell[629692, 20848, 334, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[630063, 20866, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[630118, 20870, 155, 3, 27, "Input"], Cell[630276, 20875, 177, 5, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[630490, 20885, 310, 7, 43, "Input"], Cell[630803, 20894, 464, 14, 46, "Output"] }, Open ]], Cell[631282, 20911, 214, 5, 27, "Input"], Cell[CellGroupData[{ Cell[631521, 20920, 95, 2, 27, "Input"], Cell[631619, 20924, 78, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[631734, 20929, 95, 2, 27, "Input"], Cell[631832, 20933, 29, 0, 40, "Output"] }, Open ]], Cell[631876, 20936, 83, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[632008, 20944, 87, 1, 54, "Section", CellTags->"FeynAmpDenominatorSimplify"], Cell[CellGroupData[{ Cell[632120, 20949, 33, 0, 45, "Subsection"], Cell[632156, 20951, 359, 6, 86, "Text"], Cell[632518, 20959, 44, 0, 32, "Text"], Cell[CellGroupData[{ Cell[632587, 20963, 29, 0, 27, "Input"], Cell[632619, 20965, 84, 1, 28, "Output"] }, Open ]], Cell[632718, 20969, 197, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[632952, 20982, 30, 0, 45, "Subsection"], Cell[632985, 20984, 509, 14, 32, "Text"], Cell[CellGroupData[{ Cell[633519, 21002, 245, 6, 27, "Input"], Cell[633767, 21010, 59, 1, 28, "Output"] }, Open ]], Cell[633841, 21014, 531, 17, 32, "Text"], Cell[CellGroupData[{ Cell[634397, 21035, 310, 8, 27, "Input"], Cell[634710, 21045, 330, 10, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[635077, 21060, 469, 12, 27, "Input"], Cell[635549, 21074, 1392, 41, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[636978, 21120, 167, 4, 27, "Input"], Cell[637148, 21126, 1011, 30, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[638196, 21161, 98, 2, 27, "Input"], Cell[638297, 21165, 536, 17, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[638870, 21187, 375, 11, 27, "Input"], Cell[639248, 21200, 1768, 50, 49, "Output"] }, Open ]], Cell[641031, 21253, 88, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[641168, 21261, 81, 1, 54, "Section", CellTags->"FeynAmpDenominatorSplit"], Cell[CellGroupData[{ Cell[641274, 21266, 33, 0, 45, "Subsection"], Cell[641310, 21268, 317, 6, 86, "Text"], Cell[641630, 21276, 227, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[641894, 21289, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[641949, 21293, 284, 7, 27, "Input"], Cell[642236, 21302, 674, 19, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[642947, 21326, 56, 1, 27, "Input"], Cell[643006, 21329, 76, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[643119, 21335, 79, 1, 27, "Input"], Cell[643201, 21338, 674, 19, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[643912, 21362, 91, 2, 27, "Input"], Cell[644006, 21366, 72, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[644115, 21371, 186, 5, 27, "Input"], Cell[644304, 21378, 60, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[644401, 21383, 156, 4, 27, "Input"], Cell[644560, 21389, 56, 0, 40, "Output"] }, Open ]], Cell[644631, 21392, 61, 1, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[644741, 21399, 49, 1, 54, "Section", CellTags->"FeynAmp"], Cell[CellGroupData[{ Cell[644815, 21404, 33, 0, 45, "Subsection"], Cell[644851, 21406, 221, 5, 68, "Text"], Cell[645075, 21413, 144, 4, 50, "Text"], Cell[645222, 21419, 182, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[645441, 21432, 30, 0, 45, "Subsection"], Cell[645474, 21434, 100, 3, 38, "Text"], Cell[CellGroupData[{ Cell[645599, 21441, 936, 20, 43, "Input"], Cell[646538, 21463, 5334, 138, 94, "Output"] }, Open ]], Cell[651887, 21604, 51, 0, 32, "Text"], Cell[CellGroupData[{ Cell[651963, 21608, 195, 5, 27, "Input"], Cell[652161, 21615, 673, 18, 47, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[652895, 21640, 61, 1, 54, "Section", CellTags->"FeynCalc2FORM"], Cell[CellGroupData[{ Cell[652981, 21645, 33, 0, 45, "Subsection"], Cell[653017, 21647, 195, 4, 68, "Text"], Cell[CellGroupData[{ Cell[653237, 21655, 191, 8, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[653453, 21667, 75, 1, 27, "Input"], Cell[653531, 21670, 1099, 21, 64, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[654691, 21698, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[654746, 21702, 251, 7, 27, "Input"], Cell[655000, 21711, 260, 7, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[655297, 21723, 91, 2, 27, "Input"], Cell[655391, 21727, 88, 1, 24, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[655516, 21733, 163, 4, 27, "Input"], Cell[655682, 21739, 162, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[655881, 21748, 91, 2, 27, "Input"], Cell[655975, 21752, 84, 1, 24, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[656096, 21758, 177, 4, 27, "Input"], Cell[656276, 21764, 374, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[656687, 21778, 91, 2, 27, "Input"], Cell[656781, 21782, 103, 2, 24, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[656921, 21789, 278, 7, 27, "Input"], Cell[657202, 21798, 513, 14, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[657752, 21817, 91, 2, 27, "Input"], Cell[657846, 21821, 103, 2, 24, "Print"] }, Open ]], Cell[657964, 21826, 323, 8, 27, "Input"], Cell[CellGroupData[{ Cell[658312, 21838, 59, 0, 27, "Input"], Cell[658374, 21840, 313, 9, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[658724, 21854, 307, 8, 27, "Input"], Cell[659034, 21864, 8460, 239, 64, "Output"] }, Open ]], Cell[667509, 22106, 174, 4, 27, "Input"], Cell[CellGroupData[{ Cell[667708, 22114, 155, 3, 27, "Input"], Cell[667866, 22119, 1655, 40, 273, "Output"] }, Open ]], Cell[669536, 22162, 239, 6, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[669824, 22174, 67, 1, 54, "Section", CellTags->"FeynCalcExternal"], Cell[CellGroupData[{ Cell[669916, 22179, 33, 0, 45, "Subsection"], Cell[669952, 22181, 124, 3, 50, "Text"], Cell[670079, 22186, 200, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[670316, 22199, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[670371, 22203, 113, 2, 27, "Input"], Cell[670487, 22207, 94, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[670618, 22214, 61, 1, 27, "Input"], Cell[670682, 22217, 23, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[670742, 22222, 449, 11, 27, "Input"], Cell[671194, 22235, 613, 16, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[671844, 22256, 61, 1, 27, "Input"], Cell[671908, 22259, 113, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[672058, 22266, 68, 1, 27, "Input"], Cell[672129, 22269, 839, 24, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[673005, 22298, 61, 1, 27, "Input"], Cell[673069, 22301, 274, 4, 100, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[673380, 22310, 111, 3, 27, "Input"], Cell[673494, 22315, 113, 2, 55, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[673668, 22324, 67, 1, 54, "Section", CellTags->"FeynCalcInternal"], Cell[CellGroupData[{ Cell[673760, 22329, 33, 0, 45, "Subsection"], Cell[673796, 22331, 128, 4, 50, "Text"], Cell[673927, 22337, 408, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[674372, 22360, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[674427, 22364, 449, 11, 27, "Input"], Cell[674879, 22377, 613, 16, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[675529, 22398, 61, 1, 27, "Input"], Cell[675593, 22401, 113, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[675743, 22408, 68, 1, 27, "Input"], Cell[675814, 22411, 839, 24, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[676690, 22440, 61, 1, 27, "Input"], Cell[676754, 22443, 274, 4, 100, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[677065, 22452, 111, 3, 27, "Input"], Cell[677179, 22457, 113, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[677329, 22464, 540, 13, 43, "Input"], Cell[677872, 22479, 1990, 61, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[679899, 22545, 61, 1, 27, "Input"], Cell[679963, 22548, 341, 5, 115, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[680365, 22560, 51, 1, 54, "Section", CellTags->"FeynRule"], Cell[CellGroupData[{ Cell[680441, 22565, 33, 0, 45, "Subsection"], Cell[680477, 22567, 146, 4, 50, "Text"], Cell[CellGroupData[{ Cell[680648, 22575, 34, 0, 27, "Input"], Cell[680685, 22577, 663, 15, 46, "Output"] }, Open ]], Cell[681363, 22595, 70, 0, 32, "Text"], Cell[681436, 22597, 110, 3, 32, "Text"], Cell[681549, 22602, 182, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[681768, 22615, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[681823, 22619, 42, 0, 27, "Input"], Cell[681868, 22621, 846, 23, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[682751, 22649, 42, 0, 27, "Input"], Cell[682796, 22651, 1324, 36, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[684157, 22692, 66, 1, 27, "Input"], Cell[684226, 22695, 6178, 157, 66, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[690441, 22857, 141, 4, 27, "Input"], Cell[690585, 22863, 738, 10, 235, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[691360, 22878, 60, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[691445, 22882, 126, 2, 42, "Input"], Cell[691574, 22886, 892, 28, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[692503, 22919, 308, 7, 43, "Input"], Cell[692814, 22928, 5733, 142, 66, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[698596, 23076, 58, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[698679, 23080, 552, 14, 43, "Input"], Cell[699234, 23096, 892, 28, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[700163, 23129, 298, 7, 43, "Input"], Cell[700464, 23138, 7016, 157, 85, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[707517, 23300, 195, 5, 27, "Input"], Cell[707715, 23307, 1305, 40, 29, "Output"] }, Open ]], Cell[709035, 23350, 89, 3, 32, "Text"], Cell[CellGroupData[{ Cell[709149, 23357, 357, 8, 43, "Input"], Cell[709509, 23367, 1405, 43, 29, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[710963, 23416, 63, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[711051, 23420, 109, 2, 27, "Input"], Cell[711163, 23424, 734, 20, 29, "Output"] }, Open ]], Cell[711912, 23447, 209, 8, 32, "Text"], Cell[CellGroupData[{ Cell[712146, 23459, 98, 3, 42, "Input"], Cell[712247, 23464, 349, 11, 29, "Output"] }, Open ]], Cell[712611, 23478, 208, 5, 68, "Text"], Cell[CellGroupData[{ Cell[712844, 23487, 272, 6, 43, "Input"], Cell[713119, 23495, 825, 23, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[713981, 23523, 69, 1, 27, "Input"], Cell[714053, 23526, 825, 23, 29, "Output"] }, Open ]], Cell[714893, 23552, 94, 3, 32, "Text"], Cell[CellGroupData[{ Cell[715012, 23559, 150, 4, 27, "Input"], Cell[715165, 23565, 525, 15, 29, "Output"] }, Open ]], Cell[715705, 23583, 50, 0, 32, "Text"], Cell[CellGroupData[{ Cell[715780, 23587, 204, 5, 27, "Input"], Cell[715987, 23594, 525, 15, 29, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[716561, 23615, 70, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[716656, 23619, 104, 2, 27, "Input"], Cell[716763, 23623, 734, 20, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[717534, 23648, 157, 2, 57, "Input"], Cell[717694, 23652, 744, 23, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[718475, 23680, 268, 6, 43, "Input"], Cell[718746, 23688, 2820, 70, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[721603, 23763, 337, 9, 27, "Input"], Cell[721943, 23774, 1905, 50, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[723885, 23829, 300, 7, 27, "Input"], Cell[724188, 23838, 1898, 51, 53, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[726135, 23895, 68, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[726228, 23899, 104, 2, 27, "Input"], Cell[726335, 23903, 785, 21, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[727157, 23929, 157, 2, 57, "Input"], Cell[727317, 23933, 744, 23, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[728098, 23961, 268, 6, 43, "Input"], Cell[728369, 23969, 2961, 73, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[731367, 24047, 337, 9, 27, "Input"], Cell[731707, 24058, 1982, 52, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[733726, 24115, 300, 7, 27, "Input"], Cell[734029, 24124, 1975, 53, 53, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[736053, 24183, 76, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[736154, 24187, 104, 2, 27, "Input"], Cell[736261, 24191, 734, 20, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[737032, 24216, 214, 4, 72, "Input"], Cell[737249, 24222, 1139, 35, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[738425, 24262, 198, 5, 27, "Input"], Cell[738626, 24269, 6725, 173, 114, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[745388, 24447, 428, 10, 43, "Input"], Cell[745819, 24459, 7117, 159, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[752973, 24623, 407, 11, 27, "Input"], Cell[753383, 24636, 59, 1, 28, "Output"] }, Open ]], Cell[753457, 24640, 194, 3, 68, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[753688, 24648, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[753750, 24652, 821, 21, 59, "Input"], Cell[754574, 24675, 1288, 40, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[755899, 24720, 187, 5, 27, "Input"], Cell[756089, 24727, 2736, 76, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[758862, 24808, 377, 9, 27, "Input"], Cell[759242, 24819, 2885, 82, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[762164, 24906, 167, 4, 27, "Input"], Cell[762334, 24912, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[762430, 24918, 1119, 27, 75, "Input"], Cell[763552, 24947, 1686, 52, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[765275, 25004, 192, 5, 27, "Input"], Cell[765470, 25011, 4569, 128, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[770076, 25144, 464, 11, 43, "Input"], Cell[770543, 25157, 8874, 226, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[779454, 25388, 167, 4, 27, "Input"], Cell[779624, 25394, 59, 1, 28, "Output"] }, Open ]], Cell[779698, 25398, 374, 7, 43, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[780133, 25412, 61, 1, 54, "Section", CellTags->"FieldStrength"], Cell[CellGroupData[{ Cell[780219, 25417, 33, 0, 45, "Subsection"], Cell[780255, 25419, 1438, 36, 140, "Text"], Cell[CellGroupData[{ Cell[781718, 25459, 75, 1, 27, "Input"], Cell[781796, 25462, 499, 12, 46, "Output"] }, Open ]], Cell[782310, 25477, 188, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[782535, 25490, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[782590, 25494, 104, 2, 27, "Input"], Cell[782697, 25498, 133, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[782867, 25506, 114, 2, 27, "Input"], Cell[782984, 25510, 127, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[783148, 25518, 159, 3, 27, "Input"], Cell[783310, 25523, 888, 28, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[784235, 25556, 169, 3, 27, "Input"], Cell[784407, 25561, 2095, 65, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[786539, 25631, 203, 4, 27, "Input"], Cell[786745, 25637, 202, 3, 85, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[786984, 25645, 206, 4, 27, "Input"], Cell[787193, 25651, 200, 3, 85, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[787430, 25659, 261, 5, 43, "Input"], Cell[787694, 25666, 2095, 65, 31, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[789850, 25738, 61, 1, 54, "Section", CellTags->"FORM2FeynCalc"], Cell[CellGroupData[{ Cell[789936, 25743, 33, 0, 45, "Subsection"], Cell[789972, 25745, 449, 8, 104, "Text"], Cell[CellGroupData[{ Cell[790446, 25757, 191, 8, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[790662, 25769, 75, 1, 27, "Input"], Cell[790740, 25772, 702, 16, 64, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[791503, 25795, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[791558, 25799, 89, 1, 27, "Input"], Cell[791650, 25802, 414, 13, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[792101, 25820, 61, 1, 27, "Input"], Cell[792165, 25823, 38, 0, 40, "Output"] }, Open ]], Cell[792218, 25826, 131, 3, 50, "Text"], Cell[CellGroupData[{ Cell[792374, 25833, 288, 6, 43, "Input"], Cell[792665, 25841, 304, 8, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[793006, 25854, 61, 1, 27, "Input"], Cell[793070, 25857, 57, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[793164, 25862, 88, 1, 27, "Input"], Cell[793255, 25865, 157, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[793449, 25875, 100, 2, 27, "Input"], Cell[793552, 25879, 217, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[793806, 25890, 61, 1, 27, "Input"], Cell[793870, 25893, 49, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[793956, 25898, 306, 7, 43, "Input"], Cell[794265, 25907, 229, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[794531, 25918, 159, 4, 43, "Input"], Cell[794693, 25924, 541, 13, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[795295, 25944, 63, 1, 54, "Section", CellTags->"FourDivergence"], Cell[CellGroupData[{ Cell[795383, 25949, 33, 0, 45, "Subsection"], Cell[795419, 25951, 214, 4, 50, "Text"], Cell[795636, 25957, 188, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[795861, 25970, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[795916, 25974, 125, 3, 27, "Input"], Cell[796044, 25979, 191, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[796272, 25990, 175, 4, 27, "Input"], Cell[796450, 25996, 236, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[796723, 26009, 156, 4, 27, "Input"], Cell[796882, 26015, 232, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[797151, 26027, 208, 5, 27, "Input"], Cell[797362, 26034, 59, 1, 28, "Output"] }, Open ]], Cell[797436, 26038, 61, 1, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[797546, 26045, 61, 1, 54, "Section", CellTags->"FourLaplacian"], Cell[CellGroupData[{ Cell[797632, 26050, 33, 0, 45, "Subsection"], Cell[797668, 26052, 462, 15, 32, "Text"], Cell[CellGroupData[{ Cell[798155, 26071, 75, 1, 27, "Input"], Cell[798233, 26074, 132, 4, 28, "Output"] }, Open ]], Cell[798380, 26081, 325, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[798742, 26099, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[798797, 26103, 85, 2, 27, "Input"], Cell[798885, 26107, 134, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[799056, 26116, 106, 2, 27, "Input"], Cell[799165, 26120, 86, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[799288, 26127, 247, 7, 27, "Input"], Cell[799538, 26136, 485, 15, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[800060, 26156, 111, 2, 27, "Input"], Cell[800174, 26160, 5233, 143, 130, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[805468, 26310, 55, 1, 54, "Section", CellTags->"FourVector"], Cell[CellGroupData[{ Cell[805548, 26315, 33, 0, 45, "Subsection"], Cell[805584, 26317, 207, 3, 50, "Text"], Cell[805794, 26322, 369, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[806200, 26345, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[806255, 26349, 97, 2, 27, "Input"], Cell[806355, 26353, 236, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[806628, 26366, 126, 3, 27, "Input"], Cell[806757, 26371, 302, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[807096, 26386, 139, 3, 27, "Input"], Cell[807238, 26391, 66, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[807341, 26396, 194, 4, 27, "Input"], Cell[807538, 26402, 72, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[807647, 26407, 177, 4, 27, "Input"], Cell[807827, 26413, 40, 0, 40, "Output"] }, Open ]], Cell[807882, 26416, 169, 4, 50, "Text"], Cell[CellGroupData[{ Cell[808076, 26424, 180, 4, 27, "Input"], Cell[808259, 26430, 468, 16, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[808788, 26453, 47, 1, 54, "Section", CellTags->"FreeQ2"], Cell[CellGroupData[{ Cell[808860, 26458, 33, 0, 45, "Subsection"], Cell[808896, 26460, 206, 4, 68, "Text"], Cell[809105, 26466, 316, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[809458, 26484, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[809513, 26488, 229, 6, 27, "Input"], Cell[809745, 26496, 63, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[809845, 26502, 224, 6, 27, "Input"], Cell[810072, 26510, 62, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[810171, 26516, 94, 2, 27, "Input"], Cell[810268, 26520, 62, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[810367, 26526, 128, 3, 27, "Input"], Cell[810498, 26531, 63, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[810622, 26539, 49, 1, 54, "Section", CellTags->"FromTFi"], Cell[CellGroupData[{ Cell[810696, 26544, 33, 0, 45, "Subsection"], Cell[810732, 26546, 179, 4, 50, "Text"], Cell[810914, 26552, 265, 12, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[811216, 26569, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[811271, 26573, 381, 10, 27, "Input"], Cell[811655, 26585, 1084, 33, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[812776, 26623, 801, 20, 59, "Input"], Cell[813580, 26645, 890, 25, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[814507, 26675, 879, 22, 59, "Input"], Cell[815389, 26699, 1186, 34, 47, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[816636, 26740, 41, 1, 54, "Section", CellTags->"FRH"], Cell[CellGroupData[{ Cell[816702, 26745, 33, 0, 45, "Subsection"], Cell[816738, 26747, 116, 3, 32, "Text"], Cell[816857, 26752, 173, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[817067, 26765, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[817122, 26769, 175, 4, 27, "Input"], Cell[817300, 26775, 242, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[817579, 26787, 59, 1, 27, "Input"], Cell[817641, 26790, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[817737, 26796, 300, 8, 27, "Input"], Cell[818040, 26806, 608, 18, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[818685, 26829, 91, 2, 27, "Input"], Cell[818779, 26833, 625, 19, 71, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[819465, 26859, 57, 1, 54, "Section", CellTags->"FunctionalD"], Cell[CellGroupData[{ Cell[819547, 26864, 33, 0, 45, "Subsection"], Cell[819583, 26866, 401, 5, 104, "Text"], Cell[819987, 26873, 69, 0, 32, "Text"], Cell[820059, 26875, 307, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[820403, 26893, 30, 0, 45, "Subsection"], Cell[820436, 26895, 690, 20, 50, "Text"], Cell[CellGroupData[{ Cell[821151, 26919, 194, 4, 27, "Input"], Cell[821348, 26925, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[821444, 26931, 225, 5, 27, "Input"], Cell[821672, 26938, 91, 2, 28, "Output"] }, Open ]], Cell[821778, 26943, 1498, 44, 71, "Text"], Cell[CellGroupData[{ Cell[823301, 26991, 283, 7, 27, "Input"], Cell[823587, 27000, 272, 8, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[823896, 27013, 984, 24, 41, "Subsubsection"], Cell[CellGroupData[{ Cell[824905, 27041, 767, 20, 75, "Input"], Cell[825675, 27063, 926, 25, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[826638, 27093, 183, 4, 27, "Input"], Cell[826824, 27099, 758, 23, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[827631, 27128, 576, 15, 41, "Subsubsection"], Cell[828210, 27145, 72, 1, 32, "Text"], Cell[CellGroupData[{ Cell[828307, 27150, 295, 6, 27, "Input"], Cell[828605, 27158, 1811, 56, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[830453, 27219, 295, 6, 27, "Input"], Cell[830751, 27227, 1811, 56, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[832599, 27288, 192, 6, 27, "Input"], Cell[832794, 27296, 4649, 118, 43, "Output"] }, Open ]], Cell[837458, 27417, 556, 12, 86, "Text"], Cell[838017, 27431, 1899, 49, 30, "Text"], Cell[839919, 27482, 507, 12, 29, "Text"], Cell[CellGroupData[{ Cell[840451, 27498, 204, 5, 27, "Input"], Cell[840658, 27505, 298, 10, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[840993, 27520, 126, 3, 27, "Input"], Cell[841122, 27525, 3058, 93, 35, "Output"] }, Open ]], Cell[844195, 27621, 100, 2, 32, "Text"], Cell[CellGroupData[{ Cell[844320, 27627, 137, 3, 27, "Input"], Cell[844460, 27632, 3058, 93, 35, "Output"] }, Open ]], Cell[847533, 27728, 277, 7, 50, "Text"], Cell[847813, 27737, 566, 16, 43, "Input"], Cell[CellGroupData[{ Cell[848404, 27757, 202, 5, 27, "Input"], Cell[848609, 27764, 437, 15, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[849083, 27784, 213, 5, 27, "Input"], Cell[849299, 27791, 487, 16, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[849823, 27812, 646, 15, 59, "Input"], Cell[850472, 27829, 4028, 124, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[854537, 27958, 145, 3, 27, "Input"], Cell[854685, 27963, 1910, 60, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[856632, 28028, 352, 9, 27, "Input"], Cell[856987, 28039, 1551, 49, 31, "Output"] }, Open ]], Cell[858553, 28091, 269, 8, 33, "Text"], Cell[858825, 28101, 73, 1, 32, "Text"], Cell[858901, 28104, 141, 3, 50, "Text"], Cell[CellGroupData[{ Cell[859067, 28111, 57, 1, 27, "Input"], Cell[859127, 28114, 4649, 118, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[863813, 28237, 203, 5, 43, "Input"], Cell[864019, 28244, 35302, 1022, 295, "Output"] }, Open ]], Cell[899336, 29269, 205, 4, 50, "Text"], Cell[899544, 29275, 321, 6, 86, "Text"], Cell[899868, 29283, 88, 2, 27, "Input"], Cell[899959, 29287, 3946, 75, 203, "Input"], Cell[CellGroupData[{ Cell[903930, 29366, 130, 3, 27, "Input"], Cell[904063, 29371, 17295, 523, 151, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[921395, 29899, 125, 3, 27, "Input"], Cell[921523, 29904, 9155, 283, 66, "Output"] }, Open ]], Cell[930693, 30190, 199, 7, 32, "Text"], Cell[CellGroupData[{ Cell[930917, 30201, 325, 9, 27, "Input"], Cell[931245, 30212, 3776, 117, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[935058, 30334, 752, 20, 43, "Input"], Cell[935813, 30356, 1781, 58, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[937631, 30419, 110, 2, 27, "Input"], Cell[937744, 30423, 7275, 225, 54, "Output"] }, Open ]], Cell[945034, 30651, 106, 4, 50, "Text"], Cell[CellGroupData[{ Cell[945165, 30659, 28, 0, 27, "Input"], Cell[945196, 30661, 1551, 49, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[946784, 30715, 885, 20, 59, "Input"], Cell[947672, 30737, 1359, 40, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[949068, 30782, 93, 2, 27, "Input"], Cell[949164, 30786, 4971, 134, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[954172, 30925, 170, 4, 27, "Input"], Cell[954345, 30931, 8530, 264, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[962912, 31200, 94, 2, 27, "Input"], Cell[963009, 31204, 11260, 348, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[974306, 31557, 124, 3, 27, "Input"], Cell[974433, 31562, 59, 1, 28, "Output"] }, Open ]], Cell[974507, 31566, 39, 0, 32, "Text"], Cell[974549, 31568, 596, 14, 75, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[975194, 31588, 79, 0, 45, "Subsection"], Cell[975276, 31590, 53, 0, 32, "Text"], Cell[CellGroupData[{ Cell[975354, 31594, 1511, 33, 139, "Input"], Cell[976868, 31629, 2194, 64, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[979099, 31698, 906, 22, 59, "Input"], Cell[980008, 31722, 12720, 326, 144, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[992765, 32053, 126, 3, 27, "Input"], Cell[992894, 32058, 2770, 80, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[995725, 32145, 41, 1, 54, "Section", CellTags->"FVD"], Cell[CellGroupData[{ Cell[995791, 32150, 33, 0, 45, "Subsection"], Cell[995827, 32152, 99, 2, 32, "Text"], Cell[995929, 32156, 598, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[996564, 32189, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[996619, 32193, 90, 2, 27, "Input"], Cell[996712, 32197, 91, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[996840, 32204, 119, 3, 27, "Input"], Cell[996962, 32209, 204, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[997203, 32220, 128, 3, 27, "Input"], Cell[997334, 32225, 41, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[997412, 32230, 169, 5, 27, "Input"], Cell[997584, 32237, 72, 0, 40, "Output"] }, Open ]], Cell[997671, 32240, 70, 0, 32, "Text"], Cell[CellGroupData[{ Cell[997766, 32244, 173, 4, 27, "Input"], Cell[997942, 32250, 468, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[998447, 32271, 65, 1, 27, "Input"], Cell[998515, 32274, 126, 2, 55, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[998702, 32283, 39, 1, 54, "Section", CellTags->"FV"], Cell[CellGroupData[{ Cell[998766, 32288, 33, 0, 45, "Subsection"], Cell[998802, 32290, 172, 6, 32, "Text"], Cell[998977, 32298, 600, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[999614, 32331, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[999669, 32335, 89, 2, 27, "Input"], Cell[999761, 32339, 91, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[999889, 32346, 118, 3, 27, "Input"], Cell[1000010, 32351, 204, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1000251, 32362, 127, 3, 27, "Input"], Cell[1000381, 32367, 40, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1000458, 32372, 168, 5, 27, "Input"], Cell[1000629, 32379, 66, 0, 40, "Output"] }, Open ]], Cell[1000710, 32382, 113, 3, 32, "Text"], Cell[CellGroupData[{ Cell[1000848, 32389, 172, 4, 27, "Input"], Cell[1001023, 32395, 468, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1001528, 32416, 65, 1, 27, "Input"], Cell[1001596, 32419, 114, 2, 55, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1001771, 32428, 41, 1, 54, "Section", CellTags->"GAD"], Cell[CellGroupData[{ Cell[1001837, 32433, 33, 0, 45, "Subsection"], Cell[1001873, 32435, 375, 9, 68, "Text"], Cell[1002251, 32446, 387, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1002675, 32469, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1002730, 32473, 63, 1, 27, "Input"], Cell[1002796, 32476, 98, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1002931, 32483, 194, 5, 27, "Input"], Cell[1003128, 32490, 316, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1003481, 32503, 139, 3, 27, "Input"], Cell[1003623, 32508, 65, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1003725, 32513, 133, 3, 27, "Input"], Cell[1003861, 32518, 274, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1004172, 32529, 177, 4, 27, "Input"], Cell[1004352, 32535, 82, 1, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1004471, 32541, 237, 6, 27, "Input"], Cell[1004711, 32549, 294, 7, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1005066, 32563, 59, 1, 54, "Section", CellTags->"GammaEpsilon"], Cell[CellGroupData[{ Cell[1005150, 32568, 33, 0, 45, "Subsection"], Cell[1005186, 32570, 140, 3, 50, "Text"], Cell[1005329, 32575, 301, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1005667, 32593, 30, 0, 45, "Subsection"], Cell[1005700, 32595, 114, 3, 32, "Text"], Cell[CellGroupData[{ Cell[1005839, 32602, 130, 3, 27, "Input"], Cell[1005972, 32607, 2029, 56, 81, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1008038, 32668, 130, 3, 27, "Input"], Cell[1008171, 32673, 1744, 49, 47, "Output"] }, Open ]], Cell[1009930, 32725, 64, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1010019, 32729, 74, 1, 27, "Input"], Cell[1010096, 32732, 2963, 77, 97, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1013096, 32814, 68, 1, 27, "Input"], Cell[1013167, 32817, 105, 2, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1013333, 32826, 57, 1, 54, "Section", CellTags->"GammaExpand"], Cell[CellGroupData[{ Cell[1013415, 32831, 33, 0, 45, "Subsection"], Cell[1013451, 32833, 99, 3, 32, "Text"], Cell[1013553, 32838, 188, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1013778, 32851, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1013833, 32855, 148, 3, 27, "Input"], Cell[1013984, 32860, 360, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1014381, 32876, 164, 4, 27, "Input"], Cell[1014548, 32882, 742, 21, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1015327, 32908, 148, 3, 27, "Input"], Cell[1015478, 32913, 196, 5, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1015735, 32925, 39, 1, 54, "Section", CellTags->"GA"], Cell[CellGroupData[{ Cell[1015799, 32930, 33, 0, 45, "Subsection"], Cell[1015835, 32932, 367, 9, 68, "Text"], Cell[1016205, 32943, 390, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1016632, 32966, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1016687, 32970, 62, 1, 27, "Input"], Cell[1016752, 32973, 98, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1016887, 32980, 192, 5, 27, "Input"], Cell[1017082, 32987, 316, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1017435, 33000, 138, 3, 27, "Input"], Cell[1017576, 33005, 59, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1017672, 33010, 132, 3, 27, "Input"], Cell[1017807, 33015, 274, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1018118, 33026, 176, 4, 27, "Input"], Cell[1018297, 33032, 77, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1018411, 33037, 234, 6, 27, "Input"], Cell[1018648, 33045, 294, 7, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1019003, 33059, 65, 1, 54, "Section", CellTags->"GhostPropagator"], Cell[CellGroupData[{ Cell[1019093, 33064, 33, 0, 45, "Subsection"], Cell[1019129, 33066, 320, 8, 50, "Text"], Cell[1019452, 33076, 444, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1019933, 33099, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1019988, 33103, 108, 2, 27, "Input"], Cell[1020099, 33107, 464, 14, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1020600, 33126, 71, 1, 27, "Input"], Cell[1020674, 33129, 126, 3, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1020837, 33137, 108, 2, 27, "Input"], Cell[1020948, 33141, 468, 14, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1021453, 33160, 222, 6, 27, "Input"], Cell[1021678, 33168, 40, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1021779, 33175, 41, 1, 54, "Section", CellTags->"GHP"], Cell[CellGroupData[{ Cell[1021845, 33180, 33, 0, 45, "Subsection"], Cell[1021881, 33182, 296, 8, 50, "Text"], Cell[1022180, 33192, 480, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1022697, 33215, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1022752, 33219, 96, 2, 27, "Input"], Cell[1022851, 33223, 464, 14, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1023352, 33242, 59, 1, 27, "Input"], Cell[1023414, 33245, 126, 3, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1023577, 33253, 96, 2, 27, "Input"], Cell[1023676, 33257, 468, 14, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1024181, 33276, 207, 6, 27, "Input"], Cell[1024391, 33284, 40, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1024492, 33291, 55, 1, 54, "Section", CellTags->"GluonField"], Cell[CellGroupData[{ Cell[1024572, 33296, 33, 0, 45, "Subsection"], Cell[1024608, 33298, 190, 5, 50, "Text"], Cell[1024801, 33305, 322, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1025160, 33323, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1025215, 33327, 36, 0, 27, "Input"], Cell[1025254, 33329, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1025350, 33335, 204, 4, 27, "Input"], Cell[1025557, 33341, 342, 12, 30, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1025960, 33360, 67, 1, 54, "Section", CellTags->"GluonGhostVertex"], Cell[CellGroupData[{ Cell[1026052, 33365, 33, 0, 45, "Subsection"], Cell[1026088, 33367, 395, 8, 104, "Text"], Cell[CellGroupData[{ Cell[1026508, 33379, 185, 8, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[1026718, 33391, 78, 1, 27, "Input"], Cell[1026799, 33394, 244, 6, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1027104, 33407, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1027159, 33411, 332, 8, 27, "Input"], Cell[1027494, 33421, 744, 24, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1028275, 33450, 61, 1, 27, "Input"], Cell[1028339, 33453, 131, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1028507, 33460, 146, 3, 27, "Input"], Cell[1028656, 33465, 748, 24, 30, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1029465, 33496, 65, 1, 54, "Section", CellTags->"GluonPropagator"], Cell[CellGroupData[{ Cell[1029555, 33501, 33, 0, 45, "Subsection"], Cell[1029591, 33503, 584, 8, 158, "Text"], Cell[1030178, 33513, 69, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1030272, 33517, 28, 0, 27, "Input"], Cell[1030303, 33519, 73, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1030413, 33525, 77, 1, 27, "Input"], Cell[1030493, 33528, 428, 10, 46, "Output"] }, Open ]], Cell[1030936, 33541, 468, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1031441, 33564, 39, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1031505, 33568, 139, 3, 27, "Input"], Cell[1031647, 33573, 854, 25, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1032538, 33603, 192, 3, 27, "Input"], Cell[1032733, 33608, 1617, 45, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1034387, 33658, 303, 7, 27, "Input"], Cell[1034693, 33667, 4107, 110, 61, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1038837, 33782, 116, 2, 27, "Input"], Cell[1038956, 33786, 515, 15, 47, "Output"] }, Open ]], Cell[1039486, 33804, 119, 3, 50, "Text"], Cell[CellGroupData[{ Cell[1039630, 33811, 95, 2, 27, "Input"], Cell[1039728, 33815, 854, 25, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1040619, 33845, 202, 6, 27, "Input"], Cell[1040824, 33853, 55, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1040916, 33858, 196, 3, 27, "Input"], Cell[1041115, 33863, 1979, 52, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1043131, 33920, 196, 3, 27, "Input"], Cell[1043330, 33925, 1985, 53, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1045352, 33983, 196, 3, 27, "Input"], Cell[1045551, 33988, 1987, 52, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1047575, 34045, 196, 3, 27, "Input"], Cell[1047774, 34050, 1979, 52, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1049790, 34107, 196, 3, 27, "Input"], Cell[1049989, 34112, 3880, 102, 54, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1053930, 34221, 57, 1, 54, "Section", CellTags->"GluonVertex"], Cell[CellGroupData[{ Cell[1054012, 34226, 33, 0, 45, "Subsection"], Cell[1054048, 34228, 62, 0, 32, "Text"], Cell[1054113, 34230, 606, 11, 194, "Text"], Cell[1054722, 34243, 65, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1054812, 34247, 28, 0, 27, "Input"], Cell[1054843, 34249, 69, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1054949, 34255, 73, 1, 27, "Input"], Cell[1055025, 34258, 374, 9, 28, "Output"] }, Open ]], Cell[1055414, 34270, 340, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1055791, 34288, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1055846, 34292, 327, 8, 27, "Input"], Cell[1056176, 34302, 1293, 41, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1057506, 34348, 383, 10, 27, "Input"], Cell[1057892, 34360, 4367, 127, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1062296, 34492, 297, 8, 27, "Input"], Cell[1062596, 34502, 256, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1062889, 34514, 353, 10, 27, "Input"], Cell[1063245, 34526, 3408, 110, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1066690, 34641, 414, 10, 27, "Input"], Cell[1067107, 34653, 8874, 226, 47, "Output"] }, Open ]], Cell[1075996, 34882, 176, 4, 50, "Text"], Cell[CellGroupData[{ Cell[1076197, 34890, 132, 3, 27, "Input"], Cell[1076332, 34895, 1292, 41, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1077661, 34941, 161, 4, 27, "Input"], Cell[1077825, 34947, 8832, 226, 71, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1086718, 35180, 41, 1, 54, "Section", CellTags->"GSD"], Cell[CellGroupData[{ Cell[1086784, 35185, 33, 0, 45, "Subsection"], Cell[1086820, 35187, 710, 16, 68, "Text"], Cell[1087533, 35205, 512, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1088082, 35233, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1088137, 35237, 59, 1, 27, "Input"], Cell[1088199, 35240, 104, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1088340, 35247, 130, 4, 27, "Input"], Cell[1088473, 35253, 47, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1088557, 35258, 106, 2, 27, "Input"], Cell[1088666, 35262, 297, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1089000, 35274, 151, 4, 27, "Input"], Cell[1089154, 35280, 51, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1089242, 35285, 224, 6, 27, "Input"], Cell[1089469, 35293, 304, 8, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1089834, 35308, 39, 1, 54, "Section", CellTags->"GS"], Cell[CellGroupData[{ Cell[1089898, 35313, 33, 0, 45, "Subsection"], Cell[1089934, 35315, 702, 16, 68, "Text"], Cell[1090639, 35333, 512, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1091188, 35361, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1091243, 35365, 58, 1, 27, "Input"], Cell[1091304, 35368, 104, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1091445, 35375, 129, 4, 27, "Input"], Cell[1091577, 35381, 41, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1091655, 35386, 105, 2, 27, "Input"], Cell[1091763, 35390, 297, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1092097, 35402, 150, 4, 27, "Input"], Cell[1092250, 35408, 47, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1092334, 35413, 221, 6, 27, "Input"], Cell[1092558, 35421, 304, 8, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1092923, 35436, 43, 1, 54, "Section", CellTags->"Hill"], Cell[CellGroupData[{ Cell[1092991, 35441, 33, 0, 45, "Subsection"], Cell[1093027, 35443, 109, 3, 32, "Text"], Cell[1093139, 35448, 197, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1093373, 35461, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1093428, 35465, 87, 2, 27, "Input"], Cell[1093518, 35469, 2711, 74, 144, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1096266, 35548, 222, 5, 27, "Input"], Cell[1096491, 35555, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1096587, 35561, 256, 7, 27, "Input"], Cell[1096846, 35570, 1247, 35, 66, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1098130, 35610, 243, 7, 27, "Input"], Cell[1098376, 35619, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1098496, 35627, 67, 1, 54, "Section", CellTags->"HypergeometricAC"], Cell[CellGroupData[{ Cell[1098588, 35632, 33, 0, 45, "Subsection"], Cell[1098624, 35634, 522, 9, 140, "Text"], Cell[CellGroupData[{ Cell[1099171, 35647, 78, 1, 27, "Input"], Cell[1099252, 35650, 134, 4, 28, "Output"] }, Open ]], Cell[1099401, 35657, 614, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1100052, 35685, 30, 0, 45, "Subsection"], Cell[1100085, 35687, 70, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1100180, 35691, 230, 5, 27, "Input"], Cell[1100413, 35698, 2927, 71, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1103377, 35774, 230, 5, 27, "Input"], Cell[1103610, 35781, 2836, 68, 98, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1106483, 35854, 230, 5, 27, "Input"], Cell[1106716, 35861, 2912, 70, 98, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1109665, 35936, 230, 5, 27, "Input"], Cell[1109898, 35943, 3318, 80, 98, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1113253, 36028, 230, 5, 27, "Input"], Cell[1113486, 36035, 943, 27, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1114466, 36067, 231, 5, 27, "Input"], Cell[1114700, 36074, 944, 27, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1115705, 36108, 67, 1, 54, "Section", CellTags->"HypergeometricIR"], Cell[CellGroupData[{ Cell[1115797, 36113, 33, 0, 45, "Subsection"], Cell[1115833, 36115, 236, 5, 68, "Text"], Cell[CellGroupData[{ Cell[1116094, 36124, 486, 18, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[1116605, 36146, 78, 1, 27, "Input"], Cell[1116686, 36149, 142, 4, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1116889, 36160, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1116944, 36164, 207, 5, 27, "Input"], Cell[1117154, 36171, 748, 20, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1117939, 36196, 411, 12, 27, "Input"], Cell[1118353, 36210, 1121, 30, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1119511, 36245, 99, 2, 27, "Input"], Cell[1119613, 36249, 356, 11, 30, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1120030, 36267, 67, 1, 54, "Section", CellTags->"HypergeometricSE"], Cell[CellGroupData[{ Cell[1120122, 36272, 33, 0, 45, "Subsection"], Cell[1120158, 36274, 227, 3, 50, "Text"], Cell[CellGroupData[{ Cell[1120410, 36281, 78, 1, 27, "Input"], Cell[1120491, 36284, 146, 4, 28, "Output"] }, Open ]], Cell[1120652, 36291, 200, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1120889, 36304, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1120944, 36308, 211, 5, 27, "Input"], Cell[1121158, 36315, 716, 16, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1121911, 36336, 349, 9, 27, "Input"], Cell[1122263, 36347, 1030, 22, 46, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1123354, 36376, 57, 1, 54, "Section", CellTags->"HypExplicit"], Cell[CellGroupData[{ Cell[1123436, 36381, 33, 0, 45, "Subsection"], Cell[1123472, 36383, 191, 3, 50, "Text"], Cell[1123666, 36388, 200, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1123903, 36401, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1123958, 36405, 120, 2, 27, "Input"], Cell[1124081, 36409, 582, 18, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1124700, 36432, 98, 2, 27, "Input"], Cell[1124801, 36436, 716, 16, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1125554, 36457, 240, 6, 27, "Input"], Cell[1125797, 36465, 1101, 33, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1126935, 36503, 98, 2, 27, "Input"], Cell[1127036, 36507, 1030, 22, 46, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1128127, 36536, 55, 1, 54, "Section", CellTags->"Integrate2"], Cell[CellGroupData[{ Cell[1128207, 36541, 33, 0, 45, "Subsection"], Cell[1128243, 36543, 920, 15, 230, "Text"], Cell[1129166, 36560, 530, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1129733, 36588, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1129788, 36592, 457, 13, 27, "Input"], Cell[1130248, 36607, 544, 15, 43, "Output"] }, Open ]], Cell[1130807, 36625, 170, 5, 32, "Text"], Cell[CellGroupData[{ Cell[1131002, 36634, 267, 7, 27, "Input"], Cell[1131272, 36643, 206, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1131515, 36654, 262, 7, 27, "Input"], Cell[1131780, 36663, 478, 14, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1132295, 36682, 339, 9, 27, "Input"], Cell[1132637, 36693, 720, 20, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1133394, 36718, 309, 8, 27, "Input"], Cell[1133706, 36728, 91, 2, 28, "Output"] }, Open ]], Cell[1133812, 36733, 1447, 40, 89, "Text"], Cell[CellGroupData[{ Cell[1135284, 36777, 256, 7, 27, "Input"], Cell[1135543, 36786, 59, 1, 28, "Output"] }, Open ]], Cell[1135617, 36790, 731, 24, 53, "Text"], Cell[CellGroupData[{ Cell[1136373, 36818, 311, 8, 27, "Input"], Cell[1136687, 36828, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1136783, 36834, 401, 11, 27, "Input"], Cell[1137187, 36847, 126, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1137350, 36855, 441, 12, 27, "Input"], Cell[1137794, 36869, 276, 9, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1138107, 36883, 327, 9, 27, "Input"], Cell[1138437, 36894, 241, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1138715, 36906, 361, 10, 27, "Input"], Cell[1139079, 36918, 426, 12, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1139542, 36935, 305, 8, 27, "Input"], Cell[1139850, 36945, 157, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1140044, 36954, 267, 7, 27, "Input"], Cell[1140314, 36963, 413, 12, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1140764, 36980, 478, 13, 27, "Input"], Cell[1141245, 36995, 541, 15, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1141823, 37015, 891, 23, 43, "Input"], Cell[1142717, 37040, 6473, 176, 240, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1149227, 37221, 521, 14, 27, "Input"], Cell[1149751, 37237, 1056, 30, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1150844, 37272, 108, 2, 27, "Input"], Cell[1150955, 37276, 62, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1151054, 37282, 375, 10, 27, "Input"], Cell[1151432, 37294, 59, 1, 28, "Output"] }, Open ]], Cell[1151506, 37298, 112, 3, 32, "Text"], Cell[CellGroupData[{ Cell[1151643, 37305, 105, 2, 27, "Input"], Cell[1151751, 37309, 7231, 176, 342, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1159019, 37490, 210, 6, 27, "Input"], Cell[1159232, 37498, 177, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1159446, 37508, 85, 1, 27, "Input"], Cell[1159534, 37511, 91, 2, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1159686, 37520, 55, 1, 54, "Section", CellTags->"Integrate3"], Cell[CellGroupData[{ Cell[1159766, 37525, 33, 0, 45, "Subsection"], Cell[1159802, 37527, 136, 3, 50, "Text"], Cell[1159941, 37532, 182, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1160160, 37545, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1160215, 37549, 264, 7, 27, "Input"], Cell[1160482, 37558, 211, 7, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1160730, 37570, 489, 13, 27, "Input"], Cell[1161222, 37585, 687, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1161946, 37611, 245, 6, 27, "Input"], Cell[1162194, 37619, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1162290, 37625, 314, 8, 27, "Input"], Cell[1162607, 37635, 166, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1162810, 37645, 256, 7, 27, "Input"], Cell[1163069, 37654, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1163189, 37662, 67, 1, 54, "Section", CellTags->"IntegrateByParts"], Cell[CellGroupData[{ Cell[1163281, 37667, 33, 0, 45, "Subsection"], Cell[1163317, 37669, 153, 3, 50, "Text"], Cell[CellGroupData[{ Cell[1163495, 37676, 78, 1, 27, "Input"], Cell[1163576, 37679, 131, 4, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1163756, 37689, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1163811, 37693, 589, 17, 43, "Input"], Cell[1164403, 37712, 738, 21, 44, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1165202, 37740, 61, 1, 54, "Section", CellTags->"InverseMellin"], Cell[CellGroupData[{ Cell[1165288, 37745, 33, 0, 45, "Subsection"], Cell[1165324, 37747, 558, 14, 86, "Text"], Cell[1165885, 37763, 637, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1166559, 37796, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1166614, 37800, 128, 3, 27, "Input"], Cell[1166745, 37805, 116, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1166898, 37813, 192, 5, 27, "Input"], Cell[1167093, 37820, 116, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1167246, 37828, 96, 2, 27, "Input"], Cell[1167345, 37832, 272, 8, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1167654, 37845, 159, 4, 27, "Input"], Cell[1167816, 37851, 281, 9, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1168134, 37865, 159, 4, 27, "Input"], Cell[1168296, 37871, 374, 11, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1168707, 37887, 169, 5, 27, "Input"], Cell[1168879, 37894, 374, 11, 30, "Output"] }, Open ]], Cell[1169268, 37908, 88, 3, 32, "Text"], Cell[CellGroupData[{ Cell[1169381, 37915, 276, 7, 27, "Input"], Cell[1169660, 37924, 84, 2, 43, "Output"] }, Open ]], Cell[1169759, 37929, 91, 3, 32, "Text"], Cell[1169853, 37934, 486, 45, 672, "Input"], Cell[1170342, 37981, 543, 13, 59, "Input"], Cell[CellGroupData[{ Cell[1170910, 37998, 143, 4, 27, "Input"], Cell[1171056, 38004, 785, 24, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1171878, 38033, 143, 4, 27, "Input"], Cell[1172024, 38039, 688, 21, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1172749, 38065, 130, 3, 27, "Input"], Cell[1172882, 38070, 1584, 47, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1174503, 38122, 156, 4, 27, "Input"], Cell[1174662, 38128, 1012, 31, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1175711, 38164, 252, 7, 27, "Input"], Cell[1175966, 38173, 1064, 33, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1177067, 38211, 252, 7, 27, "Input"], Cell[1177322, 38220, 1495, 46, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1178854, 38271, 251, 7, 27, "Input"], Cell[1179108, 38280, 1484, 44, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1180629, 38329, 229, 7, 27, "Input"], Cell[1180861, 38338, 1168, 36, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1182066, 38379, 268, 8, 27, "Input"], Cell[1182337, 38389, 1956, 57, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1184330, 38451, 156, 4, 27, "Input"], Cell[1184489, 38457, 1446, 43, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1185972, 38505, 195, 6, 27, "Input"], Cell[1186170, 38513, 1521, 45, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1187728, 38563, 156, 4, 27, "Input"], Cell[1187887, 38569, 1812, 53, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1189736, 38627, 166, 4, 27, "Input"], Cell[1189905, 38633, 1184, 36, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1191126, 38674, 194, 5, 27, "Input"], Cell[1191323, 38681, 2254, 64, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1193614, 38750, 194, 5, 27, "Input"], Cell[1193811, 38757, 2116, 60, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1195964, 38822, 176, 4, 27, "Input"], Cell[1196143, 38828, 1366, 41, 49, "Output"] }, Open ]], Cell[1197524, 38872, 84, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1197657, 38880, 49, 1, 54, "Section", CellTags->"Isolate"], Cell[CellGroupData[{ Cell[1197731, 38885, 33, 0, 45, "Subsection"], Cell[1197767, 38887, 401, 8, 104, "Text"], Cell[CellGroupData[{ Cell[1198193, 38899, 69, 1, 27, "Input"], Cell[1198265, 38902, 352, 8, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1198666, 38916, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1198721, 38920, 90, 2, 27, "Input"], Cell[1198814, 38924, 127, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1198978, 38933, 404, 11, 27, "Input"], Cell[1199385, 38946, 314, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1199736, 38961, 66, 1, 27, "Input"], Cell[1199805, 38964, 59, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1199901, 38969, 180, 4, 27, "Input"], Cell[1200084, 38975, 1254, 37, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1201375, 39017, 626, 17, 43, "Input"], Cell[1202004, 39036, 374, 12, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1202415, 39053, 48, 1, 27, "Input"], Cell[1202466, 39056, 73, 1, 24, "Print"], Cell[1202542, 39059, 700, 19, 60, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[1203279, 39083, 252, 5, 27, "Input"], Cell[1203534, 39090, 126, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1203697, 39099, 147, 4, 27, "Input"], Cell[1203847, 39105, 182, 5, 28, "Output"] }, Open ]], Cell[1204044, 39113, 89, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1204182, 39121, 47, 1, 54, "Section", CellTags->"Kummer"], Cell[CellGroupData[{ Cell[1204254, 39126, 33, 0, 45, "Subsection"], Cell[1204290, 39128, 241, 6, 104, "Text"], Cell[1204534, 39136, 200, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1204771, 39149, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1204826, 39153, 325, 8, 43, "Input"], Cell[1205154, 39163, 1506, 43, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1206697, 39211, 325, 8, 43, "Input"], Cell[1207025, 39221, 1536, 44, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1208598, 39270, 325, 8, 43, "Input"], Cell[1208926, 39280, 1536, 44, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1210499, 39329, 386, 9, 43, "Input"], Cell[1210888, 39340, 1514, 43, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1212439, 39388, 490, 11, 43, "Input"], Cell[1212932, 39401, 1610, 44, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1214579, 39450, 386, 9, 43, "Input"], Cell[1214968, 39461, 1505, 43, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1216510, 39509, 490, 11, 43, "Input"], Cell[1217003, 39522, 1631, 45, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1218671, 39572, 386, 9, 43, "Input"], Cell[1219060, 39583, 1505, 43, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1220602, 39631, 490, 11, 43, "Input"], Cell[1221095, 39644, 1631, 45, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1222763, 39694, 517, 13, 43, "Input"], Cell[1223283, 39709, 1726, 49, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1225046, 39763, 685, 17, 43, "Input"], Cell[1225734, 39782, 1871, 52, 83, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1227642, 39839, 517, 13, 43, "Input"], Cell[1228162, 39854, 1707, 49, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1229906, 39908, 685, 17, 43, "Input"], Cell[1230594, 39927, 1852, 52, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1232483, 39984, 517, 13, 43, "Input"], Cell[1233003, 39999, 1671, 48, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1234711, 40052, 685, 17, 43, "Input"], Cell[1235399, 40071, 1912, 53, 83, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1237348, 40129, 517, 13, 43, "Input"], Cell[1237868, 40144, 1726, 49, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1239631, 40198, 685, 17, 43, "Input"], Cell[1240319, 40217, 1941, 54, 83, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1242297, 40276, 517, 13, 43, "Input"], Cell[1242817, 40291, 1638, 47, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1244492, 40343, 685, 17, 43, "Input"], Cell[1245180, 40362, 1853, 52, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1247070, 40419, 517, 13, 43, "Input"], Cell[1247590, 40434, 1638, 47, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1249265, 40486, 685, 17, 43, "Input"], Cell[1249953, 40505, 1992, 55, 83, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1251982, 40565, 555, 13, 43, "Input"], Cell[1252540, 40580, 1680, 47, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1254257, 40632, 326, 8, 43, "Input"], Cell[1254586, 40642, 1506, 43, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1256129, 40690, 555, 13, 43, "Input"], Cell[1256687, 40705, 1768, 49, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1258492, 40759, 326, 8, 43, "Input"], Cell[1258821, 40769, 1498, 43, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1260356, 40817, 555, 13, 43, "Input"], Cell[1260914, 40832, 1768, 49, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1262719, 40886, 326, 8, 43, "Input"], Cell[1263048, 40896, 1498, 43, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1264583, 40944, 619, 15, 43, "Input"], Cell[1265205, 40961, 1738, 48, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1266980, 41014, 387, 9, 43, "Input"], Cell[1267370, 41025, 1514, 43, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1268921, 41073, 619, 15, 43, "Input"], Cell[1269543, 41090, 1888, 52, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1271468, 41147, 387, 9, 43, "Input"], Cell[1271858, 41158, 1578, 45, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1273473, 41208, 619, 15, 43, "Input"], Cell[1274095, 41225, 1815, 50, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1275947, 41280, 387, 9, 43, "Input"], Cell[1276337, 41291, 1505, 43, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1277879, 41339, 326, 8, 43, "Input"], Cell[1278208, 41349, 3359, 84, 107, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1281604, 41438, 326, 8, 43, "Input"], Cell[1281933, 41448, 3491, 89, 98, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1285461, 41542, 326, 8, 43, "Input"], Cell[1285790, 41552, 3503, 89, 98, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1289354, 41648, 55, 1, 54, "Section", CellTags->"Lagrangian"], Cell[CellGroupData[{ Cell[1289434, 41653, 33, 0, 45, "Subsection"], Cell[1289470, 41655, 188, 4, 68, "Text"], Cell[1289661, 41661, 176, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1289874, 41674, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1289929, 41678, 76, 1, 27, "Input"], Cell[1290008, 41681, 376, 11, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1290421, 41697, 69, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[1290515, 41701, 36, 0, 27, "Input"], Cell[1290554, 41703, 846, 23, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1291437, 41731, 36, 0, 27, "Input"], Cell[1291476, 41733, 1324, 36, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1292837, 41774, 36, 0, 27, "Input"], Cell[1292876, 41776, 734, 20, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1293647, 41801, 36, 0, 27, "Input"], Cell[1293686, 41803, 785, 21, 29, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1294544, 41832, 41, 1, 54, "Section", CellTags->"LCD"], Cell[CellGroupData[{ Cell[1294610, 41837, 33, 0, 45, "Subsection"], Cell[1294646, 41839, 216, 6, 86, "Text"], Cell[1294865, 41847, 139, 3, 50, "Text"], Cell[1295007, 41852, 283, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1295327, 41870, 30, 0, 45, "Subsection"], Cell[1295360, 41872, 164, 4, 27, "Input"], Cell[CellGroupData[{ Cell[1295549, 41880, 133, 3, 27, "Input"], Cell[1295685, 41885, 153, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1295875, 41894, 55, 1, 27, "Input"], Cell[1295933, 41897, 574, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1296544, 41921, 61, 1, 27, "Input"], Cell[1296608, 41924, 138, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1296783, 41931, 155, 4, 27, "Input"], Cell[1296941, 41937, 138, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1297116, 41945, 91, 2, 27, "Input"], Cell[1297210, 41949, 118, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1297365, 41956, 425, 11, 27, "Input"], Cell[1297793, 41969, 428, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1298258, 41987, 138, 3, 27, "Input"], Cell[1298399, 41992, 132, 4, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1298592, 42003, 39, 1, 54, "Section", CellTags->"LC"], Cell[CellGroupData[{ Cell[1298656, 42008, 33, 0, 45, "Subsection"], Cell[1298692, 42010, 222, 5, 86, "Text"], Cell[1298917, 42017, 286, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1299240, 42035, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1299295, 42039, 132, 3, 27, "Input"], Cell[1299430, 42044, 153, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1299620, 42053, 55, 1, 27, "Input"], Cell[1299678, 42056, 574, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1300289, 42080, 61, 1, 27, "Input"], Cell[1300353, 42083, 126, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1300516, 42090, 154, 4, 27, "Input"], Cell[1300673, 42096, 138, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1300848, 42104, 91, 2, 27, "Input"], Cell[1300942, 42108, 106, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1301085, 42115, 407, 11, 27, "Input"], Cell[1301495, 42128, 252, 8, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1301808, 42143, 59, 1, 54, "Section", CellTags->"LeftPartialD"], Cell[CellGroupData[{ Cell[1301892, 42148, 33, 0, 45, "Subsection"], Cell[1301928, 42150, 330, 11, 35, "Text"], Cell[1302261, 42163, 593, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1302891, 42191, 39, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1302955, 42195, 222, 5, 27, "Input"], Cell[1303180, 42202, 308, 9, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1303525, 42216, 70, 1, 27, "Input"], Cell[1303598, 42219, 383, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1304018, 42236, 65, 1, 27, "Input"], Cell[1304086, 42239, 103, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1304226, 42246, 112, 2, 27, "Input"], Cell[1304341, 42250, 61, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1304439, 42255, 356, 8, 43, "Input"], Cell[1304798, 42265, 351, 10, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1305186, 42280, 70, 1, 27, "Input"], Cell[1305259, 42283, 950, 28, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1306246, 42316, 65, 1, 27, "Input"], Cell[1306314, 42319, 278, 4, 115, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1306653, 42330, 69, 1, 54, "Section", CellTags->"LeftRightPartialD"], Cell[CellGroupData[{ Cell[1306747, 42335, 33, 0, 45, "Subsection"], Cell[1306783, 42337, 478, 13, 53, "Text"], Cell[1307264, 42352, 864, 32, 58, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1308165, 42389, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1308220, 42393, 77, 1, 27, "Input"], Cell[1308300, 42396, 242, 7, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1308579, 42408, 72, 1, 27, "Input"], Cell[1308654, 42411, 602, 17, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1309293, 42433, 227, 5, 27, "Input"], Cell[1309523, 42440, 313, 9, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1309873, 42454, 70, 1, 27, "Input"], Cell[1309946, 42457, 820, 24, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1310803, 42486, 361, 8, 43, "Input"], Cell[1311167, 42496, 356, 10, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1311560, 42511, 70, 1, 27, "Input"], Cell[1311633, 42514, 1235, 35, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1312929, 42556, 71, 1, 54, "Section", CellTags->"LeftRightPartialD2"], Cell[CellGroupData[{ Cell[1313025, 42561, 33, 0, 45, "Subsection"], Cell[1313061, 42563, 477, 13, 53, "Text"], Cell[1313541, 42578, 721, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1314299, 42611, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1314354, 42615, 78, 1, 27, "Input"], Cell[1314435, 42618, 242, 7, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1314714, 42630, 72, 1, 27, "Input"], Cell[1314789, 42633, 467, 14, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1315293, 42652, 228, 5, 27, "Input"], Cell[1315524, 42659, 313, 9, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1315874, 42673, 70, 1, 27, "Input"], Cell[1315947, 42676, 697, 21, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1316681, 42702, 362, 8, 43, "Input"], Cell[1317046, 42712, 356, 10, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1317439, 42727, 70, 1, 27, "Input"], Cell[1317512, 42730, 950, 28, 30, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1318523, 42765, 56, 1, 54, "Section", CellTags->"LeviCivita"], Cell[CellGroupData[{ Cell[1318604, 42770, 33, 0, 45, "Subsection"], Cell[1318640, 42772, 563, 8, 122, "Text"], Cell[CellGroupData[{ Cell[1319228, 42784, 72, 1, 27, "Input"], Cell[1319303, 42787, 132, 4, 28, "Output"] }, Open ]], Cell[1319450, 42794, 262, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1319749, 42812, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1319804, 42816, 147, 3, 27, "Input"], Cell[1319954, 42821, 581, 19, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1320572, 42845, 169, 4, 27, "Input"], Cell[1320744, 42851, 466, 15, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1321247, 42871, 140, 3, 27, "Input"], Cell[1321390, 42876, 334, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1321761, 42892, 146, 3, 27, "Input"], Cell[1321910, 42897, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1322006, 42903, 211, 5, 27, "Input"], Cell[1322220, 42910, 113, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1322370, 42917, 412, 11, 27, "Input"], Cell[1322785, 42930, 1198, 38, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1324020, 42973, 65, 1, 27, "Input"], Cell[1324088, 42976, 82, 2, 28, "Output"] }, Open ]], Cell[1324185, 42981, 298, 7, 43, "Input"], Cell[CellGroupData[{ Cell[1324508, 42992, 430, 11, 43, "Input"], Cell[1324941, 43005, 289, 9, 28, "Output"] }, Open ]], Cell[1325245, 43017, 298, 7, 43, "Input"], Cell[CellGroupData[{ Cell[1325568, 43028, 139, 3, 27, "Input"], Cell[1325710, 43033, 164, 4, 29, "Output"] }, Open ]], Cell[1325889, 43040, 62, 1, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1326000, 43047, 59, 1, 54, "Section", CellTags->"LorentzIndex"], Cell[CellGroupData[{ Cell[1326084, 43052, 33, 0, 45, "Subsection"], Cell[1326120, 43054, 235, 3, 68, "Text"], Cell[1326358, 43059, 316, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1326711, 43077, 30, 0, 45, "Subsection"], Cell[1326744, 43079, 62, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1326831, 43083, 75, 1, 27, "Input"], Cell[1326909, 43086, 66, 1, 28, "Output"] }, Open ]], Cell[1326990, 43090, 100, 3, 32, "Text"], Cell[CellGroupData[{ Cell[1327115, 43097, 102, 2, 27, "Input"], Cell[1327220, 43101, 66, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1327323, 43107, 63, 0, 27, "Input"], Cell[1327389, 43109, 94, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1327520, 43116, 64, 0, 27, "Input"], Cell[1327587, 43118, 91, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1327715, 43125, 81, 1, 27, "Input"], Cell[1327799, 43128, 65, 1, 28, "Output"] }, Open ]], Cell[1327879, 43132, 92, 3, 32, "Text"], Cell[CellGroupData[{ Cell[1327996, 43139, 202, 5, 43, "Input"], Cell[1328201, 43146, 186, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1328424, 43157, 99, 2, 27, "Input"], Cell[1328526, 43161, 63, 1, 28, "Output"] }, Open ]], Cell[1328604, 43165, 102, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1328755, 43173, 43, 1, 54, "Section", CellTags->"Map2"], Cell[CellGroupData[{ Cell[1328823, 43178, 33, 0, 45, "Subsection"], Cell[1328859, 43180, 116, 3, 32, "Text"], Cell[1328978, 43185, 170, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1329185, 43198, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1329240, 43202, 116, 3, 27, "Input"], Cell[1329359, 43207, 180, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1329576, 43217, 87, 2, 27, "Input"], Cell[1329666, 43221, 91, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1329794, 43228, 157, 4, 27, "Input"], Cell[1329954, 43234, 164, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1330155, 43244, 87, 2, 27, "Input"], Cell[1330245, 43248, 91, 2, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1330397, 43257, 59, 1, 54, "Section", CellTags->"MetricTensor"], Cell[CellGroupData[{ Cell[1330481, 43262, 33, 0, 45, "Subsection"], Cell[1330517, 43264, 107, 2, 32, "Text"], Cell[1330627, 43268, 613, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1331277, 43301, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1331332, 43305, 108, 2, 27, "Input"], Cell[1331443, 43309, 124, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1331604, 43317, 91, 2, 27, "Input"], Cell[1331698, 43321, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1331794, 43327, 161, 3, 27, "Input"], Cell[1331958, 43332, 336, 11, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1332331, 43348, 91, 2, 27, "Input"], Cell[1332425, 43352, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1332521, 43358, 137, 3, 27, "Input"], Cell[1332661, 43363, 56, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1332754, 43368, 192, 4, 27, "Input"], Cell[1332949, 43374, 62, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1333048, 43379, 175, 4, 27, "Input"], Cell[1333226, 43385, 26, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1333289, 43390, 235, 6, 27, "Input"], Cell[1333527, 43398, 27, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1333615, 43405, 65, 1, 54, "Section", CellTags->"MomentumCombine"], Cell[CellGroupData[{ Cell[1333705, 43410, 33, 0, 45, "Subsection"], Cell[1333741, 43412, 154, 3, 50, "Text"], Cell[1333898, 43417, 459, 17, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1334394, 43439, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1334449, 43443, 308, 8, 27, "Input"], Cell[1334760, 43453, 35, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1334832, 43458, 297, 8, 27, "Input"], Cell[1335132, 43468, 185, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1335354, 43478, 72, 1, 27, "Input"], Cell[1335429, 43481, 337, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1335803, 43497, 111, 3, 27, "Input"], Cell[1335917, 43502, 72, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1336026, 43507, 125, 3, 27, "Input"], Cell[1336154, 43512, 511, 17, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1336702, 43534, 65, 1, 27, "Input"], Cell[1336770, 43537, 116, 2, 55, "Output"] }, Open ]], Cell[1336901, 43542, 62, 1, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1337012, 43549, 63, 1, 54, "Section", CellTags->"MomentumExpand"], Cell[CellGroupData[{ Cell[1337100, 43554, 33, 0, 45, "Subsection"], Cell[1337136, 43556, 120, 3, 50, "Text"], Cell[1337259, 43561, 349, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1337645, 43579, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1337700, 43583, 178, 4, 27, "Input"], Cell[1337881, 43589, 43, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1337961, 43594, 125, 3, 27, "Input"], Cell[1338089, 43599, 232, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1338358, 43611, 61, 1, 27, "Input"], Cell[1338422, 43614, 52, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1338511, 43619, 174, 4, 27, "Input"], Cell[1338688, 43625, 232, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1338957, 43637, 61, 1, 27, "Input"], Cell[1339021, 43640, 62, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1339120, 43645, 205, 5, 27, "Input"], Cell[1339328, 43652, 273, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1339638, 43665, 61, 1, 27, "Input"], Cell[1339702, 43668, 77, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1339816, 43673, 60, 1, 27, "Input"], Cell[1339879, 43676, 643, 21, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1340583, 43704, 51, 1, 54, "Section", CellTags->"Momentum"], Cell[CellGroupData[{ Cell[1340659, 43709, 33, 0, 45, "Subsection"], Cell[1340695, 43711, 237, 5, 86, "Text"], Cell[1340935, 43718, 554, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1341526, 43746, 30, 0, 45, "Subsection"], Cell[1341559, 43748, 52, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1341636, 43752, 64, 1, 27, "Input"], Cell[1341703, 43755, 59, 1, 28, "Output"] }, Open ]], Cell[1341777, 43759, 115, 3, 32, "Text"], Cell[CellGroupData[{ Cell[1341917, 43766, 91, 2, 27, "Input"], Cell[1342011, 43770, 59, 1, 28, "Output"] }, Open ]], Cell[1342085, 43774, 63, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1342173, 43778, 129, 3, 27, "Input"], Cell[1342305, 43783, 32, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1342374, 43788, 116, 3, 27, "Input"], Cell[1342493, 43793, 81, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1342611, 43800, 62, 1, 27, "Input"], Cell[1342676, 43803, 30, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1342743, 43808, 239, 6, 27, "Input"], Cell[1342985, 43816, 175, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1343197, 43826, 62, 1, 27, "Input"], Cell[1343262, 43829, 49, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1343348, 43834, 103, 2, 27, "Input"], Cell[1343454, 43838, 43, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1343534, 43843, 104, 2, 27, "Input"], Cell[1343641, 43847, 33, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1343711, 43852, 186, 5, 27, "Input"], Cell[1343900, 43859, 32, 0, 40, "Output"] }, Open ]], Cell[1343947, 43862, 90, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1344086, 43870, 41, 1, 54, "Section", CellTags->"MTD"], Cell[CellGroupData[{ Cell[1344152, 43875, 33, 0, 45, "Subsection"], Cell[1344188, 43877, 81, 1, 32, "Text"], Cell[1344272, 43880, 640, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1344949, 43913, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1345004, 43917, 99, 2, 27, "Input"], Cell[1345106, 43921, 124, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1345267, 43929, 251, 6, 27, "Input"], Cell[1345521, 43937, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1345617, 43943, 140, 4, 27, "Input"], Cell[1345760, 43949, 50, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1345847, 43954, 182, 5, 27, "Input"], Cell[1346032, 43961, 86, 1, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1346155, 43967, 217, 6, 27, "Input"], Cell[1346375, 43975, 45, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1346481, 43982, 39, 1, 54, "Section", CellTags->"MT"], Cell[CellGroupData[{ Cell[1346545, 43987, 33, 0, 45, "Subsection"], Cell[1346581, 43989, 79, 0, 32, "Text"], Cell[1346663, 43991, 643, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1347343, 44024, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1347398, 44028, 98, 2, 27, "Input"], Cell[1347499, 44032, 124, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1347660, 44040, 249, 6, 27, "Input"], Cell[1347912, 44048, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1348008, 44054, 123, 3, 27, "Input"], Cell[1348134, 44059, 26, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1348197, 44064, 161, 4, 27, "Input"], Cell[1348361, 44070, 56, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1348454, 44075, 208, 6, 27, "Input"], Cell[1348665, 44083, 26, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1348752, 44090, 49, 1, 54, "Section", CellTags->"Nielsen"], Cell[CellGroupData[{ Cell[1348826, 44095, 33, 0, 45, "Subsection"], Cell[1348862, 44097, 64, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1348951, 44101, 69, 1, 27, "Input"], Cell[1349023, 44104, 134, 4, 28, "Output"] }, Open ]], Cell[1349172, 44111, 197, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1349406, 44124, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1349461, 44128, 100, 2, 27, "Input"], Cell[1349564, 44132, 258, 9, 28, "Output"] }, Open ]], Cell[1349837, 44144, 156, 4, 50, "Text"], Cell[CellGroupData[{ Cell[1350018, 44152, 136, 3, 27, "Input"], Cell[1350157, 44157, 80, 1, 28, "Output"] }, Open ]], Cell[1350252, 44161, 49, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1350326, 44165, 484, 12, 43, "Input"], Cell[1350813, 44179, 711, 21, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1351561, 44205, 154, 3, 27, "Input"], Cell[1351718, 44210, 770, 22, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1352525, 44237, 154, 3, 27, "Input"], Cell[1352682, 44242, 992, 28, 81, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1353711, 44275, 154, 3, 27, "Input"], Cell[1353868, 44280, 120, 3, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1354049, 44290, 47, 1, 54, "Section", CellTags->"NTerms"], Cell[CellGroupData[{ Cell[1354121, 44295, 33, 0, 45, "Subsection"], Cell[1354157, 44297, 128, 3, 50, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1354322, 44305, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1354377, 44309, 89, 2, 27, "Input"], Cell[1354469, 44313, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1354565, 44319, 99, 2, 27, "Input"], Cell[1354667, 44323, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1354763, 44329, 62, 1, 27, "Input"], Cell[1354828, 44332, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1354924, 44338, 62, 1, 27, "Input"], Cell[1354989, 44341, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1355109, 44349, 49, 1, 54, "Section", CellTags->"OneLoop"], Cell[1355161, 44352, 2095, 51, 246, "Text"], Cell[CellGroupData[{ Cell[1357281, 44407, 33, 0, 45, "Subsection"], Cell[1357317, 44409, 250, 5, 68, "Text"], Cell[CellGroupData[{ Cell[1357592, 44418, 69, 1, 27, "Input"], Cell[1357664, 44421, 1343, 27, 118, "Output"] }, Open ]], Cell[1359022, 44451, 711, 33, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1359770, 44489, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1359825, 44493, 339, 10, 27, "Input"], Cell[1360167, 44505, 494, 16, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1360698, 44526, 90, 2, 27, "Input"], Cell[1360791, 44530, 2501, 66, 87, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1363353, 44603, 65, 1, 54, "Section", CellTags->"OneLoopSimplify"], Cell[CellGroupData[{ Cell[1363443, 44608, 33, 0, 45, "Subsection"], Cell[1363479, 44610, 142, 3, 50, "Text"], Cell[CellGroupData[{ Cell[1363646, 44617, 77, 1, 27, "Input"], Cell[1363726, 44620, 771, 16, 82, "Output"] }, Open ]], Cell[1364512, 44639, 384, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1364933, 44662, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1364988, 44666, 339, 10, 27, "Input"], Cell[1365330, 44678, 494, 16, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1365861, 44699, 98, 2, 27, "Input"], Cell[1365962, 44703, 1454, 42, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1367453, 44750, 165, 4, 27, "Input"], Cell[1367621, 44756, 474, 15, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1368132, 44776, 404, 10, 27, "Input"], Cell[1368539, 44788, 663, 21, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1369239, 44814, 103, 2, 27, "Input"], Cell[1369345, 44818, 11735, 320, 182, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1381117, 45143, 231, 7, 27, "Input"], Cell[1381351, 45152, 6317, 177, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1387705, 45334, 452, 13, 27, "Input"], Cell[1388160, 45349, 3325, 91, 49, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1391546, 45447, 51, 1, 54, "Section", CellTags->"OPEDelta"], Cell[CellGroupData[{ Cell[1391622, 45452, 33, 0, 45, "Subsection"], Cell[1391658, 45454, 117, 3, 32, "Text"], Cell[1391778, 45459, 209, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1392024, 45472, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1392079, 45476, 104, 2, 27, "Input"], Cell[1392186, 45480, 250, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1392473, 45493, 91, 2, 27, "Input"], Cell[1392567, 45497, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1392663, 45503, 99, 2, 27, "Input"], Cell[1392765, 45507, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1392885, 45515, 129, 1, 54, "Section", CellTags->{"OPEi", "OPEj", "OPEk", "OPEl", "OPEm", "OPEn", "OPEo"}], Cell[CellGroupData[{ Cell[1393039, 45520, 33, 0, 45, "Subsection"], Cell[1393075, 45522, 152, 3, 50, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1393264, 45530, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1393319, 45534, 30, 0, 27, "Input"], Cell[1393352, 45536, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1393448, 45542, 234, 5, 43, "Input"], Cell[1393685, 45549, 206, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1393928, 45559, 1295, 38, 43, "Input"], Cell[1395226, 45599, 183, 5, 28, "Output"] }, Open ]], Cell[1395424, 45607, 36, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1395485, 45611, 564, 15, 43, "Input"], Cell[1396052, 45628, 169, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1396258, 45637, 592, 17, 43, "Input"], Cell[1396853, 45656, 137, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1397027, 45665, 564, 15, 43, "Input"], Cell[1397594, 45682, 169, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1397800, 45691, 137, 4, 43, "Input"], Cell[1397940, 45697, 205, 6, 28, "Output"] }, Open ]], Cell[1398160, 45706, 83, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1398292, 45714, 63, 1, 54, "Section", CellTags->"OPESumExplicit"], Cell[CellGroupData[{ Cell[1398380, 45719, 33, 0, 45, "Subsection"], Cell[1398416, 45721, 56, 0, 32, "Text"], Cell[1398475, 45723, 307, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1398819, 45741, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1398874, 45745, 402, 11, 27, "Input"], Cell[1399279, 45758, 404, 12, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1399720, 45775, 71, 1, 27, "Input"], Cell[1399794, 45778, 442, 14, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1400273, 45797, 606, 16, 27, "Input"], Cell[1400882, 45815, 798, 24, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1401717, 45844, 71, 1, 27, "Input"], Cell[1401791, 45847, 2762, 81, 88, "Output"] }, Open ]], Cell[1404568, 45931, 114, 3, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1404731, 45940, 47, 1, 54, "Section", CellTags->"OPESum"], Cell[CellGroupData[{ Cell[1404803, 45945, 33, 0, 45, "Subsection"], Cell[1404839, 45947, 106, 3, 32, "Text"], Cell[1404948, 45952, 331, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1405316, 45970, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1405371, 45974, 499, 13, 43, "Input"], Cell[1405873, 45989, 1032, 28, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1406942, 46022, 71, 1, 27, "Input"], Cell[1407016, 46025, 2074, 58, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1409127, 46088, 606, 16, 27, "Input"], Cell[1409736, 46106, 798, 24, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1410571, 46135, 71, 1, 27, "Input"], Cell[1410645, 46138, 2762, 81, 88, "Output"] }, Open ]], Cell[1413422, 46222, 114, 3, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1413585, 46231, 63, 1, 54, "Section", CellTags->"OPESumSimplify"], Cell[CellGroupData[{ Cell[1413673, 46236, 33, 0, 45, "Subsection"], Cell[1413709, 46238, 63, 0, 32, "Text"], Cell[1413775, 46240, 307, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1414119, 46258, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1414174, 46262, 115, 4, 42, "Input"], Cell[1414292, 46268, 1334, 35, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1415663, 46308, 59, 1, 27, "Input"], Cell[1415725, 46311, 1409, 36, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1417171, 46352, 248, 6, 27, "Input"], Cell[1417422, 46360, 280, 9, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1417739, 46374, 455, 12, 27, "Input"], Cell[1418197, 46388, 640, 20, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1418874, 46413, 61, 1, 27, "Input"], Cell[1418938, 46416, 62, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1419061, 46423, 43, 1, 54, "Section", CellTags->"Pair"], Cell[CellGroupData[{ Cell[1419129, 46428, 33, 0, 45, "Subsection"], Cell[1419165, 46430, 503, 10, 104, "Text"], Cell[1419671, 46442, 1062, 48, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1420770, 46495, 30, 0, 45, "Subsection"], Cell[1420803, 46497, 65, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1420893, 46501, 190, 4, 27, "Input"], Cell[1421086, 46507, 124, 3, 29, "Output"] }, Open ]], Cell[1421225, 46513, 54, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1421304, 46517, 252, 6, 27, "Input"], Cell[1421559, 46525, 336, 11, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1421932, 46541, 180, 4, 27, "Input"], Cell[1422115, 46547, 239, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1422391, 46560, 169, 4, 27, "Input"], Cell[1422563, 46566, 191, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1422791, 46577, 169, 4, 27, "Input"], Cell[1422963, 46583, 134, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1423134, 46592, 200, 5, 27, "Input"], Cell[1423337, 46599, 232, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1423606, 46611, 202, 5, 27, "Input"], Cell[1423811, 46618, 134, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1423982, 46627, 202, 5, 27, "Input"], Cell[1424187, 46634, 134, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1424358, 46643, 306, 8, 27, "Input"], Cell[1424667, 46653, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1424763, 46659, 258, 6, 27, "Input"], Cell[1425024, 46667, 309, 10, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1425370, 46682, 390, 10, 43, "Input"], Cell[1425763, 46694, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1425883, 46702, 51, 1, 54, "Section", CellTags->"PartialD"], Cell[CellGroupData[{ Cell[1425959, 46707, 33, 0, 45, "Subsection"], Cell[1425995, 46709, 689, 21, 50, "Text"], Cell[1426687, 46732, 474, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1427198, 46755, 39, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1427262, 46759, 206, 5, 27, "Input"], Cell[1427471, 46766, 308, 9, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1427816, 46780, 70, 1, 27, "Input"], Cell[1427889, 46783, 383, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1428309, 46800, 65, 1, 27, "Input"], Cell[1428377, 46803, 103, 2, 55, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1428541, 46812, 43, 1, 54, "Section", CellTags->"PaVe"], Cell[CellGroupData[{ Cell[1428609, 46817, 33, 0, 45, "Subsection"], Cell[1428645, 46819, 411, 8, 122, "Text"], Cell[1429059, 46829, 260, 7, 50, "Text"], Cell[1429322, 46838, 182, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1429541, 46851, 30, 0, 45, "Subsection"], Cell[1429574, 46853, 59, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1429658, 46857, 295, 8, 27, "Input"], Cell[1429956, 46867, 294, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1430287, 46879, 263, 7, 27, "Input"], Cell[1430553, 46888, 2503, 59, 123, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1433117, 46954, 53, 1, 54, "Section", CellTags->"PaVeOrder"], Cell[CellGroupData[{ Cell[1433195, 46959, 33, 0, 45, "Subsection"], Cell[1433231, 46961, 331, 7, 86, "Text"], Cell[1433565, 46970, 182, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1433784, 46983, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1433839, 46987, 416, 10, 43, "Input"], Cell[1434258, 46999, 389, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1434684, 47014, 416, 10, 43, "Input"], Cell[1435103, 47026, 389, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1435529, 47041, 776, 18, 59, "Input"], Cell[1436308, 47061, 690, 18, 46, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1437059, 47086, 55, 1, 54, "Section", CellTags->"PaVeReduce"], Cell[CellGroupData[{ Cell[1437139, 47091, 33, 0, 45, "Subsection"], Cell[1437175, 47093, 142, 3, 50, "Text"], Cell[CellGroupData[{ Cell[1437342, 47100, 72, 1, 27, "Input"], Cell[1437417, 47103, 455, 11, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1437909, 47119, 58, 1, 27, "Input"], Cell[1437970, 47122, 217, 4, 42, "Print"] }, Open ]], Cell[1438202, 47129, 283, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1438522, 47147, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1438577, 47151, 567, 14, 43, "Input"], Cell[1439147, 47167, 127, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1439311, 47176, 58, 1, 27, "Input"], Cell[1439372, 47179, 147, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1439556, 47188, 59, 1, 27, "Input"], Cell[1439618, 47191, 147, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1439802, 47200, 533, 13, 59, "Input"], Cell[1440338, 47215, 460, 12, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1440835, 47232, 186, 4, 43, "Input"], Cell[1441024, 47238, 541, 13, 75, "Output"] }, Open ]], Cell[1441580, 47254, 102, 1, 27, "Input"], Cell[1441685, 47257, 64, 1, 27, "Input"], Cell[CellGroupData[{ Cell[1441774, 47262, 154, 6, 87, "Input"], Cell[1441931, 47270, 127, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1442095, 47279, 104, 1, 27, "Input"], Cell[1442202, 47282, 389, 9, 42, "Print"], Cell[1442594, 47293, 389, 9, 42, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[1443020, 47307, 85, 1, 27, "Input"], Cell[1443108, 47310, 4789, 95, 669, "Output"] }, Open ]], Cell[1447912, 47408, 81, 1, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1448042, 47415, 67, 1, 54, "Section", CellTags->"PlusDistribution"], Cell[CellGroupData[{ Cell[1448134, 47420, 33, 0, 45, "Subsection"], Cell[1448170, 47422, 116, 3, 32, "Text"], Cell[1448289, 47427, 182, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1448508, 47440, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1448563, 47444, 159, 4, 27, "Input"], Cell[1448725, 47450, 176, 5, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1448938, 47460, 226, 6, 27, "Input"], Cell[1449167, 47468, 251, 7, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1449455, 47480, 316, 8, 27, "Input"], Cell[1449774, 47490, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1449870, 47496, 391, 10, 27, "Input"], Cell[1450264, 47508, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1450360, 47514, 428, 11, 27, "Input"], Cell[1450791, 47527, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1450887, 47533, 294, 8, 27, "Input"], Cell[1451184, 47543, 389, 12, 46, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1451634, 47562, 59, 1, 54, "Section", CellTags->"Polarization"], Cell[CellGroupData[{ Cell[1451718, 47567, 33, 0, 45, "Subsection"], Cell[1451754, 47569, 743, 15, 212, "Text"], Cell[1452500, 47586, 206, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1452743, 47599, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1452798, 47603, 68, 1, 27, "Input"], Cell[1452869, 47606, 105, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1453011, 47613, 104, 2, 27, "Input"], Cell[1453118, 47617, 36, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1453191, 47622, 114, 3, 27, "Input"], Cell[1453308, 47627, 311, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1453656, 47640, 156, 4, 27, "Input"], Cell[1453815, 47646, 37, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1453889, 47651, 109, 2, 27, "Input"], Cell[1454001, 47655, 256, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1454294, 47667, 150, 4, 27, "Input"], Cell[1454447, 47673, 58, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1454542, 47678, 283, 7, 27, "Input"], Cell[1454828, 47687, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1454948, 47695, 65, 1, 54, "Section", CellTags->"PolarizationSum"], Cell[CellGroupData[{ Cell[1455038, 47700, 33, 0, 45, "Subsection"], Cell[1455074, 47702, 249, 5, 68, "Text"], Cell[CellGroupData[{ Cell[1455348, 47711, 77, 1, 27, "Input"], Cell[1455428, 47714, 132, 4, 28, "Output"] }, Open ]], Cell[1455575, 47721, 188, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1455800, 47734, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1455855, 47738, 106, 2, 27, "Input"], Cell[1455964, 47742, 145, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1456146, 47751, 116, 2, 27, "Input"], Cell[1456265, 47755, 733, 23, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1457035, 47783, 126, 2, 27, "Input"], Cell[1457164, 47787, 2399, 75, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1459600, 47867, 215, 5, 27, "Input"], Cell[1459818, 47874, 6142, 181, 90, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1466021, 48062, 71, 1, 54, "Section", CellTags->"PolarizationVector"], Cell[CellGroupData[{ Cell[1466117, 48067, 33, 0, 45, "Subsection"], Cell[1466153, 48069, 70, 0, 32, "Text"], Cell[1466226, 48071, 295, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1466558, 48089, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1466613, 48093, 105, 2, 27, "Input"], Cell[1466721, 48097, 144, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1466902, 48106, 147, 3, 27, "Input"], Cell[1467052, 48111, 154, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1467243, 48120, 140, 3, 27, "Input"], Cell[1467386, 48125, 70, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1467493, 48130, 254, 6, 27, "Input"], Cell[1467750, 48138, 366, 12, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1468153, 48155, 65, 1, 27, "Input"], Cell[1468221, 48158, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1468317, 48164, 287, 7, 27, "Input"], Cell[1468607, 48173, 443, 14, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1469087, 48192, 65, 1, 27, "Input"], Cell[1469155, 48195, 341, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1469533, 48210, 287, 7, 27, "Input"], Cell[1469823, 48219, 443, 14, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1470303, 48238, 65, 1, 27, "Input"], Cell[1470371, 48241, 341, 10, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1470773, 48258, 61, 1, 54, "Section", CellTags->"PowerSimplify"], Cell[CellGroupData[{ Cell[1470859, 48263, 33, 0, 45, "Subsection"], Cell[1470895, 48265, 382, 6, 104, "Text"], Cell[1471280, 48273, 194, 10, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1471511, 48288, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1471566, 48292, 209, 6, 27, "Input"], Cell[1471778, 48300, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1471874, 48306, 214, 6, 27, "Input"], Cell[1472091, 48314, 142, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1472270, 48323, 214, 6, 27, "Input"], Cell[1472487, 48331, 142, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1472666, 48340, 154, 4, 27, "Input"], Cell[1472823, 48346, 142, 4, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1473026, 48357, 93, 1, 54, "Section", CellTags->"PropagatorDenominatorExplicit"], Cell[CellGroupData[{ Cell[1473144, 48362, 33, 0, 45, "Subsection"], Cell[1473180, 48364, 199, 4, 50, "Text"], Cell[1473382, 48370, 364, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1473783, 48388, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1473838, 48392, 288, 9, 27, "Input"], Cell[1474129, 48403, 352, 11, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1474518, 48419, 122, 3, 27, "Input"], Cell[1474643, 48424, 1069, 31, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1475749, 48460, 61, 1, 27, "Input"], Cell[1475813, 48463, 78, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1475952, 48470, 77, 1, 54, "Section", CellTags->"PropagatorDenominator"], Cell[CellGroupData[{ Cell[1476054, 48475, 33, 0, 45, "Subsection"], Cell[1476090, 48477, 541, 14, 104, "Text"], Cell[1476634, 48493, 388, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1477059, 48511, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1477114, 48515, 128, 3, 27, "Input"], Cell[1477245, 48520, 177, 5, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1477459, 48530, 77, 1, 27, "Input"], Cell[1477539, 48533, 114, 3, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1477690, 48541, 160, 4, 27, "Input"], Cell[1477853, 48547, 177, 5, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1478067, 48557, 100, 2, 27, "Input"], Cell[1478170, 48561, 58, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1478265, 48566, 141, 3, 27, "Input"], Cell[1478409, 48571, 58, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1478504, 48576, 86, 1, 27, "Input"], Cell[1478593, 48579, 232, 7, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1478862, 48591, 65, 1, 27, "Input"], Cell[1478930, 48594, 62, 0, 40, "Output"] }, Open ]], Cell[1479007, 48597, 62, 1, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1479118, 48604, 59, 1, 54, "Section", CellTags->"QuantumField"], Cell[CellGroupData[{ Cell[1479202, 48609, 33, 0, 45, "Subsection"], Cell[1479238, 48611, 328, 6, 86, "Text"], Cell[1479569, 48619, 432, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1480038, 48642, 30, 0, 45, "Subsection"], Cell[1480071, 48644, 44, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1480140, 48648, 68, 1, 27, "Input"], Cell[1480211, 48651, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1480307, 48657, 81, 1, 27, "Input"], Cell[1480391, 48660, 91, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1480519, 48667, 77, 1, 27, "Input"], Cell[1480599, 48670, 64, 1, 28, "Output"] }, Open ]], Cell[1480678, 48674, 53, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1480756, 48678, 128, 3, 27, "Input"], Cell[1480887, 48683, 89, 2, 29, "Output"] }, Open ]], Cell[1480991, 48688, 67, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1481083, 48692, 176, 4, 27, "Input"], Cell[1481262, 48698, 342, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1481641, 48715, 61, 1, 27, "Input"], Cell[1481705, 48718, 87, 1, 40, "Output"] }, Open ]], Cell[1481807, 48722, 381, 13, 32, "Text"], Cell[CellGroupData[{ Cell[1482213, 48739, 170, 4, 27, "Input"], Cell[1482386, 48745, 254, 8, 28, "Output"] }, Open ]], Cell[1482655, 48756, 158, 5, 86, "Text"], Cell[CellGroupData[{ Cell[1482838, 48765, 212, 5, 27, "Input"], Cell[1483053, 48772, 66, 0, 40, "Output"] }, Open ]], Cell[1483134, 48775, 61, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1483220, 48779, 183, 4, 27, "Input"], Cell[1483406, 48785, 383, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1483826, 48802, 146, 4, 27, "Input"], Cell[1483975, 48808, 237, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1484249, 48820, 228, 5, 27, "Input"], Cell[1484480, 48827, 446, 14, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1484963, 48846, 271, 7, 27, "Input"], Cell[1485237, 48855, 578, 18, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1485852, 48878, 195, 4, 27, "Input"], Cell[1486050, 48884, 62, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1486173, 48892, 55, 1, 54, "Section", CellTags->"QuarkField"], Cell[CellGroupData[{ Cell[1486253, 48897, 33, 0, 45, "Subsection"], Cell[1486289, 48899, 167, 4, 50, "Text"], Cell[1486459, 48905, 325, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1486821, 48923, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1486876, 48927, 36, 0, 27, "Input"], Cell[1486915, 48929, 64, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1487040, 48937, 67, 1, 54, "Section", CellTags->"QuarkGluonVertex"], Cell[CellGroupData[{ Cell[1487132, 48942, 33, 0, 45, "Subsection"], Cell[1487168, 48944, 108, 2, 32, "Text"], Cell[CellGroupData[{ Cell[1487301, 48950, 78, 1, 27, "Input"], Cell[1487382, 48953, 435, 10, 46, "Output"] }, Open ]], Cell[1487832, 48966, 185, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1488054, 48979, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1488109, 48983, 103, 2, 27, "Input"], Cell[1488215, 48987, 402, 12, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1488654, 49004, 163, 3, 27, "Input"], Cell[1488820, 49009, 735, 20, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1489592, 49034, 163, 3, 27, "Input"], Cell[1489758, 49039, 598, 16, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1490393, 49060, 163, 3, 27, "Input"], Cell[1490559, 49065, 700, 19, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1491296, 49089, 291, 7, 27, "Input"], Cell[1491590, 49098, 2405, 62, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1494032, 49165, 292, 7, 27, "Input"], Cell[1494327, 49174, 402, 12, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1494790, 49193, 65, 1, 54, "Section", CellTags->"QuarkPropagator"], Cell[CellGroupData[{ Cell[1494880, 49198, 33, 0, 45, "Subsection"], Cell[1494916, 49200, 148, 4, 50, "Text"], Cell[CellGroupData[{ Cell[1495089, 49208, 77, 1, 27, "Input"], Cell[1495169, 49211, 485, 11, 46, "Output"] }, Open ]], Cell[1495669, 49225, 340, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1496046, 49243, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1496101, 49247, 71, 1, 27, "Input"], Cell[1496175, 49250, 322, 9, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1496534, 49264, 127, 3, 27, "Input"], Cell[1496664, 49269, 469, 13, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1497170, 49287, 108, 2, 27, "Input"], Cell[1497281, 49291, 322, 9, 45, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1497664, 49307, 61, 1, 54, "Section", CellTags->"RightPartialD"], Cell[CellGroupData[{ Cell[1497750, 49312, 33, 0, 45, "Subsection"], Cell[1497786, 49314, 186, 6, 32, "Text"], Cell[1497975, 49322, 444, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1498456, 49345, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1498511, 49349, 73, 1, 27, "Input"], Cell[1498587, 49352, 238, 7, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1498862, 49364, 223, 5, 27, "Input"], Cell[1499088, 49371, 309, 9, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1499434, 49385, 70, 1, 27, "Input"], Cell[1499507, 49388, 383, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1499927, 49405, 61, 1, 27, "Input"], Cell[1499991, 49408, 103, 2, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1500131, 49415, 112, 3, 27, "Input"], Cell[1500246, 49420, 62, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1500369, 49427, 59, 1, 54, "Section", CellTags->"RussianTrick"], Cell[CellGroupData[{ Cell[1500453, 49432, 33, 0, 45, "Subsection"], Cell[1500489, 49434, 295, 5, 86, "Text"], Cell[1500787, 49441, 63, 0, 32, "Text"], Cell[1500853, 49443, 328, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1501218, 49461, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1501273, 49465, 395, 11, 27, "Input"], Cell[1501671, 49478, 569, 19, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1502277, 49502, 58, 1, 27, "Input"], Cell[1502338, 49505, 943, 27, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1503318, 49537, 131, 3, 27, "Input"], Cell[1503452, 49542, 5651, 151, 172, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1509140, 49698, 62, 1, 27, "Input"], Cell[1509205, 49701, 3550, 109, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1512792, 49815, 89, 2, 27, "Input"], Cell[1512884, 49819, 4081, 110, 45, "Output"] }, Open ]], Cell[1516980, 49932, 61, 1, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1517090, 49939, 61, 1, 54, "Section", CellTags->"ScalarProduct"], Cell[CellGroupData[{ Cell[1517176, 49944, 33, 0, 45, "Subsection"], Cell[1517212, 49946, 860, 20, 140, "Text"], Cell[1518075, 49968, 628, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1518740, 50001, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1518795, 50005, 96, 2, 27, "Input"], Cell[1518894, 50009, 191, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1519122, 50020, 149, 4, 27, "Input"], Cell[1519274, 50026, 307, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1519618, 50040, 96, 2, 27, "Input"], Cell[1519717, 50044, 134, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1519888, 50053, 69, 1, 27, "Input"], Cell[1519960, 50056, 134, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1520131, 50065, 134, 3, 27, "Input"], Cell[1520268, 50070, 48, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1520353, 50075, 196, 5, 27, "Input"], Cell[1520552, 50082, 54, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1520643, 50087, 222, 6, 27, "Input"], Cell[1520868, 50095, 84, 2, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1520989, 50102, 279, 7, 27, "Input"], Cell[1521271, 50111, 623, 20, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1521931, 50136, 264, 7, 27, "Input"], Cell[1522198, 50145, 623, 20, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1522882, 50172, 73, 1, 54, "Section", CellTags->"ScalarProductCancel"], Cell[CellGroupData[{ Cell[1522980, 50177, 33, 0, 45, "Subsection"], Cell[1523016, 50179, 152, 3, 50, "Text"], Cell[CellGroupData[{ Cell[1523193, 50186, 29, 0, 27, "Input"], Cell[1523225, 50188, 77, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1523339, 50194, 61, 1, 27, "Input"], Cell[1523403, 50197, 372, 8, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1523812, 50210, 49, 1, 27, "Input"], Cell[1523864, 50213, 124, 3, 24, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1524037, 50222, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1524092, 50226, 230, 8, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[1524347, 50238, 456, 13, 27, "Input"], Cell[1524806, 50253, 494, 16, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1525337, 50274, 103, 2, 27, "Input"], Cell[1525443, 50278, 1037, 31, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1526517, 50314, 109, 2, 27, "Input"], Cell[1526629, 50318, 827, 25, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1527493, 50348, 132, 3, 27, "Input"], Cell[1527628, 50353, 827, 25, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1528492, 50383, 628, 16, 59, "Input"], Cell[1529123, 50401, 1279, 38, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1530439, 50444, 149, 3, 27, "Input"], Cell[1530591, 50449, 4596, 125, 157, "Output"] }, Open ]], Cell[1535202, 50577, 114, 3, 27, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1535377, 50587, 39, 1, 54, "Section", CellTags->"SD"], Cell[CellGroupData[{ Cell[1535441, 50592, 33, 0, 45, "Subsection"], Cell[1535477, 50594, 199, 4, 68, "Text"], Cell[1535679, 50600, 176, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1535892, 50613, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1535947, 50617, 85, 2, 27, "Input"], Cell[1536035, 50621, 116, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1536188, 50629, 91, 2, 27, "Input"], Cell[1536282, 50633, 52, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1536371, 50638, 91, 2, 27, "Input"], Cell[1536465, 50642, 26, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1536552, 50649, 55, 1, 54, "Section", CellTags->"SelectFree"], Cell[CellGroupData[{ Cell[1536632, 50654, 33, 0, 45, "Subsection"], Cell[1536668, 50656, 230, 4, 68, "Text"], Cell[1536901, 50662, 52, 0, 32, "Text"], Cell[1536956, 50664, 304, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1537297, 50682, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1537352, 50686, 181, 5, 27, "Input"], Cell[1537536, 50693, 86, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1537659, 50700, 127, 3, 27, "Input"], Cell[1537789, 50705, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1537885, 50711, 253, 6, 27, "Input"], Cell[1538141, 50719, 86, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1538264, 50726, 93, 2, 27, "Input"], Cell[1538360, 50730, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1538456, 50736, 93, 2, 27, "Input"], Cell[1538552, 50740, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1538648, 50746, 93, 2, 27, "Input"], Cell[1538744, 50750, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1538840, 50756, 127, 3, 27, "Input"], Cell[1538970, 50761, 59, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1539090, 50769, 61, 1, 54, "Section", CellTags->"SelectNotFree"], Cell[CellGroupData[{ Cell[1539176, 50774, 33, 0, 45, "Subsection"], Cell[1539212, 50776, 115, 3, 32, "Text"], Cell[1539330, 50781, 246, 5, 68, "Text"], Cell[1539579, 50788, 55, 0, 32, "Text"], Cell[1539637, 50790, 295, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1539969, 50808, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1540024, 50812, 171, 4, 27, "Input"], Cell[1540198, 50818, 120, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1540355, 50826, 251, 6, 27, "Input"], Cell[1540609, 50834, 130, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1540776, 50842, 96, 2, 27, "Input"], Cell[1540875, 50846, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1540971, 50852, 125, 3, 27, "Input"], Cell[1541099, 50857, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1541195, 50863, 96, 2, 27, "Input"], Cell[1541294, 50867, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1541390, 50873, 96, 2, 27, "Input"], Cell[1541489, 50877, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1541585, 50883, 130, 3, 27, "Input"], Cell[1541718, 50888, 91, 2, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1541870, 50897, 49, 1, 54, "Section", CellTags->"Series2"], Cell[CellGroupData[{ Cell[1541944, 50902, 33, 0, 45, "Subsection"], Cell[1541980, 50904, 274, 6, 86, "Text"], Cell[CellGroupData[{ Cell[1542279, 50914, 69, 1, 27, "Input"], Cell[1542351, 50917, 471, 12, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1542871, 50935, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1542926, 50939, 352, 10, 27, "Input"], Cell[1543281, 50951, 313, 9, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1543631, 50965, 141, 4, 27, "Input"], Cell[1543775, 50971, 210, 6, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1544022, 50982, 197, 5, 27, "Input"], Cell[1544222, 50989, 334, 9, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1544593, 51003, 141, 4, 27, "Input"], Cell[1544737, 51009, 513, 15, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1545287, 51029, 273, 6, 27, "Input"], Cell[1545563, 51037, 1321, 35, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1546921, 51077, 296, 8, 27, "Input"], Cell[1547220, 51087, 1321, 35, 45, "Output"] }, Open ]], Cell[1548556, 51125, 93, 3, 32, "Text"], Cell[CellGroupData[{ Cell[1548674, 51132, 610, 16, 59, "Input"], Cell[1549287, 51150, 648, 19, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1549972, 51174, 722, 18, 59, "Input"], Cell[1550697, 51194, 1354, 39, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1552088, 51238, 212, 4, 27, "Input"], Cell[1552303, 51244, 806, 24, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1553146, 51273, 166, 4, 27, "Input"], Cell[1553315, 51279, 2743, 70, 143, "Output"] }, Open ]], Cell[1556073, 51352, 333, 9, 50, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1556455, 51367, 77, 1, 54, "Section", CellTags->"SimplifyDeltaFunction"], Cell[CellGroupData[{ Cell[1556557, 51372, 33, 0, 45, "Subsection"], Cell[1556593, 51374, 262, 5, 68, "Text"], Cell[1556858, 51381, 340, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1557235, 51399, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1557290, 51403, 157, 4, 27, "Input"], Cell[1557450, 51409, 245, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1557732, 51421, 109, 2, 27, "Input"], Cell[1557844, 51425, 400, 12, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1558281, 51442, 157, 4, 27, "Input"], Cell[1558441, 51448, 284, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1558762, 51461, 109, 2, 27, "Input"], Cell[1558874, 51465, 938, 26, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1559849, 51496, 174, 4, 27, "Input"], Cell[1560026, 51502, 296, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1560359, 51515, 109, 2, 27, "Input"], Cell[1560471, 51519, 176, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1560684, 51529, 229, 6, 27, "Input"], Cell[1560916, 51537, 346, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1561299, 51552, 109, 2, 27, "Input"], Cell[1561411, 51556, 206, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1561654, 51567, 268, 7, 27, "Input"], Cell[1561925, 51576, 392, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1562354, 51592, 109, 2, 27, "Input"], Cell[1562466, 51596, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1562562, 51602, 229, 6, 27, "Input"], Cell[1562794, 51610, 346, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1563177, 51625, 109, 2, 27, "Input"], Cell[1563289, 51629, 206, 6, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1563556, 51642, 65, 1, 54, "Section", CellTags->"SimplifyPolyLog"], Cell[CellGroupData[{ Cell[1563646, 51647, 33, 0, 45, "Subsection"], Cell[1563682, 51649, 171, 4, 50, "Text"], Cell[1563856, 51655, 173, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1564066, 51668, 30, 0, 45, "Subsection"], Cell[1564099, 51670, 184, 4, 27, "Input"], Cell[CellGroupData[{ Cell[1564308, 51678, 157, 4, 27, "Input"], Cell[1564468, 51684, 795, 21, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1565300, 51710, 126, 3, 27, "Input"], Cell[1565429, 51715, 481, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1565947, 51733, 190, 5, 27, "Input"], Cell[1566140, 51740, 765, 21, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1566942, 51766, 157, 4, 27, "Input"], Cell[1567102, 51772, 737, 20, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1567876, 51797, 257, 7, 27, "Input"], Cell[1568136, 51806, 786, 22, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1568959, 51833, 225, 6, 27, "Input"], Cell[1569187, 51841, 756, 21, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1569980, 51867, 267, 7, 27, "Input"], Cell[1570250, 51876, 875, 28, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1571162, 51909, 185, 5, 27, "Input"], Cell[1571350, 51916, 565, 16, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1571952, 51937, 157, 4, 27, "Input"], Cell[1572112, 51943, 62, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1572211, 51949, 157, 4, 27, "Input"], Cell[1572371, 51955, 1495, 42, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1573903, 52002, 257, 7, 27, "Input"], Cell[1574163, 52011, 1812, 50, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1576012, 52066, 190, 5, 27, "Input"], Cell[1576205, 52073, 1717, 49, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1577959, 52127, 257, 7, 27, "Input"], Cell[1578219, 52136, 62, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1578318, 52142, 153, 4, 27, "Input"], Cell[1578474, 52148, 321, 10, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1578832, 52163, 122, 3, 27, "Input"], Cell[1578957, 52168, 214, 6, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1579208, 52179, 32, 0, 27, "Input"], Cell[1579243, 52181, 418, 13, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1579698, 52199, 32, 0, 27, "Input"], Cell[1579733, 52201, 353, 11, 38, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1580123, 52217, 32, 0, 27, "Input"], Cell[1580158, 52219, 353, 11, 38, "Output"] }, Open ]], Cell[1580526, 52233, 63, 1, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1580638, 52240, 41, 1, 54, "Section", CellTags->"SOD"], Cell[CellGroupData[{ Cell[1580704, 52245, 33, 0, 45, "Subsection"], Cell[1580740, 52247, 173, 4, 50, "Text"], Cell[1580916, 52253, 521, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1581474, 52281, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1581529, 52285, 59, 1, 27, "Input"], Cell[1581591, 52288, 268, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1581896, 52301, 86, 2, 27, "Input"], Cell[1581985, 52305, 419, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1582441, 52323, 130, 4, 27, "Input"], Cell[1582574, 52329, 61, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1582696, 52336, 47, 1, 54, "Section", CellTags->"Solve2"], Cell[CellGroupData[{ Cell[1582768, 52341, 33, 0, 45, "Subsection"], Cell[1582804, 52343, 326, 6, 86, "Text"], Cell[CellGroupData[{ Cell[1583155, 52353, 68, 1, 27, "Input"], Cell[1583226, 52356, 248, 6, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1583523, 52368, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1583578, 52372, 419, 12, 27, "Input"], Cell[1584000, 52386, 399, 11, 43, "Output"] }, Open ]], Cell[1584414, 52400, 92, 3, 32, "Text"], Cell[CellGroupData[{ Cell[1584531, 52407, 118, 3, 27, "Input"], Cell[1584652, 52412, 147, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1584836, 52421, 250, 6, 27, "Input"], Cell[1585089, 52429, 147, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1585273, 52438, 477, 13, 27, "Input"], Cell[1585753, 52453, 321, 9, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1586111, 52467, 418, 12, 27, "Input"], Cell[1586532, 52481, 449, 13, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1587042, 52501, 39, 1, 54, "Section", CellTags->"SO"], Cell[CellGroupData[{ Cell[1587106, 52506, 33, 0, 45, "Subsection"], Cell[1587142, 52508, 157, 4, 50, "Text"], Cell[1587302, 52514, 618, 27, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1587957, 52546, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1588012, 52550, 58, 1, 27, "Input"], Cell[1588073, 52553, 268, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1588378, 52566, 85, 2, 27, "Input"], Cell[1588466, 52570, 419, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1588922, 52588, 129, 4, 27, "Input"], Cell[1589054, 52594, 55, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1589170, 52601, 41, 1, 54, "Section", CellTags->"SPD"], Cell[CellGroupData[{ Cell[1589236, 52606, 33, 0, 45, "Subsection"], Cell[1589272, 52608, 359, 10, 68, "Text"], Cell[1589634, 52620, 450, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1590121, 52643, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1590176, 52647, 159, 4, 27, "Input"], Cell[1590338, 52653, 419, 14, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1590794, 52672, 170, 5, 27, "Input"], Cell[1590967, 52679, 306, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1591310, 52693, 223, 6, 27, "Input"], Cell[1591536, 52701, 435, 14, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1592008, 52720, 138, 3, 27, "Input"], Cell[1592149, 52725, 439, 14, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1592625, 52744, 124, 3, 27, "Input"], Cell[1592752, 52749, 27, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1592816, 52754, 165, 5, 27, "Input"], Cell[1592984, 52761, 54, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1593075, 52766, 201, 6, 27, "Input"], Cell[1593279, 52774, 27, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1593343, 52779, 260, 7, 27, "Input"], Cell[1593606, 52788, 27, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1593694, 52795, 47, 1, 54, "Section", CellTags->"Spinor"], Cell[CellGroupData[{ Cell[1593766, 52800, 33, 0, 45, "Subsection"], Cell[1593802, 52802, 676, 19, 104, "Text"], Cell[1594481, 52823, 673, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1595191, 52856, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1595246, 52860, 62, 1, 27, "Input"], Cell[1595311, 52863, 148, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1595496, 52872, 89, 2, 27, "Input"], Cell[1595588, 52876, 158, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1595783, 52885, 237, 6, 27, "Input"], Cell[1596023, 52893, 243, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1596303, 52905, 98, 2, 27, "Input"], Cell[1596404, 52909, 43, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1596484, 52914, 184, 5, 27, "Input"], Cell[1596671, 52921, 43, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1596751, 52926, 127, 3, 27, "Input"], Cell[1596881, 52931, 43, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1596961, 52936, 182, 5, 27, "Input"], Cell[1597146, 52943, 43, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1597250, 52950, 55, 1, 54, "Section", CellTags->"SpinorUBar"], Cell[CellGroupData[{ Cell[1597330, 52955, 33, 0, 45, "Subsection"], Cell[1597366, 52957, 159, 6, 32, "Text"], Cell[1597528, 52965, 527, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1598092, 52993, 30, 0, 45, "Subsection"], Cell[1598125, 52995, 60, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1598210, 52999, 66, 1, 27, "Input"], Cell[1598279, 53002, 177, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1598493, 53012, 93, 2, 27, "Input"], Cell[1598589, 53016, 190, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1598816, 53027, 131, 3, 27, "Input"], Cell[1598950, 53032, 34, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1599021, 53037, 172, 5, 27, "Input"], Cell[1599196, 53044, 43, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1599276, 53049, 208, 6, 27, "Input"], Cell[1599487, 53057, 43, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1599591, 53064, 49, 1, 54, "Section", CellTags->"SpinorU"], Cell[CellGroupData[{ Cell[1599665, 53069, 33, 0, 45, "Subsection"], Cell[1599701, 53071, 57, 0, 32, "Text"], Cell[1599761, 53073, 536, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1600334, 53101, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1600389, 53105, 63, 1, 27, "Input"], Cell[1600455, 53108, 91, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1600583, 53115, 90, 2, 27, "Input"], Cell[1600676, 53119, 101, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1600814, 53126, 128, 3, 27, "Input"], Cell[1600945, 53131, 31, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1601013, 53136, 169, 5, 27, "Input"], Cell[1601185, 53143, 43, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1601265, 53148, 205, 6, 27, "Input"], Cell[1601473, 53156, 43, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1601577, 53163, 55, 1, 54, "Section", CellTags->"SpinorVBar"], Cell[CellGroupData[{ Cell[1601657, 53168, 33, 0, 45, "Subsection"], Cell[1601693, 53170, 164, 6, 32, "Text"], Cell[1601860, 53178, 527, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1602424, 53206, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1602479, 53210, 66, 1, 27, "Input"], Cell[1602548, 53213, 177, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1602762, 53223, 93, 2, 27, "Input"], Cell[1602858, 53227, 190, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1603085, 53238, 131, 3, 27, "Input"], Cell[1603219, 53243, 34, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1603290, 53248, 172, 5, 27, "Input"], Cell[1603465, 53255, 44, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1603546, 53260, 208, 6, 27, "Input"], Cell[1603757, 53268, 44, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1603862, 53275, 49, 1, 54, "Section", CellTags->"SpinorV"], Cell[CellGroupData[{ Cell[1603936, 53280, 33, 0, 45, "Subsection"], Cell[1603972, 53282, 57, 0, 32, "Text"], Cell[1604032, 53284, 536, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1604605, 53312, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1604660, 53316, 63, 1, 27, "Input"], Cell[1604726, 53319, 91, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1604854, 53326, 90, 2, 27, "Input"], Cell[1604947, 53330, 101, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1605085, 53337, 128, 3, 27, "Input"], Cell[1605216, 53342, 31, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1605284, 53347, 169, 5, 27, "Input"], Cell[1605456, 53354, 44, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1605537, 53359, 205, 6, 27, "Input"], Cell[1605745, 53367, 44, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1605850, 53374, 69, 1, 54, "Section", CellTags->"SplittingFunction"], Cell[CellGroupData[{ Cell[1605944, 53379, 33, 0, 45, "Subsection"], Cell[1605980, 53381, 198, 6, 32, "Text"], Cell[CellGroupData[{ Cell[1606203, 53391, 79, 1, 27, "Input"], Cell[1606285, 53394, 135, 4, 28, "Output"] }, Open ]], Cell[1606435, 53401, 206, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1606678, 53414, 30, 0, 45, "Subsection"], Cell[1606711, 53416, 33, 0, 32, "Text"], Cell[1606747, 53418, 181, 4, 27, "Input"], Cell[CellGroupData[{ Cell[1606953, 53426, 75, 1, 27, "Input"], Cell[1607031, 53429, 632, 18, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1607700, 53452, 75, 1, 27, "Input"], Cell[1607778, 53455, 291, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1608106, 53469, 75, 1, 27, "Input"], Cell[1608184, 53472, 248, 7, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1608469, 53484, 75, 1, 27, "Input"], Cell[1608547, 53487, 1009, 27, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1609593, 53519, 75, 1, 27, "Input"], Cell[1609671, 53522, 1406, 37, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1611114, 53564, 75, 1, 27, "Input"], Cell[1611192, 53567, 687, 19, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1611916, 53591, 75, 1, 27, "Input"], Cell[1611994, 53594, 617, 17, 30, "Output"] }, Open ]], Cell[1612626, 53614, 75, 1, 27, "Input"], Cell[1612704, 53617, 31, 0, 32, "Text"], Cell[1612738, 53619, 181, 4, 27, "Input"], Cell[CellGroupData[{ Cell[1612944, 53627, 75, 1, 27, "Input"], Cell[1613022, 53630, 632, 18, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1613691, 53653, 75, 1, 27, "Input"], Cell[1613769, 53656, 211, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1614017, 53668, 75, 1, 27, "Input"], Cell[1614095, 53671, 207, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1614339, 53682, 75, 1, 27, "Input"], Cell[1614417, 53685, 1001, 28, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1615455, 53718, 75, 1, 27, "Input"], Cell[1615533, 53721, 1541, 41, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1617111, 53767, 75, 1, 27, "Input"], Cell[1617189, 53770, 563, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1617789, 53791, 76, 1, 27, "Input"], Cell[1617868, 53794, 490, 14, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1618395, 53813, 75, 1, 27, "Input"], Cell[1618473, 53816, 490, 14, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1619000, 53835, 76, 1, 27, "Input"], Cell[1619079, 53838, 490, 14, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1619606, 53857, 75, 1, 27, "Input"], Cell[1619684, 53860, 1732, 45, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1621453, 53910, 76, 1, 27, "Input"], Cell[1621532, 53913, 1732, 45, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1623301, 53963, 76, 1, 27, "Input"], Cell[1623380, 53966, 749, 21, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1624166, 53992, 77, 1, 27, "Input"], Cell[1624246, 53995, 7231, 176, 342, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1631514, 54176, 75, 1, 27, "Input"], Cell[1631592, 54179, 3699, 93, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1635328, 54277, 75, 1, 27, "Input"], Cell[1635406, 54280, 4595, 117, 212, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1640038, 54402, 75, 1, 27, "Input"], Cell[1640116, 54405, 5613, 140, 258, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1645790, 54552, 39, 1, 54, "Section", CellTags->"SP"], Cell[CellGroupData[{ Cell[1645854, 54557, 33, 0, 45, "Subsection"], Cell[1645890, 54559, 341, 10, 50, "Text"], Cell[1646234, 54571, 450, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1646721, 54594, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1646776, 54598, 157, 4, 27, "Input"], Cell[1646936, 54604, 419, 14, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1647392, 54623, 169, 5, 27, "Input"], Cell[1647564, 54630, 306, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1647907, 54644, 222, 6, 27, "Input"], Cell[1648132, 54652, 435, 14, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1648604, 54671, 137, 3, 27, "Input"], Cell[1648744, 54676, 439, 14, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1649220, 54695, 123, 3, 27, "Input"], Cell[1649346, 54700, 26, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1649409, 54705, 164, 5, 27, "Input"], Cell[1649576, 54712, 48, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1649661, 54717, 200, 6, 27, "Input"], Cell[1649864, 54725, 26, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1649951, 54732, 43, 1, 54, "Section", CellTags->"SumP"], Cell[CellGroupData[{ Cell[1650019, 54737, 33, 0, 45, "Subsection"], Cell[1650055, 54739, 621, 19, 35, "Text"], Cell[1650679, 54760, 271, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1650987, 54778, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1651042, 54782, 116, 3, 27, "Input"], Cell[1651161, 54787, 249, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1651447, 54798, 116, 3, 27, "Input"], Cell[1651566, 54803, 249, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1651852, 54814, 87, 2, 27, "Input"], Cell[1651942, 54818, 218, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1652197, 54828, 87, 2, 27, "Input"], Cell[1652287, 54832, 86, 2, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1652410, 54839, 314, 10, 52, "Input"], Cell[1652727, 54851, 86, 2, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1652850, 54858, 159, 4, 27, "Input"], Cell[1653012, 54864, 913, 27, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1653962, 54896, 86, 2, 27, "Input"], Cell[1654051, 54900, 86, 2, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1654198, 54909, 43, 1, 54, "Section", CellTags->"SumS"], Cell[CellGroupData[{ Cell[1654266, 54914, 33, 0, 45, "Subsection"], Cell[1654302, 54916, 1263, 39, 107, "Text"], Cell[CellGroupData[{ Cell[1655590, 54959, 66, 1, 27, "Input"], Cell[1655659, 54962, 133, 4, 28, "Output"] }, Open ]], Cell[1655807, 54969, 271, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1656115, 54987, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1656170, 54991, 116, 3, 27, "Input"], Cell[1656289, 54996, 197, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1656523, 55007, 116, 3, 27, "Input"], Cell[1656642, 55012, 197, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1656876, 55023, 87, 2, 27, "Input"], Cell[1656966, 55027, 119, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1657122, 55035, 140, 3, 27, "Input"], Cell[1657265, 55040, 261, 8, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1657563, 55053, 169, 4, 27, "Input"], Cell[1657735, 55059, 364, 12, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1658136, 55076, 261, 7, 43, "Input"], Cell[1658400, 55085, 570, 18, 46, "Output"] }, Open ]], Cell[1658985, 55106, 166, 4, 27, "Input"], Cell[CellGroupData[{ Cell[1659176, 55114, 87, 2, 27, "Input"], Cell[1659266, 55118, 86, 2, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1659389, 55125, 145, 4, 52, "Input"], Cell[1659537, 55131, 86, 2, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1659660, 55138, 126, 3, 27, "Input"], Cell[1659789, 55143, 198, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1660024, 55154, 108, 2, 27, "Input"], Cell[1660135, 55158, 112, 3, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1660284, 55166, 111, 3, 27, "Input"], Cell[1660398, 55171, 109, 3, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1660544, 55179, 87, 2, 27, "Input"], Cell[1660634, 55183, 109, 3, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1660804, 55193, 43, 1, 54, "Section", CellTags->"SumT"], Cell[CellGroupData[{ Cell[1660872, 55198, 33, 0, 45, "Subsection"], Cell[1660908, 55200, 521, 14, 68, "Text"], Cell[1661432, 55216, 271, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1661740, 55234, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1661795, 55238, 116, 3, 27, "Input"], Cell[1661914, 55243, 228, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1662179, 55255, 116, 3, 27, "Input"], Cell[1662298, 55260, 228, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1662563, 55272, 87, 2, 27, "Input"], Cell[1662653, 55276, 153, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1662843, 55286, 140, 3, 27, "Input"], Cell[1662986, 55291, 392, 13, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1663415, 55309, 87, 2, 27, "Input"], Cell[1663505, 55313, 109, 3, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1663651, 55321, 233, 7, 52, "Input"], Cell[1663887, 55330, 109, 3, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1664033, 55338, 126, 3, 27, "Input"], Cell[1664162, 55343, 229, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1664428, 55355, 98, 2, 27, "Input"], Cell[1664529, 55359, 230, 5, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1664796, 55369, 87, 2, 27, "Input"], Cell[1664886, 55373, 109, 3, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1665032, 55381, 111, 3, 27, "Input"], Cell[1665146, 55386, 109, 3, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1665292, 55394, 262, 8, 52, "Input"], Cell[1665557, 55404, 847, 24, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1666441, 55433, 98, 2, 27, "Input"], Cell[1666542, 55437, 137, 4, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1666716, 55446, 122, 3, 27, "Input"], Cell[1666841, 55451, 230, 5, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1667108, 55461, 91, 2, 27, "Input"], Cell[1667202, 55465, 499, 15, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1667738, 55485, 234, 7, 27, "Input"], Cell[1667975, 55494, 499, 15, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1668535, 55516, 51, 1, 54, "Section", CellTags->"SUNDelta"], Cell[CellGroupData[{ Cell[1668611, 55521, 33, 0, 45, "Subsection"], Cell[1668647, 55523, 101, 3, 32, "Text"], Cell[1668751, 55528, 503, 23, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1669291, 55556, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1669346, 55560, 91, 2, 27, "Input"], Cell[1669440, 55564, 116, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1669593, 55572, 242, 6, 27, "Input"], Cell[1669838, 55580, 328, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1670203, 55596, 173, 4, 27, "Input"], Cell[1670379, 55602, 328, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1670744, 55618, 129, 3, 27, "Input"], Cell[1670876, 55623, 32, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1670945, 55628, 170, 5, 27, "Input"], Cell[1671118, 55635, 52, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1671207, 55640, 206, 6, 27, "Input"], Cell[1671416, 55648, 26, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1671479, 55653, 164, 5, 27, "Input"], Cell[1671646, 55660, 52, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1671759, 55667, 43, 1, 54, "Section", CellTags->"SUND"], Cell[CellGroupData[{ Cell[1671827, 55672, 33, 0, 45, "Subsection"], Cell[1671863, 55674, 179, 6, 32, "Text"], Cell[1672045, 55682, 411, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1672493, 55705, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1672548, 55709, 97, 2, 27, "Input"], Cell[1672648, 55713, 114, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1672799, 55721, 179, 4, 27, "Input"], Cell[1672981, 55727, 1462, 42, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1674480, 55774, 97, 2, 27, "Input"], Cell[1674580, 55778, 114, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1674731, 55786, 97, 2, 27, "Input"], Cell[1674831, 55790, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1674927, 55796, 250, 6, 27, "Input"], Cell[1675180, 55804, 250, 7, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1675467, 55816, 381, 10, 43, "Input"], Cell[1675851, 55828, 316, 10, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1676204, 55843, 381, 10, 43, "Input"], Cell[1676588, 55855, 574, 17, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1677199, 55877, 138, 4, 27, "Input"], Cell[1677340, 55883, 31, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1677408, 55888, 176, 5, 27, "Input"], Cell[1677587, 55895, 61, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1677685, 55900, 214, 6, 27, "Input"], Cell[1677902, 55908, 31, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1677994, 55915, 43, 1, 54, "Section", CellTags->"SUNF"], Cell[CellGroupData[{ Cell[1678062, 55920, 33, 0, 45, "Subsection"], Cell[1678098, 55922, 124, 3, 50, "Text"], Cell[CellGroupData[{ Cell[1678247, 55929, 66, 1, 27, "Input"], Cell[1678316, 55932, 135, 4, 28, "Output"] }, Open ]], Cell[1678466, 55939, 747, 33, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1679250, 55977, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1679305, 55981, 292, 8, 27, "Input"], Cell[1679600, 55991, 333, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1679970, 56005, 61, 1, 27, "Input"], Cell[1680034, 56008, 1058, 32, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1681129, 56045, 68, 1, 27, "Input"], Cell[1681200, 56048, 575, 18, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1681812, 56071, 97, 2, 27, "Input"], Cell[1681912, 56075, 149, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1682098, 56084, 130, 3, 27, "Input"], Cell[1682231, 56089, 59, 1, 28, "Output"] }, Open ]], Cell[1682305, 56093, 355, 10, 46, "Text"], Cell[CellGroupData[{ Cell[1682685, 56107, 152, 3, 27, "Input"], Cell[1682840, 56112, 1565, 43, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1684442, 56160, 250, 6, 27, "Input"], Cell[1684695, 56168, 403, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1685135, 56186, 217, 5, 27, "Input"], Cell[1685355, 56193, 1589, 44, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1686981, 56242, 138, 4, 27, "Input"], Cell[1687122, 56248, 31, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1687190, 56253, 176, 5, 27, "Input"], Cell[1687369, 56260, 61, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1687467, 56265, 214, 6, 27, "Input"], Cell[1687684, 56273, 31, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1687752, 56278, 97, 2, 27, "Input"], Cell[1687852, 56282, 149, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1688038, 56291, 129, 3, 27, "Input"], Cell[1688170, 56296, 510, 16, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1688741, 56319, 51, 1, 54, "Section", CellTags->"SUNIndex"], Cell[CellGroupData[{ Cell[1688817, 56324, 33, 0, 45, "Subsection"], Cell[1688853, 56326, 53, 0, 32, "Text"], Cell[1688909, 56328, 283, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1689229, 56346, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1689284, 56350, 64, 1, 27, "Input"], Cell[1689351, 56353, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1689447, 56359, 170, 5, 27, "Input"], Cell[1689620, 56366, 52, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1689733, 56373, 57, 1, 54, "Section", CellTags->"SUNSimplify"], Cell[CellGroupData[{ Cell[1689815, 56378, 33, 0, 45, "Subsection"], Cell[1689851, 56380, 352, 8, 122, "Text"], Cell[CellGroupData[{ Cell[1690228, 56392, 73, 1, 27, "Input"], Cell[1690304, 56395, 454, 10, 46, "Output"] }, Open ]], Cell[1690773, 56408, 167, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1690977, 56421, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1691032, 56425, 224, 6, 27, "Input"], Cell[1691259, 56433, 208, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1691504, 56444, 68, 1, 27, "Input"], Cell[1691575, 56447, 328, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1691940, 56463, 154, 4, 27, "Input"], Cell[1692097, 56469, 244, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1692378, 56482, 68, 1, 27, "Input"], Cell[1692449, 56485, 85, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1692571, 56492, 138, 3, 27, "Input"], Cell[1692712, 56497, 174, 5, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1692923, 56507, 231, 6, 27, "Input"], Cell[1693157, 56515, 267, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1693461, 56527, 68, 1, 27, "Input"], Cell[1693532, 56530, 403, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1693972, 56548, 246, 6, 27, "Input"], Cell[1694221, 56556, 267, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1694525, 56568, 68, 1, 27, "Input"], Cell[1694596, 56571, 162, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1694795, 56580, 236, 6, 27, "Input"], Cell[1695034, 56588, 267, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1695338, 56600, 68, 1, 27, "Input"], Cell[1695409, 56603, 403, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1695849, 56621, 236, 6, 27, "Input"], Cell[1696088, 56629, 239, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1696364, 56641, 135, 3, 27, "Input"], Cell[1696502, 56646, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1696598, 56652, 390, 10, 43, "Input"], Cell[1696991, 56664, 316, 10, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1697344, 56679, 395, 10, 43, "Input"], Cell[1697742, 56691, 522, 16, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1698301, 56712, 217, 5, 27, "Input"], Cell[1698521, 56719, 1589, 44, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1700147, 56768, 217, 5, 27, "Input"], Cell[1700367, 56775, 1543, 43, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1701947, 56823, 250, 6, 27, "Input"], Cell[1702200, 56831, 227, 6, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1702464, 56842, 456, 12, 27, "Input"], Cell[1702923, 56856, 515, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1703475, 56874, 141, 3, 27, "Input"], Cell[1703619, 56879, 954, 30, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1704610, 56914, 282, 7, 27, "Input"], Cell[1704895, 56923, 600, 17, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1705532, 56945, 68, 1, 27, "Input"], Cell[1705603, 56948, 625, 19, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1706265, 56972, 141, 3, 27, "Input"], Cell[1706409, 56977, 577, 18, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1707023, 57000, 188, 5, 27, "Input"], Cell[1707214, 57007, 158, 2, 70, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1707433, 57016, 43, 1, 54, "Section", CellTags->"SUNT"], Cell[CellGroupData[{ Cell[1707501, 57021, 33, 0, 45, "Subsection"], Cell[1707537, 57023, 187, 6, 32, "Text"], Cell[1707727, 57031, 720, 33, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1708484, 57069, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1708539, 57073, 60, 1, 27, "Input"], Cell[1708602, 57076, 132, 4, 28, "Output"] }, Open ]], Cell[1708749, 57083, 197, 6, 32, "Text"], Cell[CellGroupData[{ Cell[1708971, 57093, 177, 4, 27, "Input"], Cell[1709151, 57099, 333, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1709521, 57115, 107, 2, 27, "Input"], Cell[1709631, 57119, 407, 14, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1710075, 57138, 220, 5, 27, "Input"], Cell[1710298, 57145, 283, 9, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1710618, 57159, 151, 3, 27, "Input"], Cell[1710772, 57164, 95, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1710904, 57171, 141, 3, 27, "Input"], Cell[1711048, 57176, 442, 14, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1711527, 57195, 220, 5, 27, "Input"], Cell[1711750, 57202, 283, 9, 43, "Output"] }, Open ]], Cell[1712048, 57214, 474, 14, 46, "Text"], Cell[CellGroupData[{ Cell[1712547, 57232, 128, 3, 27, "Input"], Cell[1712678, 57237, 373, 12, 42, "Output"] }, Open ]], Cell[1713066, 57252, 190, 6, 32, "Text"], Cell[CellGroupData[{ Cell[1713281, 57262, 170, 4, 27, "Input"], Cell[1713454, 57268, 403, 13, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1713894, 57286, 168, 4, 27, "Input"], Cell[1714065, 57292, 54, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1714156, 57297, 131, 4, 27, "Input"], Cell[1714290, 57303, 35, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1714362, 57308, 169, 5, 27, "Input"], Cell[1714534, 57315, 25, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1714620, 57322, 51, 1, 54, "Section", CellTags->"SUNTrace"], Cell[CellGroupData[{ Cell[1714696, 57327, 33, 0, 45, "Subsection"], Cell[1714732, 57329, 58, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1714815, 57333, 70, 1, 27, "Input"], Cell[1714888, 57336, 135, 4, 28, "Output"] }, Open ]], Cell[1715038, 57343, 286, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1715361, 57361, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1715416, 57365, 128, 3, 27, "Input"], Cell[1715547, 57370, 373, 12, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1715957, 57387, 138, 3, 27, "Input"], Cell[1716098, 57392, 642, 20, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1716777, 57417, 214, 5, 27, "Input"], Cell[1716994, 57424, 1079, 33, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1718110, 57462, 148, 3, 27, "Input"], Cell[1718261, 57467, 806, 25, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1719104, 57497, 260, 6, 27, "Input"], Cell[1719367, 57505, 5904, 182, 79, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1725308, 57692, 140, 3, 27, "Input"], Cell[1725451, 57697, 806, 25, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1726294, 57727, 281, 7, 27, "Input"], Cell[1726578, 57736, 16729, 438, 242, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1743344, 58179, 140, 3, 27, "Input"], Cell[1743487, 58184, 970, 30, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1744494, 58219, 250, 6, 27, "Input"], Cell[1744747, 58227, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1744843, 58233, 250, 6, 27, "Input"], Cell[1745096, 58241, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1745192, 58247, 250, 6, 27, "Input"], Cell[1745445, 58255, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1745541, 58261, 250, 6, 27, "Input"], Cell[1745794, 58269, 676, 21, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1746531, 58297, 55, 1, 54, "Section", CellTags->"Symmetrize"], Cell[CellGroupData[{ Cell[1746611, 58302, 33, 0, 45, "Subsection"], Cell[1746647, 58304, 109, 3, 32, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1746793, 58312, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1746848, 58316, 218, 6, 27, "Input"], Cell[1747069, 58324, 322, 10, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1747428, 58339, 248, 6, 27, "Input"], Cell[1747679, 58347, 778, 18, 63, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1748518, 58372, 43, 1, 54, "Section", CellTags->"Tdec"], Cell[CellGroupData[{ Cell[1748586, 58377, 33, 0, 45, "Subsection"], Cell[1748622, 58379, 240, 5, 68, "Text"], Cell[CellGroupData[{ Cell[1748887, 58388, 66, 1, 27, "Input"], Cell[1748956, 58391, 474, 10, 46, "Output"] }, Open ]], Cell[1749445, 58404, 408, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1749890, 58427, 30, 0, 45, "Subsection"], Cell[1749923, 58429, 733, 22, 32, "Text"], Cell[CellGroupData[{ Cell[1750681, 58455, 180, 5, 27, "Input"], Cell[1750864, 58462, 803, 23, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1751704, 58490, 175, 5, 27, "Input"], Cell[1751882, 58497, 496, 16, 47, "Output"] }, Open ]], Cell[1752393, 58516, 906, 27, 50, "Text"], Cell[1753302, 58545, 627, 17, 27, "Input"], Cell[CellGroupData[{ Cell[1753954, 58566, 175, 5, 27, "Input"], Cell[1754132, 58573, 12841, 332, 176, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1767010, 58910, 395, 11, 27, "Input"], Cell[1767408, 58923, 618, 20, 28, "Output"] }, Open ]], Cell[1768041, 58946, 83, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1768173, 58954, 63, 1, 54, "Section", CellTags->"Tensorfunction"], Cell[CellGroupData[{ Cell[1768261, 58959, 33, 0, 45, "Subsection"], Cell[1768297, 58961, 332, 7, 86, "Text"], Cell[1768632, 58970, 182, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1768851, 58983, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1768906, 58987, 133, 3, 27, "Input"], Cell[1769042, 58992, 296, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1769375, 59006, 60, 1, 27, "Input"], Cell[1769438, 59009, 437, 11, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1769912, 59025, 161, 4, 27, "Input"], Cell[1770076, 59031, 241, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1770354, 59043, 61, 1, 27, "Input"], Cell[1770418, 59046, 86, 1, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1770541, 59052, 197, 5, 27, "Input"], Cell[1770741, 59059, 235, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1771013, 59071, 197, 5, 27, "Input"], Cell[1771213, 59078, 235, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1771485, 59090, 61, 1, 27, "Input"], Cell[1771549, 59093, 76, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1771662, 59098, 48, 1, 27, "Input"], Cell[1771713, 59101, 73, 1, 24, "Print"], Cell[1771789, 59104, 396, 12, 24, "Print"] }, Open ]], Cell[1772200, 59119, 106, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1772355, 59127, 41, 1, 54, "Section", CellTags->"TFi"], Cell[CellGroupData[{ Cell[1772421, 59132, 33, 0, 45, "Subsection"], Cell[1772457, 59134, 566, 14, 212, "Text"], Cell[1773026, 59150, 231, 7, 32, "Text"], Cell[1773260, 59159, 169, 4, 50, "Text"], Cell[1773432, 59165, 277, 12, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1773746, 59182, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1773801, 59186, 560, 15, 27, "Input"], Cell[1774364, 59203, 1096, 33, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1775497, 59241, 296, 8, 27, "Input"], Cell[1775796, 59251, 1086, 33, 31, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1776943, 59291, 43, 1, 54, "Section", CellTags->"TIDL"], Cell[CellGroupData[{ Cell[1777011, 59296, 33, 0, 45, "Subsection"], Cell[1777047, 59298, 68, 0, 32, "Text"], Cell[1777118, 59300, 154, 7, 42, "Subsubsection"] }, Open ]], Cell[1777287, 59310, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1777342, 59314, 144, 4, 45, "Subsection"], Cell[1777489, 59320, 420, 11, 32, "Text"], Cell[CellGroupData[{ Cell[1777934, 59335, 180, 5, 27, "Input"], Cell[1778117, 59342, 551, 18, 47, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1778717, 59366, 149, 4, 45, "Subsection"], Cell[CellGroupData[{ Cell[1778891, 59374, 320, 9, 27, "Input"], Cell[1779214, 59385, 2795, 79, 48, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1782058, 59470, 144, 4, 45, "Subsection"], Cell[CellGroupData[{ Cell[1782227, 59478, 275, 8, 27, "Input"], Cell[1782505, 59488, 3348, 96, 61, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1785902, 59590, 149, 4, 45, "Subsection"], Cell[CellGroupData[{ Cell[1786076, 59598, 415, 12, 27, "Input"], Cell[1786494, 59612, 32835, 789, 631, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1819378, 60407, 159, 4, 45, "Subsection"], Cell[1819540, 60413, 478, 13, 27, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[1820055, 60431, 167, 4, 45, "Subsection"], Cell[1820225, 60437, 567, 15, 27, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[1820829, 60457, 144, 4, 45, "Subsection"], Cell[CellGroupData[{ Cell[1820998, 60465, 317, 9, 27, "Input"], Cell[1821318, 60476, 21638, 533, 289, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1843005, 61015, 149, 4, 45, "Subsection"], Cell[1843157, 61021, 401, 11, 27, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[1843595, 61037, 159, 4, 45, "Subsection"], Cell[1843757, 61043, 488, 13, 27, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[1844282, 61061, 167, 4, 45, "Subsection"], Cell[1844452, 61067, 594, 16, 27, "Input"], Cell[CellGroupData[{ Cell[1845071, 61087, 217, 5, 27, "Input"], Cell[1845291, 61094, 131, 4, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1845483, 61105, 41, 1, 54, "Section", CellTags->"TID"], Cell[CellGroupData[{ Cell[1845549, 61110, 33, 0, 45, "Subsection"], Cell[1845585, 61112, 62, 0, 32, "Text"], Cell[CellGroupData[{ Cell[1845672, 61116, 65, 1, 27, "Input"], Cell[1845740, 61119, 680, 13, 82, "Output"] }, Open ]], Cell[1846435, 61135, 304, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1846776, 61153, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1846831, 61157, 389, 10, 27, "Input"], Cell[1847223, 61169, 621, 20, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1847881, 61194, 155, 4, 27, "Input"], Cell[1848039, 61200, 12670, 311, 209, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1860746, 61516, 263, 7, 27, "Input"], Cell[1861012, 61525, 439, 15, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1861488, 61545, 86, 2, 27, "Input"], Cell[1861577, 61549, 1455, 45, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1863069, 61599, 163, 4, 27, "Input"], Cell[1863235, 61605, 523, 17, 48, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1863819, 61629, 63, 1, 54, "Section", CellTags->"ToDistribution"], Cell[CellGroupData[{ Cell[1863907, 61634, 33, 0, 45, "Subsection"], Cell[1863943, 61636, 397, 8, 104, "Text"], Cell[CellGroupData[{ Cell[1864365, 61648, 76, 1, 27, "Input"], Cell[1864444, 61651, 150, 4, 28, "Output"] }, Open ]], Cell[1864609, 61658, 200, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1864846, 61671, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1864901, 61675, 178, 4, 43, "Input"], Cell[1865082, 61681, 158, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1865277, 61690, 263, 8, 27, "Input"], Cell[1865543, 61700, 1614, 46, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1867194, 61751, 163, 3, 27, "Input"], Cell[1867360, 61756, 150, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1867547, 61765, 263, 8, 27, "Input"], Cell[1867813, 61775, 1628, 48, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1869478, 61828, 483, 12, 69, "Input"], Cell[1869964, 61842, 378, 11, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1870379, 61858, 66, 1, 27, "Input"], Cell[1870448, 61861, 323, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1870808, 61874, 433, 12, 27, "Input"], Cell[1871244, 61888, 378, 11, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1871683, 61906, 67, 1, 54, "Section", CellTags->"ToHypergeometric"], Cell[CellGroupData[{ Cell[1871775, 61911, 33, 0, 45, "Subsection"], Cell[1871811, 61913, 1013, 30, 68, "Text"], Cell[1872827, 61945, 486, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1873350, 61968, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1873405, 61972, 411, 12, 27, "Input"], Cell[1873819, 61986, 1121, 30, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1874977, 62021, 623, 17, 27, "Input"], Cell[1875603, 62040, 897, 24, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1876537, 62069, 411, 12, 27, "Input"], Cell[1876951, 62083, 1202, 32, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1878190, 62120, 623, 17, 27, "Input"], Cell[1878816, 62139, 1004, 27, 50, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1879881, 62173, 49, 1, 54, "Section", CellTags->"ToLarin"], Cell[CellGroupData[{ Cell[1879955, 62178, 33, 0, 45, "Subsection"], Cell[1879991, 62180, 670, 19, 32, "Text"], Cell[1880664, 62201, 161, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1880862, 62214, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1880917, 62218, 196, 4, 27, "Input"], Cell[1881116, 62224, 215, 5, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1881368, 62234, 63, 1, 27, "Input"], Cell[1881434, 62237, 966, 28, 43, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1882461, 62272, 45, 1, 54, "Section", CellTags->"ToTFi"], Cell[CellGroupData[{ Cell[1882531, 62277, 33, 0, 45, "Subsection"], Cell[1882567, 62279, 256, 5, 68, "Text"], Cell[1882826, 62286, 271, 12, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1883134, 62303, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1883189, 62307, 333, 9, 27, "Input"], Cell[1883525, 62318, 2587, 63, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1886149, 62386, 110, 2, 27, "Input"], Cell[1886262, 62390, 1084, 33, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1887383, 62428, 61, 1, 27, "Input"], Cell[1887447, 62431, 77, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1887561, 62436, 503, 13, 27, "Input"], Cell[1888067, 62451, 1319, 38, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1889423, 62494, 61, 1, 27, "Input"], Cell[1889487, 62497, 1127, 34, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1890651, 62536, 61, 1, 27, "Input"], Cell[1890715, 62539, 104, 3, 55, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1890880, 62549, 65, 1, 54, "Section", CellTags->"TrickMandelstam"], Cell[CellGroupData[{ Cell[1890970, 62554, 33, 0, 45, "Subsection"], Cell[1891006, 62556, 1081, 36, 86, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1892124, 62597, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1892179, 62601, 583, 16, 48, "Input"], Cell[1892765, 62619, 225, 7, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1893027, 62631, 640, 16, 43, "Input"], Cell[1893670, 62649, 223, 7, 29, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1893954, 62663, 45, 1, 54, "Section", CellTags->"Trick"], Cell[CellGroupData[{ Cell[1894024, 62668, 33, 0, 45, "Subsection"], Cell[1894060, 62670, 154, 4, 50, "Text"], Cell[1894217, 62676, 661, 28, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1894915, 62709, 39, 0, 45, "Subsection"], Cell[1894957, 62711, 344, 12, 32, "Text"], Cell[CellGroupData[{ Cell[1895326, 62727, 357, 9, 27, "Input"], Cell[1895686, 62738, 165, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1895888, 62748, 326, 9, 27, "Input"], Cell[1896217, 62759, 548, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1896802, 62780, 61, 1, 27, "Input"], Cell[1896866, 62783, 643, 21, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1897546, 62809, 198, 4, 27, "Input"], Cell[1897747, 62815, 251, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1898035, 62827, 91, 2, 27, "Input"], Cell[1898129, 62831, 37, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1898227, 62838, 39, 1, 54, "Section", CellTags->"Tr"], Cell[CellGroupData[{ Cell[1898291, 62843, 33, 0, 45, "Subsection"], Cell[1898327, 62845, 246, 5, 68, "Text"], Cell[CellGroupData[{ Cell[1898598, 62854, 64, 1, 27, "Input"], Cell[1898665, 62857, 692, 15, 64, "Output"] }, Open ]], Cell[1899372, 62875, 435, 18, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1899844, 62898, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1899899, 62902, 93, 2, 27, "Input"], Cell[1899995, 62906, 168, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1900200, 62915, 58, 1, 27, "Input"], Cell[1900261, 62918, 150, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1900448, 62927, 385, 10, 27, "Input"], Cell[1900836, 62939, 2195, 64, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1903068, 63008, 188, 5, 27, "Input"], Cell[1903259, 63015, 683, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1903979, 63041, 220, 5, 27, "Input"], Cell[1904202, 63048, 16284, 440, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1920523, 63493, 31, 0, 27, "Input"], Cell[1920557, 63495, 62, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1920656, 63501, 51, 1, 27, "Input"], Cell[1920710, 63504, 334, 5, 78, "Print"] }, Open ]], Cell[1921059, 63512, 149, 3, 50, "Text"], Cell[CellGroupData[{ Cell[1921233, 63519, 60, 1, 27, "Input"], Cell[1921296, 63522, 63, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1921396, 63528, 443, 11, 27, "Input"], Cell[1921842, 63541, 8103, 216, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1929982, 63762, 140, 3, 27, "Input"], Cell[1930125, 63767, 1290, 38, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1931452, 63810, 472, 12, 27, "Input"], Cell[1931927, 63824, 377, 11, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1932341, 63840, 204, 5, 27, "Input"], Cell[1932548, 63847, 155, 4, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1932740, 63856, 61, 1, 27, "Input"], Cell[1932804, 63859, 51, 0, 40, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1932916, 63866, 73, 1, 54, "Section", CellTags->"Twist2GluonOperator"], Cell[CellGroupData[{ Cell[1933014, 63871, 33, 0, 45, "Subsection"], Cell[1933050, 63873, 924, 16, 266, "Text"], Cell[1933977, 63891, 209, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[1934223, 63904, 62, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1934310, 63908, 306, 6, 43, "Input"], Cell[1934619, 63916, 437, 10, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1935093, 63931, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[1935155, 63935, 240, 6, 27, "Input"], Cell[1935398, 63943, 1110, 33, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1936545, 63981, 290, 7, 27, "Input"], Cell[1936838, 63990, 1405, 43, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1938280, 64038, 178, 4, 27, "Input"], Cell[1938461, 64044, 341, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1938839, 64059, 228, 5, 27, "Input"], Cell[1939070, 64066, 852, 26, 29, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1939971, 64098, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[1940033, 64102, 335, 8, 27, "Input"], Cell[1940371, 64112, 1556, 46, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1941964, 64163, 305, 8, 27, "Input"], Cell[1942272, 64173, 540, 16, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1942849, 64194, 355, 9, 27, "Input"], Cell[1943207, 64205, 15675, 406, 188, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1958931, 64617, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[1958993, 64621, 422, 10, 27, "Input"], Cell[1959418, 64633, 7175, 183, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1966630, 64821, 382, 10, 27, "Input"], Cell[1967015, 64833, 684, 20, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1967736, 64858, 432, 11, 43, "Input"], Cell[1968171, 64871, 34188, 865, 513, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2002420, 65743, 63, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2002508, 65747, 286, 6, 43, "Input"], Cell[2002797, 65755, 437, 10, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2003271, 65770, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[2003333, 65774, 240, 6, 27, "Input"], Cell[2003576, 65782, 1125, 34, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2004738, 65821, 290, 7, 27, "Input"], Cell[2005031, 65830, 3929, 108, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2008997, 65943, 178, 4, 27, "Input"], Cell[2009178, 65949, 341, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2009556, 65964, 228, 5, 27, "Input"], Cell[2009787, 65971, 3361, 90, 29, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2013197, 66067, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[2013259, 66071, 335, 8, 27, "Input"], Cell[2013597, 66081, 1641, 48, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2015275, 66134, 305, 8, 27, "Input"], Cell[2015583, 66144, 540, 16, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2016160, 66165, 355, 9, 27, "Input"], Cell[2016518, 66176, 25780, 653, 260, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2042347, 66835, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[2042409, 66839, 422, 10, 27, "Input"], Cell[2042834, 66851, 7190, 184, 66, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2050061, 67040, 382, 10, 27, "Input"], Cell[2050446, 67052, 684, 20, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2051167, 67077, 432, 11, 43, "Input"], Cell[2051602, 67090, 49104, 1265, 581, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2100767, 68362, 39, 0, 45, "Subsection"], Cell[2100809, 68364, 64, 0, 32, "Text"], Cell[2100876, 68366, 249, 5, 43, "Input"], Cell[2101128, 68373, 374, 10, 27, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2101539, 68388, 65, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2101629, 68392, 231, 4, 43, "Input"], Cell[2101863, 68398, 436, 10, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2102336, 68413, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[2102398, 68417, 300, 8, 27, "Input"], Cell[2102701, 68427, 5061, 126, 63, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2107811, 68559, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[2107873, 68563, 335, 8, 27, "Input"], Cell[2108211, 68573, 82521, 1724, 1471, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2190781, 70303, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[2190843, 70307, 479, 11, 43, "Input"], Cell[2191325, 70320, 7175, 183, 51, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2198561, 70510, 67, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2198653, 70514, 231, 4, 43, "Input"], Cell[2198887, 70520, 436, 10, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2199360, 70535, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[2199422, 70539, 300, 8, 27, "Input"], Cell[2199725, 70549, 4379, 120, 63, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2204153, 70675, 37, 0, 42, "Subsubsection"], Cell[2204193, 70677, 374, 10, 27, "Input"], Cell[CellGroupData[{ Cell[2204592, 70691, 305, 8, 27, "Input"], Cell[2204900, 70701, 4380, 120, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2209317, 70826, 355, 9, 27, "Input"], Cell[2209675, 70837, 4380, 120, 64, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2214104, 70963, 37, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[2214166, 70967, 479, 11, 43, "Input"], Cell[2214648, 70980, 7190, 184, 66, "Output"] }, Open ]], Cell[2221853, 71167, 44, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2221922, 71171, 540, 14, 59, "Input"], Cell[2222465, 71187, 11792, 291, 169, "Output"] }, Open ]], Cell[2234272, 71481, 63, 0, 32, "Text"], Cell[2234338, 71483, 249, 5, 43, "Input"], Cell[CellGroupData[{ Cell[2234612, 71492, 437, 11, 27, "Input"], Cell[2235052, 71505, 12145, 288, 180, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2247270, 71801, 73, 1, 54, "Section", CellTags->"Twist2QuarkOperator"], Cell[CellGroupData[{ Cell[2247368, 71806, 33, 0, 45, "Subsection"], Cell[2247404, 71808, 953, 20, 320, "Text"], Cell[2248360, 71830, 209, 8, 42, "Subsubsection"] }, Open ]], Cell[2248584, 71841, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2248639, 71845, 61, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2248725, 71849, 228, 5, 43, "Input"], Cell[2248956, 71856, 436, 10, 46, "Output"] }, Open ]], Cell[2249407, 71869, 41, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2249473, 71873, 103, 2, 27, "Input"], Cell[2249579, 71877, 686, 19, 29, "Output"] }, Open ]], Cell[2250280, 71899, 47, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2250352, 71903, 282, 7, 27, "Input"], Cell[2250637, 71912, 1975, 53, 53, "Output"] }, Open ]], Cell[2252627, 71968, 53, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2252705, 71972, 370, 9, 27, "Input"], Cell[2253078, 71983, 7262, 162, 135, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2260389, 72151, 63, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2260477, 72155, 220, 4, 43, "Input"], Cell[2260700, 72161, 436, 10, 46, "Output"] }, Open ]], Cell[2261151, 72174, 41, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2261217, 72178, 103, 2, 27, "Input"], Cell[2261323, 72182, 525, 15, 29, "Output"] }, Open ]], Cell[2261863, 72200, 47, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2261935, 72204, 282, 7, 27, "Input"], Cell[2262220, 72213, 1898, 51, 53, "Output"] }, Open ]], Cell[2264133, 72267, 53, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2264211, 72271, 370, 9, 27, "Input"], Cell[2264584, 72282, 7117, 159, 132, "Output"] }, Open ]], Cell[2271716, 72444, 59, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2271800, 72448, 150, 4, 27, "Input"], Cell[2271953, 72454, 50, 0, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2272040, 72459, 354, 8, 43, "Input"], Cell[2272397, 72469, 2545, 70, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2274979, 72544, 438, 10, 43, "Input"], Cell[2275420, 72556, 14429, 298, 213, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2289898, 72860, 65, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2289988, 72864, 229, 5, 43, "Input"], Cell[2290220, 72871, 437, 10, 46, "Output"] }, Open ]], Cell[2290672, 72884, 148, 2, 50, "Text"], Cell[2290823, 72888, 243, 5, 68, "Text"], Cell[CellGroupData[{ Cell[2291091, 72897, 163, 4, 27, "Input"], Cell[2291257, 72903, 946, 26, 29, "Output"] }, Open ]], Cell[2292218, 72932, 66, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2292309, 72936, 282, 7, 27, "Input"], Cell[2292594, 72945, 3068, 75, 53, "Output"] }, Open ]], Cell[2295677, 73023, 53, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2295755, 73027, 35, 0, 27, "Input"], Cell[2295793, 73029, 231, 3, 85, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2296073, 73038, 67, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2296165, 73042, 229, 5, 43, "Input"], Cell[2296397, 73049, 437, 10, 46, "Output"] }, Open ]], Cell[2296849, 73062, 41, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2296915, 73066, 163, 4, 27, "Input"], Cell[2297081, 73072, 946, 26, 29, "Output"] }, Open ]], Cell[2298042, 73101, 47, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2298114, 73105, 282, 7, 27, "Input"], Cell[2298399, 73114, 3068, 75, 53, "Output"] }, Open ]], Cell[2301482, 73192, 154, 4, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2301685, 73202, 55, 1, 54, "Section", CellTags->"Uncontract"], Cell[CellGroupData[{ Cell[2301765, 73207, 33, 0, 45, "Subsection"], Cell[2301801, 73209, 223, 4, 68, "Text"], Cell[CellGroupData[{ Cell[2302049, 73217, 72, 1, 27, "Input"], Cell[2302124, 73220, 356, 9, 28, "Output"] }, Open ]], Cell[2302495, 73232, 176, 8, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[2302708, 73245, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2302763, 73249, 206, 5, 27, "Input"], Cell[2302972, 73256, 452, 15, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2303461, 73276, 99, 2, 27, "Input"], Cell[2303563, 73280, 849, 27, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2304449, 73312, 94, 2, 27, "Input"], Cell[2304546, 73316, 206, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2304789, 73327, 99, 2, 27, "Input"], Cell[2304891, 73331, 453, 14, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2305381, 73350, 109, 2, 27, "Input"], Cell[2305493, 73354, 1201, 38, 30, "Output"] }, Open ]], Cell[2306709, 73395, 64, 0, 32, "Text"], Cell[CellGroupData[{ Cell[2306798, 73399, 175, 4, 27, "Input"], Cell[2306976, 73405, 191, 6, 28, "Output"] }, Open ]], Cell[2307182, 73414, 131, 2, 32, "Text"], Cell[CellGroupData[{ Cell[2307338, 73420, 220, 5, 27, "Input"], Cell[2307561, 73427, 554, 18, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2308152, 73450, 253, 6, 27, "Input"], Cell[2308408, 73458, 1042, 34, 30, "Output"] }, Open ]], Cell[2309465, 73495, 90, 2, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2309604, 73503, 81, 1, 54, "Section", CellTags->"UnDeclareNonCommutative"], Cell[CellGroupData[{ Cell[2309710, 73508, 33, 0, 45, "Subsection"], Cell[2309746, 73510, 164, 4, 50, "Text"], Cell[2309913, 73516, 334, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[2310284, 73534, 30, 0, 45, "Subsection"], Cell[2310317, 73536, 77, 1, 27, "Input"], Cell[2310397, 73539, 115, 3, 50, "Text"], Cell[CellGroupData[{ Cell[2310537, 73546, 43, 0, 27, "Input"], Cell[2310583, 73548, 62, 1, 28, "Output"] }, Open ]], Cell[2310660, 73552, 65, 0, 32, "Text"], Cell[2310728, 73554, 79, 1, 27, "Input"], Cell[CellGroupData[{ Cell[2310832, 73559, 104, 2, 27, "Input"], Cell[2310939, 73563, 63, 1, 28, "Output"] }, Open ]], Cell[2311017, 73567, 104, 2, 27, "Input"], Cell[CellGroupData[{ Cell[2311146, 73573, 114, 2, 27, "Input"], Cell[2311263, 73577, 121, 3, 28, "Output"] }, Open ]], Cell[2311399, 73583, 106, 2, 27, "Input"], Cell[CellGroupData[{ Cell[2311530, 73589, 114, 2, 27, "Input"], Cell[2311647, 73593, 123, 3, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2311831, 73603, 47, 1, 54, "Section", CellTags->"Write2"], Cell[CellGroupData[{ Cell[2311903, 73608, 33, 0, 45, "Subsection"], Cell[2311939, 73610, 276, 5, 68, "Text"], Cell[CellGroupData[{ Cell[2312240, 73619, 68, 1, 27, "Input"], Cell[2312311, 73622, 587, 12, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2312935, 73639, 71, 1, 27, "Input"], Cell[2313009, 73642, 137, 4, 28, "Output"] }, Open ]], Cell[2313161, 73649, 298, 13, 42, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[2313496, 73667, 30, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[2313551, 73671, 254, 7, 27, "Input"], Cell[2313808, 73680, 507, 15, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2314352, 73700, 159, 4, 27, "Input"], Cell[2314514, 73706, 88, 1, 28, "Output"] }, Open ]], Cell[2314617, 73710, 155, 4, 27, "Input"], Cell[CellGroupData[{ Cell[2314797, 73718, 376, 9, 59, "Input"], Cell[2315176, 73729, 392, 10, 41, "Output"] }, Open ]], Cell[2315583, 73742, 278, 7, 43, "Input"], Cell[CellGroupData[{ Cell[2315886, 73753, 153, 4, 27, "Input"], Cell[2316042, 73759, 643, 19, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2316722, 73783, 58, 1, 27, "Input"], Cell[2316783, 73786, 346, 11, 29, "Output"] }, Open ]], Cell[2317144, 73800, 158, 4, 27, "Input"], Cell[CellGroupData[{ Cell[2317327, 73808, 376, 9, 59, "Input"], Cell[2317706, 73819, 671, 17, 111, "Output"] }, Open ]], Cell[2318392, 73839, 278, 7, 43, "Input"], Cell[2318673, 73848, 222, 6, 27, "Input"], Cell[CellGroupData[{ Cell[2318920, 73858, 376, 9, 59, "Input"], Cell[2319299, 73869, 515, 14, 57, "Output"] }, Open ]], Cell[2319829, 73886, 278, 7, 43, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2320156, 73899, 99, 1, 54, "Section", CellTags->"Evaluation time and memory usage"], Cell[CellGroupData[{ Cell[2320280, 73904, 106, 2, 27, "Input"], Cell[2320389, 73908, 68, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2320494, 73914, 62, 1, 27, "Input"], Cell[2320559, 73917, 66, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2320662, 73923, 64, 1, 27, "Input"], Cell[2320729, 73926, 66, 1, 28, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)