Name: Rolf Mertig Date: 03/24/13-09:05:30 PM Z


In FeynCalc 8.2 this works fine:

$LoadFeynArts = False;
Needs[“HighEnergyPhysics`FeynCalc`”];
FI;
FCE@OneLoop[k,
  FeynAmpDenominator[PD[(k - p), 0], PD[(k - p), m], PD[k, 0],
    PD[k, m]]*SP[p, k]^3, OneLoopSimplify -> True, CancelQP -> True]

gives

I*Pi^2*((3*A0[m^2]*SP[p, p])/(4*m^2) - (3*B0[SP[p, p], 0, m^2]*SP[p, p])/4 +
  (B0[SP[p, p], 0, 0]*SP[p, p]^3)/(8*m^4) - (B0[SP[p, p], 0, m^2]*SP[p, p]^3)/
   (4*m^4) + (B0[SP[p, p], m^2, m^2]*SP[p, p]^3)/(8*m^4))