Name: Michael Date: 08/11/06-06:05:02 PM Z
Hi,
that was fast!Thanks very much.
I see how that works. But maybe I chose a bad example for my problem.
My real trouble looks more like below. I still cant make that DIFF1
zero.
Thanks again (and I can fully understand if you dont want to go into
that longer thing were perhaps I made a simple mistake.
SPdel[a_, b_,
p_] := (GS[p] +
m).(-MT[a, b] + (1/3)*
GA[a, b] + (1/(3*m))*(GA[a]*FV[p,
b] -
GA[b]*FV[p, a]) + (2/(3*m^2))*FV[p,
a]*FV[p, b])
\[CapitalLambda]a[a_, b_, c_] := (g1/2)*MT[a,
b]*GA[5, c]
T1 = SPdel[\[Beta], \[Gamma],
p2].\[CapitalLambda]a[\[Gamma],
\[Epsilon], \[CapitalOmega]1].SPdel[\
\[Epsilon], \[Delta], p1]
DR1 = DiracReduce[T1];
DR2 = DiracReduce[
SPdel[\[Beta], \[Gamma],
p2]].DiracReduce[\[CapitalLambda]a[\[Gamma],
\[Epsilon], \
\[CapitalOmega]1]].DiracReduce[SPdel[\[Epsilon],
\[Delta], p1]];
DR3 = DiracReduce[DR2];
DIFF1 = DR1 - DR3;