Name: Rolf Mertig (email_not_shown)
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



This archive was generated by hypermail 2b29 : 02/22/17-09:20:02 AM Z CET