AnomalousGaugeCoupling: quartic_lt89.2.nb

File quartic_lt89.2.nb, 10.9 KB (added by Oscar Eboli, 12 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[ 10973, 294]
14NotebookOptionsPosition[ 9653, 251]
15NotebookOutlinePosition[ 10050, 269]
16CellTagsIndexPosition[ 10007, 266]
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", "+", "LT8"}], ",",
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 3.554531660759603*^9}],
112
113Cell[BoxData[
114 RowBox[{"CheckHermiticity", "[",
115 RowBox[{
116 RowBox[{"LSM", "+", "LT9"}], ",",
117 RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
118 CellChangeTimes->{{3.55428805134746*^9, 3.554288053105134*^9}, {
119 3.5542913444029093`*^9, 3.554291345194229*^9}, 3.554531665102915*^9}],
120
121Cell["\<\
122FeynRules can check whether all the values of the masses given in the model \
123file are in agreement with the masses given in the Lagrangian:\
124\>", "Text",
125 CellChangeTimes->{{3.423415751305388*^9, 3.423415792594919*^9}, {
126 3.5542072544005003`*^9, 3.554207255988462*^9}}],
127
128Cell[BoxData[
129 RowBox[{"CheckMassSpectrum", "[", "LSM", "]"}]], "Input",
130 CellChangeTimes->{{3.414736325829801*^9, 3.414736326065997*^9},
131 3.4147528281460342`*^9, {3.5542072604055557`*^9, 3.554207262590489*^9}, {
132 3.554288059041111*^9, 3.554288060496749*^9}, {3.5542883486771297`*^9,
133 3.554288350168269*^9}}],
134
135Cell["\<\
136In the same way, FeynRules can check whether all kinetic terms are correctly \
137normalized :\
138\>", "Text",
139 CellChangeTimes->{{3.423415798800013*^9, 3.423415817964087*^9}}],
140
141Cell[BoxData[
142 RowBox[{"CheckKineticTermNormalisation", "[",
143 RowBox[{"LSM", ",",
144 RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input"],
145
146Cell[BoxData[
147 FrameBox[
148 RowBox[{
149 "\[SelectionPlaceholder]", " ", "Feynman", " ", "rules", " ", "originating",
150 " ", "from", " ", "L_T8", " ", "and", " ", "L_T9", " ", "using", " ",
151 "the", " ", "unitary", " ", "gauge"}]]], "Input",
152 CellChangeTimes->{{3.554206797674385*^9, 3.554206865976857*^9}, {
153 3.5542069112258472`*^9, 3.554206917083228*^9}, {3.5542880008529167`*^9,
154 3.554288007285139*^9}}],
155
156Cell[BoxData[{
157 RowBox[{
158 RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]",
159 RowBox[{"FeynmanRules", "[",
160 RowBox[{"LT8", " ", ",",
161 RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], "Input",
162 CellChangeTimes->{{3.5542147888623667`*^9, 3.5542147904036713`*^9},
163 3.5542148289281187`*^9, {3.554288010662364*^9, 3.554288011806374*^9}}],
164
165Cell[BoxData[{
166 RowBox[{
167 RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]",
168 RowBox[{"FeynmanRules", "[",
169 RowBox[{"LT9", ",",
170 RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], "Input",
171 CellChangeTimes->{{3.55421481319798*^9, 3.5542148158116817`*^9}, {
172 3.554288014359729*^9, 3.554288016269861*^9}}],
173
174Cell[BoxData[
175 FrameBox[
176 RowBox[{
177 "\[SelectionPlaceholder]", " ", "Generating", " ", "the", " ", "UFO", " ",
178 "output", " ", "used", " ", "by", " ", "MadGraph5"}]]], "Input",
179 CellChangeTimes->{{3.554207020764146*^9, 3.554207046179934*^9}, {
180 3.554207083712941*^9, 3.55420709708432*^9}}],
181
182Cell[BoxData[{
183 RowBox[{
184 RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]",
185 RowBox[{"WriteUFO", "[",
186 RowBox[{
187 "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LT8", ",",
188 " ", "LT9", ",", " ",
189 RowBox[{"Output", " ", "\[Rule]", " ", "\"\<SM_LT8_LT9_UFO\>\""}]}],
190 "]"}]}], "Input",
191 CellChangeTimes->{{3.554288112563303*^9, 3.554288127575335*^9}}],
192
193Cell[BoxData[
194 RowBox[{
195 FrameBox[
196 RowBox[{"\[SelectionPlaceholder]", " ", "FeynArts", " ", "output"}]],
197 " "}]], "Input",
198 CellChangeTimes->{{3.554210222303082*^9, 3.554210236874051*^9}}],
199
200Cell["FeynArts also supports the Feynman gauge", "Text",
201 CellChangeTimes->{{3.4121854851672792`*^9, 3.412185494183435*^9}}],
202
203Cell[BoxData[{
204 RowBox[{
205 RowBox[{
206 RowBox[{"FeynmanGauge", " ", "=", " ", "False"}], ";"}],
207 "\[IndentingNewLine]"}], "\[IndentingNewLine]",
208 RowBox[{"WriteFeynArtsOutput", "[",
209 RowBox[{
210 "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LT8", ",",
211 "LT9", ",", " ",
212 RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}], ",",
213 RowBox[{"Output", "\[Rule]", "\"\<SM_LT8_LT9_FA\>\""}]}], "]"}]}], "Input",\
214
215 CellChangeTimes->{{3.411911018354619*^9, 3.4119110196967573`*^9}, {
216 3.412185470680571*^9, 3.412185506240796*^9}, {3.4234161971513453`*^9,
217 3.423416209716672*^9}, {3.5542103799698553`*^9, 3.554210404862816*^9}, {
218 3.554213142736615*^9, 3.554213144826766*^9}, {3.554214531350573*^9,
219 3.554214532452024*^9}, {3.5542147194543047`*^9, 3.554214722231299*^9}, {
220 3.5542881323440437`*^9, 3.554288145935741*^9}}],
221
222Cell[BoxData[
223 FrameBox[
224 RowBox[{
225 "\[SelectionPlaceholder]", " ", "CalcHep", " ", "output"}]]], "Input",
226 CellChangeTimes->{{3.554210492982093*^9, 3.554210505875268*^9}}],
227
228Cell["CalcHep also supports the Feynman gauge", "Text",
229 CellChangeTimes->{{3.4121853722243843`*^9, 3.412185380407339*^9}}],
230
231Cell[BoxData[{
232 RowBox[{
233 RowBox[{
234 RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
235 "\[IndentingNewLine]"}], "\[IndentingNewLine]",
236 RowBox[{
237 RowBox[{"WriteCHOutput", "[",
238 RowBox[{
239 "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", " ", "LT8",
240 ",", " ", "LT9", ",",
241 RowBox[{"Output", "\[Rule]", "\"\<SM_LT8_LT9_CH\>\""}]}], "]"}],
242 ";"}]}], "Input",
243 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
244 3.412185409690489*^9, 3.4121854275198507`*^9}, {3.412450479942018*^9,
245 3.4124504817138367`*^9}, {3.554210518056747*^9, 3.554210525845241*^9}, {
246 3.554212177238345*^9, 3.554212186985408*^9}, {3.554214738990678*^9,
247 3.5542147440692997`*^9}, {3.5542881510797243`*^9, 3.5542881640950212`*^9}}],
248
249Cell[BoxData[""], "Input",
250 CellChangeTimes->{3.412185367693318*^9, 3.412185407947097*^9}]
251},
252WindowSize->{1024, 656},
253WindowMargins->{{Automatic, -2}, {Automatic, 0}},
254ShowSelection->True,
255Magnification->1.5,
256FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \
2572010)",
258StyleDefinitions->"Default.nb"
259]
260(* End of Notebook Content *)
261
262(* Internal cache information *)
263(*CellTagsOutline
264CellTagsIndex->{}
265*)
266(*CellTagsIndex
267CellTagsIndex->{}
268*)
269(*NotebookFileOutline
270Notebook[{
271Cell[545, 20, 229, 6, 82, "Input"],
272Cell[777, 28, 398, 8, 87, "Input"],
273Cell[1178, 38, 54, 1, 40, "Input"],
274Cell[1235, 41, 319, 7, 42, "Input"],
275Cell[1557, 50, 416, 9, 83, "Input"],
276Cell[1976, 61, 1083, 15, 40, "Input"],
277Cell[3062, 78, 227, 5, 40, "Input"],
278Cell[3292, 85, 236, 6, 83, "Input"],
279Cell[3531, 93, 175, 4, 40, "Input"],
280Cell[3709, 99, 134, 1, 39, "Text"],
281Cell[3846, 102, 410, 8, 40, "Input"],
282Cell[4259, 112, 303, 6, 40, "Input"],
283Cell[4565, 120, 281, 5, 62, "Text"],
284Cell[4849, 127, 316, 5, 40, "Input"],
285Cell[5168, 134, 181, 4, 39, "Text"],
286Cell[5352, 140, 151, 3, 40, "Input"],
287Cell[5506, 145, 410, 8, 59, "Input"],
288Cell[5919, 155, 368, 7, 64, "Input"],
289Cell[6290, 164, 335, 7, 64, "Input"],
290Cell[6628, 173, 295, 6, 58, "Input"],
291Cell[6926, 181, 399, 9, 65, "Input"],
292Cell[7328, 192, 194, 5, 58, "Input"],
293Cell[7525, 199, 124, 1, 39, "Text"],
294Cell[7652, 202, 844, 17, 111, "Input"],
295Cell[8499, 221, 174, 4, 58, "Input"],
296Cell[8676, 227, 123, 1, 58, "Text"],
297Cell[8802, 230, 754, 16, 166, "Input"],
298Cell[9559, 248, 90, 1, 60, "Input"]
299}
300]
301*)
302
303(* End of internal cache information *)