AnomalousGaugeCoupling: quartic_lt89.nb

File quartic_lt89.nb, 10.8 KB (added by eboli, 5 years ago)

Notebook used to generate the SM, LT8, and LT9 interactions.

Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 6.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[     10924,        293]
14NotebookOptionsPosition[      9604,        250]
15NotebookOutlinePosition[     10001,        268]
16CellTagsIndexPosition[      9958,        265]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"\[IndentingNewLine]",
23  FrameBox[
24   RowBox[{
25   "\[SelectionPlaceholder]", " ", "FeynRules", " ",
26    "initialization"}]]}]], "Input",
27 CellChangeTimes->{{3.5542065470381117`*^9, 3.554206578929636*^9}}],
28
29Cell[BoxData[
30 RowBox[{"$FeynRulesPath", "=",
31  RowBox[{
32  "SetDirectory", "[",
33   "\"\</Users/oscar/Trabalho/WorkInProgress/FeynRules/feynrules-development\>\
34\"", "]"}]}]], "Input",
35 CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
36  3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
37  3.4234163227881193`*^9}, {3.549259989465773*^9, 3.549259999606881*^9}}],
38
39Cell[BoxData[
40 RowBox[{"<<", "FeynRules`"}]], "Input"],
41
42Cell[BoxData[
43 RowBox[{
44  RowBox[{"SetDirectory", "[",
45   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/Quartic_linear\>\""}], "]"}],
46  ";"}]], "Input",
47 CellChangeTimes->{{3.419073170860696*^9, 3.419073182827229*^9}, {
48  3.549260010957612*^9, 3.549260018221593*^9}, {3.5527968095887547`*^9,
49  3.552796815826297*^9}}],
50
51Cell[BoxData[
52 RowBox[{"\[IndentingNewLine]",
53  FrameBox[
54   RowBox[{
55    RowBox[{
56    "\[SelectionPlaceholder]", " ", "Loading", " ", "the", " ", "file", " ",
57     "containing", " ", "the", " ", "Standard", " ", "Model", " ", "and", " ",
58      "L_T8"}], " ", "+", " ", "L_T9"}]], " "}]], "Input",
59 CellChangeTimes->{{3.554206586417383*^9, 3.554206720572693*^9}, {
60  3.554287982043695*^9, 3.5542879892709217`*^9}}],
61
62Cell[BoxData[
63 RowBox[{"LoadModel", "[", "\"\<quartic.fr\>\"", "]"}]], "Input",
64 CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
65   3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
66   3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
67   3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
68   3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
69   3.403347555049163*^9}, 3.4044490490588417`*^9, {3.411744339876704*^9,
70   3.411744340012457*^9}, {3.4121886924550533`*^9, 3.412188699157571*^9},
71   3.412188808811866*^9, 3.4121888580521603`*^9, {3.412450464077868*^9,
72   3.412450464378695*^9}, {3.413715097460478*^9, 3.41371509757642*^9}, {
73   3.41440825334604*^9, 3.414408254159686*^9}, {3.41862573831756*^9,
74   3.4186257392223186`*^9}, {3.4190731862389174`*^9, 3.419073187003003*^9}, {
75   3.419073336802393*^9, 3.4190733374513063`*^9}, {3.4190828041801767`*^9,
76   3.4190828048079023`*^9}, {3.549356567929675*^9, 3.549356569284753*^9}, {
77   3.552796819881452*^9, 3.552796823177125*^9}}],
78
79Cell[BoxData[
80 RowBox[{"LoadRestriction", "[",
81  RowBox[{"\"\<Cabibbo.rst\>\"", ",", "\"\<Massless.rst\>\""}],
82  "]"}]], "Input",
83 CellChangeTimes->{{3.453790588503598*^9, 3.4537906008856297`*^9},
84   3.5529941847635183`*^9}],
85
86Cell[BoxData[
87 RowBox[{
88  FrameBox[
89   RowBox[{
90   "\[SelectionPlaceholder]", " ", "Checking", " ", "the", " ",
91    "lagrangian"}]], "\[IndentingNewLine]"}]], "Input",
92 CellChangeTimes->{{3.554207149082877*^9, 3.5542071697416487`*^9}}],
93
94Cell[BoxData[
95 RowBox[{
96  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
97 CellChangeTimes->{{3.4234159280429783`*^9, 3.423415934798614*^9},
98   3.554210133339581*^9}],
99
100Cell["The hermiticity of the Lagrangian can be checked via", "Text",
101 CellChangeTimes->{{3.423415694323595*^9, 3.423415707867804*^9}}],
102
103Cell[BoxData[
104 RowBox[{"CheckHermiticity", "[",
105  RowBox[{
106   RowBox[{"LSM", "+", "LQT8"}], ",",
107   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
108 CellChangeTimes->{{3.414763604111637*^9, 3.4147636044973803`*^9}, {
109  3.554207230374851*^9, 3.554207231973926*^9}, {3.5542880303115664`*^9,
110  3.554288036159964*^9}, {3.5542913388781567`*^9, 3.5542913396033573`*^9}}],
111
112Cell[BoxData[
113 RowBox[{"CheckHermiticity", "[",
114  RowBox[{
115   RowBox[{"LSM", "+", "LQT9"}], ",",
116   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
117 CellChangeTimes->{{3.55428805134746*^9, 3.554288053105134*^9}, {
118  3.5542913444029093`*^9, 3.554291345194229*^9}}],
119
120Cell["\<\
121FeynRules can check whether all the values of the masses given in the model \
122file are in agreement with the masses given in the Lagrangian:\
123\>", "Text",
124 CellChangeTimes->{{3.423415751305388*^9, 3.423415792594919*^9}, {
125  3.5542072544005003`*^9, 3.554207255988462*^9}}],
126
127Cell[BoxData[
128 RowBox[{"CheckMassSpectrum", "[", "LSM", "]"}]], "Input",
129 CellChangeTimes->{{3.414736325829801*^9, 3.414736326065997*^9},
130   3.4147528281460342`*^9, {3.5542072604055557`*^9, 3.554207262590489*^9}, {
131   3.554288059041111*^9, 3.554288060496749*^9}, {3.5542883486771297`*^9,
132   3.554288350168269*^9}}],
133
134Cell["\<\
135In the same way, FeynRules can check whether all kinetic terms are correctly \
136normalized :\
137\>", "Text",
138 CellChangeTimes->{{3.423415798800013*^9, 3.423415817964087*^9}}],
139
140Cell[BoxData[
141 RowBox[{"CheckKineticTermNormalisation", "[",
142  RowBox[{"LSM", ",",
143   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input"],
144
145Cell[BoxData[
146 FrameBox[
147  RowBox[{
148  "\[SelectionPlaceholder]", " ", "Feynman", " ", "rules", " ", "originating",
149    " ", "from", " ", "L_T8", " ", "and", " ", "L_T9", " ", "using", " ",
150   "the", " ", "unitary", " ", "gauge"}]]], "Input",
151 CellChangeTimes->{{3.554206797674385*^9, 3.554206865976857*^9}, {
152  3.5542069112258472`*^9, 3.554206917083228*^9}, {3.5542880008529167`*^9,
153  3.554288007285139*^9}}],
154
155Cell[BoxData[{
156 RowBox[{
157  RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]",
158 RowBox[{"FeynmanRules", "[",
159  RowBox[{"LT8", " ", ",",
160   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], "Input",
161 CellChangeTimes->{{3.5542147888623667`*^9, 3.5542147904036713`*^9},
162   3.5542148289281187`*^9, {3.554288010662364*^9, 3.554288011806374*^9}}],
163
164Cell[BoxData[{
165 RowBox[{
166  RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]",
167 RowBox[{"FeynmanRules", "[",
168  RowBox[{"LT9", ",",
169   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], "Input",
170 CellChangeTimes->{{3.55421481319798*^9, 3.5542148158116817`*^9}, {
171  3.554288014359729*^9, 3.554288016269861*^9}}],
172
173Cell[BoxData[
174 FrameBox[
175  RowBox[{
176  "\[SelectionPlaceholder]", " ", "Generating", " ", "the", " ", "UFO", " ",
177   "output", " ", "used", " ", "by", " ", "MadGraph5"}]]], "Input",
178 CellChangeTimes->{{3.554207020764146*^9, 3.554207046179934*^9}, {
179  3.554207083712941*^9, 3.55420709708432*^9}}],
180
181Cell[BoxData[{
182 RowBox[{
183  RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]",
184 RowBox[{"WriteUFO", "[",
185  RowBox[{
186  "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LT8", ",",
187   " ", "LT9", ",", " ",
188   RowBox[{"Output", " ", "\[Rule]", " ", "\"\<SM_LT8_LT9_UFO\>\""}]}],
189  "]"}]}], "Input",
190 CellChangeTimes->{{3.554288112563303*^9, 3.554288127575335*^9}}],
191
192Cell[BoxData[
193 RowBox[{
194  FrameBox[
195   RowBox[{"\[SelectionPlaceholder]", " ", "FeynArts", " ", "output"}]],
196  " "}]], "Input",
197 CellChangeTimes->{{3.554210222303082*^9, 3.554210236874051*^9}}],
198
199Cell["FeynArts also supports the Feynman gauge", "Text",
200 CellChangeTimes->{{3.4121854851672792`*^9, 3.412185494183435*^9}}],
201
202Cell[BoxData[{
203 RowBox[{
204  RowBox[{
205   RowBox[{"FeynmanGauge", " ", "=", " ", "False"}], ";"}],
206  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
207 RowBox[{"WriteFeynArtsOutput", "[",
208  RowBox[{
209  "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LT8", ",",
210   "LT9", ",", " ",
211   RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}], ",",
212   RowBox[{"Output", "\[Rule]", "\"\<SM_LT8_LT9_FA\>\""}]}], "]"}]}], "Input",\
213
214 CellChangeTimes->{{3.411911018354619*^9, 3.4119110196967573`*^9}, {
215  3.412185470680571*^9, 3.412185506240796*^9}, {3.4234161971513453`*^9,
216  3.423416209716672*^9}, {3.5542103799698553`*^9, 3.554210404862816*^9}, {
217  3.554213142736615*^9, 3.554213144826766*^9}, {3.554214531350573*^9,
218  3.554214532452024*^9}, {3.5542147194543047`*^9, 3.554214722231299*^9}, {
219  3.5542881323440437`*^9, 3.554288145935741*^9}}],
220
221Cell[BoxData[
222 FrameBox[
223  RowBox[{
224  "\[SelectionPlaceholder]", " ", "CalcHep", " ", "output"}]]], "Input",
225 CellChangeTimes->{{3.554210492982093*^9, 3.554210505875268*^9}}],
226
227Cell["CalcHep also supports the Feynman gauge", "Text",
228 CellChangeTimes->{{3.4121853722243843`*^9, 3.412185380407339*^9}}],
229
230Cell[BoxData[{
231 RowBox[{
232  RowBox[{
233   RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
234  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
235 RowBox[{
236  RowBox[{"WriteCHOutput", "[",
237   RowBox[{
238   "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", " ", "LT8",
239     ",", " ", "LT9", ",",
240    RowBox[{"Output", "\[Rule]", "\"\<SM_LT8_LT9_CH\>\""}]}], "]"}],
241  ";"}]}], "Input",
242 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
243  3.412185409690489*^9, 3.4121854275198507`*^9}, {3.412450479942018*^9,
244  3.4124504817138367`*^9}, {3.554210518056747*^9, 3.554210525845241*^9}, {
245  3.554212177238345*^9, 3.554212186985408*^9}, {3.554214738990678*^9,
246  3.5542147440692997`*^9}, {3.5542881510797243`*^9, 3.5542881640950212`*^9}}],
247
248Cell[BoxData[""], "Input",
249 CellChangeTimes->{3.412185367693318*^9, 3.412185407947097*^9}]
250},
251WindowSize->{1024, 656},
252WindowMargins->{{Automatic, -2}, {Automatic, 0}},
253ShowSelection->True,
254Magnification->1.5,
255FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \
2562010)",
257StyleDefinitions->"Default.nb"
258]
259(* End of Notebook Content *)
260
261(* Internal cache information *)
262(*CellTagsOutline
263CellTagsIndex->{}
264*)
265(*CellTagsIndex
266CellTagsIndex->{}
267*)
268(*NotebookFileOutline
269Notebook[{
270Cell[545, 20, 229, 6, 82, "Input"],
271Cell[777, 28, 398, 8, 87, "Input"],
272Cell[1178, 38, 54, 1, 40, "Input"],
273Cell[1235, 41, 319, 7, 42, "Input"],
274Cell[1557, 50, 416, 9, 83, "Input"],
275Cell[1976, 61, 1083, 15, 40, "Input"],
276Cell[3062, 78, 227, 5, 40, "Input"],
277Cell[3292, 85, 236, 6, 83, "Input"],
278Cell[3531, 93, 175, 4, 40, "Input"],
279Cell[3709, 99, 134, 1, 39, "Text"],
280Cell[3846, 102, 383, 7, 40, "Input"],
281Cell[4232, 111, 281, 6, 40, "Input"],
282Cell[4516, 119, 281, 5, 62, "Text"],
283Cell[4800, 126, 316, 5, 40, "Input"],
284Cell[5119, 133, 181, 4, 39, "Text"],
285Cell[5303, 139, 151, 3, 40, "Input"],
286Cell[5457, 144, 410, 8, 59, "Input"],
287Cell[5870, 154, 368, 7, 64, "Input"],
288Cell[6241, 163, 335, 7, 64, "Input"],
289Cell[6579, 172, 295, 6, 58, "Input"],
290Cell[6877, 180, 399, 9, 65, "Input"],
291Cell[7279, 191, 194, 5, 58, "Input"],
292Cell[7476, 198, 124, 1, 39, "Text"],
293Cell[7603, 201, 844, 17, 111, "Input"],
294Cell[8450, 220, 174, 4, 58, "Input"],
295Cell[8627, 226, 123, 1, 39, "Text"],
296Cell[8753, 229, 754, 16, 111, "Input"],
297Cell[9510, 247, 90, 1, 40, "Input"]
298}
299]
300*)
301
302(* End of internal cache information *)