DSM Diagrams

$LoadPhi = True;
 $LoadTARCER  =  True;
<<  HighEnergyPhysics`FeynCalc`

Loading FeynCalc from C:\Program Files\Wolfram Research\Mathematica\5.0\AddOns\Applications\HighEnergyPhysics

Loading TARCER C:\Program Files\Wolfram Research\Mathematica\5.0\AddOns\Applications\HighEnergyPhysics\Tarcer\tarcer25.mx

FeynCalc 5.0.0beta1 For help, type ?FeynCalc, use the built-in help system or visit www.feyncalc.org

Loading PHI

Loading FeynArts, see www.feynarts.de for documentation

FeynArts 3.2 patched for use with FeynCalc

t11  =  
        CreateTopologies[2, 1  ->  1,  
          ExcludeTopologies  ->  {Internal}];

Paint[t11];

FF  =  
        InsertFields[t11[[5]],  F[1,  {1}]  ->  F[1,  {1}],  
          Model  ->  QED,  ExcludeParticles  ->  {},  
          InsertionLevel  ->  Particles] ;

ampFC  =  
        CreateFCAmp[FF,  DiracTraceEvaluate  ->  True,  
              Truncated  ->  True] /. p3 -> -p1  // 
          DoSumOver;

ToTFI[
      DiracSimplify[ampFC[[2]], DiracTraceEvaluate  ->  True,  
          DiracSubstitute67  ->  True]  /.  
        q2  ->  q2 - p1,   q1, q2, p1]