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