(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 10233, 330] NotebookOptionsPosition[ 8218, 285] NotebookOutlinePosition[ 8614, 301] CellTagsIndexPosition[ 8571, 298] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Install FeynCalc if needed", "Section", CellChangeTimes->{{3.896869790629909*^9, 3.896869804844966*^9}},ExpressionUUID->"30ba222d-583a-467a-8a23-\ 7016c177f8a9"], Cell[BoxData[{ RowBox[{"Import", "[", "\"\\ \"", "]"}], "\n", RowBox[{ RowBox[{"InstallFeynCalc", "[", "]"}], " "}]}], "Input", CellChangeTimes->{{3.896340947919897*^9, 3.896340947920239*^9}, { 3.896410332697957*^9, 3.896410335840733*^9}, {3.896847473384205*^9, 3.8968474755290318`*^9}, 3.896869808967437*^9},ExpressionUUID->"c0ede82e-b287-43c2-b12a-\ 53553ecc707c"] }, Closed]], Cell[CellGroupData[{ Cell["Load existing FeynCalc installation", "Section", CellChangeTimes->{{3.896869812149295*^9, 3.896869821938278*^9}},ExpressionUUID->"58dd02a8-aa8d-404f-9b92-\ 0dbec4deb98e"], Cell[BoxData[ RowBox[{"<<", "FeynCalc`"}]], "Input", CellChangeTimes->{{3.896410323179743*^9, 3.896410324295774*^9}, { 3.896847477388772*^9, 3.8968474801317244`*^9}, {3.896869765187693*^9, 3.8968697665141077`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"7da4f291-803c-4839-85f8-ecfd517b280d"] }, Closed]], Cell[CellGroupData[{ Cell["Dirac traces in D=4", "Section", CellChangeTimes->{{3.896869830844549*^9, 3.896869833039966*^9}, { 3.896869868411425*^9, 3.896869876365052*^9}, {3.896869913249288*^9, 3.8968699149821873`*^9}},ExpressionUUID->"116cffc2-651b-4f3c-812f-\ 9757a8d5b687"], Cell["Input expression:", "Text", CellChangeTimes->{{3.8968699629137993`*^9, 3.8968699742962103`*^9}},ExpressionUUID->"c8967fe3-1318-4326-9b73-\ 04702ec814fa"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tr4", "=", RowBox[{"DiracTrace", "[", RowBox[{"GA", "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.896341651658894*^9, 3.896341696298151*^9}, { 3.896341769611157*^9, 3.896341806968392*^9}, {3.8963420602681932`*^9, 3.896342060389147*^9}, {3.896413551314233*^9, 3.89641355155149*^9}, { 3.8968699384992657`*^9, 3.896869946698011*^9}, {3.89687000410647*^9, 3.896870004399096*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"09b55805-33a1-4f5d-ba41-1c793dc9dea8"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ FormBox[ SuperscriptBox[ OverscriptBox["\[Gamma]", "_"], FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm]], TraditionalForm], ".", FormBox[ SuperscriptBox[ OverscriptBox["\[Gamma]", "_"], FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm]], TraditionalForm], ".", FormBox[ SuperscriptBox[ OverscriptBox["\[Gamma]", "_"], FormBox[ FormBox["\[Rho]", TraditionalForm], TraditionalForm]], TraditionalForm], ".", FormBox[ SuperscriptBox[ OverscriptBox["\[Gamma]", "_"], FormBox[ FormBox["\[Sigma]", TraditionalForm], TraditionalForm]], TraditionalForm]}], TraditionalForm], ")"}], TraditionalForm]], "Output", CellChangeTimes->{3.896869950740161*^9, 3.896870008212902*^9}, CellLabel->"Out[6]=",ExpressionUUID->"889496b4-cb7f-43ac-b412-b3675cdfa42f"] }, Open ]], Cell["Result of trace calculation:", "Text", CellChangeTimes->{{3.8968699797886667`*^9, 3.896869993134659*^9}},ExpressionUUID->"cb076f96-698c-43e4-b67f-\ 7ea7a04098e8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", "tr4", "]"}]], "Input", CellChangeTimes->{{3.896870006507011*^9, 3.896870006637145*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"adcc46ff-b07e-41f3-9b23-89a5ab250373"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], FormBox[ FormBox["\[Sigma]", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], FormBox[ FormBox["\[Rho]", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"4", " ", SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], FormBox[ FormBox["\[Rho]", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], FormBox[ FormBox["\[Sigma]", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"4", " ", SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox["\[Rho]", TraditionalForm], TraditionalForm], FormBox[ FormBox["\[Sigma]", TraditionalForm], TraditionalForm]}]]}]}], TraditionalForm]], "Output", CellChangeTimes->{3.896869952316699*^9, 3.896870009686123*^9}, CellLabel->"Out[7]=",ExpressionUUID->"4ce8c67f-72b8-476f-874a-8bc0960401d8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Dirac traces in arbitrary D", "Section", CellChangeTimes->{{3.8968698414390163`*^9, 3.896869846189106*^9}, { 3.896869880165291*^9, 3.896869919959756*^9}},ExpressionUUID->"b49a046c-299f-4e6f-ba51-\ da23723c4058"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"trD", "=", RowBox[{"DiracTrace", "[", RowBox[{"GAD", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.896341889273355*^9, 3.896341896931419*^9}, { 3.896342368507585*^9, 3.896342380873416*^9}, {3.8964135443720417`*^9, 3.8964135445665913`*^9}, {3.89686999749152*^9, 3.896870015758119*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"ce33c8ca-c9f4-4f8a-aacf-55c9c3216662"], Cell[BoxData[ FormBox[ RowBox[{"tr", "(", FormBox[ RowBox[{ FormBox[ SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm]], TraditionalForm], ".", FormBox[ SuperscriptBox["\[Gamma]", FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm]], TraditionalForm]}], TraditionalForm], ")"}], TraditionalForm]], "Output", CellChangeTimes->{ 3.896341897712935*^9, 3.8963420691576357`*^9, {3.896342369799999*^9, 3.896342381271716*^9}, 3.8964103486053467`*^9, 3.896413544908646*^9, 3.89687001630182*^9}, CellLabel->"Out[8]=",ExpressionUUID->"642ce6c0-e59e-4208-889f-cc60dedd61cb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracSimplify", "[", "trD", "]"}]], "Input", CellLabel->"In[9]:=",ExpressionUUID->"23d2d04a-7e3c-4e3f-9800-55f61c30283f"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm]}]]}], TraditionalForm]], "Output", CellChangeTimes->{3.8968700184363813`*^9}, CellLabel->"Out[9]=",ExpressionUUID->"c2760555-7d9e-4391-a645-29127f67c220"] }, Open ]] }, Closed]] }, WindowSize->{1440., 791.25}, WindowMargins->{{0, Automatic}, {0, Automatic}}, FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"62dd0a4d-d453-45da-b0cd-da04769ce0aa" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 171, 3, 68, "Section",ExpressionUUID->"30ba222d-583a-467a-8a23-7016c177f8a9"], Cell[754, 27, 457, 10, 51, "Input",ExpressionUUID->"c0ede82e-b287-43c2-b12a-53553ecc707c"] }, Closed]], Cell[CellGroupData[{ Cell[1248, 42, 180, 3, 54, "Section",ExpressionUUID->"58dd02a8-aa8d-404f-9b92-0dbec4deb98e"], Cell[1431, 47, 299, 5, 29, "Input",ExpressionUUID->"7da4f291-803c-4839-85f8-ecfd517b280d"] }, Closed]], Cell[CellGroupData[{ Cell[1767, 57, 261, 4, 54, "Section",ExpressionUUID->"116cffc2-651b-4f3c-812f-9757a8d5b687"], Cell[2031, 63, 163, 3, 35, "Text",ExpressionUUID->"c8967fe3-1318-4326-9b73-04702ec814fa"], Cell[CellGroupData[{ Cell[2219, 70, 575, 11, 29, "Input",ExpressionUUID->"09b55805-33a1-4f5d-ba41-1c793dc9dea8"], Cell[2797, 83, 1074, 39, 32, "Output",ExpressionUUID->"889496b4-cb7f-43ac-b412-b3675cdfa42f"] }, Open ]], Cell[3886, 125, 172, 3, 35, "Text",ExpressionUUID->"cb076f96-698c-43e4-b67f-7ea7a04098e8"], Cell[CellGroupData[{ Cell[4083, 132, 212, 3, 29, "Input",ExpressionUUID->"adcc46ff-b07e-41f3-9b23-89a5ab250373"], Cell[4298, 137, 1815, 73, 32, "Output",ExpressionUUID->"4ce8c67f-72b8-476f-874a-8bc0960401d8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6162, 216, 223, 4, 54, "Section",ExpressionUUID->"b49a046c-299f-4e6f-ba51-da23723c4058"], Cell[CellGroupData[{ Cell[6410, 224, 443, 8, 29, "Input",ExpressionUUID->"ce33c8ca-c9f4-4f8a-aacf-55c9c3216662"], Cell[6856, 234, 738, 24, 32, "Output",ExpressionUUID->"642ce6c0-e59e-4208-889f-cc60dedd61cb"] }, Open ]], Cell[CellGroupData[{ Cell[7631, 263, 146, 2, 29, "Input",ExpressionUUID->"23d2d04a-7e3c-4e3f-9800-55f61c30283f"], Cell[7780, 267, 410, 14, 32, "Output",ExpressionUUID->"c2760555-7d9e-4391-a645-29127f67c220"] }, Open ]] }, Closed]] } ] *)