Name: Rolf Mertig Date: 10/03/00-03:08:40 PM Z


Hi,
I apologize for not checking everything when I rearranged the FC code
for feyncalc.org.

The quick fix is:
Replace this line in FeynCalc.m :

-—————-
diractraceevsimpleplus[x_/;Head[x]=!=Plus,{opt___}] := x;
-——————-
  by this one:
-————-
diractraceevsimpleplus[x_/;Head[x]=!=Plus,{opt___}] := x *
 (TraceOfOne /. {opt} /.Options[Tr] /. Options[DiracTrace] );
-————–

Alternatively you can just execute this:

DownValues[HighEnergyPhysics`FeynCalc`DiracTrace`Private`diractraceevsimpleplus]={
 HoldPattern[
   HighEnergyPhysics`FeynCalc`DiracTrace`Private`diractraceevsimpleplus[
    HighEnergyPhysics`FeynCalc`DiracTrace`Private`x_Plus,
    {HighEnergyPhysics`FeynCalc`DiracTrace`Private`opt___}]] :>
  (HighEnergyPhysics`FeynCalc`DiracTrace`Private`diractraceevsimple[#1,
     {HighEnergyPhysics`FeynCalc`DiracTrace`Private`opt}] & ) /@
   HighEnergyPhysics`FeynCalc`DiracTrace`Private`x,
 HoldPattern[
   HighEnergyPhysics`FeynCalc`DiracTrace`Private`diractraceevsimpleplus[
    HighEnergyPhysics`FeynCalc`DiracTrace`Private`x_ /;
     Head[HighEnergyPhysics`FeynCalc`DiracTrace`Private`x] =!= Plus,
    {HighEnergyPhysics`FeynCalc`DiracTrace`Private`opt___}]] :>
  HighEnergyPhysics`FeynCalc`DiracTrace`Private`x*
   (HighEnergyPhysics`FeynCalc`DiracTrace`Private`TraceOfOne /.
      {HighEnergyPhysics`FeynCalc`DiracTrace`Private`opt} /.
     Options[HighEnergyPhysics`FeynCalc`DiracTrace`Private`Tr] /.
    Options[DiracTrace])}

Rolf

Wojciech Broniowski wrote:
>
> Hi!
>
> The most simple trace: Tr[DiracSlash[p,p]] gives a WRONG!!!!! answer: p^2
> instead of 4p^2.
>
> Wojciech Broniowski [broniows_at_HIDDEN-E-MAIL]
>
> Institute of Nuclear Physics Tel:(48)12-6370222 ext. 270 or 431 (Work)
> ul. Radzikowskiego 152 (48)12-6367884 (Home),
> Fax:(48)12-6375441
> PL-31342 Krakow, POLAND