Commit 80dfe8c2 authored by Reyesrivera, Jose's avatar Reyesrivera, Jose
Browse files

update ampltiudes w/ velocities

parent 1f69dced
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)
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
ggHg-SM.diagrams/boxes.png

21.7 KB | W: | H:

ggHg-SM.diagrams/boxes.png

21.7 KB | W: | H:

ggHg-SM.diagrams/boxes.png
ggHg-SM.diagrams/boxes.png
ggHg-SM.diagrams/boxes.png
ggHg-SM.diagrams/boxes.png
  • 2-up
  • Swipe
  • Onion skin
ggHg-SM.diagrams/triangles.png

24.9 KB | W: | H:

ggHg-SM.diagrams/triangles.png

24.9 KB | W: | H:

ggHg-SM.diagrams/triangles.png
ggHg-SM.diagrams/triangles.png
ggHg-SM.diagrams/triangles.png
ggHg-SM.diagrams/triangles.png
  • 2-up
  • Swipe
  • Onion skin
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)
(Alfas*c*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)
(* 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)
(Alfas*c*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)
(* 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)
(Alfas*c*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)
(* 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)
(Alfas*c*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)
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