Name: Rolf Mertig Date: 11/04/13-08:06:11 PM Z


$LoadFeynArts = False;
Needs[“HighEnergyPhysics`FeynCalc`”];
FI; (* this is just to get short forms like SP etc. *)
$LimitTo4 = False; (* this inhibits taking the limit D->4 *)
(* the important option is OneLoopSimplify : *)
FCE@Factor[-((1/Pi^2)*(I*OneLoop[k,
      FeynAmpDenominator[PD[k, I*m], PD[k, 0]]*
       (-PolarizationSum[mu, nu, k])*
       ScalarProduct[k, k], OneLoopSimplify ->
       True]))]

gives:

((-1 + D)*A0[-m^2]*MT[mu, nu])/D