EWdim6: EWdim6.fr

File EWdim6.fr, 4.9 KB (added by degrande, 5 years ago)
Line 
1(***************************************************************************************************************)
2(******       This is the FeynRules mod-file for the EW boson pair production effective theory            ******)
3(******                                                                                                   ******)
4(******     Authors: C. Degrande                                                                          ******)
5(******                                                                                                   ******)
6(***************************************************************************************************************)
7
8M$ModelName = "EWdim6";
9
10
11M$Information = {Authors -> {"C. Degrande"},
12             Version -> "1.2",
13             Date -> "12.12. 2013",
14             Institutions -> {"University of Illinois at Urbana-Champaign"},
15             Emails -> {"celine.degrande@uclouvain.be"},
16             URLs -> "http://feynrules.phys.ucl.ac.be"};
17             
18(* 1.1 log : Operators with the Higgs relevant for VBS added *)   
19(* 1.2 log : 1/2 factor added for the dual*)         
20
21M$InteractionOrderHierarchy = {(*{HIW,2},{HIG,2},*)
22{NP,1}
23};
24
25M$InteractionOrderLimit = {
26{NP,2}(*,{HIW,1},{HIG,1}*)
27};
28
29
30
31(****************  Parameters *************)
32
33M$Parameters = {
34
35(* External parameters *)
36
37
38  CWWWL2== {
39        ParameterType -> External,
40        ParameterName -> CWWWL2,
41        BlockName -> DIM6,
42        OrderBlock -> 1,
43          InteractionOrder -> {{QED,-3},{ NP, 2}},
44        Value -> 1,
45          TeX -> Subscript[C,WWW]/\[CapitalLambda]^2,
46        Description -> "coefficient of OWWW in TeV-2"},
47
48  CWL2== {
49        ParameterType -> External,
50        ParameterName -> CWL2,
51        BlockName -> DIM6,
52        OrderBlock -> 2,
53          InteractionOrder -> {{QED,-1},{ NP, 2}},
54        Value -> 1,
55          TeX -> Subscript[C,W]/\[CapitalLambda]^2,
56        Description -> "coefficient of OW in TeV-2"},
57
58  CBL2== {
59        ParameterType -> External,
60        ParameterName -> CBL2,
61        BlockName -> DIM6,
62        OrderBlock -> 3,
63          InteractionOrder -> {{QED,-1}, {NP, 2}},
64        Value -> 1,
65          TeX -> Subscript[C,B]/\[CapitalLambda]^2,
66        Description -> "coefficient of OB in TeV-2"},
67
68  CphiWL2== {
69        ParameterType -> External,
70        ParameterName -> CphiWL2,
71        BlockName -> DIM6,
72        OrderBlock -> 7,
73          InteractionOrder -> {{QED,-1},{ NP, 2}},
74        Value -> 1,
75          TeX -> Subscript[C,\[Phi]W]/\[CapitalLambda]^2,
76        Description -> "coefficient of OphiW in TeV-2"},
77
78  CphiBL2== {
79        ParameterType -> External,
80        ParameterName -> CphiBL2,
81        BlockName -> DIM6,
82        OrderBlock -> 8,
83          InteractionOrder -> {{QED,-1}, {NP, 2}},
84        Value -> 1,
85          TeX -> Subscript[C,\[Phi]B]/\[CapitalLambda]^2,
86        Description -> "coefficient of OphiB in TeV-2"},
87
88  CPWWWL2== {
89        ParameterType -> External,
90        ParameterName -> CPWWWL2,
91        BlockName -> DIM6,
92        OrderBlock -> 4,
93          InteractionOrder -> {{QED,-3}, {NP, 2}},
94        Value -> 1,
95          TeX -> Subscript[CP,WWW]/\[CapitalLambda]^2,
96        Description -> "coefficient of OWWW tilde in TeV-2"},
97
98  CPWL2== {
99        ParameterType -> External,
100        ParameterName -> CPWL2,
101        BlockName -> DIM6,
102        OrderBlock -> 5,
103          InteractionOrder -> {{QED,-1}, {NP, 2}},
104        Value -> 1,
105          TeX -> Subscript[CP,W]/\[CapitalLambda]^2,
106        Description -> "coefficient of OW tilde in TeV-2"}   
107
108}
109
110
111LX2phi2 := Module[{mu,nu,ii,aa,kk},
112  ExpandIndices[(Phibar[kk] Phi[kk]-vev^2/2)(-g1^2/4 CphiBL2 FS[B,mu,nu] FS[B,mu,nu] - gw^2/2 CphiWL2 FS[Wi,mu,nu,ii] FS[Wi,mu,nu,ii]), FlavorExpand->{SU2W,SU2D}]]*10^(-6)/.{CphidL2->0};
113
114
115Lphi4 := CphidL2*10^(-6) Module[{ii,jj,kk,mu}, ExpandIndices[ del[Phibar[ii] Phi[ii],mu] del[(Phibar[jj] Phi[jj]),mu], FlavorExpand->{SU2D,SU2W}]/.{CphidL2->0}];
116
117LWWW := ExpandIndices[CWWWL2*10^(-6) gw^3/4 Module[{mu, nu, rho, L, J, K}, Eps[L, J, K] FS[Wi, mu, nu, L] FS[Wi, nu, rho, J] FS[Wi, rho, mu,K]],FlavorExpand->{SU2W,SU2D}] /.{CphidL2->0};
118
119LHB := ExpandIndices[I g1/2*CBL2*10^(-6) Module[{mu, nu,jj}, DC[Phibar[jj],mu] FS[B,mu,nu] DC[Phi[jj],nu]], FlavorExpand -> {SU2W,SU2D}] /.{CphidL2->0};
120
121LHW := ExpandIndices[I gw*CWL2*10^(-6) Module[{jj,ii,kk,  mu, nu}, DC[Phibar[kk],mu] FS[Wi,mu,nu,ii] DC[Phi[jj],nu] Ta[ii,kk,jj]], FlavorExpand -> {SU2W,SU2D}]/.{CphidL2->0};
122
123(* CP Violating operators *)
124(*%%%%%%%%%%%%%%%%%%%%%%%%*)
125
126LCPW := 1/2 ExpandIndices[I gw*CPWL2*10^(-6) Module[{ii,jj,kk,  mu, nu, rho, sig}, DC[Phibar[kk],mu] FS[Wi,rho,sig,ii] DC[Phi[jj],nu] Ta[ii,kk,jj] Eps[mu, nu, rho, sig]], FlavorExpand -> {SU2W,SU2D}]/.{CphidL2->0};
127
128LCPWWW := 1/2 ExpandIndices[CPWWWL2*10^(-6) gw^3/4 Module[{mu, nu, rho, al, sig, L, J, K}, Eps[L, J, K] Eps[mu, nu, al, sig] FS[Wi, al, sig, L] FS[Wi, nu, rho, J] FS[Wi, rho, mu, K]],FlavorExpand -> {SU2W,SU2D}]/.{CphidL2->0};
129
130LEFW := LWWW+LHB+LHW+Lphi4+LX2phi2;
131
132LCPEFW := LCPWWW+LCPW;
133