Commit 16581298 authored by Reyesrivera, Jose's avatar Reyesrivera, Jose
Browse files

update vel series

parent 80dfe8c2
No preview for this file type
(* 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 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)]^2)*
Mat[SUNT[Glu1, Glu2, 0, 0]])/(4*MH^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 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)]^2)*
Mat[SUNT[Glu1, Glu2, 0, 0]])/(4*MH^2*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*(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)*
Mat[SUNT[Glu1, Glu2, 0, 0]])/(4*MH^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 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)]^2)*
Mat[SUNT[Glu1, Glu2, 0, 0]])/(4*MH^2*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]]*
((2 + Eps^(-1) + DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] + 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))*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]]))/
(Alfas*c*EL*MT^2*
((-1 + 2*Log[MT] - (MT^2*Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/
(2*MT^2)]^2)/MH^2 - Log[Mu^2] + Log[Mu^2/MT^2])*Pair[e[1], e[2]] +
(2*(MH^2 + MT^2*Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)]^2)*
Pair[e[1], k[2]]*Pair[e[2], k[1]])/MH^4 +
(Log[(-MH^2 + 2*MT^2 + MH*Sqrt[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)
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*MT^2*Mat[SUNT[Glu1, Glu2, 0, 0]]*
((2 + Eps^(-1) + DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]] + 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))*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]]))/
(Alfas*c*EL*MT^2*
((-1 + 2*Log[MT] - (MT^2*Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/
(2*MT^2)]^2)/MH^2 - Log[Mu^2] + Log[Mu^2/MT^2])*Pair[e[1], e[2]] +
(2*(MH^2 + MT^2*Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)]^2)*
Pair[e[1], k[2]]*Pair[e[2], k[1]])/MH^4 +
(Log[(-MH^2 + 2*MT^2 + MH*Sqrt[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)
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*EL*MT^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]])*
PVC[0, 0, 0, 0, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/2 +
(Alfas*c*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],
Sqrt[MT^2], Sqrt[MT^2]] + Pair[e[1], e[2]]*
(PVB[0, 0, MH^2, Sqrt[MT^2], Sqrt[MT^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.
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