DSM Diagrams

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

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

Loading PHI

Loading FeynArts

SetOptions[{B0, B1, B00, B11},  
      BReduce  ->  True]
SetOptions[OneLoop, Dimension  ->  D]

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

Paint[t11]

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

ampFC  =  CreateFCAmp[FF,  
              DiracTraceEvaluate  ->  True][[1]] /. 
          ParticleMass[Photon, __] ->  0 /. 
        p3 -> -p1

aff  =  
      DiracSimplify[
          OneLoopSimplify[ampFC /.  Spinor[__] ->  1, q1, 
            Dimension -> D],  
          DiracSubstitute67  ->  True] // Simplify  /.  
            p1 ->  p  /.  ME  ->  m

ampreduced = FullSimplify /@ Collect[OneLoop[q1, aff], _B0] /. 
            p1  ->  p  /.  ME ->  m  /.  
        EL  ->  e

A2 =  
      Coefficient[ampreduced, DiracSlash[p], 0] // 
        Simplify
B2 =  
      Coefficient[ampreduced, DiracSlash[p], 1] // Simplify