EWdim6: EWdim6.fr

File EWdim6.fr, 4.9 KB (added by Céline Degrande, 11 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