Name: Rolf Mertig Date: 03/25/05-08:39:36 PM Z
Hello,
this:
nospinors[x_] := x /.
{Spinor[__] :> Sequence[],
SpinorU[__] :> Sequence[],
SpinorUBar[__] :>
Sequence[],
SpinorV[__] :> Sequence[],
SpinorVBar[__] :>
Sequence[]};
InputForm[
FCE[nospinors[Calc[SpinorUBar[p1, m] .
(GS[p1] + GS[q] - m) . SpinorUBar[p2,
m]]]]]
will return
GS[q]
--
Regards,
Rolf