FCMatrixIsolate
FCMatrixIsolate[exp]
wraps the occurring Dirac, Pauli and color objects into heads specified by the user.
See also
Overview, FCDiracIsolate, FCColorIsolate, FCPauliIsolate.
Examples
ex = -e eQ gs Spinor[Momentum[k2], mu, 1] . GS[Polarization[k1, -I,
Transversality -> True]] . (mu + GS[k1 + k2]) . GS[Polarization[p2,
I]] . Spinor[Momentum[p1], mu, 1] FAD[{-k1 - k2, mu}, Dimension -> 4]*
SUNTF[{Glu3}, Col4, Col1] - e eQ gs DCHN[Spinor[Momentum[k2], mu,
1], i] DCHN[GS[Polarization[p2, I]] . (mu + GS[k2 - p2]) . GS[Polarization[k1,
-I, Transversality -> True]], i, j] DCHN[Spinor[Momentum[p1], mu, 1], j]*
FAD[{-k2 + p2, mu}, Dimension -> 4] SUNTF[{Glu3}, Col4, Col1]
−(−k1−k2)2−mu2eeQgsTCol4Col1Glu3(φ(k2,mu)).(γˉ⋅εˉ∗(k1)).(γˉ⋅(k1+k2)+mu).(γˉ⋅εˉ(p2)).(φ(p1,mu))−(p2−k2)2−mu2eeQgsTCol4Col1Glu3(φ(k2,mu))i(φ(p1,mu))j((γˉ⋅εˉ(p2)).(γˉ⋅(k2−p2)+mu).(γˉ⋅εˉ∗(k1)))ij
FCMatrixIsolate[ex, FCDiracIsolate -> {dch}, FCColorIsolate -> {cch},
FCPauliIsolate -> {pch}, Head -> re, FCE -> True]
cch(TCol4Col1Glu3)re(−(p2−k2)2−mu2eeQgs)dch((φ(k2,mu))i(φ(p1,mu))j((γˉ⋅εˉ(p2)).(γˉ⋅(k2−p2)+mu).(γˉ⋅εˉ∗(k1)))ij)+cch(TCol4Col1Glu3)re(−(−k1−k2)2−mu2eeQgs)dch((φ(k2,mu)).(γˉ⋅εˉ∗(k1)).(γˉ⋅(k1+k2)+mu).(γˉ⋅εˉ(p2)).(φ(p1,mu)))