(*********************************************************************** 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[ 31281, 895]*) (*NotebookOutlinePosition[ 32081, 925]*) (* CellTagsIndexPosition[ 32005, 919]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["DiracTrick", "Subsection", CellTags->"DiracTrick"], Cell[CellGroupData[{ Cell["Description", "Subsubsection"], Cell["\<\ DiracTrick[exp] contracts gamma matrices with each other and \ performs several simplifications, but no expansion, use Calc or DiracSimplify \ for non-commutative expansion.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Options[DiracTrick]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{Expanding \[Rule] False}\)], "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"], "." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsubsection"], Cell["This is a string of Dirac matrices in four dimensions. ", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(t1 = GA[\[Mu], \[Nu], \[Mu]]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`\[Gamma]\^\[Mu] . \[Gamma]\^\[Nu] . \ \[Gamma]\^\[Mu]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(DiracTrick[t1]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(-2\), " ", SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell["This is a string of Dirac matrices in D dimensions. ", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(t2 = GAD[\[Mu], \[Nu], \[Mu]]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`\[Gamma]\^\[Mu] . \[Gamma]\^\[Nu] . \ \[Gamma]\^\[Mu]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(DiracTrick[t2]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\((2 - D)\), " ", SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(t3 = GA[5, \[Mu], \[Nu]]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`\[Gamma]\^5 . \[Gamma]\^\[Mu] . \[Gamma]\^\[Nu]\)], \ "Output"] }, Open ]], Cell[TextData[{ "By default ", Cell[BoxData[ \(TraditionalForm\`\[Gamma]\^5\)]], "is moved to the right." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(DiracTrick[t3]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], ".", \(\[Gamma]\^5\)}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(t4 = GA[6, \[Mu], 7]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`\[Gamma]\^6 . \[Gamma]\^\[Mu] . \[Gamma]\^7\)], \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(DiracTrick[t4]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], ".", \(\[Gamma]\^7\)}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(t5 = GS[a + b]\ . \ GS[p] . GS[p] . GS[c + d]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ "\[Gamma]", "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[\(a + b\), "TraditionalForm"], "\[NoBreak]", ")"}], ")"}], ".", \((\[Gamma]\[NoBreak]\[CenterDot]\[NoBreak]p)\), ".", \((\[Gamma]\[NoBreak]\[CenterDot]\[NoBreak]p)\), ".", RowBox[{"(", RowBox[{ "\[Gamma]", "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[\(c + d\), "TraditionalForm"], "\[NoBreak]", ")"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(DiracTrick[t5]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[\(a + b\), "TraditionalForm"], "\[NoBreak]", ")"}], ")"}], ".", RowBox[{"(", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[\(c + d\), "TraditionalForm"], "\[NoBreak]", ")"}], ")"}]}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Calc[t5]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["a", "TraditionalForm"]}], ")"}], ".", RowBox[{"(", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["c", "TraditionalForm"]}], ")"}]}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["a", "TraditionalForm"]}], ")"}], ".", RowBox[{"(", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["d", "TraditionalForm"]}], ")"}]}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["b", "TraditionalForm"]}], ")"}], ".", RowBox[{"(", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["c", "TraditionalForm"]}], ")"}]}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["b", "TraditionalForm"]}], ")"}], ".", RowBox[{"(", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["d", "TraditionalForm"]}], ")"}]}], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(GAD @@ Join[{\[Mu]}, Table[\[Nu]\_i, {i, 6}], {\[Mu]}]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`\[Gamma]\^\[Mu] . \[Gamma]\^\[Nu]\_1 . \[Gamma]\^\[Nu]\ \_2 . \[Gamma]\^\[Nu]\_3 . \[Gamma]\^\[Nu]\_4 . \[Gamma]\^\[Nu]\_5 . \[Gamma]\ \^\[Nu]\_6 . \[Gamma]\^\[Mu]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(DiracTrick[%]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{\((D - 12)\), " ", RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_1\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_2\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_3\), "TraditionalForm"], "TraditionalForm"]], ".", SuperscriptBox["\[Gamma]", FormBox[ FormBox[\(\[Nu]\_4\), "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox[\(\[Nu]\_5\), "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox[\(\[Nu]\_6\), "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.0 for X", ScreenRectangle->{{0, 1024}, {0, 768}}, WindowSize->{520, 485}, WindowMargins->{{Automatic, 244}, {114, Automatic}}, StyleDefinitions -> "Demo.nb" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{ "DiracTrick"->{ Cell[1739, 51, 58, 1, 40, "Subsection", CellTags->"DiracTrick"]} } *) (*CellTagsIndex CellTagsIndex->{ {"DiracTrick", 31904, 912} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 58, 1, 40, "Subsection", CellTags->"DiracTrick"], Cell[CellGroupData[{ Cell[1822, 56, 36, 0, 36, "Subsubsection"], Cell[1861, 58, 197, 4, 57, "Text"], Cell[CellGroupData[{ Cell[2083, 66, 52, 1, 31, "Input"], Cell[2138, 69, 76, 1, 47, "Output"] }, Open ]], Cell[2229, 73, 432, 18, 29, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[2698, 96, 33, 0, 36, "Subsubsection"], Cell[2734, 98, 71, 0, 29, "Text"], Cell[CellGroupData[{ Cell[2830, 102, 61, 1, 31, "Input"], Cell[2894, 105, 104, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3035, 112, 47, 1, 31, "Input"], Cell[3085, 115, 236, 7, 47, "Output"] }, Open ]], Cell[3336, 125, 68, 0, 70, "Text"], Cell[CellGroupData[{ Cell[3429, 129, 62, 1, 70, "Input"], Cell[3494, 132, 104, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3635, 139, 47, 1, 70, "Input"], Cell[3685, 142, 241, 7, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3963, 154, 57, 1, 70, "Input"], Cell[4023, 157, 100, 2, 70, "Output"] }, Open ]], Cell[4138, 162, 129, 5, 70, "Text"], Cell[CellGroupData[{ Cell[4292, 171, 47, 1, 70, "Input"], Cell[4342, 174, 409, 13, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4788, 192, 53, 1, 70, "Input"], Cell[4844, 195, 96, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4977, 202, 47, 1, 70, "Input"], Cell[5027, 205, 252, 8, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5316, 218, 79, 1, 70, "Input"], Cell[5398, 221, 677, 17, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6112, 243, 47, 1, 70, "Input"], Cell[6162, 246, 786, 20, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6985, 271, 41, 1, 70, "Input"], Cell[7029, 274, 2814, 78, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9880, 357, 87, 1, 70, "Input"], Cell[9970, 360, 214, 3, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10221, 368, 46, 1, 70, "Input"], Cell[10270, 371, 20971, 519, 70, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)