LeptoQuark: Zprime.fr

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