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