(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 48873, 1210]*) (*NotebookOutlinePosition[ 49674, 1240]*) (* CellTagsIndexPosition[ 49597, 1234]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Amplitudes", "Subsection", CellTags->"Amplitudes"], Cell[CellGroupData[{ Cell["Description", "Subsubsection"], Cell["\<\ Amplitudes[name] is a database of Feynman amplitudes. Gauge \[Rule] \ 1 means `t Hooft Feynman gauge; Polarization \[Rule] 0 gives unpolarized \ OPE-type amplitudes, Polarization \[Rule] 1 the polarized ones.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Options[Amplitudes]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{Dimension \[Rule] D, Gauge \[Rule] 1, QuarkMass \[Rule] 0, Polarization \[Rule] 1}\)], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["FeynAmp", ButtonData:>"FeynAmp", ButtonStyle->"Hyperlink", ButtonNote->"FeynAmp"], "." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsubsection"], Cell["This is the amplitude of a gluon self-energy diagram.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Amplitudes["\"]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{\(g\_s\%2\), " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox[\(-p\), "TraditionalForm"], "\[NoBreak]", \(\(,\)\(\ \)\), "\[NoBreak]", FormBox[\(p - q\), "TraditionalForm"], "\[NoBreak]", \(\(,\)\(\ \)\), "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", \(\(,\)\(\ \)\), "\[NoBreak]", FormBox[\(q - p\), "TraditionalForm"], "\[NoBreak]", \(\(,\)\(\ \)\), "\[NoBreak]", FormBox[\(-q\), "TraditionalForm"]}], ")"}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", 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"]}]]}], \(\((p - q)\)\^2\ q\^2\)]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Explicit[%]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{\(1\/\(\((p - q)\)\^2\ q\^2\)\), RowBox[{"(", RowBox[{\(g\_s\%2\), " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", 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"], "\[NoBreak]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Beta]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Alpha]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", 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"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"2", " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", 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[ \(FeynAmp[q1, q2, EpsEvaluate[Trick[Explicit[Amplitudes["\"]]]]]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ StyleBox[ RowBox[{\(\[DifferentialD]\^D\), FormBox[ InterpretationBox[\(q\_1\), q1], "TraditionalForm"]}], ZeroWidthTimes->True], "\[Integral]", RowBox[{\(\[DifferentialD]\^D\), FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"]}]}], "(", FormBox[ RowBox[{ RowBox[{"(", RowBox[{"2", " ", "\[ImaginaryI]", " ", \(g\_s\%4\), " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_1\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_5\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_1\), q1], "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_1\), q1], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_1\), q1], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_1\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"2", " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_1\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_1\), "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_1\), "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_1\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_1\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{\(-2\), " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_1\), q1], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_5\), "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox[ FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_5\), "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_5\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_1\), q1], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_5\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_5\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_1\), q1], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_5\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_7\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox[ FormBox[ InterpretationBox[\(q\_1\), q1], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_1\), q1], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{"2", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_1\), q1], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Lambda]\_10\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Lambda]\_11\), "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"], FormBox[ FormBox[\(\[Lambda]\_12\), "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FormBox[\(\((\(-1\))\)\^m\), "TraditionalForm"]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ InterpretationBox[\(q\_2\), q2], "TraditionalForm"]}], ")"}], \(m - 1\)], "TraditionalForm"], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\("c"\_5\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\("c"\_11\), "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\("c"\_7\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\("c"\_10\), "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox[\("c"\_5\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\("c"\_7\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\("c"\_12\), "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox[\("c"\_10\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\("c"\_11\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\("c"\_12\), "TraditionalForm"], "TraditionalForm"]}]]}], ")"}], "/", RowBox[{ SuperscriptBox[ InterpretationBox[\(q\_1\), q1], "2"], ".", SuperscriptBox[ InterpretationBox[\(q\_2\), q2], "2"], ".", SuperscriptBox[ InterpretationBox[\(q\_2\), q2], "2"], ".", SuperscriptBox[ RowBox[{"(", RowBox[{ InterpretationBox[\(q\_2\), q2], "-", "p"}], ")"}], "2"], ".", SuperscriptBox[ RowBox[{"(", RowBox[{ InterpretationBox[\(q\_1\), q1], "-", InterpretationBox[\(q\_2\), q2]}], ")"}], "2"], ".", SuperscriptBox[ RowBox[{"(", RowBox[{ InterpretationBox[\(q\_1\), q1], "-", "p"}], ")"}], "2"]}]}], "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.0 for X", ScreenRectangle->{{0, 1024}, {0, 768}}, WindowSize->{520, 485}, WindowMargins->{{Automatic, 244}, {114, Automatic}}, StyleDefinitions -> "Demo.nb" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{ "Amplitudes"->{ Cell[1739, 51, 58, 1, 40, "Subsection", CellTags->"Amplitudes"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Amplitudes", 49496, 1227} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 58, 1, 40, "Subsection", CellTags->"Amplitudes"], Cell[CellGroupData[{ Cell[1822, 56, 36, 0, 36, "Subsubsection"], Cell[1861, 58, 232, 4, 57, "Text"], Cell[CellGroupData[{ Cell[2118, 66, 52, 1, 31, "Input"], Cell[2173, 69, 141, 2, 47, "Output"] }, Open ]], Cell[2329, 74, 164, 8, 29, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[2530, 87, 33, 0, 36, "Subsubsection"], Cell[2566, 89, 69, 0, 29, "Text"], Cell[CellGroupData[{ Cell[2660, 93, 56, 1, 31, "Input"], Cell[2719, 96, 4455, 121, 68, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7211, 222, 44, 1, 31, "Input"], Cell[7258, 225, 12023, 295, 70, "Output"] }, Open ]], Cell[19296, 523, 195, 7, 70, "Text"], Cell[CellGroupData[{ Cell[19516, 534, 108, 2, 70, "Input"], Cell[19627, 538, 29206, 667, 70, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)