DSM Diagrams

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

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

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

Paint[t11]

t11

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

ampFC0  =  CreateFeynAmp[FF] // ToFA1Conventions

ampFC = ampFC0 // Last // Last

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

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

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