Commit 1f69dced authored by Reyesrivera, Jose's avatar Reyesrivera, Jose
Browse files

helicity and vel series

parent 34924362
No preview for this file type
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*MT^2*(-2 - Eps^(-1) - DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/4 -
Log[Mu^2/MT^2] + 4*(3/4 + DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/4 +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/
(4*MH^2) + (Eps^(-1) + Log[Mu^2/MT^2])/4))*Mat[SUNT[Glu1, Glu2, 0, 0]])/
(MW*Pi*SW)
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*MT^2*(-2 - Eps^(-1) - DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/4 -
Log[Mu^2/MT^2] + 4*(3/4 + DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/4 +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/
(4*MH^2) + (Eps^(-1) + Log[Mu^2/MT^2])/4))*Mat[SUNT[Glu1, Glu2, 0, 0]])/
(MW*Pi*SW)
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
0
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
0
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
0
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
0
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*MT^2*(-2 - Eps^(-1) - DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/4 -
Log[Mu^2/MT^2] + 4*(3/4 + DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/4 +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/
(4*MH^2) + (Eps^(-1) + Log[Mu^2/MT^2])/4))*Mat[SUNT[Glu1, Glu2, 0, 0]])/
(MW*Pi*SW)
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*MT^2*(-2 - Eps^(-1) - DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/4 -
Log[Mu^2/MT^2] + 4*(3/4 + DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/4 +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/
(4*MH^2) + (Eps^(-1) + Log[Mu^2/MT^2])/4))*Mat[SUNT[Glu1, Glu2, 0, 0]])/
(MW*Pi*SW)
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
{V[5, {Glu2}], k[2], 0, {Sqrt[3]*ColorCharge}}} ->
{{S[1], k[3], MH, {}}, {V[5, {Glu4}], k[4], 0, {Sqrt[3]*ColorCharge}}}][
(Alfas*EL*GS*MT^2*
(((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S) -
DiscB[S, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S))*Sech[\[Eta]3])/
Sqrt[2] + (Sqrt[S]*(T + U)*
(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
(2*(MH^2 - S)) - Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/
(2*MT^2)]^2/(2*(MH^2 - S)))*Sech[\[Eta]3])/(2*Sqrt[2]) +
(Sqrt[S]*(2 + Eps^(-1) + DiscB[S, Sqrt[MT^2], Sqrt[MT^2]] +
Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
(4*(MH^2 - S)) - (S*DiscB[S, Sqrt[MT^2], Sqrt[MT^2]])/
(4*(MH^2 - S)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - S)) +
(Eps^(-1) + Log[Mu^2/MT^2])/4 -
(MT^2*Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/(2*MT^2)]^2)/
(4*(MH^2 - S))))*Sech[\[Eta]3])/Sqrt[2])/S +
(-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
2)) - Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) -
(MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
(MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
2)/(2*(MH^2 - U)^2) +
(MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
(2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/2) +
(2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
(U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
(MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
(4*(MH^2 - U))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] -
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(1 + Tanh[\[Eta]3]))/Sqrt[2]) -
(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
(2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
(2*MT^2)]^2/(2*(MH^2 - U)))*((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
(2*Sqrt[2]) - (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
(kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
(kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2] - Sqrt[2]*kT3^2*Sqrt[S]*
Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3]) - (kT3*(-3*S + T)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
(kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/Sqrt[2]))/U -
((2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
(T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
(MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
(4*(MH^2 - T))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) +
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(-1 + Tanh[\[Eta]3]))/Sqrt[2] -
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
(2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
(2*MT^2)]^2/(2*(MH^2 - T)))*
((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) -
(MH^2 - T)*(-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) +
(kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3]) - 2*(MH^2 - T)*
(-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
(kT3*(-3*S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
(Cos[\[Phi]3] - I*Sin[\[Phi]3]) -
((-S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/
Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
(MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
(2*MT^2)]^2)/(2*(MH^2 - T)^2) +
(MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
(2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3]) -
((-S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/
Sqrt[2]))/T))/(MW*Pi*SW)]
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
{V[5, {Glu2}], k[2], 0, {Sqrt[3]*ColorCharge}}} ->
{{S[1], k[3], MH, {}}, {V[5, {Glu4}], k[4], 0, {Sqrt[3]*ColorCharge}}}][
(Alfas*EL*GS*MT^2*
(((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
(MH^2 - (4*MT^2)/(1 - \[Beta]^2)) - DiscB[(4*MT^2)/(1 - \[Beta]^2),
Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - (4*MT^2)/(1 - \[Beta]^2)))*
Sech[\[Eta]3])/Sqrt[2] + (Sqrt[S]*(T + U)*
(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
(2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) + 2*Sqrt[
-((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/(1 - \[Beta]^
2))])/(2*MT^2)]^2/(2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))))*
Sech[\[Eta]3])/(2*Sqrt[2]) +
(Sqrt[S]*(2 + Eps^(-1) + DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2],
Sqrt[MT^2]] + Log[Mu^2/MT^2] -
4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
(4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
(MT^2*DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2], Sqrt[MT^2]])/
((1 - \[Beta]^2)*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
(2*MT^2)]^2)/(4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +
(Eps^(-1) + Log[Mu^2/MT^2])/4 -
(MT^2*Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) +
2*Sqrt[-((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/
(1 - \[Beta]^2))])/(2*MT^2)]^2)/
(4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2)))))*Sech[\[Eta]3])/Sqrt[2])/
S + (-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
(2*(MH^2 - U)) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
2)) - Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) -
(MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
(MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
2)/(2*(MH^2 - U)^2) +
(MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
(2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/2) +
(2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
(U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
(MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
(4*(MH^2 - U))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] -
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(1 + Tanh[\[Eta]3]))/Sqrt[2]) -
(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
(2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
(2*MT^2)]^2/(2*(MH^2 - U)))*((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
(2*Sqrt[2]) - (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
(kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
(kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2] - Sqrt[2]*kT3^2*Sqrt[S]*
Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3]) - (kT3*(-3*S + T)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
(kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/Sqrt[2]))/U -
((2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
(T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
(MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
(4*(MH^2 - T))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) +
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(-1 + Tanh[\[Eta]3]))/Sqrt[2] -
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
(2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
(2*MT^2)]^2/(2*(MH^2 - T)))*
((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) -
(MH^2 - T)*(-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) +
(kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3]) - 2*(MH^2 - T)*
(-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
(kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
(kT3*(-3*S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
(Cos[\[Phi]3] - I*Sin[\[Phi]3]) -
((-S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/
Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
(MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
(2*MT^2)]^2)/(2*(MH^2 - T)^2) +
(MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
(2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3]) -
((-S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/
Sqrt[2]))/T))/(MW*Pi*SW)]
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
{V[5, {Glu2}], k[2], 0, {Sqrt[3]*ColorCharge}}} ->
{{S[1], k[3], MH, {}}, {V[5, {Glu4}], k[4], 0, {Sqrt[3]*ColorCharge}}}][
(Alfas*EL*GS*MT^2*
((-((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S) -
DiscB[S, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S))*Sech[\[Eta]3])/
Sqrt[2]) - (Sqrt[S]*(T + U)*
(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
(2*(MH^2 - S)) - Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/
(2*MT^2)]^2/(2*(MH^2 - S)))*Sech[\[Eta]3])/(2*Sqrt[2]) -
(Sqrt[S]*(2 + Eps^(-1) + DiscB[S, Sqrt[MT^2], Sqrt[MT^2]] +
Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
(4*(MH^2 - S)) - (S*DiscB[S, Sqrt[MT^2], Sqrt[MT^2]])/
(4*(MH^2 - S)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - S)) +
(Eps^(-1) + Log[Mu^2/MT^2])/4 -
(MT^2*Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/(2*MT^2)]^2)/
(4*(MH^2 - S))))*Sech[\[Eta]3])/Sqrt[2])/S +
(-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
(Cos[\[Phi]3] + I*Sin[\[Phi]3]) + ((-S + T)*Sech[\[Eta]3]*
(Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/2)) -
Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
(MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
2)/(2*(MH^2 - U)^2) +
(MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
(2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3]) +
((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] +
Sinh[\[Eta]3 + I*\[Phi]3]))/2) +
(2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
(U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
(MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
(4*(MH^2 - U))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) +
(kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] +
(kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
(2*Sqrt[2])) -
(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
(2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
(2*MT^2)]^2/(2*(MH^2 - U)))*(-(Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
(2*Sqrt[2]) + (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
(kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
(2*Sqrt[2]) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
(2*Sqrt[2])) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
(-((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2]) +
Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3]) + (kT3*(-MH^2 + U)*Sech[\[Eta]3]*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] +
(kT3*(-3*S + T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
(2*Sqrt[2])))/U -
(-2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-(kT3*Sqrt[S]*Sech[\[Eta]3]*
(Cos[\[Phi]3] - I*Sin[\[Phi]3])) - ((-S + U)*Sech[\[Eta]3]*
(Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/2))/
Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
(MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
(2*MT^2)]^2)/(2*(MH^2 - T)^2) +
(MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
(2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) -
((-S + U)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
Sinh[\[Eta]3 + I*\[Phi]3]))/2))/Sqrt[2]) +
(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
(T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
(MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
(4*(MH^2 - T))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] -
(kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
(2*Sqrt[2]) - (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]) -
(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
(-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])) - (kT3*(-3*S + U)*Sech[\[Eta]3]*
(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2]) -
2*(MH^2 - T)*((Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) -
(kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
(2*Sqrt[2]))) -
(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
(2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
(2*MT^2)]^2/(2*(MH^2 - T)))*
(-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
(kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
(Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
(2*Sqrt[2]) - (MH^2 - T)*((Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) -
(kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
(Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
(2*Sqrt[2]))))/T))/(MW*Pi*SW)]
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
{V[5, {Glu2}], k[2], 0, {Sqrt[3]*ColorCharge}}} ->
{{S[1], k[3], MH, {}}, {V[5, {Glu4}], k[4], 0, {Sqrt[3]*ColorCharge}}}][
(Alfas*EL*GS*MT^2*
((-((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
(MH^2 - (4*MT^2)/(1 - \[Beta]^2)) -
DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2], Sqrt[MT^2]]/
(MH^2 - (4*MT^2)/(1 - \[Beta]^2)))*Sech[\[Eta]3])/Sqrt[2]) -
(Sqrt[S]*(T + U)*(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
(2*MT^2)]^2/(2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) + 2*Sqrt[
-((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/(1 - \[Beta]^
2))])/(2*MT^2)]^2/(2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))))*
Sech[\[Eta]3])/(2*Sqrt[2]) -
(Sqrt[S]*(2 + Eps^(-1) + DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2],
Sqrt[MT^2]] + Log[Mu^2/MT^2] -
4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
(4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
(MT^2*DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2], Sqrt[MT^2]])/
((1 - \[Beta]^2)*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +