Commit 7af8c817 authored by Reyesrivera, Jose's avatar Reyesrivera, Jose
Browse files

add hel for 0,1 jets

parent bf880254
No preview for this file type
This source diff could not be displayed because it is too large. You can view the blob instead.
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
{
{(Alfas*c12*EL*MT^2*
((2 + Eps^(-1) + (Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/MH^2 +
Log[Mu^2/MT^2] - 4*(3/4 + (Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/
(4*MH^2) + (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))*Pair[e[1], e[2]] +
4*(1/(2*MH^2) +
(MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
2)/(2*MH^4))*Pair[e[1], k[2]]*Pair[e[2], k[1]] -
(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2*
(-(MH^2*Pair[e[1], e[2]]) + 2*Pair[e[1], k[2]]*Pair[e[2], k[1]]))/
(4*MH^2)))/(MW*Pi*SW)}}
This source diff could not be displayed because it is too large. You can view the blob instead.
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
{
{
{{(Alfas*c124*EL*GS*MT^2*
(((2 + Eps^(-1) + Log[Mu^2/MT^2] + (Sqrt[S*(-4*MT^2 + S)]*
Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)])/S -
4*(3/4 + (Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*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)) - (Sqrt[S*(-4*MT^2 + S)]*
Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)])/(4*
(MH^2 - S))))*(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*(-1/(2*(MH^2 - S)) - (Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/
(2*(MH^2 - S)^2) - (Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/
(2*MH^2*(MH^2 - S)) - (MT^2*Log[(-MH^2 + 2*MT^2 +
Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/
(2*(MH^2 - S)^2) + (MT^2*Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*
S)])/(2*MT^2)]^2)/(2*(MH^2 - S)^2) +
(MH^2*Sqrt[S*(-4*MT^2 + S)]*Log[(2*MT^2 - S + Sqrt[
S*(-4*MT^2 + S)])/(2*MT^2)])/(2*(MH^2 - S)^2*S) +
(Sqrt[S*(-4*MT^2 + S)]*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/
(2*MT^2)])/(2*(MH^2 - S)*S))*((-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]] -
((Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/(MH^2*(MH^2 - S)) -
(Sqrt[S*(-4*MT^2 + S)]*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/
(2*MT^2)])/((MH^2 - S)*S))*(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]])) -
(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)))*((-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]])))/S + ((2 + Eps^(-1) + Log[Mu^2/MT^2] +
(Sqrt[U*(-4*MT^2 + U)]*Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/
(2*MT^2)])/U - 4*(3/4 + (Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*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[U*(-4*MT^2 + U)]*Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/
(2*MT^2)])/(4*(MH^2 - U))))*(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*(-1/(2*(MH^2 - U)) - (Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*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) + (MH^2*Sqrt[U*(-4*MT^2 + U)]*
Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/(2*MT^2)])/
(2*(MH^2 - U)^2*U))*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]])) -
(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)))*((-MH^2 + U)*Pair[e[1], k[4]]*
Pair[e[2], ec[4]] - 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]]*
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*(-(Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/
(2*MH^2*(MH^2 - U)) + (Sqrt[U*(-4*MT^2 + U)]*
Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/(2*MT^2)])/
(2*(MH^2 - U)*U))*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]])) - ((Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/
(MH^2*(MH^2 - U)) - (Sqrt[U*(-4*MT^2 + U)]*Log[(2*MT^2 - U +
Sqrt[U*(-4*MT^2 + U)])/(2*MT^2)])/((MH^2 - U)*U))*
(2*(-MH^2 + 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*(-MH^2 + 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]])))/U -
((2 + Eps^(-1) + Log[Mu^2/MT^2] + (Sqrt[T*(-4*MT^2 + T)]*
Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/(2*MT^2)])/T -
4*(3/4 + (Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*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[T*(-4*MT^2 + T)]*
Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/(2*MT^2)])/(4*
(MH^2 - T))))*(-((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]]) -
(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)))*(((S + U)*Pair[e[1], k[2]] -
S*Pair[e[1], k[3]])*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]]) + 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]])) -
((Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/(MH^2*(MH^2 - T)) -
(Sqrt[T*(-4*MT^2 + T)]*Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/
(2*MT^2)])/((MH^2 - T)*T))*((2*(S + U)*Pair[e[1], k[2]] +
(-3*S + U)*Pair[e[1], k[3]])*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]]) + 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*((-1/(2*(MH^2 - T)) -
(Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*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) + (MH^2*Sqrt[T*(-4*MT^2 + T)]*
Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/(2*MT^2)])/(2*
(MH^2 - T)^2*T))*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]])) +
(-(Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 + Sqrt[
MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/(2*MH^2*(MH^2 - T)) +
(Sqrt[T*(-4*MT^2 + T)]*Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/
(2*MT^2)])/(2*(MH^2 - T)*T))*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]]))))/T))/
(MW*Pi*SW) - (Alfas*c142*EL*GS*MT^2*
(((2 + Eps^(-1) + Log[Mu^2/MT^2] + (Sqrt[S*(-4*MT^2 + S)]*
Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)])/S -
4*(3/4 + (Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*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)) - (Sqrt[S*(-4*MT^2 + S)]*
Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)])/(4*
(MH^2 - S))))*(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*(-1/(2*(MH^2 - S)) - (Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/
(2*(MH^2 - S)^2) - (Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/
(2*MH^2*(MH^2 - S)) - (MT^2*Log[(-MH^2 + 2*MT^2 +
Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/
(2*(MH^2 - S)^2) + (MT^2*Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*
S)])/(2*MT^2)]^2)/(2*(MH^2 - S)^2) +
(MH^2*Sqrt[S*(-4*MT^2 + S)]*Log[(2*MT^2 - S + Sqrt[
S*(-4*MT^2 + S)])/(2*MT^2)])/(2*(MH^2 - S)^2*S) +
(Sqrt[S*(-4*MT^2 + S)]*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/
(2*MT^2)])/(2*(MH^2 - S)*S))*((-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]] -
((Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/(MH^2*(MH^2 - S)) -
(Sqrt[S*(-4*MT^2 + S)]*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/
(2*MT^2)])/((MH^2 - S)*S))*(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]])) -
(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)))*((-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]])))/S + ((2 + Eps^(-1) + Log[Mu^2/MT^2] +
(Sqrt[U*(-4*MT^2 + U)]*Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/
(2*MT^2)])/U - 4*(3/4 + (Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*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[U*(-4*MT^2 + U)]*Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/
(2*MT^2)])/(4*(MH^2 - U))))*(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*(-1/(2*(MH^2 - U)) - (Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*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) + (MH^2*Sqrt[U*(-4*MT^2 + U)]*
Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/(2*MT^2)])/
(2*(MH^2 - U)^2*U))*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]])) -
(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)))*((-MH^2 + U)*Pair[e[1], k[4]]*
Pair[e[2], ec[4]] - 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]]*
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*(-(Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/
(2*MH^2*(MH^2 - U)) + (Sqrt[U*(-4*MT^2 + U)]*
Log[(2*MT^2 - U + Sqrt[U*(-4*MT^2 + U)])/(2*MT^2)])/
(2*(MH^2 - U)*U))*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]])) - ((Sqrt[MH^2*(MH^2 - 4*MT^2)]*
Log[(-MH^2 + 2*MT^2 + Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/
(MH^2*(MH^2 - U)) - (Sqrt[U*(-4*MT^2 + U)]*Log[(2*MT^2 - U +
Sqrt[U*(-4*MT^2 + U)])/(2*MT^2)])/((MH^2 - U)*U))*
(2*(-MH^2 + 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*(-MH^2 + 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]])))/U -
((2 + Eps^(-1) + Log[Mu^2/MT^2] + (Sqrt[T*(-4*MT^2 + T)]*
Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/(2*MT^2)])/T -
4*(3/4 + (Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*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[T*(-4*MT^2 + T)]*
Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/(2*MT^2)])/(4*
(MH^2 - T))))*(-((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]]) -
(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)))*(((S + U)*Pair[e[1], k[2]] -
S*Pair[e[1], k[3]])*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]]) + 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]])) -
((Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/(MH^2*(MH^2 - T)) -
(Sqrt[T*(-4*MT^2 + T)]*Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/
(2*MT^2)])/((MH^2 - T)*T))*((2*(S + U)*Pair[e[1], k[2]] +
(-3*S + U)*Pair[e[1], k[3]])*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]]) + 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*((-1/(2*(MH^2 - T)) -
(Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 +
Sqrt[MH^2*(MH^2 - 4*MT^2)])/(2*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) + (MH^2*Sqrt[T*(-4*MT^2 + T)]*
Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/(2*MT^2)])/(2*
(MH^2 - T)^2*T))*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]])) +
(-(Sqrt[MH^2*(MH^2 - 4*MT^2)]*Log[(-MH^2 + 2*MT^2 + Sqrt[
MH^2*(MH^2 - 4*MT^2)])/(2*MT^2)])/(2*MH^2*(MH^2 - T)) +
(Sqrt[T*(-4*MT^2 + T)]*Log[(2*MT^2 - T + Sqrt[T*(-4*MT^2 + T)])/
(2*MT^2)])/(2*(MH^2 - T)*T))*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]]))))/T))/
(MW*Pi*SW)}}}}
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*MT^2*Mat[SUNT[Glu1, Glu2, 0, 0]]*
(Alfas*c12*EL*MT^2*
(-((-(MH^2*Pair[e[1], e[2]]) + 2*Pair[e[1], k[2]]*Pair[e[2], k[1]])*
PVC[0, 0, 0, 0, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/2 +
4*Pair[e[1], k[2]]*Pair[e[2], k[1]]*PVC[0, 1, 1, 0, MH^2, 0, Sqrt[MT^2],
......
This diff is collapsed.
This diff is collapsed.
(* 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]]*
(Alfas*c124*EL*GS*MT^2*
((-(((-MH^2 + U)*Pair[e[1], k[4]]*Pair[e[2], ec[4]] -
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]]*
......@@ -69,7 +69,7 @@
2*Pair[e[1], ec[4]]*Pair[e[2], k[4]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], k[2]])*(PVB[0, 0, T, Sqrt[MT^2], Sqrt[MT^2]] -
4*PVC[1, 0, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]))/T))/
(MW*Pi*SW) - (Alfas*EL*GS*MT^2*Mat[SUNT[Glu1, Glu4, Glu2, 0, 0]]*
(MW*Pi*SW) - (Alfas*c142*EL*GS*MT^2*
((-(((-MH^2 + U)*Pair[e[1], k[4]]*Pair[e[2], ec[4]] -
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]]*
......
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
{{(Alfas*c12*EL*MT^2*(4*MH^2 - (MH^2 - 4*MT^2)*
Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)]^2))/
(4*MH^2*MW*Pi*SW)}}
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment