NTGC: NTGC.fr

File NTGC.fr, 3.2 KB (added by degrande, 3 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
8M$ModelName = "NTGCdim8";
9
10
11M$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
21FeynmanGauge = False;
22
23M$InteractionOrderHierarchy = {
24{NP,1}
25}
26
27M$InteractionOrderLimit = {
28{NP,1}
29}
30
31
32
33(****************  Parameters *************)
34
35M$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
73ddH := DC[Phi[kk2], rho] /. Phi[x__] -> DC[Phi[x], mu];
74
75Lbw := 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;
78Lbb := I FS[B, mu, nu] FS[B, nu, rho] Phibar[
79    kk2] (ddH + (ddH /. {mu -> rho, rho -> mu})) CBBL4/10^12;
80Lww := 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   
84Lbtw := 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
91LEFTnH:=ExpandIndices[Lbtw,FlavorExpand->{SU2D,SU2W},MaxParticles->3];
92
93LEFT:=LEFTnH+HC[LEFTnH];
94   
95LCPEFT=ExpandIndices[Lww+Lbb+Lbw+HC[Lww+Lbb+Lbw],FlavorExpand->{SU2D,SU2W},MaxParticles->3];