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

add qqHg amplitudes

parent cb6a9d8e
No preview for this file type
This diff is collapsed.
This diff is collapsed.
No preview for this file type
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
{
{{{(Alfas*EL*GS*MT^2*(4*Sqrt[MH^2 - 4*MT^2]*S*
Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)] +
MH*(-MH^2 + 4*MT^2 + S)*Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/
(2*MT^2)]^2 + MH*(4*(MH^2 - S) - 4*Sqrt[S*(-4*MT^2 + S)]*
Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)] +
(MH^2 - 4*MT^2 - S)*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/
(2*MT^2)]^2))*Mat[SUNT[Glu4, Col2, Col1]]*
(WeylChain[Spinor[k[2], MD, -1, 2, 0], 6, ec[4], Spinor[k[1], MD, 1, 1,
0]] + WeylChain[Spinor[k[2], MD, -1, 2, 0], 7, ec[4],
Spinor[k[1], MD, 1, 1, 0]] + WeylChain[Spinor[k[2], MU, -1, 2, 0], 6,
ec[4], Spinor[k[1], MU, 1, 1, 0]] + WeylChain[Spinor[k[2], MU, -1, 2,
0], 7, ec[4], Spinor[k[1], MU, 1, 1, 0]]))/
(8*MH*MW*Pi*(MH^2 - S)*S*SW)}}}}
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
{
{{{(Alfas*EL*GS*MT^2*(4*Sqrt[MH^2 - 4*MT^2]*S*
Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)] +
MH*(-MH^2 + 4*MT^2 + S)*Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/
(2*MT^2)]^2 + MH*(4*(MH^2 - S) - 4*Sqrt[S*(-4*MT^2 + S)]*
Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)] +
(MH^2 - 4*MT^2 - S)*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/
(2*MT^2)]^2))*Mat[DiracChain[Spinor[k[1], MU, -1], 1, ec[4],
Spinor[k[2], MU, 1]]*SUNT[Glu4, Col2, Col1]])/
(8*MH*MW*Pi*(MH^2 - S)*S*SW)}}}}
......@@ -15,12 +15,8 @@
Pair[e[1], k[4]])*Pair[e[2], k[1]]*Pair[ec[4], k[1]] -
2*D0i[dd00, 0, MH2, 0, 0, U, S, MT2, MT2, MT2, MT2]*
(Pair[e[1], ec[4]]*Pair[e[2], k[1]] - 2*Pair[e[1], e[2]]*
Pair[ec[4], k[1]]) - (C0i[cc0, 0, MH2, S, MT2, MT2, MT2]*
((2*Pair[e[1], k[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]]) +
Pair[e[1], e[2]]*Pair[ec[4], k[1]]))/2 +
2*D0i[dd00, MH2, 0, 0, 0, U, T, MT2, MT2, MT2, MT2]*
(Pair[e[1], k[4]]*Pair[e[2], ec[4]] + Pair[e[1], ec[4]]*
Pair[ec[4], k[1]]) + 2*D0i[dd00, MH2, 0, 0, 0, U, T, MT2, MT2, MT2,
MT2]*(Pair[e[1], k[4]]*Pair[e[2], ec[4]] + Pair[e[1], ec[4]]*
(Pair[e[2], k[1]] - 2*Pair[e[2], k[4]]) + 2*Pair[e[1], e[2]]*
Pair[ec[4], k[1]]) - D0i[dd13, 0, MH2, 0, 0, U, S, MT2, MT2, MT2,
MT2]*Pair[e[2], k[1]]*(-(S*Pair[e[1], ec[4]]) +
......@@ -254,7 +250,11 @@
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]])))) +
(C0i[cc0, 0, 0, T, MT2, MT2, MT2]*
(-(C0i[cc0, 0, MH2, S, MT2, MT2, MT2]*
((2*Pair[e[1], k[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]]) +
Pair[e[1], e[2]]*Pair[ec[4], k[1]])) +
C0i[cc0, 0, 0, T, MT2, MT2, MT2]*
((Pair[e[1], k[2]] - 2*Pair[e[1], k[4]])*Pair[e[2], ec[4]] +
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]])) -
......@@ -263,9 +263,9 @@
Pair[ec[4], k[2]]) - D0i[dd1, 0, 0, MH2, 0, T, S, MT2, MT2, MT2,
MT2]*(-(S*Pair[e[1], e[2]]*Pair[ec[4], k[2]]) +
Pair[e[1], k[2]]*(-(T*Pair[e[2], ec[4]]) + 2*Pair[e[2], k[3]]*
Pair[ec[4], k[2]])) + C0i[cc0, MH2, 0, S, MT2, MT2, MT2]*
(-((Pair[e[1], k[2]] + Pair[e[1], k[4]])*Pair[e[2], ec[4]]) +
Pair[e[1], ec[4]]*Pair[e[2], k[4]] - Pair[e[1], e[2]]*
Pair[ec[4], k[2]])) - C0i[cc0, MH2, 0, S, MT2, MT2, MT2]*
((Pair[e[1], k[2]] + Pair[e[1], k[4]])*Pair[e[2], ec[4]] -
Pair[e[1], ec[4]]*Pair[e[2], k[4]] + Pair[e[1], e[2]]*
(Pair[ec[4], k[1]] + Pair[ec[4], k[3]])) -
D0i[dd1, MH2, 0, 0, 0, U, T, MT2, MT2, MT2, MT2]*
(-(((-MH2 + T)*Pair[e[1], k[2]] - (T + 2*U)*Pair[e[1], k[3]])*
......@@ -293,12 +293,8 @@
Pair[e[2], k[1]]*Pair[ec[4], k[1]] -
2*D0i[dd00, 0, MH2, 0, 0, U, S, MT2, MT2, MT2, MT2]*
(Pair[e[1], ec[4]]*Pair[e[2], k[1]] - 2*Pair[e[1], e[2]]*
Pair[ec[4], k[1]]) - (C0i[cc0, 0, MH2, S, MT2, MT2, MT2]*
((2*Pair[e[1], k[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]]) +
Pair[e[1], e[2]]*Pair[ec[4], k[1]]))/2 +
2*D0i[dd00, MH2, 0, 0, 0, U, T, MT2, MT2, MT2, MT2]*
(Pair[e[1], k[4]]*Pair[e[2], ec[4]] + Pair[e[1], ec[4]]*
Pair[ec[4], k[1]]) + 2*D0i[dd00, MH2, 0, 0, 0, U, T, MT2, MT2, MT2,
MT2]*(Pair[e[1], k[4]]*Pair[e[2], ec[4]] + Pair[e[1], ec[4]]*
(Pair[e[2], k[1]] - 2*Pair[e[2], k[4]]) + 2*Pair[e[1], e[2]]*
Pair[ec[4], k[1]]) - D0i[dd13, 0, MH2, 0, 0, U, S, MT2, MT2, MT2, MT2]*
Pair[e[2], k[1]]*(-(S*Pair[e[1], ec[4]]) + 4*Pair[e[1], k[2]]*
......@@ -530,7 +526,11 @@
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]])))) +
(C0i[cc0, 0, 0, T, MT2, MT2, MT2]*
(-(C0i[cc0, 0, MH2, S, MT2, MT2, MT2]*
((2*Pair[e[1], k[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]]) +
Pair[e[1], e[2]]*Pair[ec[4], k[1]])) +
C0i[cc0, 0, 0, T, MT2, MT2, MT2]*
((Pair[e[1], k[2]] - 2*Pair[e[1], k[4]])*Pair[e[2], ec[4]] +
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]])) -
......@@ -539,9 +539,9 @@
Pair[ec[4], k[2]]) - D0i[dd1, 0, 0, MH2, 0, T, S, MT2, MT2, MT2,
MT2]*(-(S*Pair[e[1], e[2]]*Pair[ec[4], k[2]]) +
Pair[e[1], k[2]]*(-(T*Pair[e[2], ec[4]]) + 2*Pair[e[2], k[3]]*
Pair[ec[4], k[2]])) + C0i[cc0, MH2, 0, S, MT2, MT2, MT2]*
(-((Pair[e[1], k[2]] + Pair[e[1], k[4]])*Pair[e[2], ec[4]]) +
Pair[e[1], ec[4]]*Pair[e[2], k[4]] - Pair[e[1], e[2]]*
Pair[ec[4], k[2]])) - C0i[cc0, MH2, 0, S, MT2, MT2, MT2]*
((Pair[e[1], k[2]] + Pair[e[1], k[4]])*Pair[e[2], ec[4]] -
Pair[e[1], ec[4]]*Pair[e[2], k[4]] + Pair[e[1], e[2]]*
(Pair[ec[4], k[1]] + Pair[ec[4], k[3]])) -
D0i[dd1, MH2, 0, 0, 0, U, T, MT2, MT2, MT2, MT2]*
(-(((-MH2 + T)*Pair[e[1], k[2]] - (T + 2*U)*Pair[e[1], k[3]])*
......
......@@ -1692,20 +1692,20 @@
Pair[ec[4], k[2]])*Pair[ec[5], k[3]]) + Pair[ec[4], k[3]]*
((-3*MH2 + S34 + T + U)*Pair[ec[5], k[1]] + (3*MH2 - S34 - T - U)*
Pair[ec[5], k[2]] + 2*(-T + T14 - T24 + U)*Pair[ec[5], k[
3]]))) + (-8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24,
0, S, MT2, MT2, MT2, MT2] + 8*(D0i[dd001, MH2, S34, S,
3]]))) + (8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0,
S, MT2, MT2, MT2, MT2] - 8*(D0i[dd001, MH2, S34, S,
2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2] +
D0i[dd001, MH2, 2*MH2 - S34 - T - U, 0, MH2 - S34 - T14 - T24, 0,
S, MT2, MT2, MT2, MT2]))*
(4*((-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[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], ec[5]] - Pair[e[2], k[1]]*
(Pair[e[1], ec[5]]*Pair[ec[4], k[3]] + Pair[e[1], ec[4]]*
Pair[ec[5], k[3]]) + Pair[e[1], k[2]]*
(Pair[e[2], ec[5]]*Pair[ec[4], k[3]] + Pair[e[2], ec[4]]*
Pair[ec[5], k[3]])) + Pair[e[1], e[2]]*
((-T + U)*Pair[ec[4], ec[5]] + 2*(Pair[ec[4], k[3]]*
(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
(Pair[ec[4], k[1]] - Pair[ec[4], k[2]])*Pair[ec[5], k[3]]))) -
((T - U)*Pair[ec[4], ec[5]] - 2*(Pair[ec[4], k[3]]*(Pair[ec[5],
k[1]] - Pair[ec[5], k[2]]) + (Pair[ec[4], k[1]] - Pair[ec[4],
k[2]])*Pair[ec[5], k[3]]))) -
8*D0i[dd223, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2,
MT2]*((T14 - T24)*Pair[e[1], e[2]]*(Pair[ec[4], k[1]] +
Pair[ec[4], k[2]]) + 4*(Pair[e[1], k[4]]*Pair[e[2], k[1]] -
......@@ -4819,19 +4819,19 @@
Pair[ec[4], k[2]])*Pair[ec[5], k[3]]) + Pair[ec[4], k[3]]*
((-3*MH2 + S34 + T + U)*Pair[ec[5], k[1]] + (3*MH2 - S34 - T - U)*
Pair[ec[5], k[2]] + 2*(-T + T14 - T24 + U)*Pair[ec[5],
k[3]]))) + (-8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24,
0, S, MT2, MT2, MT2, MT2] + 8*(D0i[dd001, MH2, S34, S,
k[3]]))) + (8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0,
S, MT2, MT2, MT2, MT2] - 8*(D0i[dd001, MH2, S34, S,
2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2] +
D0i[dd001, MH2, 2*MH2 - S34 - T - U, 0, MH2 - S34 - T14 - T24, 0,
S, MT2, MT2, MT2, MT2]))*
(4*((-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[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], ec[5]] - Pair[e[2], k[1]]*
(Pair[e[1], ec[5]]*Pair[ec[4], k[3]] + Pair[e[1], ec[4]]*
Pair[ec[5], k[3]]) + Pair[e[1], k[2]]*
(Pair[e[2], ec[5]]*Pair[ec[4], k[3]] + Pair[e[2], ec[4]]*
Pair[ec[5], k[3]])) + Pair[e[1], e[2]]*
((-T + U)*Pair[ec[4], ec[5]] +
2*(Pair[ec[4], k[3]]*(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
((T - U)*Pair[ec[4], ec[5]] - 2*(Pair[ec[4], k[3]]*
(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
(Pair[ec[4], k[1]] - Pair[ec[4], k[2]])*Pair[ec[5], k[3]]))) -
8*D0i[dd223, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2,
MT2]*((T14 - T24)*Pair[e[1], e[2]]*(Pair[ec[4], k[1]] +
......@@ -13376,19 +13376,19 @@
Pair[ec[4], k[2]])*Pair[ec[5], k[3]]) + Pair[ec[4], k[3]]*
((-3*MH2 + S34 + T + U)*Pair[ec[5], k[1]] + (3*MH2 - S34 - T - U)*
Pair[ec[5], k[2]] + 2*(-T + T14 - T24 + U)*Pair[ec[5],
k[3]]))) + (-8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24,
0, S, MT2, MT2, MT2, MT2] + 8*(D0i[dd001, MH2, S34, S,
k[3]]))) + (8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0,
S, MT2, MT2, MT2, MT2] - 8*(D0i[dd001, MH2, S34, S,
2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2] +
D0i[dd001, MH2, 2*MH2 - S34 - T - U, 0, MH2 - S34 - T14 - T24, 0,
S, MT2, MT2, MT2, MT2]))*
(4*((-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[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], ec[5]] - Pair[e[2], k[1]]*
(Pair[e[1], ec[5]]*Pair[ec[4], k[3]] + Pair[e[1], ec[4]]*
Pair[ec[5], k[3]]) + Pair[e[1], k[2]]*
(Pair[e[2], ec[5]]*Pair[ec[4], k[3]] + Pair[e[2], ec[4]]*
Pair[ec[5], k[3]])) + Pair[e[1], e[2]]*
((-T + U)*Pair[ec[4], ec[5]] +
2*(Pair[ec[4], k[3]]*(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
((T - U)*Pair[ec[4], ec[5]] - 2*(Pair[ec[4], k[3]]*
(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
(Pair[ec[4], k[1]] - Pair[ec[4], k[2]])*Pair[ec[5], k[3]]))) -
8*D0i[dd223, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2,
MT2]*((T14 - T24)*Pair[e[1], e[2]]*(Pair[ec[4], k[1]] +
......@@ -16459,19 +16459,19 @@
Pair[ec[4], k[2]])*Pair[ec[5], k[3]]) + Pair[ec[4], k[3]]*
((-3*MH2 + S34 + T + U)*Pair[ec[5], k[1]] + (3*MH2 - S34 - T - U)*
Pair[ec[5], k[2]] + 2*(-T + T14 - T24 + U)*Pair[ec[5],
k[3]]))) + (-8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24,
0, S, MT2, MT2, MT2, MT2] + 8*(D0i[dd001, MH2, S34, S,
k[3]]))) + (8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0,
S, MT2, MT2, MT2, MT2] - 8*(D0i[dd001, MH2, S34, S,
2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2] +
D0i[dd001, MH2, 2*MH2 - S34 - T - U, 0, MH2 - S34 - T14 - T24, 0,
S, MT2, MT2, MT2, MT2]))*
(4*((-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[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], ec[5]] - Pair[e[2], k[1]]*
(Pair[e[1], ec[5]]*Pair[ec[4], k[3]] + Pair[e[1], ec[4]]*
Pair[ec[5], k[3]]) + Pair[e[1], k[2]]*
(Pair[e[2], ec[5]]*Pair[ec[4], k[3]] + Pair[e[2], ec[4]]*
Pair[ec[5], k[3]])) + Pair[e[1], e[2]]*
((-T + U)*Pair[ec[4], ec[5]] +
2*(Pair[ec[4], k[3]]*(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
((T - U)*Pair[ec[4], ec[5]] - 2*(Pair[ec[4], k[3]]*
(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
(Pair[ec[4], k[1]] - Pair[ec[4], k[2]])*Pair[ec[5], k[3]]))) -
8*D0i[dd223, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2,
MT2]*((T14 - T24)*Pair[e[1], e[2]]*(Pair[ec[4], k[1]] +
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 *)
{{{{0}}}}[[1,1,1,1,1]]
This diff is collapsed.
This diff is collapsed.
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(Alfas*col421*EL*GS*MT^2*(-4*Sqrt[MH^2 - 4*MT^2]*S*
Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)] +
MH*(MH^2 - 4*MT^2 - S)*Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/
(2*MT^2)]^2 + MH*(-4*MH^2 + 4*S + 4*Sqrt[S*(-4*MT^2 + S)]*
Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)] +
(-MH^2 + 4*MT^2 + S)*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)]^
2))*Sin[\[Theta]3]*(Cos[\[Theta]3]*Cos[\[Phi]3] + I*Sin[\[Phi]3]))/
(2*Sqrt[2]*MH*MW*Pi*(MH^2 - S)*Sqrt[S]*SW*Abs[Sin[\[Theta]3]])
(* 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)
-(Alfas*c12*EL*MT2*(-4*MH2 + (MH2 - 4*MT2)*
Log[(-MH2 + MH*Sqrt[MH2 - 4*MT2] + 2*MT2)/(2*MT2)]^2))/(4*MH2*MW*Pi*SW)
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