(*********************************************************************** 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[ 67258, 1681]*) (*NotebookOutlinePosition[ 68041, 1711]*) (* CellTagsIndexPosition[ 67970, 1705]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["TIDL", "Subsection", CellTags->"TIDL"], Cell[CellGroupData[{ Cell["Description", "Subsubsection"], Cell[" TIDL is a database of tensorial reduction formalae.", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["TID", ButtonData:>"TID", ButtonStyle->"Hyperlink", ButtonNote->"TID"] }], "Text"] }, Open ]], Cell["Examples", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ \(TraditionalForm\`B\_\[Mu] - type\)]]], "Subsubsection"], Cell[TextData[{ "In any n-dimensional integral ", Cell[BoxData[ \(TraditionalForm\`\(\(\[Integral]d\^n\[NegativeVeryThinSpace]\ \ q\^\[Mu]\ \(f(q, p)\)\ the\ q\^\[Mu]\)\(\ \)\)\)]], "can be replaced by" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(TIDL[{q, \[Mu]}, {p}]\)], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ \(TraditionalForm\`B\_\[Mu]\[Nu] - type\)]]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(TIDL[{{q, \[Mu]}, {q, \[Nu]}}, {p}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}]}], ")"}]}], 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"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}]}], ")"}]}], RowBox[{\((1 - D)\), " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "4"]}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ \(TraditionalForm\`C\_\[Mu] - type\)]]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(TIDL[{q, \[Mu]}, {p\_1, p\_2}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_1\%2\)}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", \(p\_1\%2\ p\_2\%2\)}]], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "-", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", \(p\_2\%2\)}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", \(p\_1\%2\ p\_2\%2\)}]]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ \(TraditionalForm\`C\_\[Mu]\[Nu] - type\)]]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(TIDL[{{q, \[Mu]}, {q, \[Nu]}}, {p\_1, p\_2}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{\(p\_2\%2\), " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{"2", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_1\%2\)}], "-", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", \(p\_1\%2\), " ", \(p\_2\%2\)}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{\((D - 2)\), " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", \(p\_1\%2\ p\_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[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{\(p\_1\%2\), " ", \(p\_2\%2\), " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{"2", " ", "D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_1\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}]}], "+", RowBox[{"2", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_1\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}]}], "+", RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_1\%4\)}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_1\%4\)}], "+", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", \(p\_1\%2\), " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", \(p\_1\%4\), " ", \(p\_2\%2\)}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{\((D - 2)\), " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", \(p\_1\%2\ p\_2\%2\)}], ")"}], "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[{"-", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{"D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_1\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_1\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "-", RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_2\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_2\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", \(p\_1\%2\), " ", \(p\_2\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{"D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_1\%2\), " ", \(p\_2\%2\)}], "-", RowBox[{"2", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_1\%2\), " ", \(p\_2\%2\)}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{\((D - 2)\), " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", \(p\_1\%2\ p\_2\%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[{"-", SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{"D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_1\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_1\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "-", RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_2\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_2\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", \(p\_1\%2\), " ", \(p\_2\%2\), " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{"D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_1\%2\), " ", \(p\_2\%2\)}], "-", RowBox[{"2", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_1\%2\), " ", \(p\_2\%2\)}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{\((D - 2)\), " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", \(p\_1\%2\ p\_2\%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[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{\(p\_1\%2\), " ", \(p\_2\%2\), " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{"2", " ", "D", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_2\%2\), " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{"2", " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_2\%2\), " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{"D", " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_2\%4\)}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_2\%4\)}], "-", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", \(p\_1\%2\), " ", \(p\_2\%4\)}], "+", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], "2"], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_2\%2\)}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{\((D - 2)\), " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], "-", \(p\_1\%2\ p\_2\%2\)}], ")"}], "2"]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ \(TraditionalForm\`C\_\[Mu]\[Nu]\[Rho] - type\)]]], "Subsubsection"], Cell[BoxData[ \(TIDL[{{q, \[Mu]}, {q, \[Nu]}, {q, \[Rho]}}, {p, k}]; \)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ \(TraditionalForm\`C\_\[Mu]\[Nu]\[Rho]\[Sigma] - type\)]]], "Subsubsection"], Cell[BoxData[ \(TIDL[{{q, \[Mu]}, {q, \[Nu]}, {q, \[Rho]}, {q, \[Sigma]}}, {p, k}]; \)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ \(TraditionalForm\`D\_\[Mu] - type\)]]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(TIDL[{q, \[Mu]}, {p\_1, p\_2, p\_3}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["p", FormBox["3", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", \(p\_1\%2\), " ", \(p\_2\%2\)}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", \(p\_2\%2\)}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_1\%2\), " ", RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{\(p\_3\%2\), " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{"2", " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{\(p\_1\%2\), " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_2\%2\)}], "-", \(p\_1\%2\ p\_2\%2\ p\_3\%2\)}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["p", FormBox["2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], ")"}]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}]}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}]}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", \(p\_1\%2\), " ", RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}]}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_1\%2\), " ", \(p\_3\%2\)}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_3\%2\)}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{\(p\_3\%2\), " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{"2", " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{\(p\_1\%2\), " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_2\%2\)}], "-", \(p\_1\%2\ p\_2\%2\ p\_3\%2\)}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["p", FormBox["1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}]}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}]}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", \(p\_2\%2\)}], "+", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], " ", \(p\_3\%2\)}], "-", RowBox[{ RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_1\), "TraditionalForm"]}], " ", \(p\_2\%2\), " ", \(p\_3\%2\)}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{\(p\_3\%2\), " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{"2", " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], " ", RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_2\), "TraditionalForm"]}]}], "+", RowBox[{\(p\_1\%2\), " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_2\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox[\(p\_1\), "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[\(p\_3\), "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", \(p\_2\%2\)}], "-", \(p\_1\%2\ p\_2\%2\ p\_3\%2\)}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ \(TraditionalForm\`D\_\[Mu]\[Nu] - type\)]]], "Subsubsection"], Cell[BoxData[ \(TIDL[{{q, \[Mu]}, {q, \[Nu]}}, {p, k, r}]; \)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ \(TraditionalForm\`D\_\[Mu]\[Nu]\[Rho] - type\)]]], "Subsubsection"], Cell[BoxData[ \(TIDL[{{q, \[Mu]}, {q, \[Nu]}, {q, \[Rho]}}, {p, k, r}]; \)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ \(TraditionalForm\`D\_\[Mu]\[Nu]\[Rho]\[Sigma] - type\)]]], "Subsubsection"], Cell[BoxData[ \(TIDL[{{q, \[Mu]}, {q, \[Nu]}, {q, \[Rho]}, {q, \[Sigma]}}, {p, k, r, s}]; \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \({Length[%], \ LeafCount[%], ByteCount[%]}\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{4, 29, 320}\)], "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->{ "TIDL"->{ Cell[1739, 51, 46, 1, 40, "Subsection", CellTags->"TIDL"]} } *) (*CellTagsIndex CellTagsIndex->{ {"TIDL", 67875, 1698} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 46, 1, 40, "Subsection", CellTags->"TIDL"], Cell[CellGroupData[{ Cell[1810, 56, 36, 0, 36, "Subsubsection"], Cell[1849, 58, 68, 0, 29, "Text"], Cell[1920, 60, 145, 7, 29, "Text"] }, Open ]], Cell[2080, 70, 33, 0, 36, "Subsubsection"], Cell[CellGroupData[{ Cell[2138, 74, 89, 1, 35, "Subsubsection"], Cell[2230, 77, 226, 6, 30, "Text"], Cell[CellGroupData[{ Cell[2481, 87, 54, 1, 31, "Input"], Cell[2538, 90, 592, 19, 67, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3179, 115, 94, 1, 35, "Subsubsection"], Cell[CellGroupData[{ Cell[3298, 120, 68, 1, 31, "Input"], Cell[3369, 123, 2797, 77, 68, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6215, 206, 89, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[6329, 211, 63, 1, 70, "Input"], Cell[6395, 214, 3584, 98, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10028, 318, 94, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[10147, 323, 77, 1, 70, "Input"], Cell[10227, 326, 35128, 804, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45404, 1136, 100, 1, 70, "Subsubsection"], Cell[45507, 1139, 86, 1, 70, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[45630, 1145, 115, 2, 70, "Subsubsection"], Cell[45748, 1149, 110, 2, 70, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[45895, 1156, 89, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[46009, 1161, 69, 1, 70, "Input"], Cell[46081, 1164, 20250, 474, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66380, 1644, 94, 1, 70, "Subsubsection"], Cell[66477, 1647, 76, 1, 70, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[66590, 1653, 100, 1, 70, "Subsubsection"], Cell[66693, 1656, 89, 1, 70, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[66819, 1662, 115, 2, 70, "Subsubsection"], Cell[66937, 1666, 116, 2, 70, "Input"], Cell[CellGroupData[{ Cell[67078, 1672, 74, 1, 70, "Input"], Cell[67155, 1675, 63, 1, 70, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)