LeptoQuark: Zprime.fr

File Zprime.fr, 8.5 KB (added by JavierFuentes, 4 years ago)

Changed PDG code for Z'

Line 
1(* ************************************************************************* *)
2(* ***** ***** *)
3(* ***** FeynRules model file: Zprime ***** *)
4(* ***** Authors: M. Baker, J. Fuentes-Martin, M. König, G. Isidori ***** *)
5(* ***** ***** *)
6(* ************************************************************************* *)
7
8(* ************************** *)
9(* ***** Information ***** *)
10(* ************************** *)
11
12M$ModelName = "Zprime";
13
14M$Information = {Authors -> {"M. Baker", "J. Fuentes-Martin", "M. Koenig", "G. Isidori"},
15 Version -> "1.1",
16 Date -> "07.04.2021",
17 Institutions -> {"U. Zurich", "Johannes Gutenberg University Mainz"},
18 Emails -> {"baker@physik.uzh.ch", "jfuentes@uni-mainz.de", "matthias.koenig@tum.de", "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[6] == {
34 ClassName -> Zp,
35 SelfConjugate -> True,
36 Indices -> {},
37 Mass -> {MZp, 3000},
38 Width -> {WZp, 600},
39 ParticleName -> "Zp",
40 PDG -> 43,
41 PropagatorLabel -> "Zp",
42 PropagatorType -> Sine,
43 PropagatorArrow -> None,
44 FullName -> "Zprime"
45 }
46};
47
48(* ************************** *)
49(* ***** Parameters ***** *)
50(* ************************** *)
51
52M$Parameters = {
53(* External Parameters *)
54 gZp == {
55 ParameterType -> External,
56 Value -> 3.0,
57 InteractionOrder -> {NP,1},
58 TeX -> Subscript[g,Zp],
59 BlockName -> NPZPCOUP,
60 OrderBlock -> 1,
61 Description -> "Overall Zp coupling strength"
62 },
63
64 zetaq33 == {
65 ParameterType -> External,
66 Value -> 1.0,
67 InteractionOrder -> {NP,0},
68 TeX -> Subscript[Superscript[\[Zeta],q],33],
69 BlockName -> NPZPCOUP,
70 OrderBlock -> 2,
71 Description -> "Zp LH coupling third generation quarks"
72 },
73
74 zetal33 == {
75 ParameterType -> External,
76 Value -> 1.0,
77 InteractionOrder -> {NP,0},
78 TeX -> Subscript[Superscript[\[Zeta],l],33],
79 BlockName -> NPZPCOUP,
80 OrderBlock -> 3,
81 Description -> "Zp LH coupling third generation leptons"
82 },
83
84 zetaRu33 == {
85 ParameterType -> External,
86 Value -> 1.0,
87 InteractionOrder -> {NP,0},
88 TeX -> Subscript[Superscript[\[Zeta],Ru],33],
89 BlockName -> NPZPCOUP,
90 OrderBlock -> 4,
91 Description -> "Zp RH tt coupling"
92 },
93
94 zetaRd33 == {
95 ParameterType -> External,
96 Value -> 1.0,
97 InteractionOrder -> {NP,0},
98 TeX -> Subscript[Superscript[\[Zeta],Rd],33],
99 BlockName -> NPZPCOUP,
100 OrderBlock -> 5,
101 Description -> "Zp RH bb coupling"
102 },
103
104 zetaRe33 == {
105 ParameterType -> External,
106 Value -> 1.0,
107 InteractionOrder -> {NP,0},
108 TeX -> Subscript[Superscript[\[Zeta],Re],33],
109 BlockName -> NPZPCOUP,
110 OrderBlock -> 6,
111 Description -> "Zp RH tau tau coupling"
112 },
113
114 zetaqll == {
115 ParameterType -> External,
116 Value -> 0.0,
117 InteractionOrder -> {NP,0},
118 TeX -> Subscript[Superscript[\[Zeta],q],ll],
119 BlockName -> NPZPCOUP,
120 OrderBlock -> 7,
121 Description -> "Zp LH coupling light-generations quarks"
122 },
123
124 zetal22 == {
125 ParameterType -> External,
126 Value -> 0.0,
127 InteractionOrder -> {NP,0},
128 TeX -> Subscript[Superscript[\[Zeta],l],22],
129 BlockName -> NPZPCOUP,
130 OrderBlock -> 8,
131 Description -> "Zp LH coupling light-generations leptons"
132 },
133
134 zetal23 == {
135 ParameterType -> External,
136 Value -> 0.0,
137 InteractionOrder -> {NP,0},
138 TeX -> Subscript[Superscript[\[Zeta],l],23],
139 BlockName -> NPZPCOUP,
140 OrderBlock -> 9,
141 Description -> "Zp LH LFV coupling"
142 },
143
144 zetaRull == {
145 ParameterType -> External,
146 Value -> 0.0,
147 InteractionOrder -> {NP,0},
148 TeX -> Subscript[Superscript[\[Zeta],Ru],ll],
149 BlockName -> NPZPCOUP,
150 OrderBlock -> 10,
151 Description -> "Zp RH up-type light-quark coupling"
152 },
153
154 zetaRdll == {
155 ParameterType -> External,
156 Value -> 0.0,
157 InteractionOrder -> {NP,0},
158 TeX -> Subscript[Superscript[\[Zeta],Rd],ll],
159 BlockName -> NPZPCOUP,
160 OrderBlock -> 11,
161 Description -> "Zp RH light down-quark coupling"
162 },
163
164 zetaRe22 == {
165 ParameterType -> External,
166 Value -> 0.0,
167 InteractionOrder -> {NP,0},
168 TeX -> Subscript[Superscript[\[Zeta],Re],22],
169 BlockName -> NPZPCOUP,
170 OrderBlock -> 12,
171 Description -> "Zp RH light charged-lepton coupling"
172 },
173
174 (* Internal Parameters *)
175 zetaq == {
176 ParameterType -> Internal,
177 Indices -> {Index[Generation], Index[Generation]},
178 Hermitian -> True,
179 Definitions -> {zetaq[i_?NumericQ, j_?NumericQ] :> 0 /; (i =!= j)},
180 Value -> {zetaq[1,1] -> zetaqll, zetaq[2,2] -> zetaqll, zetaq[3,3] -> zetaq33},
181 InteractionOrder -> {NP,0},
182 TeX -> Subscript[\[Zeta],q],
183 Description -> "Zp LH quark coupling matrix"
184 },
185
186 zetal == {
187 ParameterType -> Internal,
188 Indices -> {Index[Generation], Index[Generation]},
189 Hermitian -> True,
190 Definitions -> {zetal[i_?NumericQ, 1] :> 0, zetal[1,i_?NumericQ] :> 0},
191 Value -> {zetal[2,2] -> zetal22, zetal[3,3] -> zetal33, zetal[2,3] -> zetal23, zetal[3,2] -> Conjugate[zetal23]},
192 InteractionOrder -> {NP,0},
193 TeX -> Subscript[\[Zeta],q],
194 Description -> "Zp LH lepton coupling matrix"
195 },
196
197 zetaRu == {
198 ParameterType -> Internal,
199 Indices -> {Index[Generation], Index[Generation]},
200 Hermitian -> True,
201 Definitions -> {zetaRu[i_?NumericQ, j_?NumericQ] :> 0 /; (i =!= j)},
202 Value -> {zetaRu[1,1] -> zetaRull, zetaRu[2,2] -> zetaRull, zetaRu[3,3] -> zetaRu33},
203 InteractionOrder -> {NP,0},
204 TeX -> Subscript[\[Zeta],Ru],
205 Description -> "Zp RH up-type quark coupling matrix"
206 },
207
208 zetaRd == {
209 ParameterType -> Internal,
210 Indices -> {Index[Generation], Index[Generation]},
211 Hermitian -> True,
212 Definitions -> {zetaRd[i_?NumericQ, j_?NumericQ] :> 0 /; (i =!= j)},
213 Value -> {zetaRd[1,1] -> zetaRdll, zetaRd[2,2] -> zetaRdll, zetaRd[3,3] -> zetaRd33},
214 InteractionOrder -> {NP,0},
215 TeX -> Subscript[\[Zeta],Rd],
216 Description -> "Zp RH down-type quark coupling matrix"
217 },
218
219 zetaRe == {
220 ParameterType -> Internal,
221 Indices -> {Index[Generation], Index[Generation]},
222 Hermitian -> True,
223 Definitions -> {zetaRe[i_?NumericQ, j_?NumericQ] :> 0 /; (i =!= j), zetaRe[1,1] :> 0},
224 Value -> {zetaRe[2,2] -> zetaRe22, zetaRe[3,3] -> zetaRe33},
225 InteractionOrder -> {NP,0},
226 TeX -> Subscript[\[Zeta],Re],
227 Description -> "Zp RH charged-lepton coupling matrix"
228 }
229};
230
231
232
233(* ************************** *)
234(* ***** Lagrangian ***** *)
235(* ************************** *)
236
237LZpF := Block[{ff1,ff2,ff3,ff4,s1,s2,s3,mu,cc1},
238 gZp/(2 * Sqrt[6]) * Zp[mu] *
239 (
240 zetaq[ff1,ff2] * newCKM[ff3,ff1] * uqbar[s1,ff3,cc1] * Ga[mu,s1,s2] * ProjM[s2,s3] * Conjugate[newCKM[ff4,ff2]] * uq[s3,ff4,cc1] +
241 zetaq[ff1,ff2] * dqbar[s1,ff1,cc1] * Ga[mu,s1,s2] * ProjM[s2,s3] * dq[s3,ff2,cc1] +
242 -3 * zetal[ff1,ff2] * lbar[s1,ff1] * Ga[mu,s1,s2] * ProjM[s2,s3] * l[s3,ff2] +
243 -3 * zetal[ff1,ff2] * vlbar[s1,ff1] * Ga[mu,s1,s2] * ProjM[s2,s3] * vl[s3,ff2] +
244 zetaRu[ff1,ff2] * uqbar[s1,ff1,cc1] * Ga[mu,s1,s2] * ProjP[s2,s3] * uq[s3,ff2,cc1] +
245 zetaRd[ff1,ff2] * dqbar[s1,ff1,cc1] * Ga[mu,s1,s2] * ProjP[s2,s3] * dq[s3,ff2,cc1] +
246 -3 * zetaRe[ff1,ff2] * lbar[s1,ff1] * Ga[mu,s1,s2] * ProjP[s2,s3] * l[s3,ff2]
247 )
248 ];
249
250LZp := LZpF;