(*********************************************************************** 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[ 31826, 1002]*) (*NotebookOutlinePosition[ 32514, 1027]*) (* CellTagsIndexPosition[ 32470, 1023]*) (*WindowFrame->Normal*) Notebook[{ Cell["\<\ Off[General::spell]; Off[General::spell1];\ \>", "Input", PageBreakAbove->False, ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["\<\ ================================ Load FeynCalc:\ \>", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ \(<< HighEnergyPhysics`fc`\)], "Input"], Cell[TextData[{ StyleBox["FeynCalc", FontWeight->"Bold"], " ", "4.1.0.3b", " ", " Evaluate ?FeynCalc for help or visit ", ButtonBox["www.feyncalc.org", ButtonData:>{ URL[ "http://www.feyncalc.org"], None}, ButtonStyle->"Hyperlink", ButtonNote->"http://www.feyncalc.org"] }], "Text", GeneratedCell->True, CellAutoOverwrite->True], Cell[CellGroupData[{ Cell[BoxData[ \(\(?FeynCalc\)\)], "Input"], Cell[BoxData[ \(TraditionalForm\`"For installation notes visit www.feyncalc.org\n For a \ list of availabe objects type: $FeynCalcStuff, which contains a list of \ all functions and options in StringForm. You can get on-line information by \ ?function, e.g., ?Contract.\n There are several useful functions for short \ input, type $FCS for a list of short commands. Then type, e.g., ?GA.\n \n To \ get rid of the start-up messages put the line \n $FeynCalcStartupMessages = \ False; \n into your init.m or the HighEnergyPhysics/FeynCalcConfig.m \ file."\)], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ ================================ Check with Halzen\ \>", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["{p1s,p2s,p3s,p4s}=Map[DiracSlash,{p1,p2,p3,p4}]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p1", "TraditionalForm"]}], ",", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p2", "TraditionalForm"]}], ",", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p3", "TraditionalForm"]}], ",", RowBox[{ FormBox["\<\"\[Gamma]\"\>", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p4", "TraditionalForm"]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ {gm,gn,gm1,gm2}=Map[DiracMatrix,{\[Mu],\[Nu],\[Rho],\[Sigma]}]\ \>",\ "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], ",", SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], ",", SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], ",", SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Tr[ gm.p1s.gn.p2s ]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p2", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p1", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox[ FormBox["p1", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p2", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{\(g\^\(\[Mu]\[NoBreak]\[Nu]\)\), " ", RowBox[{ FormBox["p1", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p2", "TraditionalForm"]}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 4 Tr[ gm.DiracGamma[7].p1s.gn.DiracGamma[7].p2s ] - 2Tr[ \ gm.p1s.gn.p2s ] //Expand\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{"8", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["p1", "TraditionalForm"], "\[NoBreak]", FormBox["p2", "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Contract[ Tr[ gm.p1s.gn.p2s ] Tr[ gm.p3s.gn.p4s ] ]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"32", " ", RowBox[{ FormBox["p1", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p4", "TraditionalForm"]}], " ", RowBox[{ FormBox["p2", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p3", "TraditionalForm"]}]}], "+", RowBox[{"32", " ", RowBox[{ FormBox["p1", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p3", "TraditionalForm"]}], " ", RowBox[{ FormBox["p2", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p4", "TraditionalForm"]}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Contract[ Tr[ gm.p1s.gn.DiracGamma[5].p2s ] Tr[ \ gm.p3s.gn.DiracGamma[5].p4s ] , EpsContract->True] //Simplify\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["p1", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p3", "TraditionalForm"]}], " ", RowBox[{ FormBox["p2", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p4", "TraditionalForm"]}]}], "-", RowBox[{ RowBox[{ FormBox["p1", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p4", "TraditionalForm"]}], " ", RowBox[{ FormBox["p2", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p3", "TraditionalForm"]}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Contract[ 4 Tr[ gm.DiracGamma[7].p1s.gn.DiracGamma[7].p2s ] * 4 Tr[ gm.DiracGamma[7].p3s.gn.DiracGamma[7].p4s ] ] //Contract\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{"256", " ", RowBox[{ FormBox["p1", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p3", "TraditionalForm"]}], " ", RowBox[{ FormBox["p2", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p4", "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Tr[ Spinor[p,m].Spinor[p,m] ] //DiracSimplify", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{ RowBox[{"\[CurlyPhi]", "\[NoBreak]", "(", "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", ",", "\[NoBreak]", "m", "\[NoBreak]", ")"}], ".", RowBox[{"\[CurlyPhi]", "\[NoBreak]", "(", "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", ",", "\[NoBreak]", "m", "\[NoBreak]", ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Tr[ DiracGamma[5].gm.gn.gm1.gm2 ]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{\(-4\), " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Tr[DiracMatrix[a1,a2,a3,a4,5]]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{\(-4\), " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Tr[DiracMatrix[a1,a2,a3,a4,a5,a6,5]]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{\(-\[ImaginaryI]\), " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a5", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a6", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a1\[NoBreak]a2\)\)}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a5", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a6", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a1\[NoBreak]a3\)\)}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a5", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a6", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a1\[NoBreak]a4\)\)}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a6", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a1\[NoBreak]a5\)\)}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a5", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a1\[NoBreak]a6\)\)}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a5", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a6", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a2\[NoBreak]a3\)\)}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a5", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a6", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a2\[NoBreak]a4\)\)}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a6", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a2\[NoBreak]a5\)\)}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a5", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a2\[NoBreak]a6\)\)}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a5", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a6", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a3\[NoBreak]a4\)\)}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a6", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a3\[NoBreak]a5\)\)}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a5", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a3\[NoBreak]a6\)\)}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a6", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a4\[NoBreak]a5\)\)}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a5", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a4\[NoBreak]a6\)\)}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["a1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["a4", "TraditionalForm"], "TraditionalForm"]}]], " ", \(g\^\(a5\[NoBreak]a6\)\)}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ (tmp= Tr[DiracMatrix[a1,a2,a3,a4,a5,a6,a7,a8,5]]) //Timing \ //First\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ \(TraditionalForm\`6.770000000000001`\ Second\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["tmp //Last //Length", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ \(TraditionalForm\`28\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ ================================ Do Traces from Ch6 Halzen\ \>", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["\<\ temp1= Tr[ (DiracSlash[kp]+m) .DiracMatrix[mu] .(DiracSlash[k ]+m) .DiracMatrix[nu] ]\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{\(g\^\(mu\[NoBreak]nu\)\ m\^2\), "+", RowBox[{ SuperscriptBox[ FormBox["kp", "TraditionalForm"], FormBox[ FormBox["mu", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["nu", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox[ FormBox["k", "TraditionalForm"], FormBox[ FormBox["mu", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["kp", "TraditionalForm"], FormBox[ FormBox["nu", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{\(g\^\(mu\[NoBreak]nu\)\), " ", RowBox[{ FormBox["k", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["kp", "TraditionalForm"]}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ temp2= Tr[ (DiracSlash[pp]+m) .DiracMatrix[mu] .(DiracSlash[p ]+m) .DiracMatrix[nu] ]\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{"(", RowBox[{\(g\^\(mu\[NoBreak]nu\)\ m\^2\), "+", RowBox[{ SuperscriptBox[ FormBox["pp", "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["pp", "TraditionalForm"], FormBox[ FormBox["nu", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{\(g\^\(mu\[NoBreak]nu\)\), " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["pp", "TraditionalForm"]}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["temp3= temp1 temp2 //Contract", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ RowBox[{\(64\ m\^4\), "-", RowBox[{"32", " ", RowBox[{ FormBox["k", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["kp", "TraditionalForm"]}], " ", \(m\^2\)}], "-", RowBox[{"32", " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["pp", "TraditionalForm"]}], " ", \(m\^2\)}], "+", RowBox[{"32", " ", RowBox[{ FormBox["k", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["pp", "TraditionalForm"]}], " ", RowBox[{ FormBox["kp", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{"32", " ", RowBox[{ FormBox["k", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], " ", RowBox[{ FormBox["kp", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["pp", "TraditionalForm"]}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ ================================ Examine Mandelstam Variables\ \>", "Subsection", ImageRegion->{{0, 1}, {0, 1}}], Cell["SetMandelstam[s,t,u,p,k,-pp,-kp,m,m,m,m];", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["\<\ ( {ScalarProduct[p+k,p+k] ,ScalarProduct[p-pp,p-pp] ,ScalarProduct[p-kp,p-kp]} //ExpandScalarProduct //Simplify )\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ \(TraditionalForm\`{s, t, u}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["temp3 //Simplify", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ \(TraditionalForm\`8\ \((8\ m\^4 - 4\ \((s - t + u)\)\ m\^2 + s\^2 + u\^2)\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["temp4= temp3 /.{m->0} //Simplify", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ \(TraditionalForm\`8\ \((s\^2 + u\^2)\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["denom= (ScalarProduct[k-kp,k-kp])^2 //ExpandScalarProduct ", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ \(TraditionalForm\`t\^2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["result= temp4/denom e^4/4 ", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ \(TraditionalForm\`\(2\ e\^4\ \((s\^2 + u\^2)\)\)\/t\^2\)], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.0 for X", ScreenRectangle->{{0, 1280}, {0, 1024}}, WindowToolbars->"EditBar", WindowSize->{857, 917}, WindowMargins->{{Automatic, 112}, {-522, Automatic}}, Magnification->2 ] (*********************************************************************** 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->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1717, 49, 125, 5, 51, "Input", PageBreakAbove->False], Cell[CellGroupData[{ Cell[1867, 58, 107, 4, 113, "Section"], Cell[1977, 64, 57, 1, 38, "Input"], Cell[2037, 67, 369, 14, 47, "Text"], Cell[CellGroupData[{ Cell[2431, 85, 46, 1, 37, "Input"], Cell[2480, 88, 575, 8, 162, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3104, 102, 110, 4, 113, "Section"], Cell[CellGroupData[{ Cell[3239, 110, 97, 1, 35, "Input"], Cell[3339, 113, 971, 27, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4347, 145, 122, 4, 35, "Input"], Cell[4472, 151, 767, 23, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5276, 179, 69, 1, 35, "Input"], Cell[5348, 182, 1445, 42, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6830, 229, 141, 4, 35, "Input"], Cell[6974, 235, 573, 16, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7584, 256, 101, 1, 35, "Input"], Cell[7688, 259, 946, 28, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8671, 292, 173, 5, 51, "Input"], Cell[8847, 299, 1096, 31, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9980, 335, 195, 5, 67, "Input"], Cell[10178, 342, 442, 12, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10657, 359, 95, 1, 35, "Input"], Cell[10755, 362, 503, 11, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11295, 378, 83, 1, 35, "Input"], Cell[11381, 381, 704, 20, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12122, 406, 80, 1, 35, "Input"], Cell[12205, 409, 688, 20, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12930, 434, 86, 1, 35, "Input"], Cell[13019, 437, 11902, 304, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24958, 746, 126, 4, 35, "Input"], Cell[25087, 752, 77, 1, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25201, 758, 69, 1, 35, "Input"], Cell[25273, 761, 53, 1, 40, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25375, 768, 118, 4, 113, "Section"], Cell[CellGroupData[{ Cell[25518, 776, 181, 7, 98, "Input"], Cell[25702, 785, 1462, 42, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27201, 832, 181, 7, 98, "Input"], Cell[27385, 841, 1462, 42, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28884, 888, 79, 1, 35, "Input"], Cell[28966, 891, 1459, 42, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30462, 938, 124, 4, 104, "Subsection"], Cell[30589, 944, 91, 1, 35, "Input"], Cell[CellGroupData[{ Cell[30705, 949, 193, 8, 114, "Input"], Cell[30901, 959, 60, 1, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30998, 965, 66, 1, 35, "Input"], Cell[31067, 968, 119, 2, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31223, 975, 82, 1, 35, "Input"], Cell[31308, 978, 71, 1, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31416, 984, 108, 1, 35, "Input"], Cell[31527, 987, 55, 1, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31619, 993, 77, 1, 35, "Input"], Cell[31699, 996, 87, 1, 65, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)