diff --git a/.DS_Store b/.DS_Store
index cea4e01f81e971d0a9e9256f060c51e7307e1567..4cae2173fd8c97bf358c66cc9a6ffa4cdf5a2bf1 100644
Binary files a/.DS_Store and b/.DS_Store differ
diff --git a/helicities/.DS_Store b/helicities/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..b74e39eb9d5d03ceed01290c2e95ed6494c9561d
Binary files /dev/null and b/helicities/.DS_Store differ
diff --git a/helicities/0jets/0jets.txt b/helicities/0jets/0jets.txt
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/helicities/0jets/ggH_++.m b/helicities/0jets/ggH_++.m
new file mode 100644
index 0000000000000000000000000000000000000000..17d7aa37a2161c616b85bca711054c6bee990031
--- /dev/null
+++ b/helicities/0jets/ggH_++.m
@@ -0,0 +1,7 @@
+(* 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)
diff --git a/helicities/0jets/ggH_++_vel.m b/helicities/0jets/ggH_++_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..17d7aa37a2161c616b85bca711054c6bee990031
--- /dev/null
+++ b/helicities/0jets/ggH_++_vel.m
@@ -0,0 +1,7 @@
+(* 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)
diff --git a/helicities/0jets/ggH_+-.m b/helicities/0jets/ggH_+-.m
new file mode 100644
index 0000000000000000000000000000000000000000..b54e6784f860d10bfc1ca239a66ec5d0e3c9dee7
--- /dev/null
+++ b/helicities/0jets/ggH_+-.m
@@ -0,0 +1,2 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+0
diff --git a/helicities/0jets/ggH_+-_vel.m b/helicities/0jets/ggH_+-_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..b54e6784f860d10bfc1ca239a66ec5d0e3c9dee7
--- /dev/null
+++ b/helicities/0jets/ggH_+-_vel.m
@@ -0,0 +1,2 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+0
diff --git a/helicities/0jets/ggH_-+.m b/helicities/0jets/ggH_-+.m
new file mode 100644
index 0000000000000000000000000000000000000000..b54e6784f860d10bfc1ca239a66ec5d0e3c9dee7
--- /dev/null
+++ b/helicities/0jets/ggH_-+.m
@@ -0,0 +1,2 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+0
diff --git a/helicities/0jets/ggH_-+_vel.m b/helicities/0jets/ggH_-+_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..b54e6784f860d10bfc1ca239a66ec5d0e3c9dee7
--- /dev/null
+++ b/helicities/0jets/ggH_-+_vel.m
@@ -0,0 +1,2 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+0
diff --git a/helicities/0jets/ggH_--.m b/helicities/0jets/ggH_--.m
new file mode 100644
index 0000000000000000000000000000000000000000..17d7aa37a2161c616b85bca711054c6bee990031
--- /dev/null
+++ b/helicities/0jets/ggH_--.m
@@ -0,0 +1,7 @@
+(* 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)
diff --git a/helicities/0jets/ggH_--_vel.m b/helicities/0jets/ggH_--_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..17d7aa37a2161c616b85bca711054c6bee990031
--- /dev/null
+++ b/helicities/0jets/ggH_--_vel.m
@@ -0,0 +1,7 @@
+(* 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)
diff --git a/helicities/1jets/1jets.txt b/helicities/1jets/1jets.txt
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/helicities/1jets/ggHg_+++.m b/helicities/1jets/ggHg_+++.m
new file mode 100644
index 0000000000000000000000000000000000000000..b58186a98283cf5776a2a4230c8ff92a185fe4db
--- /dev/null
+++ b/helicities/1jets/ggHg_+++.m
@@ -0,0 +1,106 @@
+(* 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*MT^2*
+ (((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S) -
+ DiscB[S, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S))*Sech[\[Eta]3])/
+ Sqrt[2] + (Sqrt[S]*(T + U)*
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - S)) - Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/
+ (2*MT^2)]^2/(2*(MH^2 - S)))*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (Sqrt[S]*(2 + Eps^(-1) + DiscB[S, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - S)) - (S*DiscB[S, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - S)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - S)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/(2*MT^2)]^2)/
+ (4*(MH^2 - S))))*Sech[\[Eta]3])/Sqrt[2])/S +
+ (-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
+ ((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ 2)) - Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) -
+ (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
+ ((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/2) +
+ (2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] -
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (1 + Tanh[\[Eta]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
+ (2*Sqrt[2]) - (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
+ (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ ((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2] - Sqrt[2]*kT3^2*Sqrt[S]*
+ Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3]) - (kT3*(-3*S + T)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
+ (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/Sqrt[2]))/U -
+ ((2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
+ (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) +
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-1 + Tanh[\[Eta]3]))/Sqrt[2] -
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ ((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) -
+ (MH^2 - T)*(-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) +
+ (kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) - 2*(MH^2 - T)*
+ (-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (kT3*(-3*S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ 2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3]) -
+ ((-S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/
+ Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3]) -
+ ((-S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/
+ Sqrt[2]))/T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_+++_vel.m b/helicities/1jets/ggHg_+++_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..fd0e5b05735abcb866e87924ddff48343dce15ea
--- /dev/null
+++ b/helicities/1jets/ggHg_+++_vel.m
@@ -0,0 +1,115 @@
+(* 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*MT^2*
+ (((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
+ (MH^2 - (4*MT^2)/(1 - \[Beta]^2)) - DiscB[(4*MT^2)/(1 - \[Beta]^2),
+ Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - (4*MT^2)/(1 - \[Beta]^2)))*
+ Sech[\[Eta]3])/Sqrt[2] + (Sqrt[S]*(T + U)*
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
+ Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) + 2*Sqrt[
+ -((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/(1 - \[Beta]^
+ 2))])/(2*MT^2)]^2/(2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))))*
+ Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (Sqrt[S]*(2 + Eps^(-1) + DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2],
+ Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
+ (MT^2*DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2], Sqrt[MT^2]])/
+ ((1 - \[Beta]^2)*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) +
+ 2*Sqrt[-((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/
+ (1 - \[Beta]^2))])/(2*MT^2)]^2)/
+ (4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2)))))*Sech[\[Eta]3])/Sqrt[2])/
+ S + (-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
+ (2*(MH^2 - U)) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
+ ((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ 2)) - Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) -
+ (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
+ ((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/2) +
+ (2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] -
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (1 + Tanh[\[Eta]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
+ (2*Sqrt[2]) - (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
+ (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ ((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2] - Sqrt[2]*kT3^2*Sqrt[S]*
+ Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3]) - (kT3*(-3*S + T)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
+ (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/Sqrt[2]))/U -
+ ((2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
+ (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) +
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-1 + Tanh[\[Eta]3]))/Sqrt[2] -
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ ((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) -
+ (MH^2 - T)*(-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) +
+ (kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) - 2*(MH^2 - T)*
+ (-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (kT3*(-3*S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ 2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3]) -
+ ((-S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/
+ Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3]) -
+ ((-S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/
+ Sqrt[2]))/T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_++-.m b/helicities/1jets/ggHg_++-.m
new file mode 100644
index 0000000000000000000000000000000000000000..35a46e131dcb5ca0aa1dd746912ae6484722deca
--- /dev/null
+++ b/helicities/1jets/ggHg_++-.m
@@ -0,0 +1,112 @@
+(* 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*MT^2*
+ ((-((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S) -
+ DiscB[S, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S))*Sech[\[Eta]3])/
+ Sqrt[2]) - (Sqrt[S]*(T + U)*
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - S)) - Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/
+ (2*MT^2)]^2/(2*(MH^2 - S)))*Sech[\[Eta]3])/(2*Sqrt[2]) -
+ (Sqrt[S]*(2 + Eps^(-1) + DiscB[S, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - S)) - (S*DiscB[S, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - S)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - S)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/(2*MT^2)]^2)/
+ (4*(MH^2 - S))))*Sech[\[Eta]3])/Sqrt[2])/S +
+ (-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) + ((-S + T)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/2)) -
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3]) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2) +
+ (2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*(-(Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
+ (2*Sqrt[2]) + (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (-((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2]) +
+ Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) + (kT3*(-MH^2 + U)*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] +
+ (kT3*(-3*S + T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])))/U -
+ (-2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])) - ((-S + U)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/2))/
+ Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) -
+ ((-S + U)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2))/Sqrt[2]) +
+ (2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
+ (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] -
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])) - (kT3*(-3*S + U)*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2]) -
+ 2*(MH^2 - T)*((Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) -
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]))) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (MH^2 - T)*((Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) -
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]))))/T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_++-_vel.m b/helicities/1jets/ggHg_++-_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..4cad610b14dc9a48e835fa26844c7704ea2e73dc
--- /dev/null
+++ b/helicities/1jets/ggHg_++-_vel.m
@@ -0,0 +1,121 @@
+(* 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*MT^2*
+ ((-((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
+ (MH^2 - (4*MT^2)/(1 - \[Beta]^2)) -
+ DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2], Sqrt[MT^2]]/
+ (MH^2 - (4*MT^2)/(1 - \[Beta]^2)))*Sech[\[Eta]3])/Sqrt[2]) -
+ (Sqrt[S]*(T + U)*(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2/(2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
+ Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) + 2*Sqrt[
+ -((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/(1 - \[Beta]^
+ 2))])/(2*MT^2)]^2/(2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))))*
+ Sech[\[Eta]3])/(2*Sqrt[2]) -
+ (Sqrt[S]*(2 + Eps^(-1) + DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2],
+ Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
+ (MT^2*DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2], Sqrt[MT^2]])/
+ ((1 - \[Beta]^2)*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) +
+ 2*Sqrt[-((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/
+ (1 - \[Beta]^2))])/(2*MT^2)]^2)/
+ (4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2)))))*Sech[\[Eta]3])/Sqrt[2])/
+ S + (-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
+ (2*(MH^2 - U)) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) + ((-S + T)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/2)) -
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3]) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2) +
+ (2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*(-(Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
+ (2*Sqrt[2]) + (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (-((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2]) +
+ Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) + (kT3*(-MH^2 + U)*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] +
+ (kT3*(-3*S + T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])))/U -
+ (-2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])) - ((-S + U)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/2))/
+ Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) -
+ ((-S + U)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2))/Sqrt[2]) +
+ (2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
+ (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] -
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])) - (kT3*(-3*S + U)*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2]) -
+ 2*(MH^2 - T)*((Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) -
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]))) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (MH^2 - T)*((Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) -
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]))))/T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_+-+.m b/helicities/1jets/ggHg_+-+.m
new file mode 100644
index 0000000000000000000000000000000000000000..700e59de1f50ac74410e19a2afb4c08ff3bff140
--- /dev/null
+++ b/helicities/1jets/ggHg_+-+.m
@@ -0,0 +1,83 @@
+(* 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*MT^2*
+ (-((-2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])) +
+ ((-S + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ 2))/Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) -
+ (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) +
+ ((-S + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ 2))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) - (kT3*S*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
+ (kT3*(MH^2 - T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])^2) +
+ (kT3*(MH^2 - T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/Sqrt[2] +
+ (kT3*(-3*S + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (kT3*(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[
+ MT^2]])/(4*(MH^2 - T)) - (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - T)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - T)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]))/T) +
+ (Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
+ ((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/2) +
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
+ ((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/2) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^
+ 2 + (kT3*(-3*S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) -
+ (kT3*(-MH^2 + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*
+ ((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) - (kT3*S*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) -
+ (kT3*(-MH^2 + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (kT3*(2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - U)) - (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - U)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - U)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]))/U))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_+-+_vel.m b/helicities/1jets/ggHg_+-+_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..700e59de1f50ac74410e19a2afb4c08ff3bff140
--- /dev/null
+++ b/helicities/1jets/ggHg_+-+_vel.m
@@ -0,0 +1,83 @@
+(* 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*MT^2*
+ (-((-2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])) +
+ ((-S + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ 2))/Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) -
+ (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) +
+ ((-S + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ 2))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) - (kT3*S*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) +
+ (kT3*(MH^2 - T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])^2) +
+ (kT3*(MH^2 - T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/Sqrt[2] +
+ (kT3*(-3*S + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (kT3*(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[
+ MT^2]])/(4*(MH^2 - T)) - (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - T)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - T)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]))/T) +
+ (Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
+ ((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/2) +
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) -
+ ((-S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/2) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^
+ 2 + (kT3*(-3*S + T)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) -
+ (kT3*(-MH^2 + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*
+ ((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) - (kT3*S*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]) -
+ (kT3*(-MH^2 + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (kT3*(2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - U)) - (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - U)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - U)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2]))/U))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_+--.m b/helicities/1jets/ggHg_+--.m
new file mode 100644
index 0000000000000000000000000000000000000000..26fc894e21f36cc368e213f39a8ac7632d786c2f
--- /dev/null
+++ b/helicities/1jets/ggHg_+--.m
@@ -0,0 +1,86 @@
+(* 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*MT^2*
+ (((kT3*(2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) + Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
+ (2*(MH^2 - U)) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) + ((-S + T)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/2) +
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3]) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) + (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) + (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^
+ 2) - (kT3*(-3*S + T)*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) + (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]))/U -
+ ((kT3*(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
+ (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2/(2*(MH^2 - T)) -
+ Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2/
+ (2*(MH^2 - T)))*((kT3^2*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])^2)/(2*Sqrt[2]) +
+ (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^
+ 2 - (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] -
+ (kT3*(-3*S + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) -
+ 2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) - ((-S + U)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/2))/
+ Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3]) -
+ ((-S + U)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2))/Sqrt[2]))/T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_+--_vel.m b/helicities/1jets/ggHg_+--_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..26fc894e21f36cc368e213f39a8ac7632d786c2f
--- /dev/null
+++ b/helicities/1jets/ggHg_+--_vel.m
@@ -0,0 +1,86 @@
+(* 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*MT^2*
+ (((kT3*(2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) + Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
+ (2*(MH^2 - U)) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) + ((-S + T)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/2) +
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3]) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) + (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) + (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^
+ 2) - (kT3*(-3*S + T)*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) + (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]))/U -
+ ((kT3*(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
+ (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2/(2*(MH^2 - T)) -
+ Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2/
+ (2*(MH^2 - T)))*((kT3^2*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])^2)/(2*Sqrt[2]) +
+ (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])^
+ 2 - (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] -
+ (kT3*(-3*S + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) -
+ 2*((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) - ((-S + U)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/2))/
+ Sqrt[2] + (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3]) -
+ ((-S + U)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2))/Sqrt[2]))/T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_-++.m b/helicities/1jets/ggHg_-++.m
new file mode 100644
index 0000000000000000000000000000000000000000..a99ab0519a4e6bd2c171f3a2c66dcafd57f48648
--- /dev/null
+++ b/helicities/1jets/ggHg_-++.m
@@ -0,0 +1,85 @@
+(* 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*MT^2*
+ ((-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3]) + ((-S + T)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/2)) -
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3]) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 - I*\[Phi]3] +
+ Sinh[\[Eta]3 - I*\[Phi]3]))/2) +
+ (2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*((kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 - I*\[Phi]3] +
+ Sinh[\[Eta]3 - I*\[Phi]3]))/(2*Sqrt[2]) -
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*(1 + Tanh[\[Eta]3]))/
+ Sqrt[2]) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^
+ 2 + (kT3*(-3*S + T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*
+ (1 + Tanh[\[Eta]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*
+ ((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*
+ (1 + Tanh[\[Eta]3]))/(2*Sqrt[2])))/U -
+ ((2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
+ (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*
+ (-((kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ Sqrt[2]) + (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*
+ (1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) + (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 - I*\[Phi]3] +
+ Sinh[\[Eta]3 - I*\[Phi]3]))/(2*Sqrt[2]) -
+ (kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*(1 + Tanh[\[Eta]3]))/
+ (2*Sqrt[2])) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^
+ 2) + (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/Sqrt[2] +
+ (kT3*(-3*S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*
+ (1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ 2*(-((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3]) - ((-S + U)*(Cos[\[Phi]3] - I*
+ Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/Sqrt[2]) -
+ (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (2*(MH^2 - T)^2) + (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/
+ (2*(MH^2 - T)^2) - (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3]) -
+ ((-S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/
+ Sqrt[2]))/T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_-++_vel.m b/helicities/1jets/ggHg_-++_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..a99ab0519a4e6bd2c171f3a2c66dcafd57f48648
--- /dev/null
+++ b/helicities/1jets/ggHg_-++_vel.m
@@ -0,0 +1,85 @@
+(* 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*MT^2*
+ ((-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3]) + ((-S + T)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/2)) -
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3]) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 - I*\[Phi]3] +
+ Sinh[\[Eta]3 - I*\[Phi]3]))/2) +
+ (2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*((kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 - I*\[Phi]3] +
+ Sinh[\[Eta]3 - I*\[Phi]3]))/(2*Sqrt[2]) -
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*(1 + Tanh[\[Eta]3]))/
+ Sqrt[2]) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^
+ 2 + (kT3*(-3*S + T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*
+ (1 + Tanh[\[Eta]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*
+ ((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*
+ (1 + Tanh[\[Eta]3]))/(2*Sqrt[2])))/U -
+ ((2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
+ (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*
+ (-((kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ Sqrt[2]) + (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*
+ (1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) + (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 - I*\[Phi]3] +
+ Sinh[\[Eta]3 - I*\[Phi]3]))/(2*Sqrt[2]) -
+ (kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*(1 + Tanh[\[Eta]3]))/
+ (2*Sqrt[2])) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^
+ 2) + (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/Sqrt[2] +
+ (kT3*(-3*S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2*
+ (1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ 2*(-((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3]) - ((-S + U)*(Cos[\[Phi]3] - I*
+ Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/Sqrt[2]) -
+ (kT3*(-1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (2*(MH^2 - T)^2) + (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/
+ (2*(MH^2 - T)^2) - (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3]) -
+ ((-S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(1 + Tanh[\[Eta]3]))/2))/
+ Sqrt[2]))/T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_-+-.m b/helicities/1jets/ggHg_-+-.m
new file mode 100644
index 0000000000000000000000000000000000000000..b73c68a1917add14e1ffe8afd206d04b66da8452
--- /dev/null
+++ b/helicities/1jets/ggHg_-+-.m
@@ -0,0 +1,90 @@
+(* 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*MT^2*
+ (-((-2*(-((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(-(kT3*Sqrt[S]*Sech[\[Eta]3]*(
+ Cos[\[Phi]3] - I*Sin[\[Phi]3])) - ((-S + U)*Sech[\[Eta]3]*(
+ Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/2))/
+ Sqrt[2]) - (kT3*(-1/(2*(MH^2 - T)) -
+ (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) -
+ ((-S + U)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[
+ \[Eta]3 + I*\[Phi]3]))/2))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ ((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) + (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^
+ 2 + (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] +
+ (kT3*(-3*S + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) - (kT3*(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2],
+ Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - T)) - (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - T)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - T)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]))/T) +
+ (-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2)) -
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^
+ 2) + (kT3*(-3*S + T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ (kT3*(2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - U)) - (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - U)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - U)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2]))/
+ U))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_-+-_vel.m b/helicities/1jets/ggHg_-+-_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..b73c68a1917add14e1ffe8afd206d04b66da8452
--- /dev/null
+++ b/helicities/1jets/ggHg_-+-_vel.m
@@ -0,0 +1,90 @@
+(* 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*MT^2*
+ (-((-2*(-((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(-(kT3*Sqrt[S]*Sech[\[Eta]3]*(
+ Cos[\[Phi]3] - I*Sin[\[Phi]3])) - ((-S + U)*Sech[\[Eta]3]*(
+ Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/2))/
+ Sqrt[2]) - (kT3*(-1/(2*(MH^2 - T)) -
+ (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) -
+ ((-S + U)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[
+ \[Eta]3 + I*\[Phi]3]))/2))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ ((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) + (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^
+ 2 + (kT3*(MH^2 - T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] +
+ (kT3*(-3*S + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) - (kT3*(2 + Eps^(-1) + DiscB[T, Sqrt[MT^2],
+ Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - T)) - (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - T)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - T)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]))/T) +
+ (-(Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2)) -
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^
+ 2) + (kT3*(-3*S + T)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])^2)/
+ (2*Sqrt[2]) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ (kT3*(2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - U)) - (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - U)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - U)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2]))/
+ U))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_--+.m b/helicities/1jets/ggHg_--+.m
new file mode 100644
index 0000000000000000000000000000000000000000..94b6c625083e3ff88ad7223d09d5e4b97358d312
--- /dev/null
+++ b/helicities/1jets/ggHg_--+.m
@@ -0,0 +1,109 @@
+(* 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*MT^2*
+ (((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S) -
+ DiscB[S, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S))*Sech[\[Eta]3])/
+ Sqrt[2] + (Sqrt[S]*(T + U)*
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - S)) - Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/
+ (2*MT^2)]^2/(2*(MH^2 - S)))*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (Sqrt[S]*(2 + Eps^(-1) + DiscB[S, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - S)) - (S*DiscB[S, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - S)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - S)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/(2*MT^2)]^2)/
+ (4*(MH^2 - S))))*Sech[\[Eta]3])/Sqrt[2])/S +
+ (Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3]) + ((-S + T)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/2) +
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3]) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 - I*\[Phi]3] +
+ Sinh[\[Eta]3 - I*\[Phi]3]))/2) +
+ (2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] -
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2]) + (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
+ (2*Sqrt[2]) - (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2]) + (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ (2*Sqrt[2])) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ ((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2] - Sqrt[2]*kT3^2*Sqrt[S]*
+ Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3]) - (kT3*(-3*S + T)*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(Cosh[\[Eta]3 - I*\[Phi]3] +
+ Sinh[\[Eta]3 - I*\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/Sqrt[2]))/U -
+ (-2*(-((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(-(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])) +
+ ((-S + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ 2))/Sqrt[2]) - (kT3*(-1/(2*(MH^2 - T)) -
+ (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) +
+ ((-S + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ 2))/Sqrt[2]) + (2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - T)) - (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - T)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - T)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/Sqrt[2] -
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ ((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) -
+ (MH^2 - T)*(-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2])) + (kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ (2*Sqrt[2])) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) - 2*(MH^2 - T)*
+ (-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2])) - (kT3*(-3*S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])))/
+ T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_--+_vel.m b/helicities/1jets/ggHg_--+_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..3d0ae3d576f5e65a4834dae77805225972db896a
--- /dev/null
+++ b/helicities/1jets/ggHg_--+_vel.m
@@ -0,0 +1,118 @@
+(* 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*MT^2*
+ (((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
+ (MH^2 - (4*MT^2)/(1 - \[Beta]^2)) - DiscB[(4*MT^2)/(1 - \[Beta]^2),
+ Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - (4*MT^2)/(1 - \[Beta]^2)))*
+ Sech[\[Eta]3])/Sqrt[2] + (Sqrt[S]*(T + U)*
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
+ Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) + 2*Sqrt[
+ -((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/(1 - \[Beta]^
+ 2))])/(2*MT^2)]^2/(2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))))*
+ Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (Sqrt[S]*(2 + Eps^(-1) + DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2],
+ Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
+ (MT^2*DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2], Sqrt[MT^2]])/
+ ((1 - \[Beta]^2)*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) +
+ 2*Sqrt[-((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/
+ (1 - \[Beta]^2))])/(2*MT^2)]^2)/
+ (4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2)))))*Sech[\[Eta]3])/Sqrt[2])/
+ S + (Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3]) + ((-S + T)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/2) +
+ Sqrt[2]*kT3*(-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2],
+ Sqrt[MT^2]])/(2*(MH^2 - U)^2) +
+ (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3]) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 - I*\[Phi]3] +
+ Sinh[\[Eta]3 - I*\[Phi]3]))/2) +
+ (2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] -
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2]) + (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
+ (2*Sqrt[2]) - (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2]) + (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ (2*Sqrt[2])) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ ((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2] - Sqrt[2]*kT3^2*Sqrt[S]*
+ Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] +
+ I*Sin[\[Phi]3]) - (kT3*(-3*S + T)*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(Cosh[\[Eta]3 - I*\[Phi]3] +
+ Sinh[\[Eta]3 - I*\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*(-MH^2 + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/Sqrt[2]))/U -
+ (-2*(-((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(-(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])) +
+ ((-S + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ 2))/Sqrt[2]) - (kT3*(-1/(2*(MH^2 - T)) -
+ (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])) +
+ ((-S + U)*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ 2))/Sqrt[2]) + (2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - T)) - (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - T)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - T)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/Sqrt[2] -
+ (kT3*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ ((kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) -
+ (MH^2 - T)*(-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2])) + (kT3*S*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/
+ (2*Sqrt[2])) - (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) - 2*(MH^2 - T)*
+ (-(Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 - I*\[Phi]3] + Sinh[\[Eta]3 - I*\[Phi]3]))/
+ (2*Sqrt[2])) - (kT3*(-3*S + U)*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(-1 + Tanh[\[Eta]3]))/(2*Sqrt[2])))/
+ T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_---.m b/helicities/1jets/ggHg_---.m
new file mode 100644
index 0000000000000000000000000000000000000000..3dcf34744795d857a571b9d80b4685d58a4c2302
--- /dev/null
+++ b/helicities/1jets/ggHg_---.m
@@ -0,0 +1,113 @@
+(* 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*MT^2*
+ ((-((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S) -
+ DiscB[S, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S))*Sech[\[Eta]3])/
+ Sqrt[2]) - (Sqrt[S]*(T + U)*
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - S)) - Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/
+ (2*MT^2)]^2/(2*(MH^2 - S)))*Sech[\[Eta]3])/(2*Sqrt[2]) -
+ (Sqrt[S]*(2 + Eps^(-1) + DiscB[S, Sqrt[MT^2], Sqrt[MT^2]] +
+ Log[Mu^2/MT^2] - 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - S)) - (S*DiscB[S, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - S)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[
+ -(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/(4*(MH^2 - S)) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/(2*MT^2)]^2)/
+ (4*(MH^2 - S))))*Sech[\[Eta]3])/Sqrt[2])/S +
+ (Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2) + Sqrt[2]*kT3*
+ (-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (2*(MH^2 - U)^2) + (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/
+ (2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2) +
+ (2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) -
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (-((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2]) +
+ Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) - (kT3*(-3*S + T)*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2]) -
+ (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*(-(Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
+ (2*Sqrt[2]) + (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])))/U -
+ ((2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
+ (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) -
+ (MH^2 - T)*((Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])) - 2*(MH^2 - T)*
+ ((Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) + (kT3*(-3*S + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ 2*(-((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) - ((-S + U)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/2))/
+ Sqrt[2]) - (kT3*(-1/(2*(MH^2 - T)) -
+ (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3]) -
+ ((-S + U)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2))/Sqrt[2]))/T))/(MW*Pi*SW)]
diff --git a/helicities/1jets/ggHg_---_vel.m b/helicities/1jets/ggHg_---_vel.m
new file mode 100644
index 0000000000000000000000000000000000000000..72d4f13cb80df12320af6e7793749c7ff0c106e3
--- /dev/null
+++ b/helicities/1jets/ggHg_---_vel.m
@@ -0,0 +1,122 @@
+(* 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*MT^2*
+ ((-((Sqrt[S]*(T + U)*(DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/
+ (MH^2 - (4*MT^2)/(1 - \[Beta]^2)) -
+ DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2], Sqrt[MT^2]]/
+ (MH^2 - (4*MT^2)/(1 - \[Beta]^2)))*Sech[\[Eta]3])/Sqrt[2]) -
+ (Sqrt[S]*(T + U)*(Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2/(2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
+ Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) + 2*Sqrt[
+ -((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/(1 - \[Beta]^
+ 2))])/(2*MT^2)]^2/(2*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))))*
+ Sech[\[Eta]3])/(2*Sqrt[2]) -
+ (Sqrt[S]*(2 + Eps^(-1) + DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2],
+ Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) -
+ (MT^2*DiscB[(4*MT^2)/(1 - \[Beta]^2), Sqrt[MT^2], Sqrt[MT^2]])/
+ ((1 - \[Beta]^2)*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2))) +
+ (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - (4*MT^2)/(1 - \[Beta]^2) +
+ 2*Sqrt[-((MT^2*(4*MT^2 - (4*MT^2)/(1 - \[Beta]^2)))/
+ (1 - \[Beta]^2))])/(2*MT^2)]^2)/
+ (4*(MH^2 - (4*MT^2)/(1 - \[Beta]^2)))))*Sech[\[Eta]3])/Sqrt[2])/
+ S + (Sqrt[2]*kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) +
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)))*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2) + Sqrt[2]*kT3*
+ (-1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/
+ (2*(MH^2 - U)^2) + (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/
+ (2*(MH^2 - U)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^
+ 2)/(2*(MH^2 - U)^2) +
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (2*(MH^2 - U)^2))*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (-(kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])) +
+ ((-S + T)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2) +
+ (2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) -
+ (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/
+ (4*(MH^2 - U))))*(-((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2]) -
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) -
+ DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U))*
+ (-((Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/Sqrt[2]) +
+ Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) - (kT3*(-3*S + T)*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] -
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2]) -
+ (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2]) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/
+ (2*MT^2)]^2/(2*(MH^2 - U)))*(-(Sqrt[S]*(-MH^2 + U)*Sech[\[Eta]3])/
+ (2*Sqrt[2]) + (kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) +
+ (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2]) - (kT3*(-MH^2 + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])))/U -
+ ((2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2] -
+ 4*(3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) -
+ (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) +
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*
+ MT^2)]^2)/(4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 -
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (4*(MH^2 - T))))*((Sqrt[S]*Sech[\[Eta]3])/Sqrt[2] +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/Sqrt[2] +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) -
+ (Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/
+ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/
+ (2*MT^2)]^2/(2*(MH^2 - T)))*
+ (-(kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]))/(2*Sqrt[2]) -
+ (MH^2 - T)*((Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) - (kT3*S*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ (DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) -
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T))*
+ (-(Sqrt[2]*kT3^2*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3])) - 2*(MH^2 - T)*
+ ((Sqrt[S]*Sech[\[Eta]3])/(2*Sqrt[2]) +
+ (kT3*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3])*
+ (Cosh[\[Eta]3 + I*\[Phi]3] - Sinh[\[Eta]3 + I*\[Phi]3]))/
+ (2*Sqrt[2])) + (kT3*(-3*S + U)*Sech[\[Eta]3]*(Cos[\[Phi]3] -
+ I*Sin[\[Phi]3])*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/(2*Sqrt[2])) -
+ 2*(-((kT3*(-DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) +
+ DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)))*
+ (Cos[\[Phi]3] - I*Sin[\[Phi]3])*(kT3*Sqrt[S]*Sech[\[Eta]3]*
+ (Cos[\[Phi]3] + I*Sin[\[Phi]3]) - ((-S + U)*Sech[\[Eta]3]*
+ (Cosh[\[Eta]3 + I*\[Phi]3] + Sinh[\[Eta]3 + I*\[Phi]3]))/2))/
+ Sqrt[2]) - (kT3*(-1/(2*(MH^2 - T)) -
+ (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) +
+ (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) -
+ (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/
+ (2*MT^2)]^2)/(2*(MH^2 - T)^2) +
+ (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/
+ (2*(MH^2 - T)^2))*(Cos[\[Phi]3] - I*Sin[\[Phi]3])*
+ (kT3*Sqrt[S]*Sech[\[Eta]3]*(Cos[\[Phi]3] + I*Sin[\[Phi]3]) -
+ ((-S + U)*Sech[\[Eta]3]*(Cosh[\[Eta]3 + I*\[Phi]3] +
+ Sinh[\[Eta]3 + I*\[Phi]3]))/2))/Sqrt[2]))/T))/(MW*Pi*SW)]
diff --git a/scripts/HelicityAmps_0and1jets.nb b/scripts/HelicityAmps_0and1jets.nb
new file mode 100644
index 0000000000000000000000000000000000000000..598921d65173dc14faaaa7aca88ee367110a8fce
--- /dev/null
+++ b/scripts/HelicityAmps_0and1jets.nb
@@ -0,0 +1,12478 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 11.3' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 158, 7]
+NotebookDataLength[ 462999, 12470]
+NotebookOptionsPosition[ 426309, 11909]
+NotebookOutlinePosition[ 426665, 11925]
+CellTagsIndexPosition[ 426622, 11922]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"HelicityAmps", ".", "m"}], "\[IndentingNewLine]", " ",
+ RowBox[{"Process", ":", " ",
+ RowBox[{"g", " ", "+", " ", "g"}]}]}], " ", "\[Rule]", " ",
+ RowBox[{"H", " ", "+", " ", "g", " ", "+", " ",
+ RowBox[{"g", "\[IndentingNewLine]",
+ RowBox[{"Model", ":", " ", "SMQCD"}]}]}]}], ",", " ",
+ RowBox[{"Definition", " ", "of", " ", "kinematic", " ", "variables"}], ",",
+ "\[IndentingNewLine]", " ",
+ RowBox[{"and", " ", "helicity", " ",
+ RowBox[{"projections", ".", " ", "Last"}], " ", "Modified", " ", "August",
+ " ", "2019.", "\[IndentingNewLine]", "Created", " ",
+ RowBox[{"by", ":", " ",
+ RowBox[{
+ RowBox[{"J", ".", "G", ".", "Reyes"}], " ", "Rivera"}]}]}]}], " ",
+ "*)"}]], "Input",
+ CellChangeTimes->{{3.7483460640690107`*^9, 3.748346128736135*^9}, {
+ 3.7505322064466867`*^9, 3.7505322096193037`*^9}, {3.750685818525031*^9,
+ 3.7506858187985888`*^9}, {3.750685862467576*^9, 3.750685862527199*^9}, {
+ 3.7513081531132383`*^9, 3.751308157253491*^9}, {3.761295781705222*^9,
+ 3.761295787067747*^9}, {3.7640060179701233`*^9, 3.7640060182815123`*^9}, {
+ 3.769416168255188*^9, 3.769416171052967*^9}, {3.774008385144402*^9,
+ 3.774008446027734*^9}, {3.774361814019129*^9,
+ 3.7743618176296263`*^9}},ExpressionUUID->"a9eb43f9-c437-4ff0-ae8b-\
+eb31f4d06b38"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Needs", "[", "\"\<X`\>\"", "]"}], "\n",
+ RowBox[{"<<", "helicityvec`"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{"NotebookSave", "[", "]"}]}], "Input",
+ CellChangeTimes->{{3.7694157567375174`*^9, 3.7694157651420507`*^9}, {
+ 3.7694161379556293`*^9, 3.769416138416831*^9}, {3.7694161826886263`*^9,
+ 3.769416192145475*^9}, {3.769416241287668*^9, 3.769416242139756*^9}, {
+ 3.769421884524377*^9, 3.769421889789727*^9}, {3.7740084724707212`*^9,
+ 3.7740084728784323`*^9}, {3.774014142722267*^9, 3.774014161359538*^9}, {
+ 3.7743464356886587`*^9, 3.77434644432825*^9}, {3.7743465118165216`*^9,
+ 3.774346538188527*^9}, {3.7743467576241837`*^9, 3.774346762569035*^9}},
+ CellLabel->"In[1]:=",ExpressionUUID->"aa6e76d2-ec10-49c0-b6e0-1dd4d91b1a18"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"Package-X v2.1.1, by \
+Hiren H. Patel\\\\\\\\nFor more information, see the \\\\\\\"\\\", \
+TemplateBox[List[\\\"\\\\\\\"guide\\\\\\\"\\\", \\\"paclet:X/guide/PackageX\\\
+\"], \\\"HyperlinkPaclet\\\"]], \\\"RowDefault\\\"]\\)\"\>"], "Print",
+ CellChangeTimes->{
+ 3.774346538743554*^9, {3.77434675511267*^9, 3.774346775904129*^9},
+ 3.774346890682291*^9, 3.7743475854203463`*^9, 3.7743476889237003`*^9,
+ 3.7743495115108013`*^9, 3.774371782249662*^9, 3.774376134357814*^9,
+ 3.7752210665837917`*^9, {3.77523223041602*^9, 3.775232240208652*^9},
+ 3.77523345055406*^9, 3.7752338986011133`*^9, 3.775484241099798*^9,
+ 3.7754868687355537`*^9, 3.7754893499682302`*^9, 3.775489810607164*^9,
+ 3.775490894912174*^9, 3.775495005616561*^9, 3.7764382105007544`*^9,
+ 3.7795336471025867`*^9, 3.779534317526972*^9},
+ CellLabel->
+ "During evaluation of \
+In[1]:=",ExpressionUUID->"cdc2ce4b-5530-46e0-ac30-91fb7be29da5"],
+
+Cell[BoxData["\<\"helicityvec by J.G. Reyes v1. August 2019\"\>"], "Print",
+ CellChangeTimes->{
+ 3.774346538743554*^9, {3.77434675511267*^9, 3.774346775904129*^9},
+ 3.774346890682291*^9, 3.7743475854203463`*^9, 3.7743476889237003`*^9,
+ 3.7743495115108013`*^9, 3.774371782249662*^9, 3.774376134357814*^9,
+ 3.7752210665837917`*^9, {3.77523223041602*^9, 3.775232240208652*^9},
+ 3.77523345055406*^9, 3.7752338986011133`*^9, 3.775484241099798*^9,
+ 3.7754868687355537`*^9, 3.7754893499682302`*^9, 3.775489810607164*^9,
+ 3.775490894912174*^9, 3.775495005616561*^9, 3.7764382105007544`*^9,
+ 3.7795336471025867`*^9, 3.779534317535203*^9},
+ CellLabel->
+ "During evaluation of \
+In[1]:=",ExpressionUUID->"a5228f68-87f9-4f03-9fa9-e0ffca5de6b6"]
+}, Open ]]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"$Assumptions", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Element", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ "ki", ",", "k1", ",", "k2", ",", "k3", ",", "k4", ",", " ",
+ "\[Theta]1", ",", "\[Theta]2", ",", "\[Theta]3", ",", "\[Theta]4",
+ ",", " ", "\[Phi]1", ",", "\[Phi]2", ",", "\[Phi]3", ",", "\[Phi]4",
+ ",", "p", ",", "MT2", ",", "GS", ",", "EL", ",", "Alfas", ",", "a1",
+ ",", "S", ",", "T", ",", "U", ",", "MT", ",", "MH", ",", "MH2", ",",
+ "\[Eta]4", ",", "\[Eta]3", ",", "\[Beta]"}], "}"}], ",", "Reals"}],
+ "]"}], ",",
+ RowBox[{"ki", ">", "0"}], " ", ",",
+ RowBox[{"MT2", ">", "0"}], ",",
+ RowBox[{"MT", ">", "0"}], ",",
+ RowBox[{"MH2", ">", "0"}], ",", " ",
+ RowBox[{"MH", ">", "0"}], ",",
+ RowBox[{"k4", ">", "0"}], ",",
+ RowBox[{"p", ">", "0"}], ",",
+ RowBox[{"k3", ">", "0"}], ",",
+ RowBox[{"k1", ">", "0"}], ",",
+ RowBox[{"k2", ">", "0"}], ",",
+ RowBox[{"rS", ">", "0"}], ",",
+ RowBox[{"kT4", ">", "0"}], ",",
+ RowBox[{"kT3", ">", "0"}], ",",
+ RowBox[{"\[Beta]", ">", "0"}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.774349510085885*^9, 3.774349514308477*^9}, {
+ 3.776441432289131*^9, 3.776441435349208*^9}, {3.7764414951384068`*^9,
+ 3.7764414973318167`*^9}},
+ CellLabel->
+ "In[303]:=",ExpressionUUID->"907a0a71-f5d0-4c01-bacf-80d42748259d"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Defines", " ", "the", " ", "center", " ", "of", " ", "mass", " ",
+ RowBox[{"frame", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"CMSFrame", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k1x", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k1y", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k1z", "\[Rule]", " ",
+ RowBox[{"rS", "/", "2"}]}], ",",
+ RowBox[{"k2x", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k2y", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k2z", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"-", "rS"}], "/", "2"}]}], ",",
+ RowBox[{"k4x", "\[Rule]", " ",
+ RowBox[{"-", "k3x"}]}], ",",
+ RowBox[{"k4y", "\[Rule]", " ",
+ RowBox[{"-", "k3y"}]}], ",",
+ RowBox[{"k4z", "\[Rule]", " ",
+ RowBox[{"-", "k3z"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{"Returns", " ", "vector", " ",
+ RowBox[{"(",
+ RowBox[{"E", ",", "px", ",", "py", ",", "pz"}], ")"}], " ", "in", " ",
+ "Euclidean", " ", "coordinates"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"m_", ",", "kx_", ",", "ky_", ",", "kz_"}], "]"}], ":=",
+ RowBox[{"Module", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"k", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{"kx", "^", "2"}], " ", "+",
+ RowBox[{"ky", "^", "2"}], " ", "+",
+ RowBox[{"kz", "^", "2"}]}], "]"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{"k", "^", "2"}], " ", "+", " ",
+ RowBox[{"m", "^", "2"}]}], "]"}], ",", "kx", ",", "ky", ",",
+ "kz"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{"Returns", " ", "vector", " ",
+ RowBox[{"(",
+ RowBox[{"E", ",", "px", ",", "py", ",", "pz"}], ")"}], " ", "in", " ",
+ "Collider", " ", "coordinates"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"vec4Tep", "[",
+ RowBox[{"m_", ",", "kT_", ",", "\[Eta]_", ",", "\[Phi]_"}], "]"}], ":=",
+ RowBox[{"Block", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k", "=",
+ RowBox[{"kT", " ",
+ RowBox[{"Cosh", "[", "\[Eta]", "]"}]}]}], ",",
+ RowBox[{"kx", "=", " ",
+ RowBox[{"kT", " ",
+ RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], ",",
+ RowBox[{"ky", "=", " ",
+ RowBox[{"kT", " ",
+ RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], ",",
+ RowBox[{"kz", " ", "=", " ",
+ RowBox[{"kT", " ",
+ RowBox[{"Sinh", "[", "\[Eta]", "]"}]}]}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{"k", "^", "2"}], " ", "+", " ",
+ RowBox[{"m", "^", "2"}]}], "]"}], ",", "kx", ",", "ky", ",",
+ "kz"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Definition", " ", "of", " ", "the", " ", "four", " ", "vector", " ",
+ "of", " ", "particle", " ", "3", " ",
+ RowBox[{"(", "Higgs", ")"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"vecetaphi3", "=",
+ RowBox[{
+ RowBox[{"vec4Tep", "[",
+ RowBox[{"MH", ",", "kT3", ",", "\[Eta]3", ",", "\[Phi]3"}], "]"}], "//",
+ "Simplify"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Definition", " ", "of", " ", "the", " ", "four", " ", "vector", " ",
+ "of", " ", "particle", " ", "4", " ",
+ RowBox[{"(",
+ RowBox[{"outgoing", " ", "gluon"}], ")"}]}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"vecetaphi4", "=",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"vec4Tep", "[",
+ RowBox[{"0", ",", "kT4", ",", "\[Eta]4", ",", "\[Phi]4"}], "]"}], "//",
+ "Simplify"}], ")"}]}], ";"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ "Transformation", " ", "of", " ", "momentum", " ", "variables", " ",
+ "from", " ", "Euclidean", " ", "to", " ", "Collider", " ",
+ "coordinates", " ", "for", " ", "particles", " ", "3"}], ",", "4."}],
+ " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"vecsubetaphi", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k4x", "\[Rule]", " ",
+ RowBox[{"vecetaphi4", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ",",
+ RowBox[{"k4y", "\[Rule]", " ",
+ RowBox[{"vecetaphi4", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}], ",",
+ RowBox[{"k4z", "\[Rule]", " ",
+ RowBox[{"vecetaphi4", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}], ",",
+ RowBox[{"k3x", "\[Rule]", " ",
+ RowBox[{"vecetaphi3", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ",",
+ RowBox[{"k3y", "\[Rule]", " ",
+ RowBox[{"vecetaphi3", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}], ",",
+ RowBox[{"k3z", "\[Rule]", " ",
+ RowBox[{"vecetaphi3", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}]}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"SetAttributes", "[",
+ RowBox[{"f", ",", "Listable"}], "]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"f", "[",
+ RowBox[{"a_", ",", "b_"}], "]"}], ":=",
+ RowBox[{"a", "\[Rule]", "b"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"variables", "=",
+ RowBox[{"{",
+ RowBox[{
+ "kT3", ",", "kT4", ",", "S", ",", "T", ",", "U", ",", "T24", ",", "T14",
+ ",", "S34", ",",
+ RowBox[{"Sqrt", "[", "S", "]"}], ",",
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], ",", "kT5", ",",
+ RowBox[{"Sqrt", "[", "S35", "]"}]}], "}"}]}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"MATColor", ":=",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mat", "[",
+ RowBox[{"SUNT", "[",
+ RowBox[{"Glu1", ",", "Glu4", ",", "Glu2", ",", "0", ",", "0"}],
+ "]"}], "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "2"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Mat", "[",
+ RowBox[{"SUNT", "[",
+ RowBox[{"Glu1", ",", "Glu2", ",", "Glu4", ",", "0", ",", "0"}],
+ "]"}], "]"}], "\[Rule]",
+ RowBox[{"1", "/", "2"}]}]}], "\[IndentingNewLine]", "}"}]}],
+ ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774008509020266*^9, 3.7740085381409407`*^9}, {
+ 3.774010228954178*^9, 3.7740102997172318`*^9}, {3.774010472134542*^9,
+ 3.774010557287574*^9}, {3.7740105997645206`*^9, 3.774010663124332*^9}, {
+ 3.774350209862176*^9, 3.7743502113767548`*^9}, {3.774351250016728*^9,
+ 3.774351417512418*^9}, {3.774376113932404*^9, 3.774376122200436*^9}, {
+ 3.775489537189768*^9, 3.775489538288254*^9}, {3.779533353353181*^9,
+ 3.7795334115032883`*^9}, {3.7795341683115883`*^9, 3.779534178061142*^9}},
+ CellLabel->
+ "In[336]:=",ExpressionUUID->"26f4a4e8-5f12-4a95-a30f-5e40153ac3f8"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Four", " ", "momentum", " ", "vectors", " ", "for", " ", "all", " ",
+ RowBox[{"particles", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"g",
+ RowBox[{"(", "k1", ")"}], " ", "g",
+ RowBox[{"(", "k2", ")"}]}], " ", "\[Rule]", " ",
+ RowBox[{"h",
+ RowBox[{"(", "k3", ")"}], " ", "g",
+ RowBox[{"(", "k4", ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"k1vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k1x", ",", "k1y", ",", "k1z"}], "]"}], "/.",
+ "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k2vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k2x", ",", "k2y", ",", "k2z"}], "]"}], "/.",
+ "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k3vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"MH", ",", "k3x", ",", "k3y", ",", "k3z"}], "]"}], "/.",
+ "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k4vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k4x", ",", "k4y", ",", "k4z"}], "]"}], "/.",
+ "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec1", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"k1vec", "/.", " ", "vecsubetaphi"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec2", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"k2vec", "/.", " ", "vecsubetaphi"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec3", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"k3vec", "/.", " ", "vecsubetaphi"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec4", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"k4vec", "/.", " ", "vecsubetaphi"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}],
+ ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774010789274702*^9, 3.774010812450952*^9}, {
+ 3.774010874362638*^9, 3.774010888392482*^9}, {3.774014361258362*^9,
+ 3.774014361502096*^9}, {3.7740145370041933`*^9, 3.7740145375876703`*^9}, {
+ 3.7740167862280827`*^9, 3.7740168375673*^9}, {3.774348193461874*^9,
+ 3.774348221322661*^9}, {3.774348765307613*^9, 3.774348785123725*^9}, {
+ 3.774349827303525*^9, 3.7743498295202417`*^9}, {3.7795335865892963`*^9,
+ 3.779533598114243*^9}},
+ CellLabel->
+ "In[314]:=",ExpressionUUID->"295b0a52-febf-49d7-b5c5-afa40a220c70"],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.7743499044425*^9,
+ 3.774349905506363*^9}},ExpressionUUID->"facae057-50b1-4b42-bf4f-\
+443f5b3c37d1"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Polarization", " ", "Vectors", " ", "in", " ", "Helicity", " ",
+ "Eigenbasis", " ", "and", " ", "four", " ", "vectors"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{"1", ",", "2", ",",
+ RowBox[{"4", " ", "-", " ", "gluons"}], ",", " ",
+ RowBox[{"3", " ", "-", " ", "Higgs"}]}], " ", "*)"}]}]], "Input",
+ CellChangeTimes->{{3.774016844431131*^9, 3.774016870646851*^9}, {
+ 3.774348591141938*^9, 3.774348602112896*^9}, {3.774349878328457*^9,
+ 3.774349899911847*^9}, {3.774349933691104*^9, 3.774349940627697*^9}, {
+ 3.779534211394147*^9,
+ 3.779534212721303*^9}},ExpressionUUID->"08460ef5-a698-495d-8762-\
+405256a0b03d"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"l1_", ",", "l2_", ",", "l4_"}], "]"}], " ", ":=",
+ "\[IndentingNewLine]",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ek1vecInc", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"EpolEuc", "[",
+ RowBox[{"0", ",", "k1x", ",", "k1y", ",", "k1z", ",", "l1"}], "]"}],
+ "/.",
+ RowBox[{"{",
+ RowBox[{"k1y", "\[Rule]", "0"}], "}"}]}], "//", "Simplify"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"ek1vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Limit", "[",
+ RowBox[{"ek1vecInc", ",",
+ RowBox[{"k1x", "\[Rule]", "0"}], ",",
+ RowBox[{"Direction", "\[Rule]", "\"\<FromAbove\>\""}]}], "]"}], "/.",
+ "CMSFrame"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}]}], " ",
+ ",",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"because", " ", "kz"}], " ", ">", " ", "0"}], " ", "*)"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek2vecInc", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"EpolEuc", "[",
+ RowBox[{"0", ",", "k2x", ",", "k2y", ",", "k2z", ",", "l2"}], "]"}],
+ "/.",
+ RowBox[{"{",
+ RowBox[{"k2y", "\[Rule]", "0"}], "}"}]}], "//", "Simplify"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"ek2vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Limit", "[",
+ RowBox[{"ek2vecInc", ",",
+ RowBox[{"k2x", "\[Rule]", "0"}], ",",
+ RowBox[{"Direction", "\[Rule]", "\"\<FromBelow\>\""}]}], "]"}], "/.",
+ "CMSFrame"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}]}], " ",
+ ",",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"because", " ", "kz"}], " ", "<", " ", "0"}], " ", "*)"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"ek4vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"EpolEuc", "[",
+ RowBox[{"0", ",", "k4x", ",", "k4y", ",", "k4z", ",", "l4"}], "]"}],
+ "/.", "CMSFrame"}], "/.", "vecsubetaphi"}], "//", "Simplify"}]}],
+ ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"ek1vecCC", "=",
+ RowBox[{
+ RowBox[{"Conjugate", "[", "ek1vec", "]"}], "//", "Simplify"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{"ek2vecCC", "=",
+ RowBox[{
+ RowBox[{"Conjugate", "[", "ek2vec", "]"}], "//", "Simplify"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{"ek4vecCC", "=",
+ RowBox[{
+ RowBox[{"Conjugate", "[", "ek4vec", "]"}], "//", "Simplify"}]}], ","}],
+ "\[IndentingNewLine]", "}"}]}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SubFourVecs", ":=",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "1", "]"}], ",",
+ RowBox[{"k", "[", "2", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vec", ",", "kvec2"}], "]"}]}], ",", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "2", "]"}], ",",
+ RowBox[{"k", "[", "1", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek2vec", ",", "kvec1"}], "]"}]}], ",", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "1", "]"}], ",",
+ RowBox[{"k", "[", "2", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vecCC", ",", "kvec2"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "2", "]"}], ",",
+ RowBox[{"k", "[", "1", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek2vecCC", ",", "kvec1"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "1", "]"}], ",",
+ RowBox[{"e", "[", "2", "]"}]}], "]"}], "\[Rule]", " ",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vec", ",", "ek2vec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "1", "]"}], ",",
+ RowBox[{"ec", "[", "2", "]"}]}], "]"}], "\[Rule]", " ",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vecCC", ",", "ek2vecCC"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "1", "]"}], ",",
+ RowBox[{"k", "[", "3", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vec", ",", "kvec3"}], "]"}]}], ",", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "1", "]"}], ",",
+ RowBox[{"k", "[", "3", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vecCC", ",", "kvec3"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "1", "]"}], ",",
+ RowBox[{"ec", "[", "4", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vec", ",", "ek4vecCC"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "1", "]"}], ",",
+ RowBox[{"e", "[", "4", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vecCC", ",", "ek4vec"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "1", "]"}], ",",
+ RowBox[{"k", "[", "4", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vec", ",", "kvec4"}], "]"}]}], " ", ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "1", "]"}], ",",
+ RowBox[{"k", "[", "4", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vecCC", ",", "kvec4"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "2", "]"}], ",", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "]"}], "->",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek2vec", ",", "kvec1"}], "]"}]}], ",", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "2", "]"}], ",",
+ RowBox[{"k", "[", "3", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek2vec", ",", "kvec3"}], "]"}]}], ",", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "2", "]"}], ",",
+ RowBox[{"k", "[", "3", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek2vecCC", ",", "kvec3"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "2", "]"}], ",",
+ RowBox[{"ec", "[", "4", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek2vec", ",", "ek4vecCC"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "2", "]"}], ",",
+ RowBox[{"e", "[", "4", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek2vecCC", ",", "ek4vec"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "2", "]"}], ",",
+ RowBox[{"k", "[", "4", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek2vec", ",", "kvec4"}], "]"}]}], ",", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "2", "]"}], ",",
+ RowBox[{"k", "[", "4", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek2vecCC", ",", "kvec4"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "4", "]"}], ",",
+ RowBox[{"k", "[", "1", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek4vec", ",", "kvec1"}], "]"}]}], ",", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "4", "]"}], ",",
+ RowBox[{"k", "[", "1", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek4vecCC", ",", "kvec1"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "4", "]"}], ",",
+ RowBox[{"k", "[", "2", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek4vec", ",", "kvec2"}], "]"}]}], ",", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "4", "]"}], ",",
+ RowBox[{"k", "[", "2", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek4vecCC", ",", "kvec2"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "4", "]"}], ",",
+ RowBox[{"k", "[", "3", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek4vec", ",", "kvec3"}], "]"}]}], ",", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"ec", "[", "4", "]"}], ",",
+ RowBox[{"k", "[", "3", "]"}]}], "]"}], "\[Rule]",
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek4vecCC", ",", "kvec3"}], "]"}]}]}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]", "}"}]}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.774349706695448*^9, 3.7743497828732653`*^9}, {
+ 3.774349850953391*^9, 3.774349862059946*^9}, {3.774349926376834*^9,
+ 3.774349927398417*^9}, {3.7743502672838717`*^9, 3.77435028684074*^9}, {
+ 3.7743505888923492`*^9, 3.7743506931950197`*^9}, 3.774698454292612*^9, {
+ 3.775221130841752*^9, 3.775221291609036*^9}, {3.7752213259119787`*^9,
+ 3.775221638747273*^9}, {3.775221692692317*^9, 3.775221742566423*^9}, {
+ 3.775221778064539*^9, 3.77522181254742*^9}, 3.775489820991585*^9, {
+ 3.776437785777536*^9, 3.77643778747199*^9}, {3.7795337083654222`*^9,
+ 3.7795337713175783`*^9}},
+ CellLabel->
+ "In[348]:=",ExpressionUUID->"0977815c-55b7-47b0-a967-05c8f45dc601"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Bseries", " ", "=", " ",
+ RowBox[{"Normal", "[",
+ RowBox[{"Series", "[",
+ RowBox[{
+ RowBox[{"1", "/",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ RowBox[{"\[Beta]", "^", "2"}]}], ")"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Beta]", ",", "0", ",", "4"}], "}"}]}], "]"}],
+ "]"}]}]], "Input",
+ CellChangeTimes->{3.774698457392561*^9},
+ CellLabel->
+ "In[331]:=",ExpressionUUID->"fb2e028f-6f3b-492a-bb4e-bea3e5c1534a"],
+
+Cell[BoxData[
+ RowBox[{"1", "+",
+ SuperscriptBox["\[Beta]", "2"], "+",
+ SuperscriptBox["\[Beta]", "4"]}]], "Output",
+ CellChangeTimes->{3.7746984576731167`*^9, 3.775221096010333*^9,
+ 3.775232186661045*^9, 3.7752322536715937`*^9, 3.775233918380353*^9,
+ 3.775486901052134*^9, 3.779533778494467*^9},
+ CellLabel->
+ "Out[331]=",ExpressionUUID->"c2bf05c1-ba99-4955-8444-15aac5c43759"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.769416382706212*^9, 3.769416403306004*^9}, {
+ 3.7694168727346354`*^9, 3.769416881103343*^9}, {3.769420802600919*^9,
+ 3.769420810995673*^9}, {3.770096644875188*^9, 3.770096645965609*^9},
+ 3.773746114995344*^9, 3.774010932827186*^9,
+ 3.774350202417961*^9},ExpressionUUID->"a5c5e12e-157e-4719-b09d-\
+930d037e0d1b"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Importing", " ", "triangle", " ", "scattering", " ", "amplitude", " ",
+ RowBox[{"w", "/", " ", "PV"}], " ", "coefficients", " ", "analytically",
+ " ",
+ RowBox[{"expanded", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",", "\"\</feynamps\>\""}],
+ "]"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ggHLR", " ", "=", " ",
+ RowBox[{"Import", "[", "\"\<ggHg_LR.m\>\"", "]"}]}], ";"}]}]}]], "Input",\
+
+ CellChangeTimes->{{3.76941678968123*^9, 3.769416834146682*^9}, {
+ 3.769418270698312*^9, 3.7694182769864492`*^9}, {3.769420598958762*^9,
+ 3.769420642106495*^9}, {3.769421602470723*^9, 3.769421736756125*^9}, {
+ 3.77374127963312*^9, 3.77374128280485*^9}, 3.7737414197690268`*^9, {
+ 3.774010941769153*^9, 3.774010945328281*^9}, {3.774010984977004*^9,
+ 3.7740110365685997`*^9}, {3.7743503313914537`*^9, 3.774350332864695*^9}, {
+ 3.779534222074905*^9, 3.779534300380061*^9}},
+ CellLabel->
+ "In[360]:=",ExpressionUUID->"6f54e202-a28b-4a1d-9e81-76bb7154ddaa"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"Importing", " ", "box", " ", "scattering", " ", "amplitudes", " ",
+ RowBox[{"w", "/", " ", "PV"}], " ", "coefficients", " ", "analytically",
+ " ",
+ RowBox[{"expanded", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"box1", " ", "=", " ",
+ RowBox[{"Import", "[", "\"\<ggHgg_LR_box_1_9diags.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"box2", " ", "=", " ",
+ RowBox[{"Import", "[", "\"\<ggHgg_LR_box_2_9diags.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"box3", " ", "=", " ",
+ RowBox[{"Import", "[", "\"\<ggHgg_LR_box_3_9diags.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"box4", " ", "=", " ",
+ RowBox[{"Import", "[", "\"\<ggHgg_LR_box_4_9diags.m\>\"", "]"}]}],
+ ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774011056707362*^9, 3.7740111034424753`*^9}},
+ CellLabel->"In[37]:=",ExpressionUUID->"60913534-eef8-4103-af9a-ab50a0b353b9"],
+
+Cell[BoxData["\[IndentingNewLine]"], "Input",
+ CellChangeTimes->{
+ 3.773141712723225*^9},ExpressionUUID->"2239b8d8-532e-4c08-ac3b-\
+e377a166b460"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Sub", " ", "for", " ", "all", " ", "helicities", " ", "and", " ", "save",
+ " ",
+ RowBox[{"them", "."}]}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.774351499832851*^9,
+ 3.774351510535021*^9}},ExpressionUUID->"a8edcb3d-289d-4ff2-aab2-\
+1178c47d2c24"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"SetDirectory", "[", "\"\<helicities\>\"", "]"}], ";"}]], "Input",
+ CellLabel->"In[41]:=",ExpressionUUID->"2fbc45e0-5167-407c-a174-583971bd7d06"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Directory", "[", "]"}]], "Input",
+ CellChangeTimes->{{3.774351673653612*^9, 3.774351676437744*^9}},
+ CellLabel->"In[42]:=",ExpressionUUID->"7685320a-c96c-4f66-a42b-1f0a30a78e68"],
+
+Cell[BoxData["\<\"/Users/josegabrielreyes/Documents/Higgs/Mathematica \
+Scripts/ggHgg/FinalSetUp/helicities\"\>"], "Output",
+ CellChangeTimes->{3.7743516767244864`*^9, 3.7743718504005413`*^9,
+ 3.7743761919598207`*^9, 3.7752219466374807`*^9, 3.775227350978853*^9,
+ 3.7754951217016773`*^9},
+ CellLabel->"Out[42]=",ExpressionUUID->"bfbcf21c-cca2-47a8-81bb-f83b15bbc8df"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"++", "++"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<++++\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774350335914909*^9, 3.774350382613131*^9}, {
+ 3.774350732452187*^9, 3.7743507645220213`*^9}, {3.774351033389183*^9,
+ 3.774351145928581*^9}, {3.774351431336866*^9, 3.774351446708275*^9}, {
+ 3.774351483249557*^9, 3.7743514934640923`*^9}, {3.774351550426754*^9,
+ 3.77435169416295*^9}, {3.774351916303782*^9, 3.774352021105199*^9}, {
+ 3.774352095583454*^9, 3.7743521131451178`*^9}, {3.774364790080785*^9,
+ 3.774364842486887*^9}, {3.775222153633851*^9, 3.775222168779771*^9}, {
+ 3.775495131959234*^9, 3.775495165246623*^9}},
+ CellLabel->"In[43]:=",ExpressionUUID->"7e7f013d-f22f-4c3a-81bd-d58630ecb407"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellChangeTimes->{{3.775495322893921*^9, 3.775495334535952*^9}},
+ CellLabel->"In[53]:=",ExpressionUUID->"6e143612-3c0d-4282-a651-8cad89a3b66b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775495486085648*^9},
+ CellLabel->"Out[53]=",ExpressionUUID->"98797b05-90d0-4926-b83f-0fdac2f8507c"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.7754954860962257`*^9},
+ CellLabel->"Out[54]=",ExpressionUUID->"3c0d0c1a-efc7-4be2-989a-76364c5184c4"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "-",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]]}], ",",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{3.775495486104487*^9},
+ CellLabel->"Out[55]=",ExpressionUUID->"295e5521-bc86-438c-a78c-4ff98b1a4eaf"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.775495486120371*^9},
+ CellLabel->"Out[56]=",ExpressionUUID->"e4e3dc2e-2896-4dfa-890b-ce015e0dd3cb"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"++",
+ RowBox[{"+", "-"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<+++-\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.77435187261103*^9, 3.7743518983220797`*^9}, {
+ 3.774352030399287*^9, 3.774352049137046*^9}, {3.774352117249259*^9,
+ 3.774352135475457*^9}, 3.7743522476903477`*^9, {3.774364854944893*^9,
+ 3.7743648551892653`*^9}, {3.77549530700056*^9, 3.775495314102174*^9}},
+ CellLabel->"In[57]:=",ExpressionUUID->"de07b359-92c5-4c50-9757-257a3b86203c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->"In[67]:=",ExpressionUUID->"4bd24bf0-4f95-4aeb-a92a-36addec143e9"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775495725939406*^9},
+ CellLabel->"Out[67]=",ExpressionUUID->"0caa581a-26a8-4421-91ce-03a7011cd4c6"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775495726000888*^9},
+ CellLabel->"Out[68]=",ExpressionUUID->"27e4ad47-e57e-49f6-84f4-963c4f4e2144"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "-",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]]}], ",",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{3.775495726008683*^9},
+ CellLabel->"Out[69]=",ExpressionUUID->"c13ffd92-283d-4eff-935e-259792c34b35"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.775495726030079*^9},
+ CellLabel->"Out[70]=",ExpressionUUID->"bd7742ef-097f-4ece-b454-127c41a84927"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"++",
+ RowBox[{"-", "+"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<++-+\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",",
+ RowBox[{"-", "1"}], ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774352147770486*^9, 3.7743521728122683`*^9},
+ 3.774352260382543*^9, {3.7743648592657423`*^9, 3.77436485952067*^9}, {
+ 3.775495582942519*^9, 3.7754955900584507`*^9}},
+ CellLabel->"In[71]:=",ExpressionUUID->"0dc936c5-a3bf-49d3-8822-b8bf3e097443"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->"In[81]:=",ExpressionUUID->"de1972ab-9631-4c95-a3ac-cc2439eaff59"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775496041262051*^9},
+ CellLabel->"Out[81]=",ExpressionUUID->"83c34964-b013-4847-9113-6809ef586914"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775496041274247*^9},
+ CellLabel->"Out[82]=",ExpressionUUID->"76cacd3c-7b01-4bf0-bf2d-05ee732b6108"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "+",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.775496041281838*^9},
+ CellLabel->"Out[83]=",ExpressionUUID->"2af82568-b2f2-4e08-823a-56af3a079456"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.775496041305704*^9},
+ CellLabel->"Out[84]=",ExpressionUUID->"888f7613-7ca5-4c0c-9910-37224a4d42c2"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"++", "--"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<++--\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.7743522016662197`*^9, 3.774352224887178*^9},
+ 3.774352262175974*^9, {3.774364861979569*^9, 3.774364862258802*^9}, {
+ 3.775495831158877*^9, 3.775495839831895*^9}},
+ CellLabel->"In[85]:=",ExpressionUUID->"2f945793-af8e-4f9f-8ee4-f6a5ddef3041"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->"In[95]:=",ExpressionUUID->"1b3a5a8e-9a75-4ea8-81fc-12e00b1e7a8b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775496278877109*^9},
+ CellLabel->"Out[95]=",ExpressionUUID->"4800b669-1ac2-461c-8d0e-6c8e0db4feb2"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775496278884636*^9},
+ CellLabel->"Out[96]=",ExpressionUUID->"127daa54-286d-4dfe-a228-45ea02f3a29b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "+",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.7754962788921328`*^9},
+ CellLabel->"Out[97]=",ExpressionUUID->"ff5a2c2d-bcb9-4a08-a0db-e3ec3e0b8eab"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.7754962789055977`*^9},
+ CellLabel->"Out[98]=",ExpressionUUID->"3613bcfe-306c-417b-be00-8b237e1f74fc"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"+",
+ RowBox[{"-", "++"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<+-++\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",",
+ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774352213966481*^9, 3.774352230053808*^9}, {
+ 3.774352264211151*^9, 3.774352265069294*^9}, {3.774364864710299*^9,
+ 3.77436486506133*^9}, {3.775496132812826*^9, 3.775496140075749*^9}},
+ CellLabel->"In[99]:=",ExpressionUUID->"736a8768-21b4-4a78-91c9-5a2f8b836a59"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[109]:=",ExpressionUUID->"ddb548c2-b966-4ebb-8b4d-20e4c052552c"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.7754964343568783`*^9},
+ CellLabel->
+ "Out[109]=",ExpressionUUID->"8e7c14f1-46c4-45be-9499-0e7ff9cfe533"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775496434368865*^9},
+ CellLabel->
+ "Out[110]=",ExpressionUUID->"665ee0e0-b7dc-4373-bc72-91094ed4ebfa"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "-",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]]}], ",",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{3.775496434374834*^9},
+ CellLabel->
+ "Out[111]=",ExpressionUUID->"76a06765-1e32-464b-b653-74c9c41bfad0"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.775496434384726*^9},
+ CellLabel->
+ "Out[112]=",ExpressionUUID->"6c5ab671-9271-4d6d-941f-1661679185be"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"+",
+ RowBox[{"-",
+ RowBox[{"+", "-"}]}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<+-+-\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",",
+ RowBox[{"-", "1"}], ",", "1", ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774352273302424*^9, 3.774352278179654*^9},
+ 3.7743528399898767`*^9, {3.774364868115095*^9, 3.774364868379517*^9}, {
+ 3.775496254973625*^9, 3.775496262224195*^9}},
+ CellLabel->
+ "In[113]:=",ExpressionUUID->"f1b82eb6-3e5a-4cf7-9deb-3109924714c4"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[123]:=",ExpressionUUID->"5d0e564a-ae95-4bd5-a6cc-af961332242f"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775496660867567*^9},
+ CellLabel->
+ "Out[123]=",ExpressionUUID->"9fb01334-2129-4aec-994f-886876491615"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.7754966608774843`*^9},
+ CellLabel->
+ "Out[124]=",ExpressionUUID->"7df88261-7455-4dcf-a0de-7b4494d6ea05"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "-",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]]}], ",",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{3.775496660893093*^9},
+ CellLabel->
+ "Out[125]=",ExpressionUUID->"73f9133d-e1ae-4484-9c71-cead4cfc2778"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.77549666091581*^9},
+ CellLabel->
+ "Out[126]=",ExpressionUUID->"d00bf2c3-bcc7-4d1d-9603-58fce399f9be"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"+",
+ RowBox[{"--", "+"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<+--+\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774352293453846*^9, 3.7743522993176413`*^9},
+ 3.774352845194046*^9, {3.7743648708807707`*^9, 3.7743648711612997`*^9}, {
+ 3.7754964165912733`*^9, 3.775496422911582*^9}},
+ CellLabel->
+ "In[127]:=",ExpressionUUID->"ea09958c-619e-47a8-ba2e-3c72622f3837"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[137]:=",ExpressionUUID->"49c8fe2c-a955-4a56-b5d2-645fdd8ee1b8"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775496828904537*^9},
+ CellLabel->
+ "Out[137]=",ExpressionUUID->"ac928864-fb46-4277-a04b-a9984873ba5e"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.7754968289145823`*^9},
+ CellLabel->
+ "Out[138]=",ExpressionUUID->"9bf967d4-1cd5-43e7-b270-9802dbd89330"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "+",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.775496828923019*^9},
+ CellLabel->
+ "Out[139]=",ExpressionUUID->"e531c14c-844f-4ad1-9bfb-471d4db9b31e"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.7754968289393587`*^9},
+ CellLabel->
+ "Out[140]=",ExpressionUUID->"9030a139-1619-4bd0-baa7-f65aaed95fc1"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"+",
+ RowBox[{"--", "-"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<+---\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.7743523076196537`*^9, 3.774352310862866*^9},
+ 3.774352847449963*^9, {3.774364873150992*^9, 3.774364873470278*^9}, {
+ 3.775496427523074*^9, 3.775496434270932*^9}},
+ CellLabel->
+ "In[141]:=",ExpressionUUID->"109d8c91-098d-43cf-8963-751531807ae7"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[151]:=",ExpressionUUID->"133b9470-d798-489d-8481-9a8a3698a3a8"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775496985041739*^9},
+ CellLabel->
+ "Out[151]=",ExpressionUUID->"52c45524-838a-46a1-9ad1-7648b6637a0a"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.7754969850580997`*^9},
+ CellLabel->
+ "Out[152]=",ExpressionUUID->"921a68f6-d009-4488-b8f7-58a4a926ca24"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "+",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.775496985068839*^9},
+ CellLabel->
+ "Out[153]=",ExpressionUUID->"dd1b4ff6-53c6-45ef-9a44-0b1769b80634"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.775496985083159*^9},
+ CellLabel->
+ "Out[154]=",ExpressionUUID->"1328d2bc-b60d-4dff-a61f-fafce78b861e"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"-",
+ RowBox[{"++", "+"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<-+++\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.7743523173610086`*^9, 3.7743523280971813`*^9},
+ 3.774352858488297*^9, {3.7743648755870953`*^9, 3.774364876566372*^9}, {
+ 3.775496439874864*^9, 3.775496447799618*^9}},
+ CellLabel->
+ "In[155]:=",ExpressionUUID->"90ea42ce-b398-4fbc-bd9f-f41999d112ee"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[165]:=",ExpressionUUID->"aeeee502-d9db-4ade-88d9-b512c4326bb6"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775497102445105*^9},
+ CellLabel->
+ "Out[165]=",ExpressionUUID->"9031a0a9-cf9d-437b-8216-b065685cc651"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775497102457593*^9},
+ CellLabel->
+ "Out[166]=",ExpressionUUID->"2c6398cd-b359-4fe5-a36e-0b40aa0a73ac"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "-",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]]}], ",",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{3.77549710246371*^9},
+ CellLabel->
+ "Out[167]=",ExpressionUUID->"d0c4ab05-2228-4b3d-b9f0-380f03f445fc"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.775497102471272*^9},
+ CellLabel->
+ "Out[168]=",ExpressionUUID->"25c04453-c4d9-49a8-b58e-b82acd1058e8"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"-",
+ RowBox[{"++", "-"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<-++-\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.77435233561648*^9, 3.7743523421620617`*^9},
+ 3.774352860614139*^9, {3.774364879285968*^9, 3.774364879609729*^9}, {
+ 3.775496454326095*^9, 3.775496461326519*^9}},
+ CellLabel->
+ "In[169]:=",ExpressionUUID->"eda41e35-0731-4f86-8fd3-b64e5553fef0"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[179]:=",ExpressionUUID->"0e9ee2b7-6c7f-44b1-9f11-5d09fdee3c8a"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775497207798451*^9},
+ CellLabel->
+ "Out[179]=",ExpressionUUID->"564638da-a074-4583-95bd-4f2f8cba6de0"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775497207806608*^9},
+ CellLabel->
+ "Out[180]=",ExpressionUUID->"ead6394e-5d7d-4027-bf26-da5af46080e0"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "-",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]]}], ",",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{3.7754972078141117`*^9},
+ CellLabel->
+ "Out[181]=",ExpressionUUID->"05920693-2791-461f-bb39-d05893eff923"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.77549720782825*^9},
+ CellLabel->
+ "Out[182]=",ExpressionUUID->"4d737b53-7257-44f3-b230-4b20b7cf4403"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"-",
+ RowBox[{"+",
+ RowBox[{"-", "+"}]}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<-+-+\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1", ",",
+ RowBox[{"-", "1"}], ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774352349907421*^9, 3.774352359869708*^9},
+ 3.774352862947967*^9, {3.774365871990572*^9, 3.774365872779541*^9}, {
+ 3.775496464963257*^9, 3.775496471995942*^9}},
+ CellLabel->
+ "In[183]:=",ExpressionUUID->"b4e55406-dd72-45f8-a3b3-34f05228afd8"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[193]:=",ExpressionUUID->"31473832-1b3e-4feb-9476-fa165b39ef5b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775497344555745*^9},
+ CellLabel->
+ "Out[193]=",ExpressionUUID->"49c964a7-ca37-4ece-b767-4725d6cd726d"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.7754973445676527`*^9},
+ CellLabel->
+ "Out[194]=",ExpressionUUID->"aff9ab87-5ee7-4424-a8c5-9003da78ed6a"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "+",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.775497344576572*^9},
+ CellLabel->
+ "Out[195]=",ExpressionUUID->"7255aa0b-c54c-4726-b608-3a1e1ec73f55"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.7754973446010847`*^9},
+ CellLabel->
+ "Out[196]=",ExpressionUUID->"7676935b-3e9e-423c-9495-99c76e7836d8"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"-",
+ RowBox[{"+", "--"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<-+--\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1", ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.77435236671383*^9, 3.774352386298221*^9}, {
+ 3.774352466818277*^9, 3.774352467649146*^9}, 3.774352865354597*^9, {
+ 3.7743648829489393`*^9, 3.774364883197905*^9}, {3.775496532325181*^9,
+ 3.7754965403423853`*^9}},
+ CellLabel->
+ "In[197]:=",ExpressionUUID->"17600b0b-71c8-4b17-9c49-9fa20ea3d684"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[207]:=",ExpressionUUID->"acc3ef55-c9ff-41e2-a5ce-951fcf403a30"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775497518082234*^9},
+ CellLabel->
+ "Out[207]=",ExpressionUUID->"b58e0eea-b86b-4b4d-9af9-0514d9cec5b3"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775497518093644*^9},
+ CellLabel->
+ "Out[208]=",ExpressionUUID->"5cae39f8-cd31-4f16-9795-7943f4a5fa19"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "+",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.775497518102331*^9},
+ CellLabel->
+ "Out[209]=",ExpressionUUID->"89c26d17-1c70-4219-a637-da8fbe3ce30e"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.7754975181166553`*^9},
+ CellLabel->
+ "Out[210]=",ExpressionUUID->"6e5ebac0-5967-47da-8716-e7ea61df247a"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"--", "++"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<--++\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774352487534183*^9, 3.7743525101778307`*^9},
+ 3.774352867436016*^9, {3.774364885310581*^9, 3.774364885553205*^9}, {
+ 3.775496587979397*^9, 3.775496598024398*^9}},
+ CellLabel->
+ "In[211]:=",ExpressionUUID->"b64b8f87-82c8-4857-a557-001146451746"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[221]:=",ExpressionUUID->"04bbc492-9b94-415e-a91d-f36d5b545005"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.7754977054722652`*^9},
+ CellLabel->
+ "Out[221]=",ExpressionUUID->"14f63c8c-5f9d-4ceb-940c-502703daeac5"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775497705485059*^9},
+ CellLabel->
+ "Out[222]=",ExpressionUUID->"b269e7ef-8a34-43b6-a7be-907a76c65945"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "-",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]]}], ",",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{3.7754977054948587`*^9},
+ CellLabel->
+ "Out[223]=",ExpressionUUID->"fae7b65b-0f03-4de9-bfa9-ffbfc4ebcf53"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.775497705512158*^9},
+ CellLabel->
+ "Out[224]=",ExpressionUUID->"b70b5df9-83b0-4ee9-aa8c-5d2d741914f3"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"--",
+ RowBox[{"+", "-"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<--+-\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",", "1", ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774352529005231*^9, 3.774352532203652*^9},
+ 3.774352869480513*^9, {3.77436488780518*^9, 3.774364888111985*^9}, {
+ 3.775496611025816*^9, 3.775496618028469*^9}},
+ CellLabel->
+ "In[225]:=",ExpressionUUID->"ccddb553-b79e-4e2f-b2e8-37d92e711b60"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[235]:=",ExpressionUUID->"5e22bb0e-cc8d-4d2c-8d89-8696ac48023c"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.7754979053258247`*^9},
+ CellLabel->
+ "Out[235]=",ExpressionUUID->"1d1aff26-c11b-498f-a281-4edca3f48b8e"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775497905333959*^9},
+ CellLabel->
+ "Out[236]=",ExpressionUUID->"fe1b4903-a745-4370-a850-2eb30e49b07e"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "-",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]]}], ",",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{3.7754979053420057`*^9},
+ CellLabel->
+ "Out[237]=",ExpressionUUID->"c0401559-5133-43a1-95d9-2c147aeac684"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.775497905356739*^9},
+ CellLabel->
+ "Out[238]=",ExpressionUUID->"69980d33-68ef-4bc7-8483-e5f3624dc2f2"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"--",
+ RowBox[{"-", "+"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<---+\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.7743525555879*^9, 3.7743525676513443`*^9},
+ 3.774352872458866*^9, {3.774364890455717*^9, 3.77436489078689*^9}, {
+ 3.775496623359764*^9, 3.7754966299863863`*^9}},
+ CellLabel->
+ "In[239]:=",ExpressionUUID->"b793fa34-3995-4321-8821-1b621911c453"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellChangeTimes->{{3.775496709815193*^9, 3.775496712543408*^9}},
+ CellLabel->
+ "In[249]:=",ExpressionUUID->"f84ff2cc-9ea3-4b80-b650-9f55fc0f9050"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775498108673365*^9},
+ CellLabel->
+ "Out[249]=",ExpressionUUID->"c06349b5-a8e5-4a9d-9151-70897cbad86c"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.7754981086826982`*^9},
+ CellLabel->
+ "Out[250]=",ExpressionUUID->"f6e999f4-5535-4229-b523-b56222e09ce5"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "+",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.775498108693202*^9},
+ CellLabel->
+ "Out[251]=",ExpressionUUID->"e26cd2b4-0fcd-4c1a-bc01-8ecb0c2ab4db"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "kT3"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "-",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.775498108709044*^9},
+ CellLabel->
+ "Out[252]=",ExpressionUUID->"9657c170-36b8-411d-8b6b-3d6276292375"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"--", "--"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<----\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box1", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box2", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box3", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"box4", " ", "//.", " ", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sumbox", "=",
+ RowBox[{
+ RowBox[{"bsub1", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub2", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub3", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "+",
+ RowBox[{"bsub4", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<box_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "sumbox"}], "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.774352583126089*^9, 3.7743525908491087`*^9},
+ 3.774352874811473*^9, {3.774364893076682*^9, 3.774364893332685*^9}, {
+ 3.775496635538294*^9, 3.775496642575879*^9}},
+ CellLabel->
+ "In[253]:=",ExpressionUUID->"904d1e14-4906-4fe4-96f1-2666b54aee06"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{"ek1vec", "\[IndentingNewLine]", "ek2vec", \
+"\[IndentingNewLine]", "ek4vec", "\[IndentingNewLine]", "ek5vec"}], "Input",
+ CellLabel->
+ "In[263]:=",ExpressionUUID->"ccf4c247-cfe0-485b-8f60-c5cb1c2404f2"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775498312810131*^9},
+ CellLabel->
+ "Out[263]=",ExpressionUUID->"eb569226-c832-4d1b-bd18-8c78de3ac024"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{3.775498312819539*^9},
+ CellLabel->
+ "Out[264]=",ExpressionUUID->"4c4d179c-6005-4a69-869b-32e6c3d44696"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[",
+ RowBox[{"\[Eta]4", "+",
+ RowBox[{"\[ImaginaryI]", " ", "\[Phi]4"}]}], "]"}]}],
+ SqrtBox["2"]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Tanh", "[", "\[Eta]4", "]"}]}]}],
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Sech", "[", "\[Eta]4", "]"}],
+ SqrtBox["2"]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.775498312827202*^9},
+ CellLabel->
+ "Out[265]=",ExpressionUUID->"122f04a8-3049-4ef7-812a-dedea2b60c56"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ SqrtBox["2"]],
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"kT3", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}]}], "+",
+ RowBox[{"kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}]}], ")"}], " ",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}]}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}], ")"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT3", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]3"}], "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox["kT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "\[Eta]4"}], "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}], "+",
+ RowBox[{"4", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Sinh", "[", "\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "\[Eta]4", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox["kT3", "2"], "+",
+ SuperscriptBox["kT4", "2"], "+",
+ RowBox[{"2", " ", "kT3", " ", "kT4", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}]]]]}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.77549831284846*^9},
+ CellLabel->
+ "Out[266]=",ExpressionUUID->"b4ca1d9c-4431-4e3d-bafa-ac054aac2ca1"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.775496646442024*^9,
+ 3.775496646585607*^9}},ExpressionUUID->"748f33a8-75a3-45ad-8268-\
+03283d31b0cc"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*",
+ RowBox[{"Triangles", " ", "Only"}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"config", "=", "\"\<++++\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<+++-\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<++-+\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",",
+ RowBox[{"-", "1"}], ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<++--\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<+-++\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",",
+ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<+-+-\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",",
+ RowBox[{"-", "1"}], ",", "1", ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<+--+\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<+---\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<-+++\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<-++-\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<-+-+\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1", ",",
+ RowBox[{"-", "1"}], ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<-+-+\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1", ",",
+ RowBox[{"-", "1"}], ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<-+--\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1", ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<--++\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<--+-\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",", "1", ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<---+\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<----\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"-", "1"}]}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{
+ 3.7743577285420027`*^9, {3.77437176080653*^9, 3.774371770188993*^9}},
+ CellLabel->"In[35]:=",ExpressionUUID->"decca2b0-8e15-4e87-a985-d5712b125d5f"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
+
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ "Differences", " ", "in", " ", "helicity", " ", "vectors", " ", "due",
+ " ", "to", " ", "taking", " ", "the", " ", "limit", " ", "when", " ",
+ "kT"}], "\[Rule]", "0."}], " ", "*)"}]}]], "Input",
+ CellChangeTimes->{{3.774375381176281*^9,
+ 3.774375409332838*^9}},ExpressionUUID->"4563076e-3246-46f7-97bc-\
+73b664b8307f"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{{3.774375673171742*^9, 3.7743756809353333`*^9}, {
+ 3.775487160130682*^9,
+ 3.775487161357504*^9}},ExpressionUUID->"0bc98909-fe56-4051-8545-\
+05a60ebbbb32"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"ek1vecInc", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"EpolEuc", "[",
+ RowBox[{"0", ",", "k1x", ",", "k1y", ",", "k1z", ",", "1"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{"k1y", "\[Rule]", "0"}], "}"}]}], "//", "Simplify"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek1vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Limit", "[",
+ RowBox[{"ek1vecInc", ",",
+ RowBox[{"k1x", "\[Rule]", "0"}], ",",
+ RowBox[{"Direction", "\[Rule]", "\"\<FromAbove\>\""}]}], "]"}], "/.",
+ "CMSFrame"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"because", " ", "kz"}], " ", ">", " ", "0"}], " ", "*)"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek1vecW", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Limit", "[",
+ RowBox[{"ek1vecInc", ",",
+ RowBox[{"k1x", "\[Rule]", "0"}], ",",
+ RowBox[{"Direction", "\[Rule]", "\"\<FromBelow\>\""}]}], "]"}], "/.",
+ "CMSFrame"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}],
+ " "}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"if", " ", "kz"}], " ", "<", " ", "0"}], " ", "*)"}]}]}], "Input",\
+
+ CellChangeTimes->{{3.774374300765133*^9, 3.7743743287287283`*^9},
+ 3.774374519002439*^9, {3.774374889448814*^9, 3.774374899167944*^9}, {
+ 3.774375118790688*^9, 3.774375121358261*^9}, {3.774375414725223*^9,
+ 3.774375424138667*^9}},
+ CellLabel->
+ "In[289]:=",ExpressionUUID->"c2b37f9c-dad4-4307-af24-d9a0d850bff4"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{{3.774374316813087*^9, 3.774374329259758*^9},
+ 3.774374520182932*^9, {3.7743748931774483`*^9, 3.7743748995100613`*^9},
+ 3.774375683458005*^9, 3.774614591885223*^9},
+ CellLabel->
+ "Out[290]=",ExpressionUUID->"0053d0e2-0989-4bdf-b06a-f9d1922adf20"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{{3.774374316813087*^9, 3.774374329259758*^9},
+ 3.774374520182932*^9, {3.7743748931774483`*^9, 3.7743748995100613`*^9},
+ 3.774375683458005*^9, 3.774614591934792*^9},
+ CellLabel->
+ "Out[291]=",ExpressionUUID->"43fbcf8e-8599-42a1-bfcc-4516bc717d3d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"ek2vecInc", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"EpolEuc", "[",
+ RowBox[{"0", ",", "k2x", ",", "k2y", ",", "k2z", ",", "1"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{"k2y", "\[Rule]", "0"}], "}"}]}], "//", "Simplify"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek2vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Limit", "[",
+ RowBox[{"ek2vecInc", ",",
+ RowBox[{"k2x", "\[Rule]", "0"}], ",",
+ RowBox[{"Direction", "\[Rule]", "\"\<FromBelow\>\""}]}], "]"}], "/.",
+ "CMSFrame"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], " ",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"because", " ", "kz"}], " ", "<", " ", "0"}], " ", "*)"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{"ek2vecW", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Limit", "[",
+ RowBox[{"ek2vecInc", ",",
+ RowBox[{"k2x", "\[Rule]", "0"}], ",",
+ RowBox[{"Direction", "\[Rule]", "\"\<FromAbove\>\""}]}], "]"}], "/.",
+ "CMSFrame"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//",
+ "Simplify"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"if", " ", "kz"}], " ", ">", " ", "0"}], " ", "*)"}],
+ " "}]}], "Input",
+ CellChangeTimes->{{3.774374732551367*^9, 3.774374736580291*^9}, {
+ 3.77437486733582*^9, 3.774374886301341*^9}, {3.774375109145692*^9,
+ 3.774375111125836*^9}, {3.7743754271117153`*^9, 3.7743754355611143`*^9}},
+ CellLabel->
+ "In[535]:=",ExpressionUUID->"93d4e542-71cc-4953-af8e-c169abe35c37"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{{3.774374733308296*^9, 3.7743747371111307`*^9},
+ 3.7743748960302362`*^9, 3.7743749700018387`*^9, 3.7743756863446007`*^9,
+ 3.774614594309457*^9, 3.775230073268903*^9},
+ CellLabel->
+ "Out[536]=",ExpressionUUID->"3293794e-373e-45b0-88e3-12a28b10e6d4"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SqrtBox["2"]], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{{3.774374733308296*^9, 3.7743747371111307`*^9},
+ 3.7743748960302362`*^9, 3.7743749700018387`*^9, 3.7743756863446007`*^9,
+ 3.774614594309457*^9, 3.775230073358686*^9},
+ CellLabel->
+ "Out[537]=",ExpressionUUID->"105e4034-56e9-4119-976c-1771ee3f4d7e"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ek4vec", "/.", "KinRules"}], "/.", "KinSub"}]], "Input",
+ CellChangeTimes->{{3.77437560512392*^9, 3.774375614570808*^9}},
+ CellLabel->
+ "In[297]:=",ExpressionUUID->"8f69032e-381e-4355-9ee9-143e3faa4659"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0", ",",
+ FractionBox["1",
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{3.774375614964827*^9, 3.774375692319228*^9,
+ 3.774614602339438*^9},
+ CellLabel->
+ "Out[297]=",ExpressionUUID->"395e9ca9-8a54-41e6-b00a-82e661c745b9"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ek5vec", "/.", "KinRules"}], "/.", "KinSub"}]], "Input",
+ CellChangeTimes->{{3.774375617284769*^9, 3.774375624171795*^9}},
+ CellLabel->
+ "In[298]:=",ExpressionUUID->"82dd246c-415e-4947-89d4-a9492a7c08d0"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.7013259782290641`", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.09023232381495236`", " ", "\[ImaginaryI]"}]}], ",",
+ "0.7071067811865476`"}], "}"}]], "Output",
+ CellChangeTimes->{3.7743756244196453`*^9, 3.774375694529842*^9,
+ 3.7746146086277113`*^9},
+ CellLabel->
+ "Out[298]=",ExpressionUUID->"439827f5-7f37-45eb-a6db-4f44bbe16d70"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.7754954543658113`*^9,
+ 3.775495454866901*^9}},ExpressionUUID->"46f1ab6d-937e-4ec4-ac8d-\
+bff28579c110"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*",
+ RowBox[{"TEST", " ", "ggHgg", " ", "Triangle"}], "*)"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"test", " ", "1"}], "*)"}], "\[IndentingNewLine]",
+ "tsub"}]], "Input",
+ CellChangeTimes->{{3.7752248394984837`*^9, 3.775224900537775*^9}, {
+ 3.775227377920702*^9, 3.775227385044223*^9}, {3.775487200391507*^9,
+ 3.7754872030342817`*^9}},
+ CellLabel->"In[96]:=",ExpressionUUID->"39596f69-54b3-4502-bc9a-e27bb48d3f41"],
+
+Cell[BoxData["tsub"], "Output",
+ CellChangeTimes->{
+ 3.775224847700425*^9, {3.775224892303636*^9, 3.775224901027123*^9},
+ 3.775487206480253*^9},
+ CellLabel->"Out[96]=",ExpressionUUID->"391ef8fa-412a-4103-98ac-6efb4aca67ca"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
+ RowBox[{"300.", ",", "20.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}], "]"}],
+ "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinRules", "=",
+ RowBox[{"f", "[",
+ RowBox[{"variables", ",", "output"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinSub", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300.", "^", "2"}]}], ",",
+ RowBox[{"kT3", "\[Rule]", "20."}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]",
+ RowBox[{"Pi", "/", "3"}]}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}]}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7752282010678043`*^9, 3.775228231892907*^9}},
+ CellLabel->"In[33]:=",ExpressionUUID->"b34e4af8-5a92-4433-91fe-7fe2aaea58e5"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
+ "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
+
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775230932041807*^9, 3.7752309727942142`*^9,
+ 3.775231284982201*^9, 3.776438248575953*^9},
+ CellLabel->
+ "During evaluation of \
+In[33]:=",ExpressionUUID->"036d06c3-d736-46a4-85af-321881037012"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"p1", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
+ {
+ RowBox[{"p2", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "150.`"}]}], "}"}]}]},
+ {
+ RowBox[{"p3", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
+ ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p4", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"95.04498070119013`", ",", "0.`", ",",
+ RowBox[{"-", "95.04498070119013`"}], ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p5", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"78.3651302870882`", ",",
+ RowBox[{"-", "10.`"}], ",", "77.72447262550135`", ",", "0.`"}],
+ "}"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
+ "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["Four Momenta : \n",
+ MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
+ 150., 0., 0., -150.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {95.04498070119013,
+ 0., -95.04498070119013, 0.}, $CellContext`p5 -> {78.3651302870882, -10.,
+ 77.72447262550135, 0.}}], "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775230932041807*^9, 3.7752309727942142`*^9,
+ 3.775231284982201*^9, 3.776438248589973*^9},
+ CellLabel->
+ "During evaluation of \
+In[33]:=",ExpressionUUID->"7f092130-65a6-48f6-a225-c9cb2c9bf4af"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
+ "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ "-", "3.887221955939928966560590155849714544348308363744058289341178206`\
+43.811488088675176*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.72104081749894", ",", "0``57.522878745280345"}], "}"}]}],
+ SequenceForm[
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.887221955939928966560590155849714544348308363744058289341178206`43.\
+811488088675176*^-14, 0``58.69897000433602, 0``57.72104081749894,
+ 0``57.522878745280345}],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775230932041807*^9, 3.7752309727942142`*^9,
+ 3.775231284982201*^9, 3.7764382486049023`*^9},
+ CellLabel->
+ "During evaluation of \
+In[33]:=",ExpressionUUID->"74d09005-80d4-4eb5-b2ad-db0c1a75acc8"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.775230932041807*^9, 3.7752309727942142`*^9,
+ 3.775231284982201*^9, 3.77643824861449*^9},
+ CellLabel->
+ "During evaluation of \
+In[33]:=",ExpressionUUID->"b274558c-4e4b-4c44-9c4c-5fbe2460bcbc"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
+ RowBox[{"kkT4", "\[Rule]", "95.0449807011901270926`10."}], ",",
+ RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "22351.9667035164881926659`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "22351.9667035164881926659`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "28513.4942103570381277677`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "28513.4942103570381277677`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "42980.9218277470587333204`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "207.3184068715246970733`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.12865960568407904294629727505559632487`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "78.3651302870882067263`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "181.5847228686540904465`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{3.775230932041807*^9, 3.7752309727942142`*^9,
+ 3.775231284982201*^9, 3.776438248624385*^9},
+ CellLabel->
+ "During evaluation of \
+In[33]:=",ExpressionUUID->"3221b609-dcc3-4da4-a3e3-9f5bc8e7bbf2"]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"t", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"tsub", "//.", "KinRules"}], "//.", "KinSub"}], "//",
+ "FullSimplify"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tfinal", "=",
+ RowBox[{
+ RowBox[{"t", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Alfas", "\[Rule]",
+ RowBox[{"1", "/", "128"}]}], ",",
+ RowBox[{"MW", "\[Rule]", "80.376"}], ",",
+ RowBox[{"SW", "\[Rule]", "0.480832611207"}], ",",
+ RowBox[{"EL", "\[Rule]",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"4", "*", "Pi", "*",
+ RowBox[{"(",
+ RowBox[{"1", "/", "128"}], ")"}]}], "]"}]}]}], "}"}]}], "//",
+ "Simplify"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.775225058535507*^9, 3.7752250620472116`*^9}, {
+ 3.775225117463687*^9, 3.7752251255225*^9}, {3.7752256278150873`*^9,
+ 3.7752256713762207`*^9}, {3.775228280738386*^9, 3.775228280888126*^9}, {
+ 3.775228383635068*^9, 3.7752283879715357`*^9}, {3.775230702176445*^9,
+ 3.7752307026709137`*^9}, {3.775230819239026*^9, 3.7752308282809753`*^9}, {
+ 3.77523090526558*^9, 3.7752309059485817`*^9}, 3.775230965516696*^9, {
+ 3.775231230843745*^9, 3.775231239908455*^9}, {3.775231275597724*^9,
+ 3.7752312824194508`*^9}},
+ CellLabel->
+ "In[713]:=",ExpressionUUID->"9fd3d5e6-8ffa-493a-8595-d6d0d780805f"],
+
+Cell[BoxData[
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["Alfas", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "4.42282197922486`"}], "-",
+ RowBox[{"0.2629022710276373`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4.422821979224851`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.2629022710276477`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"8.845643958449717`", "\[VeryThinSpace]", "-",
+ RowBox[{"1.0325074129013956`*^-14", " ", "\[ImaginaryI]"}]}], ")"}],
+ " ", "c3"}]}], ")"}], " ", "EL"}],
+ RowBox[{"MW", " ", "SW"}]]], "Output",
+ CellChangeTimes->{{3.775225664088006*^9, 3.77522567177706*^9},
+ 3.775227855365807*^9, {3.775228209005939*^9, 3.775228237774908*^9},
+ 3.7752282816268797`*^9, 3.775228322851685*^9, {3.775230703071548*^9,
+ 3.775230720365859*^9}, 3.775230828894676*^9, {3.7752309372342987`*^9,
+ 3.775230975260806*^9}, 3.775231288410503*^9},
+ CellLabel->
+ "Out[713]=",ExpressionUUID->"fa64eb15-5601-48dd-a605-5df7944ad9aa"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"t", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"t", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"mat", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}]}], "}"}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"mat", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tdagger", "=",
+ RowBox[{"Conjugate", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tdagger", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"MdagM0", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"tdagger", ",", "mat", ",", "t"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7752263172970657`*^9, 3.775226370760921*^9}, {
+ 3.775226419611183*^9, 3.7752265454864264`*^9}, {3.775226879450161*^9,
+ 3.775227076406006*^9}, 3.775227861069626*^9, {3.775228176084751*^9,
+ 3.775228176316021*^9}, {3.775230890963722*^9, 3.775230891140901*^9}, {
+ 3.775230946959694*^9, 3.7752309506553507`*^9}},
+ CellLabel->
+ "In[715]:=",ExpressionUUID->"5ded4345-d664-4ac5-9642-1b00a0681b1c"],
+
+Cell[BoxData[
+ RowBox[{"2.589543990648512`*^-10", "-",
+ RowBox[{"4.1584903321868325`*^-28", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{
+ 3.775226331131727*^9, 3.775226372663734*^9, {3.7752264954014072`*^9,
+ 3.775226506968534*^9}, {3.775226537183036*^9, 3.775226545869584*^9},
+ 3.775227022067236*^9, 3.775227078289074*^9, {3.775227857897359*^9,
+ 3.775227861355043*^9}, {3.7752282113000717`*^9, 3.775228239141239*^9},
+ 3.775228284641056*^9, 3.775228327350637*^9, {3.775230705260297*^9,
+ 3.775230722370657*^9}, 3.775230831560916*^9, {3.7752309397957487`*^9,
+ 3.7752309771630077`*^9}, 3.775231290721431*^9},
+ CellLabel->
+ "Out[721]=",ExpressionUUID->"1a1d7ca1-25cc-4fb7-8df5-582cc32ec06c"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"(*", " ",
+ RowBox[{"test", " ", "2"}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.775227392185399*^9,
+ 3.775227397719922*^9}},ExpressionUUID->"5b66fb87-293a-4ef7-bff7-\
+0d09631bb6d8"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
+ RowBox[{"300.", ",", "40.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}], "]"}],
+ "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinRules", "=",
+ RowBox[{"f", "[",
+ RowBox[{"variables", ",", "output"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinSub", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300.", "^", "2"}]}], ",",
+ RowBox[{"kT3", "\[Rule]", "40."}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]",
+ RowBox[{"Pi", "/", "3"}]}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}]}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"MT", "\[Rule]", "173"}]}], "}"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.775227712322483*^9, 3.775227726510152*^9}, {
+ 3.77522812757227*^9, 3.775228136486952*^9}, {3.7752282452191553`*^9,
+ 3.775228245389009*^9}},
+ CellLabel->
+ "In[722]:=",ExpressionUUID->"a821d5f4-c947-47d0-a68d-88efb3b8dd3d"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
+ "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
+
+ Editable->False]], "Print",
+ CellChangeTimes->{
+ 3.7752274257605*^9, {3.775227713754155*^9, 3.7752277270115967`*^9}, {
+ 3.775228130545632*^9, 3.7752281370688543`*^9}, 3.775228245742526*^9,
+ 3.7752283334404593`*^9, 3.7752306807614107`*^9, 3.775230795706949*^9, {
+ 3.775230957605077*^9, 3.7752309799804153`*^9}, 3.7752312967710857`*^9},
+ CellLabel->
+ "During evaluation of \
+In[722]:=",ExpressionUUID->"bdd84ee5-e5de-4399-85d7-f620c7667877"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"p1", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
+ {
+ RowBox[{"p2", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "150.`"}]}], "}"}]}]},
+ {
+ RowBox[{"p3", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ "131.24404748406687`", ",", "20.`", ",", "34.64101615137755`", ",",
+ "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p4", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"100.20722612318758`", ",", "0.`", ",",
+ RowBox[{"-", "100.20722612318758`"}], ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p5", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"68.5487263927455`", ",",
+ RowBox[{"-", "20.`"}], ",", "65.56620997181004`", ",", "0.`"}],
+ "}"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
+ "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["Four Momenta : \n",
+ MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
+ 150., 0., 0., -150.}, $CellContext`p3 -> {131.24404748406687`, 20.,
+ 34.64101615137755, 0.}, $CellContext`p4 -> {100.20722612318758`,
+ 0., -100.20722612318758`, 0.}, $CellContext`p5 -> {
+ 68.5487263927455, -20., 65.56620997181004, 0.}}], "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{
+ 3.7752274257605*^9, {3.775227713754155*^9, 3.7752277270115967`*^9}, {
+ 3.775228130545632*^9, 3.7752281370688543`*^9}, 3.775228245742526*^9,
+ 3.7752283334404593`*^9, 3.7752306807614107`*^9, 3.775230795706949*^9, {
+ 3.775230957605077*^9, 3.7752309799804153`*^9}, 3.775231296785734*^9},
+ CellLabel->
+ "During evaluation of \
+In[722]:=",ExpressionUUID->"3939f696-ad00-464e-8f62-39d979d7c35d"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
+ "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ "-", "5.876373720011891608134562217738742061745029729160199708223878675`\
+43.99095815745918*^-14"}], ",", "0``58.39794000867204", ",",
+ "0``57.69807096391986", ",", "0``57.522878745280345"}], "}"}]}],
+ SequenceForm[
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-5.876373720011891608134562217738742061745029729160199708223878675`43.\
+99095815745918*^-14, 0``58.39794000867204, 0``57.69807096391986,
+ 0``57.522878745280345}],
+ Editable->False]], "Print",
+ CellChangeTimes->{
+ 3.7752274257605*^9, {3.775227713754155*^9, 3.7752277270115967`*^9}, {
+ 3.775228130545632*^9, 3.7752281370688543`*^9}, 3.775228245742526*^9,
+ 3.7752283334404593`*^9, 3.7752306807614107`*^9, 3.775230795706949*^9, {
+ 3.775230957605077*^9, 3.7752309799804153`*^9}, 3.775231296799769*^9},
+ CellLabel->
+ "During evaluation of \
+In[722]:=",ExpressionUUID->"44d8caf9-61b8-46aa-972d-67abe87916ae"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{
+ 3.7752274257605*^9, {3.775227713754155*^9, 3.7752277270115967`*^9}, {
+ 3.775228130545632*^9, 3.7752281370688543`*^9}, 3.775228245742526*^9,
+ 3.7752283334404593`*^9, 3.7752306807614107`*^9, 3.775230795706949*^9, {
+ 3.775230957605077*^9, 3.7752309799804153`*^9}, 3.775231296810185*^9},
+ CellLabel->
+ "During evaluation of \
+In[722]:=",ExpressionUUID->"2f29d13e-6df9-4305-9cb5-665b6f5790de"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "40.`"}], ",",
+ RowBox[{"kkT4", "\[Rule]", "100.2072261231875813792`10."}], ",",
+ RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "23748.2142452200617895598`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "23748.2142452200617895598`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "30062.1678369562744137511`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "30062.1678369562744137511`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "48870.7641643526804629805`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "221.0673294821120339102`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.30503516992363796243170073189201937468`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "68.5487263927454872252`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "172.8457819158090640716`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{
+ 3.7752274257605*^9, {3.775227713754155*^9, 3.7752277270115967`*^9}, {
+ 3.775228130545632*^9, 3.7752281370688543`*^9}, 3.775228245742526*^9,
+ 3.7752283334404593`*^9, 3.7752306807614107`*^9, 3.775230795706949*^9, {
+ 3.775230957605077*^9, 3.7752309799804153`*^9}, 3.775231296820582*^9},
+ CellLabel->
+ "During evaluation of \
+In[722]:=",ExpressionUUID->"dbcfd14d-2210-4c86-b316-c61c776b7076"]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"t", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"tsub", "//.", "KinRules"}], "//.", "KinSub"}], "//",
+ "FullSimplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"tfinal", "=",
+ RowBox[{
+ RowBox[{"t", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Alfas", "\[Rule]", "1"}], ",",
+ RowBox[{"MW", "\[Rule]", "80.376"}], ",",
+ RowBox[{"SW", "\[Rule]", "0.480832611207"}], ",",
+ RowBox[{"EL", "\[Rule]",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"4", "*", "Pi", "*",
+ RowBox[{"(",
+ RowBox[{"1", "/", "128"}], ")"}]}], "]"}]}]}], "}"}]}], "//",
+ "Simplify"}]}]}], "Input",
+ CellChangeTimes->{{3.775227488213812*^9, 3.7752275145464983`*^9}, {
+ 3.7752283401742573`*^9, 3.7752283715282087`*^9}, {3.7752306778102283`*^9,
+ 3.775230678351553*^9}, {3.7752307792459707`*^9, 3.775230793078136*^9}, {
+ 3.775231300565361*^9, 3.7752313127611427`*^9}},
+ CellLabel->
+ "In[725]:=",ExpressionUUID->"edd720c6-62d1-4267-aae0-a0e8be2f9c5d"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "0.04110032633364382`"}], "-",
+ RowBox[{"0.004910048365539927`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.041366954994243976`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.004464006731377908`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.0824672813278878`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.0004460416341620203`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{{3.775227506826735*^9, 3.775227515452433*^9},
+ 3.775227742717857*^9, 3.7752281411315813`*^9, 3.775228248401593*^9,
+ 3.775228341260454*^9, 3.7752306830171432`*^9, 3.775230797913719*^9, {
+ 3.775230960812364*^9, 3.775230982674633*^9}, 3.775231313439258*^9},
+ CellLabel->
+ "Out[726]=",ExpressionUUID->"3fcfdace-e39d-40f0-931d-65df47dc584f"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"t", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"tfinal", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"t", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"mat", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}]}], "}"}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"mat", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tdagger", "=",
+ RowBox[{"Conjugate", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tdagger", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"MdagM1", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"tdagger", ",", "mat", ",", "t"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7752275570312223`*^9, 3.775227690221272*^9}, {
+ 3.775230883254527*^9, 3.7752308835510406`*^9}, {3.775230987433601*^9,
+ 3.775230991216572*^9}},
+ CellLabel->
+ "In[727]:=",ExpressionUUID->"f9a36ccc-6bbb-4713-9d83-1c7447160476"],
+
+Cell[BoxData[
+ RowBox[{"0.09220994247626954`", "\[VeryThinSpace]", "+",
+ RowBox[{"1.3552527156068805`*^-19", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{{3.775227564571664*^9, 3.775227575245241*^9},
+ 3.775227629240129*^9, {3.7752276620064917`*^9, 3.775227690571496*^9},
+ 3.7752277473169727`*^9, 3.775228144086871*^9, 3.775228249674532*^9,
+ 3.775228345985065*^9, 3.775230684528902*^9, 3.775230800155424*^9, {
+ 3.775230985314646*^9, 3.775230991567499*^9}, 3.7752313155678*^9},
+ CellLabel->
+ "Out[733]=",ExpressionUUID->"aa7d22b9-3036-4d75-b2d0-18fc747a8a8d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["MdagM0"], "Input",
+ CellChangeTimes->{{3.775227793917057*^9, 3.775227811343598*^9},
+ 3.775227871143363*^9},
+ CellLabel->
+ "In[734]:=",ExpressionUUID->"36eb691a-1df8-413f-a81b-b5d04d022935"],
+
+Cell[BoxData[
+ RowBox[{"2.589543990648512`*^-10", "-",
+ RowBox[{"4.1584903321868325`*^-28", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.775227811862928*^9, 3.7752278716194763`*^9,
+ 3.775228221435535*^9, 3.775228350744491*^9, 3.775230733194573*^9,
+ 3.775230842865101*^9, 3.77523099720271*^9, 3.775231317986163*^9},
+ CellLabel->
+ "Out[734]=",ExpressionUUID->"fdfb1397-fb23-4c7c-8c83-b32a045efe7a"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["MdagM1"], "Input",
+ CellChangeTimes->{{3.775230998632595*^9, 3.775231000530785*^9}},
+ CellLabel->
+ "In[735]:=",ExpressionUUID->"7f66cd20-d1e8-4ca7-a221-9ff39aca36aa"],
+
+Cell[BoxData[
+ RowBox[{"0.09220994247626954`", "\[VeryThinSpace]", "+",
+ RowBox[{"1.3552527156068805`*^-19", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.775231001061522*^9, 3.775231319936281*^9},
+ CellLabel->
+ "Out[735]=",ExpressionUUID->"335e2f70-756c-4dba-8305-8a636f2cf6ae"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MdagM0", "/", "MdagM1"}]], "Input",
+ CellChangeTimes->{{3.775227814838396*^9, 3.775227823287915*^9}},
+ CellLabel->
+ "In[736]:=",ExpressionUUID->"809aadb6-16f8-4cc9-bd6f-1d91f28835f9"],
+
+Cell[BoxData[
+ RowBox[{"2.8083132047446377`*^-9", "-",
+ RowBox[{"8.637316340633591`*^-27", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.7752278236474257`*^9, 3.775227875891039*^9,
+ 3.775228223085803*^9, 3.775228253833722*^9, 3.7752283528475513`*^9,
+ 3.775230735896517*^9, 3.775230845901018*^9, 3.775231005961709*^9,
+ 3.7752313221382027`*^9},
+ CellLabel->
+ "Out[736]=",ExpressionUUID->"25057792-749b-4102-83c6-f9f495295eec"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MdagM1", "/", "MdagM0"}]], "Input",
+ CellChangeTimes->{{3.775227878977666*^9, 3.7752278909876623`*^9}},
+ CellLabel->
+ "In[737]:=",ExpressionUUID->"f8772f15-8b4e-49fe-a3b6-236dbafe3613"],
+
+Cell[BoxData[
+ RowBox[{"3.560856382794137`*^8", "+",
+ RowBox[{"1.0951856427479182`*^-9", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{{3.775227886110634*^9, 3.7752278913736897`*^9}, {
+ 3.775228225719728*^9, 3.775228255335204*^9}, 3.775228354880397*^9,
+ 3.775230737795094*^9, 3.775230848068742*^9, 3.775231007766411*^9,
+ 3.775231323820561*^9},
+ CellLabel->
+ "Out[737]=",ExpressionUUID->"57e8dfd9-908a-48b6-8d80-cf22e344347f"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Directory", "[", "]"}]], "Input",
+ CellChangeTimes->{{3.775229023457518*^9, 3.7752290251402903`*^9}},
+ CellLabel->
+ "In[421]:=",ExpressionUUID->"aa43aae6-fbd8-489b-b700-ebe9d437a84b"],
+
+Cell[BoxData["\<\"/Users/josegabrielreyes/Documents/Higgs/Mathematica \
+Scripts/ggHgg/FinalSetUp/helicitiesTest\"\>"], "Output",
+ CellChangeTimes->{3.7752290901589317`*^9},
+ CellLabel->
+ "Out[421]=",ExpressionUUID->"d2d8c151-4c04-472d-91db-93581375244f"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"(*", " ",
+ RowBox[{"BOXES", " ", "TEST"}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.775229138398674*^9,
+ 3.775229144749391*^9}},ExpressionUUID->"b20f7e47-3fac-4864-a7ff-\
+e1acd3f6092a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"subbox", "=",
+ RowBox[{"Import", "[", "\"\<box_++++.m\>\"", "]"}]}]], "Input",
+ CellChangeTimes->{{3.775229092912006*^9, 3.775229117822713*^9}},
+ CellLabel->
+ "In[422]:=",ExpressionUUID->"c82ec215-95ed-4d74-990c-6d27d1f70484"],
+
+Cell[BoxData[
+ InterpretationBox[
+ TagBox[
+ FrameBox[GridBox[{
+ {
+ ItemBox[
+ TagBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"c3", " ",
+ RowBox[{"(",
+ RowBox[{
+ TemplateBox[{"33"},
+ "OutputSizeLimit`Skeleton"], "+",
+ FractionBox[
+ RowBox[{"8", " ",
+ TemplateBox[{"4"},
+ "OutputSizeLimit`Skeleton"], " ",
+ RowBox[{"(",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], ")"}]}],
+ RowBox[{"MW", " ", "SW"}]]}], ")"}]}],
+ RowBox[{
+ SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}]], "+",
+ FractionBox[
+ RowBox[{"c3", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"],
+ RowBox[{"MW", " ", "SW"}]], "+",
+ TemplateBox[{"60"},
+ "OutputSizeLimit`Skeleton"], "+",
+ FractionBox[
+ RowBox[{"4", " ",
+ TemplateBox[{"4"},
+ "OutputSizeLimit`Skeleton"], " ",
+ RowBox[{"(",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], ")"}]}],
+ RowBox[{"MW", " ", "SW"}]]}], ")"}]}],
+ RowBox[{
+ SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}]], "+",
+ FractionBox[
+ RowBox[{"2", " ", "c1", " ",
+ RowBox[{"(",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], ")"}]}],
+ RowBox[{
+ SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}]], "+",
+ FractionBox[
+ RowBox[{"c3",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"],
+ RowBox[{"(",
+ RowBox[{
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"],
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"]}]}]}], "T14"], "+",
+ TemplateBox[{"14"},
+ "OutputSizeLimit`Skeleton"], "+",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "+",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["Alfas", "2"], " ",
+ TemplateBox[{"3"},
+ "OutputSizeLimit`Skeleton"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"],
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"]], "+",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"]}], ")"}]}],
+ RowBox[{"MW", " ", "SW"}]], "-",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["Alfas", "2"], " ", "c3", " ", "EL", " ",
+ SuperscriptBox["MT", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "T14"], "-",
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "T24"]}], ")"}]}],
+ RowBox[{"MW", " ", "SW"}]], "-",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["Alfas", "2"], " ", "c3", " ", "EL", " ",
+ SuperscriptBox["MT", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "T14"], "-",
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "+",
+ TemplateBox[{"59"},
+ "OutputSizeLimit`Skeleton"]}], "T24"]}], ")"}]}],
+ RowBox[{"MW", " ", "SW"}]]}],
+ Short[#, 5]& ],
+ BaseStyle->{Deployed -> False},
+ StripOnInput->False]},
+ {GridBox[{
+ {
+ TagBox[
+ TooltipBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource[
+ "FEStrings", "sizeBriefExplanation"], StandardForm],
+ ImageSizeCache->{58., {2., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLText",
+ StripOnInput->False],
+ StyleBox[
+ DynamicBox[
+ ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
+ StandardForm]], DynamicUpdating -> True, StripOnInput ->
+ False]],
+ Annotation[#,
+ Style[
+ Dynamic[
+ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
+ DynamicUpdating -> True], "Tooltip"]& ],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ StandardForm],
+ ImageSizeCache->{50., {0., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ StandardForm],
+ ImageSizeCache->{50., {0., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+ BaselinePosition->Baseline,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ OutputSizeLimit`Defer, 422, 17477231814507770626, 5/2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ StandardForm],
+ ImageSizeCache->{56., {0., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ StandardForm],
+ ImageSizeCache->{56., {0., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+ BaselinePosition->Baseline,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ OutputSizeLimit`Defer, 422, 17477231814507770626, 5 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ StandardForm],
+ ImageSizeCache->{42., {0., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ StandardForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+ BaselinePosition->Baseline,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ OutputSizeLimit`Defer, 422, 17477231814507770626, Infinity],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ StandardForm],
+ ImageSizeCache->{74., {0., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ StandardForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+ BaselinePosition->Baseline,
+ ButtonFunction:>FrontEndExecute[{
+ FrontEnd`SetOptions[
+ FrontEnd`$FrontEnd,
+ FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}],
+ FrontEnd`FrontEndToken["PreferencesDialog"]}],
+ Evaluator->None,
+ Method->"Preemptive"]}
+ },
+ AutoDelete->False,
+ FrameStyle->GrayLevel[0.85],
+ GridBoxDividers->{"Columns" -> {False, {True}}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{2}}}]}
+ },
+ DefaultBaseStyle->"Column",
+ GridBoxAlignment->{
+ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxDividers->{
+ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}},
+ "RowsIndexed" -> {}},
+ GridBoxItemSize->{
+ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2],
+ Offset[1.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ BaseStyle->"OutputSizeLimit",
+ FrameMargins->{{12, 12}, {0, 15}},
+ FrameStyle->GrayLevel[0.85],
+ RoundingRadius->5,
+ StripOnInput->False],
+ Deploy,
+ DefaultBaseStyle->"Deploy"],
+ If[17477231814507770626 === $SessionID,
+ Out[422], Message[
+ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"];
+ Null]]], "Output",
+ CellChangeTimes->{3.775229157866227*^9},
+ CellLabel->
+ "Out[422]=",ExpressionUUID->"d2eb5bb5-ca40-4bc9-8035-0ad20d7444eb"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
+ RowBox[{"300.", ",", "20.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}], "]"}],
+ "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinRules", "=",
+ RowBox[{"f", "[",
+ RowBox[{"variables", ",", "output"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinSub", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300.", "^", "2"}]}], ",",
+ RowBox[{"kT3", "\[Rule]", "20."}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]",
+ RowBox[{"Pi", "/", "3"}]}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}]}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"subbox", "//.", "KinRules"}], "//.", "KinSub"}], "//",
+ "FullSimplify"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.775229164689459*^9, 3.7752292459898567`*^9}, {
+ 3.7752293068416357`*^9, 3.7752293082899437`*^9}, {3.775229436018053*^9,
+ 3.775229448330065*^9}, {3.775229483919393*^9, 3.7752294847148743`*^9}, {
+ 3.775229538653103*^9, 3.7752295449435863`*^9}, 3.7752296549936523`*^9},
+ CellLabel->
+ "In[546]:=",ExpressionUUID->"cd9723fe-5ae1-425a-ab81-ebf4322d7796"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
+ "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
+
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775229542211306*^9, 3.77523054453467*^9},
+ CellLabel->
+ "During evaluation of \
+In[546]:=",ExpressionUUID->"2d451221-0c8c-4a6d-900e-eef366e55a07"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"p1", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
+ {
+ RowBox[{"p2", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "150.`"}]}], "}"}]}]},
+ {
+ RowBox[{"p3", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
+ ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p4", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"95.04498070119013`", ",", "0.`", ",",
+ RowBox[{"-", "95.04498070119013`"}], ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p5", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"78.3651302870882`", ",",
+ RowBox[{"-", "10.`"}], ",", "77.72447262550135`", ",", "0.`"}],
+ "}"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
+ "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["Four Momenta : \n",
+ MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
+ 150., 0., 0., -150.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {95.04498070119013,
+ 0., -95.04498070119013, 0.}, $CellContext`p5 -> {78.3651302870882, -10.,
+ 77.72447262550135, 0.}}], "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775229542211306*^9, 3.775230544550933*^9},
+ CellLabel->
+ "During evaluation of \
+In[546]:=",ExpressionUUID->"446afc90-b7d9-40f2-a649-5b1fb0898ef2"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
+ "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ "-", "3.887221955939928966560590155849714544348308363744058289341178206`\
+43.811488088675176*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.72104081749894", ",", "0``57.522878745280345"}], "}"}]}],
+ SequenceForm[
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.887221955939928966560590155849714544348308363744058289341178206`43.\
+811488088675176*^-14, 0``58.69897000433602, 0``57.72104081749894,
+ 0``57.522878745280345}],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775229542211306*^9, 3.775230544565895*^9},
+ CellLabel->
+ "During evaluation of \
+In[546]:=",ExpressionUUID->"445e2145-d7ab-4474-817e-fca7d8921e18"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.775229542211306*^9, 3.775230544575285*^9},
+ CellLabel->
+ "During evaluation of \
+In[546]:=",ExpressionUUID->"576e6130-cb63-4d40-9fa7-06ce080bbda8"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
+ RowBox[{"kkT4", "\[Rule]", "95.0449807011901270926`10."}], ",",
+ RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "22351.9667035164881926659`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "22351.9667035164881926659`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "28513.4942103570381277677`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "28513.4942103570381277677`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "42980.9218277470587333204`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "207.3184068715246970733`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.12865960568407904294629727505559632487`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "78.3651302870882067263`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "181.5847228686540904465`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{3.775229542211306*^9, 3.775230544585321*^9},
+ CellLabel->
+ "During evaluation of \
+In[546]:=",ExpressionUUID->"5eb1a54c-f688-440b-9825-8273a1dadee7"]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"bfinal", "=",
+ RowBox[{
+ RowBox[{"bsub", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Alfas", "\[Rule]", "1"}], ",",
+ RowBox[{"MW", "\[Rule]", "80.376"}], ",",
+ RowBox[{"SW", "\[Rule]", "0.480832611207"}], ",",
+ RowBox[{"EL", "\[Rule]",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"4", "*", "Pi"}], "]"}]}]}], "}"}]}], "//",
+ "Simplify"}]}], "\[IndentingNewLine]",
+ RowBox[{"bfinal", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.5081635528028182`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.014585184336615332`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.5081953030728049`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.01458926931457687`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1.016358855875623`", "\[VeryThinSpace]", "-",
+ RowBox[{"4.084977961588639`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]}]}], "Input",
+ CellChangeTimes->{{3.775229661002421*^9, 3.775229661621059*^9}, {
+ 3.775229745934651*^9, 3.7752297944663467`*^9}},
+ CellLabel->
+ "In[550]:=",ExpressionUUID->"36a40cc7-40c3-4807-8617-acf13576bbcd"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ")"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.5081635528028182`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.014585184336615332`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.5081953030728049`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.01458926931457687`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1.016358855875623`", "\[VeryThinSpace]", "-",
+ RowBox[{"4.084977961588639`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{{3.775229658233827*^9, 3.775229662203299*^9}, {
+ 3.775229746808633*^9, 3.775229795056713*^9}, 3.775230570731395*^9},
+ CellLabel->
+ "Out[550]=",ExpressionUUID->"92cd9b5e-a716-4e44-bd0a-1880c41e59e9"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.5081635528028182`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.014585184336615332`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.5081953030728049`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.01458926931457687`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1.016358855875623`", "\[VeryThinSpace]", "-",
+ RowBox[{"4.084977961588639`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{{3.775229658233827*^9, 3.775229662203299*^9}, {
+ 3.775229746808633*^9, 3.775229795056713*^9}, 3.775230570747328*^9},
+ CellLabel->
+ "Out[551]=",ExpressionUUID->"7bbae190-812f-49ad-a656-5a73f8176dd3"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"b", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{"b", "//", "MatrixForm"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"mat", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}]}], "}"}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{"mat", "//", "MatrixForm"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bdagger", "=",
+ RowBox[{"Conjugate", "[", "b", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"bdagger", "//", "MatrixForm"}], "\[IndentingNewLine]",
+ RowBox[{"MdagM0", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"bdagger", ",", "mat", ",", "b"}], "]"}]}]}], "Input",
+ CellLabel->
+ "In[552]:=",ExpressionUUID->"12f49268-37df-4130-a29f-0ba951bf6635"],
+
+Cell[BoxData[
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"0.5081635528028182`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.014585184336615332`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.5081635528028182`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.014585184336615332`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.5081953030728049`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.01458926931457687`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.5081953030728049`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.01458926931457687`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{
+ RowBox[{"-", "1.016358855875623`"}], "+",
+ RowBox[{"4.084977961588639`*^-6", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{
+ RowBox[{"-", "1.016358855875623`"}], "+",
+ RowBox[{"4.084977961588639`*^-6", " ", "\[ImaginaryI]"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{3.7752292775431757`*^9, 3.775229335743758*^9,
+ 3.775229436892448*^9, 3.775229476345936*^9, 3.775229510860489*^9,
+ 3.77522964641859*^9, 3.775229809066353*^9, 3.77523051577046*^9,
+ 3.775230570885751*^9},
+ CellLabel->
+ "Out[553]//MatrixForm=",ExpressionUUID->"1a999a2c-24e4-458b-9240-\
+da9ed516f81d"],
+
+Cell[BoxData[
+ TagBox[
+ RowBox[{"(", "\[NoBreak]", GridBox[{
+ {
+ FractionBox["19", "6"],
+ FractionBox["2", "3"],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}]},
+ {
+ FractionBox["2", "3"],
+ FractionBox["19", "6"],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}]},
+ {
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ FractionBox["2", "3"],
+ FractionBox["19", "6"],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}]},
+ {
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ FractionBox["19", "6"],
+ FractionBox["2", "3"],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}]},
+ {
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ FractionBox["19", "6"],
+ FractionBox["2", "3"]},
+ {
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ FractionBox["2", "3"],
+ FractionBox["19", "6"]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.7]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{3.7752292775431757`*^9, 3.775229335743758*^9,
+ 3.775229436892448*^9, 3.775229476345936*^9, 3.775229510860489*^9,
+ 3.77522964641859*^9, 3.775229809066353*^9, 3.77523051577046*^9,
+ 3.775230570902236*^9},
+ CellLabel->
+ "Out[555]//MatrixForm=",ExpressionUUID->"2fb42af8-da7f-4552-9e3b-\
+9bbf57fab2ce"],
+
+Cell[BoxData[
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"0.5081635528028182`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.014585184336615332`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.5081635528028182`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.014585184336615332`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.5081953030728049`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.01458926931457687`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.5081953030728049`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.01458926931457687`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{
+ RowBox[{"-", "1.016358855875623`"}], "-",
+ RowBox[{"4.084977961588639`*^-6", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{
+ RowBox[{"-", "1.016358855875623`"}], "-",
+ RowBox[{"4.084977961588639`*^-6", " ", "\[ImaginaryI]"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{3.7752292775431757`*^9, 3.775229335743758*^9,
+ 3.775229436892448*^9, 3.775229476345936*^9, 3.775229510860489*^9,
+ 3.77522964641859*^9, 3.775229809066353*^9, 3.77523051577046*^9,
+ 3.77523057091267*^9},
+ CellLabel->
+ "Out[557]//MatrixForm=",ExpressionUUID->"a3d1a0f7-2104-419a-a290-\
+17d0866e267d"],
+
+Cell[BoxData[
+ RowBox[{"13.949132046994812`", "\[VeryThinSpace]", "+",
+ RowBox[{"6.288372600415926`*^-18", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.7752292775431757`*^9, 3.775229335743758*^9,
+ 3.775229436892448*^9, 3.775229476345936*^9, 3.775229510860489*^9,
+ 3.77522964641859*^9, 3.775229809066353*^9, 3.77523051577046*^9,
+ 3.775230570922517*^9},
+ CellLabel->
+ "Out[558]=",ExpressionUUID->"49cf19f7-b5ca-4da2-a2fc-4505f8717f09"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
+ RowBox[{"300.", ",", "40.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}], "]"}],
+ "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinRules", "=",
+ RowBox[{"f", "[",
+ RowBox[{"variables", ",", "output"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinSub", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300.", "^", "2"}]}], ",",
+ RowBox[{"kT3", "\[Rule]", "40."}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]",
+ RowBox[{"Pi", "/", "3"}]}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}]}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bsub", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"subbox", "//.", "KinRules"}], "//.", "KinSub"}], "//",
+ "FullSimplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"bfinal", "=",
+ RowBox[{
+ RowBox[{"bsub", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Alfas", "\[Rule]", "1"}], ",",
+ RowBox[{"MW", "\[Rule]", "80.376"}], ",",
+ RowBox[{"SW", "\[Rule]", "0.480832611207"}], ",",
+ RowBox[{"EL", "\[Rule]",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"4", "*", "Pi"}], "]"}]}]}], "}"}]}], "//",
+ "Simplify"}]}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.77522931828927*^9, 3.775229335995839*^9}, {
+ 3.775229456299572*^9, 3.775229493104308*^9}, 3.7752298183255167`*^9},
+ CellLabel->
+ "In[559]:=",ExpressionUUID->"ac44598b-9a1a-4e52-85ef-2d23a5904111"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
+ "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
+
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775229338725016*^9, 3.775229819928619*^9,
+ 3.775230571186458*^9},
+ CellLabel->
+ "During evaluation of \
+In[559]:=",ExpressionUUID->"672b46d5-b182-43d6-9ad5-74e89857e3af"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"p1", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
+ {
+ RowBox[{"p2", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "150.`"}]}], "}"}]}]},
+ {
+ RowBox[{"p3", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ "131.24404748406687`", ",", "20.`", ",", "34.64101615137755`", ",",
+ "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p4", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"100.20722612318758`", ",", "0.`", ",",
+ RowBox[{"-", "100.20722612318758`"}], ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p5", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"68.5487263927455`", ",",
+ RowBox[{"-", "20.`"}], ",", "65.56620997181004`", ",", "0.`"}],
+ "}"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
+ "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["Four Momenta : \n",
+ MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
+ 150., 0., 0., -150.}, $CellContext`p3 -> {131.24404748406687`, 20.,
+ 34.64101615137755, 0.}, $CellContext`p4 -> {100.20722612318758`,
+ 0., -100.20722612318758`, 0.}, $CellContext`p5 -> {
+ 68.5487263927455, -20., 65.56620997181004, 0.}}], "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775229338725016*^9, 3.775229819928619*^9,
+ 3.775230571199201*^9},
+ CellLabel->
+ "During evaluation of \
+In[559]:=",ExpressionUUID->"05058169-5587-47d7-967f-cefedf01eb4f"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
+ "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ "-", "5.876373720011891608134562217738742061745029729160199708223878675`\
+43.99095815745918*^-14"}], ",", "0``58.39794000867204", ",",
+ "0``57.69807096391986", ",", "0``57.522878745280345"}], "}"}]}],
+ SequenceForm[
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-5.876373720011891608134562217738742061745029729160199708223878675`43.\
+99095815745918*^-14, 0``58.39794000867204, 0``57.69807096391986,
+ 0``57.522878745280345}],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775229338725016*^9, 3.775229819928619*^9,
+ 3.775230571213154*^9},
+ CellLabel->
+ "During evaluation of \
+In[559]:=",ExpressionUUID->"4097f6e5-fc74-4212-ac6e-bd19306fd20d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.775229338725016*^9, 3.775229819928619*^9,
+ 3.7752305712220907`*^9},
+ CellLabel->
+ "During evaluation of \
+In[559]:=",ExpressionUUID->"bbc2f3b7-c6b3-4828-b1af-c4fcbecd6b32"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "40.`"}], ",",
+ RowBox[{"kkT4", "\[Rule]", "100.2072261231875813792`10."}], ",",
+ RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "23748.2142452200617895598`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "23748.2142452200617895598`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "30062.1678369562744137511`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "30062.1678369562744137511`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "48870.7641643526804629805`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "221.0673294821120339102`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.30503516992363796243170073189201937468`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "68.5487263927454872252`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "172.8457819158090640716`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{3.775229338725016*^9, 3.775229819928619*^9,
+ 3.775230571231678*^9},
+ CellLabel->
+ "During evaluation of \
+In[559]:=",ExpressionUUID->"28ddf3b3-c3f9-4cf3-ba05-02312cd12f5c"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ")"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.5566332737265782`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.04417169412437272`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.555115709076102`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.03177639407330288`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1.111748982802681`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.012395300051069856`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{3.775230596453958*^9},
+ CellLabel->
+ "Out[563]=",ExpressionUUID->"61209ac1-6811-4927-8d5d-7e002a9c297f"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"bfinal", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.5566332737265782`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.04417169412437272`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.555115709076102`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.03177639407330288`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1.111748982802681`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.012395300051069856`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"b", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"bfinal", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{"b", "//", "MatrixForm"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"mat", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}]}], "}"}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{"mat", "//", "MatrixForm"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bdagger", "=",
+ RowBox[{"Conjugate", "[", "b", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"bdagger", "//", "MatrixForm"}], "\[IndentingNewLine]",
+ RowBox[{"MdagM1", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"bdagger", ",", "mat", ",", "b"}], "]"}]}]}], "Input",
+ CellChangeTimes->{
+ 3.775229827028739*^9, {3.775230568237907*^9, 3.775230604882635*^9}},
+ CellLabel->
+ "In[564]:=",ExpressionUUID->"0e414578-8bf7-48dd-aa07-72f420f87330"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.5566332737265782`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.04417169412437272`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.555115709076102`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.03177639407330288`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1.111748982802681`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.012395300051069856`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{3.775230608627625*^9},
+ CellLabel->
+ "Out[564]=",ExpressionUUID->"82608b25-bb9e-46a9-bc23-8896e03febd6"],
+
+Cell[BoxData[
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"0.5566332737265782`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.04417169412437272`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.5566332737265782`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.04417169412437272`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.555115709076102`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.03177639407330288`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.555115709076102`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.03177639407330288`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{
+ RowBox[{"-", "1.111748982802681`"}], "-",
+ RowBox[{"0.012395300051069856`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{
+ RowBox[{"-", "1.111748982802681`"}], "-",
+ RowBox[{"0.012395300051069856`", " ", "\[ImaginaryI]"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{3.775230608640141*^9},
+ CellLabel->
+ "Out[566]//MatrixForm=",ExpressionUUID->"85a4546b-1e22-4f24-a959-\
+89ef205f1685"],
+
+Cell[BoxData[
+ TagBox[
+ RowBox[{"(", "\[NoBreak]", GridBox[{
+ {
+ FractionBox["19", "6"],
+ FractionBox["2", "3"],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}]},
+ {
+ FractionBox["2", "3"],
+ FractionBox["19", "6"],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}]},
+ {
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ FractionBox["2", "3"],
+ FractionBox["19", "6"],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}]},
+ {
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ FractionBox["19", "6"],
+ FractionBox["2", "3"],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}]},
+ {
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ FractionBox["19", "6"],
+ FractionBox["2", "3"]},
+ {
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ RowBox[{"-",
+ FractionBox["1", "3"]}],
+ FractionBox["2", "3"],
+ FractionBox["19", "6"]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.7]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{3.7752306086548643`*^9},
+ CellLabel->
+ "Out[568]//MatrixForm=",ExpressionUUID->"501d3523-5b39-4f6b-bfc6-\
+43c241646426"],
+
+Cell[BoxData[
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"0.5566332737265782`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.04417169412437272`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.5566332737265782`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.04417169412437272`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.555115709076102`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.03177639407330288`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{"0.555115709076102`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.03177639407330288`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{
+ RowBox[{"-", "1.111748982802681`"}], "+",
+ RowBox[{"0.012395300051069856`", " ", "\[ImaginaryI]"}]}]},
+ {
+ RowBox[{
+ RowBox[{"-", "1.111748982802681`"}], "+",
+ RowBox[{"0.012395300051069856`", " ", "\[ImaginaryI]"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{3.775230608667103*^9},
+ CellLabel->
+ "Out[570]//MatrixForm=",ExpressionUUID->"22c8d040-d710-4aca-89d1-\
+17964cf0761b"],
+
+Cell[BoxData[
+ RowBox[{"16.71384936501812`", "\[VeryThinSpace]", "+",
+ RowBox[{"4.163336342344337`*^-17", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.775230608679388*^9},
+ CellLabel->
+ "Out[571]=",ExpressionUUID->"200f382c-f9d9-46dd-9e7e-396321b66395"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"0", " ", "\[Rule]", " ", "kT3"}], "=", "20"}], ",", " ",
+ RowBox[{
+ RowBox[{"1", " ", "\[Rule]", " ", "kT3"}], "=", "40"}]}], " ",
+ "*)"}]], "Input",ExpressionUUID->"6bd9d4e3-c0eb-46c8-9ee1-2cc1a6f9f551"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MdagM0", "/", "MdagM1", " "}]], "Input",
+ CellChangeTimes->{{3.775229350472871*^9, 3.775229388611747*^9}},
+ CellLabel->
+ "In[572]:=",ExpressionUUID->"7dc2aeaf-1eea-4790-86f2-2e38260ef446"],
+
+Cell[BoxData[
+ RowBox[{"0.8345852437913059`", "\[VeryThinSpace]", "-",
+ RowBox[{"1.7026728876564662`*^-18", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.7752293927054787`*^9, 3.775230612497229*^9},
+ CellLabel->
+ "Out[572]=",ExpressionUUID->"d9baed4e-4c27-4541-baf9-0d1e1b49c1fc"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"MdagM1", "/", "MdagM0"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{
+ 3.7752275896248493`*^9, {3.77522767187156*^9, 3.775227683066543*^9}, {
+ 3.775229358285284*^9, 3.77522936368441*^9}},
+ CellLabel->
+ "In[573]:=",ExpressionUUID->"65d1e451-71c5-4a37-bb29-1ec9c57d89ad"],
+
+Cell[BoxData[
+ RowBox[{"1.1981999531375098`", "\[VeryThinSpace]", "+",
+ RowBox[{"2.4444987367984653`*^-18", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.7752293941729507`*^9, 3.7752306140600367`*^9},
+ CellLabel->
+ "Out[573]=",ExpressionUUID->"719d6feb-e988-4831-acc0-7728ca02e7e1"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.775487617925837*^9,
+ 3.775487618576902*^9}},ExpressionUUID->"d8336dbe-baca-4c43-98ec-\
+e9fa0e90ceb9"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"TEST", " ", "triangles", " ", "gg"}], " ", "\[Rule]", " ",
+ "Hgg"}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.775487341723607*^9,
+ 3.775487351568636*^9}},ExpressionUUID->"dbe86d55-f903-4c16-aba8-\
+5c64dcd510d8"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<++++\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"triangle", " ", "=", " ",
+ RowBox[{"Import", "[", "\"\<ggHgg_LR_triangle_38diags.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_\>\"", "<>", "config", "<>", "\"\<.m\>\""}], ",",
+ "tsub"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.775487398836247*^9, 3.775487400633142*^9}, {
+ 3.775487437936494*^9, 3.775487473836816*^9}},
+ CellLabel->
+ "In[140]:=",ExpressionUUID->"ff902789-8764-47df-ae19-f8e2732cb693"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["tsub"], "Input",
+ CellChangeTimes->{{3.775487406670053*^9, 3.775487408597879*^9}},
+ CellLabel->
+ "In[146]:=",ExpressionUUID->"d259943e-df1a-4b8b-8ce1-f2d8a1c6ce82"],
+
+Cell[BoxData[
+ InterpretationBox[
+ TagBox[
+ FrameBox[GridBox[{
+ {
+ ItemBox[
+ TagBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"2", " ",
+ TemplateBox[{"4"},
+ "OutputSizeLimit`Skeleton"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "T"], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], ")"}]}], "-",
+ RowBox[{"16", " ",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"]}]}], ")"}], " ",
+ RowBox[{"(",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], ")"}]}], "+",
+ TemplateBox[{"7"},
+ "OutputSizeLimit`Skeleton"]}], "S34"], "+",
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"],
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"]], "+",
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"],
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"]], "-",
+ FractionBox[
+ RowBox[{
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "S"], "+",
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "T"]}],
+ RowBox[{
+ SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-",
+ "T24"}]], "+",
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "U"]}], ")"}]}],
+ RowBox[{"MW", " ", "SW"}]]}], "-",
+ FractionBox[
+ RowBox[{"2", " ",
+ TemplateBox[{"4"},
+ "OutputSizeLimit`Skeleton"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "T"], "+",
+ TemplateBox[{"4"},
+ "OutputSizeLimit`Skeleton"], "+",
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "T24"]}], ")"}]}],
+ RowBox[{"MW", " ", "SW"}]], "+",
+ FractionBox[
+ RowBox[{"2", " ",
+ TemplateBox[{"4"},
+ "OutputSizeLimit`Skeleton"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "T"], "+",
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "S34"], "+",
+ TemplateBox[{"2"},
+ "OutputSizeLimit`Skeleton"], "+",
+ FractionBox[
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "U"], "+",
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"], "+",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton"]}], "T24"]}], ")"}]}],
+ RowBox[{"MW", " ", "SW"}]]}],
+ Short[#, 5]& ],
+ BaseStyle->{Deployed -> False},
+ StripOnInput->False]},
+ {GridBox[{
+ {
+ TagBox[
+ TooltipBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource[
+ "FEStrings", "sizeBriefExplanation"], StandardForm],
+ ImageSizeCache->{58., {2., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLText",
+ StripOnInput->False],
+ StyleBox[
+ DynamicBox[
+ ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
+ StandardForm]], DynamicUpdating -> True, StripOnInput ->
+ False]],
+ Annotation[#,
+ Style[
+ Dynamic[
+ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
+ DynamicUpdating -> True], "Tooltip"]& ],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ StandardForm],
+ ImageSizeCache->{50., {0., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ StandardForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+ BaselinePosition->Baseline,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ OutputSizeLimit`Defer, 146, 17479000166414073932, 5/2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ StandardForm],
+ ImageSizeCache->{56., {0., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ StandardForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+ BaselinePosition->Baseline,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ OutputSizeLimit`Defer, 146, 17479000166414073932, 5 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ StandardForm],
+ ImageSizeCache->{42., {0., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ StandardForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+ BaselinePosition->Baseline,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ OutputSizeLimit`Defer, 146, 17479000166414073932, Infinity],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ StandardForm],
+ ImageSizeCache->{74., {0., 8.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ StandardForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "OSLControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+ BaselinePosition->Baseline,
+ ButtonFunction:>FrontEndExecute[{
+ FrontEnd`SetOptions[
+ FrontEnd`$FrontEnd,
+ FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}],
+ FrontEnd`FrontEndToken["PreferencesDialog"]}],
+ Evaluator->None,
+ Method->"Preemptive"]}
+ },
+ AutoDelete->False,
+ FrameStyle->GrayLevel[0.85],
+ GridBoxDividers->{"Columns" -> {False, {True}}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{2}}}]}
+ },
+ DefaultBaseStyle->"Column",
+ GridBoxAlignment->{
+ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxDividers->{
+ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}},
+ "RowsIndexed" -> {}},
+ GridBoxItemSize->{
+ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2],
+ Offset[1.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ BaseStyle->"OutputSizeLimit",
+ FrameMargins->{{12, 12}, {0, 15}},
+ FrameStyle->GrayLevel[0.85],
+ RoundingRadius->5,
+ StripOnInput->False],
+ Deploy,
+ DefaultBaseStyle->"Deploy"],
+ If[17479000166414073932 === $SessionID,
+ Out[146], Message[
+ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"];
+ Null]]], "Output",
+ CellChangeTimes->{
+ 3.775487408894373*^9, {3.7754874813905573`*^9, 3.775487510187152*^9},
+ 3.775491049018458*^9, 3.775492172589079*^9},
+ CellLabel->
+ "Out[146]=",ExpressionUUID->"bb81f3e0-43b8-4bed-817f-ab833c1db0b0"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
+ RowBox[{"300.", ",", "20.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}], "]"}],
+ "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinRules", "=",
+ RowBox[{"f", "[",
+ RowBox[{"variables", ",", "output"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinSub", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300.", "^", "2"}]}], ",",
+ RowBox[{"kT3", "\[Rule]", "20."}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]",
+ RowBox[{"Pi", "/", "3"}]}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}]}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}], ";"}]}], "Input",
+ CellLabel->
+ "In[164]:=",ExpressionUUID->"9a3f574a-cd45-430d-9f41-9143c899f3d3"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
+ "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
+
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775487552860243*^9, 3.7754879395402737`*^9,
+ 3.775488357599923*^9, 3.7754910494775543`*^9, 3.775492172749148*^9,
+ 3.77549222098951*^9},
+ CellLabel->
+ "During evaluation of \
+In[164]:=",ExpressionUUID->"e1dd3184-93ea-45aa-aa66-1a51baff8344"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"p1", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
+ {
+ RowBox[{"p2", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "150.`"}]}], "}"}]}]},
+ {
+ RowBox[{"p3", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
+ ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p4", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"95.04498070119013`", ",", "0.`", ",",
+ RowBox[{"-", "95.04498070119013`"}], ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p5", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"78.3651302870882`", ",",
+ RowBox[{"-", "10.`"}], ",", "77.72447262550135`", ",", "0.`"}],
+ "}"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
+ "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["Four Momenta : \n",
+ MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
+ 150., 0., 0., -150.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {95.04498070119013,
+ 0., -95.04498070119013, 0.}, $CellContext`p5 -> {78.3651302870882, -10.,
+ 77.72447262550135, 0.}}], "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775487552860243*^9, 3.7754879395402737`*^9,
+ 3.775488357599923*^9, 3.7754910494775543`*^9, 3.775492172749148*^9,
+ 3.775492221000539*^9},
+ CellLabel->
+ "During evaluation of \
+In[164]:=",ExpressionUUID->"b6238ca4-e65e-4f5a-bd6a-19cc70b7cf87"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
+ "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ "-", "3.887221955939928966560590155849714544348308363744058289341178206`\
+43.811488088675176*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.72104081749894", ",", "0``57.522878745280345"}], "}"}]}],
+ SequenceForm[
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.887221955939928966560590155849714544348308363744058289341178206`43.\
+811488088675176*^-14, 0``58.69897000433602, 0``57.72104081749894,
+ 0``57.522878745280345}],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775487552860243*^9, 3.7754879395402737`*^9,
+ 3.775488357599923*^9, 3.7754910494775543`*^9, 3.775492172749148*^9,
+ 3.775492221014029*^9},
+ CellLabel->
+ "During evaluation of \
+In[164]:=",ExpressionUUID->"7ea31f10-d118-4022-958f-dcfbd6a2e3e6"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.775487552860243*^9, 3.7754879395402737`*^9,
+ 3.775488357599923*^9, 3.7754910494775543`*^9, 3.775492172749148*^9,
+ 3.7754922210210247`*^9},
+ CellLabel->
+ "During evaluation of \
+In[164]:=",ExpressionUUID->"7d84e7e6-71cc-43f9-9858-0a9b757f59cd"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
+ RowBox[{"kkT4", "\[Rule]", "95.0449807011901270926`10."}], ",",
+ RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "22351.9667035164881926659`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "22351.9667035164881926659`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "28513.4942103570381277677`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "28513.4942103570381277677`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "42980.9218277470587333204`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "207.3184068715246970733`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.12865960568407904294629727505559632487`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "78.3651302870882067263`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "181.5847228686540904465`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{3.775487552860243*^9, 3.7754879395402737`*^9,
+ 3.775488357599923*^9, 3.7754910494775543`*^9, 3.775492172749148*^9,
+ 3.775492221028528*^9},
+ CellLabel->
+ "During evaluation of \
+In[164]:=",ExpressionUUID->"b73767c3-0d6c-4d3c-9cfa-7190669995d9"]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ek1vec", "//.", "KinRules"}], "//.", "KinSub"}]], "Input",
+ CellChangeTimes->{{3.775487557663827*^9, 3.775487582522539*^9}, {
+ 3.775487623605857*^9, 3.7754876514663677`*^9}},
+ CellLabel->
+ "In[168]:=",ExpressionUUID->"ec103b6d-ad9b-47f5-99fb-35d0c73242fa"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.775487559655751*^9, {3.775487625994041*^9, 3.7754876518002863`*^9},
+ 3.7754922263438387`*^9},
+ CellLabel->
+ "Out[168]=",ExpressionUUID->"599c636a-94ac-45e2-a43b-d95245d19773"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ek2vec", "//.", "KinRules"}], "//.", "KinSub"}]], "Input",
+ CellChangeTimes->{{3.7754875615081987`*^9, 3.775487563472124*^9}, {
+ 3.7754876329091177`*^9, 3.775487647849922*^9}},
+ CellLabel->
+ "In[169]:=",ExpressionUUID->"45cc03ff-8a7f-40ac-841b-fac68c59dfd0"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.775487563826468*^9, {3.775487634890091*^9, 3.775487648256915*^9},
+ 3.775492227643849*^9},
+ CellLabel->
+ "Out[169]=",ExpressionUUID->"fa0863bb-51d4-49fd-8e52-b516b20cfd16"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ek4vec", "//.", "KinRules"}], "//.", "KinSub"}]], "Input",
+ CellChangeTimes->{{3.7754875651763983`*^9, 3.775487568091836*^9}, {
+ 3.775487636983919*^9, 3.7754876424875383`*^9}},
+ CellLabel->
+ "In[170]:=",ExpressionUUID->"cb245ba0-2d36-4576-abbc-86da611f6661"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0", ",",
+ FractionBox["1",
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.775487568485145*^9, {3.7754876390311937`*^9, 3.775487642731925*^9},
+ 3.775492229121855*^9},
+ CellLabel->
+ "Out[170]=",ExpressionUUID->"cc3b366f-3f8c-4cef-8228-4595152eed95"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ek5vec", "//.", "KinRules"}], "//.", "KinSub"}]], "Input",
+ CellChangeTimes->{{3.775487569824945*^9, 3.7754875714400387`*^9}, {
+ 3.775487653927663*^9, 3.7754876592312*^9}},
+ CellLabel->
+ "In[167]:=",ExpressionUUID->"2adefc70-ad32-4777-bd90-01f6585fa801"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.7013259782290641`", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.09023232381495236`", " ", "\[ImaginaryI]"}]}], ",",
+ "0.7071067811865476`"}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.77548757190513*^9, {3.7754876560668087`*^9, 3.775487659613431*^9},
+ 3.775492224922065*^9},
+ CellLabel->
+ "Out[167]=",ExpressionUUID->"2f8c6836-a4f2-4ad0-847a-191b528ee79f"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"t", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"tsub", "//.", "KinRules"}], "//.", "KinSub"}], "//",
+ "FullSimplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"tfinalkt20", "=",
+ RowBox[{
+ RowBox[{"t", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Alfas", "\[Rule]", "1"}], ",",
+ RowBox[{"MW", "\[Rule]", "80.376"}], ",",
+ RowBox[{"SW", "\[Rule]", "0.480832611207"}], ",",
+ RowBox[{"EL", "\[Rule]",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"4", "*", "Pi"}], "]"}]}]}], "}"}]}], "//",
+ "Simplify"}]}]}], "Input",
+ CellChangeTimes->{
+ 3.775487814954833*^9, {3.775487909267064*^9, 3.7754879134590263`*^9}, {
+ 3.775488344566409*^9, 3.77548835124419*^9}, {3.775491125858963*^9,
+ 3.7754911277699213`*^9}, 3.775492216611558*^9},
+ CellLabel->
+ "In[171]:=",ExpressionUUID->"38863738-22eb-4821-ade8-5e59b57cc6c8"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"3.8563551197203405`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.10789304042050796`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"3.856355119720342`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.10789304042050414`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"7.712710239440681`", "\[VeryThinSpace]", "-",
+ RowBox[{"3.788242722357783`*^-15", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{
+ 3.775487817638229*^9, {3.77548791635111*^9, 3.775487946605961*^9}, {
+ 3.7754883532181377`*^9, 3.7754883653373213`*^9}, 3.775491056872643*^9,
+ 3.775491129906959*^9, 3.77549217973273*^9, 3.775492232818741*^9},
+ CellLabel->
+ "Out[172]=",ExpressionUUID->"daf16945-ab0d-4374-a527-378da92f56c0"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.775487900550686*^9,
+ 3.775487900690033*^9}},ExpressionUUID->"dd96acf9-8569-436c-b71f-\
+3858bc812dc3"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
+ RowBox[{"300.", ",", "40.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}], "]"}],
+ "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinRules", "=",
+ RowBox[{"f", "[",
+ RowBox[{"variables", ",", "output"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinSub", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300.", "^", "2"}]}], ",",
+ RowBox[{"kT3", "\[Rule]", "40."}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]",
+ RowBox[{"Pi", "/", "3"}]}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}]}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.775487894137486*^9, 3.775487895793477*^9}},
+ CellLabel->
+ "In[152]:=",ExpressionUUID->"587fed01-95ad-4497-9991-22e72c5df35e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
+ "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
+
+ Editable->False]], "Print",
+ CellChangeTimes->{{3.775487902025655*^9, 3.775487921336112*^9},
+ 3.775487952888777*^9, 3.775488370010009*^9, 3.775491061733279*^9,
+ 3.775491130954506*^9, 3.7754921882876177`*^9},
+ CellLabel->
+ "During evaluation of \
+In[152]:=",ExpressionUUID->"efbe9be0-242a-48f2-9e42-649dcc6e39f0"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"p1", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
+ {
+ RowBox[{"p2", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "150.`"}]}], "}"}]}]},
+ {
+ RowBox[{"p3", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ "131.24404748406687`", ",", "20.`", ",", "34.64101615137755`", ",",
+ "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p4", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"100.20722612318758`", ",", "0.`", ",",
+ RowBox[{"-", "100.20722612318758`"}], ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p5", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"68.5487263927455`", ",",
+ RowBox[{"-", "20.`"}], ",", "65.56620997181004`", ",", "0.`"}],
+ "}"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
+ "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["Four Momenta : \n",
+ MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
+ 150., 0., 0., -150.}, $CellContext`p3 -> {131.24404748406687`, 20.,
+ 34.64101615137755, 0.}, $CellContext`p4 -> {100.20722612318758`,
+ 0., -100.20722612318758`, 0.}, $CellContext`p5 -> {
+ 68.5487263927455, -20., 65.56620997181004, 0.}}], "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{{3.775487902025655*^9, 3.775487921336112*^9},
+ 3.775487952888777*^9, 3.775488370010009*^9, 3.775491061733279*^9,
+ 3.775491130954506*^9, 3.775492188298505*^9},
+ CellLabel->
+ "During evaluation of \
+In[152]:=",ExpressionUUID->"b773131b-d503-4156-81c4-b9207d5e08b7"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
+ "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ "-", "5.876373720011891608134562217738742061745029729160199708223878675`\
+43.99095815745918*^-14"}], ",", "0``58.39794000867204", ",",
+ "0``57.69807096391986", ",", "0``57.522878745280345"}], "}"}]}],
+ SequenceForm[
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-5.876373720011891608134562217738742061745029729160199708223878675`43.\
+99095815745918*^-14, 0``58.39794000867204, 0``57.69807096391986,
+ 0``57.522878745280345}],
+ Editable->False]], "Print",
+ CellChangeTimes->{{3.775487902025655*^9, 3.775487921336112*^9},
+ 3.775487952888777*^9, 3.775488370010009*^9, 3.775491061733279*^9,
+ 3.775491130954506*^9, 3.775492188311578*^9},
+ CellLabel->
+ "During evaluation of \
+In[152]:=",ExpressionUUID->"87a2822b-b3de-47cc-ad5e-c06152d2025e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{{3.775487902025655*^9, 3.775487921336112*^9},
+ 3.775487952888777*^9, 3.775488370010009*^9, 3.775491061733279*^9,
+ 3.775491130954506*^9, 3.775492188318636*^9},
+ CellLabel->
+ "During evaluation of \
+In[152]:=",ExpressionUUID->"37c34993-2e48-4495-a764-802de147d2dd"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "40.`"}], ",",
+ RowBox[{"kkT4", "\[Rule]", "100.2072261231875813792`10."}], ",",
+ RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "23748.2142452200617895598`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "23748.2142452200617895598`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "30062.1678369562744137511`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "30062.1678369562744137511`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "48870.7641643526804629805`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "221.0673294821120339102`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.30503516992363796243170073189201937468`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "68.5487263927454872252`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "172.8457819158090640716`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{{3.775487902025655*^9, 3.775487921336112*^9},
+ 3.775487952888777*^9, 3.775488370010009*^9, 3.775491061733279*^9,
+ 3.775491130954506*^9, 3.775492188325994*^9},
+ CellLabel->
+ "During evaluation of \
+In[152]:=",ExpressionUUID->"aaee04cf-3b7e-430f-bbef-6bfe3a0c933c"]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ek4vec", "//.", "KinRules"}], "//.", "KinSub"}]], "Input",
+ CellLabel->
+ "In[155]:=",ExpressionUUID->"9e8c3495-09ad-4ff0-bd7d-92eff7ebc1d8"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0", ",",
+ FractionBox["1",
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{3.7754880076182203`*^9, 3.775492192737771*^9},
+ CellLabel->
+ "Out[155]=",ExpressionUUID->"d28a7c93-4ace-4140-baec-5db8c913a946"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ek5vec", "//.", "KinRules"}], "//.", "KinSub"}]], "Input",
+ CellChangeTimes->{{3.7754879871840773`*^9, 3.775487995354398*^9}},
+ CellLabel->
+ "In[156]:=",ExpressionUUID->"bea8deb0-f558-4fba-b807-f39d09047f9c"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.6763409639755821`", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.20630778087260876`", " ", "\[ImaginaryI]"}]}], ",",
+ "0.7071067811865475`"}], "}"}]], "Output",
+ CellChangeTimes->{{3.775487988453107*^9, 3.7754879960422697`*^9},
+ 3.775492194787578*^9},
+ CellLabel->
+ "Out[156]=",ExpressionUUID->"0f2458d3-6748-4204-8103-24c778a58b4c"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"t", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"tsub", "//.", "KinRules"}], "//.", "KinSub"}], "//",
+ "FullSimplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"tfinalkt40", "=",
+ RowBox[{
+ RowBox[{"t", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Alfas", "\[Rule]", "1"}], ",",
+ RowBox[{"MW", "\[Rule]", "80.376"}], ",",
+ RowBox[{"SW", "\[Rule]", "0.480832611207"}], ",",
+ RowBox[{"EL", "\[Rule]",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"4", "*", "Pi"}], "]"}]}]}], "}"}]}], "//",
+ "Simplify"}]}]}], "Input",
+ CellChangeTimes->{{3.7754879642539673`*^9, 3.775487969176927*^9}, {
+ 3.775488329227951*^9, 3.775488333388538*^9}, {3.775491111548188*^9,
+ 3.775491114015253*^9}},
+ CellLabel->
+ "In[157]:=",ExpressionUUID->"4a273c30-f8fc-46d1-9ea4-2dc3bb5d38c9"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4.006591462806078`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.2762833510999711`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4.006591462806078`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.2762833510999748`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"8.013182925612155`", "\[VeryThinSpace]", "+",
+ RowBox[{"3.666041344217209`*^-15", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{
+ 3.775487971440014*^9, 3.775488335545794*^9, 3.775488376384015*^9,
+ 3.775491068819869*^9, {3.775491117992406*^9, 3.775491138403043*^9},
+ 3.7754921984201593`*^9},
+ CellLabel->
+ "Out[158]=",ExpressionUUID->"f9a5dd89-b566-4f2b-bac6-dc1b86c8af04"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["tfinalkt20"], "Input",
+ CellChangeTimes->{{3.775488255187787*^9, 3.775488257107789*^9}},
+ CellLabel->
+ "In[173]:=",ExpressionUUID->"64119c6d-52f2-400d-81ef-73a3ba94f23d"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"3.8563551197203405`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.10789304042050796`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"3.856355119720342`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.10789304042050414`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"7.712710239440681`", "\[VeryThinSpace]", "-",
+ RowBox[{"3.788242722357783`*^-15", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{3.7754882575757093`*^9, 3.775488383167577*^9,
+ 3.775491071580632*^9, 3.7754911411741056`*^9, 3.775492201913412*^9,
+ 3.775492237519631*^9},
+ CellLabel->
+ "Out[173]=",ExpressionUUID->"756fccae-313a-4aa3-b142-b34d21036023"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["tfinalkt40"], "Input",
+ CellChangeTimes->{{3.7754882587069683`*^9, 3.775488260429796*^9}},
+ CellLabel->
+ "In[160]:=",ExpressionUUID->"a16290ff-6778-41a3-b359-246f67aeefaa"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4.006591462806078`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.2762833510999711`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4.006591462806078`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.2762833510999748`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"8.013182925612155`", "\[VeryThinSpace]", "+",
+ RowBox[{"3.666041344217209`*^-15", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{3.775488260734057*^9, 3.7754883851512213`*^9,
+ 3.775491073264893*^9, 3.775491143024358*^9, 3.775492204064665*^9},
+ CellLabel->
+ "Out[160]=",ExpressionUUID->"29952b1b-a847-4460-9afd-dae006ceafb7"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"c1ration", "=",
+ RowBox[{
+ RowBox[{"tfinalkt20", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "/",
+ RowBox[{"tfinalkt40", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.775227370037896*^9, 3.7752273724170027`*^9}, {
+ 3.775488078262741*^9, 3.775488122354746*^9}},
+ CellLabel->
+ "In[174]:=",ExpressionUUID->"9729c16f-542c-4583-8d8f-dcb1f9899ee7"],
+
+Cell[BoxData[
+ RowBox[{"0.9597957243875892`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.03925594614394856`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{{3.775488082922187*^9, 3.775488122649926*^9},
+ 3.7754883879684258`*^9, 3.775491075532887*^9, 3.775491145212131*^9,
+ 3.775492206188027*^9, 3.775492241855863*^9},
+ CellLabel->
+ "Out[174]=",ExpressionUUID->"ef1bda56-f590-49ec-bc2a-44f732a3ba4b"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"c2ration", "=",
+ RowBox[{
+ RowBox[{"tfinalkt20", "[",
+ RowBox[{"[", "2", "]"}], "]"}], "/",
+ RowBox[{"tfinalkt40", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.775488129638857*^9, 3.775488146231625*^9}},
+ CellLabel->
+ "In[175]:=",ExpressionUUID->"24ccfcaf-f4d5-4902-81e0-8d38403763c1"],
+
+Cell[BoxData[
+ RowBox[{"0.9597957243875894`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.03925594614395041`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{{3.775488140779368*^9, 3.775488146646366*^9},
+ 3.775488389752941*^9, 3.775491077016924*^9, 3.7754921351473722`*^9,
+ 3.775492208269136*^9, 3.775492243355577*^9},
+ CellLabel->
+ "Out[175]=",ExpressionUUID->"1395b6cf-0254-469b-8225-3f3eaecd64b3"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"c3ration", "=",
+ RowBox[{
+ RowBox[{"tfinalkt20", "[",
+ RowBox[{"[", "3", "]"}], "]"}], "/",
+ RowBox[{"tfinalkt40", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.775227303392332*^9, 3.775227304142188*^9}, {
+ 3.77548812788452*^9, 3.7754881587453537`*^9}},
+ CellLabel->
+ "In[176]:=",ExpressionUUID->"1c4d588d-8302-4258-81e3-4cedb485f7da"],
+
+Cell[BoxData[
+ RowBox[{"0.9625027047353323`", "\[VeryThinSpace]", "-",
+ RowBox[{"9.130975168995588`*^-16", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{{3.7754881388945208`*^9, 3.7754881607714853`*^9},
+ 3.7754883915538692`*^9, 3.7754910784168177`*^9, 3.775491146929659*^9,
+ 3.775492137484355*^9, 3.775492209984849*^9, 3.7754922449861603`*^9},
+ CellLabel->
+ "Out[176]=",ExpressionUUID->"287f41c7-e872-480d-b818-0bc23a2fa987"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.775487113187286*^9, 3.775487113690071*^9}, {
+ 3.775489312687867*^9,
+ 3.775489313079639*^9}},ExpressionUUID->"c51d1221-86c4-4ebd-b3ad-\
+4106585b9017"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"TEST", " ", "gg"}], "\[Rule]",
+ RowBox[{"Hgg", " ",
+ RowBox[{"w", "/", " ", "2"}], " ", "diagrams", " ",
+ RowBox[{"(", "triangles", ")"}]}]}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.7754893173365507`*^9,
+ 3.775489333166304*^9}},ExpressionUUID->"9cd25044-4f41-49e4-80f5-\
+08d29278cb00"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"config", "=", "\"\<++++\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"triangle", " ", "=", " ",
+ RowBox[{"Import", "[", "\"\<ggHgg_LR_triangle_2diags.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pairdef", "[",
+ RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tsub", " ", "=", " ",
+ RowBox[{
+ RowBox[{"triangle", "//.", "SubFourVecs"}], "/.", "MATColor"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<triangle_2diags\>\"", "<>", "config", "<>", "\"\<.m\>\""}],
+ ",", "tsub"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.77548933699573*^9, 3.7754893372214212`*^9}, {
+ 3.7754894233857393`*^9, 3.77548942830713*^9}},
+ CellLabel->"In[29]:=",ExpressionUUID->"d5a9b7bd-37b9-4af8-bb12-857996b7a8bc"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
+ RowBox[{"300.", ",", "20.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}], "]"}],
+ "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinRules", "=",
+ RowBox[{"f", "[",
+ RowBox[{"variables", ",", "output"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinSub", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300.", "^", "2"}]}], ",",
+ RowBox[{"kT3", "\[Rule]", "20."}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]",
+ RowBox[{"Pi", "/", "3"}]}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}]}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}], ";"}]}], "Input",
+ CellLabel->"In[48]:=",ExpressionUUID->"9331fb0d-1fec-43e2-9850-030fbd7bdf66"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
+ "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
+
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775489883437943*^9, 3.77548992568414*^9},
+ CellLabel->
+ "During evaluation of \
+In[48]:=",ExpressionUUID->"37427144-5f1a-4b3d-944b-84388f7e1424"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"p1", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
+ {
+ RowBox[{"p2", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "150.`"}]}], "}"}]}]},
+ {
+ RowBox[{"p3", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
+ ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p4", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"95.04498070119013`", ",", "0.`", ",",
+ RowBox[{"-", "95.04498070119013`"}], ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p5", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"78.3651302870882`", ",",
+ RowBox[{"-", "10.`"}], ",", "77.72447262550135`", ",", "0.`"}],
+ "}"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
+ "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["Four Momenta : \n",
+ MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
+ 150., 0., 0., -150.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {95.04498070119013,
+ 0., -95.04498070119013, 0.}, $CellContext`p5 -> {78.3651302870882, -10.,
+ 77.72447262550135, 0.}}], "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775489883437943*^9, 3.7754899256971903`*^9},
+ CellLabel->
+ "During evaluation of \
+In[48]:=",ExpressionUUID->"4113965a-4b28-4369-abec-86637ae21960"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
+ "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ "-", "3.887221955939928966560590155849714544348308363744058289341178206`\
+43.811488088675176*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.72104081749894", ",", "0``57.522878745280345"}], "}"}]}],
+ SequenceForm[
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.887221955939928966560590155849714544348308363744058289341178206`43.\
+811488088675176*^-14, 0``58.69897000433602, 0``57.72104081749894,
+ 0``57.522878745280345}],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775489883437943*^9, 3.775489925710073*^9},
+ CellLabel->
+ "During evaluation of \
+In[48]:=",ExpressionUUID->"6948dff3-27cb-48e8-897b-75fa8905a448"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.775489883437943*^9, 3.77548992571929*^9},
+ CellLabel->
+ "During evaluation of \
+In[48]:=",ExpressionUUID->"bc9fdf3f-b30b-492d-8e1d-5cf2f61575b8"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
+ RowBox[{"kkT4", "\[Rule]", "95.0449807011901270926`10."}], ",",
+ RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "22351.9667035164881926659`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "22351.9667035164881926659`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "28513.4942103570381277677`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "28513.4942103570381277677`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "42980.9218277470587333204`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "207.3184068715246970733`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.12865960568407904294629727505559632487`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "78.3651302870882067263`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "181.5847228686540904465`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{3.775489883437943*^9, 3.7754899257285137`*^9},
+ CellLabel->
+ "During evaluation of \
+In[48]:=",ExpressionUUID->"ab68cde6-c968-40c5-b689-0e2e516ef784"]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"t", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"tsub", "//.", "KinRules"}], "//.", "KinSub"}], "//",
+ "FullSimplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"tfinalkt20", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"t", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Alfas", "\[Rule]", "1"}], ",",
+ RowBox[{"MW", "\[Rule]", "80.376"}], ",",
+ RowBox[{"SW", "\[Rule]", "0.480832611207"}], ",",
+ RowBox[{"EL", "\[Rule]",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"4", "*", "Pi"}], "]"}]}]}], "}"}]}], "//",
+ "Simplify"}]}]}], "Input",
+ CellChangeTimes->{{3.775489623778441*^9, 3.775489636602193*^9}},
+ CellLabel->"In[51]:=",ExpressionUUID->"bdc583a4-5ce8-4ab5-954b-e4753cc14645"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "0.13075798053837576`"}], "-",
+ RowBox[{"0.03281500225499752`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.1702977566394835`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.03197062023844408`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.3010557371778594`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.0008443820165534565`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{{3.775489632151163*^9, 3.775489638083955*^9},
+ 3.775489929455364*^9},
+ CellLabel->"Out[52]=",ExpressionUUID->"ba033732-01ca-402b-a434-8b7ef10663bc"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
+ RowBox[{"300.", ",", "40.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}], "]"}],
+ "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinRules", "=",
+ RowBox[{"f", "[",
+ RowBox[{"variables", ",", "output"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"KinSub", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300.", "^", "2"}]}], ",",
+ RowBox[{"kT3", "\[Rule]", "40."}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]",
+ RowBox[{"Pi", "/", "3"}]}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}]}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.77548994483876*^9, 3.775489946153615*^9}},
+ CellLabel->"In[53]:=",ExpressionUUID->"57bf9ad6-d97b-4e31-af95-23eb640aeccb"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
+ "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
+
+ Editable->False]], "Print",
+ CellChangeTimes->{3.7754899466897182`*^9},
+ CellLabel->
+ "During evaluation of \
+In[53]:=",ExpressionUUID->"10539cf1-126a-4c72-b496-8ac1181292c2"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"p1", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
+ {
+ RowBox[{"p2", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "150.`"}]}], "}"}]}]},
+ {
+ RowBox[{"p3", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ "131.24404748406687`", ",", "20.`", ",", "34.64101615137755`", ",",
+ "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p4", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"100.20722612318758`", ",", "0.`", ",",
+ RowBox[{"-", "100.20722612318758`"}], ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p5", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"68.5487263927455`", ",",
+ RowBox[{"-", "20.`"}], ",", "65.56620997181004`", ",", "0.`"}],
+ "}"}]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
+ "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["Four Momenta : \n",
+ MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
+ 150., 0., 0., -150.}, $CellContext`p3 -> {131.24404748406687`, 20.,
+ 34.64101615137755, 0.}, $CellContext`p4 -> {100.20722612318758`,
+ 0., -100.20722612318758`, 0.}, $CellContext`p5 -> {
+ 68.5487263927455, -20., 65.56620997181004, 0.}}], "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775489946702546*^9},
+ CellLabel->
+ "During evaluation of \
+In[53]:=",ExpressionUUID->"822935a9-5e2c-4540-b675-dca51a34b286"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
+ "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ "-", "5.876373720011891608134562217738742061745029729160199708223878675`\
+43.99095815745918*^-14"}], ",", "0``58.39794000867204", ",",
+ "0``57.69807096391986", ",", "0``57.522878745280345"}], "}"}]}],
+ SequenceForm[
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-5.876373720011891608134562217738742061745029729160199708223878675`43.\
+99095815745918*^-14, 0``58.39794000867204, 0``57.69807096391986,
+ 0``57.522878745280345}],
+ Editable->False]], "Print",
+ CellChangeTimes->{3.775489946714909*^9},
+ CellLabel->
+ "During evaluation of \
+In[53]:=",ExpressionUUID->"82640b1c-5511-4c11-aba6-7d7985183a89"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.7754899467239037`*^9},
+ CellLabel->
+ "During evaluation of \
+In[53]:=",ExpressionUUID->"faa1baf7-d09d-4147-bb38-4bd4cd6ef2d8"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "40.`"}], ",",
+ RowBox[{"kkT4", "\[Rule]", "100.2072261231875813792`10."}], ",",
+ RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "23748.2142452200617895598`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "23748.2142452200617895598`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "30062.1678369562744137511`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "30062.1678369562744137511`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "48870.7641643526804629805`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "221.0673294821120339102`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.30503516992363796243170073189201937468`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "68.5487263927454872252`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "172.8457819158090640716`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{3.775489946733102*^9},
+ CellLabel->
+ "During evaluation of \
+In[53]:=",ExpressionUUID->"56ae6788-1369-4e9a-b9a1-a2adf28ceea9"]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"t", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"tsub", "//.", "KinRules"}], "//.", "KinSub"}], "//",
+ "FullSimplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"tfinalkt40", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"t", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Alfas", "\[Rule]", "1"}], ",",
+ RowBox[{"MW", "\[Rule]", "80.376"}], ",",
+ RowBox[{"SW", "\[Rule]", "0.480832611207"}], ",",
+ RowBox[{"EL", "\[Rule]",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"4", "*", "Pi"}], "]"}]}]}], "}"}]}], "//",
+ "Simplify"}]}]}], "Input",
+ CellChangeTimes->{{3.77548995836652*^9, 3.775489958482275*^9}},
+ CellLabel->"In[56]:=",ExpressionUUID->"fbd4fe0e-70d6-47b4-91d4-1664cc7ae429"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "0.11113591935481938`"}], "-",
+ RowBox[{"0.07191873943346128`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.18025324082557106`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.06848301366250138`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.29138916018039046`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.0034357257709598664`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{3.7754899593610287`*^9},
+ CellLabel->"Out[57]=",ExpressionUUID->"c2ef6ce0-85e1-4e60-a32a-1bb1af029bea"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.7754900281856422`*^9,
+ 3.775490028478941*^9}},ExpressionUUID->"fdb1e515-144b-467e-85db-\
+8127246e82de"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["tfinalkt20"], "Input",
+ CellChangeTimes->{{3.77548997415387*^9, 3.775490023304942*^9}},
+ CellLabel->"In[58]:=",ExpressionUUID->"4bc31ae3-5bab-415c-b562-5422473e4a79"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "0.13075798053837576`"}], "-",
+ RowBox[{"0.03281500225499752`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.1702977566394835`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.03197062023844408`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.3010557371778594`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.0008443820165534565`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{3.7754900296992064`*^9},
+ CellLabel->"Out[58]=",ExpressionUUID->"20d0a29e-c20e-455b-82f9-a6a0181524eb"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["tfinalkt40"], "Input",
+ CellChangeTimes->{{3.775490014921214*^9, 3.775490025227936*^9}},
+ CellLabel->"In[59]:=",ExpressionUUID->"0fee63fd-0f7d-4f37-be22-0ee9f0b2dd29"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "0.11113591935481938`"}], "-",
+ RowBox[{"0.07191873943346128`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c1"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.18025324082557106`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.06848301366250138`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"0.29138916018039046`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.0034357257709598664`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "c3"}]}]], "Output",
+ CellChangeTimes->{3.775490031801964*^9},
+ CellLabel->"Out[59]=",ExpressionUUID->"4de8bf7b-7b18-4fbe-a1b4-434a2cfdc5ca"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"tfinalkt20", "[",
+ RowBox[{"[", "1", "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.77549030676084*^9, 3.775490309504115*^9}},
+ CellLabel->"In[63]:=",ExpressionUUID->"d100b567-08ac-45a3-ab1c-7102d980edd8"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"tfinalkt40", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "/",
+ RowBox[{"tfinalkt20", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7754903218560047`*^9, 3.775490337525001*^9}},
+ CellLabel->"In[65]:=",ExpressionUUID->"2004d05a-8fd9-4279-8da7-5e8db6d0b1cb"],
+
+Cell[BoxData[
+ RowBox[{"0.9294311416420606`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.3167642560253221`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{{3.775490309840643*^9, 3.775490337840879*^9}},
+ CellLabel->"Out[65]=",ExpressionUUID->"038a004b-d5d8-41b1-aa13-9f3bccce7a2d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"c1ration", "=",
+ RowBox[{
+ RowBox[{"tfinalkt20", "[",
+ RowBox[{"[", "1", "]"}], "]"}], "/",
+ RowBox[{"tfinalkt40", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{3.775490006767206*^9},
+ CellLabel->"In[60]:=",ExpressionUUID->"3305c7cc-fb1d-4b01-8589-30f8bfb10617"],
+
+Cell[BoxData[
+ RowBox[{"0.9639583553315383`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.32853165510090265`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.775490033995981*^9},
+ CellLabel->"Out[60]=",ExpressionUUID->"c7d59eaa-a5dc-4b43-8b0d-0328f5c09e45"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"c2ration", "=",
+ RowBox[{
+ RowBox[{"tfinalkt20", "[",
+ RowBox[{"[", "2", "]"}], "]"}], "/",
+ RowBox[{"tfinalkt40", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input",
+ CellLabel->"In[61]:=",ExpressionUUID->"61457d60-4f76-43a6-bd82-ebd9fb01124b"],
+
+Cell[BoxData[
+ RowBox[{"0.884484838002122`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.15867435656487283`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.775490035697501*^9},
+ CellLabel->"Out[61]=",ExpressionUUID->"685f977c-0479-4d99-befc-e84b48b144ff"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"c3ration", "=",
+ RowBox[{
+ RowBox[{"tfinalkt20", "[",
+ RowBox[{"[", "3", "]"}], "]"}], "/",
+ RowBox[{"tfinalkt40", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{3.775490000045472*^9},
+ CellLabel->"In[62]:=",ExpressionUUID->"918adda1-1e50-4075-960c-15c32f887de8"],
+
+Cell[BoxData[
+ RowBox[{"1.033064659623701`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.009282928904798739`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.775490037477436*^9},
+ CellLabel->"Out[62]=",ExpressionUUID->"5652226d-c974-4d4d-b620-6fcddd790365"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
+
+ RowBox[{"(*", " ",
+ RowBox[{"TEST", " ", "ggH"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{"ggHamp", "=",
+ RowBox[{"Import", "[", "\"\<ggH_LR.m\>\"", "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.775232114838345*^9, 3.775232130945882*^9}, {
+ 3.775233525581341*^9, 3.775233532775445*^9}, {3.7764378474564667`*^9,
+ 3.776437847534371*^9}},ExpressionUUID->"ced44b95-e225-49ad-9c83-\
+b351a616e504"],
+
+Cell[BoxData[
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"4", " ",
+ SuperscriptBox["MH", "4"], " ", "MW", " ", "\[Pi]", " ", "SW"}]],
+ RowBox[{"Alfas", " ", "EL", " ",
+ SuperscriptBox["MT", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "4"}], " ",
+ SuperscriptBox["MH", "2"]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["MH", "2"], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["MT", "2"]}]}], ")"}], " ",
+ SuperscriptBox[
+ RowBox[{"Log", "[",
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["MT", "2"]}], "+",
+ SqrtBox[
+ RowBox[{
+ SuperscriptBox["MH", "4"], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["MH", "2"], " ",
+ SuperscriptBox["MT", "2"]}]}]]}],
+ RowBox[{"2", " ",
+ SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ",
+ RowBox[{"Mat", "[",
+ RowBox[{"SUNT", "[",
+ RowBox[{"Glu1", ",", "Glu2", ",", "0", ",", "0"}], "]"}], "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["MH", "2"], " ",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "1", "]"}], ",",
+ RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", " ",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "1", "]"}], ",",
+ RowBox[{"k", "[", "2", "]"}]}], "]"}], " ",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"e", "[", "2", "]"}], ",",
+ RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}]}]], "Output",
+ CellChangeTimes->{3.77523213154983*^9, 3.7752323259958563`*^9,
+ 3.775233437871008*^9, 3.7752334748587103`*^9},
+ CellLabel->"Out[31]=",ExpressionUUID->"52898082-c750-4891-86b9-e3e06ee9c662"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ggHamp", "//.", "SubFourVecs"}], "//.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.7752323062483807`*^9, 3.7752324031759167`*^9}, {
+ 3.775233409773683*^9, 3.7752334292652493`*^9}},
+ CellLabel->"In[32]:=",ExpressionUUID->"71e5daec-bf03-47b2-b536-dbd0414e542c"],
+
+Cell[BoxData[
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"855.6201758289534`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "Alfas", " ", "EL",
+ " ",
+ RowBox[{"Mat", "[",
+ RowBox[{"SUNT", "[",
+ RowBox[{"Glu1", ",", "Glu2", ",", "0", ",", "0"}], "]"}], "]"}]}],
+ RowBox[{"MW", " ", "SW"}]]}]], "Output",
+ CellChangeTimes->{{3.775232317831189*^9, 3.7752324038467503`*^9},
+ 3.7752326486237288`*^9, 3.775233432350246*^9, 3.7752334775044003`*^9},
+ CellLabel->"Out[32]=",ExpressionUUID->"5b505cff-d5bb-42a3-853e-4163fc1a29d9"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["ek1vec"], "Input",
+ CellChangeTimes->{{3.775232610001954*^9, 3.775232656220274*^9}},
+ CellLabel->"In[65]:=",ExpressionUUID->"c25bd516-0c47-432b-90fe-27e455bbc0dd"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.7071067811865475`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"0.`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.7071067811865475`", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.7752326138836*^9, 3.775232656625577*^9}},
+ CellLabel->"Out[65]=",ExpressionUUID->"1942b838-851d-4a1f-8d51-8982c4e0bb98"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["ek2vec"], "Input",
+ CellChangeTimes->{{3.775232658263091*^9, 3.775232660772018*^9}},
+ CellLabel->"In[66]:=",ExpressionUUID->"700f0e27-c33f-4e8e-ba2e-3543e6248bf5"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"0.7071067811865475`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"0.`", "\[VeryThinSpace]", "-",
+ RowBox[{"0.7071067811865475`", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.7752326612216167`*^9},
+ CellLabel->"Out[66]=",ExpressionUUID->"dbebf7d3-afff-4491-89d6-99e2e2c958cf"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vec", ",", "ek2vec"}], "]"}]], "Input",
+ CellChangeTimes->{{3.775232680692808*^9, 3.7752326921531153`*^9}, {
+ 3.775232731241949*^9, 3.77523273309902*^9}},
+ CellLabel->"In[69]:=",ExpressionUUID->"63ad1626-8781-4e3f-9591-d8528ececcd8"],
+
+Cell[BoxData[
+ RowBox[{"0.9999999999999998`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.775232692860549*^9, 3.7752327334569902`*^9},
+ CellLabel->"Out[69]=",ExpressionUUID->"022e836e-e6b2-4d1c-bfdd-4b758f49462e"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek2vec", ",", "kvec1"}], "]"}]], "Input",
+ CellChangeTimes->{{3.775232802487273*^9, 3.775232811142901*^9}},
+ CellLabel->"In[70]:=",ExpressionUUID->"a371a893-d044-4e82-bd67-be5b40741382"],
+
+Cell[BoxData[
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.775232811655692*^9},
+ CellLabel->"Out[70]=",ExpressionUUID->"6c231317-1e6f-4e59-b41f-bb17b4d83b99"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MyPair", "[",
+ RowBox[{"ek1vec", ",", "kvec2"}], "]"}]], "Input",
+ CellChangeTimes->{{3.775232814903119*^9, 3.7752328256517067`*^9}},
+ CellLabel->"In[71]:=",ExpressionUUID->"ef7d683b-4e10-4d26-9dd6-72279ff9244a"],
+
+Cell[BoxData[
+ RowBox[{"0.`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.775232826151574*^9},
+ CellLabel->"Out[71]=",ExpressionUUID->"3b3eb906-3b2f-4ff9-819a-39a88193f844"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["kvec1"], "Input",
+ CellChangeTimes->{{3.7752328282964773`*^9, 3.775232831655014*^9}},
+ CellLabel->"In[72]:=",ExpressionUUID->"de45a5ed-a569-453b-824b-26f93985d288"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ SqrtBox["S"], "2"], ",", "0", ",", "0", ",",
+ FractionBox[
+ SqrtBox["S"], "2"]}], "}"}]], "Output",
+ CellChangeTimes->{3.7752328321260977`*^9},
+ CellLabel->"Out[72]=",ExpressionUUID->"9c205819-8029-4260-ae8b-88d0e2b6ba6b"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["kvec2"], "Input",
+ CellChangeTimes->{{3.775232838801908*^9, 3.7752328401065617`*^9}},
+ CellLabel->"In[73]:=",ExpressionUUID->"3cac72c0-8845-4679-9a9d-8d4f40d62660"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ SqrtBox["S"], "2"], ",", "0", ",", "0", ",",
+ RowBox[{"-",
+ FractionBox[
+ SqrtBox["S"], "2"]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.7752328406512136`*^9},
+ CellLabel->"Out[73]=",ExpressionUUID->"1df39c7d-0608-43f2-926b-eae7e2d5bb10"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.775233870178287*^9,
+ 3.7752338707140627`*^9}},ExpressionUUID->"51cb99be-3353-4392-9fd3-\
+c37ee91d1816"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"KinRules", "[",
+ RowBox[{"m1_", ",", "m2_", ",", "m3_", ",", "m4_"}], "]"}], ":=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k1", "\[Rule]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1", "/",
+ RowBox[{"(",
+ RowBox[{"2",
+ RowBox[{"Sqrt", "[", "S", "]"}]}], ")"}]}], ")"}], "*",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Kallen\[Lambda]", "[",
+ RowBox[{"S", ",",
+ RowBox[{"m1", "^", "2"}], ",",
+ RowBox[{"m2", "^", "2"}]}], "]"}], "]"}]}]}], ",",
+ RowBox[{"k2", "->",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1", "/",
+ RowBox[{"(",
+ RowBox[{"2",
+ RowBox[{"Sqrt", "[", "S", "]"}]}], ")"}]}], ")"}], "*",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Kallen\[Lambda]", "[",
+ RowBox[{"S", ",",
+ RowBox[{"m1", "^", "2"}], ",",
+ RowBox[{"m2", "^", "2"}]}], "]"}], "]"}]}]}], ",", " ",
+ RowBox[{"k3", "->",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1", "/",
+ RowBox[{"(",
+ RowBox[{"2",
+ RowBox[{"Sqrt", "[", "S", "]"}]}], ")"}]}], ")"}], "*",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Kallen\[Lambda]", "[",
+ RowBox[{"S", ",",
+ RowBox[{"m3", "^", "2"}], ",",
+ RowBox[{"m4", "^", "2"}]}], "]"}], "]"}]}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{"k4", "->",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1", "/",
+ RowBox[{"(",
+ RowBox[{"2",
+ RowBox[{"Sqrt", "[", "S", "]"}]}], ")"}]}], ")"}], "*",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Kallen\[Lambda]", "[",
+ RowBox[{"S", ",",
+ RowBox[{"m3", "^", "2"}], ",",
+ RowBox[{"m4", "^", "2"}]}], "]"}], "]"}]}]}]}], "}"}]}],
+ "\[IndentingNewLine]"}]], "Input",
+ CellLabel->"In[96]:=",ExpressionUUID->"3a2dff3b-cd15-4082-a16f-231d41830801"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"kinrules", " ", "=",
+ RowBox[{
+ RowBox[{"KinRules", "[",
+ RowBox[{"0", ",", "0", ",", "MH", ",", "0"}], "]"}], "//",
+ "Simplify"}]}]], "Input",
+ CellChangeTimes->{{3.7752348658426027`*^9, 3.7752348715523443`*^9}, {
+ 3.775234908441683*^9, 3.7752349098835077`*^9}, 3.775235029240054*^9, {
+ 3.775235470670197*^9, 3.775235495869698*^9}},
+ CellLabel->
+ "In[132]:=",ExpressionUUID->"4717edd2-5164-4d8f-a082-259fc17a14ef"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k1", "\[Rule]",
+ FractionBox[
+ RowBox[{"Abs", "[", "S", "]"}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]]}], ",",
+ RowBox[{"k2", "\[Rule]",
+ FractionBox[
+ RowBox[{"Abs", "[", "S", "]"}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]]}], ",",
+ RowBox[{"k3", "\[Rule]",
+ FractionBox[
+ RowBox[{"Abs", "[",
+ RowBox[{
+ SuperscriptBox["MH", "2"], "-", "S"}], "]"}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]]}], ",",
+ RowBox[{"k4", "\[Rule]",
+ FractionBox[
+ RowBox[{"Abs", "[",
+ RowBox[{
+ SuperscriptBox["MH", "2"], "-", "S"}], "]"}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]]}]}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.775234871971971*^9, 3.7752349102591248`*^9, {3.7752350263788548`*^9,
+ 3.77523502988068*^9}, 3.775235261911248*^9, {3.775235474715847*^9,
+ 3.7752354961811533`*^9}},
+ CellLabel->
+ "Out[132]=",ExpressionUUID->"c471d1a0-08f6-4e63-8c58-4c380016123b"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"(*", " ",
+ RowBox[{"TEST", " ", "ggHg", " ", "only", " ", "triangles"}], " ",
+ "*)"}]], "Input",
+ CellChangeTimes->{{3.7752336704725237`*^9,
+ 3.7752336844214363`*^9}},ExpressionUUID->"c016de82-2b4d-46da-8883-\
+dca8d81b33b0"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ggHgamp", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_LR.m\>\"", "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.7752338840421143`*^9, 3.775233891491877*^9}, {
+ 3.775233937160605*^9, 3.77523394325849*^9}, 3.7752340168034763`*^9, {
+ 3.7752340953440027`*^9, 3.775234098436646*^9}},
+ CellLabel->"In[67]:=",ExpressionUUID->"2fb8be8e-1cd2-4ebe-ace8-84dfab624c1d"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["kvec1"], "Input",
+ CellChangeTimes->{{3.7752341675950108`*^9, 3.775234168743631*^9}},
+ CellLabel->"In[69]:=",ExpressionUUID->"ea64cda5-c0db-4d48-bd78-995d33d2e89b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ SqrtBox["S"], "2"], ",", "0", ",", "0", ",",
+ FractionBox[
+ SqrtBox["S"], "2"]}], "}"}]], "Output",
+ CellChangeTimes->{3.77523416905258*^9},
+ CellLabel->"Out[69]=",ExpressionUUID->"a788202c-d2a1-489b-9a50-5e867195c907"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["kvec2"], "Input",
+ CellChangeTimes->{{3.7752341705498743`*^9, 3.775234171963842*^9}},
+ CellLabel->"In[70]:=",ExpressionUUID->"63d668d8-464b-44a0-acf7-ed8fa5574d82"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ SqrtBox["S"], "2"], ",", "0", ",", "0", ",",
+ RowBox[{"-",
+ FractionBox[
+ SqrtBox["S"], "2"]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.775234172334874*^9},
+ CellLabel->"Out[70]=",ExpressionUUID->"0a77be4d-16d7-4417-9174-3eaeec3d0943"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"kvec3", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"vec4M", "[",
+ RowBox[{"MH", ",", "k3", ",", "\[Theta]3", ",", "\[Phi]3"}], "]"}], "//.",
+ "kinrules"}], "//", "Simplify"}]}]], "Input",
+ CellChangeTimes->{{3.77523517587326*^9, 3.775235245278871*^9}, {
+ 3.775235481684458*^9, 3.775235490207073*^9}},
+ CellLabel->
+ "In[140]:=",ExpressionUUID->"7f476354-b099-4fce-95e1-c8e3da1d445d"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["MH", "2"], "+", "S"}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Theta]3", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Sin", "[", "\[Theta]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Cos", "[", "\[Theta]3", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]]}], "}"}]], "Output",
+ CellChangeTimes->{{3.775235201478866*^9, 3.775235245578174*^9}, {
+ 3.775235485707567*^9, 3.775235490580348*^9}, 3.775235576008646*^9},
+ CellLabel->
+ "Out[140]=",ExpressionUUID->"232606ee-180f-4a6b-aae6-1505ac26d9aa"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"kvec4", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"vec4M", "[",
+ RowBox[{"0", ",", "k4", ",", "\[Theta]4", ",", "\[Phi]4"}], "]"}], "//.",
+ "kinrules"}], "//", "Simplify"}]}]], "Input",
+ CellChangeTimes->{{3.775234176979865*^9, 3.775234179201274*^9}, {
+ 3.775235223822955*^9, 3.775235242958313*^9}, {3.775235530351878*^9,
+ 3.775235531848612*^9}},
+ CellLabel->
+ "In[141]:=",ExpressionUUID->"3bf9eee7-e9ce-4b9d-b371-a004db7dba36"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Theta]4", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Sin", "[", "\[Theta]4", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Cos", "[", "\[Theta]4", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]]}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.775234179651164*^9, 3.7752342413011293`*^9, {3.775235239407649*^9,
+ 3.775235243200902*^9}, 3.775235532236511*^9, 3.775235577664158*^9},
+ CellLabel->
+ "Out[141]=",ExpressionUUID->"9f6de44a-3816-436f-9eed-c65579e853f2"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SS", "=",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"kvec1", "+", "kvec2"}], ",",
+ RowBox[{"kvec1", "+", "kvec2"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.775234244274425*^9, 3.775234254281748*^9}, {
+ 3.775234348280637*^9, 3.775234352779166*^9}},
+ CellLabel->
+ "In[134]:=",ExpressionUUID->"018d3a63-8c00-4393-8f48-5ea31ee4fb47"],
+
+Cell[BoxData["S"], "Output",
+ CellChangeTimes->{3.775234254770834*^9, 3.7752343544261303`*^9,
+ 3.7752352517199287`*^9, 3.77523553490416*^9},
+ CellLabel->
+ "Out[134]=",ExpressionUUID->"8ec26b8c-6895-465b-9a6d-f28a9c1bb157"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"TT", "=",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"kvec4", "-", "kvec2"}], ",",
+ RowBox[{"kvec4", "-", "kvec2"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.775234277699788*^9, 3.77523427881457*^9}, {
+ 3.775234313126729*^9, 3.775234346018008*^9}, {3.775235458048749*^9,
+ 3.775235466914755*^9}},
+ CellLabel->
+ "In[143]:=",ExpressionUUID->"4a04a25c-7a5b-4d1e-9e39-cea69507a2ea"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["MH", "2"], "-", "S"}], ")"}], " ",
+ SuperscriptBox[
+ RowBox[{"Cos", "[",
+ FractionBox["\[Theta]4", "2"], "]"}], "2"]}]], "Output",
+ CellChangeTimes->{3.775235581434252*^9},
+ CellLabel->
+ "Out[143]=",ExpressionUUID->"a324f332-3291-4f3e-984c-5d19e66452d6"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"UU", "=",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"kvec1", "-", "kvec4"}], ",",
+ RowBox[{"kvec1", "-", "kvec4"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.775234358563444*^9, 3.775234377882045*^9}},
+ CellLabel->
+ "In[144]:=",ExpressionUUID->"bb85de51-cb56-4b22-9b3f-72f33e2fe91d"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["MH", "2"], "-", "S"}], ")"}], " ",
+ SuperscriptBox[
+ RowBox[{"Sin", "[",
+ FractionBox["\[Theta]4", "2"], "]"}], "2"]}]], "Output",
+ CellChangeTimes->{3.775234380057612*^9, 3.775235255405649*^9,
+ 3.775235538141506*^9, 3.7752355860019827`*^9},
+ CellLabel->
+ "Out[144]=",ExpressionUUID->"e34418a3-f287-4a25-be8b-b35bb3ba3b75"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"SS", "+", "TT", "+", "UU"}], "/.",
+ RowBox[{"KinRules", "[",
+ RowBox[{"0", ",", "0", ",", "MH", ",", "0"}], "]"}]}], "//",
+ "Simplify"}]], "Input",
+ CellChangeTimes->{{3.7752353045094757`*^9, 3.7752353638645287`*^9}},
+ CellLabel->
+ "In[145]:=",ExpressionUUID->"a15db554-c750-416a-bf8e-43f7fa7fe829"],
+
+Cell[BoxData[
+ SuperscriptBox["MH", "2"]], "Output",
+ CellChangeTimes->{{3.7752353078850718`*^9, 3.77523536415522*^9},
+ 3.7752355404450827`*^9, {3.775235572708755*^9, 3.7752355883878727`*^9}},
+ CellLabel->
+ "Out[145]=",ExpressionUUID->"82c233c3-0b0a-4a45-b5b8-037c03555249"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"$Assumptions", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Element", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ "ki", ",", "k1", ",", "k2", ",", "k3", ",", "k4", ",", " ",
+ "\[Theta]1", ",", "\[Theta]2", ",", "\[Theta]3", ",", "\[Theta]4",
+ ",", " ", "\[Phi]1", ",", "\[Phi]2", ",", "\[Phi]3", ",", "\[Phi]4",
+ ",", "p", ",", "MT2", ",", "GS", ",", "EL", ",", "Alfas", ",", "a1",
+ ",", "S", ",", "T", ",", "U", ",", "MT", ",", "MH", ",", "MH2", ",",
+ "\[Eta]4", ",", "\[Eta]3"}], "}"}], ",", "Reals"}], "]"}], ",",
+ RowBox[{"ki", ">", "0"}], " ", ",",
+ RowBox[{"MT2", ">", "0"}], ",",
+ RowBox[{"MT", ">", "0"}], ",",
+ RowBox[{"MH2", ">", "0"}], ",", " ",
+ RowBox[{"MH", ">", "0"}], ",",
+ RowBox[{"k4", ">", "0"}], ",",
+ RowBox[{"p", ">", "0"}], ",",
+ RowBox[{"k3", ">", "0"}], ",",
+ RowBox[{"k1", ">", "0"}], ",",
+ RowBox[{"k2", ">", "0"}], ",",
+ RowBox[{"rS", ">", "0"}], ",",
+ RowBox[{"kT4", ">", "0"}], ",",
+ RowBox[{"kT3", ">", "0"}], ",",
+ RowBox[{"S", ">",
+ RowBox[{"MH", "^", "2"}]}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.775235566234293*^9, 3.7752355691149817`*^9}},
+ CellLabel->
+ "In[138]:=",ExpressionUUID->"13982953-6398-495a-82b4-9ddfe24a4bd0"],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.775234139392658*^9,
+ 3.775234148228291*^9}},ExpressionUUID->"3b604925-2d87-477a-bbab-\
+bc72b933b86f"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"amp1", "=",
+ RowBox[{
+ RowBox[{"ggHgamp", "//.", " ", "SubFourVecs"}], "//.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300", "^", "2"}]}], ",",
+ RowBox[{"T", "\[Rule]", "TT"}], ",",
+ RowBox[{"U", "\[Rule]", "UU"}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"\[Theta]3", "\[Rule]",
+ RowBox[{"Pi", "/", "2"}]}], ",",
+ RowBox[{"\[Theta]4", "\[Rule]",
+ RowBox[{"Pi", "/", "2"}]}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]", "Pi"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]", "0"}]}], "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.7752341002835217`*^9, 3.775234117913557*^9}, {
+ 3.775234391925642*^9, 3.775234475599949*^9}, {3.775234531877942*^9,
+ 3.775234563575654*^9}, {3.7752345970058527`*^9, 3.775234671773217*^9}, {
+ 3.775234733353578*^9, 3.775234737504047*^9}, {3.775235269644129*^9,
+ 3.77523530294098*^9}, {3.77523559515126*^9, 3.7752356852162857`*^9}, {
+ 3.775235751690361*^9, 3.7752357857311287`*^9}, {3.775235839868848*^9,
+ 3.7752359294193163`*^9}, {3.7752361019039307`*^9, 3.7752361257766857`*^9}, {
+ 3.775236336202168*^9, 3.775236339085723*^9}},
+ CellLabel->
+ "In[280]:=",ExpressionUUID->"be40774a-645c-401d-8678-e778f53524dc"],
+
+Cell[BoxData[
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"86.53579217291438`", "\[VeryThinSpace]", "+",
+ RowBox[{"1.7334278172536492`*^-15", " ", "\[ImaginaryI]"}]}], ")"}], " ",
+ "Alfas", " ", "EL", " ", "GS", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Mat", "[",
+ RowBox[{"SUNT", "[",
+ RowBox[{"Glu1", ",", "Glu2", ",", "Glu4", ",", "0", ",", "0"}], "]"}],
+ "]"}], "-",
+ RowBox[{"Mat", "[",
+ RowBox[{"SUNT", "[",
+ RowBox[{"Glu1", ",", "Glu4", ",", "Glu2", ",", "0", ",", "0"}], "]"}],
+ "]"}]}], ")"}]}],
+ RowBox[{"MW", " ", "SW"}]]], "Output",
+ CellChangeTimes->{{3.775235595574247*^9, 3.775235623074259*^9},
+ 3.7752356626146173`*^9, 3.775235809633503*^9, 3.77523584309721*^9,
+ 3.775235912539084*^9, 3.775235956017193*^9, {3.775236103168292*^9,
+ 3.775236128221525*^9}, {3.775236337021147*^9, 3.775236339442601*^9},
+ 3.775236552575139*^9, 3.775237099207222*^9},
+ CellLabel->
+ "Out[280]=",ExpressionUUID->"d057959b-fd6e-407e-a0d3-91ee53705fdb"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["kvec1"], "Input",
+ CellChangeTimes->{{3.775234666900373*^9, 3.775234667629822*^9}, {
+ 3.775236142255439*^9, 3.775236144294471*^9}},
+ CellLabel->
+ "In[158]:=",ExpressionUUID->"b635f1ba-43a8-4c64-8caf-41485e8e6349"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ SqrtBox["S"], "2"], ",", "0", ",", "0", ",",
+ FractionBox[
+ SqrtBox["S"], "2"]}], "}"}]], "Output",
+ CellChangeTimes->{3.7752361447702923`*^9},
+ CellLabel->
+ "Out[158]=",ExpressionUUID->"ab0d6b89-a1b1-46d4-a6ce-1e0b2b245a9b"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["kvec2"], "Input",
+ CellChangeTimes->{{3.77523614595605*^9, 3.775236147204626*^9}},
+ CellLabel->
+ "In[159]:=",ExpressionUUID->"5b4e5bfd-5043-4c2d-9f8e-3843d808a535"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ SqrtBox["S"], "2"], ",", "0", ",", "0", ",",
+ RowBox[{"-",
+ FractionBox[
+ SqrtBox["S"], "2"]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.7752361475624323`*^9},
+ CellLabel->
+ "Out[159]=",ExpressionUUID->"7c43f9c1-01c0-4b8a-9438-16c48fc51e47"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["kvec3"], "Input",
+ CellChangeTimes->{{3.775236148396234*^9, 3.775236149625515*^9}},
+ CellLabel->
+ "In[160]:=",ExpressionUUID->"309b1dba-9aff-4ed0-af22-d4ab58554b8a"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["MH", "2"], "+", "S"}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Theta]3", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Sin", "[", "\[Theta]3", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]3", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Cos", "[", "\[Theta]3", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]]}], "}"}]], "Output",
+ CellChangeTimes->{3.7752361500531473`*^9},
+ CellLabel->
+ "Out[160]=",ExpressionUUID->"f750153f-f59e-4943-8b0c-9ba1d1f0930f"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["kvec4"], "Input",
+ CellChangeTimes->{{3.775236151421253*^9, 3.775236152088798*^9}},
+ CellLabel->
+ "In[161]:=",ExpressionUUID->"a01ded67-4f83-4bf3-a6a9-6a26bb859e2b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]4", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Theta]4", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Sin", "[", "\[Theta]4", "]"}], " ",
+ RowBox[{"Sin", "[", "\[Phi]4", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]], ",",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["MH", "2"]}], "+", "S"}], ")"}], " ",
+ RowBox[{"Cos", "[", "\[Theta]4", "]"}]}],
+ RowBox[{"2", " ",
+ SqrtBox["S"]}]]}], "}"}]], "Output",
+ CellChangeTimes->{3.775236153013968*^9},
+ CellLabel->
+ "Out[161]=",ExpressionUUID->"92916bb6-be68-46d5-9db8-ffc0d29947f0"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"SS", "+", "TT", "+", "UU"}], "//", "Simplify"}]], "Input",
+ CellChangeTimes->{{3.7752361957662287`*^9, 3.775236207102852*^9}},
+ CellLabel->
+ "In[164]:=",ExpressionUUID->"e28d7b30-a554-477f-831b-c87e01beca4d"],
+
+Cell[BoxData[
+ SuperscriptBox["MH", "2"]], "Output",
+ CellChangeTimes->{{3.775236200173397*^9, 3.7752362073885593`*^9}},
+ CellLabel->
+ "Out[164]=",ExpressionUUID->"0ca7de0d-d882-4ed8-8d04-fc4574b40098"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"kvec3", "//.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300", "^", "2"}]}], ",",
+ RowBox[{"T", "\[Rule]", "TT"}], ",",
+ RowBox[{"U", "\[Rule]", "UU"}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"\[Theta]3", "\[Rule]",
+ RowBox[{"Pi", "/", "2"}]}], ",",
+ RowBox[{"\[Theta]4", "\[Rule]",
+ RowBox[{"Pi", "/", "2"}]}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]", "Pi"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]", "0"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.775236225224224*^9, 3.7752362390677547`*^9}, {
+ 3.775236345250381*^9, 3.7752363472610483`*^9}, {3.7752364524773073`*^9,
+ 3.775236461304338*^9}},
+ CellLabel->
+ "In[278]:=",ExpressionUUID->"04d4dbd7-9c46-485e-9f84-becb80b9d603"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ "176.04166666666669`", ",", "123.95833333333334`", ",", "0.`", ",", "0.`"}],
+ "}"}]], "Output",
+ CellChangeTimes->{
+ 3.775236240781623*^9, {3.775236345584844*^9, 3.775236347597986*^9},
+ 3.7752370933315783`*^9},
+ CellLabel->
+ "Out[278]=",ExpressionUUID->"79e04ef4-1b59-4535-992c-e4424203720a"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"kvec4", "//.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"S", "\[Rule]",
+ RowBox[{"300", "^", "2"}]}], ",",
+ RowBox[{"T", "\[Rule]", "TT"}], ",",
+ RowBox[{"U", "\[Rule]", "UU"}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"\[Theta]3", "\[Rule]",
+ RowBox[{"Pi", "/", "2"}]}], ",",
+ RowBox[{"\[Theta]4", "\[Rule]",
+ RowBox[{"Pi", "/", "2"}]}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]", "Pi"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]", "0"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.7752362436914473`*^9, 3.775236246328574*^9}},
+ CellLabel->
+ "In[279]:=",ExpressionUUID->"6ecab3de-355f-4fd7-a4bd-167b5ec80b28"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"123.95833333333334`", ",",
+ RowBox[{"-", "123.95833333333334`"}], ",", "0.`", ",", "0.`"}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.77523624723542*^9, 3.775237095048168*^9},
+ CellLabel->
+ "Out[279]=",ExpressionUUID->"858cefaf-42e8-42f3-9ed9-cb66408eea6e"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"ek1vecInc", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"EpolEuc", "[",
+ RowBox[{"0", ",", "k1x", ",", "k1y", ",", "k1z", ",", "1"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{"k1y", "\[Rule]", "0"}], "}"}]}], "//", "Simplify"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek1vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Limit", "[",
+ RowBox[{"ek1vecInc", ",",
+ RowBox[{"k1x", "\[Rule]", "0"}], ",",
+ RowBox[{"Direction", "\[Rule]", "\"\<FromAbove\>\""}]}], "]"}], "/.",
+
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//.",
+ RowBox[{"{",
+ RowBox[{"k1z", "\[Rule]",
+ RowBox[{"kvec1", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "//", "Simplify"}]}], " ",
+
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"because", " ", "kz"}], " ", ">", " ", "0"}], " ", "*)"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek2vecInc", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"EpolEuc", "[",
+ RowBox[{"0", ",", "k2x", ",", "k2y", ",", "k2z", ",", "1"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{"k2y", "\[Rule]", "0"}], "}"}]}], "//", "Simplify"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek2vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Limit", "[",
+ RowBox[{"ek2vecInc", ",",
+ RowBox[{"k2x", "\[Rule]", "0"}], ",",
+ RowBox[{"Direction", "\[Rule]", "\"\<FromBelow\>\""}]}], "]"}], "/.",
+
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//.",
+ RowBox[{"{",
+ RowBox[{"k2z", "\[Rule]",
+ RowBox[{"kvec2", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "//", "Simplify"}]}], " ",
+
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"because", " ", "kz"}], " ", "<", " ", "0"}], " ", "*)"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek4vec", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"EpolEuc", "[",
+ RowBox[{"0", ",", "k4x", ",", "k4y", ",", "k4z", ",", "1"}], "]"}], "//.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k4x", "\[Rule]",
+ RowBox[{"kvec4", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ",",
+ RowBox[{"k4y", "\[Rule]",
+ RowBox[{"kvec4", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}], ",",
+ RowBox[{"k4z", "\[Rule]",
+ RowBox[{"kvec4", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}], ",",
+ RowBox[{"\[Theta]4", "\[Rule]",
+ RowBox[{"Pi", "/", "2"}]}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]", "Pi"}]}], "}"}]}], "//", "Simplify"}]}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek1vecCC", "=",
+ RowBox[{
+ RowBox[{"Conjugate", "[", "ek1vec", "]"}], "//", "Simplify"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek2vecCC", "=",
+ RowBox[{
+ RowBox[{"Conjugate", "[", "ek2vec", "]"}], "//", "Simplify"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ek4vecCC", "=",
+ RowBox[{
+ RowBox[{"Conjugate", "[", "ek4vec", "]"}], "//", "Simplify"}]}],
+ ";"}]}], "Input",
+ CellChangeTimes->{{3.775236799477029*^9, 3.775237061156251*^9}},
+ CellLabel->
+ "In[270]:=",ExpressionUUID->"e7aff029-b2d6-497e-8d41-fe171c216a43"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ RowBox[{"-",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]]}], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{{3.7752368113015337`*^9, 3.775236822023851*^9}, {
+ 3.7752368730447483`*^9, 3.775236979723176*^9}, 3.7752370149324293`*^9, {
+ 3.77523706222206*^9, 3.775237086742407*^9}},
+ CellLabel->
+ "Out[271]=",ExpressionUUID->"8a0962be-605f-4f68-8afd-f3832246e4b6"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SqrtBox["2"]]}], ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",", "0"}], "}"}]], "Output",
+ CellChangeTimes->{{3.7752368113015337`*^9, 3.775236822023851*^9}, {
+ 3.7752368730447483`*^9, 3.775236979723176*^9}, 3.7752370149324293`*^9, {
+ 3.77523706222206*^9, 3.7752370867565613`*^9}},
+ CellLabel->
+ "Out[273]=",ExpressionUUID->"45641c61-b419-4a5d-844e-cda62d80939b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",",
+ FractionBox["\[ImaginaryI]",
+ SqrtBox["2"]], ",",
+ FractionBox["1",
+ SqrtBox["2"]]}], "}"}]], "Output",
+ CellChangeTimes->{{3.7752368113015337`*^9, 3.775236822023851*^9}, {
+ 3.7752368730447483`*^9, 3.775236979723176*^9}, 3.7752370149324293`*^9, {
+ 3.77523706222206*^9, 3.775237086766879*^9}},
+ CellLabel->
+ "Out[274]=",ExpressionUUID->"28740e7a-3602-491c-a46f-a2287e2eb0d6"]
+}, Open ]]
+},
+WindowSize->{991, 755},
+WindowMargins->{{Automatic, -1897}, {Automatic, 0}},
+FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
+2018)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 1402, 28, 115, "Input",ExpressionUUID->"a9eb43f9-c437-4ff0-ae8b-eb31f4d06b38"],
+Cell[CellGroupData[{
+Cell[1985, 52, 890, 15, 94, "Input",ExpressionUUID->"aa6e76d2-ec10-49c0-b6e0-1dd4d91b1a18"],
+Cell[CellGroupData[{
+Cell[2900, 71, 977, 15, 46, "Print",ExpressionUUID->"cdc2ce4b-5530-46e0-ac30-91fb7be29da5"],
+Cell[3880, 88, 755, 12, 24, "Print",ExpressionUUID->"a5228f68-87f9-4f03-9fa9-e0ffca5de6b6"]
+}, Open ]]
+}, Open ]],
+Cell[4662, 104, 1457, 34, 94, "Input",ExpressionUUID->"907a0a71-f5d0-4c01-bacf-80d42748259d"],
+Cell[6122, 140, 7361, 185, 598, "Input",ExpressionUUID->"26f4a4e8-5f12-4a95-a30f-5e40153ac3f8"],
+Cell[13486, 327, 3069, 83, 220, "Input",ExpressionUUID->"295b0a52-febf-49d7-b5c5-afa40a220c70"],
+Cell[16558, 412, 150, 3, 30, "Input",ExpressionUUID->"facae057-50b1-4b42-bf4f-443f5b3c37d1"],
+Cell[16711, 417, 725, 16, 73, "Input",ExpressionUUID->"08460ef5-a698-495d-8762-405256a0b03d"],
+Cell[17439, 435, 10791, 295, 997, "Input",ExpressionUUID->"0977815c-55b7-47b0-a967-05c8f45dc601"],
+Cell[CellGroupData[{
+Cell[28255, 734, 471, 14, 30, "Input",ExpressionUUID->"fb2e028f-6f3b-492a-bb4e-bea3e5c1534a"],
+Cell[28729, 750, 387, 8, 34, "Output",ExpressionUUID->"c2bf05c1-ba99-4955-8444-15aac5c43759"]
+}, Open ]],
+Cell[29131, 761, 425, 7, 73, "Input",ExpressionUUID->"a5c5e12e-157e-4719-b09d-930d037e0d1b"],
+Cell[29559, 770, 1354, 31, 94, "Input",ExpressionUUID->"6f54e202-a28b-4a1d-9e81-76bb7154ddaa"],
+Cell[30916, 803, 1052, 25, 115, "Input",ExpressionUUID->"60913534-eef8-4103-af9a-ab50a0b353b9"],
+Cell[31971, 830, 147, 3, 52, "Input",ExpressionUUID->"2239b8d8-532e-4c08-ac3b-e377a166b460"],
+Cell[32121, 835, 309, 8, 30, "Input",ExpressionUUID->"a8edcb3d-289d-4ff2-aab2-1178c47d2c24"],
+Cell[32433, 845, 179, 3, 30, "Input",ExpressionUUID->"2fbc45e0-5167-407c-a174-583971bd7d06"],
+Cell[CellGroupData[{
+Cell[32637, 852, 202, 3, 30, "Input",ExpressionUUID->"7685320a-c96c-4f66-a42b-1f0a30a78e68"],
+Cell[32842, 857, 371, 5, 34, "Output",ExpressionUUID->"bfbcf21c-cca2-47a8-81bb-f83b15bbc8df"]
+}, Open ]],
+Cell[33228, 865, 2587, 65, 241, "Input",ExpressionUUID->"7e7f013d-f22f-4c3a-81bd-d58630ecb407"],
+Cell[CellGroupData[{
+Cell[35840, 934, 280, 3, 94, "Input",ExpressionUUID->"6e143612-3c0d-4282-a651-8cad89a3b66b"],
+Cell[36123, 939, 340, 10, 54, "Output",ExpressionUUID->"98797b05-90d0-4926-b83f-0fdac2f8507c"],
+Cell[36466, 951, 321, 9, 54, "Output",ExpressionUUID->"3c0d0c1a-efc7-4be2-989a-76364c5184c4"],
+Cell[36790, 962, 802, 24, 55, "Output",ExpressionUUID->"295e5521-bc86-438c-a78c-4ff98b1a4eaf"],
+Cell[37595, 988, 8014, 206, 415, "Output",ExpressionUUID->"e4e3dc2e-2896-4dfa-890b-ce015e0dd3cb"]
+}, Closed]],
+Cell[45624, 1197, 2360, 62, 237, "Input",ExpressionUUID->"de07b359-92c5-4c50-9757-257a3b86203c"],
+Cell[CellGroupData[{
+Cell[48009, 1263, 214, 2, 94, "Input",ExpressionUUID->"4bd24bf0-4f95-4aeb-a92a-36addec143e9"],
+Cell[48226, 1267, 340, 10, 54, "Output",ExpressionUUID->"0caa581a-26a8-4421-91ce-03a7011cd4c6"],
+Cell[48569, 1279, 319, 9, 54, "Output",ExpressionUUID->"27e4ad47-e57e-49f6-84f4-963c4f4e2144"],
+Cell[48891, 1290, 802, 24, 55, "Output",ExpressionUUID->"c13ffd92-283d-4eff-935e-259792c34b35"],
+Cell[49696, 1316, 8017, 205, 415, "Output",ExpressionUUID->"bd7742ef-097f-4ece-b454-127c41a84927"]
+}, Closed]],
+Cell[57728, 1524, 2265, 61, 237, "Input",ExpressionUUID->"0dc936c5-a3bf-49d3-8822-b8bf3e097443"],
+Cell[CellGroupData[{
+Cell[60018, 1589, 214, 2, 94, "Input",ExpressionUUID->"de1972ab-9631-4c95-a3ac-cc2439eaff59"],
+Cell[60235, 1593, 340, 10, 54, "Output",ExpressionUUID->"83c34964-b013-4847-9113-6809ef586914"],
+Cell[60578, 1605, 319, 9, 54, "Output",ExpressionUUID->"76cacd3c-7b01-4bf0-bf2d-05ee732b6108"],
+Cell[60900, 1616, 793, 24, 55, "Output",ExpressionUUID->"2af82568-b2f2-4e08-823a-56af3a079456"],
+Cell[61696, 1642, 8014, 206, 415, "Output",ExpressionUUID->"888f7613-7ca5-4c0c-9910-37224a4d42c2"]
+}, Closed]],
+Cell[69725, 1851, 2265, 61, 237, "Input",ExpressionUUID->"2f945793-af8e-4f9f-8ee4-f6a5ddef3041"],
+Cell[CellGroupData[{
+Cell[72015, 1916, 214, 2, 94, "Input",ExpressionUUID->"1b3a5a8e-9a75-4ea8-81fc-12e00b1e7a8b"],
+Cell[72232, 1920, 340, 10, 54, "Output",ExpressionUUID->"4800b669-1ac2-461c-8d0e-6c8e0db4feb2"],
+Cell[72575, 1932, 319, 9, 54, "Output",ExpressionUUID->"127daa54-286d-4dfe-a228-45ea02f3a29b"],
+Cell[72897, 1943, 795, 24, 55, "Output",ExpressionUUID->"ff5a2c2d-bcb9-4a08-a0db-e3ec3e0b8eab"],
+Cell[73695, 1969, 8019, 205, 415, "Output",ExpressionUUID->"3613bcfe-306c-417b-be00-8b237e1f74fc"]
+}, Closed]],
+Cell[81729, 2177, 2285, 62, 237, "Input",ExpressionUUID->"736a8768-21b4-4a78-91c9-5a2f8b836a59"],
+Cell[CellGroupData[{
+Cell[84039, 2243, 218, 3, 94, "Input",ExpressionUUID->"ddb548c2-b966-4ebb-8b4d-20e4c052552c"],
+Cell[84260, 2248, 346, 11, 54, "Output",ExpressionUUID->"8e7c14f1-46c4-45be-9499-0e7ff9cfe533"],
+Cell[84609, 2261, 302, 9, 54, "Output",ExpressionUUID->"665ee0e0-b7dc-4373-bc72-91094ed4ebfa"],
+Cell[84914, 2272, 806, 25, 55, "Output",ExpressionUUID->"76a06765-1e32-464b-b653-74c9c41bfad0"],
+Cell[85723, 2299, 8018, 207, 415, "Output",ExpressionUUID->"6c5ab671-9271-4d6d-941f-1661679185be"]
+}, Closed]],
+Cell[93756, 2509, 2308, 64, 237, "Input",ExpressionUUID->"f1b82eb6-3e5a-4cf7-9deb-3109924714c4"],
+Cell[CellGroupData[{
+Cell[96089, 2577, 218, 3, 94, "Input",ExpressionUUID->"5d0e564a-ae95-4bd5-a6cc-af961332242f"],
+Cell[96310, 2582, 344, 11, 54, "Output",ExpressionUUID->"9fb01334-2129-4aec-994f-886876491615"],
+Cell[96657, 2595, 304, 9, 54, "Output",ExpressionUUID->"7df88261-7455-4dcf-a0de-7b4494d6ea05"],
+Cell[96964, 2606, 806, 25, 55, "Output",ExpressionUUID->"73f9133d-e1ae-4484-9c71-cead4cfc2778"],
+Cell[97773, 2633, 8020, 206, 415, "Output",ExpressionUUID->"d00bf2c3-bcc7-4d1d-9603-58fce399f9be"]
+}, Closed]],
+Cell[105808, 2842, 2294, 63, 237, "Input",ExpressionUUID->"ea09958c-619e-47a8-ba2e-3c72622f3837"],
+Cell[CellGroupData[{
+Cell[108127, 2909, 218, 3, 94, "Input",ExpressionUUID->"49c8fe2c-a955-4a56-b5d2-645fdd8ee1b8"],
+Cell[108348, 2914, 344, 11, 54, "Output",ExpressionUUID->"ac928864-fb46-4277-a04b-a9984873ba5e"],
+Cell[108695, 2927, 304, 9, 54, "Output",ExpressionUUID->"9bf967d4-1cd5-43e7-b270-9802dbd89330"],
+Cell[109002, 2938, 797, 25, 55, "Output",ExpressionUUID->"e531c14c-844f-4ad1-9bfb-471d4db9b31e"],
+Cell[109802, 2965, 8020, 207, 415, "Output",ExpressionUUID->"9030a139-1619-4bd0-baa7-f65aaed95fc1"]
+}, Closed]],
+Cell[117837, 3175, 2310, 64, 237, "Input",ExpressionUUID->"109d8c91-098d-43cf-8963-751531807ae7"],
+Cell[CellGroupData[{
+Cell[120172, 3243, 218, 3, 94, "Input",ExpressionUUID->"133b9470-d798-489d-8481-9a8a3698a3a8"],
+Cell[120393, 3248, 344, 11, 54, "Output",ExpressionUUID->"52c45524-838a-46a1-9ad1-7648b6637a0a"],
+Cell[120740, 3261, 304, 9, 54, "Output",ExpressionUUID->"921a68f6-d009-4488-b8f7-58a4a926ca24"],
+Cell[121047, 3272, 797, 25, 55, "Output",ExpressionUUID->"dd1b4ff6-53c6-45ef-9a44-0b1769b80634"],
+Cell[121847, 3299, 8021, 206, 415, "Output",ExpressionUUID->"1328d2bc-b60d-4dff-a61f-fafce78b861e"]
+}, Closed]],
+Cell[129883, 3508, 2274, 63, 237, "Input",ExpressionUUID->"90ea42ce-b398-4fbc-bd9f-f41999d112ee"],
+Cell[CellGroupData[{
+Cell[132182, 3575, 218, 3, 94, "Input",ExpressionUUID->"aeeee502-d9db-4ade-88d9-b512c4326bb6"],
+Cell[132403, 3580, 323, 10, 54, "Output",ExpressionUUID->"9031a0a9-cf9d-437b-8216-b065685cc651"],
+Cell[132729, 3592, 323, 10, 54, "Output",ExpressionUUID->"2c6398cd-b359-4fe5-a36e-0b40aa0a73ac"],
+Cell[133055, 3604, 805, 25, 55, "Output",ExpressionUUID->"d0c4ab05-2228-4b3d-b9f0-380f03f445fc"],
+Cell[133863, 3631, 8018, 207, 415, "Output",ExpressionUUID->"25c04453-c4d9-49a8-b58e-b82acd1058e8"]
+}, Closed]],
+Cell[141896, 3841, 2287, 63, 237, "Input",ExpressionUUID->"eda41e35-0731-4f86-8fd3-b64e5553fef0"],
+Cell[CellGroupData[{
+Cell[144208, 3908, 218, 3, 94, "Input",ExpressionUUID->"0e9ee2b7-6c7f-44b1-9f11-5d09fdee3c8a"],
+Cell[144429, 3913, 323, 10, 54, "Output",ExpressionUUID->"564638da-a074-4583-95bd-4f2f8cba6de0"],
+Cell[144755, 3925, 323, 10, 54, "Output",ExpressionUUID->"ead6394e-5d7d-4027-bf26-da5af46080e0"],
+Cell[145081, 3937, 808, 25, 55, "Output",ExpressionUUID->"05920693-2791-461f-bb39-d05893eff923"],
+Cell[145892, 3964, 8020, 206, 415, "Output",ExpressionUUID->"4d737b53-7257-44f3-b230-4b20b7cf4403"]
+}, Closed]],
+Cell[153927, 4173, 2306, 64, 237, "Input",ExpressionUUID->"b4e55406-dd72-45f8-a3b3-34f05228afd8"],
+Cell[CellGroupData[{
+Cell[156258, 4241, 218, 3, 94, "Input",ExpressionUUID->"31473832-1b3e-4feb-9476-fa165b39ef5b"],
+Cell[156479, 4246, 323, 10, 54, "Output",ExpressionUUID->"49c964a7-ca37-4ece-b767-4725d6cd726d"],
+Cell[156805, 4258, 325, 10, 54, "Output",ExpressionUUID->"aff9ab87-5ee7-4424-a8c5-9003da78ed6a"],
+Cell[157133, 4270, 797, 25, 55, "Output",ExpressionUUID->"7255aa0b-c54c-4726-b608-3a1e1ec73f55"],
+Cell[157933, 4297, 8020, 207, 415, "Output",ExpressionUUID->"7676935b-3e9e-423c-9495-99c76e7836d8"]
+}, Closed]],
+Cell[165968, 4507, 2361, 65, 237, "Input",ExpressionUUID->"17600b0b-71c8-4b17-9c49-9fa20ea3d684"],
+Cell[CellGroupData[{
+Cell[168354, 4576, 218, 3, 94, "Input",ExpressionUUID->"acc3ef55-c9ff-41e2-a5ce-951fcf403a30"],
+Cell[168575, 4581, 323, 10, 54, "Output",ExpressionUUID->"b58e0eea-b86b-4b4d-9af9-0514d9cec5b3"],
+Cell[168901, 4593, 323, 10, 54, "Output",ExpressionUUID->"5cae39f8-cd31-4f16-9795-7943f4a5fa19"],
+Cell[169227, 4605, 797, 25, 55, "Output",ExpressionUUID->"89c26d17-1c70-4219-a637-da8fbe3ce30e"],
+Cell[170027, 4632, 8023, 206, 415, "Output",ExpressionUUID->"6e5ebac0-5967-47da-8716-e7ea61df247a"]
+}, Closed]],
+Cell[178065, 4841, 2273, 63, 237, "Input",ExpressionUUID->"b64b8f87-82c8-4857-a557-001146451746"],
+Cell[CellGroupData[{
+Cell[180363, 4908, 218, 3, 94, "Input",ExpressionUUID->"04bbc492-9b94-415e-a91d-f36d5b545005"],
+Cell[180584, 4913, 325, 10, 54, "Output",ExpressionUUID->"14f63c8c-5f9d-4ceb-940c-502703daeac5"],
+Cell[180912, 4925, 302, 9, 54, "Output",ExpressionUUID->"b269e7ef-8a34-43b6-a7be-907a76c65945"],
+Cell[181217, 4936, 808, 25, 55, "Output",ExpressionUUID->"fae7b65b-0f03-4de9-bfa9-ffbfc4ebcf53"],
+Cell[182028, 4963, 8018, 207, 415, "Output",ExpressionUUID->"b70b5df9-83b0-4ee9-aa8c-5d2d741914f3"]
+}, Closed]],
+Cell[190061, 5173, 2307, 64, 237, "Input",ExpressionUUID->"ccddb553-b79e-4e2f-b2e8-37d92e711b60"],
+Cell[CellGroupData[{
+Cell[192393, 5241, 218, 3, 94, "Input",ExpressionUUID->"5e22bb0e-cc8d-4d2c-8d89-8696ac48023c"],
+Cell[192614, 5246, 325, 10, 54, "Output",ExpressionUUID->"1d1aff26-c11b-498f-a281-4edca3f48b8e"],
+Cell[192942, 5258, 302, 9, 54, "Output",ExpressionUUID->"fe1b4903-a745-4370-a850-2eb30e49b07e"],
+Cell[193247, 5269, 808, 25, 55, "Output",ExpressionUUID->"c0401559-5133-43a1-95d9-2c147aeac684"],
+Cell[194058, 5296, 8021, 206, 415, "Output",ExpressionUUID->"69980d33-68ef-4bc7-8483-e5f3624dc2f2"]
+}, Closed]],
+Cell[202094, 5505, 2309, 64, 237, "Input",ExpressionUUID->"b793fa34-3995-4321-8821-1b621911c453"],
+Cell[CellGroupData[{
+Cell[204428, 5573, 284, 4, 94, "Input",ExpressionUUID->"f84ff2cc-9ea3-4b80-b650-9f55fc0f9050"],
+Cell[204715, 5579, 323, 10, 54, "Output",ExpressionUUID->"c06349b5-a8e5-4a9d-9151-70897cbad86c"],
+Cell[205041, 5591, 304, 9, 54, "Output",ExpressionUUID->"f6e999f4-5535-4229-b523-b56222e09ce5"],
+Cell[205348, 5602, 797, 25, 55, "Output",ExpressionUUID->"e26cd2b4-0fcd-4c1a-bc01-8ecb0c2ab4db"],
+Cell[206148, 5629, 8018, 207, 415, "Output",ExpressionUUID->"9657c170-36b8-411d-8b6b-3d6276292375"]
+}, Closed]],
+Cell[214181, 5839, 2313, 64, 237, "Input",ExpressionUUID->"904d1e14-4906-4fe4-96f1-2666b54aee06"],
+Cell[CellGroupData[{
+Cell[216519, 5907, 218, 3, 94, "Input",ExpressionUUID->"ccf4c247-cfe0-485b-8f60-c5cb1c2404f2"],
+Cell[216740, 5912, 323, 10, 54, "Output",ExpressionUUID->"eb569226-c832-4d1b-bd18-8c78de3ac024"],
+Cell[217066, 5924, 302, 9, 54, "Output",ExpressionUUID->"4c4d179c-6005-4a69-869b-32e6c3d44696"],
+Cell[217371, 5935, 797, 25, 55, "Output",ExpressionUUID->"122f04a8-3049-4ef7-812a-dedea2b60c56"],
+Cell[218171, 5962, 8020, 206, 415, "Output",ExpressionUUID->"b4ca1d9c-4431-4e3d-bafa-ac054aac2ca1"]
+}, Closed]],
+Cell[226206, 6171, 206, 4, 69, "Input",ExpressionUUID->"748f33a8-75a3-45ad-8268-03283d31b0cc"],
+Cell[226415, 6177, 10811, 300, 1480, "Input",ExpressionUUID->"decca2b0-8e15-4e87-a985-d5712b125d5f"],
+Cell[237229, 6479, 477, 11, 94, "Input",ExpressionUUID->"4563076e-3246-46f7-97bc-73b664b8307f"],
+Cell[237709, 6492, 299, 7, 30, "Input",ExpressionUUID->"0bc98909-fe56-4051-8545-05a60ebbbb32"],
+Cell[CellGroupData[{
+Cell[238033, 6503, 1732, 49, 136, "Input",ExpressionUUID->"c2b37f9c-dad4-4307-af24-d9a0d850bff4"],
+Cell[239768, 6554, 492, 13, 54, "Output",ExpressionUUID->"0053d0e2-0989-4bdf-b06a-f9d1922adf20"],
+Cell[240263, 6569, 450, 11, 54, "Output",ExpressionUUID->"43fbcf8e-8599-42a1-bfcc-4516bc717d3d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[240750, 6585, 1710, 48, 136, "Input",ExpressionUUID->"93d4e542-71cc-4953-af8e-c169abe35c37"],
+Cell[242463, 6635, 473, 12, 54, "Output",ExpressionUUID->"3293794e-373e-45b0-88e3-12a28b10e6d4"],
+Cell[242939, 6649, 473, 12, 54, "Output",ExpressionUUID->"105e4034-56e9-4119-976c-1771ee3f4d7e"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[243449, 6666, 239, 5, 30, "Input",ExpressionUUID->"8f69032e-381e-4355-9ee9-143e3faa4659"],
+Cell[243691, 6673, 370, 11, 54, "Output",ExpressionUUID->"395e9ca9-8a54-41e6-b00a-82e661c745b9"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[244098, 6689, 240, 5, 30, "Input",ExpressionUUID->"82dd246c-415e-4947-89d4-a9492a7c08d0"],
+Cell[244341, 6696, 494, 11, 34, "Output",ExpressionUUID->"439827f5-7f37-45eb-a6db-4f44bbe16d70"]
+}, Open ]],
+Cell[244850, 6710, 280, 5, 136, "Input",ExpressionUUID->"46f1ab6d-937e-4ec4-ac8d-bff28579c110"],
+Cell[CellGroupData[{
+Cell[245155, 6719, 522, 11, 115, "Input",ExpressionUUID->"39596f69-54b3-4502-bc9a-e27bb48d3f41"],
+Cell[245680, 6732, 227, 4, 34, "Output",ExpressionUUID->"391ef8fa-412a-4103-98ac-6efb4aca67ca"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[245944, 6741, 1285, 35, 73, "Input",ExpressionUUID->"b34e4af8-5a92-4433-91fe-7fe2aaea58e5"],
+Cell[CellGroupData[{
+Cell[247254, 6780, 538, 13, 44, "Print",ExpressionUUID->"036d06c3-d736-46a4-85af-321881037012"],
+Cell[247795, 6795, 2309, 57, 145, "Print",ExpressionUUID->"7f092130-65a6-48f6-a225-c9cb2c9bf4af"],
+Cell[250107, 6854, 888, 20, 47, "Print",ExpressionUUID->"74d09005-80d4-4eb5-b2ad-db0c1a75acc8"],
+Cell[250998, 6876, 286, 5, 24, "Print",ExpressionUUID->"b274558c-4e4b-4c44-9c4c-5fbe2460bcbc"],
+Cell[251287, 6883, 1295, 30, 49, "Print",ExpressionUUID->"3221b609-dcc3-4da4-a3e3-9f5bc8e7bbf2"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[252631, 6919, 1328, 31, 52, "Input",ExpressionUUID->"9fd3d5e6-8ffa-493a-8595-d6d0d780805f"],
+Cell[253962, 6952, 1174, 29, 56, "Output",ExpressionUUID->"fa64eb15-5601-48dd-a605-5df7944ad9aa"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[255173, 6986, 3933, 119, 199, "Input",ExpressionUUID->"5ded4345-d664-4ac5-9642-1b00a0681b1c"],
+Cell[259109, 7107, 720, 12, 34, "Output",ExpressionUUID->"1a1d7ca1-25cc-4fb7-8df5-582cc32ec06c"]
+}, Open ]],
+Cell[259844, 7122, 213, 5, 30, "Input",ExpressionUUID->"5b66fb87-293a-4ef7-bff7-0d09631bb6d8"],
+Cell[CellGroupData[{
+Cell[260082, 7131, 1385, 38, 73, "Input",ExpressionUUID->"a821d5f4-c947-47d0-a68d-88efb3b8dd3d"],
+Cell[CellGroupData[{
+Cell[261492, 7173, 741, 16, 44, "Print",ExpressionUUID->"bdd84ee5-e5de-4399-85d7-f620c7667877"],
+Cell[262236, 7191, 2513, 60, 145, "Print",ExpressionUUID->"3939f696-ad00-464e-8f62-39d979d7c35d"],
+Cell[264752, 7253, 1085, 23, 47, "Print",ExpressionUUID->"44d8caf9-61b8-46aa-972d-67abe87916ae"],
+Cell[265840, 7278, 488, 8, 24, "Print",ExpressionUUID->"2f29d13e-6df9-4305-9cb5-665b6f5790de"],
+Cell[266331, 7288, 1497, 33, 49, "Print",ExpressionUUID->"dbcfd14d-2210-4c86-b316-c61c776b7076"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[267877, 7327, 1016, 26, 52, "Input",ExpressionUUID->"edd720c6-62d1-4267-aae0-a0e8be2f9c5d"],
+Cell[268896, 7355, 949, 23, 34, "Output",ExpressionUUID->"3fcfdace-e39d-40f0-931d-65df47dc584f"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[269882, 7383, 3761, 117, 199, "Input",ExpressionUUID->"f9a36ccc-6bbb-4713-9d83-1c7447160476"],
+Cell[273646, 7502, 582, 9, 34, "Output",ExpressionUUID->"aa7d22b9-3036-4d75-b2d0-18fc747a8a8d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[274265, 7516, 207, 4, 30, "Input",ExpressionUUID->"36eb691a-1df8-413f-a81b-b5d04d022935"],
+Cell[274475, 7522, 416, 7, 34, "Output",ExpressionUUID->"fdfb1397-fb23-4c7c-8c83-b32a045efe7a"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[274928, 7534, 181, 3, 30, "Input",ExpressionUUID->"7f66cd20-d1e8-4ca7-a221-9ff39aca36aa"],
+Cell[275112, 7539, 294, 5, 34, "Output",ExpressionUUID->"335e2f70-756c-4dba-8305-8a636f2cf6ae"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[275443, 7549, 208, 4, 30, "Input",ExpressionUUID->"809aadb6-16f8-4cc9-bd6f-1d91f28835f9"],
+Cell[275654, 7555, 445, 8, 34, "Output",ExpressionUUID->"25057792-749b-4102-83c6-f9f495295eec"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[276136, 7568, 210, 4, 30, "Input",ExpressionUUID->"f8772f15-8b4e-49fe-a3b6-236dbafe3613"],
+Cell[276349, 7574, 446, 8, 34, "Output",ExpressionUUID->"57e8dfd9-908a-48b6-8d80-cf22e344347f"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[276832, 7587, 208, 4, 30, "Input",ExpressionUUID->"aa43aae6-fbd8-489b-b700-ebe9d437a84b"],
+Cell[277043, 7593, 255, 4, 34, "Output",ExpressionUUID->"d2d8c151-4c04-472d-91db-93581375244f"]
+}, Open ]],
+Cell[277313, 7600, 217, 5, 30, "Input",ExpressionUUID->"b20f7e47-3fac-4864-a7ff-e1acd3f6092a"],
+Cell[CellGroupData[{
+Cell[277555, 7609, 253, 5, 30, "Input",ExpressionUUID->"c82ec215-95ed-4d74-990c-6d27d1f70484"],
+Cell[277811, 7616, 11282, 301, 166, "Output",ExpressionUUID->"d2eb5bb5-ca40-4bc9-8035-0ad20d7444eb"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[289130, 7922, 1727, 46, 115, "Input",ExpressionUUID->"cd9723fe-5ae1-425a-ab81-ebf4322d7796"],
+Cell[CellGroupData[{
+Cell[290882, 7972, 489, 12, 44, "Print",ExpressionUUID->"2d451221-0c8c-4a6d-900e-eef366e55a07"],
+Cell[291374, 7986, 2261, 56, 145, "Print",ExpressionUUID->"446afc90-b7d9-40f2-a649-5b1fb0898ef2"],
+Cell[293638, 8044, 838, 19, 47, "Print",ExpressionUUID->"445e2145-d7ab-4474-817e-fca7d8921e18"],
+Cell[294479, 8065, 239, 4, 24, "Print",ExpressionUUID->"576e6130-cb63-4d40-9fa7-06ce080bbda8"],
+Cell[294721, 8071, 1247, 29, 49, "Print",ExpressionUUID->"5eb1a54c-f688-440b-9825-8273a1dadee7"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[296017, 8106, 1239, 33, 73, "Input",ExpressionUUID->"36a40cc7-40c3-4807-8617-acf13576bbcd"],
+Cell[297259, 8141, 917, 23, 37, "Output",ExpressionUUID->"92cd9b5e-a716-4e44-bd0a-1880c41e59e9"],
+Cell[298179, 8166, 799, 20, 37, "Output",ExpressionUUID->"7bbae190-812f-49ad-a656-5a73f8176dd3"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[299015, 8191, 3539, 111, 199, "Input",ExpressionUUID->"12f49268-37df-4130-a29f-0ba951bf6635"],
+Cell[302557, 8304, 1771, 44, 134, "Output",ExpressionUUID->"1a999a2c-24e4-458b-9240-da9ed516f81d"],
+Cell[304331, 8350, 2555, 88, 176, "Output",ExpressionUUID->"2fb42af8-da7f-4552-9e3b-9bbf57fab2ce"],
+Cell[306889, 8440, 1770, 44, 134, "Output",ExpressionUUID->"a3d1a0f7-2104-419a-a290-17d0866e267d"],
+Cell[308662, 8486, 455, 8, 34, "Output",ExpressionUUID->"49cf19f7-b5ca-4da2-a2fc-4505f8717f09"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[309154, 8499, 1982, 56, 136, "Input",ExpressionUUID->"ac44598b-9a1a-4e52-85ef-2d23a5904111"],
+Cell[CellGroupData[{
+Cell[311161, 8559, 515, 13, 44, "Print",ExpressionUUID->"672b46d5-b182-43d6-9ad5-74e89857e3af"],
+Cell[311679, 8574, 2289, 57, 145, "Print",ExpressionUUID->"05058169-5587-47d7-967f-cefedf01eb4f"],
+Cell[313971, 8633, 861, 20, 47, "Print",ExpressionUUID->"4097f6e5-fc74-4212-ac6e-bd19306fd20d"],
+Cell[314835, 8655, 266, 5, 24, "Print",ExpressionUUID->"bbc2f3b7-c6b3-4828-b1af-c4fcbecd6b32"],
+Cell[315104, 8662, 1273, 30, 49, "Print",ExpressionUUID->"28ddf3b3-c3f9-4cf3-ba05-02312cd12f5c"]
+}, Open ]],
+Cell[316392, 8695, 818, 22, 34, "Output",ExpressionUUID->"61209ac1-6811-4927-8d5d-7e002a9c297f"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[317247, 8722, 4248, 130, 241, "Input",ExpressionUUID->"0e414578-8bf7-48dd-aa07-72f420f87330"],
+Cell[321498, 8854, 700, 19, 34, "Output",ExpressionUUID->"82608b25-bb9e-46a9-bc23-8896e03febd6"],
+Cell[322201, 8875, 1580, 41, 128, "Output",ExpressionUUID->"85a4546b-1e22-4f24-a959-89ef205f1685"],
+Cell[323784, 8918, 2372, 85, 176, "Output",ExpressionUUID->"501d3523-5b39-4f6b-bfc6-43c241646426"],
+Cell[326159, 9005, 1580, 41, 128, "Output",ExpressionUUID->"22c8d040-d710-4aca-89d1-17964cf0761b"],
+Cell[327742, 9048, 269, 5, 34, "Output",ExpressionUUID->"200f382c-f9d9-46dd-9e7e-396321b66395"]
+}, Open ]],
+Cell[328026, 9056, 283, 7, 30, "Input",ExpressionUUID->"6bd9d4e3-c0eb-46c8-9ee1-2cc1a6f9f551"],
+Cell[CellGroupData[{
+Cell[328334, 9067, 214, 4, 30, "Input",ExpressionUUID->"7dc2aeaf-1eea-4790-86f2-2e38260ef446"],
+Cell[328551, 9073, 295, 5, 34, "Output",ExpressionUUID->"d9baed4e-4c27-4541-baf9-0d1e1b49c1fc"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[328883, 9083, 345, 8, 73, "Input",ExpressionUUID->"65d1e451-71c5-4a37-bb29-1ec9c57d89ad"],
+Cell[329231, 9093, 297, 5, 34, "Output",ExpressionUUID->"719d6feb-e988-4831-acc0-7728ca02e7e1"]
+}, Open ]],
+Cell[329543, 9101, 304, 6, 157, "Input",ExpressionUUID->"d8336dbe-baca-4c43-98ec-e9fa0e90ceb9"],
+Cell[329850, 9109, 278, 7, 30, "Input",ExpressionUUID->"dbe86d55-f903-4c16-aba8-5c64dcd510d8"],
+Cell[330131, 9118, 1029, 28, 136, "Input",ExpressionUUID->"ff902789-8764-47df-ae19-f8e2732cb693"],
+Cell[CellGroupData[{
+Cell[331185, 9150, 179, 3, 30, "Input",ExpressionUUID->"d259943e-df1a-4b8b-8ce1-f2d8a1c6ce82"],
+Cell[331367, 9155, 10966, 291, 176, "Output",ExpressionUUID->"bb81f3e0-43b8-4bed-817f-ab833c1db0b0"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[342370, 9451, 1221, 35, 73, "Input",ExpressionUUID->"9a3f574a-cd45-430d-9f41-9143c899f3d3"],
+Cell[CellGroupData[{
+Cell[343616, 9490, 587, 14, 44, "Print",ExpressionUUID->"e1dd3184-93ea-45aa-aa66-1a51baff8344"],
+Cell[344206, 9506, 2359, 58, 145, "Print",ExpressionUUID->"b6238ca4-e65e-4f5a-bd6a-19cc70b7cf87"],
+Cell[346568, 9566, 936, 21, 47, "Print",ExpressionUUID->"7ea31f10-d118-4022-958f-dcfbd6a2e3e6"],
+Cell[347507, 9589, 339, 6, 24, "Print",ExpressionUUID->"7d84e7e6-71cc-43f9-9858-0a9b757f59cd"],
+Cell[347849, 9597, 1345, 31, 49, "Print",ExpressionUUID->"b73767c3-0d6c-4d3c-9cfa-7190669995d9"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[349243, 9634, 293, 6, 30, "Input",ExpressionUUID->"ec103b6d-ad9b-47f5-99fb-35d0c73242fa"],
+Cell[349539, 9642, 423, 13, 54, "Output",ExpressionUUID->"599c636a-94ac-45e2-a43b-d95245d19773"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[349999, 9660, 295, 6, 30, "Input",ExpressionUUID->"45cc03ff-8a7f-40ac-841b-fac68c59dfd0"],
+Cell[350297, 9668, 398, 12, 54, "Output",ExpressionUUID->"fa0863bb-51d4-49fd-8e52-b516b20cfd16"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[350732, 9685, 295, 6, 30, "Input",ExpressionUUID->"cb245ba0-2d36-4576-abbc-86da611f6661"],
+Cell[351030, 9693, 400, 12, 54, "Output",ExpressionUUID->"cc3b366f-3f8c-4cef-8228-4595152eed95"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[351467, 9710, 291, 6, 30, "Input",ExpressionUUID->"2adefc70-ad32-4777-bd90-01f6585fa801"],
+Cell[351761, 9718, 519, 12, 34, "Output",ExpressionUUID->"2f8c6836-a4f2-4ad0-847a-191b528ee79f"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[352317, 9735, 892, 24, 52, "Input",ExpressionUUID->"38863738-22eb-4821-ade8-5e59b57cc6c8"],
+Cell[353212, 9761, 895, 22, 37, "Output",ExpressionUUID->"daf16945-ab0d-4374-a527-378da92f56c0"]
+}, Open ]],
+Cell[354122, 9786, 206, 4, 73, "Input",ExpressionUUID->"dd96acf9-8569-436c-b71f-3858bc812dc3"],
+Cell[CellGroupData[{
+Cell[354353, 9794, 1287, 36, 73, "Input",ExpressionUUID->"587fed01-95ad-4497-9991-22e72c5df35e"],
+Cell[CellGroupData[{
+Cell[355665, 9834, 612, 14, 44, "Print",ExpressionUUID->"efbe9be0-242a-48f2-9e42-649dcc6e39f0"],
+Cell[356280, 9850, 2384, 58, 145, "Print",ExpressionUUID->"b773131b-d503-4156-81c4-b9207d5e08b7"],
+Cell[358667, 9910, 956, 21, 47, "Print",ExpressionUUID->"87a2822b-b3de-47cc-ad5e-c06152d2025e"],
+Cell[359626, 9933, 359, 6, 24, "Print",ExpressionUUID->"37c34993-2e48-4495-a764-802de147d2dd"],
+Cell[359988, 9941, 1368, 31, 49, "Print",ExpressionUUID->"aaee04cf-3b7e-430f-bbef-6bfe3a0c933c"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[361405, 9978, 176, 4, 30, "Input",ExpressionUUID->"9e8c3495-09ad-4ff0-bd7d-92eff7ebc1d8"],
+Cell[361584, 9984, 347, 10, 54, "Output",ExpressionUUID->"d28a7c93-4ace-4140-baec-5db8c913a946"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[361968, 9999, 244, 5, 30, "Input",ExpressionUUID->"bea8deb0-f558-4fba-b807-f39d09047f9c"],
+Cell[362215, 10006, 495, 11, 34, "Output",ExpressionUUID->"0f2458d3-6748-4204-8103-24c778a58b4c"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[362747, 10022, 842, 23, 52, "Input",ExpressionUUID->"4a273c30-f8fc-46d1-9ea4-2dc3bb5d38c9"],
+Cell[363592, 10047, 846, 22, 37, "Output",ExpressionUUID->"f9a5dd89-b566-4f2b-bac6-dc1b86c8af04"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[364475, 10074, 185, 3, 30, "Input",ExpressionUUID->"64119c6d-52f2-400d-81ef-73a3ba94f23d"],
+Cell[364663, 10079, 822, 21, 37, "Output",ExpressionUUID->"756fccae-313a-4aa3-b142-b34d21036023"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[365522, 10105, 187, 3, 30, "Input",ExpressionUUID->"a16290ff-6778-41a3-b359-246f67aeefaa"],
+Cell[365712, 10110, 792, 20, 37, "Output",ExpressionUUID->"29952b1b-a847-4460-9afd-dae006ceafb7"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[366541, 10135, 405, 10, 30, "Input",ExpressionUUID->"9729c16f-542c-4583-8d8f-dcb1f9899ee7"],
+Cell[366949, 10147, 411, 7, 34, "Output",ExpressionUUID->"ef1bda56-f590-49ec-bc2a-44f732a3ba4b"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[367397, 10159, 354, 9, 30, "Input",ExpressionUUID->"24ccfcaf-f4d5-4902-81e0-8d38403763c1"],
+Cell[367754, 10170, 411, 7, 34, "Output",ExpressionUUID->"1395b6cf-0254-469b-8225-3f3eaecd64b3"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[368202, 10182, 404, 10, 30, "Input",ExpressionUUID->"1c4d588d-8302-4258-81e3-4cedb485f7da"],
+Cell[368609, 10194, 444, 7, 34, "Output",ExpressionUUID->"287f41c7-e872-480d-b818-0bc23a2fa987"]
+}, Open ]],
+Cell[369068, 10204, 399, 7, 199, "Input",ExpressionUUID->"c51d1221-86c4-4ebd-b3ad-4106585b9017"],
+Cell[369470, 10213, 362, 9, 30, "Input",ExpressionUUID->"9cd25044-4f41-49e4-80f5-08d29278cb00"],
+Cell[369835, 10224, 1032, 27, 136, "Input",ExpressionUUID->"d5a9b7bd-37b9-4af8-bb12-857996b7a8bc"],
+Cell[CellGroupData[{
+Cell[370892, 10255, 1217, 34, 73, "Input",ExpressionUUID->"9331fb0d-1fec-43e2-9850-030fbd7bdf66"],
+Cell[CellGroupData[{
+Cell[372134, 10293, 488, 12, 44, "Print",ExpressionUUID->"37427144-5f1a-4b3d-944b-84388f7e1424"],
+Cell[372625, 10307, 2262, 56, 145, "Print",ExpressionUUID->"4113965a-4b28-4369-abec-86637ae21960"],
+Cell[374890, 10365, 837, 19, 47, "Print",ExpressionUUID->"6948dff3-27cb-48e8-897b-75fa8905a448"],
+Cell[375730, 10386, 237, 4, 24, "Print",ExpressionUUID->"bc9fdf3f-b30b-492d-8e1d-5cf2f61575b8"],
+Cell[375970, 10392, 1248, 29, 49, "Print",ExpressionUUID->"ab68cde6-c968-40c5-b689-0e2e516ef784"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[377267, 10427, 794, 22, 52, "Input",ExpressionUUID->"bdc583a4-5ce8-4ab5-954b-e4753cc14645"],
+Cell[378064, 10451, 751, 20, 34, "Output",ExpressionUUID->"ba033732-01ca-402b-a434-8b7ef10663bc"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[378852, 10476, 1282, 35, 73, "Input",ExpressionUUID->"57bf9ad6-d97b-4e31-af95-23eb640aeccb"],
+Cell[CellGroupData[{
+Cell[380159, 10515, 469, 12, 44, "Print",ExpressionUUID->"10539cf1-126a-4c72-b496-8ac1181292c2"],
+Cell[380631, 10529, 2241, 56, 145, "Print",ExpressionUUID->"822935a9-5e2c-4540-b675-dca51a34b286"],
+Cell[382875, 10587, 813, 19, 47, "Print",ExpressionUUID->"82640b1c-5511-4c11-aba6-7d7985183a89"],
+Cell[383691, 10608, 218, 4, 24, "Print",ExpressionUUID->"faa1baf7-d09d-4147-bb38-4bd4cd6ef2d8"],
+Cell[383912, 10614, 1225, 29, 49, "Print",ExpressionUUID->"56ae6788-1369-4e9a-b9a1-a2adf28ceea9"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[385186, 10649, 793, 22, 52, "Input",ExpressionUUID->"fbd4fe0e-70d6-47b4-91d4-1664cc7ae429"],
+Cell[385982, 10673, 705, 19, 34, "Output",ExpressionUUID->"c2ef6ce0-85e1-4e60-a32a-1bb1af029bea"]
+}, Open ]],
+Cell[386702, 10695, 234, 5, 94, "Input",ExpressionUUID->"fdb1e515-144b-467e-85db-8127246e82de"],
+Cell[CellGroupData[{
+Cell[386961, 10704, 180, 2, 30, "Input",ExpressionUUID->"4bc31ae3-5bab-415c-b562-5422473e4a79"],
+Cell[387144, 10708, 703, 19, 34, "Output",ExpressionUUID->"20d0a29e-c20e-455b-82f9-a6a0181524eb"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[387884, 10732, 181, 2, 30, "Input",ExpressionUUID->"0fee63fd-0f7d-4f37-be22-0ee9f0b2dd29"],
+Cell[388068, 10736, 703, 19, 34, "Output",ExpressionUUID->"4de8bf7b-7b18-4fbe-a1b4-434a2cfdc5ca"]
+}, Open ]],
+Cell[388786, 10758, 230, 4, 30, "Input",ExpressionUUID->"d100b567-08ac-45a3-ab1c-7102d980edd8"],
+Cell[CellGroupData[{
+Cell[389041, 10766, 318, 7, 30, "Input",ExpressionUUID->"2004d05a-8fd9-4279-8da7-5e8db6d0b1cb"],
+Cell[389362, 10775, 286, 4, 34, "Output",ExpressionUUID->"038a004b-d5d8-41b1-aa13-9f3bccce7a2d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[389685, 10784, 326, 8, 30, "Input",ExpressionUUID->"3305c7cc-fb1d-4b01-8589-30f8bfb10617"],
+Cell[390014, 10794, 263, 4, 34, "Output",ExpressionUUID->"c7d59eaa-a5dc-4b43-8b0d-0328f5c09e45"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[390314, 10803, 284, 7, 30, "Input",ExpressionUUID->"61457d60-4f76-43a6-bd82-ebd9fb01124b"],
+Cell[390601, 10812, 262, 4, 34, "Output",ExpressionUUID->"685f977c-0479-4d99-befc-e84b48b144ff"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[390900, 10821, 326, 8, 30, "Input",ExpressionUUID->"918adda1-1e50-4075-960c-15c32f887de8"],
+Cell[391229, 10831, 263, 4, 34, "Output",ExpressionUUID->"5652226d-c974-4d4d-b620-6fcddd790365"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[391529, 10840, 503, 10, 115, "Input",ExpressionUUID->"ced44b95-e225-49ad-9c83-b351a616e504"],
+Cell[392035, 10852, 1908, 56, 97, "Output",ExpressionUUID->"52898082-c750-4891-86b9-e3e06ee9c662"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[393980, 10913, 408, 9, 30, "Input",ExpressionUUID->"71e5daec-bf03-47b2-b536-dbd0414e542c"],
+Cell[394391, 10924, 615, 14, 52, "Output",ExpressionUUID->"5b505cff-d5bb-42a3-853e-4163fc1a29d9"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[395043, 10943, 177, 2, 30, "Input",ExpressionUUID->"c25bd516-0c47-432b-90fe-27e455bbc0dd"],
+Cell[395223, 10947, 608, 13, 34, "Output",ExpressionUUID->"1942b838-851d-4a1f-8d51-8982c4e0bb98"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[395868, 10965, 177, 2, 30, "Input",ExpressionUUID->"700f0e27-c33f-4e8e-ba2e-3543e6248bf5"],
+Cell[396048, 10969, 588, 12, 34, "Output",ExpressionUUID->"dbebf7d3-afff-4491-89d6-99e2e2c958cf"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[396673, 10986, 287, 5, 30, "Input",ExpressionUUID->"63ad1626-8781-4e3f-9591-d8528ececcd8"],
+Cell[396963, 10993, 270, 4, 34, "Output",ExpressionUUID->"022e836e-e6b2-4d1c-bfdd-4b758f49462e"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[397270, 11002, 236, 4, 30, "Input",ExpressionUUID->"a371a893-d044-4e82-bd67-be5b40741382"],
+Cell[397509, 11008, 230, 4, 34, "Output",ExpressionUUID->"6c231317-1e6f-4e59-b41f-bb17b4d83b99"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[397776, 11017, 238, 4, 30, "Input",ExpressionUUID->"ef7d683b-4e10-4d26-9dd6-72279ff9244a"],
+Cell[398017, 11023, 230, 4, 34, "Output",ExpressionUUID->"3b3eb906-3b2f-4ff9-819a-39a88193f844"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[398284, 11032, 178, 2, 30, "Input",ExpressionUUID->"de45a5ed-a569-453b-824b-26f93985d288"],
+Cell[398465, 11036, 288, 8, 54, "Output",ExpressionUUID->"9c205819-8029-4260-ae8b-88d0e2b6ba6b"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[398790, 11049, 178, 2, 30, "Input",ExpressionUUID->"3cac72c0-8845-4679-9a9d-8d4f40d62660"],
+Cell[398971, 11053, 309, 9, 54, "Output",ExpressionUUID->"1df39c7d-0608-43f2-926b-eae7e2d5bb10"]
+}, Open ]],
+Cell[399295, 11065, 280, 5, 136, "Input",ExpressionUUID->"51cb99be-3353-4392-9fd3-c37ee91d1816"],
+Cell[399578, 11072, 1954, 57, 94, "Input",ExpressionUUID->"3a2dff3b-cd15-4082-a16f-231d41830801"],
+Cell[CellGroupData[{
+Cell[401557, 11133, 455, 10, 30, "Input",ExpressionUUID->"4717edd2-5164-4d8f-a082-259fc17a14ef"],
+Cell[402015, 11145, 1000, 32, 59, "Output",ExpressionUUID->"c471d1a0-08f6-4e63-8c58-4c380016123b"]
+}, Open ]],
+Cell[403030, 11180, 254, 6, 30, "Input",ExpressionUUID->"c016de82-2b4d-46da-8883-dca8d81b33b0"],
+Cell[403287, 11188, 395, 7, 30, "Input",ExpressionUUID->"2fb8be8e-1cd2-4ebe-ace8-84dfab624c1d"],
+Cell[CellGroupData[{
+Cell[403707, 11199, 178, 2, 30, "Input",ExpressionUUID->"ea64cda5-c0db-4d48-bd78-995d33d2e89b"],
+Cell[403888, 11203, 285, 8, 54, "Output",ExpressionUUID->"a788202c-d2a1-489b-9a50-5e867195c907"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[404210, 11216, 178, 2, 30, "Input",ExpressionUUID->"63d668d8-464b-44a0-acf7-ed8fa5574d82"],
+Cell[404391, 11220, 307, 9, 54, "Output",ExpressionUUID->"0a77be4d-16d7-4417-9174-3eaeec3d0943"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[404735, 11234, 415, 10, 30, "Input",ExpressionUUID->"7f476354-b099-4fce-95e1-c8e3da1d445d"],
+Cell[405153, 11246, 1232, 40, 59, "Output",ExpressionUUID->"232606ee-180f-4a6b-aae6-1505ac26d9aa"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[406422, 11291, 464, 11, 30, "Input",ExpressionUUID->"3bf9eee7-e9ce-4b9d-b371-a004db7dba36"],
+Cell[406889, 11304, 1279, 42, 59, "Output",ExpressionUUID->"9f6de44a-3816-436f-9eed-c65579e853f2"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[408205, 11351, 371, 9, 30, "Input",ExpressionUUID->"018d3a63-8c00-4393-8f48-5ea31ee4fb47"],
+Cell[408579, 11362, 225, 4, 34, "Output",ExpressionUUID->"8ec26b8c-6895-465b-9a6d-f28a9c1bb157"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[408841, 11371, 419, 10, 30, "Input",ExpressionUUID->"4a04a25c-7a5b-4d1e-9e39-cea69507a2ea"],
+Cell[409263, 11383, 335, 10, 49, "Output",ExpressionUUID->"a324f332-3291-4f3e-984c-5d19e66452d6"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[409635, 11398, 322, 8, 30, "Input",ExpressionUUID->"bb85de51-cb56-4b22-9b3f-72f33e2fe91d"],
+Cell[409960, 11408, 406, 11, 49, "Output",ExpressionUUID->"e34418a3-f287-4a25-be8b-b35bb3ba3b75"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[410403, 11424, 356, 9, 30, "Input",ExpressionUUID->"a15db554-c750-416a-bf8e-43f7fa7fe829"],
+Cell[410762, 11435, 278, 5, 34, "Output",ExpressionUUID->"82c233c3-0b0a-4a45-b5b8-037c03555249"]
+}, Open ]],
+Cell[411055, 11443, 1356, 32, 94, "Input",ExpressionUUID->"13982953-6398-495a-82b4-9ddfe24a4bd0"],
+Cell[412414, 11477, 152, 3, 30, "Input",ExpressionUUID->"3b604925-2d87-477a-bbab-bc72b933b86f"],
+Cell[CellGroupData[{
+Cell[412591, 11484, 1297, 27, 52, "Input",ExpressionUUID->"be40774a-645c-401d-8678-e778f53524dc"],
+Cell[413891, 11513, 1028, 24, 56, "Output",ExpressionUUID->"d057959b-fd6e-407e-a0d3-91ee53705fdb"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[414956, 11542, 229, 4, 30, "Input",ExpressionUUID->"b635f1ba-43a8-4c64-8caf-41485e8e6349"],
+Cell[415188, 11548, 292, 9, 54, "Output",ExpressionUUID->"ab0d6b89-a1b1-46d4-a6ce-1e0b2b245a9b"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[415517, 11562, 179, 3, 30, "Input",ExpressionUUID->"5b4e5bfd-5043-4c2d-9f8e-3843d808a535"],
+Cell[415699, 11567, 313, 10, 54, "Output",ExpressionUUID->"7c43f9c1-01c0-4b8a-9438-16c48fc51e47"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[416049, 11582, 180, 3, 30, "Input",ExpressionUUID->"309b1dba-9aff-4ed0-af22-d4ab58554b8a"],
+Cell[416232, 11587, 1138, 39, 59, "Output",ExpressionUUID->"f750153f-f59e-4943-8b0c-9ba1d1f0930f"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[417407, 11631, 180, 3, 30, "Input",ExpressionUUID->"a01ded67-4f83-4bf3-a6a9-6a26bb859e2b"],
+Cell[417590, 11636, 1158, 40, 59, "Output",ExpressionUUID->"92916bb6-be68-46d5-9db8-ffc0d29947f0"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[418785, 11681, 244, 5, 30, "Input",ExpressionUUID->"e28d7b30-a554-477f-831b-c87e01beca4d"],
+Cell[419032, 11688, 203, 4, 34, "Output",ExpressionUUID->"0ca7de0d-d882-4ed8-8d04-fc4574b40098"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[419272, 11697, 825, 20, 30, "Input",ExpressionUUID->"04d4dbd7-9c46-485e-9f84-becb80b9d603"],
+Cell[420100, 11719, 341, 9, 34, "Output",ExpressionUUID->"79e04ef4-1b59-4535-992c-e4424203720a"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[420478, 11733, 723, 18, 30, "Input",ExpressionUUID->"6ecab3de-355f-4fd7-a4bd-167b5ec80b28"],
+Cell[421204, 11753, 301, 7, 34, "Output",ExpressionUUID->"858cefaf-42e8-42f3-9ed9-cb66408eea6e"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[421542, 11765, 3318, 99, 304, "Input",ExpressionUUID->"e7aff029-b2d6-497e-8d41-fe171c216a43"],
+Cell[424863, 11866, 495, 13, 54, "Output",ExpressionUUID->"8a0962be-605f-4f68-8afd-f3832246e4b6"],
+Cell[425361, 11881, 476, 12, 54, "Output",ExpressionUUID->"45641c61-b419-4a5d-844e-cda62d80939b"],
+Cell[425840, 11895, 453, 11, 54, "Output",ExpressionUUID->"28740e7a-3602-491c-a46f-a2287e2eb0d6"]
+}, Open ]]
+}
+]
+*)
+