$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
This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST