Name: Rolf Mertig Date: 07/25/07-10:46:05 AM Z
Use ScalarProduct[pa,k ] = 1
rolfm@gluon:~$ math
Mathematica 6.0 for Linux x86 (64-bit)
Copyright 1988-2007 Wolfram Research, Inc.
In[1]:= !!t.m
<<HighEnergyPhysics`fc`;
ScalarProduct[pa,k]=1;
Lmunu = FV[l, \[Mu]]*FV[k, \[Nu]] +
FV[l, \[Nu]]*FV[k, \[Mu]];
Wmunu = FV[pa, \[Mu]]*FV[pa,
\[Nu]];
Contract[Lmunu*Wmunu] // FCE // InputForm
In[1]:= <<t.m
Out[1]//InputForm= 2*SP[l, pa]
-———–
Rolf Mertig
GluonVision GmbH
Berlin, Germany