Monotops: monotops.fr

File monotops.fr, 9.5 KB (added by Benjamin Fuks, 14 years ago)

FeynRules monotop model file

Line 
1(* ********************************************************* *)
2(* ***** ***** *)
3(* ***** FeynRules model file: SM + monotops ***** *)
4(* ***** Author: B. Fuks ***** *)
5(* ***** ***** *)
6(* ********************************************************* *)
7
8(* ************************** *)
9(* ***** Information ***** *)
10(* ************************** *)
11M$ModelName = "MonoTops";
12M$Information = { Authors->{"Benjamin Fuks"}, Emails->{"fuks@cern.ch"}, Institutions->{"IPHC Strasbourg / University of Strasbourg"},
13 Date->"05.07.11", Version->"1.0.0",
14 References->{"J. Andrea, B. Fuks, F. Maltoni, arXiv:1106.6199 [hep-ph]"},
15 URLs->{"http://feynrules.phys.ucl.ac.be/view/Main/Monotops"} };
16FeynmanGauge = True;
17$Flag4F = 1;
18
19
20(* ************************** *)
21(* ***** Fields ***** *)
22(* ************************** *)
23M$ClassesDescription = {
24(* Additional fermion for monotops *)
25 F[5] == { ClassName->FMET, SelfConjugate->True, Mass->{MFM,50}, Width->{WFM,10},
26 ParticleName->"fmet",
27 PDG->9000003,PropagatorLabel->"FMET", PropagatorType->Straight, PropagatorArrow->None},
28
29(* Additional gauge boson for monotops *)
30 V[7] == { ClassName->VMET, SelfConjugate->True, Mass->{MVM,50.}, Width->{WVM,10.}, ParticleName->"vmet",
31 PDG->9000002, PropagatorLabel->"VMET", PropagatorType->Sine, PropagatorArrow->None},
32 V[8] == { ClassName->VC, SelfConjugate->False, Indices->{Index[Colour]}, Mass->{MVC,500}, Width->{WVC,10}, QuantumNumbers->{Q->2/3},
33 ParticleName->"vc", AntiParticleName->"vc~",
34 PDG->9000005, PropagatorLabel->"VC", PropagatorType->Sine, PropagatorArrow->Forward},
35
36(* Additional scalars for monotops *)
37 S[4] == { ClassName->SMET, SelfConjugate->True, Mass->{MSM, 50}, Width->{WSM,10.},
38 ParticleName->"smet",
39 PDG->9000001, PropagatorLabel->"SMET", PropagatorType->ScalarDash, PropagatorArrow->None },
40 S[5] == { ClassName->phiC, SelfConjugate->False, Mass->{MSC, 1000}, Width->{WSC,10.}, Indices->{Colour}, QuantumNumbers->{Q->2/3},
41 ParticleName->"phic", AntiParticleName->"phic~",
42 PDG->9000004, PropagatorLabel->"phiC", PropagatorType->ScalarDash, PropagatorArrow->Forward},
43 S[6] == { ClassName->tphiC, SelfConjugate->False, Mass->{tMSC, 1000}, Width->{tWSC,10.}, Indices->{Colour}, QuantumNumbers->{Q->-1/3},
44 ParticleName->"tphic", AntiParticleName->"tphic~",
45 PDG->9000006, PropagatorLabel->"tphiC", PropagatorType->ScalarDash, PropagatorArrow->Forward}
46};
47
48(* ************************** *)
49(* ***** Parameters ***** *)
50(* ************************** *)
51M$Parameters = {
52(* Monotop couplings: extermal parameters *)
53 A0FC == { TeX->Subsuperscript[A,FC,0], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->A0FC,
54 Value-> {
55 A0FC[1,1]->0., A0FC[1,2]->0., A0FC[1,3]->0.1,
56 A0FC[2,1]->0., A0FC[2,2]->0., A0FC[2,3]->0.,
57 A0FC[3,1]->0.1, A0FC[3,2]->0., A0FC[3,3]->0. },
58 InteractionOrder->{MT1,1}, Description->"FCNC scalar quark-quark couplings"},
59 B0FC == { TeX->Subsuperscript[B,FC,0], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->B0FC,
60 Value-> {B0FC[_,_]->0}, InteractionOrder->{MT1,1},
61 Description->"FCNC pseudoscalar quark-quark couplings"},
62 A1FC == { TeX->Subsuperscript[A,FC,1], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->A1FC,
63 Value-> {
64 A1FC[1,1]->0., A1FC[1,2]->0., A1FC[1,3]->0.1,
65 A1FC[2,1]->0., A1FC[2,2]->0., A1FC[2,3]->0.,
66 A1FC[3,1]->0.1, A1FC[3,2]->0., A1FC[3,3]->0. },
67 InteractionOrder->{MT2,1}, Description->"FCNC vector quark-quark couplings"},
68 B1FC == { TeX->Subsuperscript[B,FC,1], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->B1FC,
69 Value-> {B1FC[_,_]->0}, InteractionOrder->{MT2,1},
70 Description->"FCNC pseudovector quark-quark couplings"},
71 A12S == { TeX->Subsuperscript[A,S,12], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation]}, BlockName->A12S,
72 Value-> {A12S[1]->0., A12S[2]->0., A12S[3]->0.1 } ,
73 InteractionOrder->{MT3,1}, Description->"Colored scalar resonance couplings to quark-FMET"},
74 B12S == { TeX->Subsuperscript[B,S,12], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation]}, BlockName->B12S,
75 Value-> {B12S[_]->0}, InteractionOrder->{MT3,1},
76 Description->"Colored scalar resonance couplings to quark-FMET"},
77 tA12S == { TeX->Subsuperscript[tA,S,12], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation]}, BlockName->tA12S,
78 Value-> {tA12S[1]->0.1, tA12S[2]->0.1, tA12S[3]->0. } ,
79 InteractionOrder->{MT3,1}, Description->"t-channel and u-channel contributions to a 4F interaction"},
80 tB12S == { TeX->Subsuperscript[tB,S,12], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation]}, BlockName->tB12S,
81 Value-> {tB12S[_]->0}, InteractionOrder->{MT3,1}, Description->"t-channel and u-channel contributions to a 4F interaction"},
82 AQS == { TeX->Subsuperscript[A,RS,Q], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->AQS,
83 Value-> {
84 AQS[1,1]->0., AQS[1,2]->0.1, AQS[1,3]->0.,
85 AQS[2,1]->-0.1, AQS[2,2]->0., AQS[2,3]->0.,
86 AQS[3,1]->0., AQS[3,2]->0., AQS[3,3]->0. },
87 InteractionOrder->{MT3,1}, Description->"t-channel and u-channel contributions to a 4F interaction"},
88 BQS == { TeX->Subsuperscript[B,RS,Q], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->BQS,
89 Value-> {BQS[_,_]->0}, InteractionOrder->{MT3,1},
90 Description->"Colored scalar resonance couplings to quarks"},
91 tAQS == { TeX->Subsuperscript[tA,RS,Q], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->tAQS,
92 Value-> {
93 tAQS[1,1]->0., tAQS[1,2]->0., tAQS[1,3]->0.1,
94 tAQS[2,1]->0., tAQS[2,2]->0., tAQS[2,3]->0.1,
95 tAQS[3,1]->0., tAQS[3,2]->0., tAQS[3,3]->0. },
96 InteractionOrder->{MT3,1}, Description->"t-channel and u-channel contributions to a 4F interaction"},
97 tBQS == { TeX->Subsuperscript[tB,RS,Q], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->tBQS,
98 Value-> {tBQS[_,_]->0}, InteractionOrder->{MT3,1},
99 Description->"Colored scalar resonance couplings to quarks"},
100 A12V == { TeX->Subsuperscript[A,V,12], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation]}, BlockName->A12V,
101 Value->{A12V[1]->0., A12V[2]->0., A12V[3]->0.1 } ,
102 InteractionOrder->{MT4,1}, Description->"Colored vector resonance couplings to quark-FMET"},
103 B12V == { TeX->Subsuperscript[B,V,12], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation]}, BlockName->B12V,
104 Value-> {B12V[_]->0}, InteractionOrder->{MT4,1},
105 Description->"Colored vector resonance couplings to quark-FMET"},
106 AQV == { TeX->Subsuperscript[A,RV,Q], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->AQV,
107 Value-> {
108 AQV[1,1]->0.1, AQV[1,2]->0., AQV[1,3]->0.,
109 AQV[2,1]->0., AQV[2,2]->0., AQV[2,3]->0.,
110 AQV[3,1]->0., AQV[3,2]->0., AQV[3,3]->0. },
111 InteractionOrder->{MT4,1}, Description->"Colored vector resonance couplings to quarks"},
112 BQV == { TeX->Subsuperscript[B,RV,Q], ParameterType->External, ComplexParameter->False, Indices->{Index[Generation],Index[Generation]}, BlockName->BQV,
113 Value-> {BQV[_,_]->0}, InteractionOrder->{MT4,1},
114 Description->"Colored vector resonance couplings to quarks"}
115};
116
117
118(* Monotop Lagrangian pieces *)
119LMono := Module[{L0,L1,L120,L121,L120p,sp,sp1,sp2,f1,f2,c1,c2,c3},
120 L0 := SMET (uqbar[sp1,f1,c1].uq[sp1,f2,c1] A0FC[f1,f2] + uqbar[sp1,f1,c1].Ga[5,sp1,sp2].uq[sp2,f2,c1] B0FC[f1,f2]);
121 L1 := VMET[mu] (uqbar[sp1,f1,c1].Ga[mu,sp1,sp2].uq[sp2,f2,c1] A1FC[f1,f2] + uqbar[sp1,f1,c1].Ga[mu,sp1,sp2].Ga[5,sp2,sp].uq[sp,f2,c1] B1FC[f1,f2]);
122 L120:= phiC[c3] Eps[c1,c2,c3] (CC[dqbar][sp1,f1,c1].dq[sp1,f2,c2] AQS[f1,f2] + CC[dqbar][sp1,f1,c1].Ga[5,sp1,sp2].dq[sp2,f2,c2] BQS[f1,f2]) +
123 phiC[c1] (uqbar[sp1,f1,c1].FMET[sp1] A12S[f1] + uqbar[sp1,f1,c1].Ga[5,sp1,sp2].FMET[sp2] B12S[f1]);
124 L120p:=tphiC[c3] Eps[c1,c2,c3] (CC[dqbar][sp1,f1,c1].uq[sp1,f2,c2] tAQS[f1,f2] + CC[dqbar][sp1,f1,c1].Ga[5,sp1,sp2].uq[sp2,f2,c2] tBQS[f1,f2]) +
125 tphiC[c1] (dqbar[sp1,f1,c1].FMET[sp1] tA12S[f1] + dqbar[sp1,f1,c1].Ga[5,sp1,sp2].FMET[sp2] tB12S[f1]);
126 L121:= VC[mu,c3] Eps[c1,c2,c3] (CC[dqbar][sp1,f1,c1].Ga[mu,sp1,sp2].dq[sp2,f2,c2] AQV[f1,f2] +
127 CC[dqbar][sp1,f1,c1].Ga[mu,sp1,sp2].Ga[5,sp2,sp].dq[sp,f2,c2] BQV[f1,f2]) +
128 VC[mu,c1] (uqbar[sp1,f1,c1].Ga[mu,sp1,sp2].FMET[sp2] A12V[f1] + uqbar[sp1,f1,c1].Ga[mu,sp1,sp2].Ga[5,sp2,sp].FMET[sp] B12V[f1]);
129 L0+L1+L120+L121+$Flag4F*L120p + HC[L0+L1+L120+L121+$Flag4F*L120p]];