(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      7656,        241]
NotebookOptionsPosition[      6918,        209]
NotebookOutlinePosition[      7255,        224]
CellTagsIndexPosition[      7212,        221]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.658136573551167*^9, 3.658136574593354*^9}}],

Cell[CellGroupData[{

Cell[BoxData["$Version"], "Input",
 CellChangeTimes->{{3.658138653587076*^9, 3.6581386549242*^9}}],

Cell[BoxData[
 FormBox["\<\"9.0 for Linux x86 (64-bit) (January 24, 2013)\"\>", 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.658138655177115*^9, {3.658138716523196*^9, 3.6581387288595467`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"l", "+", "r", "-", "z"}], ")"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.6581364595935717`*^9, 3.658136470705987*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"l", "+", "r", "-", "z"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.65813646095338*^9, 3.6581364709842663`*^9}, 
   3.6581365767713957`*^9, 3.6581366248035593`*^9, 3.65813864292061*^9, {
   3.6581387181682453`*^9, 3.6581387294598494`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$LoadFeynArts", "=", "True"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "FeynCalc`"}]}], "Input",
 CellChangeTimes->{{3.65813647289286*^9, 3.658136474848432*^9}, {
  3.658136680818062*^9, 3.658136686136922*^9}, {3.658138711445684*^9, 
  3.65813872524616*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
    StyleBox["\<\"FeynCalc \"\>", "Text",
     StripOnInput->False,
     FontWeight->Bold], "\[InvisibleSpace]", 
    StyleBox["\<\"9.0.0. 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.0.0. 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",
 CellChangeTimes->{
  3.6581364761532307`*^9, {3.6581366881272793`*^9, 3.658136697310774*^9}, 
   3.6581386471541967`*^9, {3.6581387198533688`*^9, 3.658138730908813*^9}}],

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",
 CellChangeTimes->{
  3.6581364761532307`*^9, {3.6581366881272793`*^9, 3.658136697310774*^9}, 
   3.6581386471541967`*^9, {3.6581387198533688`*^9, 3.6581387310171556`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"l", "+", "r", "-", "z"}], ")"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.658136479747188*^9, 3.658136479748073*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"l", "+", "r", "-", "z"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.6581364801116753`*^9, {3.6581366285594463`*^9, 3.65813662992925*^9}, {
   3.65813669822894*^9, 3.658136699457943*^9}, 3.658138532298461*^9, 
   3.658138648082994*^9, {3.658138721268002*^9, 3.6581387315841007`*^9}}]
}, Open  ]]
},
WindowSize->{740, 867},
WindowMargins->{{684, Automatic}, {31, Automatic}},
FrontEndVersion->"9.0 for Linux x86 (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 118, 2, 32, "Input"],
Cell[CellGroupData[{
Cell[700, 26, 98, 1, 32, "Input"],
Cell[801, 29, 204, 4, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1042, 38, 182, 4, 32, "Input"],
Cell[1227, 44, 283, 5, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1547, 54, 300, 6, 55, "Input"],
Cell[CellGroupData[{
Cell[1872, 64, 2453, 66, 49, "Print"],
Cell[4328, 132, 2014, 56, 47, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6391, 194, 180, 4, 32, "Input"],
Cell[6574, 200, 328, 6, 33, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)