Skip to content

GitLab

Commit 3361bd22 authored by Reyesrivera, Jose's avatar Reyesrivera, Jose
Browse files

add discontinuity scripts

parent 48d7d805
Expand all Hide whitespace changes
Inline Side-by-side
fc-amp-1.frm 0 → 100644
View file @ 3361bd22
This diff is collapsed.
feynamps/PVX_triangle_group1_FeynAmp.m 0 → 100644
View file @ 3361bd22
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(2*c1*((-4*Alfas^2*EL*MT^2*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, T, Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(2*Alfas^2*EL*MT^2*(((-MH^2 + T)*Pair[e[1], e[2]] + 2*Pair[e[1], k[3]]*
Pair[e[2], k[1]])*Pair[ec[4], ec[5]] - 2*Pair[e[2], ec[5]]*
((-MH^2 + T)*Pair[e[1], ec[4]] + 2*Pair[e[1], k[3]]*
Pair[ec[4], k[1]]) + Pair[e[2], ec[4]]*
((-MH^2 + T)*Pair[e[1], ec[5]] + 2*Pair[e[1], k[3]]*
Pair[ec[5], k[1]]))*PVC[0, 0, 0, MH^2, T, 0, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(4*Alfas^2*EL*MT^2*(((-MH^2 + T)*Pair[e[1], e[2]] + 2*Pair[e[1], k[3]]*
(Pair[e[2], k[1]] + Pair[e[2], k[3]]))*Pair[ec[4], ec[5]] -
2*Pair[e[2], ec[5]]*((-MH^2 + T)*Pair[e[1], ec[4]] +
2*Pair[e[1], k[3]]*(Pair[ec[4], k[1]] + Pair[ec[4], k[3]])) +
Pair[e[2], ec[4]]*((-MH^2 + T)*Pair[e[1], ec[5]] +
2*Pair[e[1], k[3]]*(Pair[ec[5], k[1]] + Pair[ec[5], k[3]])))*
PVC[0, 1, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*Pair[e[1], k[3]]*
(Pair[e[2], k[1]]*Pair[ec[4], ec[5]] - 2*Pair[e[2], ec[5]]*
Pair[ec[4], k[1]] + Pair[e[2], ec[4]]*Pair[ec[5], k[1]])*
PVC[0, 1, 1, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*Pair[e[1], k[3]]*
(Pair[e[2], k[3]]*Pair[ec[4], ec[5]] - 2*Pair[e[2], ec[5]]*
Pair[ec[4], k[3]] + Pair[e[2], ec[4]]*Pair[ec[5], k[3]])*
PVC[0, 2, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW)))/T +
(2*c2*((-4*Alfas^2*EL*MT^2*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, T, Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(2*Alfas^2*EL*MT^2*(((-MH^2 + T)*Pair[e[1], e[2]] + 2*Pair[e[1], k[3]]*
Pair[e[2], k[1]])*Pair[ec[4], ec[5]] + Pair[e[2], ec[5]]*
((-MH^2 + T)*Pair[e[1], ec[4]] + 2*Pair[e[1], k[3]]*
Pair[ec[4], k[1]]) - 2*Pair[e[2], ec[4]]*
((-MH^2 + T)*Pair[e[1], ec[5]] + 2*Pair[e[1], k[3]]*
Pair[ec[5], k[1]]))*PVC[0, 0, 0, MH^2, T, 0, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(4*Alfas^2*EL*MT^2*(((-MH^2 + T)*Pair[e[1], e[2]] + 2*Pair[e[1], k[3]]*
(Pair[e[2], k[1]] + Pair[e[2], k[3]]))*Pair[ec[4], ec[5]] +
Pair[e[2], ec[5]]*((-MH^2 + T)*Pair[e[1], ec[4]] +
2*Pair[e[1], k[3]]*(Pair[ec[4], k[1]] + Pair[ec[4], k[3]])) -
2*Pair[e[2], ec[4]]*((-MH^2 + T)*Pair[e[1], ec[5]] +
2*Pair[e[1], k[3]]*(Pair[ec[5], k[1]] + Pair[ec[5], k[3]])))*
PVC[0, 1, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*Pair[e[1], k[3]]*
(Pair[e[2], k[1]]*Pair[ec[4], ec[5]] + Pair[e[2], ec[5]]*
Pair[ec[4], k[1]] - 2*Pair[e[2], ec[4]]*Pair[ec[5], k[1]])*
PVC[0, 1, 1, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*Pair[e[1], k[3]]*
(Pair[e[2], k[3]]*Pair[ec[4], ec[5]] + Pair[e[2], ec[5]]*
Pair[ec[4], k[3]] - 2*Pair[e[2], ec[4]]*Pair[ec[5], k[3]])*
PVC[0, 2, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW)))/T +
(2*c3*((4*Alfas^2*EL*MT^2*(-(Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) -
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, T, Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(2*Alfas^2*EL*MT^2*(2*((-MH^2 + T)*Pair[e[1], e[2]] +
2*Pair[e[1], k[3]]*Pair[e[2], k[1]])*Pair[ec[4], ec[5]] -
Pair[e[2], ec[5]]*((-MH^2 + T)*Pair[e[1], ec[4]] +
2*Pair[e[1], k[3]]*Pair[ec[4], k[1]]) - Pair[e[2], ec[4]]*
((-MH^2 + T)*Pair[e[1], ec[5]] + 2*Pair[e[1], k[3]]*
Pair[ec[5], k[1]]))*PVC[0, 0, 0, MH^2, T, 0, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(4*Alfas^2*EL*MT^2*(2*((-MH^2 + T)*Pair[e[1], e[2]] +
2*Pair[e[1], k[3]]*(Pair[e[2], k[1]] + Pair[e[2], k[3]]))*
Pair[ec[4], ec[5]] - Pair[e[2], ec[5]]*
((-MH^2 + T)*Pair[e[1], ec[4]] + 2*Pair[e[1], k[3]]*
(Pair[ec[4], k[1]] + Pair[ec[4], k[3]])) - Pair[e[2], ec[4]]*
((-MH^2 + T)*Pair[e[1], ec[5]] + 2*Pair[e[1], k[3]]*
(Pair[ec[5], k[1]] + Pair[ec[5], k[3]])))*PVC[0, 1, 0, MH^2, T, 0,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(16*Alfas^2*EL*MT^2*Pair[e[1], k[3]]*
(2*Pair[e[2], k[1]]*Pair[ec[4], ec[5]] - Pair[e[2], ec[5]]*
Pair[ec[4], k[1]] - Pair[e[2], ec[4]]*Pair[ec[5], k[1]])*
PVC[0, 1, 1, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(16*Alfas^2*EL*MT^2*Pair[e[1], k[3]]*
(2*Pair[e[2], k[3]]*Pair[ec[4], ec[5]] - Pair[e[2], ec[5]]*
Pair[ec[4], k[3]] - Pair[e[2], ec[4]]*Pair[ec[5], k[3]])*
PVC[0, 2, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(16*Alfas^2*EL*MT^2*(-(Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) -
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW)))/T
feynamps/PVX_triangle_group2_FeynAmp.m 0 → 100644
View file @ 3361bd22
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(2*c1*((-4*Alfas^2*EL*MT^2*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, U, Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(2*Alfas^2*EL*MT^2*(((-MH^2 + U)*Pair[e[1], e[2]] + 2*Pair[e[1], k[2]]*
Pair[e[2], k[3]])*Pair[ec[4], ec[5]] + Pair[e[1], ec[5]]*
((-MH^2 + U)*Pair[e[2], ec[4]] + 2*Pair[e[2], k[3]]*
Pair[ec[4], k[2]]) - 2*Pair[e[1], ec[4]]*
((-MH^2 + U)*Pair[e[2], ec[5]] + 2*Pair[e[2], k[3]]*
Pair[ec[5], k[2]]))*PVC[0, 0, 0, 0, U, MH^2, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(4*Alfas^2*EL*MT^2*(((-MH^2 + U)*Pair[e[1], e[2]] +
2*(Pair[e[1], k[2]] + Pair[e[1], k[3]])*Pair[e[2], k[3]])*
Pair[ec[4], ec[5]] + Pair[e[1], ec[5]]*
((-MH^2 + U)*Pair[e[2], ec[4]] + 2*Pair[e[2], k[3]]*
(Pair[ec[4], k[2]] + Pair[ec[4], k[3]])) - 2*Pair[e[1], ec[4]]*
((-MH^2 + U)*Pair[e[2], ec[5]] + 2*Pair[e[2], k[3]]*
(Pair[ec[5], k[2]] + Pair[ec[5], k[3]])))*PVC[0, 0, 1, 0, U, MH^2,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*Pair[e[2], k[3]]*
(Pair[e[1], k[3]]*Pair[ec[4], ec[5]] + Pair[e[1], ec[5]]*
Pair[ec[4], k[3]] - 2*Pair[e[1], ec[4]]*Pair[ec[5], k[3]])*
PVC[0, 0, 2, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*Pair[e[2], k[3]]*
(Pair[e[1], k[2]]*Pair[ec[4], ec[5]] + Pair[e[1], ec[5]]*
Pair[ec[4], k[2]] - 2*Pair[e[1], ec[4]]*Pair[ec[5], k[2]])*
PVC[0, 1, 1, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW)))/U +
(2*c2*((-4*Alfas^2*EL*MT^2*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, U, Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(2*Alfas^2*EL*MT^2*(((-MH^2 + U)*Pair[e[1], e[2]] + 2*Pair[e[1], k[2]]*
Pair[e[2], k[3]])*Pair[ec[4], ec[5]] - 2*Pair[e[1], ec[5]]*
((-MH^2 + U)*Pair[e[2], ec[4]] + 2*Pair[e[2], k[3]]*
Pair[ec[4], k[2]]) + Pair[e[1], ec[4]]*
((-MH^2 + U)*Pair[e[2], ec[5]] + 2*Pair[e[2], k[3]]*
Pair[ec[5], k[2]]))*PVC[0, 0, 0, 0, U, MH^2, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(4*Alfas^2*EL*MT^2*(((-MH^2 + U)*Pair[e[1], e[2]] +
2*(Pair[e[1], k[2]] + Pair[e[1], k[3]])*Pair[e[2], k[3]])*
Pair[ec[4], ec[5]] - 2*Pair[e[1], ec[5]]*
((-MH^2 + U)*Pair[e[2], ec[4]] + 2*Pair[e[2], k[3]]*
(Pair[ec[4], k[2]] + Pair[ec[4], k[3]])) + Pair[e[1], ec[4]]*
((-MH^2 + U)*Pair[e[2], ec[5]] + 2*Pair[e[2], k[3]]*
(Pair[ec[5], k[2]] + Pair[ec[5], k[3]])))*PVC[0, 0, 1, 0, U, MH^2,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*Pair[e[2], k[3]]*
(Pair[e[1], k[3]]*Pair[ec[4], ec[5]] - 2*Pair[e[1], ec[5]]*
Pair[ec[4], k[3]] + Pair[e[1], ec[4]]*Pair[ec[5], k[3]])*
PVC[0, 0, 2, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*Pair[e[2], k[3]]*
(Pair[e[1], k[2]]*Pair[ec[4], ec[5]] - 2*Pair[e[1], ec[5]]*
Pair[ec[4], k[2]] + Pair[e[1], ec[4]]*Pair[ec[5], k[2]])*
PVC[0, 1, 1, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW)))/U +
(2*c3*((4*Alfas^2*EL*MT^2*(-(Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) -
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, U, Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(2*Alfas^2*EL*MT^2*(2*((-MH^2 + U)*Pair[e[1], e[2]] +
2*Pair[e[1], k[2]]*Pair[e[2], k[3]])*Pair[ec[4], ec[5]] -
Pair[e[1], ec[5]]*((-MH^2 + U)*Pair[e[2], ec[4]] +
2*Pair[e[2], k[3]]*Pair[ec[4], k[2]]) - Pair[e[1], ec[4]]*
((-MH^2 + U)*Pair[e[2], ec[5]] + 2*Pair[e[2], k[3]]*
Pair[ec[5], k[2]]))*PVC[0, 0, 0, 0, U, MH^2, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(4*Alfas^2*EL*MT^2*(2*((-MH^2 + U)*Pair[e[1], e[2]] +
2*(Pair[e[1], k[2]] + Pair[e[1], k[3]])*Pair[e[2], k[3]])*
Pair[ec[4], ec[5]] - Pair[e[1], ec[5]]*
((-MH^2 + U)*Pair[e[2], ec[4]] + 2*Pair[e[2], k[3]]*
(Pair[ec[4], k[2]] + Pair[ec[4], k[3]])) - Pair[e[1], ec[4]]*
((-MH^2 + U)*Pair[e[2], ec[5]] + 2*Pair[e[2], k[3]]*
(Pair[ec[5], k[2]] + Pair[ec[5], k[3]])))*PVC[0, 0, 1, 0, U, MH^2,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(16*Alfas^2*EL*MT^2*Pair[e[2], k[3]]*
(2*Pair[e[1], k[3]]*Pair[ec[4], ec[5]] - Pair[e[1], ec[5]]*
Pair[ec[4], k[3]] - Pair[e[1], ec[4]]*Pair[ec[5], k[3]])*
PVC[0, 0, 2, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(16*Alfas^2*EL*MT^2*Pair[e[2], k[3]]*
(2*Pair[e[1], k[2]]*Pair[ec[4], ec[5]] - Pair[e[1], ec[5]]*
Pair[ec[4], k[2]] - Pair[e[1], ec[4]]*Pair[ec[5], k[2]])*
PVC[0, 1, 1, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(16*Alfas^2*EL*MT^2*(-(Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) -
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW)))/U
feynamps/PVX_triangle_group3_FeynAmp.m 0 → 100644
View file @ 3361bd22
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(2*c1*((-4*Alfas^2*EL*MT^2*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, S34, Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(2*Alfas^2*EL*MT^2*(2*Pair[e[2], ec[5]]*
((-MH^2 + S34)*Pair[e[1], ec[4]] - 2*Pair[e[1], k[4]]*
Pair[ec[4], k[3]]) - Pair[e[1], ec[5]]*
((-MH^2 + S34)*Pair[e[2], ec[4]] - 2*Pair[e[2], k[4]]*
Pair[ec[4], k[3]]) - Pair[e[1], e[2]]*
((-MH^2 + S34)*Pair[ec[4], ec[5]] - 2*Pair[ec[4], k[3]]*
Pair[ec[5], k[4]]))*PVC[0, 0, 0, MH^2, S34, 0, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(4*Alfas^2*EL*MT^2*(2*Pair[e[2], ec[5]]*
((-MH^2 + S34)*Pair[e[1], ec[4]] + 2*(Pair[e[1], k[3]] -
Pair[e[1], k[4]])*Pair[ec[4], k[3]]) - Pair[e[1], ec[5]]*
((-MH^2 + S34)*Pair[e[2], ec[4]] + 2*(Pair[e[2], k[3]] -
Pair[e[2], k[4]])*Pair[ec[4], k[3]]) - Pair[e[1], e[2]]*
((-MH^2 + S34)*Pair[ec[4], ec[5]] + 2*Pair[ec[4], k[3]]*
(Pair[ec[5], k[3]] - Pair[ec[5], k[4]])))*PVC[0, 1, 0, MH^2, S34,
0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(16*Alfas^2*EL*MT^2*Pair[ec[4], k[3]]*
(-2*Pair[e[1], k[4]]*Pair[e[2], ec[5]] + Pair[e[1], ec[5]]*
Pair[e[2], k[4]] + Pair[e[1], e[2]]*Pair[ec[5], k[4]])*
PVC[0, 1, 1, MH^2, S34, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) + (16*Alfas^2*EL*MT^2*Pair[ec[4], k[3]]*
(-2*Pair[e[1], k[3]]*Pair[e[2], ec[5]] + Pair[e[1], ec[5]]*
Pair[e[2], k[3]] + Pair[e[1], e[2]]*Pair[ec[5], k[3]])*
PVC[0, 2, 0, MH^2, S34, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) + (16*Alfas^2*EL*MT^2*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, MH^2, S34, 0, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW)))/S34 +
(2*c2*((-4*Alfas^2*EL*MT^2*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, S34, Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(2*Alfas^2*EL*MT^2*(Pair[e[2], ec[5]]*((-MH^2 + S34)*Pair[e[1], ec[4]] -
2*Pair[e[1], k[4]]*Pair[ec[4], k[3]]) - 2*Pair[e[1], ec[5]]*
((-MH^2 + S34)*Pair[e[2], ec[4]] - 2*Pair[e[2], k[4]]*
Pair[ec[4], k[3]]) + Pair[e[1], e[2]]*
((-MH^2 + S34)*Pair[ec[4], ec[5]] - 2*Pair[ec[4], k[3]]*
Pair[ec[5], k[4]]))*PVC[0, 0, 0, MH^2, S34, 0, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(4*Alfas^2*EL*MT^2*(Pair[e[2], ec[5]]*((-MH^2 + S34)*Pair[e[1], ec[4]] +
2*(Pair[e[1], k[3]] - Pair[e[1], k[4]])*Pair[ec[4], k[3]]) -
2*Pair[e[1], ec[5]]*((-MH^2 + S34)*Pair[e[2], ec[4]] +
2*(Pair[e[2], k[3]] - Pair[e[2], k[4]])*Pair[ec[4], k[3]]) +
Pair[e[1], e[2]]*((-MH^2 + S34)*Pair[ec[4], ec[5]] +
2*Pair[ec[4], k[3]]*(Pair[ec[5], k[3]] - Pair[ec[5], k[4]])))*
PVC[0, 1, 0, MH^2, S34, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) - (16*Alfas^2*EL*MT^2*Pair[ec[4], k[3]]*
(Pair[e[1], k[4]]*Pair[e[2], ec[5]] - 2*Pair[e[1], ec[5]]*
Pair[e[2], k[4]] + Pair[e[1], e[2]]*Pair[ec[5], k[4]])*
PVC[0, 1, 1, MH^2, S34, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) + (16*Alfas^2*EL*MT^2*Pair[ec[4], k[3]]*
(Pair[e[1], k[3]]*Pair[e[2], ec[5]] - 2*Pair[e[1], ec[5]]*
Pair[e[2], k[3]] + Pair[e[1], e[2]]*Pair[ec[5], k[3]])*
PVC[0, 2, 0, MH^2, S34, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) + (16*Alfas^2*EL*MT^2*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, MH^2, S34, 0, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW)))/S34 +
(2*c3*((4*Alfas^2*EL*MT^2*(-(Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) -
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, S34, Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(2*Alfas^2*EL*MT^2*(Pair[e[2], ec[5]]*((-MH^2 + S34)*Pair[e[1], ec[4]] -
2*Pair[e[1], k[4]]*Pair[ec[4], k[3]]) + Pair[e[1], ec[5]]*
((-MH^2 + S34)*Pair[e[2], ec[4]] - 2*Pair[e[2], k[4]]*
Pair[ec[4], k[3]]) - 2*Pair[e[1], e[2]]*
((-MH^2 + S34)*Pair[ec[4], ec[5]] - 2*Pair[ec[4], k[3]]*
Pair[ec[5], k[4]]))*PVC[0, 0, 0, MH^2, S34, 0, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(4*Alfas^2*EL*MT^2*(Pair[e[2], ec[5]]*((-MH^2 + S34)*Pair[e[1], ec[4]] +
2*(Pair[e[1], k[3]] - Pair[e[1], k[4]])*Pair[ec[4], k[3]]) +
Pair[e[1], ec[5]]*((-MH^2 + S34)*Pair[e[2], ec[4]] +
2*(Pair[e[2], k[3]] - Pair[e[2], k[4]])*Pair[ec[4], k[3]]) -
2*Pair[e[1], e[2]]*((-MH^2 + S34)*Pair[ec[4], ec[5]] +
2*Pair[ec[4], k[3]]*(Pair[ec[5], k[3]] - Pair[ec[5], k[4]])))*
PVC[0, 1, 0, MH^2, S34, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) + (16*Alfas^2*EL*MT^2*Pair[ec[4], k[3]]*
(-(Pair[e[1], k[4]]*Pair[e[2], ec[5]]) - Pair[e[1], ec[5]]*
Pair[e[2], k[4]] + 2*Pair[e[1], e[2]]*Pair[ec[5], k[4]])*
PVC[0, 1, 1, MH^2, S34, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) + (16*Alfas^2*EL*MT^2*Pair[ec[4], k[3]]*
(Pair[e[1], k[3]]*Pair[e[2], ec[5]] + Pair[e[1], ec[5]]*
Pair[e[2], k[3]] - 2*Pair[e[1], e[2]]*Pair[ec[5], k[3]])*
PVC[0, 2, 0, MH^2, S34, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) - (16*Alfas^2*EL*MT^2*(-(Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) -
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, MH^2, S34, 0, Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW)))/S34
feynamps/PVX_triangle_group4_FeynAmp.m 0 → 100644
View file @ 3361bd22
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(2*c1*((-4*Alfas^2*EL*MT^2*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, 2*MH^2 - S34 - T - U, Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) - (2*Alfas^2*EL*MT^2*
(Pair[e[2], ec[4]]*((-MH^2 + S34 + T + U)*Pair[e[1], ec[5]] +
2*Pair[e[1], k[5]]*Pair[ec[5], k[3]]) - 2*Pair[e[1], ec[4]]*
((-MH^2 + S34 + T + U)*Pair[e[2], ec[5]] + 2*Pair[e[2], k[5]]*
Pair[ec[5], k[3]]) + Pair[e[1], e[2]]*
((-MH^2 + S34 + T + U)*Pair[ec[4], ec[5]] + 2*Pair[ec[4], k[5]]*
Pair[ec[5], k[3]]))*PVC[0, 0, 0, MH^2, 2*MH^2 - S34 - T - U, 0,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(4*Alfas^2*EL*MT^2*(Pair[e[2], ec[4]]*((-MH^2 + S34 + T + U)*
Pair[e[1], ec[5]] - 2*(Pair[e[1], k[3]] - Pair[e[1], k[5]])*
Pair[ec[5], k[3]]) - 2*Pair[e[1], ec[4]]*
((-MH^2 + S34 + T + U)*Pair[e[2], ec[5]] -
2*(Pair[e[2], k[3]] - Pair[e[2], k[5]])*Pair[ec[5], k[3]]) +
Pair[e[1], e[2]]*((-MH^2 + S34 + T + U)*Pair[ec[4], ec[5]] -
2*(Pair[ec[4], k[3]] - Pair[ec[4], k[5]])*Pair[ec[5], k[3]]))*
PVC[0, 1, 0, MH^2, 2*MH^2 - S34 - T - U, 0, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) - (16*Alfas^2*EL*MT^2*
(Pair[e[1], k[5]]*Pair[e[2], ec[4]] - 2*Pair[e[1], ec[4]]*
Pair[e[2], k[5]] + Pair[e[1], e[2]]*Pair[ec[4], k[5]])*
Pair[ec[5], k[3]]*PVC[0, 1, 1, MH^2, 2*MH^2 - S34 - T - U, 0,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*(Pair[e[1], k[3]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], k[3]] + Pair[e[1], e[2]]*
Pair[ec[4], k[3]])*Pair[ec[5], k[3]]*PVC[0, 2, 0, MH^2,
2*MH^2 - S34 - T - U, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) + (16*Alfas^2*EL*MT^2*(Pair[e[1], ec[5]]*Pair[e[2], ec[4]] -
2*Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, MH^2, 2*MH^2 - S34 - T - U, 0,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW)))/
(2*MH^2 - S34 - T - U) +
(2*c2*((-4*Alfas^2*EL*MT^2*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, 2*MH^2 - S34 - T - U, Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) + (2*Alfas^2*EL*MT^2*
(2*Pair[e[2], ec[4]]*((-MH^2 + S34 + T + U)*Pair[e[1], ec[5]] +
2*Pair[e[1], k[5]]*Pair[ec[5], k[3]]) - Pair[e[1], ec[4]]*
((-MH^2 + S34 + T + U)*Pair[e[2], ec[5]] + 2*Pair[e[2], k[5]]*
Pair[ec[5], k[3]]) - Pair[e[1], e[2]]*
((-MH^2 + S34 + T + U)*Pair[ec[4], ec[5]] + 2*Pair[ec[4], k[5]]*
Pair[ec[5], k[3]]))*PVC[0, 0, 0, MH^2, 2*MH^2 - S34 - T - U, 0,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(4*Alfas^2*EL*MT^2*(2*Pair[e[2], ec[4]]*((-MH^2 + S34 + T + U)*
Pair[e[1], ec[5]] - 2*(Pair[e[1], k[3]] - Pair[e[1], k[5]])*
Pair[ec[5], k[3]]) - Pair[e[1], ec[4]]*
((-MH^2 + S34 + T + U)*Pair[e[2], ec[5]] -
2*(Pair[e[2], k[3]] - Pair[e[2], k[5]])*Pair[ec[5], k[3]]) -
Pair[e[1], e[2]]*((-MH^2 + S34 + T + U)*Pair[ec[4], ec[5]] -
2*(Pair[ec[4], k[3]] - Pair[ec[4], k[5]])*Pair[ec[5], k[3]]))*
PVC[0, 1, 0, MH^2, 2*MH^2 - S34 - T - U, 0, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) - (16*Alfas^2*EL*MT^2*
(-2*Pair[e[1], k[5]]*Pair[e[2], ec[4]] + Pair[e[1], ec[4]]*
Pair[e[2], k[5]] + Pair[e[1], e[2]]*Pair[ec[4], k[5]])*
Pair[ec[5], k[3]]*PVC[0, 1, 1, MH^2, 2*MH^2 - S34 - T - U, 0,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(16*Alfas^2*EL*MT^2*(-2*Pair[e[1], k[3]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], k[3]] + Pair[e[1], e[2]]*
Pair[ec[4], k[3]])*Pair[ec[5], k[3]]*PVC[0, 2, 0, MH^2,
2*MH^2 - S34 - T - U, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) + (16*Alfas^2*EL*MT^2*(-2*Pair[e[1], ec[5]]*Pair[e[2], ec[4]] +
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, MH^2, 2*MH^2 - S34 - T - U, 0,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW)))/
(2*MH^2 - S34 - T - U) +
(2*c3*((4*Alfas^2*EL*MT^2*(-(Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) -
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVB[0, 0, 2*MH^2 - S34 - T - U, Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) - (2*Alfas^2*EL*MT^2*
(Pair[e[2], ec[4]]*((-MH^2 + S34 + T + U)*Pair[e[1], ec[5]] +
2*Pair[e[1], k[5]]*Pair[ec[5], k[3]]) + Pair[e[1], ec[4]]*
((-MH^2 + S34 + T + U)*Pair[e[2], ec[5]] + 2*Pair[e[2], k[5]]*
Pair[ec[5], k[3]]) - 2*Pair[e[1], e[2]]*
((-MH^2 + S34 + T + U)*Pair[ec[4], ec[5]] + 2*Pair[ec[4], k[5]]*
Pair[ec[5], k[3]]))*PVC[0, 0, 0, MH^2, 2*MH^2 - S34 - T - U, 0,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(4*Alfas^2*EL*MT^2*(Pair[e[2], ec[4]]*((-MH^2 + S34 + T + U)*
Pair[e[1], ec[5]] - 2*(Pair[e[1], k[3]] - Pair[e[1], k[5]])*
Pair[ec[5], k[3]]) + Pair[e[1], ec[4]]*
((-MH^2 + S34 + T + U)*Pair[e[2], ec[5]] -
2*(Pair[e[2], k[3]] - Pair[e[2], k[5]])*Pair[ec[5], k[3]]) -
2*Pair[e[1], e[2]]*((-MH^2 + S34 + T + U)*Pair[ec[4], ec[5]] -
2*(Pair[ec[4], k[3]] - Pair[ec[4], k[5]])*Pair[ec[5], k[3]]))*
PVC[0, 1, 0, MH^2, 2*MH^2 - S34 - T - U, 0, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) + (16*Alfas^2*EL*MT^2*
(-(Pair[e[1], k[5]]*Pair[e[2], ec[4]]) - Pair[e[1], ec[4]]*
Pair[e[2], k[5]] + 2*Pair[e[1], e[2]]*Pair[ec[4], k[5]])*
Pair[ec[5], k[3]]*PVC[0, 1, 1, MH^2, 2*MH^2 - S34 - T - U, 0,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(16*Alfas^2*EL*MT^2*(-(Pair[e[1], k[3]]*Pair[e[2], ec[4]]) -
Pair[e[1], ec[4]]*Pair[e[2], k[3]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], k[3]])*Pair[ec[5], k[3]]*PVC[0, 2, 0, MH^2,
2*MH^2 - S34 - T - U, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW) - (16*Alfas^2*EL*MT^2*(-(Pair[e[1], ec[5]]*Pair[e[2], ec[4]]) -
Pair[e[1], ec[4]]*Pair[e[2], ec[5]] + 2*Pair[e[1], e[2]]*
Pair[ec[4], ec[5]])*PVC[1, 0, 0, MH^2, 2*MH^2 - S34 - T - U, 0,
Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW)))/(2*MH^2 - S34 - T - U)
feynamps/PVX_triangle_group5_FeynAmp.m 0 → 100644
View file @ 3361bd22
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(2*c2*((2*Alfas^2*EL*MT^2*(-4*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) -
2*Pair[e[1], k[5]]*Pair[e[2], k[1]] + Pair[e[1], k[2]]*
(Pair[e[2], k[3]] + 2*Pair[e[2], k[5]]))*Pair[ec[4], ec[5]] +
8*Pair[e[1], k[2]]*Pair[e[2], ec[5]]*Pair[ec[4], k[5]] -
8*Pair[e[1], ec[5]]*Pair[e[2], k[1]]*Pair[ec[4], k[5]] -
8*Pair[e[1], k[2]]*Pair[e[2], ec[4]]*Pair[ec[5], k[4]] +
8*Pair[e[1], ec[4]]*Pair[e[2], k[1]]*Pair[ec[5], k[4]] +
Pair[e[1], e[2]]*((-T