Commit 679c08e3 authored by Reyesrivera, Jose's avatar Reyesrivera, Jose
Browse files

update subMandelstam.m and add sub_analyticPVcoeff.nb

parent 7deee262
No preview for this file type
This diff is collapsed.
This diff is collapsed.
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
{{0}}
{{{{0}}}}
This diff is collapsed.
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}}
{{{{0}}}}
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
{{0}}
{{{{0}}}}
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}}
{{{{0}}}}
This diff is collapsed.
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
{{0}}
{{{{0}}}}
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
{{0}}
{{{{0}}}}
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
{{0}}
{{{{0}}}}
......@@ -12,15 +12,15 @@
(Pair[e[2], ec[5]]*(Pair[ec[4], k[3]] - Pair[ec[4], k[5]]) +
Pair[e[2], ec[4]]*(Pair[ec[5], k[3]] + 2*Pair[ec[5], k[4]]))))*
PVC[0, 0, 0, S34, 0, S, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW)) + (Alfas^2*EL*MT^2*
(4*((-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) - 2*Pair[e[1], k[5]]*
(MW*SW)) - (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]] + Pair[e[1], ec[5]]*
Pair[e[2], k[1]]*(2*Pair[ec[4], k[3]] + Pair[ec[4], k[5]]) -
Pair[e[1], ec[4]]*Pair[e[2], k[1]]*Pair[ec[5], k[4]] +
Pair[e[1], k[2]]*(-(Pair[e[2], ec[5]]*(2*Pair[ec[4], k[3]] +
Pair[ec[4], k[5]])) + Pair[e[2], ec[4]]*Pair[ec[5], k[4]])) +
Pair[e[1], e[2]]*((T + 2*T14 - 2*T24 - U)*Pair[ec[4], ec[5]] +
Pair[e[1], e[2]]*((-T - 2*T14 + 2*T24 + U)*Pair[ec[4], ec[5]] -
2*(-2*Pair[ec[4], k[3]]*(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
Pair[ec[4], k[5]]*(-Pair[ec[5], k[1]] + Pair[ec[5], k[2]]) +
(Pair[ec[4], k[1]] - Pair[ec[4], k[2]])*Pair[ec[5], k[4]])))*
......@@ -954,10 +954,10 @@
Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[4], k[1]] -
Pair[ec[4], k[2]]))*Pair[ec[5], k[4]])*PVD[1, 0, 1, 0, MH^2, S34,
S, 2*MH^2 - S34 - T - U, 0, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) - (8*Alfas^2*EL*MT^2*
(((-T - T14 + T24 + U)*Pair[e[1], e[2]] -
Sqrt[MT^2]])/(MW*SW) + (8*Alfas^2*EL*MT^2*
(((T + T14 - T24 - U)*Pair[e[1], e[2]] +
4*(-(Pair[e[1], k[5]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[5]]))*Pair[ec[4], ec[5]] - 2*Pair[ec[4], k[5]]*
Pair[e[2], k[5]]))*Pair[ec[4], ec[5]] + 2*Pair[ec[4], k[5]]*
(2*Pair[e[1], k[2]]*Pair[e[2], ec[5]] - 2*Pair[e[1], ec[5]]*
Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[5], k[1]] -
Pair[ec[5], k[2]])))*PVD[1, 0, 1, 0, MH^2, 2*MH^2 - S34 - T - U,
......@@ -1000,15 +1000,15 @@
(Pair[e[2], ec[5]]*(Pair[ec[4], k[3]] - Pair[ec[4], k[5]]) +
Pair[e[2], ec[4]]*(Pair[ec[5], k[3]] + 2*Pair[ec[5], k[4]]))))*
PVC[0, 0, 0, S34, 0, S, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/
(MW*SW)) + (Alfas^2*EL*MT^2*
(4*((-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) - 2*Pair[e[1], k[5]]*
(MW*SW)) - (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]] + Pair[e[1], ec[5]]*
Pair[e[2], k[1]]*(2*Pair[ec[4], k[3]] + Pair[ec[4], k[5]]) -
Pair[e[1], ec[4]]*Pair[e[2], k[1]]*Pair[ec[5], k[4]] +
Pair[e[1], k[2]]*(-(Pair[e[2], ec[5]]*(2*Pair[ec[4], k[3]] +
Pair[ec[4], k[5]])) + Pair[e[2], ec[4]]*Pair[ec[5], k[4]])) +
Pair[e[1], e[2]]*((T + 2*T14 - 2*T24 - U)*Pair[ec[4], ec[5]] +
Pair[e[1], e[2]]*((-T - 2*T14 + 2*T24 + U)*Pair[ec[4], ec[5]] -
2*(-2*Pair[ec[4], k[3]]*(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
Pair[ec[4], k[5]]*(-Pair[ec[5], k[1]] + Pair[ec[5], k[2]]) +
(Pair[ec[4], k[1]] - Pair[ec[4], k[2]])*Pair[ec[5], k[4]])))*
......@@ -1942,10 +1942,10 @@
Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[4], k[1]] -
Pair[ec[4], k[2]]))*Pair[ec[5], k[4]])*PVD[1, 0, 1, 0, MH^2, S34,
S, 2*MH^2 - S34 - T - U, 0, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) - (8*Alfas^2*EL*MT^2*
(((-T - T14 + T24 + U)*Pair[e[1], e[2]] -
Sqrt[MT^2]])/(MW*SW) + (8*Alfas^2*EL*MT^2*
(((T + T14 - T24 - U)*Pair[e[1], e[2]] +
4*(-(Pair[e[1], k[5]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[5]]))*Pair[ec[4], ec[5]] - 2*Pair[ec[4], k[5]]*
Pair[e[2], k[5]]))*Pair[ec[4], ec[5]] + 2*Pair[ec[4], k[5]]*
(2*Pair[e[1], k[2]]*Pair[e[2], ec[5]] - 2*Pair[e[1], ec[5]]*
Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[5], k[1]] -
Pair[ec[5], k[2]])))*PVD[1, 0, 1, 0, MH^2, 2*MH^2 - S34 - T - U,
......@@ -1986,8 +1986,8 @@
2*Pair[ec[5], k[4]]) - Pair[e[1], k[2]]*
(Pair[e[2], ec[5]]*(Pair[ec[4], k[3]] - Pair[ec[4], k[5]]) +
Pair[e[2], ec[4]]*(Pair[ec[5], k[3]] + 2*Pair[ec[5], k[4]]))))*
PVC[0, 0, 0, S34, 0, S, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(Alfas^2*EL*MT^2*(4*((-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) -
PVC[0, 0, 0, S34, 0, S, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(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]] +
Pair[e[1], ec[5]]*Pair[e[2], k[1]]*(2*Pair[ec[4], k[3]] +
......@@ -1995,7 +1995,7 @@
Pair[ec[5], k[4]] + Pair[e[1], k[2]]*
(-(Pair[e[2], ec[5]]*(2*Pair[ec[4], k[3]] + Pair[ec[4], k[5]])) +
Pair[e[2], ec[4]]*Pair[ec[5], k[4]])) + Pair[e[1], e[2]]*
((T + 2*T14 - 2*T24 - U)*Pair[ec[4], ec[5]] +
((-T - 2*T14 + 2*T24 + U)*Pair[ec[4], ec[5]] -
2*(-2*Pair[ec[4], k[3]]*(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
Pair[ec[4], k[5]]*(-Pair[ec[5], k[1]] + Pair[ec[5], k[2]]) +
(Pair[ec[4], k[1]] - Pair[ec[4], k[2]])*Pair[ec[5], k[4]])))*
......@@ -2929,10 +2929,10 @@
Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[4], k[1]] -
Pair[ec[4], k[2]]))*Pair[ec[5], k[4]])*PVD[1, 0, 1, 0, MH^2, S34,
S, 2*MH^2 - S34 - T - U, 0, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) + (8*Alfas^2*EL*MT^2*
(((-T - T14 + T24 + U)*Pair[e[1], e[2]] -
Sqrt[MT^2]])/(MW*SW) - (8*Alfas^2*EL*MT^2*
(((T + T14 - T24 - U)*Pair[e[1], e[2]] +
4*(-(Pair[e[1], k[5]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[5]]))*Pair[ec[4], ec[5]] - 2*Pair[ec[4], k[5]]*
Pair[e[2], k[5]]))*Pair[ec[4], ec[5]] + 2*Pair[ec[4], k[5]]*
(2*Pair[e[1], k[2]]*Pair[e[2], ec[5]] - 2*Pair[e[1], ec[5]]*
Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[5], k[1]] -
Pair[ec[5], k[2]])))*PVD[1, 0, 1, 0, MH^2, 2*MH^2 - S34 - T - U,
......@@ -2973,8 +2973,8 @@
2*Pair[ec[5], k[4]]) - Pair[e[1], k[2]]*
(Pair[e[2], ec[5]]*(Pair[ec[4], k[3]] - Pair[ec[4], k[5]]) +
Pair[e[2], ec[4]]*(Pair[ec[5], k[3]] + 2*Pair[ec[5], k[4]]))))*
PVC[0, 0, 0, S34, 0, S, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(Alfas^2*EL*MT^2*(4*((-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) -
PVC[0, 0, 0, S34, 0, S, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
(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]] +
Pair[e[1], ec[5]]*Pair[e[2], k[1]]*(2*Pair[ec[4], k[3]] +
......@@ -2982,7 +2982,7 @@
Pair[ec[5], k[4]] + Pair[e[1], k[2]]*
(-(Pair[e[2], ec[5]]*(2*Pair[ec[4], k[3]] + Pair[ec[4], k[5]])) +
Pair[e[2], ec[4]]*Pair[ec[5], k[4]])) + Pair[e[1], e[2]]*
((T + 2*T14 - 2*T24 - U)*Pair[ec[4], ec[5]] +
((-T - 2*T14 + 2*T24 + U)*Pair[ec[4], ec[5]] -
2*(-2*Pair[ec[4], k[3]]*(Pair[ec[5], k[1]] - Pair[ec[5], k[2]]) +
Pair[ec[4], k[5]]*(-Pair[ec[5], k[1]] + Pair[ec[5], k[2]]) +
(Pair[ec[4], k[1]] - Pair[ec[4], k[2]])*Pair[ec[5], k[4]])))*
......@@ -3916,10 +3916,10 @@
Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[4], k[1]] -
Pair[ec[4], k[2]]))*Pair[ec[5], k[4]])*PVD[1, 0, 1, 0, MH^2, S34,
S, 2*MH^2 - S34 - T - U, 0, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) + (8*Alfas^2*EL*MT^2*
(((-T - T14 + T24 + U)*Pair[e[1], e[2]] -
Sqrt[MT^2]])/(MW*SW) - (8*Alfas^2*EL*MT^2*
(((T + T14 - T24 - U)*Pair[e[1], e[2]] +
4*(-(Pair[e[1], k[5]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
Pair[e[2], k[5]]))*Pair[ec[4], ec[5]] - 2*Pair[ec[4], k[5]]*
Pair[e[2], k[5]]))*Pair[ec[4], ec[5]] + 2*Pair[ec[4], k[5]]*
(2*Pair[e[1], k[2]]*Pair[e[2], ec[5]] - 2*Pair[e[1], ec[5]]*
Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[5], k[1]] -
Pair[ec[5], k[2]])))*PVD[1, 0, 1, 0, MH^2, 2*MH^2 - S34 - T - U,
......
......@@ -286,13 +286,13 @@
Pair[e[1], k[5]]*(Pair[ec[4], k[3]]*Pair[ec[5], k[2]] +
Pair[ec[4], k[2]]*Pair[ec[5], k[3]])))*PVD[0, 1, 2, 0, 0, U,
MH^2 - S - T - T14, T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) - (8*Alfas^2*EL*MT^2*Pair[e[2], k[4]]*
Pair[ec[4], k[2]]*(-((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]]) +
Sqrt[MT^2]])/(MW*SW) + (8*Alfas^2*EL*MT^2*Pair[e[2], k[4]]*
Pair[ec[4], k[2]]*((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]] -
4*(Pair[e[1], k[2]]*Pair[ec[5], k[1]] + Pair[e[1], k[5]]*
Pair[ec[5], k[2]]))*PVD[0, 2, 0, 1, 0, U, MH^2 - S - T - T14, T24,
MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(8*Alfas^2*EL*MT^2*Pair[e[2], k[3]]*Pair[ec[4], k[2]]*
(-((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]]) +
((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]] -
4*(Pair[e[1], k[2]]*Pair[ec[5], k[1]] + Pair[e[1], k[5]]*
Pair[ec[5], k[2]]))*PVD[0, 2, 1, 0, 0, U, MH^2 - S - T - T14, T24,
MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
......@@ -626,13 +626,13 @@
Pair[e[1], k[5]]*(Pair[ec[4], k[3]]*Pair[ec[5], k[2]] +
Pair[ec[4], k[2]]*Pair[ec[5], k[3]])))*PVD[0, 1, 2, 0, 0, U,
MH^2 - S - T - T14, T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2]])/(MW*SW) - (8*Alfas^2*EL*MT^2*Pair[e[2], k[4]]*
Pair[ec[4], k[2]]*(-((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]]) +
Sqrt[MT^2]])/(MW*SW) + (8*Alfas^2*EL*MT^2*Pair[e[2], k[4]]*
Pair[ec[4], k[2]]*((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]] -
4*(Pair[e[1], k[2]]*Pair[ec[5], k[1]] + Pair[e[1], k[5]]*
Pair[ec[5], k[2]]))*PVD[0, 2, 0, 1, 0, U, MH^2 - S - T - T14, T24,
MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) -
(8*Alfas^2*EL*MT^2*Pair[e[2], k[3]]*Pair[ec[4], k[2]]*
(-((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]]) +
((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]] -
4*(Pair[e[1], k[2]]*Pair[ec[5], k[1]] + Pair[e[1], k[5]]*
Pair[ec[5], k[2]]))*PVD[0, 2, 1, 0, 0, U, MH^2 - S - T - T14, T24,
MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/(MW*SW) +
......@@ -2164,11 +2164,11 @@
Pair[ec[5], k[1]] + Pair[e[1], k[5]]*(2*Pair[ec[5], k[2]] -
Pair[ec[5], k[4]])))*PVD[0, 1, 0, 2, 0, U, MH^2 - S - T - T14,
T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] +
Pair[e[2], k[4]]*Pair[ec[4], k[2]]*
(-((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]]) +
4*(Pair[e[1], k[2]]*Pair[ec[5], k[1]] + Pair[e[1], k[5]]*
Pair[ec[5], k[2]]))*PVD[0, 2, 0, 1, 0, U, MH^2 - S - T - T14,
T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]) -
Pair[e[2], k[3]]*Pair[ec[4], k[2]]*((-MH^2 + 2*S + T24 + U)*
Pair[e[1], ec[5]] - 4*(Pair[e[1], k[2]]*Pair[ec[5], k[1]] +
Pair[e[1], k[5]]*Pair[ec[5], k[2]]))*PVD[0, 2, 1, 0, 0, U,
MH^2 - S - T - T14, T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]]) -
4*(4*Pair[e[1], k[5]]*Pair[e[2], k[4]]*Pair[ec[4], ec[5]] +
8*Pair[e[1], k[5]]*Pair[e[2], ec[5]]*Pair[ec[4], k[2]] -
Pair[e[1], ec[5]]*((MH^2 - 2*T + 2*T14 + T24 - U)*Pair[e[2], ec[4]] +
......@@ -2222,10 +2222,10 @@
Pair[e[1], k[5]]*(Pair[ec[4], k[3]]*Pair[ec[5], k[2]] +
Pair[ec[4], k[2]]*Pair[ec[5], k[3]])))*PVD[0, 1, 2, 0, 0, U,
MH^2 - S - T - T14, T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]] + Pair[e[2], k[3]]*Pair[ec[4], k[2]]*
(-((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]]) +
Sqrt[MT^2], Sqrt[MT^2]] + Pair[e[2], k[4]]*Pair[ec[4], k[2]]*
((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]] -
4*(Pair[e[1], k[2]]*Pair[ec[5], k[1]] + Pair[e[1], k[5]]*
Pair[ec[5], k[2]]))*PVD[0, 2, 1, 0, 0, U, MH^2 - S - T - T14,
Pair[ec[5], k[2]]))*PVD[0, 2, 0, 1, 0, U, MH^2 - S - T - T14,
T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] +
(Pair[e[1], ec[5]]*((-2*MH^2 + S34 + 2*T + U)*Pair[e[2], ec[4]] -
2*((Pair[e[2], k[1]] + Pair[e[2], k[5]])*Pair[ec[4], k[2]] -
......@@ -3114,11 +3114,11 @@
Pair[ec[5], k[1]] + Pair[e[1], k[5]]*(2*Pair[ec[5], k[2]] -
Pair[ec[5], k[4]])))*PVD[0, 1, 0, 2, 0, U, MH^2 - S - T - T14,
T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] +
Pair[e[2], k[4]]*Pair[ec[4], k[2]]*
(-((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]]) +
4*(Pair[e[1], k[2]]*Pair[ec[5], k[1]] + Pair[e[1], k[5]]*
Pair[ec[5], k[2]]))*PVD[0, 2, 0, 1, 0, U, MH^2 - S - T - T14,
T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]) -
Pair[e[2], k[3]]*Pair[ec[4], k[2]]*((-MH^2 + 2*S + T24 + U)*
Pair[e[1], ec[5]] - 4*(Pair[e[1], k[2]]*Pair[ec[5], k[1]] +
Pair[e[1], k[5]]*Pair[ec[5], k[2]]))*PVD[0, 2, 1, 0, 0, U,
MH^2 - S - T - T14, T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]]) -
4*(4*Pair[e[1], k[5]]*Pair[e[2], k[4]]*Pair[ec[4], ec[5]] +
8*Pair[e[1], k[5]]*Pair[e[2], ec[5]]*Pair[ec[4], k[2]] -
Pair[e[1], ec[5]]*((MH^2 - 2*T + 2*T14 + T24 - U)*Pair[e[2], ec[4]] +
......@@ -3172,10 +3172,10 @@
Pair[e[1], k[5]]*(Pair[ec[4], k[3]]*Pair[ec[5], k[2]] +
Pair[ec[4], k[2]]*Pair[ec[5], k[3]])))*PVD[0, 1, 2, 0, 0, U,
MH^2 - S - T - T14, T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2],
Sqrt[MT^2], Sqrt[MT^2]] + Pair[e[2], k[3]]*Pair[ec[4], k[2]]*
(-((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]]) +
Sqrt[MT^2], Sqrt[MT^2]] + Pair[e[2], k[4]]*Pair[ec[4], k[2]]*
((-MH^2 + 2*S + T24 + U)*Pair[e[1], ec[5]] -
4*(Pair[e[1], k[2]]*Pair[ec[5], k[1]] + Pair[e[1], k[5]]*
Pair[ec[5], k[2]]))*PVD[0, 2, 1, 0, 0, U, MH^2 - S - T - T14,
Pair[ec[5], k[2]]))*PVD[0, 2, 0, 1, 0, U, MH^2 - S - T - T14,
T24, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] +
(Pair[e[1], ec[5]]*((-2*MH^2 + S34 + 2*T + U)*Pair[e[2], ec[4]] -
2*((Pair[e[2], k[1]] + Pair[e[2], k[5]])*Pair[ec[4], k[2]] -
......
Supports Markdown
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