# NTGC: NTGC.fr

File NTGC.fr, 3.2 KB (added by degrande, 4 years ago) |
---|

Line | |
---|---|

1 | (***************************************************************************************************************) |

2 | (****** This is the FeynRules mod-file for the neutral EW boson pair production effective theory ******) |

3 | (****** ******) |

4 | (****** Authors: C. Degrande ******) |

5 | (****** ******) |

6 | (***************************************************************************************************************) |

7 | |

8 | M$ModelName = "NTGCdim8"; |

9 | |

10 | |

11 | M$Information = {Authors -> {"C. Degrande"}, |

12 | Version -> "1.1", |

13 | Date -> "15.08. 2016", |

14 | Institutions -> {"University of Illinois at Urbana-Champaign"}, |

15 | Emails -> {"cdegrand@illinois.edu"}, |

16 | URLs -> "http://feynrules.phys.ucl.ac.be"}; |

17 | |

18 | (*Log*) |

19 | (*v1.1 : correct inversion between CWW and CBB*) |

20 | |

21 | FeynmanGauge = False; |

22 | |

23 | M$InteractionOrderHierarchy = { |

24 | {NP,1} |

25 | } |

26 | |

27 | M$InteractionOrderLimit = { |

28 | {NP,1} |

29 | } |

30 | |

31 | |

32 | |

33 | (**************** Parameters *************) |

34 | |

35 | M$Parameters = { |

36 | |

37 | (* External parameters *) |

38 | |

39 | |

40 | CBtWL4== { |

41 | ParameterType -> External, |

42 | BlockName -> DIM8, |

43 | InteractionOrder -> {{QED,1},{ NP, 1}}, |

44 | Value -> 1, |

45 | TeX -> Subscript[C,BtW]/\[CapitalLambda]^4, |

46 | Description -> "coefficient of OBtW in TeV-4"}, |

47 | |

48 | CBWL4== { |

49 | ParameterType -> External, |

50 | BlockName -> DIM8, |

51 | InteractionOrder -> {{QED,1},{ NP, 1}}, |

52 | Value -> 1, |

53 | TeX -> Subscript[C,BW]/\[CapitalLambda]^4, |

54 | Description -> "coefficient of OBW in TeV-4"}, |

55 | |

56 | CWWL4== { |

57 | ParameterType -> External, |

58 | BlockName -> DIM8, |

59 | InteractionOrder -> {{QED,1},{ NP, 1}}, |

60 | Value -> 1, |

61 | TeX -> Subscript[C,WW]/\[CapitalLambda]^4, |

62 | Description -> "coefficient of OWW in TeV-4"}, |

63 | |

64 | CBBL4== { |

65 | ParameterType -> External, |

66 | BlockName -> DIM8, |

67 | InteractionOrder -> {{QED,1},{ NP, 1}}, |

68 | Value -> 1, |

69 | TeX -> Subscript[C,BB]/\[CapitalLambda]^4, |

70 | Description -> "coefficient of OBB in TeV-4"} |

71 | } |

72 | |

73 | ddH := DC[Phi[kk2], rho] /. Phi[x__] -> DC[Phi[x], mu]; |

74 | |

75 | Lbw := I FS[Wi, mu, nu, ii] FS[B, nu, rho] Phibar[ |

76 | kk1] (ddH + (ddH /. {mu -> rho, rho -> mu})) Ta[ii, kk1, kk2] CBWL4/ |

77 | 10^12; |

78 | Lbb := I FS[B, mu, nu] FS[B, nu, rho] Phibar[ |

79 | kk2] (ddH + (ddH /. {mu -> rho, rho -> mu})) CBBL4/10^12; |

80 | Lww := I FS[Wi, mu, nu, ii] FS[Wi, nu, rho, ii2] Phibar[ |

81 | kk] (ddH + (ddH /. {mu -> rho, rho -> mu})) Ta[ii, kk1, kk2] Ta[ |

82 | ii2, kk, kk1] CWWL4/10^12; |

83 | |

84 | Lbtw := I Module[{mu,nu,rho,ii,al,be,kk1,kk2,ddH}, |

85 | ddH = DC[Phi[kk2], rho] /. Phi[x__] -> DC[Phi[x], mu]; |

86 | FS[Wi, mu, nu, ii]FS[B, al, be] Eps[al,be,nu, rho] Phibar[ |

87 | kk1] (ddH + (ddH /. {mu -> rho, rho -> mu})) Ta[ii, kk1, kk2]] CBtWL4/ |

88 | 10^12; |

89 | |

90 | |

91 | LEFTnH:=ExpandIndices[Lbtw,FlavorExpand->{SU2D,SU2W},MaxParticles->3]; |

92 | |

93 | LEFT:=LEFTnH+HC[LEFTnH]; |

94 | |

95 | LCPEFT=ExpandIndices[Lww+Lbb+Lbw+HC[Lww+Lbb+Lbw],FlavorExpand->{SU2D,SU2W},MaxParticles->3]; |