From cc568eb348ccd8c9604d20adcd42892f206884b5 Mon Sep 17 00:00:00 2001 From: jacoterh <54140851+jacoterh@users.noreply.github.com> Date: Mon, 19 Dec 2022 11:28:47 +0100 Subject: [PATCH] adding FeynArts model files --- code/notebooks/FormCalc/tt/dim_6_c6_c8c.gen | 199 ++++++ code/notebooks/FormCalc/tt/dim_6_c6_c8c.mod | 671 ++++++++++++++++++ code/notebooks/FormCalc/tt/dim_6_c6_c8c.pars | 343 +++++++++ .../notebooks/FormCalc/tt/dim_6_tt_parton.gen | 200 ++++++ .../notebooks/FormCalc/tt/dim_6_tt_parton.mod | 657 +++++++++++++++++ .../FormCalc/tt/dim_6_tt_parton.pars | 343 +++++++++ 6 files changed, 2413 insertions(+) create mode 100644 code/notebooks/FormCalc/tt/dim_6_c6_c8c.gen create mode 100644 code/notebooks/FormCalc/tt/dim_6_c6_c8c.mod create mode 100644 code/notebooks/FormCalc/tt/dim_6_c6_c8c.pars create mode 100644 code/notebooks/FormCalc/tt/dim_6_tt_parton.gen create mode 100644 code/notebooks/FormCalc/tt/dim_6_tt_parton.mod create mode 100644 code/notebooks/FormCalc/tt/dim_6_tt_parton.pars diff --git a/code/notebooks/FormCalc/tt/dim_6_c6_c8c.gen b/code/notebooks/FormCalc/tt/dim_6_c6_c8c.gen new file mode 100644 index 000000000..894291119 --- /dev/null +++ b/code/notebooks/FormCalc/tt/dim_6_c6_c8c.gen @@ -0,0 +1,199 @@ +(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) +(* *) +(* This file has been automatically generated by FeynRules. *) +(* *) +(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) + + + +(* Kinematic indices *) + +KinematicIndices[ F ] = {Dirac}; +KinematicIndices[ V ] = {Lorentz}; +KinematicIndices[ S ] = {}; +KinematicIndices[ SV ] = {Lorentz}; +KinematicIndices[ U ] = {}; + +$FermionLines = False; + +(* Simplification rules *) + +Attributes[ MetricTensor ] = Attributes[ ScalarProduct ] = {Orderless} + +FourVector/: -FourVector[ mom_, mu_ ] := FourVector[Expand[-mom], mu] + +FourVector[ 0, _ ] = 0 + +SpinorType[j_Integer, ___] := MajoranaSpinor /; SelfConjugate[F[j]] + +SpinorType[_Integer, __] = DiracSpinor + +(* Generic propagators *) + +M$GenericPropagators={ + +(*general fermion propagator:*) + +AnalyticalPropagator[External][s1 F[j1,mom,{di1}]]== +DiracObject[SpinorType[j1][-mom,Mass[F[j1]]]][di1], + +AnalyticalPropagator[Internal][s1 F[j1,mom,{di1}->{di2}]]== +DiracObject[DiracSlash[-mom]+Mass[F[j1]]][di1,di2]* +I PropagatorDenominator[mom,Mass[F[j1]]], + +(*general vector boson propagator:*) + +AnalyticalPropagator[External][s1 V[j1,mom,{li2}]]== +PolarizationVector[V[j1],mom,li2], + +AnalyticalPropagator[Internal][s1 V[j1,mom,{li1}->{li2}]]== +-I PropagatorDenominator[mom,Mass[V[j1]]]* +(MetricTensor[li1,li2]-(1-GaugeXi[V[j1]])* +FourVector[mom,li1] FourVector[mom,li2]* +PropagatorDenominator[mom,Sqrt[GaugeXi[V[j1]]] Mass[V[j1]]]), + +(*general mixing scalar-vector propagator:*) + +AnalyticalPropagator[Internal][s1 SV[j1,mom,{li1}->{li2}]]== +I Mass[SV[j1]] PropagatorDenominator[mom,Mass[SV[j1]]]* +FourVector[mom,If[s1==1||s1==-2,li1,li2]], + +(*general scalar propagator:*) + +AnalyticalPropagator[External][s1 S[j1,mom]]==1, + +AnalyticalPropagator[Internal][s1 S[j1,mom]]== +I PropagatorDenominator[mom,Sqrt[GaugeXi[S[j1]]] Mass[S[j1]]], + +(*general Fadeev-Popov ghost propagator:*) + +AnalyticalPropagator[External][s1 U[j1,mom]]==1, + +AnalyticalPropagator[Internal][s1 U[j1,mom]]== +I*PropagatorDenominator[mom,Sqrt[GaugeXi[U[j1]]] Mass[U[j1]]] +} + +(* Generic couplings *) + +M$GenericCouplings = { + + (* FFFF *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 F[j3, mom3, {di3}], s4 F[j4, mom4, {di4}] ] == +G[-1][s1 F[j1], s2 F[j2], s3 F[j3], s4 F[j4]].{IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di2,di4]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di1,di3], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di2,di4]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di3,di1], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di2,di1]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di4,di3], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di2,di1]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di3,di4], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di2,di3]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di4,di1], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di2,di3]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di1,di4], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di4,di2]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di1,di3], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di4,di2]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di3,di1], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di4,di1]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di2,di3], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di4,di1]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di3,di2], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di4,di3]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di2,di1], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di4,di3]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di1,di2], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di1,di2]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di4,di3], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di1,di2]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di3,di4], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di1,di4]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di2,di3], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di1,di4]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di3,di2], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di1,di3]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di2,di4], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di1,di3]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di4,di2], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di3,di2]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di4,di1], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di3,di2]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di1,di4], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di3,di4]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di2,di1], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di3,di4]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di1,di2], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di3,di1]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di2,di4], {a,1,4}], IndexSum[DiracObject[DiracMatrix[a], ChiralityProjector[-1] ][di3,di1]DiracObject[DiracMatrix[a], ChiralityProjector[+1] ][di4,di2], {a,1,4}]}, + + (* FFS *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 S[j3, mom3] ] == +G[-1][s1 F[j1], s2 F[j2], s3 S[j3]].{DiracObject[ChiralityProjector[-1]][di1,di2], DiracObject[ChiralityProjector[-1]][di2,di1], DiracObject[ChiralityProjector[+1]][di1,di2], DiracObject[ChiralityProjector[+1]][di2,di1]}, + + (* FFSV *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 S[j3, mom3], s4 V[j4, mom4, {li4}] ] == +G[-1][s1 F[j1], s2 F[j2], s3 S[j3], s4 V[j4]].{DiracObject[DiracMatrix[li4], DiracSlash[mom4 ], ChiralityProjector[-1] ][di1,di2], DiracObject[DiracMatrix[li4], DiracSlash[mom4 ], ChiralityProjector[-1] ][di2,di1], DiracObject[DiracMatrix[li4], DiracSlash[mom4 ], ChiralityProjector[+1] ][di1,di2], DiracObject[DiracMatrix[li4], DiracSlash[mom4 ], ChiralityProjector[+1] ][di2,di1], DiracObject[DiracSlash[mom4 ], DiracMatrix[li4], ChiralityProjector[-1] ][di1,di2], DiracObject[DiracSlash[mom4 ], DiracMatrix[li4], ChiralityProjector[-1] ][di2,di1], DiracObject[DiracSlash[mom4 ], DiracMatrix[li4], ChiralityProjector[+1] ][di1,di2], DiracObject[DiracSlash[mom4 ], DiracMatrix[li4], ChiralityProjector[+1] ][di2,di1]}, + + (* FFSVV *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 S[j3, mom3], s4 V[j4, mom4, {li4}], s5 V[j5, mom5, {li5}] ] == +G[-1][s1 F[j1], s2 F[j2], s3 S[j3], s4 V[j4], s5 V[j5]].{DiracObject[DiracMatrix[li4], DiracMatrix[li5], ChiralityProjector[-1] ][di1,di2], DiracObject[DiracMatrix[li4], DiracMatrix[li5], ChiralityProjector[-1] ][di2,di1], DiracObject[DiracMatrix[li4], DiracMatrix[li5], ChiralityProjector[+1] ][di1,di2], DiracObject[DiracMatrix[li4], DiracMatrix[li5], ChiralityProjector[+1] ][di2,di1], DiracObject[DiracMatrix[li5], DiracMatrix[li4], ChiralityProjector[-1] ][di1,di2], DiracObject[DiracMatrix[li5], DiracMatrix[li4], ChiralityProjector[-1] ][di2,di1], DiracObject[DiracMatrix[li5], DiracMatrix[li4], ChiralityProjector[+1] ][di1,di2], DiracObject[DiracMatrix[li5], DiracMatrix[li4], ChiralityProjector[+1] ][di2,di1]}, + + (* FFV *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 V[j3, mom3, {li3}] ] == +G[-1][s1 F[j1], s2 F[j2], s3 V[j3]].{DiracObject[DiracMatrix[li3], ChiralityProjector[-1] ][di1,di2], DiracObject[DiracMatrix[li3], ChiralityProjector[-1] ][di2,di1], DiracObject[DiracMatrix[li3], ChiralityProjector[+1] ][di1,di2], DiracObject[DiracMatrix[li3], ChiralityProjector[+1] ][di2,di1], DiracObject[DiracMatrix[li3], DiracSlash[mom3 ], ChiralityProjector[-1] ][di1,di2], DiracObject[DiracMatrix[li3], DiracSlash[mom3 ], ChiralityProjector[-1] ][di2,di1], DiracObject[DiracMatrix[li3], DiracSlash[mom3 ], ChiralityProjector[+1] ][di1,di2], DiracObject[DiracMatrix[li3], DiracSlash[mom3 ], ChiralityProjector[+1] ][di2,di1], DiracObject[DiracSlash[mom3 ], DiracMatrix[li3], ChiralityProjector[-1] ][di1,di2], DiracObject[DiracSlash[mom3 ], DiracMatrix[li3], ChiralityProjector[-1] ][di2,di1], DiracObject[DiracSlash[mom3 ], DiracMatrix[li3], ChiralityProjector[+1] ][di1,di2], DiracObject[DiracSlash[mom3 ], DiracMatrix[li3], ChiralityProjector[+1] ][di2,di1]}, + + (* FFVV *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 V[j3, mom3, {li3}], s4 V[j4, mom4, {li4}] ] == +G[-1][s1 F[j1], s2 F[j2], s3 V[j3], s4 V[j4]].{DiracObject[DiracMatrix[li3], DiracMatrix[li4], ChiralityProjector[-1] ][di1,di2], DiracObject[DiracMatrix[li3], DiracMatrix[li4], ChiralityProjector[-1] ][di2,di1], DiracObject[DiracMatrix[li3], DiracMatrix[li4], ChiralityProjector[+1] ][di1,di2], DiracObject[DiracMatrix[li3], DiracMatrix[li4], ChiralityProjector[+1] ][di2,di1], DiracObject[DiracMatrix[li4], DiracMatrix[li3], ChiralityProjector[-1] ][di1,di2], DiracObject[DiracMatrix[li4], DiracMatrix[li3], ChiralityProjector[-1] ][di2,di1], DiracObject[DiracMatrix[li4], DiracMatrix[li3], ChiralityProjector[+1] ][di1,di2], DiracObject[DiracMatrix[li4], DiracMatrix[li3], ChiralityProjector[+1] ][di2,di1]}, + + (* SSS *) + +AnalyticalCoupling[s1 S[j1, mom1], s2 S[j2, mom2], s3 S[j3, mom3] ] == +G[+1][s1 S[j1], s2 S[j2], s3 S[j3]].{1}, + + (* SSSS *) + +AnalyticalCoupling[s1 S[j1, mom1], s2 S[j2, mom2], s3 S[j3, mom3], s4 S[j4, mom4] ] == +G[+1][s1 S[j1], s2 S[j2], s3 S[j3], s4 S[j4]].{1}, + + (* SSVV *) + +AnalyticalCoupling[s1 S[j1, mom1], s2 S[j2, mom2], s3 V[j3, mom3, {li3}], s4 V[j4, mom4, {li4}] ] == +G[+1][s1 S[j1], s2 S[j2], s3 V[j3], s4 V[j4]].{MetricTensor[li3 ,li4 ]}, + + (* SVV *) + +AnalyticalCoupling[s1 S[j1, mom1], s2 V[j2, mom2, {li2}], s3 V[j3, mom3, {li3}] ] == +G[+1][s1 S[j1], s2 V[j2], s3 V[j3]].{MetricTensor[li2 ,li3 ]}, + + (* VVV *) + +AnalyticalCoupling[s1 V[j1, mom1, {li1}], s2 V[j2, mom2, {li2}], s3 V[j3, mom3, {li3}] ] == +G[+1][s1 V[j1], s2 V[j2], s3 V[j3]].{FourVector[mom1, li3]MetricTensor[li1 ,li2 ], FourVector[mom2, li3]MetricTensor[li1 ,li2 ], FourVector[mom1, li2]MetricTensor[li1 ,li3 ], FourVector[mom3, li2]MetricTensor[li1 ,li3 ], FourVector[mom2, li1]MetricTensor[li2 ,li3 ], FourVector[mom3, li1]MetricTensor[li2 ,li3 ]}, + + (* VVVV *) + +AnalyticalCoupling[s1 V[j1, mom1, {li1}], s2 V[j2, mom2, {li2}], s3 V[j3, mom3, {li3}], s4 V[j4, mom4, {li4}] ] == +G[+1][s1 V[j1], s2 V[j2], s3 V[j3], s4 V[j4]].{MetricTensor[li1 ,li4 ]MetricTensor[li2 ,li3 ], MetricTensor[li1 ,li3 ]MetricTensor[li2 ,li4 ], MetricTensor[li1 ,li2 ]MetricTensor[li3 ,li4 ]} +} + +(* FlippingRules: the flipping rules determines how Dirac + objects change when the order of fermion fields in the + coupling is reversed. In other words, it defines how the + coupling C[F, -F, ...] is derived from C[-F, F, ...].*) + +M$FlippingRules = { +} + + (* TruncationRules: rule for omitting the wave functions of + external Propagators defined in this file. *) + +M$TruncationRules = { + _PolarizationVector -> 1, + _DiracSpinor -> 1, + _MajoranaSpinor -> 1 +} + (* LastGenericRules: the very last rules that are applied to an + amplitude before it is returned by CreateFeynAmp. *) + +M$LastGenericRules = { + PolarizationVector[p_, _. mom:FourMomentum[Outgoing, _], li_] :> + Conjugate[PolarizationVector][p, mom, li] +} + (* cosmetics: *) + + (* left spinor in chain + mom incoming -> ar v + left spinor in chain + mom outgoing -> ar u + right spinor in chain + mom incoming -> u + right spinor in chain + mom outgoing -> v *) +Format[ + FermionChain[ + NonCommutative[_[s1_. mom1_, mass1_]], + r___, + NonCommutative[_[s2_. mom2_, mass2_]]] ] := + Overscript[If[FreeQ[mom1, Incoming], "u", "v"], "_"][mom1, mass1] . + r . If[FreeQ[mom2, Outgoing], "u", "v"][mom2, mass2] + +Format[ DiracSlash ] = "gs" + +Format[ DiracMatrix ] = "ga" + +Format[ ChiralityProjector[1] ] = SequenceForm["om", Subscript["+"]] + +Format[ ChiralityProjector[-1] ] = SequenceForm["om", Subscript["-"]] + +Format[ GaugeXi[a_] ] := SequenceForm["xi", Subscript[a]] + +Format[ PolarizationVector ] = "ep" + +Unprotect[Conjugate]; +Format[ Conjugate[a_] ] = SequenceForm[a, Superscript["*"]]; +Protect[Conjugate] + +Format[ MetricTensor ] = "g" + +Format[ ScalarProduct[a__] ] := Dot[a] + +Format[ FourVector[a_, b_] ] := a[b] + diff --git a/code/notebooks/FormCalc/tt/dim_6_c6_c8c.mod b/code/notebooks/FormCalc/tt/dim_6_c6_c8c.mod new file mode 100644 index 000000000..6fc761414 --- /dev/null +++ b/code/notebooks/FormCalc/tt/dim_6_c6_c8c.mod @@ -0,0 +1,671 @@ +(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) +(* *) +(* This file has been automatically generated by FeynRules. *) +(* *) +(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) + + +FR$ModelInformation={ + ModelName->"SMEFTsim", + Authors -> {"I. Brivio"}, + Version -> "3.0.1", + Date -> "January 2021", + Institutions -> {"ITP, Universitat Heidelberg"}, + Emails -> {"brivio@thphys.uni-heidelberg.de"}, + References -> {"arXiv:1709.06492", "arXiv:2012.11343"}, + URLs -> {"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT", "https://SMEFTsim.github.io"}}; + +FR$ClassesTranslation={}; + +FR$InteractionOrderPerturbativeExpansion={{QCD, 0}, {QED, 0}, {SMHLOOP, 0}, {NP, 0}, {NPshifts, 0}, {NPprop, 0}, {NPcpv, 0}, {NPcbb, 0}, {NPcbB, 0}, {NPcbBB, 0}, {NPcbd1, 0}, {NPcbd8, 0}, {NPcbe, 0}, {NPcbG, 0}, {NPcbH, 0}, {NPcbj1, 0}, {NPcbj8, 0}, {NPcbl, 0}, {NPcbu1, 0}, {NPcbu8, 0}, {NPcbW, 0}, {NPcdB, 0}, {NPcdd1, 0}, {NPcdd8, 0}, {NPcdG, 0}, {NPcdH, 0}, {NPcdW, 0}, {NPceB, 0}, {NPced, 0}, {NPcee, 0}, {NPceH, 0}, {NPceu, 0}, {NPceW, 0}, {NPcG, 0}, {NPcGtil, 0}, {NPcH, 0}, {NPcHB, 0}, {NPcHbox, 0}, {NPcHbq, 0}, {NPcHBtil, 0}, {NPcHd, 0}, {NPcHDD, 0}, {NPcHe, 0}, {NPcHG, 0}, {NPcHGtil, 0}, {NPcHj1, 0}, {NPcHj3, 0}, {NPcHl1, 0}, {NPcHl3, 0}, {NPcHQ1, 0}, {NPcHQ3, 0}, {NPcHt, 0}, {NPcHtb, 0}, {NPcHu, 0}, {NPcHud, 0}, {NPcHW, 0}, {NPcHWB, 0}, {NPcHWBtil, 0}, {NPcHWtil, 0}, {NPcjd1, 0}, {NPcjd8, 0}, {NPcje, 0}, {NPcjj11, 0}, {NPcjj18, 0}, {NPcjj31, 0}, {NPcjj38, 0}, {NPcjQbd1, 0}, {NPcjQbd8, 0}, {NPcjQtu1, 0}, {NPcjQtu8, 0}, {NPcjtQd1, 0}, {NPcjtQd8, 0}, {NPcju1, 0}, {NPcju8, 0}, {NPcjujd1, 0}, {NPcjujd11, 0}, {NPcjujd8, 0}, {NPcjujd81, 0}, {NPcjuQb1, 0}, {NPcjuQb8, 0}, {NPcld, 0}, {NPcle, 0}, {NPclebQ, 0}, {NPcledj, 0}, {NPcleju1, 0}, {NPcleju3, 0}, {NPcleQt1, 0}, {NPcleQt3, 0}, {NPclj1, 0}, {NPclj3, 0}, {NPcll, 0}, {NPcll1, 0}, {NPclu, 0}, {NPcQb1, 0}, {NPcQb8, 0}, {NPcQd1, 0}, {NPcQd8, 0}, {NPcQe, 0}, {NPcQj11, 0}, {NPcQj18, 0}, {NPcQj31, 0}, {NPcQj38, 0}, {NPcQl1, 0}, {NPcQl3, 0}, {NPcQQ1, 0}, {NPcQQ8, 0}, {NPcQt1, 0}, {NPcQt8, 0}, {NPcQtjd1, 0}, {NPcQtjd8, 0}, {NPcQtQb1, 0}, {NPcQtQb8, 0}, {NPcQu1, 0}, {NPcQu8, 0}, {NPcQujb1, 0}, {NPcQujb8, 0}, {NPctB, 0}, {NPctb1, 0}, {NPctb8, 0}, {NPctd1, 0}, {NPctd8, 0}, {NPcte, 0}, {NPctG, 0}, {NPctH, 0}, {NPctj1, 0}, {NPctj8, 0}, {NPctl, 0}, {NPctt, 0}, {NPctu1, 0}, {NPctu8, 0}, {NPctW, 0}, {NPcuB, 0}, {NPcud1, 0}, {NPcud8, 0}, {NPcuG, 0}, {NPcuH, 0}, {NPcutbd1, 0}, {NPcutbd8, 0}, {NPcuu1, 0}, {NPcuu8, 0}, {NPcuW, 0}, {NPcW, 0}, {NPcWtil, 0}, {NPQjujb8, 0}}; + +FR$GoldstoneList={S[2], S[3]}; + +(* Declared indices *) + +IndexRange[ Index[Gluon] ] = NoUnfold[ Range[ 8 ] ] + +IndexRange[ Index[SU2W] ] = Range[ 3 ] + +IndexRange[ Index[Generation] ] = Range[ 3 ] + +IndexRange[ Index[Generation2] ] = Range[ 2 ] + +IndexRange[ Index[Colour] ] = NoUnfold[ Range[ 3 ] ] + +IndexRange[ Index[SU2D] ] = Range[ 2 ] + +(* Declared particles *) + +M$ClassesDescription = { +V[1] == { + SelfConjugate -> True, + PropagatorLabel -> "a", + PropagatorType -> Sine, + PropagatorArrow -> None, + Mass -> 0, + Indices -> {} }, + +V[2] == { + SelfConjugate -> True, + PropagatorLabel -> "Z", + PropagatorType -> Sine, + PropagatorArrow -> None, + Mass -> MZ, + Indices -> {} }, + +V[3] == { + SelfConjugate -> False, + QuantumNumbers -> {Q}, + PropagatorLabel -> "W", + PropagatorType -> Sine, + PropagatorArrow -> Forward, + Mass -> MW, + Indices -> {} }, + +V[4] == { + SelfConjugate -> True, + Indices -> {Index[Gluon]}, + PropagatorLabel -> "G", + PropagatorType -> Cycles, + PropagatorArrow -> None, + Mass -> 0 }, + +U[1] == { + SelfConjugate -> False, + QuantumNumbers -> {GhostNumber}, + PropagatorLabel -> "uA", + PropagatorType -> GhostDash, + PropagatorArrow -> Forward, + Mass -> 0, + Indices -> {} }, + +U[2] == { + SelfConjugate -> False, + QuantumNumbers -> {GhostNumber}, + PropagatorLabel -> "uZ", + PropagatorType -> GhostDash, + PropagatorArrow -> Forward, + Mass -> MZ, + Indices -> {} }, + +U[31] == { + SelfConjugate -> False, + QuantumNumbers -> {GhostNumber, Q}, + PropagatorLabel -> "uWp", + PropagatorType -> GhostDash, + PropagatorArrow -> Forward, + Mass -> MW, + Indices -> {} }, + +U[32] == { + SelfConjugate -> False, + QuantumNumbers -> {GhostNumber, -Q}, + PropagatorLabel -> "uWm", + PropagatorType -> GhostDash, + PropagatorArrow -> Forward, + Mass -> MW, + Indices -> {} }, + +U[4] == { + SelfConjugate -> False, + Indices -> {Index[Gluon]}, + QuantumNumbers -> {GhostNumber}, + PropagatorLabel -> "uG", + PropagatorType -> GhostDash, + PropagatorArrow -> Forward, + Mass -> 0 }, + +V[13] == { + SelfConjugate -> True, + PropagatorLabel -> "Superscript[Z,,]", + PropagatorType -> Sine, + PropagatorArrow -> None, + Mass -> MZ1, + Indices -> {} }, + +V[14] == { + SelfConjugate -> False, + QuantumNumbers -> {Q}, + PropagatorLabel -> "Superscript[W,,]", + PropagatorType -> Sine, + PropagatorArrow -> Forward, + Mass -> MW1, + Indices -> {} }, + +F[1] == { + Indices -> {Index[Generation]}, + SelfConjugate -> False, + QuantumNumbers -> {LeptonNumber}, + PropagatorLabel -> "v", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> 0 }, + +F[2] == { + Indices -> {Index[Generation]}, + SelfConjugate -> False, + QuantumNumbers -> {-Q, LeptonNumber}, + PropagatorLabel -> "l", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> Ml }, + +F[3] == { + Indices -> {Index[Generation2], Index[Colour]}, + SelfConjugate -> False, + QuantumNumbers -> {(2*Q)/3}, + PropagatorLabel -> "uq", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> Mu }, + +F[30] == { + Indices -> {Index[Colour]}, + SelfConjugate -> False, + QuantumNumbers -> {(2*Q)/3}, + PropagatorLabel -> "t", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> MT }, + +F[4] == { + Indices -> {Index[Generation2], Index[Colour]}, + SelfConjugate -> False, + QuantumNumbers -> {-Q/3}, + PropagatorLabel -> "dq", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> Md }, + +F[40] == { + Indices -> {Index[Colour]}, + SelfConjugate -> False, + QuantumNumbers -> {-Q/3}, + PropagatorLabel -> "b", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> MB }, + +F[31] == { + Indices -> {Index[Colour]}, + SelfConjugate -> False, + QuantumNumbers -> {(2*Q)/3}, + PropagatorLabel -> "Superscript[t,,]", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> MT1 }, + +S[1] == { + SelfConjugate -> True, + PropagatorLabel -> "H", + PropagatorType -> ScalarDash, + PropagatorArrow -> None, + Mass -> MH, + Indices -> {} }, + +S[2] == { + SelfConjugate -> True, + PropagatorLabel -> "Go", + PropagatorType -> ScalarDash, + PropagatorArrow -> None, + Mass -> MZ, + Indices -> {} }, + +S[3] == { + SelfConjugate -> False, + QuantumNumbers -> {Q}, + PropagatorLabel -> "GP", + PropagatorType -> ScalarDash, + PropagatorArrow -> None, + Mass -> MW, + Indices -> {} }, + +S[4] == { + SelfConjugate -> True, + PropagatorLabel -> "Superscript[H,,]", + PropagatorType -> ScalarDash, + PropagatorArrow -> None, + Mass -> MH1, + Indices -> {} } +} + + +(* Definitions *) + +GaugeXi[ V[1] ] = GaugeXi[A]; +GaugeXi[ V[2] ] = GaugeXi[Z]; +GaugeXi[ V[3] ] = GaugeXi[W]; +GaugeXi[ V[4] ] = GaugeXi[G]; +GaugeXi[ U[1] ] = GaugeXi[A]; +GaugeXi[ U[2] ] = GaugeXi[Z]; +GaugeXi[ U[31] ] = GaugeXi[W]; +GaugeXi[ U[32] ] = GaugeXi[W]; +GaugeXi[ U[4] ] = GaugeXi[G]; +GaugeXi[ S[1] ] = 1; +GaugeXi[ S[2] ] = GaugeXi[Z]; +GaugeXi[ S[3] ] = GaugeXi[W]; + +MZ[ ___ ] := MZ; +MW[ ___ ] := MW; +MZ1[ ___ ] := MZ1; +MW1[ ___ ] := MW1; +Ml[ 1 ] := Me; +Ml[ 2 ] := MMU; +Ml[ 3 ] := MTA; +Mu[ 1, _ ] := MU; +Mu[ 1 ] := MU; +Mu[ 2, _ ] := MC; +Mu[ 2 ] := MC; +MT[ ___ ] := MT; +Md[ 1, _ ] := MD; +Md[ 1 ] := MD; +Md[ 2, _ ] := MS; +Md[ 2 ] := MS; +MB[ ___ ] := MB; +MT1[ ___ ] := MT1; +MH[ ___ ] := MH; +MH1[ ___ ] := MH1; + + +TheLabel[ V[4, {__}] ] := TheLabel[V[4]]; +TheLabel[ U[4, {__}] ] := TheLabel[U[4]]; +TheLabel[ F[1, {1}] ] := "ve"; +TheLabel[ F[1, {2}] ] := "vm"; +TheLabel[ F[1, {3}] ] := "vt"; +TheLabel[ F[2, {1}] ] := "e"; +TheLabel[ F[2, {2}] ] := "mu"; +TheLabel[ F[2, {3}] ] := "ta"; +TheLabel[ F[3, {1, _}] ] := "u"; +TheLabel[ F[3, {1}] ] := "u"; +TheLabel[ F[3, {2, _}] ] := "c"; +TheLabel[ F[3, {2}] ] := "c"; +TheLabel[ F[30, {__}] ] := TheLabel[F[30]]; +TheLabel[ F[4, {1, _}] ] := "d"; +TheLabel[ F[4, {1}] ] := "d"; +TheLabel[ F[4, {2, _}] ] := "s"; +TheLabel[ F[4, {2}] ] := "s"; +TheLabel[ F[40, {__}] ] := TheLabel[F[40]]; +TheLabel[ F[31, {__}] ] := TheLabel[F[31]]; + + +(* Couplings (calculated by FeynRules) *) + +M$CouplingMatrices = { + +C[ S[1] , S[1] , S[1] , S[1] ] == {{((6*I)*lam*(-1 + sth)*(1 + sth))/cth^2, 0}}, + +C[ S[1] , S[1] , S[1] ] == {{((6*I)*lam*(-1 + sth)*(1 + sth)*vevhat)/cth^2, 0}}, + +C[ V[4, {e1x2}] , V[4, {e2x2}] , V[4, {e3x2}] ] == {{-(gc3*SUNF[e1x2, e2x2, e3x2]), 0}, {gc3*SUNF[e1x2, e2x2, e3x2], 0}, {gc3*SUNF[e1x2, e2x2, e3x2], 0}, {-(gc3*SUNF[e1x2, e2x2, e3x2]), 0}, {-(gc3*SUNF[e1x2, e2x2, e3x2]), 0}, {gc3*SUNF[e1x2, e2x2, e3x2], 0}}, + +C[ V[4, {e1x2}] , V[4, {e2x2}] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{(-I)*gc4*(SUNF[e1x2, e2x2, e3x2, e4x2] + SUNF[e1x2, e3x2, e2x2, e4x2]), 0}, {I*gc4*(SUNF[e1x2, e2x2, e3x2, e4x2] - SUNF[e1x2, e4x2, e2x2, e3x2]), 0}, {I*gc4*(SUNF[e1x2, e3x2, e2x2, e4x2] + SUNF[e1x2, e4x2, e2x2, e3x2]), 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , V[1] ] == {{I*gc5*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {I*gc5*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(3*gc5*(-(cbBIm*cth) - I*cbBRe*cth + (cbWIm + I*cbWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc5*(cbBIm*cth - I*cbBRe*cth - cbWIm*sth + I*cbWRe*sth)*vevhat*IndexDelta[e1x2, e2x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc5*(cbBIm*cth + I*cbBRe*cth - cbWIm*sth - I*cbWRe*sth)*vevhat*IndexDelta[e1x2, e2x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc5*(-(cbBIm*cth) + I*cbBRe*cth + (cbWIm - I*cbWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[1] ] == {{I*gc6*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {I*gc6*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {(3*gc6*(-(cdBIm*cth) - I*cdBRe*cth + (cdWIm + I*cdWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc6*(cdBIm*cth - I*cdBRe*cth - cdWIm*sth + I*cdWRe*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc6*(cdBIm*cth + I*cdBRe*cth - cdWIm*sth - I*cdWRe*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc6*(-(cdBIm*cth) + I*cdBRe*cth + (cdWIm - I*cdWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , V[1] ] == {{I*gc7*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {I*gc7*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(gc7*(-(ceBIm*cth) - I*ceBRe*cth + (ceWIm + I*ceWRe)*sth)*vevhat*yl[e1x2, e2x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(gc7*(ceBIm*cth - I*ceBRe*cth - ceWIm*sth + I*ceWRe*sth)*vevhat*yl[e2x2, e1x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(gc7*(ceBIm*cth + I*ceBRe*cth - ceWIm*sth - I*ceWRe*sth)*vevhat*yl[e1x2, e2x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(gc7*(-(ceBIm*cth) + I*ceBRe*cth + (ceWIm - I*ceWRe)*sth)*vevhat*yl[e2x2, e1x2])/(Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , V[1] ] == {{I*gc8*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {I*gc8*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(3*gc8*(ctBIm*cth + I*ctBRe*cth + (ctWIm + I*ctWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(2*Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(-3*gc8*(ctBIm*cth - I*ctBRe*cth + (ctWIm - I*ctWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(2*Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(-3*gc8*(ctBIm*cth + I*ctBRe*cth + (ctWIm + I*ctWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(2*Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc8*(ctBIm*cth - I*ctBRe*cth + (ctWIm - I*ctWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(2*Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[1] ] == {{I*gc9*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {I*gc9*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {(3*gc9*(cth*(cuBIm + I*cuBRe) + (cuWIm + I*cuWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(2*Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(-3*gc9*(cth*(cuBIm - I*cuBRe) + (cuWIm - I*cuWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(2*Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(-3*gc9*(cth*(cuBIm + I*cuBRe) + (cuWIm + I*cuWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(2*Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc9*(cth*(cuBIm - I*cuBRe) + (cuWIm - I*cuWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(2*Sqrt[2]*EL*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] ] == {{I*gc10*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {I*gc10*IndexDelta[e1x2, e2x2], 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] ] == {{I*gc11*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {I*gc11*IndexDelta[e1x2, e2x2], 0}, {0, 0}}, + +C[ V[1] , V[3] , -V[3] ] == {{(-I)*gc12, 0}, {I*gc12, 0}, {I*gc12, 0}, {(-I)*gc12, 0}, {(-I)*gc12, 0}, {I*gc12, 0}}, + +C[ S[1] , S[1] , V[3] , -V[3] ] == {{((-I/2)*EL^2*(-1 + sth)*(1 + sth))/(cth^2*sth^2), 0}}, + +C[ S[1] , V[3] , -V[3] ] == {{((-I/2)*EL^2*(-1 + sth)*(1 + sth)*vevhat)/(cth^2*sth^2), 0}}, + +C[ V[1] , V[1] , V[3] , -V[3] ] == {{(-I)*gc15, 0}, {(-I)*gc15, 0}, {(2*I)*gc15, 0}}, + +C[ V[3] , -V[3] , V[2] ] == {{(-I)*gc16, 0}, {I*gc16, 0}, {I*gc16, 0}, {(-I)*gc16, 0}, {(-I)*gc16, 0}, {I*gc16, 0}}, + +C[ V[3] , V[3] , -V[3] , -V[3] ] == {{(-I)*gc17, 0}, {(-I)*gc17, 0}, {(2*I)*gc17, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] ] == {{I*gc18[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {(I*gc18[e1x2, e2x2]*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/ydtop[e1x2, e2x2], 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , S[1] ] == {{I*gc19[e1x2, e2x2], 0}, {0, 0}, {(I*gc19[e1x2, e2x2]*yl[e2x2, e1x2])/yl[e1x2, e2x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] ] == {{I*gc20[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {(I*gc20[e1x2, e2x2]*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/yutop[e1x2, e2x2], 0}, {0, 0}}, + +C[ V[1] , V[3] , -V[3] , V[2] ] == {{(-2*I)*gc21, 0}, {I*gc21, 0}, {I*gc21, 0}}, + +C[ S[1] , S[1] , V[2] , V[2] ] == {{((I/2)*EL^2)/(cth^2*sth^2), 0}}, + +C[ S[1] , V[2] , V[2] ] == {{((I/2)*EL^2*vevhat)/(cth^2*sth^2), 0}}, + +C[ V[3] , -V[3] , V[2] , V[2] ] == {{(-I)*gc24, 0}, {(-I)*gc24, 0}, {(2*I)*gc24, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , V[4, {e3x2}] ] == {{I*gc25*SUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {I*gc25*SUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {((cbGIm + I*cbGRe)*gc25*vevhat*SUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2), 0}, {0, 0}, {-(((cbGIm - I*cbGRe)*gc25*vevhat*SUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2)), 0}, {0, 0}, {-(((cbGIm + I*cbGRe)*gc25*vevhat*SUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2)), 0}, {0, 0}, {((cbGIm - I*cbGRe)*gc25*vevhat*SUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[4, {e3x2}] ] == {{I*gc26*IndexDelta[e1x2, e2x2]*SUNT[e3x2, e1x3, e2x3], 0}, {0, 0}, {I*gc26*IndexDelta[e1x2, e2x2]*SUNT[e3x2, e1x3, e2x3], 0}, {0, 0}, {((cdGIm + I*cdGRe)*gc26*vevhat*SUNT[e3x2, e1x3, e2x3]*ydtop[e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2), 0}, {0, 0}, {-(((cdGIm - I*cdGRe)*gc26*vevhat*SUNT[e3x2, e1x3, e2x3]*ydtop[e2x2, e1x2])/(Sqrt[2]*GS*LambdaSMEFT^2)), 0}, {0, 0}, {-(((cdGIm + I*cdGRe)*gc26*vevhat*SUNT[e3x2, e1x3, e2x3]*ydtop[e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2)), 0}, {0, 0}, {((cdGIm - I*cdGRe)*gc26*vevhat*SUNT[e3x2, e1x3, e2x3]*ydtop[e2x2, e1x2])/(Sqrt[2]*GS*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , V[4, {e3x2}] ] == {{I*gc27*SUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {I*gc27*SUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {((ctGIm + I*ctGRe)*gc27*vevhat*SUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2), 0}, {0, 0}, {-(((ctGIm - I*ctGRe)*gc27*vevhat*SUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2)), 0}, {0, 0}, {-(((ctGIm + I*ctGRe)*gc27*vevhat*SUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2)), 0}, {0, 0}, {((ctGIm - I*ctGRe)*gc27*vevhat*SUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[4, {e3x2}] ] == {{I*gc28*IndexDelta[e1x2, e2x2]*SUNT[e3x2, e1x3, e2x3], 0}, {0, 0}, {I*gc28*IndexDelta[e1x2, e2x2]*SUNT[e3x2, e1x3, e2x3], 0}, {0, 0}, {((cuGIm + I*cuGRe)*gc28*vevhat*SUNT[e3x2, e1x3, e2x3]*yutop[e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2), 0}, {0, 0}, {-(((cuGIm - I*cuGRe)*gc28*vevhat*SUNT[e3x2, e1x3, e2x3]*yutop[e2x2, e1x2])/(Sqrt[2]*GS*LambdaSMEFT^2)), 0}, {0, 0}, {-(((cuGIm + I*cuGRe)*gc28*vevhat*SUNT[e3x2, e1x3, e2x3]*yutop[e1x2, e2x2])/(Sqrt[2]*GS*LambdaSMEFT^2)), 0}, {0, 0}, {((cuGIm - I*cuGRe)*gc28*vevhat*SUNT[e3x2, e1x3, e2x3]*yutop[e2x2, e1x2])/(Sqrt[2]*GS*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , V[3] ] == {{I*gc29*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(ctWIm + I*ctWRe)*gc29*sth*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2), 0}, {0, 0}, {-((Sqrt[2]*(cbWIm - I*cbWRe)*gc29*sth*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2)), 0}, {0, 0}, {-((Sqrt[2]*(ctWIm + I*ctWRe)*gc29*sth*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2)), 0}, {0, 0}, {(Sqrt[2]*(cbWIm - I*cbWRe)*gc29*sth*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[3] ] == {{I*gc30*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(cuWIm + I*cuWRe)*gc30*sth*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(EL*LambdaSMEFT^2), 0}, {0, 0}, {-((Sqrt[2]*(cdWIm - I*cdWRe)*gc30*sth*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(EL*LambdaSMEFT^2)), 0}, {0, 0}, {-((Sqrt[2]*(cuWIm + I*cuWRe)*gc30*sth*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(EL*LambdaSMEFT^2)), 0}, {0, 0}, {(Sqrt[2]*(cdWIm - I*cdWRe)*gc30*sth*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(EL*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , V[3] ] == {{I*gc31*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {-((Sqrt[2]*(ceWIm - I*ceWRe)*gc31*sth*vevhat*yl[e2x2, e1x2])/(EL*LambdaSMEFT^2)), 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(ceWIm - I*ceWRe)*gc31*sth*vevhat*yl[e2x2, e1x2])/(EL*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , -V[3] ] == {{I*gc32*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(cbWIm + I*cbWRe)*gc32*sth*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2), 0}, {0, 0}, {-((Sqrt[2]*(ctWIm - I*ctWRe)*gc32*sth*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2)), 0}, {0, 0}, {-((Sqrt[2]*(cbWIm + I*cbWRe)*gc32*sth*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2)), 0}, {0, 0}, {(Sqrt[2]*(ctWIm - I*ctWRe)*gc32*sth*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , -V[3] ] == {{I*gc33*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(cdWIm + I*cdWRe)*gc33*sth*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(EL*LambdaSMEFT^2), 0}, {0, 0}, {-((Sqrt[2]*(cuWIm - I*cuWRe)*gc33*sth*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(EL*LambdaSMEFT^2)), 0}, {0, 0}, {-((Sqrt[2]*(cdWIm + I*cdWRe)*gc33*sth*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(EL*LambdaSMEFT^2)), 0}, {0, 0}, {(Sqrt[2]*(cuWIm - I*cuWRe)*gc33*sth*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(EL*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , -V[3] ] == {{I*gc34*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(ceWIm + I*ceWRe)*gc34*sth*vevhat*yl[e1x2, e2x2])/(EL*LambdaSMEFT^2), 0}, {0, 0}, {0, 0}, {0, 0}, {-((Sqrt[2]*(ceWIm + I*ceWRe)*gc34*sth*vevhat*yl[e1x2, e2x2])/(EL*LambdaSMEFT^2)), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , V[2] ] == {{I*gc35*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {((2*I)*gc35*sth^2*IndexDelta[e1x2, e2x2])/(-3 + 2*sth^2), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc35*sth*(cbWIm*cth + I*cbWRe*cth + (cbBIm + I*cbBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc35*sth*(cbWIm*cth - I*cbWRe*cth + (cbBIm - I*cbBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc35*sth*(cbWIm*cth + I*cbWRe*cth + (cbBIm + I*cbBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc35*sth*(cbWIm*cth - I*cbWRe*cth + (cbBIm - I*cbBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[2] ] == {{I*gc36*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {((2*I)*gc36*sth^2*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3])/(-3 + 2*sth^2), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc36*sth*(cdWIm*cth + I*cdWRe*cth + (cdBIm + I*cdBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc36*sth*(cdWIm*cth - I*cdWRe*cth + (cdBIm - I*cdBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(EL*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc36*sth*(cdWIm*cth + I*cdWRe*cth + (cdBIm + I*cdBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc36*sth*(cdWIm*cth - I*cdWRe*cth + (cdBIm - I*cdBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(EL*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , V[2] ] == {{I*gc37*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {((2*I)*gc37*sth^2*IndexDelta[e1x2, e2x2])/(-1 + 2*sth^2), 0}, {0, 0}, {-((Sqrt[2]*cth*gc37*sth*(ceWIm*cth + I*ceWRe*cth + (ceBIm + I*ceBRe)*sth)*vevhat*yl[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-1 + 2*sth^2))), 0}, {0, 0}, {(Sqrt[2]*cth*gc37*sth*(ceWIm*cth - I*ceWRe*cth + (ceBIm - I*ceBRe)*sth)*vevhat*yl[e2x2, e1x2])/(EL*LambdaSMEFT^2*(-1 + 2*sth^2)), 0}, {0, 0}, {(Sqrt[2]*cth*gc37*sth*(ceWIm*cth + I*ceWRe*cth + (ceBIm + I*ceBRe)*sth)*vevhat*yl[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-1 + 2*sth^2)), 0}, {0, 0}, {-((Sqrt[2]*cth*gc37*sth*(ceWIm*cth - I*ceWRe*cth + (ceBIm - I*ceBRe)*sth)*vevhat*yl[e2x2, e1x2])/(EL*LambdaSMEFT^2*(-1 + 2*sth^2))), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , V[2] ] == {{I*gc38*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {((4*I)*gc38*sth^2*IndexDelta[e1x2, e2x2])/(-3 + 4*sth^2), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc38*sth*(cth*(ctWIm + I*ctWRe) - (ctBIm + I*ctBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc38*sth*(cth*ctWIm - I*cth*ctWRe - ctBIm*sth + I*ctBRe*sth)*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc38*sth*(cth*(ctWIm + I*ctWRe) - (ctBIm + I*ctBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc38*sth*(cth*ctWIm - I*cth*ctWRe - ctBIm*sth + I*ctBRe*sth)*vevhat*IndexDelta[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[2] ] == {{I*gc39*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {((4*I)*gc39*sth^2*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3])/(-3 + 4*sth^2), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc39*sth*(cth*(cuWIm + I*cuWRe) - (cuBIm + I*cuBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc39*sth*(cth*cuWIm - I*cth*cuWRe - cuBIm*sth + I*cuBRe*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(EL*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc39*sth*(cth*(cuWIm + I*cuWRe) - (cuBIm + I*cuBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(EL*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc39*sth*(cth*cuWIm - I*cth*cuWRe - cuBIm*sth + I*cuBRe*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(EL*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[1, {e2x2}] , V[2] ] == {{I*gc40*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] , V[1] ] == {{gc41*(-(cbBIm*cth) - I*cbBRe*cth + (cbWIm + I*cbWRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc41*(cbBIm*cth - I*cbBRe*cth - cbWIm*sth + I*cbWRe*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc41*(cbBIm*cth + I*cbBRe*cth - cbWIm*sth - I*cbWRe*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc41*(-(cbBIm*cth) + I*cbBRe*cth + (cbWIm - I*cbWRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] , V[2] ] == {{-(gc42*(cbWIm*cth + I*cbWRe*cth + (cbBIm + I*cbBRe)*sth)*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {gc42*(cbWIm*cth - I*cbWRe*cth + (cbBIm - I*cbBRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc42*(cbWIm*cth + I*cbWRe*cth + (cbBIm + I*cbBRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-(gc42*(cbWIm*cth - I*cbWRe*cth + (cbBIm - I*cbBRe)*sth)*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , S[1] , V[1] ] == {{gc43*(ceBIm*cth + I*ceBRe*cth - ceWIm*sth - I*ceWRe*sth)*yl[e1x2, e2x2], 0}, {0, 0}, {gc43*(-(ceBIm*cth) + I*ceBRe*cth + (ceWIm - I*ceWRe)*sth)*yl[e2x2, e1x2], 0}, {0, 0}, {gc43*(-(ceBIm*cth) - I*ceBRe*cth + (ceWIm + I*ceWRe)*sth)*yl[e1x2, e2x2], 0}, {0, 0}, {gc43*(ceBIm*cth - I*ceBRe*cth - ceWIm*sth + I*ceWRe*sth)*yl[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , S[1] , V[2] ] == {{gc44*(ceWIm*cth + I*ceWRe*cth + (ceBIm + I*ceBRe)*sth)*yl[e1x2, e2x2], 0}, {0, 0}, {-(gc44*(ceWIm*cth - I*ceWRe*cth + (ceBIm - I*ceBRe)*sth)*yl[e2x2, e1x2]), 0}, {0, 0}, {-(gc44*(ceWIm*cth + I*ceWRe*cth + (ceBIm + I*ceBRe)*sth)*yl[e1x2, e2x2]), 0}, {0, 0}, {gc44*(ceWIm*cth - I*ceWRe*cth + (ceBIm - I*ceBRe)*sth)*yl[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] , V[1] ] == {{-(gc45*(ctBIm*cth + I*ctBRe*cth + (ctWIm + I*ctWRe)*sth)*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {gc45*(ctBIm*cth - I*ctBRe*cth + (ctWIm - I*ctWRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc45*(ctBIm*cth + I*ctBRe*cth + (ctWIm + I*ctWRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-(gc45*(ctBIm*cth - I*ctBRe*cth + (ctWIm - I*ctWRe)*sth)*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] , V[2] ] == {{gc46*(cth*(ctWIm + I*ctWRe) - (ctBIm + I*ctBRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc46*(-(cth*ctWIm) + I*cth*ctWRe + ctBIm*sth - I*ctBRe*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc46*(-(cth*(ctWIm + I*ctWRe)) + (ctBIm + I*ctBRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc46*(cth*ctWIm - I*cth*ctWRe - ctBIm*sth + I*ctBRe*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] , V[4, {e3x2}] ] == {{-((cbGIm + I*cbGRe)*gc47*SUNT[e3x2, e1x2, e2x2]), 0}, {0, 0}, {(cbGIm - I*cbGRe)*gc47*SUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {(cbGIm + I*cbGRe)*gc47*SUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {-((cbGIm - I*cbGRe)*gc47*SUNT[e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{(cbGIm + I*cbGRe)*gc48*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}, {-((cbGIm - I*cbGRe)*gc48*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {-((cbGIm + I*cbGRe)*gc48*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {(cbGIm - I*cbGRe)*gc48*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{(cbGIm + I*cbGRe)*gc49*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}, {-((cbGIm - I*cbGRe)*gc49*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {-((cbGIm + I*cbGRe)*gc49*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {(cbGIm - I*cbGRe)*gc49*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] , V[4, {e3x2}] ] == {{-((ctGIm + I*ctGRe)*gc50*SUNT[e3x2, e1x2, e2x2]), 0}, {0, 0}, {(ctGIm - I*ctGRe)*gc50*SUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {(ctGIm + I*ctGRe)*gc50*SUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {-((ctGIm - I*ctGRe)*gc50*SUNT[e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{(ctGIm + I*ctGRe)*gc51*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}, {-((ctGIm - I*ctGRe)*gc51*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {-((ctGIm + I*ctGRe)*gc51*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {(ctGIm - I*ctGRe)*gc51*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{(ctGIm + I*ctGRe)*gc52*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}, {-((ctGIm - I*ctGRe)*gc52*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {-((ctGIm + I*ctGRe)*gc52*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {(ctGIm - I*ctGRe)*gc52*(SUNT[e3x2, e4x2, e1x2, e2x2] - SUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[1] ] == {{gc53*(cdBIm*cth + I*cdBRe*cth - cdWIm*sth - I*cdWRe*sth)*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {gc53*(-(cdBIm*cth) + I*cdBRe*cth + (cdWIm - I*cdWRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}, {gc53*(-(cdBIm*cth) - I*cdBRe*cth + (cdWIm + I*cdWRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {gc53*(cdBIm*cth - I*cdBRe*cth - cdWIm*sth + I*cdWRe*sth)*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[2] ] == {{gc54*(cdWIm*cth + I*cdWRe*cth + (cdBIm + I*cdBRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-(gc54*(cdWIm*cth - I*cdWRe*cth + (cdBIm - I*cdBRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-(gc54*(cdWIm*cth + I*cdWRe*cth + (cdBIm + I*cdBRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {gc54*(cdWIm*cth - I*cdWRe*cth + (cdBIm - I*cdBRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[4, {e3x2}] ] == {{(cdGIm + I*cdGRe)*gc55*SUNT[e3x2, e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cdGIm - I*cdGRe)*gc55*SUNT[e3x2, e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cdGIm + I*cdGRe)*gc55*SUNT[e3x2, e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cdGIm - I*cdGRe)*gc55*SUNT[e3x2, e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{-((cdGIm + I*cdGRe)*gc56*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cdGIm - I*cdGRe)*gc56*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e2x2, e1x2], 0}, {0, 0}, {(cdGIm + I*cdGRe)*gc56*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cdGIm - I*cdGRe)*gc56*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e2x2, e1x2]), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{-((cdGIm + I*cdGRe)*gc57*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cdGIm - I*cdGRe)*gc57*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e2x2, e1x2], 0}, {0, 0}, {(cdGIm + I*cdGRe)*gc57*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cdGIm - I*cdGRe)*gc57*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e2x2, e1x2]), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[1] ] == {{gc58*(cth*(cuBIm + I*cuBRe) + (cuWIm + I*cuWRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-(gc58*(cth*(cuBIm - I*cuBRe) + (cuWIm - I*cuWRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-(gc58*(cth*(cuBIm + I*cuBRe) + (cuWIm + I*cuWRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {gc58*(cth*(cuBIm - I*cuBRe) + (cuWIm - I*cuWRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[2] ] == {{gc59*(-(cth*(cuWIm + I*cuWRe)) + (cuBIm + I*cuBRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {gc59*(cth*cuWIm - I*cth*cuWRe - cuBIm*sth + I*cuBRe*sth)*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}, {gc59*(cth*(cuWIm + I*cuWRe) - (cuBIm + I*cuBRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {gc59*(-(cth*cuWIm) + I*cth*cuWRe + cuBIm*sth - I*cuBRe*sth)*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[4, {e3x2}] ] == {{(cuGIm + I*cuGRe)*gc60*SUNT[e3x2, e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cuGIm - I*cuGRe)*gc60*SUNT[e3x2, e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cuGIm + I*cuGRe)*gc60*SUNT[e3x2, e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cuGIm - I*cuGRe)*gc60*SUNT[e3x2, e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{-((cuGIm + I*cuGRe)*gc61*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cuGIm - I*cuGRe)*gc61*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e2x2, e1x2], 0}, {0, 0}, {(cuGIm + I*cuGRe)*gc61*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cuGIm - I*cuGRe)*gc61*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e2x2, e1x2]), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{-((cuGIm + I*cuGRe)*gc62*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cuGIm - I*cuGRe)*gc62*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e2x2, e1x2], 0}, {0, 0}, {(cuGIm + I*cuGRe)*gc62*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cuGIm - I*cuGRe)*gc62*(SUNT[e3x2, e4x2, e1x3, e2x3] - SUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e2x2, e1x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , S[1] , -V[3] ] == {{-((cbWIm + I*cbWRe)*gc63*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc63*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc63*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc63*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , S[1] , V[1] , -V[3] ] == {{-((cbWIm + I*cbWRe)*gc64*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc64*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc64*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc64*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , V[1] , -V[3] ] == {{-((cbWIm + I*cbWRe)*gc65*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc65*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc65*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc65*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] , V[3] , -V[3] ] == {{-((cbWIm + I*cbWRe)*gc66*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc66*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc66*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc66*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , V[3] , -V[3] ] == {{-((cbWIm + I*cbWRe)*gc67*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc67*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc67*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc67*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , S[1] , -V[3] , V[2] ] == {{-((cbWIm + I*cbWRe)*gc68*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc68*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc68*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc68*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , -V[3] , V[2] ] == {{-((cbWIm + I*cbWRe)*gc69*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc69*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc69*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc69*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , S[1] , -V[3] ] == {{-(((ceWIm + I*ceWRe)*gc70[e1x2, e2x2])/(ceWIm + ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm + I*ceWRe)*gc70[e1x2, e2x2])/(ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , S[1] , V[1] , -V[3] ] == {{-(((ceWIm + I*ceWRe)*gc71[e1x2, e2x2])/(ceWIm + ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm + I*ceWRe)*gc71[e1x2, e2x2])/(ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , V[1] , -V[3] ] == {{-(((ceWIm + I*ceWRe)*gc72[e1x2, e2x2])/(ceWIm + ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm + I*ceWRe)*gc72[e1x2, e2x2])/(ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , S[1] , V[3] , -V[3] ] == {{(ceWIm + I*ceWRe)*gc73*yl[e1x2, e2x2], 0}, {0, 0}, {-((ceWIm - I*ceWRe)*gc73*yl[e2x2, e1x2]), 0}, {0, 0}, {-((ceWIm + I*ceWRe)*gc73*yl[e1x2, e2x2]), 0}, {0, 0}, {(ceWIm - I*ceWRe)*gc73*yl[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , V[3] , -V[3] ] == {{(ceWIm + I*ceWRe)*gc74*yl[e1x2, e2x2], 0}, {0, 0}, {-((ceWIm - I*ceWRe)*gc74*yl[e2x2, e1x2]), 0}, {0, 0}, {-((ceWIm + I*ceWRe)*gc74*yl[e1x2, e2x2]), 0}, {0, 0}, {(ceWIm - I*ceWRe)*gc74*yl[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , S[1] , -V[3] , V[2] ] == {{-(((ceWIm + I*ceWRe)*gc75[e1x2, e2x2])/(ceWIm + ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm + I*ceWRe)*gc75[e1x2, e2x2])/(ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , -V[3] , V[2] ] == {{-(((ceWIm + I*ceWRe)*gc76[e1x2, e2x2])/(ceWIm + ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm + I*ceWRe)*gc76[e1x2, e2x2])/(ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , S[1] , V[3] ] == {{-((ctWIm + I*ctWRe)*gc77*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc77*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc77*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc77*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , S[1] , V[1] , V[3] ] == {{-((ctWIm + I*ctWRe)*gc78*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc78*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc78*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc78*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , V[1] , V[3] ] == {{-((ctWIm + I*ctWRe)*gc79*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc79*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc79*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc79*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] , V[3] , -V[3] ] == {{-((ctWIm + I*ctWRe)*gc80*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc80*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc80*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc80*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , V[3] , -V[3] ] == {{-((ctWIm + I*ctWRe)*gc81*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc81*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc81*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc81*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , S[1] , V[3] , V[2] ] == {{-((ctWIm + I*ctWRe)*gc82*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc82*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc82*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc82*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , V[3] , V[2] ] == {{-((ctWIm + I*ctWRe)*gc83*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc83*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc83*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc83*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , -V[3] ] == {{(cdWIm + I*cdWRe)*gc84*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc84*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc84*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc84*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[1] , -V[3] ] == {{(cdWIm + I*cdWRe)*gc85*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc85*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc85*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc85*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[1] , -V[3] ] == {{(cdWIm + I*cdWRe)*gc86*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc86*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc86*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc86*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[3] , -V[3] ] == {{(cdWIm + I*cdWRe)*gc87*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc87*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc87*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc87*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[3] , -V[3] ] == {{(cdWIm + I*cdWRe)*gc88*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc88*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc88*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc88*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , -V[3] , V[2] ] == {{(cdWIm + I*cdWRe)*gc89*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc89*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc89*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc89*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , -V[3] , V[2] ] == {{(cdWIm + I*cdWRe)*gc90*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc90*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc90*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc90*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[3] ] == {{(cuWIm + I*cuWRe)*gc91*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc91*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc91*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc91*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[1] , V[3] ] == {{(cuWIm + I*cuWRe)*gc92*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc92*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc92*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc92*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[1] , V[3] ] == {{(cuWIm + I*cuWRe)*gc93*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc93*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc93*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc93*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[3] , -V[3] ] == {{(cuWIm + I*cuWRe)*gc94*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc94*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc94*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc94*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[3] , -V[3] ] == {{(cuWIm + I*cuWRe)*gc95*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc95*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc95*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc95*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[3] , V[2] ] == {{(cuWIm + I*cuWRe)*gc96*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc96*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc96*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc96*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[3] , V[2] ] == {{(cuWIm + I*cuWRe)*gc97*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc97*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc97*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc97*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , S[1] , V[3] ] == {{0, 0}, {0, 0}, {-(((ceWIm - I*ceWRe)*gc98[e1x2, e2x2])/(ceWIm - ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc98[e1x2, e2x2])/(ceWIm - ceWRe), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , S[1] , V[1] , V[3] ] == {{0, 0}, {0, 0}, {-(((ceWIm - I*ceWRe)*gc99[e1x2, e2x2])/(ceWIm - ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc99[e1x2, e2x2])/(ceWIm - ceWRe), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , V[1] , V[3] ] == {{0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc100[e1x2, e2x2])/(-ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc100[e1x2, e2x2])/(ceWIm - ceWRe), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , S[1] , V[3] , V[2] ] == {{0, 0}, {0, 0}, {-(((ceWIm - I*ceWRe)*gc101[e1x2, e2x2])/(ceWIm - ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc101[e1x2, e2x2])/(ceWIm - ceWRe), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , V[3] , V[2] ] == {{0, 0}, {0, 0}, {-(((ceWIm - I*ceWRe)*gc102[e1x2, e2x2])/(ceWIm - ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc102[e1x2, e2x2])/(ceWIm - ceWRe), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[4, {e3x2, e3x3}] , F[40, {e2x2}] , F[4, {e4x2, e4x3}] ] == {{I*gc103*IndexDelta[e3x2, e4x2]*(3*cbj8*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + (6*cbj1 - cbj8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {-(gc103*((6*cjQbd1Im - (6*I)*cjQbd1Re - cjQbd8Im + I*cjQbd8Re)*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + 3*(cjQbd8Im - I*cjQbd8Re)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3])*ydtop[e4x2, e3x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {gc103*((6*cjQbd1Im + (6*I)*cjQbd1Re - cjQbd8Im - I*cjQbd8Re)*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + 3*(cjQbd8Im + I*cjQbd8Re)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3])*ydtop[e3x2, e4x2], 0}, {0, 0}, {I*gc103*IndexDelta[e3x2, e4x2]*(3*cQd8*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + (6*cQd1 - cQd8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[30, {e3x2}] , F[40, {e2x2}] , F[3, {e4x2, e4x3}] ] == {{gc104*(-3*(cjQbd8Im + I*cjQbd8Re)*IndexDelta[e1x3, e4x3]*IndexDelta[e2x2, e3x2] + (-6*cjQbd1Im - (6*I)*cjQbd1Re + cjQbd8Im + I*cjQbd8Re)*IndexDelta[e1x3, e2x2]*IndexDelta[e3x2, e4x3])*ydtop[e1x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {gc104*(3*(cjQtu8Im - I*cjQtu8Re)*IndexDelta[e1x3, e4x3]*IndexDelta[e2x2, e3x2] + (6*cjQtu1Im - (6*I)*cjQtu1Re - cjQtu8Im + I*cjQtu8Re)*IndexDelta[e1x3, e2x2]*IndexDelta[e3x2, e4x3])*yutop[e4x2, e1x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , -F[3, {e3x2, e3x3}] , F[30, {e2x2}] , F[3, {e4x2, e4x3}] ] == {{I*gc105*IndexDelta[e3x2, e4x2]*(3*ctj8*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + (6*ctj1 - ctj8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {-(gc105*((6*cjQtu1Im - (6*I)*cjQtu1Re - cjQtu8Im + I*cjQtu8Re)*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + 3*(cjQtu8Im - I*cjQtu8Re)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3])*yutop[e4x2, e3x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {gc105*((6*cjQtu1Im + (6*I)*cjQtu1Re - cjQtu8Im - I*cjQtu8Re)*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + 3*(cjQtu8Im + I*cjQtu8Re)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3])*yutop[e3x2, e4x2], 0}, {0, 0}, {I*gc105*IndexDelta[e3x2, e4x2]*(3*cQu8*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + (6*cQu1 - cQu8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[3, {e3x2, e3x3}] , F[4, {e2x2, e2x3}] , F[30, {e4x2}] ] == {{gc106*(3*(cjQbd8Im - I*cjQbd8Re)*IndexDelta[e1x2, e4x2]*IndexDelta[e2x3, e3x3] + (6*cjQbd1Im - (6*I)*cjQbd1Re - cjQbd8Im + I*cjQbd8Re)*IndexDelta[e1x2, e2x3]*IndexDelta[e3x3, e4x2])*ydtop[e2x2, e3x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {-(gc106*(3*(cjQtu8Im + I*cjQtu8Re)*IndexDelta[e1x2, e4x2]*IndexDelta[e2x3, e3x3] + (6*cjQtu1Im + (6*I)*cjQtu1Re - cjQtu8Im - I*cjQtu8Re)*IndexDelta[e1x2, e2x3]*IndexDelta[e3x3, e4x2])*yutop[e3x2, e2x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[40, {e3x2}] , F[40, {e2x2}] , F[40, {e4x2}] ] == {{I*gc107*(3*cQb8*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + (6*cQb1 - cQb8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc107*((6*cQb1 - cQb8)*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + 3*cQb8*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc107*((6*cQb1 - cQb8)*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + 3*cQb8*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {I*gc107*(3*cQb8*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + (6*cQb1 - cQb8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[4, {e3x2, e3x3}] , F[4, {e2x2, e2x3}] , F[4, {e4x2, e4x3}] ] == {{((I/2)*gc108*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*(3*cjd8*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + (6*cjd1 - cjd8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cjd1 + cjd8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {((I/2)*gc108*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2]*((6*cjd1 - cjd8)*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + 3*cjd8*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cjd1 + cjd8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {((I/2)*gc108*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2]*((6*cjd1 - cjd8)*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + 3*cjd8*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cjd1 + cjd8), 0}, {0, 0}, {((I/2)*gc108*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*(3*cjd8*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + (6*cjd1 - cjd8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cjd1 + cjd8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[2, {e3x2}] , F[40, {e2x2}] , F[2, {e4x2}] ] == {{I*cbl*gc109*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*cQe*gc109*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[2, {e3x2}] , F[4, {e2x2, e2x3}] , F[2, {e4x2}] ] == {{I*cld*gc110*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*cje*gc110*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , -F[2, {e3x2}] , F[2, {e2x2}] , F[2, {e4x2}] ] == {{I*gc111*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc111*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc111*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2], 0}, {0, 0}, {I*gc111*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , -F[30, {e3x2}] , F[2, {e2x2}] , F[30, {e4x2}] ] == {{I*cQe*gc112*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*ctl*gc112*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[30, {e3x2}] , F[40, {e2x2}] , F[30, {e4x2}] ] == {{I*gc113*(3*cQb8*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + (6*cQb1 - cQb8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc113*(3*cQt8*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + (6*cQt1 - cQt8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[30, {e3x2}] , F[4, {e2x2, e2x3}] , F[30, {e4x2}] ] == {{(I/2)*gc114*IndexDelta[e1x2, e2x2]*(3*cQd8*IndexDelta[e1x3, e4x2]*IndexDelta[e2x3, e3x2] + (6*cQd1 - cQd8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {(I/2)*gc114*IndexDelta[e1x2, e2x2]*(3*ctj8*IndexDelta[e1x3, e4x2]*IndexDelta[e2x3, e3x2] + (6*ctj1 - ctj8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , -F[30, {e3x2}] , F[30, {e2x2}] , F[30, {e4x2}] ] == {{I*gc115*(3*cQt8*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + (6*cQt1 - cQt8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc115*((6*cQt1 - cQt8)*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + 3*cQt8*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc115*((6*cQt1 - cQt8)*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + 3*cQt8*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {I*gc115*(3*cQt8*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + (6*cQt1 - cQt8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , -F[3, {e3x2, e3x3}] , F[2, {e2x2}] , F[3, {e4x2, e4x3}] ] == {{I*cje*gc116*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*IndexDelta[e3x3, e4x3], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*clu*gc116*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*IndexDelta[e3x3, e4x3], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[3, {e3x2, e3x3}] , F[40, {e2x2}] , F[3, {e4x2, e4x3}] ] == {{I*gc117*IndexDelta[e3x2, e4x2]*(3*cbj8*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + (6*cbj1 - cbj8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc117*IndexDelta[e3x2, e4x2]*(3*cQu8*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + (6*cQu1 - cQu8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[3, {e3x2, e3x3}] , F[4, {e2x2, e2x3}] , F[3, {e4x2, e4x3}] ] == {{(I/2)*gc118*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*(3*cjd8*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + (6*cjd1 - cjd8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {(I/2)*gc118*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*(3*cju8*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + (6*cju1 - cju8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , -F[3, {e3x2, e3x3}] , F[3, {e2x2, e2x3}] , F[3, {e4x2, e4x3}] ] == {{((I/2)*gc119*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*(3*cju8*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + (6*cju1 - cju8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cju1 + cju8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {((I/2)*gc119*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2]*((6*cju1 - cju8)*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + 3*cju8*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cju1 + cju8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {((I/2)*gc119*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2]*((6*cju1 - cju8)*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + 3*cju8*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cju1 + cju8), 0}, {0, 0}, {((I/2)*gc119*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*(3*cju8*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + (6*cju1 - cju8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cju1 + cju8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[1, {e3x2}] , F[40, {e2x2}] , F[1, {e4x2}] ] == {{I*gc120*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[1, {e3x2}] , F[4, {e2x2, e2x3}] , F[1, {e4x2}] ] == {{I*gc121*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , -F[1, {e3x2}] , F[30, {e2x2}] , F[1, {e4x2}] ] == {{I*gc122*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , -F[1, {e3x2}] , F[3, {e2x2, e2x3}] , F[1, {e4x2}] ] == {{I*gc123*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , -F[1, {e3x2}] , F[2, {e2x2}] , F[1, {e4x2}] ] == {{I*gc124*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}} + +} + +(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) + +(* Parameter replacement lists (These lists were created by FeynRules) *) + +(* FA Couplings *) + +M$FACouplings = { + gc3 -> GS, + gc4 -> -GS^2, + gc5 -> EL/3, + gc6 -> EL/3, + gc7 -> EL, + gc8 -> (-2*EL)/3, + gc9 -> (-2*EL)/3, + gc10 -> -(yb/Sqrt[2]), + gc11 -> -(yt/Sqrt[2]), + gc12 -> -EL, + gc15 -> -EL^2, + gc16 -> -((cth*EL)/sth), + gc17 -> EL^2/sth^2, + gc18[e1x2_, e2x2_] -> -(ydtop[e1x2, e2x2]/Sqrt[2]), + gc19[e1x2_, e2x2_] -> -(yl[e1x2, e2x2]/Sqrt[2]), + gc20[e1x2_, e2x2_] -> -(yutop[e1x2, e2x2]/Sqrt[2]), + gc21 -> (cth*EL^2)/sth, + gc24 -> (EL^2*(-1 + sth^2))/sth^2, + gc25 -> -GS, + gc26 -> -GS, + gc27 -> -GS, + gc28 -> -GS, + gc29 -> -(EL/(Sqrt[2]*sth)), + gc30 -> -(EL/(Sqrt[2]*sth)), + gc31 -> -(EL/(Sqrt[2]*sth)), + gc32 -> -(EL/(Sqrt[2]*sth)), + gc33 -> -(EL/(Sqrt[2]*sth)), + gc34 -> -(EL/(Sqrt[2]*sth)), + gc35 -> -(EL*(-3 + 2*sth^2))/(6*cth*sth), + gc36 -> -(EL*(-3 + 2*sth^2))/(6*cth*sth), + gc37 -> -(EL*(-1 + 2*sth^2))/(2*cth*sth), + gc38 -> (EL*(-3 + 4*sth^2))/(6*cth*sth), + gc39 -> (EL*(-3 + 4*sth^2))/(6*cth*sth), + gc40 -> -EL/(2*cth*sth), + gc41 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc42 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc43 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc44 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc45 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc46 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc47 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc48 -> -(GS/(Sqrt[2]*LambdaSMEFT^2)), + gc49 -> -((GS*vevhat)/(Sqrt[2]*LambdaSMEFT^2)), + gc50 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc51 -> -(GS/(Sqrt[2]*LambdaSMEFT^2)), + gc52 -> -((GS*vevhat)/(Sqrt[2]*LambdaSMEFT^2)), + gc53 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc54 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc55 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc56 -> GS/(Sqrt[2]*LambdaSMEFT^2), + gc57 -> (GS*vevhat)/(Sqrt[2]*LambdaSMEFT^2), + gc58 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc59 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc60 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc61 -> GS/(Sqrt[2]*LambdaSMEFT^2), + gc62 -> (GS*vevhat)/(Sqrt[2]*LambdaSMEFT^2), + gc63 -> LambdaSMEFT^(-2), + gc64 -> -(EL/LambdaSMEFT^2), + gc65 -> -((EL*vevhat)/LambdaSMEFT^2), + gc66 -> -(EL/(Sqrt[2]*LambdaSMEFT^2*sth)), + gc67 -> -((EL*vevhat)/(Sqrt[2]*LambdaSMEFT^2*sth)), + gc68 -> (cth*EL)/(LambdaSMEFT^2*sth), + gc69 -> (cth*EL*vevhat)/(LambdaSMEFT^2*sth), + gc70[e1x2_, e2x2_] -> ((ceWIm + ceWRe)*yl[e1x2, e2x2])/LambdaSMEFT^2, + gc71[e1x2_, e2x2_] -> -(((ceWIm + ceWRe)*EL*yl[e1x2, e2x2])/LambdaSMEFT^2), + gc72[e1x2_, e2x2_] -> -(((ceWIm + ceWRe)*EL*vevhat*yl[e1x2, e2x2])/LambdaSMEFT^2), + gc73 -> EL/(Sqrt[2]*LambdaSMEFT^2*sth), + gc74 -> (EL*vevhat)/(Sqrt[2]*LambdaSMEFT^2*sth), + gc75[e1x2_, e2x2_] -> ((ceWIm + ceWRe)*cth*EL*yl[e1x2, e2x2])/(LambdaSMEFT^2*sth), + gc76[e1x2_, e2x2_] -> ((ceWIm + ceWRe)*cth*EL*vevhat*yl[e1x2, e2x2])/(LambdaSMEFT^2*sth), + gc77 -> LambdaSMEFT^(-2), + gc78 -> EL/LambdaSMEFT^2, + gc79 -> (EL*vevhat)/LambdaSMEFT^2, + gc80 -> EL/(Sqrt[2]*LambdaSMEFT^2*sth), + gc81 -> (EL*vevhat)/(Sqrt[2]*LambdaSMEFT^2*sth), + gc82 -> -((cth*EL)/(LambdaSMEFT^2*sth)), + gc83 -> -((cth*EL*vevhat)/(LambdaSMEFT^2*sth)), + gc84 -> -LambdaSMEFT^(-2), + gc85 -> EL/LambdaSMEFT^2, + gc86 -> (EL*vevhat)/LambdaSMEFT^2, + gc87 -> EL/(Sqrt[2]*LambdaSMEFT^2*sth), + gc88 -> (EL*vevhat)/(Sqrt[2]*LambdaSMEFT^2*sth), + gc89 -> -((cth*EL)/(LambdaSMEFT^2*sth)), + gc90 -> -((cth*EL*vevhat)/(LambdaSMEFT^2*sth)), + gc91 -> -LambdaSMEFT^(-2), + gc92 -> -(EL/LambdaSMEFT^2), + gc93 -> -((EL*vevhat)/LambdaSMEFT^2), + gc94 -> -(EL/(Sqrt[2]*LambdaSMEFT^2*sth)), + gc95 -> -((EL*vevhat)/(Sqrt[2]*LambdaSMEFT^2*sth)), + gc96 -> (cth*EL)/(LambdaSMEFT^2*sth), + gc97 -> (cth*EL*vevhat)/(LambdaSMEFT^2*sth), + gc98[e1x2_, e2x2_] -> -(((ceWIm - ceWRe)*yl[e2x2, e1x2])/LambdaSMEFT^2), + gc99[e1x2_, e2x2_] -> -(((ceWIm - ceWRe)*EL*yl[e2x2, e1x2])/LambdaSMEFT^2), + gc100[e1x2_, e2x2_] -> ((-ceWIm + ceWRe)*EL*vevhat*yl[e2x2, e1x2])/LambdaSMEFT^2, + gc101[e1x2_, e2x2_] -> ((ceWIm - ceWRe)*cth*EL*yl[e2x2, e1x2])/(LambdaSMEFT^2*sth), + gc102[e1x2_, e2x2_] -> ((ceWIm - ceWRe)*cth*EL*vevhat*yl[e2x2, e1x2])/(LambdaSMEFT^2*sth), + gc103 -> 1/(6*LambdaSMEFT^2), + gc104 -> -1/(6*LambdaSMEFT^2), + gc105 -> 1/(6*LambdaSMEFT^2), + gc106 -> -1/(6*LambdaSMEFT^2), + gc107 -> 1/(6*LambdaSMEFT^2), + gc108 -> (3*cjd1 + cjd8)/(3*LambdaSMEFT^2), + gc109 -> LambdaSMEFT^(-2), + gc110 -> LambdaSMEFT^(-2), + gc111 -> cle/LambdaSMEFT^2, + gc112 -> LambdaSMEFT^(-2), + gc113 -> 1/(6*LambdaSMEFT^2), + gc114 -> 1/(3*LambdaSMEFT^2), + gc115 -> 1/(6*LambdaSMEFT^2), + gc116 -> LambdaSMEFT^(-2), + gc117 -> 1/(6*LambdaSMEFT^2), + gc118 -> 1/(3*LambdaSMEFT^2), + gc119 -> (3*cju1 + cju8)/(3*LambdaSMEFT^2), + gc120 -> cbl/LambdaSMEFT^2, + gc121 -> cld/LambdaSMEFT^2, + gc122 -> ctl/LambdaSMEFT^2, + gc123 -> clu/LambdaSMEFT^2, + gc124 -> cle/LambdaSMEFT^2}; + diff --git a/code/notebooks/FormCalc/tt/dim_6_c6_c8c.pars b/code/notebooks/FormCalc/tt/dim_6_c6_c8c.pars new file mode 100644 index 000000000..3c5782dab --- /dev/null +++ b/code/notebooks/FormCalc/tt/dim_6_c6_c8c.pars @@ -0,0 +1,343 @@ +(***********************************************) +(* Parameter file for SMEFTsim. *) +(* Automatically generated by FeynRules. *) +(***********************************************) +(***********************************************) +(* External Parameters *) +(***********************************************) + +M$ExtParams = { + aS -> 0.1179, + cbb -> 0, + cbBIm -> 0, + cbBRe -> 0, + cbd1 -> 0, + cbd8 -> 0, + cbe -> 0, + cbGIm -> 0, + cbGRe -> 0, + cbHIm -> 0, + cbHRe -> 0, + cbj1 -> 0, + cbj8 -> 0, + cbl -> 0, + cbu1 -> 0, + cbu8 -> 0, + cbWIm -> 0, + cbWRe -> 0, + cdBIm -> 0, + cdBRe -> 0, + cdd1 -> 0, + cdd8 -> 0, + cdGIm -> 0, + cdGRe -> 0, + cdHIm -> 0, + cdHRe -> 0, + cdWIm -> 0, + cdWRe -> 0, + ceBIm -> 0, + ceBRe -> 0, + ced -> 0, + cee -> 0, + ceHIm -> 0, + ceHRe -> 0, + ceu -> 0, + ceWIm -> 0, + ceWRe -> 0, + cG -> 0, + cGtil -> 0, + cH -> 0, + cHB -> 0, + cHbox -> 0, + cHbq -> 0, + cHBtil -> 0, + cHd -> 0, + cHDD -> 0, + cHe -> 0, + cHG -> 0, + cHGtil -> 0, + cHj1 -> 0, + cHj3 -> 0, + cHl1 -> 0, + cHl3 -> 0, + cHQ1 -> 0, + cHQ3 -> 0, + cHt -> 0, + cHtbIm -> 0, + cHtbRe -> 0, + cHu -> 0, + cHudIm -> 0, + cHudRe -> 0, + cHW -> 0, + cHWB -> 0, + cHWBtil -> 0, + cHWtil -> 0, + cjd1 -> 0, + cjd8 -> 0, + cje -> 0, + cjj11 -> 0, + cjj18 -> 0, + cjj31 -> 0, + cjj38 -> 0, + cjQbd1Im -> 0, + cjQbd1Re -> 0, + cjQbd8Im -> 0, + cjQbd8Re -> 0, + cjQtu1Im -> 0, + cjQtu1Re -> 0, + cjQtu8Im -> 0, + cjQtu8Re -> 0, + cjtQd1Im -> 0, + cjtQd1Re -> 0, + cjtQd8Im -> 0, + cjtQd8Re -> 0, + cju1 -> 0, + cju8 -> 0, + cjujd11Im -> 0, + cjujd11Re -> 0, + cjujd1Im -> 0, + cjujd1Re -> 0, + cjujd81Im -> 0, + cjujd81Re -> 0, + cjujd8Im -> 0, + cjujd8Re -> 0, + cjuQb1Im -> 0, + cjuQb1Re -> 0, + cjuQb8Im -> 0, + cjuQb8Re -> 0, + cld -> 0, + cle -> 0, + clebQIm -> 0, + clebQRe -> 0, + cledjIm -> 0, + cledjRe -> 0, + cleju1Im -> 0, + cleju1Re -> 0, + cleju3Im -> 0, + cleju3Re -> 0, + cleQt1Im -> 0, + cleQt1Re -> 0, + cleQt3Im -> 0, + cleQt3Re -> 0, + clj1 -> 0, + clj3 -> 0, + cll -> 0, + cll1 -> 0, + clu -> 0, + cQb1 -> 0, + cQb8 -> 0, + cQd1 -> 0, + cQd8 -> 0, + cQe -> 0, + cQj11 -> 0, + cQj18 -> 0, + cQj31 -> 0, + cQj38 -> 0, + cQl1 -> 0, + cQl3 -> 0, + cQQ1 -> 0, + cQQ8 -> 0, + cQt1 -> 0, + cQt8 -> 0, + cQtjd1Im -> 0, + cQtjd1Re -> 0, + cQtjd8Im -> 0, + cQtjd8Re -> 0, + cQtQb1Im -> 0, + cQtQb1Re -> 0, + cQtQb8Im -> 0, + cQtQb8Re -> 0, + cQu1 -> 0, + cQu8 -> 0, + cQujb1Im -> 0, + cQujb1Re -> 0, + cQujb8Im -> 0, + cQujb8Re -> 0, + ctb1 -> 0, + ctb8 -> 0, + ctBIm -> 0, + ctBRe -> 0, + ctd1 -> 0, + ctd8 -> 0, + cte -> 0, + ctGIm -> 0, + ctGRe -> 0, + ctHIm -> 0, + ctHRe -> 0, + ctj1 -> 0, + ctj8 -> 0, + ctl -> 0, + ctt -> 0, + ctu1 -> 0, + ctu8 -> 0, + ctWIm -> 0, + ctWRe -> 0, + cuBIm -> 0, + cuBRe -> 0, + cud1 -> 0, + cud8 -> 0, + cuGIm -> 0, + cuGRe -> 0, + cuHIm -> 0, + cuHRe -> 0, + cutbd1Im -> 0, + cutbd1Re -> 0, + cutbd8Im -> 0, + cutbd8Re -> 0, + cuu1 -> 0, + cuu8 -> 0, + cuWIm -> 0, + cuWRe -> 0, + cW -> 0, + cWtil -> 0, + Gf -> 0.000011663787, + LambdaSMEFT -> 1000, + linearPropCorrections -> 0, + MW -> 80.387, + ymb -> 4.18, + ymc -> 1.27, + ymdo -> 0.00467, + yme -> 0.000511, + ymm -> 0.10566, + yms -> 0.093, + ymt -> 172.76, + ymtau -> 1.777, + ymup -> 0.00216 +}; + +(***********************************************) +(* Masses *) +(***********************************************) + +M$Masses = { + MB -> 4.18, + MC -> 1.27, + MD -> 0.00467, + Me -> 0.000511, + MH -> 125.09, + MMU -> 0.10566, + MS -> 0.093, + MT -> 172.76, + MTA -> 1.777, + MU -> 0.00216, + MZ -> 91.1876 +}; + +(***********************************************) +(* Widths *) +(***********************************************) + +M$Widths = { + WH -> 0.00407, + WT -> 1.33, + WW -> 2.085, + WZ -> 2.4952 +}; + +(***********************************************) +(* Internal Parameters *) +(***********************************************) + +M$IntParams = { + cuH -> 0. + 0.*I, + ctHH -> 0. + 0.*I, + cdH -> 0. + 0.*I, + cbH -> 0. + 0.*I, + cuG -> 0. + 0.*I, + ctG -> 0. + 0.*I, + cuW -> 0. + 0.*I, + ctW -> 0. + 0.*I, + cuB -> 0. + 0.*I, + ctB -> 0. + 0.*I, + cdG -> 0. + 0.*I, + cbG -> 0. + 0.*I, + cdW -> 0. + 0.*I, + cbW -> 0. + 0.*I, + cdB -> 0. + 0.*I, + cbBB -> 0. + 0.*I, + cHud -> 0. + 0.*I, + cHtb -> 0. + 0.*I, + cutbd1 -> 0. + 0.*I, + cutbd8 -> 0. + 0.*I, + cjQtu1 -> 0. + 0.*I, + cjQtu8 -> 0. + 0.*I, + cjQbd1 -> 0. + 0.*I, + cjQbd8 -> 0. + 0.*I, + cjujd1 -> 0. + 0.*I, + cjujd8 -> 0. + 0.*I, + cjujd11 -> 0. + 0.*I, + cjujd81 -> 0. + 0.*I, + cQtjd1 -> 0. + 0.*I, + cQtjd8 -> 0. + 0.*I, + cjuQb1 -> 0. + 0.*I, + cjuQb8 -> 0. + 0.*I, + cQujb1 -> 0. + 0.*I, + cQujb8 -> 0. + 0.*I, + cjtQd1 -> 0. + 0.*I, + cjtQd8 -> 0. + 0.*I, + cQtQb1 -> 0. + 0.*I, + cQtQb8 -> 0. + 0.*I, + ceH -> 0. + 0.*I, + ceW -> 0. + 0.*I, + ceB -> 0. + 0.*I, + cledj -> 0. + 0.*I, + clebQ -> 0. + 0.*I, + cleju1 -> 0. + 0.*I, + cleju3 -> 0. + 0.*I, + cleQt1 -> 0. + 0.*I, + cleQt3 -> 0. + 0.*I, + yup -> 0.0000124064073881735, + yc -> 0.007294508047676086, + ydo -> 0.000026823112269801038, + ys -> 0.000534164762546359, + yt -> 0.9922828427689138, + yb -> 0.024008695778965385, + MWsm -> 80.387, + aEW -> 0.007561459915879889, + vevhat -> 246.2196507941374, + lam -> 0.12905349405143482, + dkH -> 0., + dMH2 -> 0., + G -> 1.2171996941475733, + ee -> 0.3082533174007504, + ye -> 2.9350343404428973*^-6, + ym -> 0.0006068800947381538, + ytau -> 0.010206567559622366, + dGf -> 0., + vevT -> 246.2196507941374, + barlam -> 0.12905349405143482, + vev -> 246.2196507941374, + sth2 -> 0.22285855299877133, + cth -> 0.8815562642289082, + sth -> 0.47207896902824564, + dMZ2 -> 0., + gw -> 0.652969815696888, + g1 -> 0.34966947648018554, + dg1 -> 0., + dgw -> 0., + gwsh -> 0.652969815696888, + g1sh -> 0.34966947648018554, + propCorr -> 0., + MZ1 -> 91.1876, + MW1 -> 80.387, + MH1 -> 125.09, + MT1 -> 172.76, + WZ1 -> 2.4952, + WW1 -> 2.085, + WH1 -> 0.00407, + WT1 -> 1.33, + dWZ -> NumericalValue[dGammaZ], + dWW -> NumericalValue[dGammaW], + dWH -> NumericalValue[dGammaH], + dWT -> NumericalValue[dGammaT], + yt0 -> 0.9922828427689139 + 0.*I, + yb0 -> 0.024008695778965385 + 0.*I, + gHgg1 -> 0.0031273946317557427, + gHgg2 -> -0.0003648627070381701, + gHgg3 -> 0.0007613327578503708, + gHgg4 -> 0.00010424648772519147, + gHgg5 -> 0.0018764367790534465, + gHaa -> -0.001931224473843549, + gHza -> -0.006856224632876692 +}; + diff --git a/code/notebooks/FormCalc/tt/dim_6_tt_parton.gen b/code/notebooks/FormCalc/tt/dim_6_tt_parton.gen new file mode 100644 index 000000000..984117e63 --- /dev/null +++ b/code/notebooks/FormCalc/tt/dim_6_tt_parton.gen @@ -0,0 +1,200 @@ +(* Patched for use with FeynCalc *) +(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) +(* *) +(* This file has been automatically generated by FeynRules. *) +(* *) +(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) + + + +(* Kinematic indices *) + +KinematicIndices[ F ] = {Dirac}; +KinematicIndices[ V ] = {Lorentz}; +KinematicIndices[ S ] = {}; +KinematicIndices[ SV ] = {Lorentz}; +KinematicIndices[ U ] = {}; + +$FermionLines = False; + +(* Simplification rules *) + +Attributes[ FAMetricTensor ] = Attributes[ FAScalarProduct ] = {Orderless} + +FAFourVector/: -FAFourVector[ mom_, mu_ ] := FAFourVector[Expand[-mom], mu] + +FAFourVector[ 0, _ ] = 0 + +SpinorType[j_Integer, ___] := MajoranaSpinor /; SelfConjugate[F[j]] + +SpinorType[_Integer, __] = FADiracSpinor + +(* Generic propagators *) + +M$GenericPropagators={ + +(*general fermion propagator:*) + +AnalyticalPropagator[External][s1 F[j1,mom,{di1}]]== +DiracObject[SpinorType[j1][-mom,Mass[F[j1]]]][di1], + +AnalyticalPropagator[Internal][s1 F[j1,mom,{di1}->{di2}]]== +DiracObject[FADiracSlash[-mom]+Mass[F[j1]]][di1,di2]* +I FAPropagatorDenominator[mom,Mass[F[j1]]], + +(*general vector boson propagator:*) + +AnalyticalPropagator[External][s1 V[j1,mom,{li2}]]== +FAPolarizationVector[V[j1],mom,li2], + +AnalyticalPropagator[Internal][s1 V[j1,mom,{li1}->{li2}]]== +-I FAPropagatorDenominator[mom,Mass[V[j1]]]* +(FAMetricTensor[li1,li2]-(1-FAGaugeXi[V[j1]])* +FAFourVector[mom,li1] FAFourVector[mom,li2]* +FAPropagatorDenominator[mom,Sqrt[FAGaugeXi[V[j1]]] Mass[V[j1]]]), + +(*general mixing scalar-vector propagator:*) + +AnalyticalPropagator[Internal][s1 SV[j1,mom,{li1}->{li2}]]== +I Mass[SV[j1]] FAPropagatorDenominator[mom,Mass[SV[j1]]]* +FAFourVector[mom,If[s1==1||s1==-2,li1,li2]], + +(*general scalar propagator:*) + +AnalyticalPropagator[External][s1 S[j1,mom]]==1, + +AnalyticalPropagator[Internal][s1 S[j1,mom]]== +I FAPropagatorDenominator[mom,Sqrt[FAGaugeXi[S[j1]]] Mass[S[j1]]], + +(*general Fadeev-Popov ghost propagator:*) + +AnalyticalPropagator[External][s1 U[j1,mom]]==1, + +AnalyticalPropagator[Internal][s1 U[j1,mom]]== +I*FAPropagatorDenominator[mom,Sqrt[FAGaugeXi[U[j1]]] Mass[U[j1]]] +} + +(* Generic couplings *) + +M$GenericCouplings = { + + (* FFFF *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 F[j3, mom3, {di3}], s4 F[j4, mom4, {di4}] ] == +G[-1][s1 F[j1], s2 F[j2], s3 F[j3], s4 F[j4]].{IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di1,di4]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di2,di3], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di1,di4]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di3,di2], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di1,di2]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di4,di3], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di1,di2]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di3,di4], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di1,di3]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di4,di2], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di1,di3]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di2,di4], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di2,di3]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di4,di1], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di3,di2]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di4,di1], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di3,di1]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di4,di2], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di2,di1]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di4,di3], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di2,di1]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di3,di4], {a,1,4}], IndexSum[DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di2,di4]DiracObject[FADiracMatrix[a], FAChiralityProjector[+1] ][di3,di1], {a,1,4}]}, + + (* FFS *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 S[j3, mom3] ] == +G[-1][s1 F[j1], s2 F[j2], s3 S[j3]].{DiracObject[FAChiralityProjector[-1]][di1,di2], DiracObject[FAChiralityProjector[-1]][di2,di1], DiracObject[FAChiralityProjector[+1]][di1,di2], DiracObject[FAChiralityProjector[+1]][di2,di1]}, + + (* FFSV *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 S[j3, mom3], s4 V[j4, mom4, {li4}] ] == +G[-1][s1 F[j1], s2 F[j2], s3 S[j3], s4 V[j4]].{DiracObject[FADiracMatrix[li4], FADiracSlash[mom4 ], FAChiralityProjector[-1] ][di1,di2], DiracObject[FADiracMatrix[li4], FADiracSlash[mom4 ], FAChiralityProjector[-1] ][di2,di1], DiracObject[FADiracMatrix[li4], FADiracSlash[mom4 ], FAChiralityProjector[+1] ][di1,di2], DiracObject[FADiracMatrix[li4], FADiracSlash[mom4 ], FAChiralityProjector[+1] ][di2,di1], DiracObject[FADiracSlash[mom4 ], FADiracMatrix[li4], FAChiralityProjector[-1] ][di1,di2], DiracObject[FADiracSlash[mom4 ], FADiracMatrix[li4], FAChiralityProjector[-1] ][di2,di1], DiracObject[FADiracSlash[mom4 ], FADiracMatrix[li4], FAChiralityProjector[+1] ][di1,di2], DiracObject[FADiracSlash[mom4 ], FADiracMatrix[li4], FAChiralityProjector[+1] ][di2,di1]}, + + (* FFSVV *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 S[j3, mom3], s4 V[j4, mom4, {li4}], s5 V[j5, mom5, {li5}] ] == +G[-1][s1 F[j1], s2 F[j2], s3 S[j3], s4 V[j4], s5 V[j5]].{DiracObject[FADiracMatrix[li4], FADiracMatrix[li5], FAChiralityProjector[-1] ][di1,di2], DiracObject[FADiracMatrix[li4], FADiracMatrix[li5], FAChiralityProjector[-1] ][di2,di1], DiracObject[FADiracMatrix[li4], FADiracMatrix[li5], FAChiralityProjector[+1] ][di1,di2], DiracObject[FADiracMatrix[li4], FADiracMatrix[li5], FAChiralityProjector[+1] ][di2,di1], DiracObject[FADiracMatrix[li5], FADiracMatrix[li4], FAChiralityProjector[-1] ][di1,di2], DiracObject[FADiracMatrix[li5], FADiracMatrix[li4], FAChiralityProjector[-1] ][di2,di1], DiracObject[FADiracMatrix[li5], FADiracMatrix[li4], FAChiralityProjector[+1] ][di1,di2], DiracObject[FADiracMatrix[li5], FADiracMatrix[li4], FAChiralityProjector[+1] ][di2,di1]}, + + (* FFV *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 V[j3, mom3, {li3}] ] == +G[-1][s1 F[j1], s2 F[j2], s3 V[j3]].{DiracObject[FADiracMatrix[li3], FAChiralityProjector[-1] ][di1,di2], DiracObject[FADiracMatrix[li3], FAChiralityProjector[-1] ][di2,di1], DiracObject[FADiracMatrix[li3], FAChiralityProjector[+1] ][di1,di2], DiracObject[FADiracMatrix[li3], FAChiralityProjector[+1] ][di2,di1], DiracObject[FADiracMatrix[li3], FADiracSlash[mom3 ], FAChiralityProjector[-1] ][di1,di2], DiracObject[FADiracMatrix[li3], FADiracSlash[mom3 ], FAChiralityProjector[-1] ][di2,di1], DiracObject[FADiracMatrix[li3], FADiracSlash[mom3 ], FAChiralityProjector[+1] ][di1,di2], DiracObject[FADiracMatrix[li3], FADiracSlash[mom3 ], FAChiralityProjector[+1] ][di2,di1], DiracObject[FADiracSlash[mom3 ], FADiracMatrix[li3], FAChiralityProjector[-1] ][di1,di2], DiracObject[FADiracSlash[mom3 ], FADiracMatrix[li3], FAChiralityProjector[-1] ][di2,di1], DiracObject[FADiracSlash[mom3 ], FADiracMatrix[li3], FAChiralityProjector[+1] ][di1,di2], DiracObject[FADiracSlash[mom3 ], FADiracMatrix[li3], FAChiralityProjector[+1] ][di2,di1]}, + + (* FFVV *) + +AnalyticalCoupling[s1 F[j1, mom1, {di1}], s2 F[j2, mom2, {di2}], s3 V[j3, mom3, {li3}], s4 V[j4, mom4, {li4}] ] == +G[-1][s1 F[j1], s2 F[j2], s3 V[j3], s4 V[j4]].{DiracObject[FADiracMatrix[li3], FADiracMatrix[li4], FAChiralityProjector[-1] ][di1,di2], DiracObject[FADiracMatrix[li3], FADiracMatrix[li4], FAChiralityProjector[-1] ][di2,di1], DiracObject[FADiracMatrix[li3], FADiracMatrix[li4], FAChiralityProjector[+1] ][di1,di2], DiracObject[FADiracMatrix[li3], FADiracMatrix[li4], FAChiralityProjector[+1] ][di2,di1], DiracObject[FADiracMatrix[li4], FADiracMatrix[li3], FAChiralityProjector[-1] ][di1,di2], DiracObject[FADiracMatrix[li4], FADiracMatrix[li3], FAChiralityProjector[-1] ][di2,di1], DiracObject[FADiracMatrix[li4], FADiracMatrix[li3], FAChiralityProjector[+1] ][di1,di2], DiracObject[FADiracMatrix[li4], FADiracMatrix[li3], FAChiralityProjector[+1] ][di2,di1]}, + + (* SSS *) + +AnalyticalCoupling[s1 S[j1, mom1], s2 S[j2, mom2], s3 S[j3, mom3] ] == +G[+1][s1 S[j1], s2 S[j2], s3 S[j3]].{1}, + + (* SSSS *) + +AnalyticalCoupling[s1 S[j1, mom1], s2 S[j2, mom2], s3 S[j3, mom3], s4 S[j4, mom4] ] == +G[+1][s1 S[j1], s2 S[j2], s3 S[j3], s4 S[j4]].{1}, + + (* SSVV *) + +AnalyticalCoupling[s1 S[j1, mom1], s2 S[j2, mom2], s3 V[j3, mom3, {li3}], s4 V[j4, mom4, {li4}] ] == +G[+1][s1 S[j1], s2 S[j2], s3 V[j3], s4 V[j4]].{FAMetricTensor[li3 ,li4 ]}, + + (* SVV *) + +AnalyticalCoupling[s1 S[j1, mom1], s2 V[j2, mom2, {li2}], s3 V[j3, mom3, {li3}] ] == +G[+1][s1 S[j1], s2 V[j2], s3 V[j3]].{FAMetricTensor[li2 ,li3 ]}, + + (* VVV *) + +AnalyticalCoupling[s1 V[j1, mom1, {li1}], s2 V[j2, mom2, {li2}], s3 V[j3, mom3, {li3}] ] == +G[+1][s1 V[j1], s2 V[j2], s3 V[j3]].{FAFourVector[mom1, li3]FAMetricTensor[li1 ,li2 ], FAFourVector[mom2, li3]FAMetricTensor[li1 ,li2 ], FAFourVector[mom1, li2]FAMetricTensor[li1 ,li3 ], FAFourVector[mom3, li2]FAMetricTensor[li1 ,li3 ], FAFourVector[mom2, li1]FAMetricTensor[li2 ,li3 ], FAFourVector[mom3, li1]FAMetricTensor[li2 ,li3 ]}, + + (* VVVV *) + +AnalyticalCoupling[s1 V[j1, mom1, {li1}], s2 V[j2, mom2, {li2}], s3 V[j3, mom3, {li3}], s4 V[j4, mom4, {li4}] ] == +G[+1][s1 V[j1], s2 V[j2], s3 V[j3], s4 V[j4]].{FAMetricTensor[li1 ,li4 ]FAMetricTensor[li2 ,li3 ], FAMetricTensor[li1 ,li3 ]FAMetricTensor[li2 ,li4 ], FAMetricTensor[li1 ,li2 ]FAMetricTensor[li3 ,li4 ]} +} + +(* FlippingRules: the flipping rules determines how Dirac + objects change when the order of fermion fields in the + coupling is reversed. In other words, it defines how the + coupling C[F, -F, ...] is derived from C[-F, F, ...].*) + +M$FlippingRules = { +} + + (* TruncationRules: rule for omitting the wave functions of + external Propagators defined in this file. *) + +M$TruncationRules = { + _FAPolarizationVector -> 1, + _FADiracSpinor -> 1, + _MajoranaSpinor -> 1 +} + (* LastGenericRules: the very last rules that are applied to an + amplitude before it is returned by CreateFeynAmp. *) + +M$LastGenericRules = { + FAPolarizationVector[p_, _. mom:FourMomentum[Outgoing, _], li_] :> + Conjugate[FAPolarizationVector][p, mom, li] +} + (* cosmetics: *) + + (* left spinor in chain + mom incoming -> ar v + left spinor in chain + mom outgoing -> ar u + right spinor in chain + mom incoming -> u + right spinor in chain + mom outgoing -> v *) +Format[ + FermionChain[ + FANonCommutative[_[s1_. mom1_, mass1_]], + r___, + FANonCommutative[_[s2_. mom2_, mass2_]]] ] := + Overscript[If[FreeQ[mom1, Incoming], "u", "v"], "_"][mom1, mass1] . + r . If[FreeQ[mom2, Outgoing], "u", "v"][mom2, mass2] + +Format[ FADiracSlash ] = "gs" + +Format[ FADiracMatrix ] = "ga" + +Format[ FAChiralityProjector[1] ] = SequenceForm["om", Subscript["+"]] + +Format[ FAChiralityProjector[-1] ] = SequenceForm["om", Subscript["-"]] + +Format[ FAGaugeXi[a_] ] := SequenceForm["xi", Subscript[a]] + +Format[ FAPolarizationVector ] = "ep" + +Unprotect[Conjugate]; +Format[ Conjugate[a_] ] = SequenceForm[a, Superscript["*"]]; +Protect[Conjugate] + +Format[ FAMetricTensor ] = "g" + +Format[ FAScalarProduct[a__] ] := Dot[a] + +Format[ FAFourVector[a_, b_] ] := a[b] + diff --git a/code/notebooks/FormCalc/tt/dim_6_tt_parton.mod b/code/notebooks/FormCalc/tt/dim_6_tt_parton.mod new file mode 100644 index 000000000..9c8f8bab2 --- /dev/null +++ b/code/notebooks/FormCalc/tt/dim_6_tt_parton.mod @@ -0,0 +1,657 @@ +(* Patched for use with FeynCalc *) +(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) +(* *) +(* This file has been automatically generated by FeynRules. *) +(* *) +(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) + + +FR$ModelInformation={ + ModelName->"SMEFTsim", + Authors -> {"I. Brivio"}, + Version -> "3.0.1", + Date -> "January 2021", + Institutions -> {"ITP, Universitat Heidelberg"}, + Emails -> {"brivio@thphys.uni-heidelberg.de"}, + References -> {"arXiv:1709.06492", "arXiv:2012.11343"}, + URLs -> {"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT", "https://SMEFTsim.github.io"}}; + +FR$ClassesTranslation={}; + +FR$InteractionOrderPerturbativeExpansion={{QCD, 0}, {QED, 0}, {SMHLOOP, 0}, {NP, 0}, {NPshifts, 0}, {NPprop, 0}, {NPcpv, 0}, {NPcbb, 0}, {NPcbB, 0}, {NPcbBB, 0}, {NPcbd1, 0}, {NPcbd8, 0}, {NPcbe, 0}, {NPcbG, 0}, {NPcbH, 0}, {NPcbj1, 0}, {NPcbj8, 0}, {NPcbl, 0}, {NPcbu1, 0}, {NPcbu8, 0}, {NPcbW, 0}, {NPcdB, 0}, {NPcdd1, 0}, {NPcdd8, 0}, {NPcdG, 0}, {NPcdH, 0}, {NPcdW, 0}, {NPceB, 0}, {NPced, 0}, {NPcee, 0}, {NPceH, 0}, {NPceu, 0}, {NPceW, 0}, {NPcG, 0}, {NPcGtil, 0}, {NPcH, 0}, {NPcHB, 0}, {NPcHbox, 0}, {NPcHbq, 0}, {NPcHBtil, 0}, {NPcHd, 0}, {NPcHDD, 0}, {NPcHe, 0}, {NPcHG, 0}, {NPcHGtil, 0}, {NPcHj1, 0}, {NPcHj3, 0}, {NPcHl1, 0}, {NPcHl3, 0}, {NPcHQ1, 0}, {NPcHQ3, 0}, {NPcHt, 0}, {NPcHtb, 0}, {NPcHu, 0}, {NPcHud, 0}, {NPcHW, 0}, {NPcHWB, 0}, {NPcHWBtil, 0}, {NPcHWtil, 0}, {NPcjd1, 0}, {NPcjd8, 0}, {NPcje, 0}, {NPcjj11, 0}, {NPcjj18, 0}, {NPcjj31, 0}, {NPcjj38, 0}, {NPcjQbd1, 0}, {NPcjQbd8, 0}, {NPcjQtu1, 0}, {NPcjQtu8, 0}, {NPcjtQd1, 0}, {NPcjtQd8, 0}, {NPcju1, 0}, {NPcju8, 0}, {NPcjujd1, 0}, {NPcjujd11, 0}, {NPcjujd8, 0}, {NPcjujd81, 0}, {NPcjuQb1, 0}, {NPcjuQb8, 0}, {NPcld, 0}, {NPcle, 0}, {NPclebQ, 0}, {NPcledj, 0}, {NPcleju1, 0}, {NPcleju3, 0}, {NPcleQt1, 0}, {NPcleQt3, 0}, {NPclj1, 0}, {NPclj3, 0}, {NPcll, 0}, {NPcll1, 0}, {NPclu, 0}, {NPcQb1, 0}, {NPcQb8, 0}, {NPcQd1, 0}, {NPcQd8, 0}, {NPcQe, 0}, {NPcQj11, 0}, {NPcQj18, 0}, {NPcQj31, 0}, {NPcQj38, 0}, {NPcQl1, 0}, {NPcQl3, 0}, {NPcQQ1, 0}, {NPcQQ8, 0}, {NPcQt1, 0}, {NPcQt8, 0}, {NPcQtjd1, 0}, {NPcQtjd8, 0}, {NPcQtQb1, 0}, {NPcQtQb8, 0}, {NPcQu1, 0}, {NPcQu8, 0}, {NPcQujb1, 0}, {NPcQujb8, 0}, {NPctB, 0}, {NPctb1, 0}, {NPctb8, 0}, {NPctd1, 0}, {NPctd8, 0}, {NPcte, 0}, {NPctG, 0}, {NPctH, 0}, {NPctj1, 0}, {NPctj8, 0}, {NPctl, 0}, {NPctt, 0}, {NPctu1, 0}, {NPctu8, 0}, {NPctW, 0}, {NPcuB, 0}, {NPcud1, 0}, {NPcud8, 0}, {NPcuG, 0}, {NPcuH, 0}, {NPcutbd1, 0}, {NPcutbd8, 0}, {NPcuu1, 0}, {NPcuu8, 0}, {NPcuW, 0}, {NPcW, 0}, {NPcWtil, 0}, {NPQjujb8, 0}}; + +FR$GoldstoneList={S[2], S[3]}; + +(* Declared indices *) + +IndexRange[ Index[Gluon] ] = NoUnfold[ Range[ 8 ] ] + +IndexRange[ Index[SU2W] ] = Range[ 3 ] + +IndexRange[ Index[Generation] ] = Range[ 3 ] + +IndexRange[ Index[Generation2] ] = Range[ 2 ] + +IndexRange[ Index[Colour] ] = NoUnfold[ Range[ 3 ] ] + +IndexRange[ Index[SU2D] ] = Range[ 2 ] + +(* Declared particles *) + +M$ClassesDescription = { +V[1] == { + SelfConjugate -> True, + PropagatorLabel -> "a", + PropagatorType -> Sine, + PropagatorArrow -> None, + Mass -> 0, + Indices -> {} }, + +V[2] == { + SelfConjugate -> True, + PropagatorLabel -> "Z", + PropagatorType -> Sine, + PropagatorArrow -> None, + Mass -> FCGV["MZ"], + Indices -> {} }, + +V[3] == { + SelfConjugate -> False, + QuantumNumbers -> {Q}, + PropagatorLabel -> "W", + PropagatorType -> Sine, + PropagatorArrow -> Forward, + Mass -> FCGV["MW"], + Indices -> {} }, + +V[4] == { + SelfConjugate -> True, + Indices -> {Index[Gluon]}, + PropagatorLabel -> "G", + PropagatorType -> Cycles, + PropagatorArrow -> None, + Mass -> 0 }, + +U[1] == { + SelfConjugate -> False, + QuantumNumbers -> {GhostNumber}, + PropagatorLabel -> "uA", + PropagatorType -> GhostDash, + PropagatorArrow -> Forward, + Mass -> 0, + Indices -> {} }, + +U[2] == { + SelfConjugate -> False, + QuantumNumbers -> {GhostNumber}, + PropagatorLabel -> "uZ", + PropagatorType -> GhostDash, + PropagatorArrow -> Forward, + Mass -> FCGV["MZ"], + Indices -> {} }, + +U[31] == { + SelfConjugate -> False, + QuantumNumbers -> {GhostNumber, Q}, + PropagatorLabel -> "uWp", + PropagatorType -> GhostDash, + PropagatorArrow -> Forward, + Mass -> FCGV["MW"], + Indices -> {} }, + +U[32] == { + SelfConjugate -> False, + QuantumNumbers -> {GhostNumber, -Q}, + PropagatorLabel -> "uWm", + PropagatorType -> GhostDash, + PropagatorArrow -> Forward, + Mass -> FCGV["MW"], + Indices -> {} }, + +U[4] == { + SelfConjugate -> False, + Indices -> {Index[Gluon]}, + QuantumNumbers -> {GhostNumber}, + PropagatorLabel -> "uG", + PropagatorType -> GhostDash, + PropagatorArrow -> Forward, + Mass -> 0 }, + +V[13] == { + SelfConjugate -> True, + PropagatorLabel -> "Superscript[Z,,]", + PropagatorType -> Sine, + PropagatorArrow -> None, + Mass -> MZ1, + Indices -> {} }, + +V[14] == { + SelfConjugate -> False, + QuantumNumbers -> {Q}, + PropagatorLabel -> "Superscript[W,,]", + PropagatorType -> Sine, + PropagatorArrow -> Forward, + Mass -> MW1, + Indices -> {} }, + +F[1] == { + Indices -> {Index[Generation]}, + SelfConjugate -> False, + QuantumNumbers -> {LeptonNumber}, + PropagatorLabel -> "v", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> 0 }, + +F[2] == { + Indices -> {Index[Generation]}, + SelfConjugate -> False, + QuantumNumbers -> {-Q, LeptonNumber}, + PropagatorLabel -> "l", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> Ml }, + +F[3] == { + Indices -> {Index[Generation2], Index[Colour]}, + SelfConjugate -> False, + QuantumNumbers -> {(2*Q)/3}, + PropagatorLabel -> "uq", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> Mu }, + +F[30] == { + Indices -> {Index[Colour]}, + SelfConjugate -> False, + QuantumNumbers -> {(2*Q)/3}, + PropagatorLabel -> "t", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> FCGV["MT"] }, + +F[4] == { + Indices -> {Index[Generation2], Index[Colour]}, + SelfConjugate -> False, + QuantumNumbers -> {-Q/3}, + PropagatorLabel -> "dq", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> Md }, + +F[40] == { + Indices -> {Index[Colour]}, + SelfConjugate -> False, + QuantumNumbers -> {-Q/3}, + PropagatorLabel -> "b", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> FCGV["MB"] }, + +F[31] == { + Indices -> {Index[Colour]}, + SelfConjugate -> False, + QuantumNumbers -> {(2*Q)/3}, + PropagatorLabel -> "Superscript[t,,]", + PropagatorType -> Straight, + PropagatorArrow -> Forward, + Mass -> MT1 }, + +S[1] == { + SelfConjugate -> True, + PropagatorLabel -> "H", + PropagatorType -> ScalarDash, + PropagatorArrow -> None, + Mass -> FCGV["MH"], + Indices -> {} }, + +S[2] == { + SelfConjugate -> True, + PropagatorLabel -> "Go", + PropagatorType -> ScalarDash, + PropagatorArrow -> None, + Mass -> FCGV["MZ"], + Indices -> {} }, + +S[3] == { + SelfConjugate -> False, + QuantumNumbers -> {Q}, + PropagatorLabel -> "GP", + PropagatorType -> ScalarDash, + PropagatorArrow -> None, + Mass -> FCGV["MW"], + Indices -> {} }, + +S[4] == { + SelfConjugate -> True, + PropagatorLabel -> "Superscript[H,,]", + PropagatorType -> ScalarDash, + PropagatorArrow -> None, + Mass -> MH1, + Indices -> {} } +} + + +(* Definitions *) + +FAGaugeXi[ V[1] ] = FAGaugeXi[A]; +FAGaugeXi[ V[2] ] = FAGaugeXi[Z]; +FAGaugeXi[ V[3] ] = FAGaugeXi[W]; +FAGaugeXi[ V[4] ] = FAGaugeXi[G]; +FAGaugeXi[ U[1] ] = FAGaugeXi[A]; +FAGaugeXi[ U[2] ] = FAGaugeXi[Z]; +FAGaugeXi[ U[31] ] = FAGaugeXi[W]; +FAGaugeXi[ U[32] ] = FAGaugeXi[W]; +FAGaugeXi[ U[4] ] = FAGaugeXi[G]; +FAGaugeXi[ S[1] ] = 1; +FAGaugeXi[ S[2] ] = FAGaugeXi[Z]; +FAGaugeXi[ S[3] ] = FAGaugeXi[W]; + +FCGV["MZ"][ ___ ] := FCGV["MZ"]; +FCGV["MW"][ ___ ] := FCGV["MW"]; +MZ1[ ___ ] := MZ1; +MW1[ ___ ] := MW1; +Ml[ 1 ] := Me; +Ml[ 2 ] := MMU; +Ml[ 3 ] := MTA; +Mu[ 1, _ ] := FCGV["MU"]; +Mu[ 1 ] := FCGV["MU"]; +Mu[ 2, _ ] := FCGV["MC"]; +Mu[ 2 ] := FCGV["MC"]; +FCGV["MT"][ ___ ] := FCGV["MT"]; +Md[ 1, _ ] := FCGV["MD"]; +Md[ 1 ] := FCGV["MD"]; +Md[ 2, _ ] := FCGV["MS"]; +Md[ 2 ] := FCGV["MS"]; +FCGV["MB"][ ___ ] := FCGV["MB"]; +MT1[ ___ ] := MT1; +FCGV["MH"][ ___ ] := FCGV["MH"]; +MH1[ ___ ] := MH1; + + +TheLabel[ V[4, {__}] ] := TheLabel[V[4]]; +TheLabel[ U[4, {__}] ] := TheLabel[U[4]]; +TheLabel[ F[1, {1}] ] := "ve"; +TheLabel[ F[1, {2}] ] := "vm"; +TheLabel[ F[1, {3}] ] := "vt"; +TheLabel[ F[2, {1}] ] := "e"; +TheLabel[ F[2, {2}] ] := "mu"; +TheLabel[ F[2, {3}] ] := "ta"; +TheLabel[ F[3, {1, _}] ] := "u"; +TheLabel[ F[3, {1}] ] := "u"; +TheLabel[ F[3, {2, _}] ] := "c"; +TheLabel[ F[3, {2}] ] := "c"; +TheLabel[ F[30, {__}] ] := TheLabel[F[30]]; +TheLabel[ F[4, {1, _}] ] := "d"; +TheLabel[ F[4, {1}] ] := "d"; +TheLabel[ F[4, {2, _}] ] := "s"; +TheLabel[ F[4, {2}] ] := "s"; +TheLabel[ F[40, {__}] ] := TheLabel[F[40]]; +TheLabel[ F[31, {__}] ] := TheLabel[F[31]]; + + +(* Couplings (calculated by FeynRules) *) + +M$CouplingMatrices = { + +C[ S[1] , S[1] , S[1] , S[1] ] == {{((6*I)*lam*(-1 + sth)*(1 + sth))/cth^2, 0}}, + +C[ S[1] , S[1] , S[1] ] == {{((6*I)*lam*(-1 + sth)*(1 + sth)*vevhat)/cth^2, 0}}, + +C[ V[4, {e1x2}] , V[4, {e2x2}] , V[4, {e3x2}] ] == {{-(gc3*FASUNF[e1x2, e2x2, e3x2]), 0}, {gc3*FASUNF[e1x2, e2x2, e3x2], 0}, {gc3*FASUNF[e1x2, e2x2, e3x2], 0}, {-(gc3*FASUNF[e1x2, e2x2, e3x2]), 0}, {-(gc3*FASUNF[e1x2, e2x2, e3x2]), 0}, {gc3*FASUNF[e1x2, e2x2, e3x2], 0}}, + +C[ V[4, {e1x2}] , V[4, {e2x2}] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{(-I)*gc4*(FASUNF[e1x2, e2x2, e3x2, e4x2] + FASUNF[e1x2, e3x2, e2x2, e4x2]), 0}, {I*gc4*(FASUNF[e1x2, e2x2, e3x2, e4x2] - FASUNF[e1x2, e4x2, e2x2, e3x2]), 0}, {I*gc4*(FASUNF[e1x2, e3x2, e2x2, e4x2] + FASUNF[e1x2, e4x2, e2x2, e3x2]), 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , V[1] ] == {{I*gc5*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {I*gc5*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(3*gc5*(-(cbBIm*cth) - I*cbBRe*cth + (cbWIm + I*cbWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc5*(cbBIm*cth - I*cbBRe*cth - cbWIm*sth + I*cbWRe*sth)*vevhat*IndexDelta[e1x2, e2x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc5*(cbBIm*cth + I*cbBRe*cth - cbWIm*sth - I*cbWRe*sth)*vevhat*IndexDelta[e1x2, e2x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc5*(-(cbBIm*cth) + I*cbBRe*cth + (cbWIm - I*cbWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[1] ] == {{I*gc6*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {I*gc6*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {(3*gc6*(-(cdBIm*cth) - I*cdBRe*cth + (cdWIm + I*cdWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc6*(cdBIm*cth - I*cdBRe*cth - cdWIm*sth + I*cdWRe*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc6*(cdBIm*cth + I*cdBRe*cth - cdWIm*sth - I*cdWRe*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc6*(-(cdBIm*cth) + I*cdBRe*cth + (cdWIm - I*cdWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , V[1] ] == {{I*gc7*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {I*gc7*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(gc7*(-(ceBIm*cth) - I*ceBRe*cth + (ceWIm + I*ceWRe)*sth)*vevhat*yl[e1x2, e2x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(gc7*(ceBIm*cth - I*ceBRe*cth - ceWIm*sth + I*ceWRe*sth)*vevhat*yl[e2x2, e1x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(gc7*(ceBIm*cth + I*ceBRe*cth - ceWIm*sth - I*ceWRe*sth)*vevhat*yl[e1x2, e2x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(gc7*(-(ceBIm*cth) + I*ceBRe*cth + (ceWIm - I*ceWRe)*sth)*vevhat*yl[e2x2, e1x2])/(Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , V[1] ] == {{I*gc8*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {I*gc8*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(3*gc8*(ctBIm*cth + I*ctBRe*cth + (ctWIm + I*ctWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(2*Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(-3*gc8*(ctBIm*cth - I*ctBRe*cth + (ctWIm - I*ctWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(2*Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(-3*gc8*(ctBIm*cth + I*ctBRe*cth + (ctWIm + I*ctWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(2*Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc8*(ctBIm*cth - I*ctBRe*cth + (ctWIm - I*ctWRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(2*Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[1] ] == {{I*gc9*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {I*gc9*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {(3*gc9*(cth*(cuBIm + I*cuBRe) + (cuWIm + I*cuWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(2*Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(-3*gc9*(cth*(cuBIm - I*cuBRe) + (cuWIm - I*cuWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(2*Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(-3*gc9*(cth*(cuBIm + I*cuBRe) + (cuWIm + I*cuWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(2*Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {(3*gc9*(cth*(cuBIm - I*cuBRe) + (cuWIm - I*cuWRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(2*Sqrt[2]*FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] ] == {{I*gc10*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {I*gc10*IndexDelta[e1x2, e2x2], 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] ] == {{I*gc11*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {I*gc11*IndexDelta[e1x2, e2x2], 0}, {0, 0}}, + +C[ V[1] , V[3] , -V[3] ] == {{(-I)*gc12, 0}, {I*gc12, 0}, {I*gc12, 0}, {(-I)*gc12, 0}, {(-I)*gc12, 0}, {I*gc12, 0}}, + +C[ S[1] , S[1] , V[3] , -V[3] ] == {{((-I/2)*FCGV["EL"]^2*(-1 + sth)*(1 + sth))/(cth^2*sth^2), 0}}, + +C[ S[1] , V[3] , -V[3] ] == {{((-I/2)*FCGV["EL"]^2*(-1 + sth)*(1 + sth)*vevhat)/(cth^2*sth^2), 0}}, + +C[ V[1] , V[1] , V[3] , -V[3] ] == {{(-I)*gc15, 0}, {(-I)*gc15, 0}, {(2*I)*gc15, 0}}, + +C[ V[3] , -V[3] , V[2] ] == {{(-I)*gc16, 0}, {I*gc16, 0}, {I*gc16, 0}, {(-I)*gc16, 0}, {(-I)*gc16, 0}, {I*gc16, 0}}, + +C[ V[3] , V[3] , -V[3] , -V[3] ] == {{(-I)*gc17, 0}, {(-I)*gc17, 0}, {(2*I)*gc17, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] ] == {{I*gc18[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {(I*gc18[e1x2, e2x2]*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/ydtop[e1x2, e2x2], 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , S[1] ] == {{I*gc19[e1x2, e2x2], 0}, {0, 0}, {(I*gc19[e1x2, e2x2]*yl[e2x2, e1x2])/yl[e1x2, e2x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] ] == {{I*gc20[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {(I*gc20[e1x2, e2x2]*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/yutop[e1x2, e2x2], 0}, {0, 0}}, + +C[ V[1] , V[3] , -V[3] , V[2] ] == {{(-2*I)*gc21, 0}, {I*gc21, 0}, {I*gc21, 0}}, + +C[ S[1] , S[1] , V[2] , V[2] ] == {{((I/2)*FCGV["EL"]^2)/(cth^2*sth^2), 0}}, + +C[ S[1] , V[2] , V[2] ] == {{((I/2)*FCGV["EL"]^2*vevhat)/(cth^2*sth^2), 0}}, + +C[ V[3] , -V[3] , V[2] , V[2] ] == {{(-I)*gc24, 0}, {(-I)*gc24, 0}, {(2*I)*gc24, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , V[4, {e3x2}] ] == {{I*gc25*FASUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {I*gc25*FASUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {((cbGIm + I*cbGRe)*gc25*vevhat*FASUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2), 0}, {0, 0}, {-(((cbGIm - I*cbGRe)*gc25*vevhat*FASUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2)), 0}, {0, 0}, {-(((cbGIm + I*cbGRe)*gc25*vevhat*FASUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2)), 0}, {0, 0}, {((cbGIm - I*cbGRe)*gc25*vevhat*FASUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[4, {e3x2}] ] == {{I*gc26*IndexDelta[e1x2, e2x2]*FASUNT[e3x2, e1x3, e2x3], 0}, {0, 0}, {I*gc26*IndexDelta[e1x2, e2x2]*FASUNT[e3x2, e1x3, e2x3], 0}, {0, 0}, {((cdGIm + I*cdGRe)*gc26*vevhat*FASUNT[e3x2, e1x3, e2x3]*ydtop[e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2), 0}, {0, 0}, {-(((cdGIm - I*cdGRe)*gc26*vevhat*FASUNT[e3x2, e1x3, e2x3]*ydtop[e2x2, e1x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2)), 0}, {0, 0}, {-(((cdGIm + I*cdGRe)*gc26*vevhat*FASUNT[e3x2, e1x3, e2x3]*ydtop[e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2)), 0}, {0, 0}, {((cdGIm - I*cdGRe)*gc26*vevhat*FASUNT[e3x2, e1x3, e2x3]*ydtop[e2x2, e1x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , V[4, {e3x2}] ] == {{I*gc27*FASUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {I*gc27*FASUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {((ctGIm + I*ctGRe)*gc27*vevhat*FASUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2), 0}, {0, 0}, {-(((ctGIm - I*ctGRe)*gc27*vevhat*FASUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2)), 0}, {0, 0}, {-(((ctGIm + I*ctGRe)*gc27*vevhat*FASUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2)), 0}, {0, 0}, {((ctGIm - I*ctGRe)*gc27*vevhat*FASUNT[e3x2, e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[4, {e3x2}] ] == {{I*gc28*IndexDelta[e1x2, e2x2]*FASUNT[e3x2, e1x3, e2x3], 0}, {0, 0}, {I*gc28*IndexDelta[e1x2, e2x2]*FASUNT[e3x2, e1x3, e2x3], 0}, {0, 0}, {((cuGIm + I*cuGRe)*gc28*vevhat*FASUNT[e3x2, e1x3, e2x3]*yutop[e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2), 0}, {0, 0}, {-(((cuGIm - I*cuGRe)*gc28*vevhat*FASUNT[e3x2, e1x3, e2x3]*yutop[e2x2, e1x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2)), 0}, {0, 0}, {-(((cuGIm + I*cuGRe)*gc28*vevhat*FASUNT[e3x2, e1x3, e2x3]*yutop[e1x2, e2x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2)), 0}, {0, 0}, {((cuGIm - I*cuGRe)*gc28*vevhat*FASUNT[e3x2, e1x3, e2x3]*yutop[e2x2, e1x2])/(Sqrt[2]*FAGS*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , V[3] ] == {{I*gc29*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(ctWIm + I*ctWRe)*gc29*sth*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {-((Sqrt[2]*(cbWIm - I*cbWRe)*gc29*sth*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2)), 0}, {0, 0}, {-((Sqrt[2]*(ctWIm + I*ctWRe)*gc29*sth*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2)), 0}, {0, 0}, {(Sqrt[2]*(cbWIm - I*cbWRe)*gc29*sth*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[3] ] == {{I*gc30*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(cuWIm + I*cuWRe)*gc30*sth*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {-((Sqrt[2]*(cdWIm - I*cdWRe)*gc30*sth*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2)), 0}, {0, 0}, {-((Sqrt[2]*(cuWIm + I*cuWRe)*gc30*sth*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2)), 0}, {0, 0}, {(Sqrt[2]*(cdWIm - I*cdWRe)*gc30*sth*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , V[3] ] == {{I*gc31*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {-((Sqrt[2]*(ceWIm - I*ceWRe)*gc31*sth*vevhat*yl[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2)), 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(ceWIm - I*ceWRe)*gc31*sth*vevhat*yl[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , -V[3] ] == {{I*gc32*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(cbWIm + I*cbWRe)*gc32*sth*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {-((Sqrt[2]*(ctWIm - I*ctWRe)*gc32*sth*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2)), 0}, {0, 0}, {-((Sqrt[2]*(cbWIm + I*cbWRe)*gc32*sth*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2)), 0}, {0, 0}, {(Sqrt[2]*(ctWIm - I*ctWRe)*gc32*sth*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , -V[3] ] == {{I*gc33*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(cdWIm + I*cdWRe)*gc33*sth*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {-((Sqrt[2]*(cuWIm - I*cuWRe)*gc33*sth*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2)), 0}, {0, 0}, {-((Sqrt[2]*(cdWIm + I*cdWRe)*gc33*sth*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2)), 0}, {0, 0}, {(Sqrt[2]*(cuWIm - I*cuWRe)*gc33*sth*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , -V[3] ] == {{I*gc34*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {0, 0}, {0, 0}, {(Sqrt[2]*(ceWIm + I*ceWRe)*gc34*sth*vevhat*yl[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2), 0}, {0, 0}, {0, 0}, {0, 0}, {-((Sqrt[2]*(ceWIm + I*ceWRe)*gc34*sth*vevhat*yl[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2)), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , V[2] ] == {{I*gc35*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {((2*I)*gc35*sth^2*IndexDelta[e1x2, e2x2])/(-3 + 2*sth^2), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc35*sth*(cbWIm*cth + I*cbWRe*cth + (cbBIm + I*cbBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc35*sth*(cbWIm*cth - I*cbWRe*cth + (cbBIm - I*cbBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc35*sth*(cbWIm*cth + I*cbWRe*cth + (cbBIm + I*cbBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc35*sth*(cbWIm*cth - I*cbWRe*cth + (cbBIm - I*cbBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[2] ] == {{I*gc36*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {((2*I)*gc36*sth^2*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3])/(-3 + 2*sth^2), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc36*sth*(cdWIm*cth + I*cdWRe*cth + (cdBIm + I*cdBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc36*sth*(cdWIm*cth - I*cdWRe*cth + (cdBIm - I*cdBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc36*sth*(cdWIm*cth + I*cdWRe*cth + (cdBIm + I*cdBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc36*sth*(cdWIm*cth - I*cdWRe*cth + (cdBIm - I*cdBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 2*sth^2)), 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , V[2] ] == {{I*gc37*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {((2*I)*gc37*sth^2*IndexDelta[e1x2, e2x2])/(-1 + 2*sth^2), 0}, {0, 0}, {-((Sqrt[2]*cth*gc37*sth*(ceWIm*cth + I*ceWRe*cth + (ceBIm + I*ceBRe)*sth)*vevhat*yl[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-1 + 2*sth^2))), 0}, {0, 0}, {(Sqrt[2]*cth*gc37*sth*(ceWIm*cth - I*ceWRe*cth + (ceBIm - I*ceBRe)*sth)*vevhat*yl[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2*(-1 + 2*sth^2)), 0}, {0, 0}, {(Sqrt[2]*cth*gc37*sth*(ceWIm*cth + I*ceWRe*cth + (ceBIm + I*ceBRe)*sth)*vevhat*yl[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-1 + 2*sth^2)), 0}, {0, 0}, {-((Sqrt[2]*cth*gc37*sth*(ceWIm*cth - I*ceWRe*cth + (ceBIm - I*ceBRe)*sth)*vevhat*yl[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2*(-1 + 2*sth^2))), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , V[2] ] == {{I*gc38*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {((4*I)*gc38*sth^2*IndexDelta[e1x2, e2x2])/(-3 + 4*sth^2), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc38*sth*(cth*(ctWIm + I*ctWRe) - (ctBIm + I*ctBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc38*sth*(cth*ctWIm - I*cth*ctWRe - ctBIm*sth + I*ctBRe*sth)*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc38*sth*(cth*(ctWIm + I*ctWRe) - (ctBIm + I*ctBRe)*sth)*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc38*sth*(cth*ctWIm - I*cth*ctWRe - ctBIm*sth + I*ctBRe*sth)*vevhat*IndexDelta[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[2] ] == {{I*gc39*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3], 0}, {0, 0}, {((4*I)*gc39*sth^2*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3])/(-3 + 4*sth^2), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc39*sth*(cth*(cuWIm + I*cuWRe) - (cuBIm + I*cuBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc39*sth*(cth*cuWIm - I*cth*cuWRe - cuBIm*sth + I*cuBRe*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(3*Sqrt[2]*cth*gc39*sth*(cth*(cuWIm + I*cuWRe) - (cuBIm + I*cuBRe)*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}, {(-3*Sqrt[2]*cth*gc39*sth*(cth*cuWIm - I*cth*cuWRe - cuBIm*sth + I*cuBRe*sth)*vevhat*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2])/(FCGV["EL"]*LambdaSMEFT^2*(-3 + 4*sth^2)), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[1, {e2x2}] , V[2] ] == {{I*gc40*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[30, {e3x2}] , F[40, {e2x2}] , F[3, {e4x2, e4x3}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {-(gc41[e1x2, e4x2]*(3*(cutbd8Im + I*cutbd8Re)*IndexDelta[e1x3, e4x3]*IndexDelta[e2x2, e3x2] + (6*cutbd1Im + (6*I)*cutbd1Re - cutbd8Im - I*cutbd8Re)*IndexDelta[e1x3, e2x2]*IndexDelta[e3x2, e4x3])), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[40, {e3x2}] , F[40, {e2x2}] , F[40, {e4x2}] ] == {{I*gc42*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc42*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[4, {e3x2, e3x3}] , F[40, {e2x2}] , F[4, {e4x2, e4x3}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc43*IndexDelta[e3x2, e4x2]*(3*cbd8*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + (6*cbd1 - cbd8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[4, {e3x2, e3x3}] , F[4, {e2x2, e2x3}] , F[4, {e4x2, e4x3}] ] == {{((I/2)*gc44*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2]*((6*cdd1 - cdd8)*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + 3*cdd8*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cdd1 + cdd8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {((I/2)*gc44*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*(3*cdd8*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + (6*cdd1 - cdd8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cdd1 + cdd8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[2, {e3x2}] , F[40, {e2x2}] , F[2, {e4x2}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc45*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[2, {e3x2}] , F[4, {e2x2, e2x3}] , F[2, {e4x2}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc46*IndexDelta[e1x2, e2x2]*IndexDelta[e1x3, e2x3]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , -F[2, {e3x2}] , F[2, {e2x2}] , F[2, {e4x2}] ] == {{I*gc47*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc47*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , -F[30, {e3x2}] , F[2, {e2x2}] , F[30, {e4x2}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc48*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[30, {e3x2}] , F[40, {e2x2}] , F[30, {e4x2}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc49*(3*ctb8*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2] + (6*ctb1 - ctb8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[30, {e3x2}] , F[4, {e2x2, e2x3}] , F[30, {e4x2}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {((I/2)*gc50*IndexDelta[e1x2, e2x2]*(3*ctd8*IndexDelta[e1x3, e4x2]*IndexDelta[e2x3, e3x2] + (6*ctd1 - ctd8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x2, e4x2]))/(3*ctd1 + ctd8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , -F[30, {e3x2}] , F[30, {e2x2}] , F[30, {e4x2}] ] == {{I*gc51*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc51*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , -F[3, {e3x2, e3x3}] , F[2, {e2x2}] , F[3, {e4x2, e4x3}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc52*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*IndexDelta[e3x3, e4x3], 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[3, {e3x2, e3x3}] , F[40, {e2x2}] , F[3, {e4x2, e4x3}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc53*IndexDelta[e3x2, e4x2]*(3*cbu8*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + (6*cbu1 - cbu8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , -F[3, {e3x2, e3x3}] , F[30, {e2x2}] , F[3, {e4x2, e4x3}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {I*gc54*IndexDelta[e3x2, e4x2]*(3*ctu8*IndexDelta[e1x2, e4x3]*IndexDelta[e2x2, e3x3] + (6*ctu1 - ctu8)*IndexDelta[e1x2, e2x2]*IndexDelta[e3x3, e4x3]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , -F[3, {e3x2, e3x3}] , F[4, {e2x2, e2x3}] , F[3, {e4x2, e4x3}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {((I/2)*gc55*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*(3*cud8*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + (6*cud1 - cud8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cud1 + cud8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , -F[3, {e3x2, e3x3}] , F[3, {e2x2, e2x3}] , F[3, {e4x2, e4x3}] ] == {{((I/2)*gc56*IndexDelta[e1x2, e4x2]*IndexDelta[e2x2, e3x2]*((6*cuu1 - cuu8)*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + 3*cuu8*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cuu1 + cuu8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {((I/2)*gc56*IndexDelta[e1x2, e2x2]*IndexDelta[e3x2, e4x2]*(3*cuu8*IndexDelta[e1x3, e4x3]*IndexDelta[e2x3, e3x3] + (6*cuu1 - cuu8)*IndexDelta[e1x3, e2x3]*IndexDelta[e3x3, e4x3]))/(3*cuu1 + cuu8), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , -F[3, {e3x2, e3x3}] , F[4, {e2x2, e2x3}] , F[30, {e4x2}] ] == {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {gc57[e3x2, e2x2]*(3*(cutbd8Im - I*cutbd8Re)*IndexDelta[e1x2, e4x2]*IndexDelta[e2x3, e3x3] + (6*cutbd1Im - (6*I)*cutbd1Re - cutbd8Im + I*cutbd8Re)*IndexDelta[e1x2, e2x3]*IndexDelta[e3x3, e4x2]), 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] , V[1] ] == {{gc58*(-(cbBIm*cth) - I*cbBRe*cth + (cbWIm + I*cbWRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc58*(cbBIm*cth - I*cbBRe*cth - cbWIm*sth + I*cbWRe*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc58*(cbBIm*cth + I*cbBRe*cth - cbWIm*sth - I*cbWRe*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc58*(-(cbBIm*cth) + I*cbBRe*cth + (cbWIm - I*cbWRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] , V[2] ] == {{-(gc59*(cbWIm*cth + I*cbWRe*cth + (cbBIm + I*cbBRe)*sth)*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {gc59*(cbWIm*cth - I*cbWRe*cth + (cbBIm - I*cbBRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc59*(cbWIm*cth + I*cbWRe*cth + (cbBIm + I*cbBRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-(gc59*(cbWIm*cth - I*cbWRe*cth + (cbBIm - I*cbBRe)*sth)*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , S[1] , V[1] ] == {{gc60*(ceBIm*cth + I*ceBRe*cth - ceWIm*sth - I*ceWRe*sth)*yl[e1x2, e2x2], 0}, {0, 0}, {gc60*(-(ceBIm*cth) + I*ceBRe*cth + (ceWIm - I*ceWRe)*sth)*yl[e2x2, e1x2], 0}, {0, 0}, {gc60*(-(ceBIm*cth) - I*ceBRe*cth + (ceWIm + I*ceWRe)*sth)*yl[e1x2, e2x2], 0}, {0, 0}, {gc60*(ceBIm*cth - I*ceBRe*cth - ceWIm*sth + I*ceWRe*sth)*yl[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , S[1] , V[2] ] == {{gc61*(ceWIm*cth + I*ceWRe*cth + (ceBIm + I*ceBRe)*sth)*yl[e1x2, e2x2], 0}, {0, 0}, {-(gc61*(ceWIm*cth - I*ceWRe*cth + (ceBIm - I*ceBRe)*sth)*yl[e2x2, e1x2]), 0}, {0, 0}, {-(gc61*(ceWIm*cth + I*ceWRe*cth + (ceBIm + I*ceBRe)*sth)*yl[e1x2, e2x2]), 0}, {0, 0}, {gc61*(ceWIm*cth - I*ceWRe*cth + (ceBIm - I*ceBRe)*sth)*yl[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] , V[1] ] == {{-(gc62*(ctBIm*cth + I*ctBRe*cth + (ctWIm + I*ctWRe)*sth)*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {gc62*(ctBIm*cth - I*ctBRe*cth + (ctWIm - I*ctWRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc62*(ctBIm*cth + I*ctBRe*cth + (ctWIm + I*ctWRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-(gc62*(ctBIm*cth - I*ctBRe*cth + (ctWIm - I*ctWRe)*sth)*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] , V[2] ] == {{gc63*(cth*(ctWIm + I*ctWRe) - (ctBIm + I*ctBRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc63*(-(cth*ctWIm) + I*cth*ctWRe + ctBIm*sth - I*ctBRe*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc63*(-(cth*(ctWIm + I*ctWRe)) + (ctBIm + I*ctBRe)*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {gc63*(cth*ctWIm - I*cth*ctWRe - ctBIm*sth + I*ctBRe*sth)*IndexDelta[e1x2, e2x2], 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] , V[4, {e3x2}] ] == {{-((cbGIm + I*cbGRe)*gc64*FASUNT[e3x2, e1x2, e2x2]), 0}, {0, 0}, {(cbGIm - I*cbGRe)*gc64*FASUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {(cbGIm + I*cbGRe)*gc64*FASUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {-((cbGIm - I*cbGRe)*gc64*FASUNT[e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{(cbGIm + I*cbGRe)*gc65*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}, {-((cbGIm - I*cbGRe)*gc65*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {-((cbGIm + I*cbGRe)*gc65*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {(cbGIm - I*cbGRe)*gc65*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{(cbGIm + I*cbGRe)*gc66*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}, {-((cbGIm - I*cbGRe)*gc66*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {-((cbGIm + I*cbGRe)*gc66*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {(cbGIm - I*cbGRe)*gc66*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] , V[4, {e3x2}] ] == {{-((ctGIm + I*ctGRe)*gc67*FASUNT[e3x2, e1x2, e2x2]), 0}, {0, 0}, {(ctGIm - I*ctGRe)*gc67*FASUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {(ctGIm + I*ctGRe)*gc67*FASUNT[e3x2, e1x2, e2x2], 0}, {0, 0}, {-((ctGIm - I*ctGRe)*gc67*FASUNT[e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{(ctGIm + I*ctGRe)*gc68*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}, {-((ctGIm - I*ctGRe)*gc68*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {-((ctGIm + I*ctGRe)*gc68*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {(ctGIm - I*ctGRe)*gc68*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{(ctGIm + I*ctGRe)*gc69*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}, {-((ctGIm - I*ctGRe)*gc69*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {-((ctGIm + I*ctGRe)*gc69*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2])), 0}, {0, 0}, {(ctGIm - I*ctGRe)*gc69*(FASUNT[e3x2, e4x2, e1x2, e2x2] - FASUNT[e4x2, e3x2, e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[1] ] == {{gc70*(cdBIm*cth + I*cdBRe*cth - cdWIm*sth - I*cdWRe*sth)*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {gc70*(-(cdBIm*cth) + I*cdBRe*cth + (cdWIm - I*cdWRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}, {gc70*(-(cdBIm*cth) - I*cdBRe*cth + (cdWIm + I*cdWRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {gc70*(cdBIm*cth - I*cdBRe*cth - cdWIm*sth + I*cdWRe*sth)*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[2] ] == {{gc71*(cdWIm*cth + I*cdWRe*cth + (cdBIm + I*cdBRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-(gc71*(cdWIm*cth - I*cdWRe*cth + (cdBIm - I*cdBRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-(gc71*(cdWIm*cth + I*cdWRe*cth + (cdBIm + I*cdBRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {gc71*(cdWIm*cth - I*cdWRe*cth + (cdBIm - I*cdBRe)*sth)*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[4, {e3x2}] ] == {{(cdGIm + I*cdGRe)*gc72*FASUNT[e3x2, e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cdGIm - I*cdGRe)*gc72*FASUNT[e3x2, e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cdGIm + I*cdGRe)*gc72*FASUNT[e3x2, e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cdGIm - I*cdGRe)*gc72*FASUNT[e3x2, e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{-((cdGIm + I*cdGRe)*gc73*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cdGIm - I*cdGRe)*gc73*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e2x2, e1x2], 0}, {0, 0}, {(cdGIm + I*cdGRe)*gc73*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cdGIm - I*cdGRe)*gc73*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e2x2, e1x2]), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{-((cdGIm + I*cdGRe)*gc74*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cdGIm - I*cdGRe)*gc74*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e2x2, e1x2], 0}, {0, 0}, {(cdGIm + I*cdGRe)*gc74*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cdGIm - I*cdGRe)*gc74*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*ydtop[e2x2, e1x2]), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[1] ] == {{gc75*(cth*(cuBIm + I*cuBRe) + (cuWIm + I*cuWRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-(gc75*(cth*(cuBIm - I*cuBRe) + (cuWIm - I*cuWRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-(gc75*(cth*(cuBIm + I*cuBRe) + (cuWIm + I*cuWRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {gc75*(cth*(cuBIm - I*cuBRe) + (cuWIm - I*cuWRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[2] ] == {{gc76*(-(cth*(cuWIm + I*cuWRe)) + (cuBIm + I*cuBRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {gc76*(cth*cuWIm - I*cth*cuWRe - cuBIm*sth + I*cuBRe*sth)*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}, {gc76*(cth*(cuWIm + I*cuWRe) - (cuBIm + I*cuBRe)*sth)*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {gc76*(-(cth*cuWIm) + I*cth*cuWRe + cuBIm*sth - I*cuBRe*sth)*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[4, {e3x2}] ] == {{(cuGIm + I*cuGRe)*gc77*FASUNT[e3x2, e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cuGIm - I*cuGRe)*gc77*FASUNT[e3x2, e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cuGIm + I*cuGRe)*gc77*FASUNT[e3x2, e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cuGIm - I*cuGRe)*gc77*FASUNT[e3x2, e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{-((cuGIm + I*cuGRe)*gc78*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cuGIm - I*cuGRe)*gc78*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e2x2, e1x2], 0}, {0, 0}, {(cuGIm + I*cuGRe)*gc78*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cuGIm - I*cuGRe)*gc78*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e2x2, e1x2]), 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[4, {e3x2}] , V[4, {e4x2}] ] == {{-((cuGIm + I*cuGRe)*gc79*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cuGIm - I*cuGRe)*gc79*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e2x2, e1x2], 0}, {0, 0}, {(cuGIm + I*cuGRe)*gc79*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cuGIm - I*cuGRe)*gc79*(FASUNT[e3x2, e4x2, e1x3, e2x3] - FASUNT[e4x2, e3x2, e1x3, e2x3])*yutop[e2x2, e1x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , S[1] , -V[3] ] == {{-((cbWIm + I*cbWRe)*gc80*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc80*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc80*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc80*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , S[1] , V[1] , -V[3] ] == {{-((cbWIm + I*cbWRe)*gc81*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc81*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc81*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc81*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , V[1] , -V[3] ] == {{-((cbWIm + I*cbWRe)*gc82*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc82*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc82*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc82*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , S[1] , V[3] , -V[3] ] == {{-((cbWIm + I*cbWRe)*gc83*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc83*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc83*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc83*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[40, {e2x2}] , V[3] , -V[3] ] == {{-((cbWIm + I*cbWRe)*gc84*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc84*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc84*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc84*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , S[1] , -V[3] , V[2] ] == {{-((cbWIm + I*cbWRe)*gc85*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc85*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc85*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc85*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[40, {e1x2}] , F[30, {e2x2}] , -V[3] , V[2] ] == {{-((cbWIm + I*cbWRe)*gc86*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc86*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(cbWIm + I*cbWRe)*gc86*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc86*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , S[1] , -V[3] ] == {{-(((ceWIm + I*ceWRe)*gc87[e1x2, e2x2])/(ceWIm + ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm + I*ceWRe)*gc87[e1x2, e2x2])/(ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , S[1] , V[1] , -V[3] ] == {{-(((ceWIm + I*ceWRe)*gc88[e1x2, e2x2])/(ceWIm + ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm + I*ceWRe)*gc88[e1x2, e2x2])/(ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , V[1] , -V[3] ] == {{-(((ceWIm + I*ceWRe)*gc89[e1x2, e2x2])/(ceWIm + ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm + I*ceWRe)*gc89[e1x2, e2x2])/(ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , S[1] , V[3] , -V[3] ] == {{(ceWIm + I*ceWRe)*gc90*yl[e1x2, e2x2], 0}, {0, 0}, {-((ceWIm - I*ceWRe)*gc90*yl[e2x2, e1x2]), 0}, {0, 0}, {-((ceWIm + I*ceWRe)*gc90*yl[e1x2, e2x2]), 0}, {0, 0}, {(ceWIm - I*ceWRe)*gc90*yl[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[2, {e2x2}] , V[3] , -V[3] ] == {{(ceWIm + I*ceWRe)*gc91*yl[e1x2, e2x2], 0}, {0, 0}, {-((ceWIm - I*ceWRe)*gc91*yl[e2x2, e1x2]), 0}, {0, 0}, {-((ceWIm + I*ceWRe)*gc91*yl[e1x2, e2x2]), 0}, {0, 0}, {(ceWIm - I*ceWRe)*gc91*yl[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , S[1] , -V[3] , V[2] ] == {{-(((ceWIm + I*ceWRe)*gc92[e1x2, e2x2])/(ceWIm + ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm + I*ceWRe)*gc92[e1x2, e2x2])/(ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[2, {e1x2}] , F[1, {e2x2}] , -V[3] , V[2] ] == {{-(((ceWIm + I*ceWRe)*gc93[e1x2, e2x2])/(ceWIm + ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm + I*ceWRe)*gc93[e1x2, e2x2])/(ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , S[1] , V[3] ] == {{-((ctWIm + I*ctWRe)*gc94*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc94*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc94*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc94*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , S[1] , V[1] , V[3] ] == {{-((ctWIm + I*ctWRe)*gc95*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc95*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc95*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc95*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , V[1] , V[3] ] == {{-((ctWIm + I*ctWRe)*gc96*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc96*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc96*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc96*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , S[1] , V[3] , -V[3] ] == {{-((ctWIm + I*ctWRe)*gc97*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc97*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc97*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc97*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[30, {e2x2}] , V[3] , -V[3] ] == {{-((ctWIm + I*ctWRe)*gc98*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(ctWIm - I*ctWRe)*gc98*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc98*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((ctWIm - I*ctWRe)*gc98*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , S[1] , V[3] , V[2] ] == {{-((ctWIm + I*ctWRe)*gc99*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc99*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc99*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc99*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[30, {e1x2}] , F[40, {e2x2}] , V[3] , V[2] ] == {{-((ctWIm + I*ctWRe)*gc100*IndexDelta[e1x2, e2x2]), 0}, {0, 0}, {(cbWIm - I*cbWRe)*gc100*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {(ctWIm + I*ctWRe)*gc100*IndexDelta[e1x2, e2x2], 0}, {0, 0}, {-((cbWIm - I*cbWRe)*gc100*IndexDelta[e1x2, e2x2]), 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , -V[3] ] == {{(cdWIm + I*cdWRe)*gc101*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc101*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc101*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc101*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[1] , -V[3] ] == {{(cdWIm + I*cdWRe)*gc102*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc102*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc102*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc102*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[1] , -V[3] ] == {{(cdWIm + I*cdWRe)*gc103*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc103*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc103*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc103*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[3] , -V[3] ] == {{(cdWIm + I*cdWRe)*gc104*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc104*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc104*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc104*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[3] , -V[3] ] == {{(cdWIm + I*cdWRe)*gc105*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc105*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc105*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc105*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , -V[3] , V[2] ] == {{(cdWIm + I*cdWRe)*gc106*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc106*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc106*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc106*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[4, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , -V[3] , V[2] ] == {{(cdWIm + I*cdWRe)*gc107*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc107*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cdWIm + I*cdWRe)*gc107*IndexDelta[e1x3, e2x3]*ydtop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc107*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[3] ] == {{(cuWIm + I*cuWRe)*gc108*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc108*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc108*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc108*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[1] , V[3] ] == {{(cuWIm + I*cuWRe)*gc109*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc109*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc109*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc109*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[1] , V[3] ] == {{(cuWIm + I*cuWRe)*gc110*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc110*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc110*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc110*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , S[1] , V[3] , -V[3] ] == {{(cuWIm + I*cuWRe)*gc111*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc111*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc111*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc111*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[3, {e2x2, e2x3}] , V[3] , -V[3] ] == {{(cuWIm + I*cuWRe)*gc112*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cuWIm - I*cuWRe)*gc112*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc112*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cuWIm - I*cuWRe)*gc112*IndexDelta[e1x3, e2x3]*yutop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , S[1] , V[3] , V[2] ] == {{(cuWIm + I*cuWRe)*gc113*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc113*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc113*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc113*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[3, {e1x2, e1x3}] , F[4, {e2x2, e2x3}] , V[3] , V[2] ] == {{(cuWIm + I*cuWRe)*gc114*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2], 0}, {0, 0}, {-((cdWIm - I*cdWRe)*gc114*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2]), 0}, {0, 0}, {-((cuWIm + I*cuWRe)*gc114*IndexDelta[e1x3, e2x3]*yutop[e1x2, e2x2]), 0}, {0, 0}, {(cdWIm - I*cdWRe)*gc114*IndexDelta[e1x3, e2x3]*ydtop[e2x2, e1x2], 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , S[1] , V[3] ] == {{0, 0}, {0, 0}, {-(((ceWIm - I*ceWRe)*gc115[e1x2, e2x2])/(ceWIm - ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc115[e1x2, e2x2])/(ceWIm - ceWRe), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , S[1] , V[1] , V[3] ] == {{0, 0}, {0, 0}, {-(((ceWIm - I*ceWRe)*gc116[e1x2, e2x2])/(ceWIm - ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc116[e1x2, e2x2])/(ceWIm - ceWRe), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , V[1] , V[3] ] == {{0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc117[e1x2, e2x2])/(-ceWIm + ceWRe), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc117[e1x2, e2x2])/(ceWIm - ceWRe), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , S[1] , V[3] , V[2] ] == {{0, 0}, {0, 0}, {-(((ceWIm - I*ceWRe)*gc118[e1x2, e2x2])/(ceWIm - ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc118[e1x2, e2x2])/(ceWIm - ceWRe), 0}, {0, 0}}, + +C[ -F[1, {e1x2}] , F[2, {e2x2}] , V[3] , V[2] ] == {{0, 0}, {0, 0}, {-(((ceWIm - I*ceWRe)*gc119[e1x2, e2x2])/(ceWIm - ceWRe)), 0}, {0, 0}, {0, 0}, {0, 0}, {((ceWIm - I*ceWRe)*gc119[e1x2, e2x2])/(ceWIm - ceWRe), 0}, {0, 0}} + +} + +(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) + +(* Parameter replacement lists (These lists were created by FeynRules) *) + +(* FA Couplings *) + +M$FACouplings = { + gc3 -> FAGS, + gc4 -> -FAGS^2, + gc5 -> FCGV["EL"]/3, + gc6 -> FCGV["EL"]/3, + gc7 -> FCGV["EL"], + gc8 -> (-2*FCGV["EL"])/3, + gc9 -> (-2*FCGV["EL"])/3, + gc10 -> -(yb/Sqrt[2]), + gc11 -> -(yt/Sqrt[2]), + gc12 -> -FCGV["EL"], + gc15 -> -FCGV["EL"]^2, + gc16 -> -((cth*FCGV["EL"])/sth), + gc17 -> FCGV["EL"]^2/sth^2, + gc18[e1x2_, e2x2_] -> -(ydtop[e1x2, e2x2]/Sqrt[2]), + gc19[e1x2_, e2x2_] -> -(yl[e1x2, e2x2]/Sqrt[2]), + gc20[e1x2_, e2x2_] -> -(yutop[e1x2, e2x2]/Sqrt[2]), + gc21 -> (cth*FCGV["EL"]^2)/sth, + gc24 -> (FCGV["EL"]^2*(-1 + sth^2))/sth^2, + gc25 -> -FAGS, + gc26 -> -FAGS, + gc27 -> -FAGS, + gc28 -> -FAGS, + gc29 -> -(FCGV["EL"]/(Sqrt[2]*sth)), + gc30 -> -(FCGV["EL"]/(Sqrt[2]*sth)), + gc31 -> -(FCGV["EL"]/(Sqrt[2]*sth)), + gc32 -> -(FCGV["EL"]/(Sqrt[2]*sth)), + gc33 -> -(FCGV["EL"]/(Sqrt[2]*sth)), + gc34 -> -(FCGV["EL"]/(Sqrt[2]*sth)), + gc35 -> -(FCGV["EL"]*(-3 + 2*sth^2))/(6*cth*sth), + gc36 -> -(FCGV["EL"]*(-3 + 2*sth^2))/(6*cth*sth), + gc37 -> -(FCGV["EL"]*(-1 + 2*sth^2))/(2*cth*sth), + gc38 -> (FCGV["EL"]*(-3 + 4*sth^2))/(6*cth*sth), + gc39 -> (FCGV["EL"]*(-3 + 4*sth^2))/(6*cth*sth), + gc40 -> -FCGV["EL"]/(2*cth*sth), + gc41[e1x2_, e4x2_] -> -IndexSum[ydtop[e1x2, Generation2$1]*yutop[e4x2, Generation2$1], {Generation2$1, 1, 2}]/(6*LambdaSMEFT^2), + gc42 -> (2*cbb)/LambdaSMEFT^2, + gc43 -> 1/(6*LambdaSMEFT^2), + gc44 -> (2*(3*cdd1 + cdd8))/(3*LambdaSMEFT^2), + gc45 -> cbe/LambdaSMEFT^2, + gc46 -> ced/LambdaSMEFT^2, + gc47 -> (2*cee)/LambdaSMEFT^2, + gc48 -> cte/LambdaSMEFT^2, + gc49 -> 1/(6*LambdaSMEFT^2), + gc50 -> (6*ctd1 - ctd8)/(6*LambdaSMEFT^2) + ctd8/(2*LambdaSMEFT^2), + gc51 -> (2*ctt)/LambdaSMEFT^2, + gc52 -> ceu/LambdaSMEFT^2, + gc53 -> 1/(6*LambdaSMEFT^2), + gc54 -> 1/(6*LambdaSMEFT^2), + gc55 -> (6*cud1 - cud8)/(6*LambdaSMEFT^2) + cud8/(2*LambdaSMEFT^2), + gc56 -> (2*(3*cuu1 + cuu8))/(3*LambdaSMEFT^2), + gc57[e3x2_, e2x2_] -> -IndexSum[ydtop[e2x2, Generation2$1]*yutop[e3x2, Generation2$1], {Generation2$1, 1, 2}]/(6*LambdaSMEFT^2), + gc58 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc59 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc60 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc61 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc62 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc63 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc64 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc65 -> -(FAGS/(Sqrt[2]*LambdaSMEFT^2)), + gc66 -> -((FAGS*vevhat)/(Sqrt[2]*LambdaSMEFT^2)), + gc67 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc68 -> -(FAGS/(Sqrt[2]*LambdaSMEFT^2)), + gc69 -> -((FAGS*vevhat)/(Sqrt[2]*LambdaSMEFT^2)), + gc70 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc71 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc72 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc73 -> FAGS/(Sqrt[2]*LambdaSMEFT^2), + gc74 -> (FAGS*vevhat)/(Sqrt[2]*LambdaSMEFT^2), + gc75 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc76 -> 1/(Sqrt[2]*LambdaSMEFT^2), + gc77 -> -(1/(Sqrt[2]*LambdaSMEFT^2)), + gc78 -> FAGS/(Sqrt[2]*LambdaSMEFT^2), + gc79 -> (FAGS*vevhat)/(Sqrt[2]*LambdaSMEFT^2), + gc80 -> LambdaSMEFT^(-2), + gc81 -> -(FCGV["EL"]/LambdaSMEFT^2), + gc82 -> -((FCGV["EL"]*vevhat)/LambdaSMEFT^2), + gc83 -> -(FCGV["EL"]/(Sqrt[2]*LambdaSMEFT^2*sth)), + gc84 -> -((FCGV["EL"]*vevhat)/(Sqrt[2]*LambdaSMEFT^2*sth)), + gc85 -> (cth*FCGV["EL"])/(LambdaSMEFT^2*sth), + gc86 -> (cth*FCGV["EL"]*vevhat)/(LambdaSMEFT^2*sth), + gc87[e1x2_, e2x2_] -> ((ceWIm + ceWRe)*yl[e1x2, e2x2])/LambdaSMEFT^2, + gc88[e1x2_, e2x2_] -> -(((ceWIm + ceWRe)*FCGV["EL"]*yl[e1x2, e2x2])/LambdaSMEFT^2), + gc89[e1x2_, e2x2_] -> -(((ceWIm + ceWRe)*FCGV["EL"]*vevhat*yl[e1x2, e2x2])/LambdaSMEFT^2), + gc90 -> FCGV["EL"]/(Sqrt[2]*LambdaSMEFT^2*sth), + gc91 -> (FCGV["EL"]*vevhat)/(Sqrt[2]*LambdaSMEFT^2*sth), + gc92[e1x2_, e2x2_] -> ((ceWIm + ceWRe)*cth*FCGV["EL"]*yl[e1x2, e2x2])/(LambdaSMEFT^2*sth), + gc93[e1x2_, e2x2_] -> ((ceWIm + ceWRe)*cth*FCGV["EL"]*vevhat*yl[e1x2, e2x2])/(LambdaSMEFT^2*sth), + gc94 -> LambdaSMEFT^(-2), + gc95 -> FCGV["EL"]/LambdaSMEFT^2, + gc96 -> (FCGV["EL"]*vevhat)/LambdaSMEFT^2, + gc97 -> FCGV["EL"]/(Sqrt[2]*LambdaSMEFT^2*sth), + gc98 -> (FCGV["EL"]*vevhat)/(Sqrt[2]*LambdaSMEFT^2*sth), + gc99 -> -((cth*FCGV["EL"])/(LambdaSMEFT^2*sth)), + gc100 -> -((cth*FCGV["EL"]*vevhat)/(LambdaSMEFT^2*sth)), + gc101 -> -LambdaSMEFT^(-2), + gc102 -> FCGV["EL"]/LambdaSMEFT^2, + gc103 -> (FCGV["EL"]*vevhat)/LambdaSMEFT^2, + gc104 -> FCGV["EL"]/(Sqrt[2]*LambdaSMEFT^2*sth), + gc105 -> (FCGV["EL"]*vevhat)/(Sqrt[2]*LambdaSMEFT^2*sth), + gc106 -> -((cth*FCGV["EL"])/(LambdaSMEFT^2*sth)), + gc107 -> -((cth*FCGV["EL"]*vevhat)/(LambdaSMEFT^2*sth)), + gc108 -> -LambdaSMEFT^(-2), + gc109 -> -(FCGV["EL"]/LambdaSMEFT^2), + gc110 -> -((FCGV["EL"]*vevhat)/LambdaSMEFT^2), + gc111 -> -(FCGV["EL"]/(Sqrt[2]*LambdaSMEFT^2*sth)), + gc112 -> -((FCGV["EL"]*vevhat)/(Sqrt[2]*LambdaSMEFT^2*sth)), + gc113 -> (cth*FCGV["EL"])/(LambdaSMEFT^2*sth), + gc114 -> (cth*FCGV["EL"]*vevhat)/(LambdaSMEFT^2*sth), + gc115[e1x2_, e2x2_] -> -(((ceWIm - ceWRe)*yl[e2x2, e1x2])/LambdaSMEFT^2), + gc116[e1x2_, e2x2_] -> -(((ceWIm - ceWRe)*FCGV["EL"]*yl[e2x2, e1x2])/LambdaSMEFT^2), + gc117[e1x2_, e2x2_] -> ((-ceWIm + ceWRe)*FCGV["EL"]*vevhat*yl[e2x2, e1x2])/LambdaSMEFT^2, + gc118[e1x2_, e2x2_] -> ((ceWIm - ceWRe)*cth*FCGV["EL"]*yl[e2x2, e1x2])/(LambdaSMEFT^2*sth), + gc119[e1x2_, e2x2_] -> ((ceWIm - ceWRe)*cth*FCGV["EL"]*vevhat*yl[e2x2, e1x2])/(LambdaSMEFT^2*sth)}; + diff --git a/code/notebooks/FormCalc/tt/dim_6_tt_parton.pars b/code/notebooks/FormCalc/tt/dim_6_tt_parton.pars new file mode 100644 index 000000000..3c5782dab --- /dev/null +++ b/code/notebooks/FormCalc/tt/dim_6_tt_parton.pars @@ -0,0 +1,343 @@ +(***********************************************) +(* Parameter file for SMEFTsim. *) +(* Automatically generated by FeynRules. *) +(***********************************************) +(***********************************************) +(* External Parameters *) +(***********************************************) + +M$ExtParams = { + aS -> 0.1179, + cbb -> 0, + cbBIm -> 0, + cbBRe -> 0, + cbd1 -> 0, + cbd8 -> 0, + cbe -> 0, + cbGIm -> 0, + cbGRe -> 0, + cbHIm -> 0, + cbHRe -> 0, + cbj1 -> 0, + cbj8 -> 0, + cbl -> 0, + cbu1 -> 0, + cbu8 -> 0, + cbWIm -> 0, + cbWRe -> 0, + cdBIm -> 0, + cdBRe -> 0, + cdd1 -> 0, + cdd8 -> 0, + cdGIm -> 0, + cdGRe -> 0, + cdHIm -> 0, + cdHRe -> 0, + cdWIm -> 0, + cdWRe -> 0, + ceBIm -> 0, + ceBRe -> 0, + ced -> 0, + cee -> 0, + ceHIm -> 0, + ceHRe -> 0, + ceu -> 0, + ceWIm -> 0, + ceWRe -> 0, + cG -> 0, + cGtil -> 0, + cH -> 0, + cHB -> 0, + cHbox -> 0, + cHbq -> 0, + cHBtil -> 0, + cHd -> 0, + cHDD -> 0, + cHe -> 0, + cHG -> 0, + cHGtil -> 0, + cHj1 -> 0, + cHj3 -> 0, + cHl1 -> 0, + cHl3 -> 0, + cHQ1 -> 0, + cHQ3 -> 0, + cHt -> 0, + cHtbIm -> 0, + cHtbRe -> 0, + cHu -> 0, + cHudIm -> 0, + cHudRe -> 0, + cHW -> 0, + cHWB -> 0, + cHWBtil -> 0, + cHWtil -> 0, + cjd1 -> 0, + cjd8 -> 0, + cje -> 0, + cjj11 -> 0, + cjj18 -> 0, + cjj31 -> 0, + cjj38 -> 0, + cjQbd1Im -> 0, + cjQbd1Re -> 0, + cjQbd8Im -> 0, + cjQbd8Re -> 0, + cjQtu1Im -> 0, + cjQtu1Re -> 0, + cjQtu8Im -> 0, + cjQtu8Re -> 0, + cjtQd1Im -> 0, + cjtQd1Re -> 0, + cjtQd8Im -> 0, + cjtQd8Re -> 0, + cju1 -> 0, + cju8 -> 0, + cjujd11Im -> 0, + cjujd11Re -> 0, + cjujd1Im -> 0, + cjujd1Re -> 0, + cjujd81Im -> 0, + cjujd81Re -> 0, + cjujd8Im -> 0, + cjujd8Re -> 0, + cjuQb1Im -> 0, + cjuQb1Re -> 0, + cjuQb8Im -> 0, + cjuQb8Re -> 0, + cld -> 0, + cle -> 0, + clebQIm -> 0, + clebQRe -> 0, + cledjIm -> 0, + cledjRe -> 0, + cleju1Im -> 0, + cleju1Re -> 0, + cleju3Im -> 0, + cleju3Re -> 0, + cleQt1Im -> 0, + cleQt1Re -> 0, + cleQt3Im -> 0, + cleQt3Re -> 0, + clj1 -> 0, + clj3 -> 0, + cll -> 0, + cll1 -> 0, + clu -> 0, + cQb1 -> 0, + cQb8 -> 0, + cQd1 -> 0, + cQd8 -> 0, + cQe -> 0, + cQj11 -> 0, + cQj18 -> 0, + cQj31 -> 0, + cQj38 -> 0, + cQl1 -> 0, + cQl3 -> 0, + cQQ1 -> 0, + cQQ8 -> 0, + cQt1 -> 0, + cQt8 -> 0, + cQtjd1Im -> 0, + cQtjd1Re -> 0, + cQtjd8Im -> 0, + cQtjd8Re -> 0, + cQtQb1Im -> 0, + cQtQb1Re -> 0, + cQtQb8Im -> 0, + cQtQb8Re -> 0, + cQu1 -> 0, + cQu8 -> 0, + cQujb1Im -> 0, + cQujb1Re -> 0, + cQujb8Im -> 0, + cQujb8Re -> 0, + ctb1 -> 0, + ctb8 -> 0, + ctBIm -> 0, + ctBRe -> 0, + ctd1 -> 0, + ctd8 -> 0, + cte -> 0, + ctGIm -> 0, + ctGRe -> 0, + ctHIm -> 0, + ctHRe -> 0, + ctj1 -> 0, + ctj8 -> 0, + ctl -> 0, + ctt -> 0, + ctu1 -> 0, + ctu8 -> 0, + ctWIm -> 0, + ctWRe -> 0, + cuBIm -> 0, + cuBRe -> 0, + cud1 -> 0, + cud8 -> 0, + cuGIm -> 0, + cuGRe -> 0, + cuHIm -> 0, + cuHRe -> 0, + cutbd1Im -> 0, + cutbd1Re -> 0, + cutbd8Im -> 0, + cutbd8Re -> 0, + cuu1 -> 0, + cuu8 -> 0, + cuWIm -> 0, + cuWRe -> 0, + cW -> 0, + cWtil -> 0, + Gf -> 0.000011663787, + LambdaSMEFT -> 1000, + linearPropCorrections -> 0, + MW -> 80.387, + ymb -> 4.18, + ymc -> 1.27, + ymdo -> 0.00467, + yme -> 0.000511, + ymm -> 0.10566, + yms -> 0.093, + ymt -> 172.76, + ymtau -> 1.777, + ymup -> 0.00216 +}; + +(***********************************************) +(* Masses *) +(***********************************************) + +M$Masses = { + MB -> 4.18, + MC -> 1.27, + MD -> 0.00467, + Me -> 0.000511, + MH -> 125.09, + MMU -> 0.10566, + MS -> 0.093, + MT -> 172.76, + MTA -> 1.777, + MU -> 0.00216, + MZ -> 91.1876 +}; + +(***********************************************) +(* Widths *) +(***********************************************) + +M$Widths = { + WH -> 0.00407, + WT -> 1.33, + WW -> 2.085, + WZ -> 2.4952 +}; + +(***********************************************) +(* Internal Parameters *) +(***********************************************) + +M$IntParams = { + cuH -> 0. + 0.*I, + ctHH -> 0. + 0.*I, + cdH -> 0. + 0.*I, + cbH -> 0. + 0.*I, + cuG -> 0. + 0.*I, + ctG -> 0. + 0.*I, + cuW -> 0. + 0.*I, + ctW -> 0. + 0.*I, + cuB -> 0. + 0.*I, + ctB -> 0. + 0.*I, + cdG -> 0. + 0.*I, + cbG -> 0. + 0.*I, + cdW -> 0. + 0.*I, + cbW -> 0. + 0.*I, + cdB -> 0. + 0.*I, + cbBB -> 0. + 0.*I, + cHud -> 0. + 0.*I, + cHtb -> 0. + 0.*I, + cutbd1 -> 0. + 0.*I, + cutbd8 -> 0. + 0.*I, + cjQtu1 -> 0. + 0.*I, + cjQtu8 -> 0. + 0.*I, + cjQbd1 -> 0. + 0.*I, + cjQbd8 -> 0. + 0.*I, + cjujd1 -> 0. + 0.*I, + cjujd8 -> 0. + 0.*I, + cjujd11 -> 0. + 0.*I, + cjujd81 -> 0. + 0.*I, + cQtjd1 -> 0. + 0.*I, + cQtjd8 -> 0. + 0.*I, + cjuQb1 -> 0. + 0.*I, + cjuQb8 -> 0. + 0.*I, + cQujb1 -> 0. + 0.*I, + cQujb8 -> 0. + 0.*I, + cjtQd1 -> 0. + 0.*I, + cjtQd8 -> 0. + 0.*I, + cQtQb1 -> 0. + 0.*I, + cQtQb8 -> 0. + 0.*I, + ceH -> 0. + 0.*I, + ceW -> 0. + 0.*I, + ceB -> 0. + 0.*I, + cledj -> 0. + 0.*I, + clebQ -> 0. + 0.*I, + cleju1 -> 0. + 0.*I, + cleju3 -> 0. + 0.*I, + cleQt1 -> 0. + 0.*I, + cleQt3 -> 0. + 0.*I, + yup -> 0.0000124064073881735, + yc -> 0.007294508047676086, + ydo -> 0.000026823112269801038, + ys -> 0.000534164762546359, + yt -> 0.9922828427689138, + yb -> 0.024008695778965385, + MWsm -> 80.387, + aEW -> 0.007561459915879889, + vevhat -> 246.2196507941374, + lam -> 0.12905349405143482, + dkH -> 0., + dMH2 -> 0., + G -> 1.2171996941475733, + ee -> 0.3082533174007504, + ye -> 2.9350343404428973*^-6, + ym -> 0.0006068800947381538, + ytau -> 0.010206567559622366, + dGf -> 0., + vevT -> 246.2196507941374, + barlam -> 0.12905349405143482, + vev -> 246.2196507941374, + sth2 -> 0.22285855299877133, + cth -> 0.8815562642289082, + sth -> 0.47207896902824564, + dMZ2 -> 0., + gw -> 0.652969815696888, + g1 -> 0.34966947648018554, + dg1 -> 0., + dgw -> 0., + gwsh -> 0.652969815696888, + g1sh -> 0.34966947648018554, + propCorr -> 0., + MZ1 -> 91.1876, + MW1 -> 80.387, + MH1 -> 125.09, + MT1 -> 172.76, + WZ1 -> 2.4952, + WW1 -> 2.085, + WH1 -> 0.00407, + WT1 -> 1.33, + dWZ -> NumericalValue[dGammaZ], + dWW -> NumericalValue[dGammaW], + dWH -> NumericalValue[dGammaH], + dWT -> NumericalValue[dGammaT], + yt0 -> 0.9922828427689139 + 0.*I, + yb0 -> 0.024008695778965385 + 0.*I, + gHgg1 -> 0.0031273946317557427, + gHgg2 -> -0.0003648627070381701, + gHgg3 -> 0.0007613327578503708, + gHgg4 -> 0.00010424648772519147, + gHgg5 -> 0.0018764367790534465, + gHaa -> -0.001931224473843549, + gHza -> -0.006856224632876692 +}; +