<<HighEnergyPhysics`FeynCalc`

Loading FeynCalc from C:\Users\Rolf Mertig\AppData\Roaming\Mathematica\Applications\HighEnergyPhysics

FeynCalc 8.0.3 For help, type ?FeynCalc, open FeynCalcRef8.nb or visit www.feyncalc.org

Loading FeynArts, see www.feynarts.de for documentation

FeynArts 3.4 patched for use with FeynCalc

$FeynCalcDirectory

t12=CreateTopologies[0,5];

AA=InsertFields[t12,{V[5],V[5],V[5],V[5],V[5]}->{},InsertionLevel->Classes,GenericModel->"FCQCDLorentz",Model->"FCQCD"]

tmp2=Apply[List,CreateFeynAmp[AA,Truncated->False]]/.FeynAmp[_,_,am_,_]:>(am/.RelativeCF->1)/.Polarization[a_,b_,_]:>Polarization[a,b]

enmomcon=p5->-(p1+p2+p3+p4);

tmp3=Explicit[Plus@@tmp2,Gauge->(1-α),Dimension->n]/.enmomcon