1 | (***************************************************************************************************************)
|
---|
2 | (****** This is the FeynRules mod-file for the EW boson pair production effective theory ******)
|
---|
3 | (****** ******)
|
---|
4 | (****** Authors: C. Degrande ******)
|
---|
5 | (****** ******)
|
---|
6 | (***************************************************************************************************************)
|
---|
7 |
|
---|
8 | M$ModelName = "EWdim6";
|
---|
9 |
|
---|
10 |
|
---|
11 | M$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 |
|
---|
21 | M$InteractionOrderHierarchy = {(*{HIW,2},{HIG,2},*)
|
---|
22 | {NP,1}
|
---|
23 | };
|
---|
24 |
|
---|
25 | M$InteractionOrderLimit = {
|
---|
26 | {NP,2}(*,{HIW,1},{HIG,1}*)
|
---|
27 | };
|
---|
28 |
|
---|
29 |
|
---|
30 |
|
---|
31 | (**************** Parameters *************)
|
---|
32 |
|
---|
33 | M$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 |
|
---|
111 | LX2phi2 := 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 |
|
---|
115 | Lphi4 := 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 |
|
---|
117 | LWWW := 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 |
|
---|
119 | LHB := 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 |
|
---|
121 | LHW := 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 |
|
---|
126 | LCPW := 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 |
|
---|
128 | LCPWWW := 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 |
|
---|
130 | LEFW := LWWW+LHB+LHW+Lphi4+LX2phi2;
|
---|
131 |
|
---|
132 | LCPEFW := LCPWWW+LCPW;
|
---|
133 |
|
---|