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 | |
---|