LeptoQuark: coloron.fr

File coloron.fr, 6.8 KB (added by JavierFuentes, 4 weeks ago)
Line 
1(* ************************************************************************* *)
2(* *****                                                               ***** *)
3(* *****  FeynRules model file: coloron                                ***** *)
4(* *****  Authors: M. Baker, J. Fuentes-Martin, M. König, G. Isidori   ***** *)
5(* *****                                                               ***** *)
6(* ************************************************************************* *)
7
8(* ************************** *)
9(* *****  Information   ***** *)
10(* ************************** *)
11
12M$ModelName = "coloron";
13
14M$Information = {Authors      -> {"M. Baker, J. Fuentes-Martin, M. Koenig, G. Isidori"},
15                 Version      -> "1.0",
16                 Date         -> "19.02.2019",
17                 Institutions -> {"U. Zurich"},
18                 Emails       -> {"baker@physik.uzh.ch, fuentes@physik.uzh.ch, koenigma@physik.uzh.ch, isidori@physik.uzh.ch"}
19               };
20
21(* ************************** *)
22(* *** Interaction orders *** *)
23(* ************************** *)
24
25M$InteractionOrderHierarchy = { {QCD,1}, {NP,1}, {QED,2} };
26
27
28(* ************************** *)
29(* **** Particle classes **** *)
30(* ************************** *)
31
32M$ClassesDescription = {
33  V[7] == {
34    ClassName        -> Gp,
35    SelfConjugate    -> True,
36    Indices          -> {Index[Gluon]},
37    Mass             -> {MGp, 4000},
38    Width            -> {WGp, 800},
39    ParticleName     -> "Gp",
40    PropagatorLabel  -> "Gp",
41    PropagatorType   -> C,
42    PropagatorArrow  -> None,
43    FullName         -> "Color-octect (coloron)"
44  }
45};
46
47(* ************************** *)
48(* *****   Parameters   ***** *)
49(* ************************** *)
50
51M$Parameters = {
52(* External Parameters *)
53  gGp == {
54        ParameterType    -> External,
55        Value            -> 3.0,
56        InteractionOrder -> {NP,1},
57        TeX              -> Subscript[g,Gp],
58        BlockName        -> NPGPCOUP,
59    OrderBlock       -> 1,
60        Description      -> "Overall Gp coupling strength"
61  },
62
63  kappaq33 == {
64    ParameterType    -> External,
65    Value            -> 1.0,
66    InteractionOrder -> {NP,0},
67    TeX              -> Subscript[Superscript[\[Kappa],L],33],
68    BlockName        -> NPGPCOUP,
69    OrderBlock       -> 2,
70    Description      -> "Gp LH coupling third generation"
71  },
72
73  kappaRu33 == {
74    ParameterType    -> External,
75    Value            -> 1.0,
76    InteractionOrder -> {NP,0},
77    TeX              -> Subscript[Superscript[\[Kappa],Ru],33],
78    BlockName        -> NPGPCOUP,
79    OrderBlock       -> 3,
80    Description      -> "Gp RH tt coupling"
81  },
82
83  kappaRd33 == {
84    ParameterType    -> External,
85    Value            -> 1.0,
86    InteractionOrder -> {NP,0},
87    TeX              -> Subscript[Superscript[\[Kappa],Rd],33],
88    BlockName        -> NPGPCOUP,
89    OrderBlock       -> 4,
90    Description      -> "Gp RH bb coupling"
91  },
92
93  kappaqll == {
94    ParameterType    -> External,
95    Value            -> 0.0,
96    InteractionOrder -> {NP,0},
97    TeX              -> Subscript[Superscript[\[Kappa],L],ll],
98    BlockName        -> NPGPCOUP,
99    OrderBlock       -> 5,
100    Description      -> "Gp LH coupling light-generations"
101  },
102
103  kappaRull == {
104    ParameterType    -> External,
105    Value            -> 0.0,
106    InteractionOrder -> {NP,0},
107    TeX              -> Subscript[Superscript[\[Kappa],Ru],ll],
108    BlockName        -> NPGPCOUP,
109    OrderBlock       -> 6,
110    Description      -> "Gp RH up-type light-quark coupling"
111  },
112
113  kappaRdll == {
114    ParameterType    -> External,
115    Value            -> 0.0,
116    InteractionOrder -> {NP,0},
117    TeX              -> Subscript[Superscript[\[Kappa],Rd],ll],
118    BlockName        -> NPGPCOUP,
119    OrderBlock       -> 7,
120    Description      -> "Gp RH light down-quark coupling"
121  },
122
123  kappaG1 == {
124    ParameterType    -> External,
125    Value            -> 0.0,
126    InteractionOrder -> {NP,0},
127    TeX              -> Subscript[\[Kappa],G2],
128    BlockName        -> NPGPCOUP,
129    OrderBlock       -> 8,
130    Description      -> "Non-minimal Gp coupling to gluons 1"
131  },
132
133  kappaG2 == {
134    ParameterType    -> External,
135    Value            -> 0.0,
136    InteractionOrder -> {NP,0},
137    TeX              -> Subscript[\[Kappa],G1],
138    BlockName        -> NPGPCOUP,
139    OrderBlock       -> 9,
140    Description      -> "Non-minimal Gp coupling to gluons 2"
141  },
142
143  (* Internal Parameters *)
144  kappaL == {
145    ParameterType    -> Internal,
146    Indices          -> {Index[Generation], Index[Generation]},
147    Hermitian        -> True,
148    Definitions      -> {kappaL[i_?NumericQ, j_?NumericQ] :> 0  /; (i =!= j)},
149    Value            -> {kappaL[1,1] -> kappaqll, kappaL[2,2] -> kappaqll, kappaL[3,3] -> kappaq33},
150    InteractionOrder -> {NP,0},
151    TeX              -> Subscript[\[Kappa],L],
152    Description      -> "Gp LH coupling matrix"
153  },
154
155  kappaRu == {
156    ParameterType    -> Internal,
157    Indices          -> {Index[Generation], Index[Generation]},
158    Hermitian        -> True,
159    Definitions      -> {kappaRu[i_?NumericQ, j_?NumericQ] :> 0  /; (i =!= j)},
160    Value            -> {kappaRu[1,1] -> kappaRull, kappaRu[2,2] -> kappaRull, kappaRu[3,3] -> kappaRu33},
161    InteractionOrder -> {NP,0},
162    TeX -> Subscript[\[Kappa],Ru],
163    Description -> "Gp RH up-type coupling matrix"
164  },
165
166  kappaRd == {
167    ParameterType    -> Internal,
168    Indices          -> {Index[Generation], Index[Generation]},
169    Hermitian        -> True,
170    Definitions      -> {kappaRd[i_?NumericQ, j_?NumericQ] :> 0  /; (i =!= j)},
171    Value            -> {kappaRd[1,1] -> kappaRdll, kappaRd[2,2] -> kappaRdll, kappaRd[3,3] -> kappaRd33},
172    InteractionOrder -> {NP,0},
173    TeX -> Subscript[\[Kappa],Rd],
174    Description -> "Gp RH down-type coupling matrix"
175  }
176};
177
178
179
180(* ************************** *)
181(* *****   Lagrangian   ***** *)
182(* ************************** *)
183
184LGpKin := Block[{mu,nu,aa1}, - 1/4 * (DC[Gp[mu,aa1], nu] - DC[Gp[nu,aa1], mu]) * (DC[Gp[mu,aa1], nu] - DC[Gp[nu,aa1], mu]) ];
185
186LGpF :=  Block[{ff1,ff2,s1,s2,s3,aa1,cc1,cc2,mu},
187                 gGp * Gp[mu,aa1] *
188                 (
189                   kappaL[ff1,ff2]  * newCKM[ff3,ff1] * uqbar[s1,ff3,cc1] * T[aa1,cc1,cc2] * Ga[mu,s1,s2] * ProjM[s2,s3] * Conjugate[newCKM[ff4,ff2]] * uq[s3,ff4,cc2] +
190                   kappaL[ff1,ff2]  * dqbar[s1,ff1,cc1] * T[aa1,cc1,cc2] * Ga[mu,s1,s2] * ProjM[s2,s3] * dq[s3,ff2,cc2] +
191                   kappaRu[ff1,ff2] * uqbar[s1,ff1,cc1] * T[aa1,cc1,cc2] * Ga[mu,s1,s2] * ProjP[s2,s3] * uq[s3,ff2,cc2] +
192                   kappaRd[ff1,ff2] * dqbar[s1,ff1,cc1] * T[aa1,cc1,cc2] * Ga[mu,s1,s2] * ProjP[s2,s3] * dq[s3,ff2,cc2]
193                 )
194        ];
195
196LGpG :=  Block[{aa1,aa2,aa3,mu,nu},
197               1/2 * kappaG1 * (DC[Gp[nu,aa1], mu] - DC[Gp[mu,aa1], nu]) * FS[G,mu,nu,aa1] +
198               gs  * kappaG2 * f[aa1,aa2,aa3] * Gp[mu,aa1] * Gp[nu,aa2]  * FS[G,mu,nu,aa3]
199         ];
200
201LGp := LGpKin + LGpF + LGpG;