| 1 | (* ********************************************************* *)
|
|---|
| 2 | (* ***** ***** *)
|
|---|
| 3 | (* ***** FeynRules model file: SM + Wprime ***** *)
|
|---|
| 4 | (* ***** Author: B. Fuks ***** *)
|
|---|
| 5 | (* ***** ***** *)
|
|---|
| 6 | (* ********************************************************* *)
|
|---|
| 7 |
|
|---|
| 8 | (* ************************** *)
|
|---|
| 9 | (* ***** Information ***** *)
|
|---|
| 10 | (* ************************** *)
|
|---|
| 11 | M$ModelName = "WEff";
|
|---|
| 12 | M$Information = { Authors->{"Benjamin Fuks"},
|
|---|
| 13 | Emails->{"benjamin.fuks@iphc.cnrs.fr"},
|
|---|
| 14 | Institutions->{"IPHC Strasbourg / University of Strasbourg"},
|
|---|
| 15 | Date->"03.07.12", Version->"1.0.0",
|
|---|
| 16 | References->{"Z. Sullivan, Phys. Rev. D 66 (2002) 075011."},
|
|---|
| 17 | URLs->{""} };
|
|---|
| 18 | FeynmanGauge = True;
|
|---|
| 19 |
|
|---|
| 20 |
|
|---|
| 21 |
|
|---|
| 22 |
|
|---|
| 23 |
|
|---|
| 24 | (* ************************** *)
|
|---|
| 25 | (* ***** Fields ***** *)
|
|---|
| 26 | (* ************************** *)
|
|---|
| 27 | M$ClassesDescription = {
|
|---|
| 28 | (* Additional W' boson *)
|
|---|
| 29 | V[7] == {
|
|---|
| 30 | ClassName->Wp, SelfConjugate->False,
|
|---|
| 31 | Mass->{MWp,1000.},
|
|---|
| 32 | Width->{WWp,10.},
|
|---|
| 33 | ParticleName->"Wp+",
|
|---|
| 34 | AntiParticleName->"Wp-",
|
|---|
| 35 | QuantumNumbers -> {Q->1},
|
|---|
| 36 | PDG->34,
|
|---|
| 37 | PropagatorLabel->"Wp",
|
|---|
| 38 | PropagatorType->Sine,
|
|---|
| 39 | PropagatorArrow->Forward}
|
|---|
| 40 | };
|
|---|
| 41 |
|
|---|
| 42 | (* ************************** *)
|
|---|
| 43 | (* ***** Parameters ***** *)
|
|---|
| 44 | (* ************************** *)
|
|---|
| 45 | M$Parameters = {
|
|---|
| 46 | CRq == { TeX->Subsuperscript[C,q,R], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->CRq,
|
|---|
| 47 | Value-> {
|
|---|
| 48 | CRq[1,1]->1.0, CRq[1,2]->.225773, CRq[1,3]->0.,
|
|---|
| 49 | CRq[2,1]->0, CRq[2,2]->.97418, CRq[2,3]->0.,
|
|---|
| 50 | CRq[3,1]->0, CRq[3,2]->0., CRq[3,3]->1. },
|
|---|
| 51 | Description->"Right-handed W' couplings to quarks"},
|
|---|
| 52 | CRl == { TeX->Subsuperscript[C,l,R], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->CRl,
|
|---|
| 53 | Value-> {
|
|---|
| 54 | CRl[1,1]->1., CRl[1,2]->0., CRl[1,3]->0.,
|
|---|
| 55 | CRl[2,1]->0., CRl[2,2]->1., CRl[2,3]->0.,
|
|---|
| 56 | CRl[3,1]->0., CRl[3,2]->0., CRl[3,3]->1. },
|
|---|
| 57 | Description->"Right-handed W' couplings to leptons"},
|
|---|
| 58 | CLq == { TeX->Subsuperscript[C,q,L], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->CLq,
|
|---|
| 59 | Value-> {
|
|---|
| 60 | CLq[1,1]->.97418, CLq[1,2]->.225773, CLq[1,3]->0.,
|
|---|
| 61 | CLq[2,1]->-.225773, CLq[2,2]->.97418, CLq[2,3]->0.,
|
|---|
| 62 | CLq[3,1]->0., CLq[3,2]->0., CLq[3,3]->1. },
|
|---|
| 63 | Description->"Left-handed W' couplings to quarks"},
|
|---|
| 64 | CLl == { TeX->Subsuperscript[C,l,L], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->CLl,
|
|---|
| 65 | Value-> {
|
|---|
| 66 | CLl[1,1]->1., CLl[1,2]->0., CLl[1,3]->0.,
|
|---|
| 67 | CLl[2,1]->0., CLl[2,2]->1., CLl[2,3]->0.,
|
|---|
| 68 | CLl[3,1]->0., CLl[3,2]->0., CLl[3,3]->1. },
|
|---|
| 69 | Description->"Left-handed W' couplings to leptons"
|
|---|
| 70 | },
|
|---|
| 71 |
|
|---|
| 72 |
|
|---|
| 73 | kL == { ParameterType -> External,
|
|---|
| 74 | Value -> 0.0,
|
|---|
| 75 | InteractionOrder -> {NP,1},
|
|---|
| 76 | BlockName->WPCOUP,
|
|---|
| 77 | OrderBlock->1,
|
|---|
| 78 | TeX -> Subscript[kappa,L],
|
|---|
| 79 | Description -> "Left-handed W' coupling constant scale factor"},
|
|---|
| 80 |
|
|---|
| 81 | kR == { ParameterType -> External,
|
|---|
| 82 | Value -> 1.0,
|
|---|
| 83 | InteractionOrder -> {NP,1},
|
|---|
| 84 | TeX -> Subscript[kappa,R],
|
|---|
| 85 | BlockName->WPCOUP,
|
|---|
| 86 | OrderBlock->2,
|
|---|
| 87 | Description -> "Right-handed W' coupling constant scale factor"
|
|---|
| 88 | },
|
|---|
| 89 |
|
|---|
| 90 |
|
|---|
| 91 | gL == { ParameterType -> Internal,
|
|---|
| 92 | Definitions -> {gL->kL*ee/sw},
|
|---|
| 93 | InteractionOrder -> {NP,1},
|
|---|
| 94 | TeX -> Subscript[g,L],
|
|---|
| 95 | Description -> "Left-handed W' coupling constant"
|
|---|
| 96 | },
|
|---|
| 97 |
|
|---|
| 98 | gR == { ParameterType -> Internal,
|
|---|
| 99 | Definitions -> {gR->kR*ee/sw},
|
|---|
| 100 | InteractionOrder -> {NP,1},
|
|---|
| 101 | TeX -> Subscript[g,R],
|
|---|
| 102 | Description -> "Right-handed W' coupling constant"}
|
|---|
| 103 | };
|
|---|
| 104 |
|
|---|
| 105 | (* ************************** *)
|
|---|
| 106 | (* *** Interaction orders *** *)
|
|---|
| 107 | (* ************************** *)
|
|---|
| 108 | M$InteractionOrderHierarchy = { {QCD, 1}, {QED, 2} };
|
|---|
| 109 |
|
|---|
| 110 |
|
|---|
| 111 | (* New Lagrangian interaction terms *)
|
|---|
| 112 |
|
|---|
| 113 | LWprimeTmp := ExpandIndices[
|
|---|
| 114 | gL/Sqrt[2]*(vlbar.Ga[mu].ProjM.CLl.l + uqbar.Ga[mu].ProjM.CLq.dq)*Wp[mu] +
|
|---|
| 115 | gR/Sqrt[2]*(vlbar.Ga[mu].ProjP.CRl.l + uqbar.Ga[mu].ProjP.CRq.dq)*Wp[mu],
|
|---|
| 116 | FlavorExpand -> {SU2D}];
|
|---|
| 117 |
|
|---|
| 118 | LWprime := LWprimeTmp + HC[LWprimeTmp];
|
|---|
| 119 |
|
|---|
