HiggsEffectiveTheory: HiggsEffective.fr

File HiggsEffective.fr, 1.4 KB (added by claudeduhr, 9 years ago)

Model file

Line 
1
2(***************** This is the FeynRules model file for Higgs effective couplings to gluons and photons ***********)
3
4M$ModelName = "Higgs_Effective_Couplings";
5
6(* The loop coefficient *)
7
8sert[x_] := 1+ 7/30 x + 2/21 x^2 + 26/525 x^3;
9
10serw[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
14serp[x_] := 1 + x/3 + x^2 * 8/45 + x^3 * 4/35;
15
16     
17
18(***** Parameter list ******)
19
20M$Parameters = {
21
22
23AH == {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
28GH == {TeX -> Subscript[G, H],
29       ParameterType -> Internal,
30       InteractionOrder -> {HIG, 1},
31       Value -> -gs^2/(4Pi(3Pi v)) sert[(MH/2/MT)^2] },
32
33Gphi == {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
45M$ClassesDescription = {
46
47
48S[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
59LCPEven := -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
63LCPOdd := - 1/4 Gphi FS[G, mu, nu, a] Dual[FS][G, mu, nu, a] h1;
64
65
66
67