Skip to content

GitLab

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

diagrams and ggH,ggHg

parent b32e54f2
Expand all Hide whitespace changes
Inline Side-by-side
.DS_Store 0 → 100644
View file @ e52b5b53
File added
feynamps/ggH.m 0 → 100644
View file @ e52b5b53
(* 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)
feynamps/ggHg.m 0 → 100644
View file @ e52b5b53
(* 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}}}][
(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)]
feynamps/ggHgg_box_1_FeynAmp_9diags.m
View file @ e52b5b53
This source diff could not be displayed because it is too large. You can view the blob instead.
feynamps/ggHgg_box_2_FeynAmp_9diags.m
View file @ e52b5b53
......@@ -1312,28 +1312,28 @@ Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
2*Pair[e[2], ec[4]]*(Pair[e[1], k[2]]*(Pair[ec[5], k[1]] -
2*Pair[ec[5], k[2]]) + 2*Pair[e[1], k[5]]*(Pair[ec[5], k[2]] +
Pair[ec[5], k[4]]) + Pair[e[1], k[4]]*(Pair[ec[5], k[1]] +
2*Pair[ec[5], k[4]]))))/(MW*SW) -
2*Pair[ec[5], k[4]]))))/(MW*SW) +
(Alfas2*EL*MT2*D0i[dd2, 0, MH2, T24, 0, 2*MH2 - S34 - T - U,
MH2 - S - T - T14, MT2, MT2, MT2, MT2]*
((MH2*(S - T14) - S*(S34 + T - U) + T14*(-S34 + T + U))*
Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
(-((MH2*(S - T14) - S*(S34 + T - U) + T14*(-S34 + T + U))*
Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) +
4*((-2*MH2 + S34 + 2*T + U)*Pair[e[1], k[2]] +
(S + T14)*Pair[e[1], k[3]] + (2*MH2 - S34 - 2*T - U)*
Pair[e[1], k[4]])*Pair[e[2], k[4]]*Pair[ec[4], ec[5]] -
Pair[e[1], k[4]])*Pair[e[2], k[4]]*Pair[ec[4], ec[5]] +
4*((-2*MH2 + S34 + 2*T + U)*Pair[e[1], k[2]] +
(S + T14)*Pair[e[1], k[3]] + (2*MH2 - S34 - 2*T - U)*
Pair[e[1], k[4]])*Pair[e[2], ec[5]]*Pair[ec[4], k[2]] +
Pair[e[1], k[4]])*Pair[e[2], ec[5]]*Pair[ec[4], k[2]] -
4*Pair[e[1], ec[5]]*(((-MH2 + T)*Pair[e[2], k[1]] +
(S + T14)*Pair[e[2], k[3]])*Pair[ec[4], k[2]] +
Pair[e[2], k[4]]*((-MH2 + T)*Pair[ec[4], k[1]] +
(S + T14)*Pair[ec[4], k[3]])) -
(S + T14)*Pair[ec[4], k[3]])) +
8*(-(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]])*Pair[ec[5], k[1]]) +
(Pair[e[1], k[2]] - Pair[e[1], k[4]])*
(Pair[e[2], k[3]]*Pair[ec[4], k[2]] + Pair[e[2], k[4]]*
Pair[ec[4], k[3]])*(Pair[ec[5], k[1]] - Pair[ec[5], k[3]])) -
4*(S + T14)*Pair[e[1], ec[4]]*Pair[e[2], k[4]]*Pair[ec[5], k[3]] -
4*(S + T14)*Pair[e[1], e[2]]*Pair[ec[4], k[2]]*Pair[ec[5], k[3]] +
Pair[ec[4], k[3]])*(Pair[ec[5], k[1]] - Pair[ec[5], k[3]])) +
4*(S + T14)*Pair[e[1], ec[4]]*Pair[e[2], k[4]]*Pair[ec[5], k[3]] +
4*(S + T14)*Pair[e[1], e[2]]*Pair[ec[4], k[2]]*Pair[ec[5], k[3]] -
2*Pair[e[2], ec[4]]*(Pair[e[1], k[4]]*(2*(MH2 - T - U)*
Pair[ec[5], k[2]] + (S + T14)*Pair[ec[5], k[3]] +
2*(MH2 - S34 - T)*Pair[ec[5], k[4]]) + Pair[e[1], k[2]]*
......@@ -2104,28 +2104,28 @@ Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
2*Pair[e[2], ec[4]]*(Pair[e[1], k[2]]*(Pair[ec[5], k[1]] -
2*Pair[ec[5], k[2]]) + 2*Pair[e[1], k[5]]*(Pair[ec[5], k[2]] +
Pair[ec[5], k[4]]) + Pair[e[1], k[4]]*(Pair[ec[5], k[1]] +
2*Pair[ec[5], k[4]]))))/(MW*SW) -
2*Pair[ec[5], k[4]]))))/(MW*SW) +
(Alfas2*EL*MT2*D0i[dd2, 0, MH2, T24, 0, 2*MH2 - S34 - T - U,
MH2 - S - T - T14, MT2, MT2, MT2, MT2]*
((MH2*(S - T14) - S*(S34 + T - U) + T14*(-S34 + T + U))*
Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
(-((MH2*(S - T14) - S*(S34 + T - U) + T14*(-S34 + T + U))*
Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) +
4*((-2*MH2 + S34 + 2*T + U)*Pair[e[1], k[2]] +
(S + T14)*Pair[e[1], k[3]] + (2*MH2 - S34 - 2*T - U)*
Pair[e[1], k[4]])*Pair[e[2], k[4]]*Pair[ec[4], ec[5]] -
Pair[e[1], k[4]])*Pair[e[2], k[4]]*Pair[ec[4], ec[5]] +
4*((-2*MH2 + S34 + 2*T + U)*Pair[e[1], k[2]] +
(S + T14)*Pair[e[1], k[3]] + (2*MH2 - S34 - 2*T - U)*
Pair[e[1], k[4]])*Pair[e[2], ec[5]]*Pair[ec[4], k[2]] +
Pair[e[1], k[4]])*Pair[e[2], ec[5]]*Pair[ec[4], k[2]] -
4*Pair[e[1], ec[5]]*(((-MH2 + T)*Pair[e[2], k[1]] +
(S + T14)*Pair[e[2], k[3]])*Pair[ec[4], k[2]] +
Pair[e[2], k[4]]*((-MH2 + T)*Pair[ec[4], k[1]] +
(S + T14)*Pair[ec[4], k[3]])) -
(S + T14)*Pair[ec[4], k[3]])) +
8*(-(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]])*Pair[ec[5], k[1]]) +
(Pair[e[1], k[2]] - Pair[e[1], k[4]])*
(Pair[e[2], k[3]]*Pair[ec[4], k[2]] + Pair[e[2], k[4]]*
Pair[ec[4], k[3]])*(Pair[ec[5], k[1]] - Pair[ec[5], k[3]])) -
4*(S + T14)*Pair[e[1], ec[4]]*Pair[e[2], k[4]]*Pair[ec[5], k[3]] -
4*(S + T14)*Pair[e[1], e[2]]*Pair[ec[4], k[2]]*Pair[ec[5], k[3]] +
Pair[ec[4], k[3]])*(Pair[ec[5], k[1]] - Pair[ec[5], k[3]])) +
4*(S + T14)*Pair[e[1], ec[4]]*Pair[e[2], k[4]]*Pair[ec[5], k[3]] +
4*(S + T14)*Pair[e[1], e[2]]*Pair[ec[4], k[2]]*Pair[ec[5], k[3]] -
2*Pair[e[2], ec[4]]*(Pair[e[1], k[4]]*(2*(MH2 - T - U)*
Pair[ec[5], k[2]] + (S + T14)*Pair[ec[5], k[3]] +
2*(MH2 - S34 - T)*Pair[ec[5], k[4]]) + Pair[e[1], k[2]]*
......@@ -2966,27 +2966,27 @@ Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
(2*Pair[ec[5], k[1]] - Pair[ec[5], k[3]]) - 2*Pair[e[2], ec[4]]*
(Pair[e[1], k[2]]*(Pair[ec[5], k[1]] - 2*Pair[ec[5], k[2]]) +
2*Pair[e[1], k[5]]*(Pair[ec[5], k[2]] + Pair[ec[5], k[4]]) +
Pair[e[1], k[4]]*(Pair[ec[5], k[1]] + 2*Pair[ec[5], k[4]]))) +
Pair[e[1], k[4]]*(Pair[ec[5], k[1]] + 2*Pair[ec[5], k[4]]))) -
D0i[dd2, 0, MH2, T24, 0, 2*MH2 - S34 - T - U, MH2 - S - T - T14, MT2,
MT2, MT2, MT2]*((MH2*(S - T14) - S*(S34 + T - U) +
T14*(-S34 + T + U))*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
MT2, MT2, MT2]*(-((MH2*(S - T14) - S*(S34 + T - U) +
T14*(-S34 + T + U))*Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) +
4*((-2*MH2 + S34 + 2*T + U)*Pair[e[1], k[2]] +
(S + T14)*Pair[e[1], k[3]] + (2*MH2 - S34 - 2*T - U)*
Pair[e[1], k[4]])*Pair[e[2], k[4]]*Pair[ec[4], ec[5]] -
Pair[e[1], k[4]])*Pair[e[2], k[4]]*Pair[ec[4], ec[5]] +
4*((-2*MH2 + S34 + 2*T + U)*Pair[e[1], k[2]] +
(S + T14)*Pair[e[1], k[3]] + (2*MH2 - S34 - 2*T - U)*
Pair[e[1], k[4]])*Pair[e[2], ec[5]]*Pair[ec[4], k[2]] +
Pair[e[1], k[4]])*Pair[e[2], ec[5]]*Pair[ec[4], k[2]] -
4*Pair[e[1], ec[5]]*(((-MH2 + T)*Pair[e[2], k[1]] +
(S + T14)*Pair[e[2], k[3]])*Pair[ec[4], k[2]] +
Pair[e[2], k[4]]*((-MH2 + T)*Pair[ec[4], k[1]] +
(S + T14)*Pair[ec[4], k[3]])) -
(S + T14)*Pair[ec[4], k[3]])) +
8*(-(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]])*Pair[ec[5], k[1]]) +
(Pair[e[1], k[2]] - Pair[e[1], k[4]])*(Pair[e[2], k[3]]*
Pair[ec[4], k[2]] + Pair[e[2], k[4]]*Pair[ec[4], k[3]])*
(Pair[ec[5], k[1]] - Pair[ec[5], k[3]])) -
4*(S + T14)*Pair[e[1], ec[4]]*Pair[e[2], k[4]]*Pair[ec[5], k[3]] -
4*(S + T14)*Pair[e[1], e[2]]*Pair[ec[4], k[2]]*Pair[ec[5], k[3]] +
(Pair[ec[5], k[1]] - Pair[ec[5], k[3]])) +
4*(S + T14)*Pair[e[1], ec[4]]*Pair[e[2], k[4]]*Pair[ec[5], k[3]] +
4*(S + T14)*Pair[e[1], e[2]]*Pair[ec[4], k[2]]*Pair[ec[5], k[3]] -
2*Pair[e[2], ec[4]]*(Pair[e[1], k[4]]*(2*(MH2 - T - U)*
Pair[ec[5], k[2]] + (S + T14)*Pair[ec[5], k[3]] +
2*(MH2 - S34 - T)*Pair[ec[5], k[4]]) + Pair[e[1], k[2]]*
......@@ -4229,27 +4229,27 @@ Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
(2*Pair[ec[5], k[1]] - Pair[ec[5], k[3]]) - 2*Pair[e[2], ec[4]]*
(Pair[e[1], k[2]]*(Pair[ec[5], k[1]] - 2*Pair[ec[5], k[2]]) +
2*Pair[e[1], k[5]]*(Pair[ec[5], k[2]] + Pair[ec[5], k[4]]) +
Pair[e[1], k[4]]*(Pair[ec[5], k[1]] + 2*Pair[ec[5], k[4]]))) +
Pair[e[1], k[4]]*(Pair[ec[5], k[1]] + 2*Pair[ec[5], k[4]]))) -
D0i[dd2, 0, MH2, T24, 0, 2*MH2 - S34 - T - U, MH2 - S - T - T14, MT2,
MT2, MT2, MT2]*((MH2*(S - T14) - S*(S34 + T - U) +
T14*(-S34 + T + U))*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
MT2, MT2, MT2]*(-((MH2*(S - T14) - S*(S34 + T - U) +
T14*(-S34 + T + U))*Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) +
4*((-2*MH2 + S34 + 2*T + U)*Pair[e[1], k[2]] +
(S + T14)*Pair[e[1], k[3]] + (2*MH2 - S34 - 2*T - U)*
Pair[e[1], k[4]])*Pair[e[2], k[4]]*Pair[ec[4], ec[5]] -
Pair[e[1], k[4]])*Pair[e[2], k[4]]*Pair[ec[4], ec[5]] +
4*((-2*MH2 + S34 + 2*T + U)*Pair[e[1], k[2]] +
(S + T14)*Pair[e[1], k[3]] + (2*MH2 - S34 - 2*T - U)*
Pair[e[1], k[4]])*Pair[e[2], ec[5]]*Pair[ec[4], k[2]] +
Pair[e[1], k[4]])*Pair[e[2], ec[5]]*Pair[ec[4], k[2]] -
4*Pair[e[1], ec[5]]*(((-MH2 + T)*Pair[e[2], k[1]] +
(S + T14)*Pair[e[2], k[3]])*Pair[ec[4], k[2]] +
Pair[e[2], k[4]]*((-MH2 + T)*Pair[ec[4], k[1]] +
(S + T14)*Pair[ec[4], k[3]])) -
(S + T14)*Pair[ec[4], k[3]])) +
8*(-(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]])*Pair[ec[5], k[1]]) +
(Pair[e[1], k[2]] - Pair[e[1], k[4]])*(Pair[e[2], k[3]]*
Pair[ec[4], k[2]] + Pair[e[2], k[4]]*Pair[ec[4], k[3]])*
(Pair[ec[5], k[1]] - Pair[ec[5], k[3]])) -
4*(S + T14)*Pair[e[1], ec[4]]*Pair[e[2], k[4]]*Pair[ec[5], k[3]] -
4*(S + T14)*Pair[e[1], e[2]]*Pair[ec[4], k[2]]*Pair[ec[5], k[3]] +
(Pair[ec[5], k[1]] - Pair[ec[5], k[3]])) +
4*(S + T14)*Pair[e[1], ec[4]]*Pair[e[2], k[4]]*Pair[ec[5], k[3]] +
4*(S + T14)*Pair[e[1], e[2]]*Pair[ec[4], k[2]]*Pair[ec[5], k[3]] -
2*Pair[e[2], ec[4]]*(Pair[e[1], k[4]]*(2*(MH2 - T - U)*
Pair[ec[5], k[2]] + (S + T14)*Pair[ec[5], k[3]] +
2*(MH2 - S34 - T)*Pair[ec[5], k[4]]) + Pair[e[1], k[2]]*
......
feynamps/ggHgg_box_3_FeynAmp_9diags.m
View file @ e52b5b53
......@@ -2139,6 +2139,17 @@ Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
((-MH2 + 2*S + T + T14)*Pair[e[2], ec[5]] -
4*(Pair[e[2], k[5]]*Pair[ec[5], k[1]] + Pair[e[2], k[1]]*
Pair[ec[5], k[2]]))))/(MW*SW) +
(8*Alfas2*EL*MT2*D0i[dd002, MH2, 0, MH2 - S - T24 - U, 0, S34, T, MT2,
MT2, MT2, MT2]*(-4*Pair[e[2], k[5]]*
((Pair[e[1], k[2]] - Pair[e[1], k[5]])*Pair[ec[4], ec[5]] +
Pair[e[1], ec[5]]*Pair[ec[4], k[3]]) + 2*Pair[e[2], ec[5]]*
(Pair[e[1], k[2]]*(Pair[ec[4], k[1]] + 2*Pair[ec[4], k[2]]) +
Pair[e[1], k[5]]*(Pair[ec[4], k[1]] - 2*Pair[ec[4], k[5]])) -
4*((Pair[e[1], k[2]] - Pair[e[1], k[5]])*Pair[e[2], ec[4]] +
Pair[e[1], e[2]]*Pair[ec[4], k[3]])*Pair[ec[5], k[2]] +
Pair[e[1], ec[4]]*((-MH2 + 2*S + T + T14)*Pair[e[2], ec[5]] -
4*(Pair[e[2], k[5]]*Pair[ec[5], k[1]] + Pair[e[2], k[1]]*
Pair[ec[5], k[2]]))))/(MW*SW) +
(8*Alfas2*EL*MT2*D0i[dd00, MH2, 0, MH2 - S - T24 - U, 0, S34, T, MT2,
MT2, MT2, MT2]*(Pair[e[2], ec[5]]*(Pair[e[1], k[5]]*
(2*Pair[ec[4], k[2]] + Pair[ec[4], k[3]]) + Pair[e[1], k[2]]*
......@@ -2152,17 +2163,6 @@ Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
((-MH2 + 2*S + T + T14)*Pair[e[2], ec[5]] -
4*(Pair[e[2], k[5]]*Pair[ec[5], k[1]] + Pair[e[2], k[1]]*
Pair[ec[5], k[2]]))))/(MW*SW) -
(8*Alfas2*EL*MT2*D0i[dd002, MH2, 0, MH2 - S - T24 - U, 0, S34, T, MT2,
MT2, MT2, MT2]*(4*Pair[e[2], k[5]]*
((Pair[e[1], k[2]] - Pair[e[1], k[5]])*Pair[ec[4], ec[5]] +
Pair[e[1], ec[5]]*Pair[ec[4], k[3]]) - 2*Pair[e[2], ec[5]]*
(Pair[e[1], k[2]]*(Pair[ec[4], k[1]] + 2*Pair[ec[4], k[2]]) +
Pair[e[1], k[5]]*(Pair[ec[4], k[1]] - 2*Pair[ec[4], k[5]])) +
4*((Pair[e[1], k[2]] - Pair[e[1], k[5]])*Pair[e[2], ec[4]] +
Pair[e[1], e[2]]*Pair[ec[4], k[3]])*Pair[ec[5], k[2]] +
Pair[e[1], ec[4]]*((MH2 - 2*S - T - T14)*Pair[e[2], ec[5]] +
4*(Pair[e[2], k[5]]*Pair[ec[5], k[1]] + Pair[e[2], k[1]]*
Pair[ec[5], k[2]]))))/(MW*SW) -
(8*Alfas2*EL*MT2*D0i[dd003, MH2, 0, MH2 - S - T24 - U, 0, S34, T, MT2,
MT2, MT2, MT2]*(-2*Pair[ec[4], k[1]]*
((Pair[e[1], k[2]] + Pair[e[1], k[5]])*Pair[e[2], ec[5]] -
......@@ -4639,6 +4639,16 @@ Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
Pair[ec[5], k[2]] + 4*Pair[e[1], e[2]]*(2*Pair[ec[4], k[1]] -
Pair[ec[4], k[3]])*Pair[ec[5], k[2]] + Pair[e[1], ec[4]]*
((-MH2 + 2*S + T + T14)*Pair[e[2], ec[5]] -
4*(Pair[e[2], k[5]]*Pair[ec[5], k[1]] + Pair[e[2], k[1]]*
Pair[ec[5], k[2]]))) + 8*D0i[dd002, MH2, 0, MH2 - S - T24 - U,
0, S34, T, MT2, MT2, MT2, MT2]*(-4*Pair[e[2], k[5]]*
((Pair[e[1], k[2]] - Pair[e[1], k[5]])*Pair[ec[4], ec[5]] +
Pair[e[1], ec[5]]*Pair[ec[4], k[3]]) + 2*Pair[e[2], ec[5]]*
(Pair[e[1], k[2]]*(Pair[ec[4], k[1]] + 2*Pair[ec[4], k[2]]) +
Pair[e[1], k[5]]*(Pair[ec[4], k[1]] - 2*Pair[ec[4], k[5]])) -
4*((Pair[e[1], k[2]] - Pair[e[1], k[5]])*Pair[e[2], ec[4]] +
Pair[e[1], e[2]]*Pair[ec[4], k[3]])*Pair[ec[5], k[2]] +
Pair[e[1], ec[4]]*((-MH2 + 2*S + T + T14)*Pair[e[2], ec[5]] -
4*(Pair[e[2], k[5]]*Pair[ec[5], k[1]] + Pair[e[2], k[1]]*
Pair[ec[5], k[2]]))) + 8*D0i[dd00, MH2, 0, MH2 - S - T24 - U,
0, S34, T, MT2, MT2, MT2, MT2]*(Pair[e[2], ec[5]]*
......@@ -4754,21 +4764,10 @@ Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}},
2*T14*Pair[e[2], ec[4]]*Pair[ec[5], k[2]] + 8*Pair[ec[4], k[1]]*
((Pair[e[2], k[1]] + Pair[e[2], k[3]])*Pair[ec[5], k[2]] +
Pair[e[2], k[5]]*(Pair[ec[5], k[1]] + Pair[ec[5], k[3]])))) -
8*(D0i[dd002, MH2, 0, MH2 - S - T24 - U, 0, S34, T, MT2, MT2, MT2,
MT2]*(4*Pair[e[2], k[5]]*((Pair[e[1], k[2]] - Pair[e[1], k[5]])*
Pair[ec[4], ec[5]] + Pair[e[1], ec[5]]*Pair[ec[4], k[3]]) -
2*Pair[e[2], ec[5]]*(Pair[e[1], k[2]]*(Pair[ec[4], k[1]] + 2*
Pair[ec[4], k[2]]) + Pair[e[1], k[5]]*(Pair[ec[4], k[1]] - 2*
Pair[ec[4], k[5]])) + 4*((Pair[e[1], k[2]] - Pair[e[1],
k[5]])*Pair[e[2], ec[4]] + Pair[e[1], e[2]]*Pair[ec[4], k[
3]])*Pair[ec[5], k[2]] + Pair[e[1], ec[4]]*
((MH2 - 2*S - T - T14)*Pair[e[2], ec[5]] +
4*(Pair[e[2], k[5]]*Pair[ec[5], k[1]] + Pair[e[2], k[1]]*
Pair[ec[5], k[2]]))) + D0i[dd003, MH2, 0, MH2 - S - T24 - U,
0, S34, T, MT2, MT2, MT2, MT2]*(-2*Pair[ec[4], k[1]]*
((Pair[e[1], k[2]] + Pair[e[1], k[5]])*Pair[e[2], ec[5]] -
2*(Pair[e[1], ec[5]]*Pair[e[2], k[5]] + Pair[e[1], e[2]]*
Pair[ec[5], k[2]])) + Pair[e[1], ec[4]]*
8*(D0i[dd003, MH2, 0, MH2 - S - T24 - U, 0, S34, T, MT2, MT2, MT2,
MT2]*(-2*Pair[ec[4], k[1]]*((Pair[e[1], k[2]] + Pair[e[1], k[5]])*
Pair[e[2], ec[5]] - 2*(Pair[e[1], ec[5]]*Pair[e[2], k[5]] +
Pair[e[1], e[2]]*Pair[ec[5], k[2]])) + Pair[e[1], ec[4]]*
((MH2 - 2*S - T - T14)*Pair[e[2], ec[5]] +
4*(Pair[e[2], k[5]]*Pair[ec[5], k[1]] + Pair[e[2], k[1]]*
Pair[ec[5], k[2]]))) + D0i[dd002, MH2, MH2 - S - T24 - U, 0,
......
feynamps/ggHgg_box_4_FeynAmp_9diags.m
View file @ e52b5b53
This diff is collapsed.
feynamps/ggHgg_triangle_FeynAmp_38diags.m
View file @ e52b5b53
This diff is collapsed.
ggHgg-SM.diagrams/box_1.png
View replaced file @ b32e54f2 View file @ e52b5b53
ggHgg-SM.diagrams/box_1.png

41.6 KB | W: | H:

ggHgg-SM.diagrams/box_1.png

41.6 KB | W: | H:

ggHgg-SM.diagrams/box_1.png
ggHgg-SM.diagrams/box_1.png
ggHgg-SM.diagrams/box_1.png
ggHgg-SM.diagrams/box_1.png
  • 2-up
  • Swipe
  • Onion skin
ggHgg-SM.diagrams/box_2.png
View replaced file @ b32e54f2 View file @ e52b5b53
ggHgg-SM.diagrams/box_2.png

43.2 KB | W: | H:

ggHgg-SM.diagrams/box_2.png

43.2 KB | W: | H:

ggHgg-SM.diagrams/box_2.png
ggHgg-SM.diagrams/box_2.png
ggHgg-SM.diagrams/box_2.png
ggHgg-SM.diagrams/box_2.png
  • 2-up
  • Swipe
  • Onion skin
ggHgg-SM.diagrams/box_3.png
View replaced file @ b32e54f2 View file @ e52b5b53
ggHgg-SM.diagrams/box_3.png

43.9 KB | W: | H:

ggHgg-SM.diagrams/box_3.png

43.9 KB | W: | H:

ggHgg-SM.diagrams/box_3.png
ggHgg-SM.diagrams/box_3.png
ggHgg-SM.diagrams/box_3.png
ggHgg-SM.diagrams/box_3.png
  • 2-up
  • Swipe
  • Onion skin
ggHgg-SM.diagrams/box_4.png
View replaced file @ b32e54f2 View file @ e52b5b53
ggHgg-SM.diagrams/box_4.png

38.3 KB | W: | H:

ggHgg-SM.diagrams/box_4.png

38.3 KB | W: | H:

ggHgg-SM.diagrams/box_4.png
ggHgg-SM.diagrams/box_4.png
ggHgg-SM.diagrams/box_4.png
ggHgg-SM.diagrams/box_4.png
  • 2-up
  • Swipe
  • Onion skin
ggHgg-SM.diagrams/triangle_1.png
View replaced file @ b32e54f2 View file @ e52b5b53
ggHgg-SM.diagrams/triangle_1.png

44.1 KB | W: | H:

ggHgg-SM.diagrams/triangle_1.png

44.1 KB | W: | H:

ggHgg-SM.diagrams/triangle_1.png
ggHgg-SM.diagrams/triangle_1.png
ggHgg-SM.diagrams/triangle_1.png
ggHgg-SM.diagrams/triangle_1.png
  • 2-up
  • Swipe
  • Onion skin
ggHgg-SM.diagrams/triangle_2.png
View replaced file @ b32e54f2 View file @ e52b5b53
ggHgg-SM.diagrams/triangle_2.png

43.9 KB | W: | H:

ggHgg-SM.diagrams/triangle_2.png

43.9 KB | W: | H:

ggHgg-SM.diagrams/triangle_2.png
ggHgg-SM.diagrams/triangle_2.png
ggHgg-SM.diagrams/triangle_2.png
ggHgg-SM.diagrams/triangle_2.png
  • 2-up
  • Swipe
  • Onion skin
ggHgg-SM.diagrams/triangle_3.png
View replaced file @ b32e54f2 View file @ e52b5b53
ggHgg-SM.diagrams/triangle_3.png

46.7 KB | W: | H:

ggHgg-SM.diagrams/triangle_3.png

46.7 KB | W: | H:

ggHgg-SM.diagrams/triangle_3.png
ggHgg-SM.diagrams/triangle_3.png
ggHgg-SM.diagrams/triangle_3.png
ggHgg-SM.diagrams/triangle_3.png
  • 2-up
  • Swipe
  • Onion skin
ggHgg-SM.diagrams/triangle_4.png
View replaced file @ b32e54f2 View file @ e52b5b53
ggHgg-SM.diagrams/triangle_4.png

46.1 KB | W: | H:

ggHgg-SM.diagrams/triangle_4.png

46.1 KB | W: | H:

ggHgg-SM.diagrams/triangle_4.png
ggHgg-SM.diagrams/triangle_4.png
ggHgg-SM.diagrams/triangle_4.png
ggHgg-SM.diagrams/triangle_4.png
  • 2-up
  • Swipe
  • Onion skin
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