(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 9346, 305] NotebookOptionsPosition[ 8485, 270] NotebookOutlinePosition[ 8825, 285] CellTagsIndexPosition[ 8782, 282] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Import", "[", "\"\\ \"", "]"}], "\n", RowBox[{"InstallFeynCalc", "[", RowBox[{"InstallFeynCalcDevelopmentVersion", "\[Rule]", "True"}], "]"}]}], "Input"], Cell[CellGroupData[{ Cell["\<\ Downloading FeynCalc from \ https://github.com/FeynCalc/feyncalc/archive/master.zip ...done! FeynCalc zip file was saved to /tmp/m000006179701. Extracting FeynCalc zip file to /tmp/m000006179701.dir ...done! Copying FeynCalc to /home/vs/.Mathematica/Applications/FeynCalc ...done! Setting up the help system... done! Downloading FeynArts from \ https://github.com/FeynCalc/feynarts-mirror/archive/master.zip ...done! FeynArts zip file was saved to /tmp/m000009179701. Extracting FeynArts zip file to \ /home/vs/.Mathematica/Applications/FeynCalc/FeynArts ...done! Copying FeynArts to /home/vs/.Mathematica/Applications/FeynCalc/FeynArts \ ...done! Installation complete! Loading FeynCalc... Patching FeynArts... done!\ \>", "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ StyleBox["\<\"FeynCalc \"\>", "Text", StripOnInput->False, FontWeight->Bold], "\[InvisibleSpace]", StyleBox["\<\"9.3.0 (development version). For help, use the \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox[ RowBox[{"documentation", " ", "center"}], BaseStyle->"Link", ButtonData:>"paclet:FeynCalc/", ButtonNote->"paclet:FeynCalc/"], DisplayForm], "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox["\<\", check out the \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox["wiki", BaseStyle->"Hyperlink", ButtonData:>{ URL["https://github.com/FeynCalc/feyncalc/wiki"], None}, ButtonNote->"https://github.com/FeynCalc/feyncalc/wiki"], DisplayForm], "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox["\<\" or write to the \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox[ RowBox[{"mailing", " ", RowBox[{"list", "."}]}], BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.feyncalc.org/forum/"], None}, ButtonNote->"http://www.feyncalc.org/forum/"], DisplayForm], "Text", StripOnInput->False]}], SequenceForm[ Style["FeynCalc ", "Text", Bold], Style["9.3.0 (development version). For help, use the ", "Text"], Style[ DisplayForm[ ButtonBox[ "documentation center", BaseStyle -> "Link", ButtonData :> "paclet:FeynCalc/", ButtonNote -> "paclet:FeynCalc/"]], "Text"], Style[", check out the ", "Text"], Style[ DisplayForm[ ButtonBox["wiki", ButtonData :> { URL["https://github.com/FeynCalc/feyncalc/wiki"], None}, BaseStyle -> "Hyperlink", ButtonNote -> "https://github.com/FeynCalc/feyncalc/wiki"]], "Text"], Style[" or write to the ", "Text"], Style[ DisplayForm[ ButtonBox["mailing list.", ButtonData :> { URL["http://www.feyncalc.org/forum/"], None}, BaseStyle -> "Hyperlink", ButtonNote -> "http://www.feyncalc.org/forum/"]], "Text"]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ StyleBox["\<\"See also the supplied \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox[ RowBox[{"examples", "."}], BaseStyle->"Hyperlink", ButtonFunction:>SystemOpen[ FileNameJoin[{FeynCalc`$FeynCalcDirectory, "Examples"}]], Evaluator->Automatic, Method->"Preemptive"], DisplayForm], "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox["\<\" If you use FeynCalc in your research, please cite\"\>", "Text", StripOnInput->False]}], SequenceForm[ Style["See also the supplied ", "Text"], Style[ DisplayForm[ ButtonBox[ "examples.", BaseStyle -> "Hyperlink", ButtonFunction :> SystemOpen[ FileNameJoin[{FeynCalc`$FeynCalcDirectory, "Examples"}]], Evaluator -> Automatic, Method -> "Preemptive"]], "Text"], Style[" If you use FeynCalc in your research, please cite", "Text"]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ StyleBox["\<\" \[Bullet] V. Shtabovenko, R. Mertig and F. Orellana, Comput. \ Phys. Commun., 207C, 432-444, 2016, arXiv:1601.01167\"\>", "Text", StripOnInput->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ StyleBox["\<\" \[Bullet] R. Mertig, M. B\[ODoubleDot]hm, and A. Denner, \ Comput. Phys. Commun., 64, 345-359, 1991.\"\>", "Text", StripOnInput->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ StyleBox["\<\"FeynArts \"\>", "Text", StripOnInput->False, FontWeight->Bold], "\[InvisibleSpace]", StyleBox["\<\"3.9 patched for use with FeynCalc, for documentation use \ the \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox["manual", BaseStyle->"Hyperlink", ButtonFunction:>SystemOpen[ First[ FileNames[{"*.pdf", "*.PDF"}, FileNameJoin[{FeynCalc`$FeynArtsDirectory, "manual"}]]]], Evaluator->Automatic, Method->"Preemptive"], DisplayForm], "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox["\<\" or visit \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox[ RowBox[{"www", ".", "feynarts", ".", "de", "."}], BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.feynarts.de/"], None}, ButtonNote->"www.feynarts.de/"], DisplayForm], "Text", StripOnInput->False]}], SequenceForm[ Style["FeynArts ", "Text", Bold], Style[ "3.9 patched for use with FeynCalc, for documentation use the ", "Text"], Style[ DisplayForm[ ButtonBox[ "manual", BaseStyle -> "Hyperlink", ButtonFunction :> SystemOpen[ First[ FileNames[{"*.pdf", "*.PDF"}, FileNameJoin[{FeynCalc`$FeynArtsDirectory, "manual"}]]]], Evaluator -> Automatic, Method -> "Preemptive"]], "Text"], Style[" or visit ", "Text"], Style[ DisplayForm[ ButtonBox["www.feynarts.de.", ButtonData :> { URL["http://www.feynarts.de/"], None}, BaseStyle -> "Hyperlink", ButtonNote -> "www.feynarts.de/"]], "Text"]], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["$VersionNumber"], "Input"], Cell[BoxData[ FormBox["11.`", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["$System"], "Input"], Cell[BoxData[ FormBox["\<\"Linux x86 (64-bit)\"\>", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Contract", "[", RowBox[{ RowBox[{"LC", "[", RowBox[{"mu", ",", "nu", ",", "rho", ",", "sigma"}], "]"}], " ", RowBox[{"FV", "[", RowBox[{"k", ",", "mu"}], "]"}], " ", RowBox[{"FV", "[", RowBox[{"P", ",", "rho"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", SuperscriptBox[ OverscriptBox["\[Epsilon]", "_"], RowBox[{ FormBox[ FormBox["nu", TraditionalForm], TraditionalForm], FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], FormBox[ OverscriptBox[ FormBox["k", TraditionalForm], "_"], TraditionalForm], FormBox[ OverscriptBox[ FormBox["P", TraditionalForm], "_"], TraditionalForm]}]]}], TraditionalForm]], "Output"] }, Open ]] }, WindowSize->{808, 911}, WindowMargins->{{556, Automatic}, {21, Automatic}}, FrontEndVersion->"11.0 for Linux x86 (64-bit) (September 21, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 260, 6, 80, "Input"], Cell[CellGroupData[{ Cell[865, 32, 751, 17, 223, "Print"], Cell[1619, 51, 2326, 63, 47, "Print"], Cell[3948, 116, 1067, 29, 26, "Print"], Cell[5018, 147, 223, 4, 46, "Print"], Cell[5244, 153, 208, 4, 26, "Print"], Cell[5455, 159, 1841, 53, 45, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7345, 218, 40, 0, 33, "Input"], Cell[7388, 220, 59, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7484, 226, 33, 0, 33, "Input"], Cell[7520, 228, 81, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7638, 234, 290, 8, 35, "Input"], Cell[7931, 244, 538, 23, 38, "Output"] }, Open ]] } ] *)