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))