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

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

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     22956,        526]
NotebookOptionsPosition[     22227,        496]
NotebookOutlinePosition[     22564,        511]
CellTagsIndexPosition[     22521,        508]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<FeynCalc`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.668741513792141*^9, 3.668741513898472*^9}, 
   3.668743307468405*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"line1", "=", 
  RowBox[{
   RowBox[{"GAD", "[", "\[Alpha]", "]"}], ".", 
   RowBox[{"GAD", "[", "\[Beta]", "]"}], ".", 
   RowBox[{"GAD", "[", "\[Gamma]", "]"}], ".", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"GA", "[", "5", "]"}]}], ")"}], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"GSD", "[", "l", "]"}], "+", "m"}], ")"}], ".", 
   RowBox[{"GAD", "[", "\[Mu]", "]"}], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"GSD", "[", "l", "]"}], "+", 
     RowBox[{"GSD", "[", "p", "]"}], "-", 
     RowBox[{"GSD", "[", "k", "]"}], "+", "m"}], ")"}], ".", 
   RowBox[{"GAD", "[", "\[Nu]", "]"}], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"GSD", "[", "l", "]"}], "+", 
     RowBox[{"GSD", "[", "p", "]"}], "+", "m"}], ")"}], ".", 
   RowBox[{"GAD", "[", "\[Alpha]", "]"}], ".", 
   RowBox[{"GAD", "[", "\[Beta]", "]"}], ".", 
   RowBox[{"GAD", "[", "\[Gamma]", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.666690614695202*^9, 3.6666906157028303`*^9}, {
   3.66669130519595*^9, 3.66669131233099*^9}, {3.667038641382072*^9, 
   3.667038641678932*^9}, {3.667039068089835*^9, 3.667039068729549*^9}, {
   3.668412632029162*^9, 3.6684126507484503`*^9}, {3.668432951753448*^9, 
   3.668432982559523*^9}, {3.668760481541772*^9, 3.668760509140573*^9}, {
   3.669636066634968*^9, 3.6696360701462307`*^9}, {3.669636320972283*^9, 
   3.6696363248993998`*^9}, {3.6696369456186447`*^9, 3.669636967841886*^9}, {
   3.670227356270142*^9, 3.670227356412757*^9}, {3.670227769586061*^9, 
   3.670227769881378*^9}, {3.6703310562794456`*^9, 3.6703310769103537`*^9}, 
   3.670331561449766*^9, 3.6711828164012823`*^9, {3.671184262968307*^9, 
   3.671184265368291*^9}, {3.671185492622966*^9, 3.671185509268598*^9}, {
   3.6711859998801413`*^9, 3.671186035895011*^9}, {3.6711862761608467`*^9, 
   3.671186298583111*^9}, {3.671187801183065*^9, 3.671187803838026*^9}, {
   3.671188177668008*^9, 3.671188179139196*^9}, {3.6711884372927027`*^9, 
   3.671188438996266*^9}, {3.671188878177342*^9, 3.6711888806473923`*^9}, {
   3.671190224724793*^9, 3.671190226626952*^9}, {3.671190650776379*^9, 
   3.671190655468995*^9}, {3.6711914677599697`*^9, 3.671191469127776*^9}, {
   3.671191878476283*^9, 3.671191880700581*^9}, {3.671193130858446*^9, 
   3.671193132042232*^9}, {3.671193482345093*^9, 3.67119348903197*^9}, {
   3.671193997883243*^9, 3.6711939996817217`*^9}, {3.671195736538609*^9, 
   3.671195737553948*^9}, {3.671274493488703*^9, 3.671274494951273*^9}, {
   3.671277538761554*^9, 3.671277543952626*^9}, {3.6712792630326023`*^9, 
   3.671279263447871*^9}, {3.671280369242062*^9, 3.671280371201009*^9}, 
   3.671282142351327*^9, {3.671282180926341*^9, 3.6712822071734*^9}, {
   3.671282580883428*^9, 3.671282591794571*^9}, {3.671286296365657*^9, 
   3.671286297556549*^9}, {3.671286373035412*^9, 3.67128637484273*^9}, {
   3.6712870018187323`*^9, 3.671287011705572*^9}, {3.671868171588262*^9, 
   3.671868213847426*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FormBox[
      RowBox[{"\[Gamma]", "\[CenterDot]", 
       FormBox[
        FormBox["l",
         TraditionalForm],
        TraditionalForm]}],
      TraditionalForm], "+", "m"}], ")"}], ".", 
   FormBox[
    SuperscriptBox["\[Gamma]", 
     FormBox[
      FormBox["\[Mu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FormBox[
       RowBox[{"\[Gamma]", "\[CenterDot]", 
        FormBox[
         FormBox["k",
          TraditionalForm],
         TraditionalForm]}],
       TraditionalForm]}], "+", 
     FormBox[
      RowBox[{"\[Gamma]", "\[CenterDot]", 
       FormBox[
        FormBox["l",
         TraditionalForm],
        TraditionalForm]}],
      TraditionalForm], "+", "m", "+", 
     FormBox[
      RowBox[{"\[Gamma]", "\[CenterDot]", 
       FormBox[
        FormBox["p",
         TraditionalForm],
        TraditionalForm]}],
      TraditionalForm]}], ")"}], ".", 
   FormBox[
    SuperscriptBox["\[Gamma]", 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   RowBox[{"(", 
    RowBox[{
     FormBox[
      RowBox[{"\[Gamma]", "\[CenterDot]", 
       FormBox[
        FormBox["l",
         TraditionalForm],
        TraditionalForm]}],
      TraditionalForm], "+", "m", "+", 
     FormBox[
      RowBox[{"\[Gamma]", "\[CenterDot]", 
       FormBox[
        FormBox["p",
         TraditionalForm],
        TraditionalForm]}],
      TraditionalForm]}], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.6666906357909803`*^9, 3.6666913163559303`*^9, {3.6670386223389587`*^9, 
   3.667038646087384*^9}, 3.667039074110922*^9, 3.667556680941434*^9, 
   3.667727479350555*^9, 3.6684126525324907`*^9, 3.668432986739646*^9, {
   3.668433133791531*^9, 3.668433144874834*^9}, 3.6685017112840033`*^9, 
   3.668507070572451*^9, 3.668519260282454*^9, 3.668520402995761*^9, 
   3.668743328208646*^9, 3.668759791778762*^9, {3.668760485608974*^9, 
   3.6687605281878*^9}, 3.66876379351044*^9, 3.668777166539239*^9, 
   3.668834448256092*^9, 3.668836938634817*^9, 3.6688375163995256`*^9, 
   3.6688412297431517`*^9, 3.6688412803022547`*^9, 3.668843149186822*^9, 
   3.668851319364213*^9, 3.6689253274711733`*^9, 3.669360630790908*^9, 
   3.669444176729662*^9, 3.6696224538838243`*^9, 3.669636077210321*^9, 
   3.669636332706357*^9, {3.669636958996419*^9, 3.669636970127117*^9}, 
   3.669972484673267*^9, 3.6699869238834343`*^9, 3.670051525706737*^9, 
   3.6701564557000933`*^9, 3.670223562269342*^9, 3.670227375247562*^9, 
   3.670227770870932*^9, 3.670314229337659*^9, 3.670318419513859*^9, 
   3.670331084988372*^9, 3.6703315670823393`*^9, 3.670572624051852*^9, 
   3.671182892425372*^9, 3.671184266552004*^9, 3.671185519802451*^9, 
   3.671186299584923*^9, 3.671187804501013*^9, 3.671188180698989*^9, 
   3.671188440174769*^9, 3.671188903344749*^9, 3.671189218950865*^9, 
   3.671190236628602*^9, 3.671190668440138*^9, 3.671191470205799*^9, 
   3.6711918831615543`*^9, 3.671192232343635*^9, 3.671193132927058*^9, 
   3.6711934996420193`*^9, 3.671194004406796*^9, 3.671195738356577*^9, 
   3.67127449674505*^9, 3.671277579868019*^9, 3.671279284329142*^9, 
   3.6712796097872343`*^9, 3.671280371776394*^9, 3.6712811955456333`*^9, {
   3.6712822093189983`*^9, 3.671282227996827*^9}, 3.671282622708527*^9, 
   3.6712863406855717`*^9, 3.671286377361166*^9, 3.671286621646637*^9, 
   3.671287012120429*^9, 3.671782487046219*^9, 3.671794412696723*^9, 
   3.671797861727859*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"line2", "=", 
  RowBox[{
   RowBox[{"GAD", "[", "\[Alpha]", "]"}], ".", 
   RowBox[{"GAD", "[", "\[Beta]", "]"}], ".", 
   RowBox[{"GAD", "[", "\[Gamma]", "]"}], ".", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"GA", "[", "5", "]"}]}], ")"}], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"GSD", "[", "l", "]"}], "+", "m"}], ")"}], ".", 
   RowBox[{"GAD", "[", "\[Nu]", "]"}], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"GSD", "[", "l", "]"}], "+", 
     RowBox[{"GSD", "[", "k", "]"}], "+", "m"}], ")"}], ".", 
   RowBox[{"GAD", "[", "\[Mu]", "]"}], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"GSD", "[", "l", "]"}], "+", 
     RowBox[{"GSD", "[", "p", "]"}], "+", "m"}], ")"}], ".", 
   RowBox[{"GAD", "[", "\[Alpha]", "]"}], ".", 
   RowBox[{"GAD", "[", "\[Beta]", "]"}], ".", 
   RowBox[{"GAD", "[", "\[Gamma]", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6666906511423283`*^9, 3.6666906519656687`*^9}, {
   3.666691302228883*^9, 3.666691314524385*^9}, {3.667038644389988*^9, 
   3.6670386446541224`*^9}, 3.667039072914218*^9, {3.668412681075025*^9, 
   3.6684126818273983`*^9}, {3.668433055669998*^9, 3.668433058293419*^9}, {
   3.6684330915170527`*^9, 3.668433097012474*^9}, {3.668760488157154*^9, 
   3.668760512028227*^9}, {3.669636072434716*^9, 3.669636075658296*^9}, {
   3.6696363277399673`*^9, 3.669636331107101*^9}, {3.670227360821473*^9, 
   3.670227361389093*^9}, {3.670227767114154*^9, 3.6702277753209753`*^9}, {
   3.670228178902185*^9, 3.67022817915818*^9}, {3.670331064519341*^9, 
   3.6703310833667994`*^9}, 3.670331565793045*^9, 3.671182820467381*^9, {
   3.6711849466290903`*^9, 3.671184947133045*^9}, {3.671185233893013*^9, 
   3.671185234028627*^9}, {3.671185348544552*^9, 3.671185356743691*^9}, {
   3.671186044894848*^9, 3.671186061317583*^9}, {3.671186306207419*^9, 
   3.6711863166869783`*^9}, {3.6711884505808687`*^9, 3.671188452219483*^9}, {
   3.671188893104876*^9, 3.671188894822859*^9}, {3.671190232275296*^9, 
   3.6711902348894053`*^9}, {3.671190658852603*^9, 3.671190661300439*^9}, {
   3.6711910879867773`*^9, 3.671191091481968*^9}, {3.6711922228592567`*^9, 
   3.671192228499052*^9}, {3.671192836538262*^9, 3.671192838987311*^9}, {
   3.6711934944565477`*^9, 3.671193496279777*^9}, {3.6711948339152193`*^9, 
   3.671194837914607*^9}, {3.6712744779456053`*^9, 3.671274479518963*^9}, {
   3.671277546841146*^9, 3.671277576281705*^9}, {3.6712806651371307`*^9, 
   3.67128066732089*^9}, {3.671281069418494*^9, 3.671281071911207*^9}, {
   3.6712815304550962`*^9, 3.671281532255044*^9}, {3.671282212509218*^9, 
   3.671282225612953*^9}, {3.671282594323317*^9, 3.6712826021303*^9}, {
   3.6712863183793488`*^9, 3.671286337635949*^9}, 3.67128640800308*^9, {
   3.671286607668206*^9, 3.6712866106038027`*^9}, {3.6712870145301332`*^9, 
   3.671287030416947*^9}, {3.6712883415898333`*^9, 3.671288344397079*^9}, 
   3.6718681739365377`*^9, {3.671868204023593*^9, 3.671868219023746*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FormBox[
      RowBox[{"\[Gamma]", "\[CenterDot]", 
       FormBox[
        FormBox["l",
         TraditionalForm],
        TraditionalForm]}],
      TraditionalForm], "+", "m"}], ")"}], ".", 
   FormBox[
    SuperscriptBox["\[Gamma]", 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   RowBox[{"(", 
    RowBox[{
     FormBox[
      RowBox[{"\[Gamma]", "\[CenterDot]", 
       FormBox[
        FormBox["k",
         TraditionalForm],
        TraditionalForm]}],
      TraditionalForm], "+", 
     FormBox[
      RowBox[{"\[Gamma]", "\[CenterDot]", 
       FormBox[
        FormBox["l",
         TraditionalForm],
        TraditionalForm]}],
      TraditionalForm], "+", "m"}], ")"}], ".", 
   FormBox[
    SuperscriptBox["\[Gamma]", 
     FormBox[
      FormBox["\[Mu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   RowBox[{"(", 
    RowBox[{
     FormBox[
      RowBox[{"\[Gamma]", "\[CenterDot]", 
       FormBox[
        FormBox["l",
         TraditionalForm],
        TraditionalForm]}],
      TraditionalForm], "+", "m", "+", 
     FormBox[
      RowBox[{"\[Gamma]", "\[CenterDot]", 
       FormBox[
        FormBox["p",
         TraditionalForm],
        TraditionalForm]}],
      TraditionalForm]}], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.6666906524815693`*^9, 3.666691317114998*^9, {3.667038622469281*^9, 
   3.667038646690835*^9}, 3.667039074673757*^9, 3.6675566810400267`*^9, 
   3.667727479467531*^9, 3.668412682680345*^9, 3.668433098278267*^9, {
   3.668433133822064*^9, 3.668433144900753*^9}, 3.668501711382311*^9, 
   3.668507070616184*^9, 3.668519260311577*^9, 3.6685204030226383`*^9, 
   3.668743328240498*^9, 3.668759792402629*^9, {3.6687605141946898`*^9, 
   3.66876052867908*^9}, 3.668763793627625*^9, 3.668777166613982*^9, 
   3.668834448454598*^9, 3.6688369386614523`*^9, 3.668837516508197*^9, 
   3.668841229840435*^9, 3.6688412803742313`*^9, 3.668843149357541*^9, 
   3.668851319396049*^9, 3.6689253275351887`*^9, 3.669360630889743*^9, 
   3.6694441768072577`*^9, 3.6696224539690866`*^9, 3.6696360777365007`*^9, 
   3.6696363333332977`*^9, 3.669636970971365*^9, 3.669972485280895*^9, 
   3.6699869239220753`*^9, 3.670051525853384*^9, 3.6701564557210703`*^9, 
   3.6702235624662313`*^9, 3.6702273753065567`*^9, {3.670227771963956*^9, 
   3.6702277759869547`*^9}, 3.670228181299168*^9, 3.6703142293621283`*^9, 
   3.6703184195401287`*^9, 3.67033108561841*^9, 3.670331567734145*^9, 
   3.670572624122601*^9, 3.671182892532955*^9, 3.6711842672859793`*^9, 
   3.671184955999837*^9, 3.671185234944681*^9, 3.671185422272441*^9, 
   3.6711863184188557`*^9, 3.671187805185822*^9, 3.6711881816160707`*^9, {
   3.671188440969192*^9, 3.671188453266164*^9}, 3.6711888959317217`*^9, 
   3.671189219176095*^9, 3.6711902373593473`*^9, 3.671190668550871*^9, 
   3.6711910922406073`*^9, 3.671191470733574*^9, 3.671191883838069*^9, {
   3.671192225977393*^9, 3.6711922307517767`*^9}, 3.671192839610944*^9, 
   3.671193133521896*^9, 3.671193498066597*^9, 3.671194002321282*^9, 
   3.671194838599469*^9, 3.671195740060049*^9, 3.671274497260305*^9, 
   3.6712775782122517`*^9, 3.67127928492449*^9, 3.671279609897962*^9, 
   3.6712803724518967`*^9, 3.67128066822754*^9, {3.671281195475937*^9, 
   3.67128119560121*^9}, 3.671281593253693*^9, 3.671282228678912*^9, 
   3.671282620580964*^9, 3.671286338448997*^9, 3.671286377905013*^9, 
   3.671286408845729*^9, {3.6712866119765053`*^9, 3.671286621759001*^9}, 
   3.67128703117133*^9, 3.671288351654649*^9, 3.671782487243181*^9, 
   3.671794412786343*^9, 3.6717978617508583`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"denom1", "=", 
  RowBox[{"FeynAmpDenominator", "[", 
   RowBox[{
    RowBox[{"PropagatorDenominator", "[", 
     RowBox[{"l", ",", "m"}], "]"}], ",", 
    RowBox[{"PropagatorDenominator", "[", 
     RowBox[{
      RowBox[{"l", "+", "p", "-", "k"}], ",", "m"}], "]"}], ",", 
    RowBox[{"PropagatorDenominator", "[", 
     RowBox[{
      RowBox[{"l", "+", "p"}], ",", "m"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665739462239216*^9, 3.6657395019181967`*^9}, {
   3.6657395327654123`*^9, 3.665739579620118*^9}, 3.665739913139134*^9, {
   3.66589331457824*^9, 3.665893315257763*^9}, {3.6659012629459667`*^9, 
   3.665901267594818*^9}, {3.6659054450453672`*^9, 3.665905452454973*^9}, {
   3.666355864247156*^9, 3.6663558669427013`*^9}, {3.666355912590269*^9, 
   3.666355912958535*^9}, {3.6664230309379673`*^9, 3.666423031742635*^9}, {
   3.666603307636704*^9, 3.666603313603805*^9}, {3.6666172518605623`*^9, 
   3.666617258132086*^9}, {3.666617907882021*^9, 3.6666179151372423`*^9}, {
   3.666618083957069*^9, 3.6666180877009163`*^9}, {3.666619221757751*^9, 
   3.666619223268937*^9}, 3.666690700384919*^9, {3.666691323507558*^9, 
   3.6666913282991123`*^9}, {3.6684126886514606`*^9, 3.668412695883161*^9}, {
   3.66843298986369*^9, 3.6684329961989202`*^9}, {3.6684331131945343`*^9, 
   3.668433113458473*^9}, {3.668760472839643*^9, 3.668760475493147*^9}, {
   3.6687605207405787`*^9, 3.668760521132094*^9}, {3.670227367357285*^9, 
   3.6702273675323772`*^9}, {3.6702277614178133`*^9, 3.670227761713374*^9}, 
   3.671182825843082*^9, {3.671185512285529*^9, 3.671185516372908*^9}, {
   3.671186250809845*^9, 3.671186254856752*^9}, {3.671279269136278*^9, 
   3.671279273727624*^9}, {3.67128263849839*^9, 3.671282650481615*^9}, {
   3.6712863817309713`*^9, 3.671286394578298*^9}, {3.671286924596532*^9, 
   3.671286957298997*^9}}],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["l", "2"], "-", 
      SuperscriptBox["m", "2"]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "k"}], "+", "l", "+", "p"}], ")"}], "2"], "-", 
      SuperscriptBox["m", "2"]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"l", "+", "p"}], ")"}], "2"], "-", 
      SuperscriptBox["m", "2"]}], ")"}]}]], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.666690701144902*^9, 3.666691335122839*^9, 3.6670386225929747`*^9, 
   3.66755668112228*^9, 3.667727479578623*^9, 3.668412696579617*^9, {
   3.668433133845832*^9, 3.668433144938315*^9}, 3.668501711612496*^9, 
   3.668507070659812*^9, 3.6685192603414497`*^9, 3.668520403045342*^9, 
   3.668743328274781*^9, 3.668759801858019*^9, 3.668760477383079*^9, 
   3.668760530200604*^9, 3.6687637937408667`*^9, 3.668777166691984*^9, 
   3.668834448571043*^9, 3.668836938693359*^9, 3.66883751661266*^9, 
   3.668841230040668*^9, 3.668841280439049*^9, 3.66884314939142*^9, 
   3.6688513194199963`*^9, 3.6689253278491917`*^9, 3.669360631231449*^9, 
   3.669444177170327*^9, 3.669622454193234*^9, 3.669972496525894*^9, 
   3.6699869239847593`*^9, 3.670051526106279*^9, 3.670156455784464*^9, 
   3.670223562864142*^9, 3.670227377222278*^9, 3.670227762392043*^9, 
   3.6703142294440928`*^9, 3.6703184197578297`*^9, 3.670572624254674*^9, 
   3.6711828929966917`*^9, 3.671185523058834*^9, 3.671186263099883*^9, 
   3.671189219557334*^9, 3.671191473072688*^9, 3.671279287303946*^9, 
   3.6712796134046497`*^9, 3.671280380418778*^9, 3.671282239386608*^9, {
   3.671282632725778*^9, 3.671282668496106*^9}, 3.6712863958730907`*^9, {
   3.6712866142845907`*^9, 3.671286618646126*^9}, 3.67128695820125*^9, 
   3.671782487476343*^9, 3.671794413201242*^9, 3.671797861826786*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"denom2", "=", 
  RowBox[{"FeynAmpDenominator", "[", 
   RowBox[{
    RowBox[{"PropagatorDenominator", "[", 
     RowBox[{"l", ",", "m"}], "]"}], ",", 
    RowBox[{"PropagatorDenominator", "[", 
     RowBox[{
      RowBox[{"l", "+", "k"}], ",", "m"}], "]"}], ",", 
    RowBox[{"PropagatorDenominator", "[", 
     RowBox[{
      RowBox[{"l", "+", "p"}], ",", "m"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665905471442939*^9, 3.665905473998251*^9}, {
   3.6659992441152153`*^9, 3.665999244372612*^9}, {3.665999843604608*^9, 
   3.665999844156022*^9}, {3.666355934430354*^9, 3.666355936854177*^9}, {
   3.666423033682497*^9, 3.666423034694285*^9}, {3.666603352115234*^9, 
   3.6666033617706623`*^9}, {3.666617264971929*^9, 3.666617277035224*^9}, {
   3.666617911017804*^9, 3.6666179133458023`*^9}, {3.666618090509112*^9, 
   3.666618090892908*^9}, {3.666618261128315*^9, 3.666618261447729*^9}, {
   3.666618689348321*^9, 3.666618692163897*^9}, {3.666619240964315*^9, 
   3.66661924321241*^9}, 3.666690702853487*^9, {3.666691330259328*^9, 
   3.666691333209845*^9}, {3.668412700667037*^9, 3.668412709098688*^9}, {
   3.668433121946542*^9, 3.668433127570314*^9}, {3.668760524388421*^9, 
   3.6687605263557663`*^9}, {3.670227371021102*^9, 3.670227371316544*^9}, {
   3.670227756530097*^9, 3.6702277812570257`*^9}, {3.670228183741982*^9, 
   3.6702281840216722`*^9}, 3.671182830013876*^9, {3.671184953085134*^9, 
   3.6711849534921923`*^9}, {3.6711852285894537`*^9, 
   3.6711852287167587`*^9}, {3.671185361079932*^9, 3.671185363743672*^9}, {
   3.67118625708887*^9, 3.671186259824048*^9}, {3.671187789478277*^9, 
   3.671187792829649*^9}, {3.671279276143989*^9, 3.671279278791296*^9}, {
   3.67128266116119*^9, 3.671282665320866*^9}, {3.671286360251981*^9, 
   3.6712863604593*^9}, {3.671286402034052*^9, 3.671286419993935*^9}, {
   3.671286600389175*^9, 3.6712866043078413`*^9}, {3.6712869768111*^9, 
   3.671286992417556*^9}}],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["l", "2"], "-", 
      SuperscriptBox["m", "2"]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"k", "+", "l"}], ")"}], "2"], "-", 
      SuperscriptBox["m", "2"]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"l", "+", "p"}], ")"}], "2"], "-", 
      SuperscriptBox["m", "2"]}], ")"}]}]], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.666690703205514*^9, 3.666691335859571*^9, 3.667038622715433*^9, 
   3.667556681201167*^9, 3.667727479690357*^9, 3.668412709671195*^9, {
   3.668433133872316*^9, 3.668433144957678*^9}, 3.668501711715304*^9, 
   3.668507070698167*^9, 3.668519260363703*^9, 3.668520403078952*^9, 
   3.668743328311715*^9, 3.6687598020862913`*^9, 3.668760530892735*^9, 
   3.668763793847924*^9, 3.668777166753598*^9, 3.668834448684968*^9, 
   3.668836938725515*^9, 3.668837516715879*^9, 3.6688412301390877`*^9, 
   3.6688412805044317`*^9, 3.668843149427203*^9, 3.668851319451062*^9, 
   3.668925327914187*^9, 3.669360631327715*^9, 3.669444177265387*^9, 
   3.669622454265152*^9, 3.6699724990666237`*^9, 3.669986924005844*^9, 
   3.6700515261869287`*^9, 3.67015645580821*^9, 3.6702235630022984`*^9, 
   3.67022737726482*^9, {3.670227758821599*^9, 3.670227781756304*^9}, 
   3.6702281844348507`*^9, 3.670314229474186*^9, 3.670318419790872*^9, 
   3.670572624298149*^9, 3.671182893167142*^9, 3.6711849538611603`*^9, 
   3.67118523674862*^9, 3.6711854223464117`*^9, 3.671186261347498*^9, 
   3.6711892196740923`*^9, 3.6711910995953627`*^9, 3.6711914736335773`*^9, {
   3.671279280214777*^9, 3.671279287991336*^9}, 3.671279613517333*^9, 
   3.671280380484498*^9, 3.671282240001193*^9, 3.671282633558959*^9, {
   3.671282665762958*^9, 3.6712826671055803`*^9}, 3.671286362519606*^9, 
   3.671286420746904*^9, {3.671286615319846*^9, 3.671286618759523*^9}, 
   3.671286992839161*^9, 3.671782487559016*^9, 3.671794413231504*^9, 
   3.671797861852859*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"OneLoop", "[", 
  RowBox[{"l", ",", 
   RowBox[{
    RowBox[{"line1", " ", "denom1"}], "+", 
    RowBox[{"line2", " ", "denom2"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6718681789846*^9, 3.671868181309182*^9}}]
},
WindowSize->{978, 1024},
WindowMargins->{{-9, Automatic}, {Automatic, -8}},
FrontEndVersion->"10.3 for Linux x86 (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 166, 3, 32, "Input"],
Cell[CellGroupData[{
Cell[749, 27, 2942, 53, 55, "Input"],
Cell[3694, 82, 3605, 94, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7336, 181, 2960, 52, 55, "Input"],
Cell[10299, 235, 3724, 90, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14060, 330, 1860, 31, 55, "Input"],
Cell[15923, 363, 1956, 40, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17916, 408, 1956, 33, 55, "Input"],
Cell[19875, 443, 2094, 42, 64, "Output"]
}, Open  ]],
Cell[21984, 488, 239, 6, 32, "Input"]
}
]
*)

(* End of internal cache information *)