| 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];
|
|---|
