Commit 48d7d805 authored by Reyesrivera, Jose's avatar Reyesrivera, Jose
Browse files

del test

parent 38bac032
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*MT2*Mat[SUNT[Glu1, Glu2, 0, 0]]*
((B0i[bb0, MH2, MT2, MT2] - 4*C0i[cc00, 0, MH2, 0, MT2, MT2, MT2])*
Pair[e[1], e[2]] + 4*C0i[cc12, 0, MH2, 0, MT2, MT2, MT2]*Pair[e[1], k[2]]*
Pair[e[2], k[1]] - (C0i[cc0, 0, MH2, 0, MT2, MT2, MT2]*
(-(MH2*Pair[e[1], e[2]]) + 2*Pair[e[1], k[2]]*Pair[e[2], k[1]]))/2))/
(MW*Pi*SW)
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*MT^2*(-4*MH^2 + (MH^2 - 4*MT^2)*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^4 - 4*MH^2*MT^2])/(2*MT^2)]^2)*
Mat[SUNT[Glu1, Glu2, 0, 0]]*(MH^2*Pair[e[1], e[2]] -
2*Pair[e[1], k[2]]*Pair[e[2], k[1]]))/(4*MH^4*MW*Pi*SW)
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*GS*MT2*Mat[SUNT[Glu1, Glu2, Glu4, 0, 0]]*
(Den[S, 0]*((B0i[bb0, S, MT2, MT2] - 4*C0i[cc00, MH2, S, 0, MT2, MT2,
MT2])*(2*Pair[e[1], k[2]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], k[1]] + Pair[e[1], e[2]]*
(Pair[ec[4], k[1]] - Pair[ec[4], k[2]])) -
2*(C0i[cc11, MH2, S, 0, MT2, MT2, MT2] + C0i[cc12, MH2, S, 0, MT2, MT2,
MT2])*((-T + U)*Pair[e[1], e[2]] +
4*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[3]]))*Pair[ec[4], k[3]] -
C0i[cc1, MH2, S, 0, MT2, MT2, MT2]*(2*(-MH2 + S)*Pair[e[1], k[2]]*
Pair[e[2], ec[4]] + 2*(MH2 - S)*Pair[e[1], ec[4]]*Pair[e[2], k[1]] +
8*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[3]])*Pair[ec[4], k[3]] - Pair[e[1], e[2]]*
(2*(T + U)*Pair[ec[4], k[1]] + (T - 3*U)*Pair[ec[4], k[3]])) -
C0i[cc0, MH2, S, 0, MT2, MT2, MT2]*((-MH2 + S)*Pair[e[1], k[2]]*
Pair[e[2], ec[4]] + (MH2 - S)*Pair[e[1], ec[4]]*Pair[e[2], k[1]] +
2*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[3]])*Pair[ec[4], k[3]] - Pair[e[1], e[2]]*
((T + U)*Pair[ec[4], k[1]] - U*Pair[ec[4], k[3]]))) +
Den[U, 0]*((B0i[bb0, U, MT2, MT2] - 4*C0i[cc00, 0, U, MH2, MT2, MT2,
MT2])*(2*Pair[e[1], k[4]]*Pair[e[2], ec[4]] -
Pair[e[1], ec[4]]*(Pair[e[2], k[1]] + Pair[e[2], k[4]]) +
2*Pair[e[1], e[2]]*Pair[ec[4], k[1]]) -
2*C0i[cc12, 0, U, MH2, MT2, MT2, MT2]*Pair[e[2], k[3]]*
((-S + T)*Pair[e[1], ec[4]] + 4*(Pair[e[1], k[2]]*Pair[ec[4], k[1]] +
Pair[e[1], k[4]]*Pair[ec[4], k[2]])) -
C0i[cc0, 0, U, MH2, MT2, MT2, MT2]*((-MH2 + U)*Pair[e[1], k[4]]*
Pair[e[2], ec[4]] - Pair[e[1], ec[4]]*((-MH2 + U)*Pair[e[2], k[1]] +
S*Pair[e[2], k[3]]) + (-MH2 + U)*Pair[e[1], e[2]]*
Pair[ec[4], k[1]] + 2*Pair[e[2], k[3]]*
(Pair[e[1], k[2]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
Pair[ec[4], k[2]])) - 2*C0i[cc22, 0, U, MH2, MT2, MT2, MT2]*
Pair[e[2], k[3]]*((-S + T)*Pair[e[1], ec[4]] +
4*(Pair[e[1], k[3]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
Pair[ec[4], k[3]])) - C0i[cc2, 0, U, MH2, MT2, MT2, MT2]*
(2*(-MH2 + U)*Pair[e[1], k[4]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*(2*(S + T)*Pair[e[2], k[1]] +
(-3*S + T)*Pair[e[2], k[3]]) + 2*(-MH2 + U)*Pair[e[1], e[2]]*
Pair[ec[4], k[1]] + 8*Pair[e[2], k[3]]*
(Pair[e[1], k[3]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
Pair[ec[4], k[3]]))) - Den[T, 0]*
((B0i[bb0, T, MT2, MT2] - 4*C0i[cc00, MH2, T, 0, MT2, MT2, MT2])*
(-((Pair[e[1], k[2]] + Pair[e[1], k[4]])*Pair[e[2], ec[4]]) +
2*Pair[e[1], ec[4]]*Pair[e[2], k[4]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], k[2]]) - C0i[cc0, MH2, T, 0, MT2, MT2, MT2]*
(((S + U)*Pair[e[1], k[2]] - S*Pair[e[1], k[3]])*Pair[e[2], ec[4]] -
(MH2 - T)*(Pair[e[1], ec[4]]*Pair[e[2], k[4]] + Pair[e[1], e[2]]*
Pair[ec[4], k[2]]) + 2*Pair[e[1], k[3]]*
(Pair[e[2], k[4]]*Pair[ec[4], k[1]] + Pair[e[2], k[1]]*
Pair[ec[4], k[2]])) - C0i[cc1, MH2, T, 0, MT2, MT2, MT2]*
((2*(S + U)*Pair[e[1], k[2]] + (-3*S + U)*Pair[e[1], k[3]])*
Pair[e[2], ec[4]] - 2*(MH2 - T)*(Pair[e[1], ec[4]]*
Pair[e[2], k[4]] + Pair[e[1], e[2]]*Pair[ec[4], k[2]]) +
8*Pair[e[1], k[3]]*(Pair[e[2], k[3]]*Pair[ec[4], k[2]] +
Pair[e[2], k[4]]*Pair[ec[4], k[3]])) -
2*(C0i[cc12, MH2, T, 0, MT2, MT2, MT2]*Pair[e[1], k[3]]*
((-S + U)*Pair[e[2], ec[4]] +
4*(-(Pair[e[2], k[3]]*Pair[ec[4], k[1]]) + Pair[e[2], k[1]]*
Pair[ec[4], k[3]])) + C0i[cc11, MH2, T, 0, MT2, MT2, MT2]*
Pair[e[1], k[3]]*((-S + U)*Pair[e[2], ec[4]] +
4*(Pair[e[2], k[3]]*Pair[ec[4], k[2]] + Pair[e[2], k[4]]*
Pair[ec[4], k[3]]))))))/(MW*Pi*SW) -
(Alfas*EL*GS*MT2*Mat[SUNT[Glu1, Glu4, Glu2, 0, 0]]*
(Den[S, 0]*((B0i[bb0, S, MT2, MT2] - 4*C0i[cc00, MH2, S, 0, MT2, MT2,
MT2])*(2*Pair[e[1], k[2]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], k[1]] + Pair[e[1], e[2]]*
(Pair[ec[4], k[1]] - Pair[ec[4], k[2]])) -
2*(C0i[cc11, MH2, S, 0, MT2, MT2, MT2] + C0i[cc12, MH2, S, 0, MT2, MT2,
MT2])*((-T + U)*Pair[e[1], e[2]] +
4*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[3]]))*Pair[ec[4], k[3]] -
C0i[cc1, MH2, S, 0, MT2, MT2, MT2]*(2*(-MH2 + S)*Pair[e[1], k[2]]*
Pair[e[2], ec[4]] + 2*(MH2 - S)*Pair[e[1], ec[4]]*Pair[e[2], k[1]] +
8*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[3]])*Pair[ec[4], k[3]] - Pair[e[1], e[2]]*
(2*(T + U)*Pair[ec[4], k[1]] + (T - 3*U)*Pair[ec[4], k[3]])) -
C0i[cc0, MH2, S, 0, MT2, MT2, MT2]*((-MH2 + S)*Pair[e[1], k[2]]*
Pair[e[2], ec[4]] + (MH2 - S)*Pair[e[1], ec[4]]*Pair[e[2], k[1]] +
2*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[3]])*Pair[ec[4], k[3]] - Pair[e[1], e[2]]*
((T + U)*Pair[ec[4], k[1]] - U*Pair[ec[4], k[3]]))) +
Den[U, 0]*((B0i[bb0, U, MT2, MT2] - 4*C0i[cc00, 0, U, MH2, MT2, MT2,
MT2])*(2*Pair[e[1], k[4]]*Pair[e[2], ec[4]] -
Pair[e[1], ec[4]]*(Pair[e[2], k[1]] + Pair[e[2], k[4]]) +
2*Pair[e[1], e[2]]*Pair[ec[4], k[1]]) -
2*C0i[cc12, 0, U, MH2, MT2, MT2, MT2]*Pair[e[2], k[3]]*
((-S + T)*Pair[e[1], ec[4]] + 4*(Pair[e[1], k[2]]*Pair[ec[4], k[1]] +
Pair[e[1], k[4]]*Pair[ec[4], k[2]])) -
C0i[cc0, 0, U, MH2, MT2, MT2, MT2]*((-MH2 + U)*Pair[e[1], k[4]]*
Pair[e[2], ec[4]] - Pair[e[1], ec[4]]*((-MH2 + U)*Pair[e[2], k[1]] +
S*Pair[e[2], k[3]]) + (-MH2 + U)*Pair[e[1], e[2]]*
Pair[ec[4], k[1]] + 2*Pair[e[2], k[3]]*
(Pair[e[1], k[2]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
Pair[ec[4], k[2]])) - 2*C0i[cc22, 0, U, MH2, MT2, MT2, MT2]*
Pair[e[2], k[3]]*((-S + T)*Pair[e[1], ec[4]] +
4*(Pair[e[1], k[3]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
Pair[ec[4], k[3]])) - C0i[cc2, 0, U, MH2, MT2, MT2, MT2]*
(2*(-MH2 + U)*Pair[e[1], k[4]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*(2*(S + T)*Pair[e[2], k[1]] +
(-3*S + T)*Pair[e[2], k[3]]) + 2*(-MH2 + U)*Pair[e[1], e[2]]*
Pair[ec[4], k[1]] + 8*Pair[e[2], k[3]]*
(Pair[e[1], k[3]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
Pair[ec[4], k[3]]))) - Den[T, 0]*
((B0i[bb0, T, MT2, MT2] - 4*C0i[cc00, MH2, T, 0, MT2, MT2, MT2])*
(-((Pair[e[1], k[2]] + Pair[e[1], k[4]])*Pair[e[2], ec[4]]) +
2*Pair[e[1], ec[4]]*Pair[e[2], k[4]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], k[2]]) - C0i[cc0, MH2, T, 0, MT2, MT2, MT2]*
(((S + U)*Pair[e[1], k[2]] - S*Pair[e[1], k[3]])*Pair[e[2], ec[4]] -
(MH2 - T)*(Pair[e[1], ec[4]]*Pair[e[2], k[4]] + Pair[e[1], e[2]]*
Pair[ec[4], k[2]]) + 2*Pair[e[1], k[3]]*
(Pair[e[2], k[4]]*Pair[ec[4], k[1]] + Pair[e[2], k[1]]*
Pair[ec[4], k[2]])) - C0i[cc1, MH2, T, 0, MT2, MT2, MT2]*
((2*(S + U)*Pair[e[1], k[2]] + (-3*S + U)*Pair[e[1], k[3]])*
Pair[e[2], ec[4]] - 2*(MH2 - T)*(Pair[e[1], ec[4]]*
Pair[e[2], k[4]] + Pair[e[1], e[2]]*Pair[ec[4], k[2]]) +
8*Pair[e[1], k[3]]*(Pair[e[2], k[3]]*Pair[ec[4], k[2]] +
Pair[e[2], k[4]]*Pair[ec[4], k[3]])) -
2*(C0i[cc12, MH2, T, 0, MT2, MT2, MT2]*Pair[e[1], k[3]]*
((-S + U)*Pair[e[2], ec[4]] +
4*(-(Pair[e[2], k[3]]*Pair[ec[4], k[1]]) + Pair[e[2], k[1]]*
Pair[ec[4], k[3]])) + C0i[cc11, MH2, T, 0, MT2, MT2, MT2]*
Pair[e[1], k[3]]*((-S + U)*Pair[e[2], ec[4]] +
4*(Pair[e[2], k[3]]*Pair[ec[4], k[2]] + Pair[e[2], k[4]]*
Pair[ec[4], k[3]]))))))/(MW*Pi*SW)
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*GS*MT^2*(Mat[SUNT[Glu1, Glu2, Glu4, 0, 0]] -
Mat[SUNT[Glu1, Glu4, Glu2, 0, 0]])*
(-((2*(MH^2 - S)*(MH^2 - S + MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
MH^2*DiscB[S, Sqrt[MT^2], Sqrt[MT^2]] +
MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[MH^4 - 4*MH^2*MT^2])/(2*MT^2)]^2 -
MT^2*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)]^2)*
(2*Pair[e[1], k[2]]*Pair[e[2], ec[4]] - 2*Pair[e[1], ec[4]]*
Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[4], k[1]] -
Pair[ec[4], k[2]])) + 2*(MH^2 - S + (2*MH^2 - S)*
DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] + (-2*MH^2 + S)*
DiscB[S, Sqrt[MT^2], Sqrt[MT^2]] +
MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[MH^4 - 4*MH^2*MT^2])/(2*MT^2)]^2 -
MT^2*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)]^2)*
((T - U)*Pair[e[1], e[2]] + 4*Pair[e[1], k[3]]*Pair[e[2], k[1]] -
4*Pair[e[1], k[2]]*Pair[e[2], k[3]])*Pair[ec[4], k[3]] +
2*(MH^2 - S)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
DiscB[S, Sqrt[MT^2], Sqrt[MT^2]])*(2*(-MH^2 + S)*Pair[e[1], k[2]]*
Pair[e[2], ec[4]] + 2*(MH^2 - S)*Pair[e[1], ec[4]]*
Pair[e[2], k[1]] + 8*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) +
Pair[e[1], k[2]]*Pair[e[2], k[3]])*Pair[ec[4], k[3]] -
Pair[e[1], e[2]]*(2*(T + U)*Pair[ec[4], k[1]] +
(T - 3*U)*Pair[ec[4], k[3]])) + (MH^2 - S)*
(Log[(-MH^2 + 2*MT^2 + Sqrt[MH^4 - 4*MH^2*MT^2])/(2*MT^2)]^2 -
Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)]^2)*
((-MH^2 + S)*Pair[e[1], k[2]]*Pair[e[2], ec[4]] +
(MH^2 - S)*Pair[e[1], ec[4]]*Pair[e[2], k[1]] +
2*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[3]])*Pair[ec[4], k[3]] - Pair[e[1], e[2]]*
((T + U)*Pair[ec[4], k[1]] - U*Pair[ec[4], k[3]])))/
((MH^2 - S)^2*S)) +
(-2*(MH^2 - U)*(MH^2 - U + MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] +
MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[MH^4 - 4*MH^2*MT^2])/(2*MT^2)]^2 -
MT^2*Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/(2*MT^2)]^2)*
(2*Pair[e[1], k[4]]*Pair[e[2], ec[4]] - Pair[e[1], ec[4]]*
(Pair[e[2], k[1]] + Pair[e[2], k[4]]) + 2*Pair[e[1], e[2]]*
Pair[ec[4], k[1]]) +
2*(MH^2 - U + MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] +
MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[MH^4 - 4*MH^2*MT^2])/(2*MT^2)]^2 -
MT^2*Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/(2*MT^2)]^2)*
Pair[e[2], k[3]]*((-S + T)*Pair[e[1], ec[4]] +
4*(Pair[e[1], k[2]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
Pair[ec[4], k[2]])) - (MH^2 - U)*
(Log[(-MH^2 + 2*MT^2 + Sqrt[MH^4 - 4*MH^2*MT^2])/(2*MT^2)]^2 -
Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/(2*MT^2)]^2)*
(Pair[e[1], ec[4]]*((MH^2 - U)*Pair[e[2], k[1]] - S*Pair[e[2], k[3]]) +
((-MH^2 + U)*Pair[e[1], e[2]] + 2*Pair[e[1], k[2]]*Pair[e[2], k[3]])*
Pair[ec[4], k[1]] + Pair[e[1], k[4]]*((-MH^2 + U)*Pair[e[2], ec[4]] +
2*Pair[e[2], k[3]]*Pair[ec[4], k[2]])) +
2*(MH^2 - U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])*Pair[e[2], k[3]]*
((-S + T)*Pair[e[1], ec[4]] + 4*(Pair[e[1], k[3]]*Pair[ec[4], k[1]] +
Pair[e[1], k[4]]*Pair[ec[4], k[3]])) -
2*(MH^2 - U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])*
(Pair[e[1], ec[4]]*(2*(S + T)*Pair[e[2], k[1]] +
(-3*S + T)*Pair[e[2], k[3]]) + 2*((-MH^2 + U)*Pair[e[1], e[2]] +
4*Pair[e[1], k[3]]*Pair[e[2], k[3]])*Pair[ec[4], k[1]] +
Pair[e[1], k[4]]*(-2*(MH^2 - U)*Pair[e[2], ec[4]] +
8*Pair[e[2], k[3]]*Pair[ec[4], k[3]])))/((MH^2 - U)^2*U) +
(-2*(MH^2 - T)*(MH^2 - T + MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] +
MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[MH^4 - 4*MH^2*MT^2])/(2*MT^2)]^2 -
MT^2*Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/(2*MT^2)]^2)*
(Pair[e[1], k[2]]*Pair[e[2], ec[4]] + Pair[e[1], k[4]]*
Pair[e[2], ec[4]] - 2*(Pair[e[1], ec[4]]*Pair[e[2], k[4]] +
Pair[e[1], e[2]]*Pair[ec[4], k[2]])) +
(MH^2 - T)*(Log[(-MH^2 + 2*MT^2 + Sqrt[MH^4 - 4*MH^2*MT^2])/(2*MT^2)]^
2 - Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/(2*MT^2)]^2)*
((S + U)*Pair[e[1], k[2]]*Pair[e[2], ec[4]] -
(MH^2 - T)*(Pair[e[1], ec[4]]*Pair[e[2], k[4]] +
Pair[e[1], e[2]]*Pair[ec[4], k[2]]) + Pair[e[1], k[3]]*
(-(S*Pair[e[2], ec[4]]) + 2*Pair[e[2], k[4]]*Pair[ec[4], k[1]] +
2*Pair[e[2], k[1]]*Pair[ec[4], k[2]])) - 2*Pair[e[1], k[3]]*
((MH^2 - T + MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] +
MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[MH^4 - 4*MH^2*MT^2])/(2*MT^2)]^2 -
MT^2*Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/(2*MT^2)]^2)*
((-S + U)*Pair[e[2], ec[4]] - 4*Pair[e[2], k[3]]*Pair[ec[4], k[1]] +
4*Pair[e[2], k[1]]*Pair[ec[4], k[3]]) +
(MH^2 - T)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] -
DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])*((-S + U)*Pair[e[2], ec[4]] +
4*(Pair[e[2], k[3]]*Pair[ec[4], k[2]] + Pair[e[2], k[4]]*
Pair[ec[4], k[3]]))) + 2*(MH^2 - T)*
(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] - DiscB[T, Sqrt[MT^2],
Sqrt[MT^2]])*(2*(S + U)*Pair[e[1], k[2]]*Pair[e[2], ec[4]] -
2*(MH^2 - T)*(Pair[e[1], ec[4]]*Pair[e[2], k[4]] +
Pair[e[1], e[2]]*Pair[ec[4], k[2]]) + Pair[e[1], k[3]]*
((-3*S + U)*Pair[e[2], ec[4]] +
8*(Pair[e[2], k[3]]*Pair[ec[4], k[2]] + Pair[e[2], k[4]]*
Pair[ec[4], k[3]]))))/((MH^2 - T)^2*T)))/(2*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}},
{V[5, {Glu5}], k[5], 0, {Sqrt[3]*ColorCharge}}}][
(B*((-4*Alfas^2*EL*MT^2*(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] +
Log[Mu^2/MT^2])*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]]))/(MW*SW) +
(16*Alfas^2*EL*MT^2*(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)))*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]]))/(MW*SW) -
(16*Alfas^2*EL*MT^2*(-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))*Pair[e[1], k[3]]*
(-(Pair[e[2], k[1]]*Pair[ec[4], ec[5]]) - Pair[e[2], ec[5]]*
Pair[ec[4], k[1]] + 2*Pair[e[2], ec[4]]*Pair[ec[5], k[1]]))/
(MW*SW) + (2*Alfas^2*EL*MT^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)))*
(((-MH^2 + T)*Pair[e[1], e[2]] + 2*Pair[e[1], k[3]]*Pair[e[2], k[1]])*
Pair[ec[4], ec[5]] + Pair[e[2], ec[5]]*
((-MH^2 + T)*Pair[e[1], ec[4]] + 2*Pair[e[1], k[3]]*
Pair[ec[4], k[1]]) - 2*Pair[e[2], ec[4]]*
((-MH^2 + T)*Pair[e[1], ec[5]] + 2*Pair[e[1], k[3]]*
Pair[ec[5], k[1]])))/(MW*SW) +
(16*Alfas^2*EL*MT^2*(-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)))*
Pair[e[1], k[3]]*(Pair[e[2], k[3]]*Pair[ec[4], ec[5]] +
Pair[e[2], ec[5]]*Pair[ec[4], k[3]] - 2*Pair[e[2], ec[4]]*
Pair[ec[5], k[3]]))/(MW*SW) +
(4*Alfas^2*EL*MT^2*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
(((-MH^2 + T)*Pair[e[1], e[2]] + 2*Pair[e[1], k[3]]*
(Pair[e[2], k[1]] + Pair[e[2], k[3]]))*Pair[ec[4], ec[5]] +
Pair[e[2], ec[5]]*((-MH^2 + T)*Pair[e[1], ec[4]] +
2*Pair[e[1], k[3]]*(Pair[ec[4], k[1]] + Pair[ec[4], k[3]])) -
2*Pair[e[2], ec[4]]*((-MH^2 + T)*Pair[e[1], ec[5]] +
2*Pair[e[1], k[3]]*(Pair[ec[5], k[1]] + Pair[ec[5], k[3]]))))/
(MW*SW)))/T +
(C*((-4*Alfas^2*EL*MT^2*(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] +
Log[Mu^2/MT^2])*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]]))/(MW*SW) +
(16*Alfas^2*EL*MT^2*(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)))*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]]))/(MW*SW) -
(16*Alfas^2*EL*MT^2*(-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))*Pair[e[1], k[3]]*
(-(Pair[e[2], k[1]]*Pair[ec[4], ec[5]]) - Pair[e[2], ec[5]]*
Pair[ec[4], k[1]] + 2*Pair[e[2], ec[4]]*Pair[ec[5], k[1]]))/
(MW*SW) + (2*Alfas^2*EL*MT^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)))*
(((-MH^2 + T)*Pair[e[1], e[2]] + 2*Pair[e[1], k[3]]*Pair[e[2], k[1]])*
Pair[ec[4], ec[5]] + Pair[e[2], ec[5]]*
((-MH^2 + T)*Pair[e[1], ec[4]] + 2*Pair[e[1], k[3]]*
Pair[ec[4], k[1]]) - 2*Pair[e[2], ec[4]]*
((-MH^2 + T)*Pair[e[1], ec[5]] + 2*Pair[e[1], k[3]]*
Pair[ec[5], k[1]])))/(MW*SW) +
(16*Alfas^2*EL*MT^2*(-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)))*
Pair[e[1], k[3]]*(Pair[e[2], k[3]]*Pair[ec[4], ec[5]] +
Pair[e[2], ec[5]]*Pair[ec[4], k[3]] - 2*Pair[e[2], ec[4]]*
Pair[ec[5], k[3]]))/(MW*SW) +
(4*Alfas^2*EL*MT^2*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
(((-MH^2 + T)*Pair[e[1], e[2]] + 2*Pair[e[1], k[3]]*
(Pair[e[2], k[1]] + Pair[e[2], k[3]]))*Pair[ec[4], ec[5]] +
Pair[e[2], ec[5]]*((-MH^2 + T)*Pair[e[1], ec[4]] +
2*Pair[e[1], k[3]]*(Pair[ec[4], k[1]] + Pair[ec[4], k[3]])) -
2*Pair[e[2], ec[4]]*((-MH^2 + T)*Pair[e[1], ec[5]] +
2*Pair[e[1], k[3]]*(Pair[ec[5], k[1]] + Pair[ec[5], k[3]]))))/
(MW*SW)))/T +
(A*((-4*Alfas^2*EL*MT^2*(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] +
Log[Mu^2/MT^2])*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] - 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]]))/(MW*SW) +
(16*Alfas^2*EL*MT^2*(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)))*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] - 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]]))/(MW*SW) +
(16*Alfas^2*EL*MT^2*(-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))*Pair[e[1], k[3]]*
(-2*Pair[e[2], k[1]]*Pair[ec[4], ec[5]] + Pair[e[2], ec[5]]*
Pair[ec[4], k[1]] + Pair[e[2], ec[4]]*Pair[ec[5], k[1]]))/(MW*SW) -
(2*Alfas^2*EL*MT^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)))*
(2*((-MH^2 + T)*Pair[e[1], e[2]] + 2*Pair[e[1], k[3]]*
Pair[e[2], k[1]])*Pair[ec[4], ec[5]] - Pair[e[2], ec[5]]*
((-MH^2 + T)*Pair[e[1], ec[4]] + 2*Pair[e[1], k[3]]*
Pair[ec[4], k[1]]) - Pair[e[2], ec[4]]*
((-MH^2 + T)*Pair[e[1], ec[5]] + 2*Pair[e[1], k[3]]*
Pair[ec[5], k[1]])))/(MW*SW) -
(16*Alfas^2*EL*MT^2*(-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)))*
Pair[e[1], k[3]]*(2*Pair[e[2], k[3]]*Pair[ec[4], ec[5]] -
Pair[e[2], ec[5]]*Pair[ec[4], k[3]] - Pair[e[2], ec[4]]*
Pair[ec[5], k[3]]))/(MW*SW) -
(4*Alfas^2*EL*MT^2*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
(2*((-MH^2 + T)*Pair[e[1], e[2]] + 2*Pair[e[1], k[3]]*
(Pair[e[2], k[1]] + Pair[e[2], k[3]]))*Pair[ec[4], ec[5]] -
Pair[e[2], ec[5]]*((-MH^2 + T)*Pair[e[1], ec[4]] +
2*Pair[e[1], k[3]]*(Pair[ec[4], k[1]] + Pair[ec[4], k[3]])) -
Pair[e[2], ec[4]]*((-MH^2 + T)*Pair[e[1], ec[5]] +
2*Pair[e[1], k[3]]*(Pair[ec[5], k[1]] + Pair[ec[5], k[3]]))))/
(MW*SW)))/T +
(D*((-4*Alfas^2*EL*MT^2*(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] +
Log[Mu^2/MT^2])*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] - 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]]))/(MW*SW) +
(16*Alfas^2*EL*MT^2*(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)))*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] - 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]]))/(MW*SW) +
(16*Alfas^2*EL*MT^2*(-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))*Pair[e[1], k[3]]*