Dear Vladyslav,
Since I was not able to reduce significantly the expression of amplitude^2, here I send you the output you asked me for the amplitude (without the ^2).
-(Spinor[Momentum[k2], MassChi[1], 1] . (GA[Lor1] . GA[7]*((-I/2)*CTW*g2*IndexSum[Conjugate[UV[2, j1]]*UV[1, j1], {j1, 3}] -
(I/2)*g1*STW*IndexSum[Conjugate[UV[2, j1]]*UV[1, j1], {j1, 3}] - (I/2)*CTW*g2*Conjugate[UV[2, 6]]*UV[1, 6] -
(I/2)*g1*STW*Conjugate[UV[2, 6]]*UV[1, 6] + (I/2)*CTW*g2*Conjugate[UV[2, 7]]*UV[1, 7] + (I/2)*g1*STW*Conjugate[UV[2, 7]]*UV[1, 7]) +
GA[Lor1] . GA[6]*((I/2)*CTW*g2*IndexSum[Conjugate[UV[1, j1]]*UV[2, j1], {j1, 3}] +
(I/2)*g1*STW*IndexSum[Conjugate[UV[1, j1]]*UV[2, j1], {j1, 3}] + (I/2)*CTW*g2*Conjugate[UV[1, 6]]*UV[2, 6] +
(I/2)*g1*STW*Conjugate[UV[1, 6]]*UV[2, 6] - (I/2)*CTW*g2*Conjugate[UV[1, 7]]*UV[2, 7] - (I/2)*g1*STW*Conjugate[UV[1, 7]]*UV[2, 7])) .
Spinor[-Momentum[k1], MassChi[2], 1]*Spinor[Momentum[k3], MassChi[1], 1] .
(GA[Lor1] . GA[7]*((-I/2)*CTW*g2*IndexSum[Conjugate[UV[4, j1]]*UV[1, j1], {j1, 3}] -
(I/2)*g1*STW*IndexSum[Conjugate[UV[4, j1]]*UV[1, j1], {j1, 3}] - (I/2)*CTW*g2*Conjugate[UV[4, 6]]*UV[1, 6] -
(I/2)*g1*STW*Conjugate[UV[4, 6]]*UV[1, 6] + (I/2)*CTW*g2*Conjugate[UV[4, 7]]*UV[1, 7] + (I/2)*g1*STW*Conjugate[UV[4, 7]]*UV[1, 7]) +
GA[Lor1] . GA[6]*((I/2)*CTW*g2*IndexSum[Conjugate[UV[1, j1]]*UV[4, j1], {j1, 3}] +
(I/2)*g1*STW*IndexSum[Conjugate[UV[1, j1]]*UV[4, j1], {j1, 3}] + (I/2)*CTW*g2*Conjugate[UV[1, 6]]*UV[4, 6] +
(I/2)*g1*STW*Conjugate[UV[1, 6]]*UV[4, 6] - (I/2)*CTW*g2*Conjugate[UV[1, 7]]*UV[4, 7] - (I/2)*g1*STW*Conjugate[UV[1, 7]]*UV[4, 7])) .
Spinor[Momentum[p], MassChi[4], 1]*FAD[{k1 + k2, MassVZ}, Dimension -> 4]) +
Spinor[Momentum[k2], MassChi[1], 1] . (GA[Lor2] . GA[7]*((-I/2)*CTW*g2*IndexSum[Conjugate[UV[4, j1]]*UV[1, j1], {j1, 3}] -
(I/2)*g1*STW*IndexSum[Conjugate[UV[4, j1]]*UV[1, j1], {j1, 3}] - (I/2)*CTW*g2*Conjugate[UV[4, 6]]*UV[1, 6] -
(I/2)*g1*STW*Conjugate[UV[4, 6]]*UV[1, 6] + (I/2)*CTW*g2*Conjugate[UV[4, 7]]*UV[1, 7] + (I/2)*g1*STW*Conjugate[UV[4, 7]]*UV[1, 7]) +
GA[Lor2] . GA[6]*((I/2)*CTW*g2*IndexSum[Conjugate[UV[1, j1]]*UV[4, j1], {j1, 3}] +
(I/2)*g1*STW*IndexSum[Conjugate[UV[1, j1]]*UV[4, j1], {j1, 3}] + (I/2)*CTW*g2*Conjugate[UV[1, 6]]*UV[4, 6] +
(I/2)*g1*STW*Conjugate[UV[1, 6]]*UV[4, 6] - (I/2)*CTW*g2*Conjugate[UV[1, 7]]*UV[4, 7] - (I/2)*g1*STW*Conjugate[UV[1, 7]]*UV[4, 7])) .
Spinor[Momentum[p], MassChi[4], 1]*Spinor[Momentum[k3], MassChi[1], 1] .
(GA[Lor2] . GA[7]*((-I/2)*CTW*g2*IndexSum[Conjugate[UV[2, j1]]*UV[1, j1], {j1, 3}] -
(I/2)*g1*STW*IndexSum[Conjugate[UV[2, j1]]*UV[1, j1], {j1, 3}] - (I/2)*CTW*g2*Conjugate[UV[2, 6]]*UV[1, 6] -
(I/2)*g1*STW*Conjugate[UV[2, 6]]*UV[1, 6] + (I/2)*CTW*g2*Conjugate[UV[2, 7]]*UV[1, 7] + (I/2)*g1*STW*Conjugate[UV[2, 7]]*UV[1, 7]) +
GA[Lor2] . GA[6]*((I/2)*CTW*g2*IndexSum[Conjugate[UV[1, j1]]*UV[2, j1], {j1, 3}] +
(I/2)*g1*STW*IndexSum[Conjugate[UV[1, j1]]*UV[2, j1], {j1, 3}] + (I/2)*CTW*g2*Conjugate[UV[1, 6]]*UV[2, 6] +
(I/2)*g1*STW*Conjugate[UV[1, 6]]*UV[2, 6] - (I/2)*CTW*g2*Conjugate[UV[1, 7]]*UV[2, 7] - (I/2)*g1*STW*Conjugate[UV[1, 7]]*UV[2, 7])) .
Spinor[-Momentum[k1], MassChi[2], 1]*FAD[{k1 + k3, MassVZ}, Dimension -> 4] -
Spinor[Momentum[k1], MassChi[2], 1] . (GA[Lor2] . GA[7]*((-I/2)*CTW*g2*IndexSum[Conjugate[UV[4, j1]]*UV[2, j1], {j1, 3}] -
(I/2)*g1*STW*IndexSum[Conjugate[UV[4, j1]]*UV[2, j1], {j1, 3}] - (I/2)*CTW*g2*Conjugate[UV[4, 6]]*UV[2, 6] -
(I/2)*g1*STW*Conjugate[UV[4, 6]]*UV[2, 6] + (I/2)*CTW*g2*Conjugate[UV[4, 7]]*UV[2, 7] + (I/2)*g1*STW*Conjugate[UV[4, 7]]*UV[2, 7]) +
GA[Lor2] . GA[6]*((I/2)*CTW*g2*IndexSum[Conjugate[UV[2, j1]]*UV[4, j1], {j1, 3}] +
(I/2)*g1*STW*IndexSum[Conjugate[UV[2, j1]]*UV[4, j1], {j1, 3}] + (I/2)*CTW*g2*Conjugate[UV[2, 6]]*UV[4, 6] +
(I/2)*g1*STW*Conjugate[UV[2, 6]]*UV[4, 6] - (I/2)*CTW*g2*Conjugate[UV[2, 7]]*UV[4, 7] - (I/2)*g1*STW*Conjugate[UV[2, 7]]*UV[4, 7])) .
Spinor[Momentum[p], MassChi[4], 1]*Spinor[Momentum[k3], MassChi[1], 1] .
(GA[Lor2] . GA[6]*((I/2)*CTW*g2*IndexSum[Conjugate[UV[1, j1]]*UV[1, j1], {j1, 3}] +
(I/2)*g1*STW*IndexSum[Conjugate[UV[1, j1]]*UV[1, j1], {j1, 3}] + (I/2)*CTW*g2*Conjugate[UV[1, 6]]*UV[1, 6] +
(I/2)*g1*STW*Conjugate[UV[1, 6]]*UV[1, 6] - (I/2)*CTW*g2*Conjugate[UV[1, 7]]*UV[1, 7] - (I/2)*g1*STW*Conjugate[UV[1, 7]]*UV[1, 7]) +
GA[Lor2] . GA[7]*((-I/2)*CTW*g2*IndexSum[Conjugate[UV[1, j1]]*UV[1, j1], {j1, 3}] -
(I/2)*g1*STW*IndexSum[Conjugate[UV[1, j1]]*UV[1, j1], {j1, 3}] - (I/2)*CTW*g2*Conjugate[UV[1, 6]]*UV[1, 6] -
(I/2)*g1*STW*Conjugate[UV[1, 6]]*UV[1, 6] + (I/2)*CTW*g2*Conjugate[UV[1, 7]]*UV[1, 7] + (I/2)*g1*STW*Conjugate[UV[1, 7]]*UV[1, 7])) .
Spinor[-Momentum[k2], MassChi[1], 1]*FAD[{k2 + k3, MassVZ}, Dimension -> 4]
All the UV( , ) terms correspond to a mixing matrix elements.
Thank you very much for your time!
Best,
Paulina
This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST