1 |
|
---|
2 | (***************** This is the FeynRules model file for Higgs effective couplings to gluons and photons ***********)
|
---|
3 |
|
---|
4 | M$ModelName = "Higgs_Effective_Couplings";
|
---|
5 |
|
---|
6 | (* The loop coefficient *)
|
---|
7 |
|
---|
8 | sert[x_] := 1+ 7/30 x + 2/21 x^2 + 26/525 x^3;
|
---|
9 |
|
---|
10 | serw[xw_, xt_] := 1 + xw * 66/235 +xw^2 * 228/1645 + xw^3 * 696/8225 +
|
---|
11 | xw^4 * 5248/90475 +xw^5 * 1280/29939+ xw^6 * 54528/1646645-
|
---|
12 | xt * 56/705 - xt^2 * 32/987;
|
---|
13 |
|
---|
14 | serp[x_] := 1 + x/3 + x^2 * 8/45 + x^3 * 4/35;
|
---|
15 |
|
---|
16 |
|
---|
17 |
|
---|
18 | (***** Parameter list ******)
|
---|
19 |
|
---|
20 | M$Parameters = {
|
---|
21 |
|
---|
22 |
|
---|
23 | AH == {TeX -> Subscript[A, H],
|
---|
24 | ParameterType -> Internal,
|
---|
25 | InteractionOrder -> {HIW, 1},
|
---|
26 | Value -> ee^2/4/Pi/(Pi*v)*(47/18)*serw[(MH/2/MW)^2, (MH/2/MT)^2]},
|
---|
27 |
|
---|
28 | GH == {TeX -> Subscript[G, H],
|
---|
29 | ParameterType -> Internal,
|
---|
30 | InteractionOrder -> {HIG, 1},
|
---|
31 | Value -> -gs^2/(4Pi(3Pi v)) sert[(MH/2/MT)^2] },
|
---|
32 |
|
---|
33 | Gphi == {TeX -> Subscript[G, h],
|
---|
34 | ParameterType -> Internal,
|
---|
35 | InteractionOrder -> {HIG, 1},
|
---|
36 | Value -> -gs^2/4/Pi/(2*Pi*v)*serp[(MH/2/MT)^2]}
|
---|
37 |
|
---|
38 | }
|
---|
39 |
|
---|
40 |
|
---|
41 |
|
---|
42 |
|
---|
43 | (***** Particle classes list ******)
|
---|
44 |
|
---|
45 | M$ClassesDescription = {
|
---|
46 |
|
---|
47 |
|
---|
48 | S[4] == {
|
---|
49 | ClassName -> h1,
|
---|
50 | SelfConjugate -> True,
|
---|
51 | Mass -> {MP,120},
|
---|
52 | Width -> {WH1, 0.00575308848}}
|
---|
53 | }
|
---|
54 |
|
---|
55 | (******* Lagrangian *******)
|
---|
56 |
|
---|
57 | (* CP even operators *)
|
---|
58 |
|
---|
59 | LCPEven := -1/4 GH FS[G, mu, nu, b] FS[G, mu, nu, b] H - 1/4 AH FS[A, mu, nu] FS[A, mu, nu] H;
|
---|
60 |
|
---|
61 | (* CP odd operators *)
|
---|
62 |
|
---|
63 | LCPOdd := - 1/4 Gphi FS[G, mu, nu, a] Dual[FS][G, mu, nu, a] h1;
|
---|
64 |
|
---|
65 |
|
---|
66 |
|
---|
67 |
|
---|