Context Navigation

Back to B-L-SM

B-L-SM: B-L.nb

File B-L.nb, 28.7 KB (added by Lorenzo Basso, 13 years ago)
Pure B-L model notebook

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:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 145, 7]
13	NotebookDataLength[ 29228, 867]
14	NotebookOptionsPosition[ 24074, 694]
15	NotebookOutlinePosition[ 24452, 711]
16	CellTagsIndexPosition[ 24409, 708]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21	Cell[BoxData[
22	RowBox[{"Quit", "[", "]"}]], "Input",
23	CellChangeTimes->{{3.41265862251538^9, 3.412658649947229^9}, {
24	3.423415585782702^9, 3.423415597189939^9}, {3.4234163173467493`*^9,
25	3.4234163227881193`^9}, {3.424068937202279^9, 3.424068972595354*^9}, {
26	3.441972201424767^9, 3.441972204100518^9}, {3.441974075463511*^9,
27	3.441974075807181^9}, {3.44275751802024^9, 3.442757518156605*^9}, {
28	3.4543250469973173`^9, 3.4543250494197693`^9}, {3.528797117128602*^9,
29	3.52879711983528^9}, {3.5352057748794737`^9, 3.53520577577702*^9}, {
30	3.535207608385954^9, 3.5352076091277018`^9}}],
31
32	Cell[BoxData[
33	RowBox[{"$FeynRulesPath", "=",
34	RowBox[{
35	"SetDirectory", "[", "\"\<~/mathematica/FeynRules_1.6.0\>\"",
36	"]"}]}]], "Input"],
37
38	Cell[BoxData[
39	RowBox[{"<<", "FeynRules`"}]], "Input"],
40
41	Cell[BoxData[
42	RowBox[{
43	RowBox[{"SetDirectory", "[",
44	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/B-L\>\""}], "]"}],
45	";"}]], "Input",
46	CellChangeTimes->{{3.419073170860696^9, 3.419073182827229^9}, {
47	3.424068987980844^9, 3.4240689893965273`^9}}],
48
49	Cell[CellGroupData[{
50
51	Cell["The B-L extension of the Standard Model", "Title",
52	CellChangeTimes->{{3.424069004105296^9, 3.424069007850328^9}}],
53
54	Cell["We first load in the B-L Model model-file", "Text",
55	CellChangeTimes->{{3.424069016807353^9, 3.4240690172628117`^9}}],
56
57	Cell[BoxData[
58	RowBox[{"LoadModel", "[", "\"\<B-L.fr\>\"", "]"}]], "Input",
59	CellChangeTimes->{{3.4022069973481913`^9, 3.402207011768662^9},
60	3.4022081212072697`^9, {3.402208250379383^9, 3.402208254043104*^9},
61	3.4027466057480917`^9, {3.403240270135737^9, 3.403240277228945*^9},
62	3.403266503388291^9, {3.403267649630335^9, 3.40326765417397*^9}, {
63	3.403269919787421^9, 3.403269921965273^9}, {3.403347551273425*^9,
64	3.403347555049163^9}, 3.4044490490588417`^9, {3.411744339876704*^9,
65	3.411744340012457^9}, {3.4121886924550533`^9, 3.412188699157571*^9},
66	3.412188808811866^9, 3.4121888580521603`^9, {3.412450464077868*^9,
67	3.412450464378695^9}, {3.413715097460478^9, 3.41371509757642*^9}, {
68	3.41440825334604^9, 3.414408254159686^9}, {3.41862573831756*^9,
69	3.4186257392223186`^9}, {3.4190731862389174`^9, 3.419073187003003*^9}, {
70	3.419073336802393^9, 3.4190733374513063`^9}, {3.4190828041801767`*^9,
71	3.4190828048079023`^9}, {3.4240690195427647`^9, 3.424069028019803*^9}}],
72
73	Cell[CellGroupData[{
74
75	Cell["The B-L lagrangian", "Section",
76	CellChangeTimes->{{3.411910065227421^9, 3.411910071535137^9}, {
77	3.424069513901162^9, 3.424069514344799^9}}],
78
79	Cell[CellGroupData[{
80
81	Cell["Unitary Gauge", "Subsection",
82	CellChangeTimes->{{3.411910080775518^9, 3.41191008414785^9}}],
83
84	Cell["\<\
85	The full lagrangian in unitary gauge can be accessed immediatly via\
86	\>", "Text",
87	CellChangeTimes->{{3.411910016771447^9, 3.411910062087528^9}, {
88	3.411910094087652^9, 3.411910096590087^9}, {3.411910215381351*^9,
89	3.4119102162371798`*^9}}],
90
91	Cell[BoxData["LBL"], "Input",
92	CellChangeTimes->{{3.411910106011015^9, 3.411910106351081^9}, {
93	3.535205784209942^9, 3.535205784276331^9}}],
94
95	Cell[CellGroupData[{
96
97	Cell["Gauge sector", "Subsubsection",
98	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}}],
99
100	Cell["\<\
101	The part of the lagrangian representing the gauge sector can be accessed via\
102	\>", "Text",
103	CellChangeTimes->{{3.4119101255458603`^9, 3.411910192225008^9}, {
104	3.411910235813308^9, 3.4119102509651337`^9}}],
105
106	Cell[BoxData["LGauge"], "Input",
107	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}}]
108	}, Open ]],
109
110	Cell[CellGroupData[{
111
112	Cell["Scalar sector", "Subsubsection",
113	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
114	3.411910274288354^9, 3.41191027703699^9}}],
115
116	Cell["\<\
117	The part of the lagrangian representing the scalar sector can be accessed via\
118	\
119	\>", "Text",
120	CellChangeTimes->{{3.4119101255458603`^9, 3.411910192225008^9}, {
121	3.411910235813308^9, 3.4119102509651337`^9}, {3.41191028690167*^9,
122	3.411910287709094*^9}}],
123
124	Cell[BoxData["LHiggs"], "Input",
125	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
126	3.411910290186841^9, 3.411910292005392^9}}]
127	}, Open ]],
128
129	Cell[CellGroupData[{
130
131	Cell["Fermion sector", "Subsubsection",
132	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
133	3.4119103528868923`^9, 3.411910357404933^9}}],
134
135	Cell["\<\
136	The part of the lagrangian representing the fermion sector can be accessed via\
137	\>", "Text",
138	CellChangeTimes->{{3.4119101255458603`^9, 3.411910192225008^9}, {
139	3.411910235813308^9, 3.4119102509651337`^9}, {3.4119103873434134`*^9,
140	3.411910388077118*^9}}],
141
142	Cell[BoxData["LFermions"], "Input",
143	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
144	3.411910379677638^9, 3.4119103807255^9}}]
145	}, Open ]],
146
147	Cell[CellGroupData[{
148
149	Cell["Yukawa sector", "Subsubsection",
150	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
151	3.411910393742139^9, 3.411910394852953^9}}],
152
153	Cell["\<\
154	The part of the lagrangian representing the Yukawa sector can be accessed via\
155	\
156	\>", "Text",
157	CellChangeTimes->{{3.4119101255458603`^9, 3.411910192225008^9}, {
158	3.411910235813308^9, 3.4119102509651337`^9}, {3.411910399061659*^9,
159	3.411910400421185*^9}}],
160
161	Cell[BoxData["LYukawa"], "Input",
162	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
163	3.4119104032372026`^9, 3.411910404165523^9}}]
164	}, Open ]]
165	}, Open ]],
166
167	Cell[CellGroupData[{
168
169	Cell["Feynman Gauge", "Subsection",
170	CellChangeTimes->{{3.411910080775518^9, 3.41191008414785^9}, {
171	3.411910431304595^9, 3.41191043361451^9}}],
172
173	Cell["\<\
174	By default, SM lagrangian is loaded in unitary gauge. However, Feynman gauge \
175	can be obtained by putting\
176	\>", "Text",
177	CellChangeTimes->{{3.411910440565042^9, 3.411910480762147^9}}],
178
179	Cell[BoxData[
180	RowBox[{
181	RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
182	CellChangeTimes->{{3.411910487433539^9, 3.4119104927114267`^9}}],
183
184	Cell["\<\
185	The full lagrangian in Feynman gauge can be accessed immediatly via\
186	\>", "Text",
187	CellChangeTimes->{{3.411910016771447^9, 3.411910062087528^9}, {
188	3.411910094087652^9, 3.411910096590087^9}, {3.411910215381351*^9,
189	3.4119102162371798`^9}, {3.411910436148773^9, 3.411910437013105*^9}}],
190
191	Cell[BoxData["LBL"], "Input",
192	CellChangeTimes->{{3.411910106011015^9, 3.411910106351081^9}, {
193	3.5352057896067543`^9, 3.5352057896886463`^9}}],
194
195	Cell[CellGroupData[{
196
197	Cell["Gauge sector", "Subsubsection",
198	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}}],
199
200	Cell["\<\
201	The part of the lagrangian representing the gauge sector can be accessed via\
202	\>", "Text",
203	CellChangeTimes->{{3.4119101255458603`^9, 3.411910192225008^9}, {
204	3.411910235813308^9, 3.4119102509651337`^9}}],
205
206	Cell[BoxData["LGauge"], "Input",
207	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}}]
208	}, Open ]],
209
210	Cell[CellGroupData[{
211
212	Cell["Scalar sector", "Subsubsection",
213	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
214	3.411910274288354^9, 3.41191027703699^9}}],
215
216	Cell["\<\
217	The part of the lagrangian representing the scalar sector can be accessed via\
218	\
219	\>", "Text",
220	CellChangeTimes->{{3.4119101255458603`^9, 3.411910192225008^9}, {
221	3.411910235813308^9, 3.4119102509651337`^9}, {3.41191028690167*^9,
222	3.411910287709094*^9}}],
223
224	Cell[BoxData["LHiggs"], "Input",
225	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
226	3.411910290186841^9, 3.411910292005392^9}}]
227	}, Open ]],
228
229	Cell[CellGroupData[{
230
231	Cell["Fermion sector", "Subsubsection",
232	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
233	3.4119103528868923`^9, 3.411910357404933^9}}],
234
235	Cell["\<\
236	The part of the lagrangian representing the fermion sector can be accessed via\
237	\>", "Text",
238	CellChangeTimes->{{3.4119101255458603`^9, 3.411910192225008^9}, {
239	3.411910235813308^9, 3.4119102509651337`^9}, {3.4119103873434134`*^9,
240	3.411910388077118*^9}}],
241
242	Cell[BoxData["LFermions"], "Input",
243	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
244	3.411910379677638^9, 3.4119103807255^9}}]
245	}, Open ]],
246
247	Cell[CellGroupData[{
248
249	Cell["Yukawa sector", "Subsubsection",
250	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
251	3.411910393742139^9, 3.411910394852953^9}}],
252
253	Cell["\<\
254	The part of the lagrangian representing the Yukawa sector can be accessed via\
255	\
256	\>", "Text",
257	CellChangeTimes->{{3.4119101255458603`^9, 3.411910192225008^9}, {
258	3.411910235813308^9, 3.4119102509651337`^9}, {3.411910399061659*^9,
259	3.411910400421185*^9}}],
260
261	Cell[BoxData["LYukawa"], "Input",
262	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
263	3.4119104032372026`^9, 3.411910404165523^9}}]
264	}, Open ]],
265
266	Cell[CellGroupData[{
267
268	Cell["Ghost sector", "Subsubsection",
269	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
270	3.411910393742139^9, 3.411910394852953^9}, {3.4119106057673063`*^9,
271	3.411910606397141*^9}}],
272
273	Cell["\<\
274	The part of the lagrangian representing the ghost sector can be accessed via\
275	\>", "Text",
276	CellChangeTimes->{{3.4119101255458603`^9, 3.411910192225008^9}, {
277	3.411910235813308^9, 3.4119102509651337`^9}, {3.411910399061659*^9,
278	3.411910400421185^9}, {3.4119106110136833`^9, 3.411910611661195*^9}}],
279
280	Cell[BoxData["LGhost"], "Input",
281	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
282	3.4119104032372026`^9, 3.411910404165523^9}, {3.411910615100849*^9,
283	3.411910615781582*^9}}]
284	}, Open ]]
285	}, Open ]]
286	}, Open ]],
287
288	Cell[CellGroupData[{
289
290	Cell["Checking the Lagrangian", "Section",
291	CellChangeTimes->{{3.4234156496121893`^9, 3.423415657027569^9}}],
292
293	Cell[BoxData[
294	RowBox[{
295	RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
296	CellChangeTimes->{{3.4234159280429783`^9, 3.423415934798614^9}}],
297
298	Cell[CellGroupData[{
299
300	Cell["Checking hermiticity", "Subsection",
301	CellChangeTimes->{{3.4234156831783743`^9, 3.423415689540821^9}}],
302
303	Cell["The hermiticity of the Lagrangian can be checked via", "Text",
304	CellChangeTimes->{{3.423415694323595^9, 3.423415707867804^9}}],
305
306	Cell[BoxData[
307	RowBox[{"CheckHermiticity", "[",
308	RowBox[{"LBL", ",",
309	RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
310	CellChangeTimes->{{3.414763473002973^9, 3.4147634845507174`^9}, {
311	3.535205795048677^9, 3.535205795142927^9}}],
312
313	Cell["\<\
314	The same command can be applied to the flavor - expanded Lagrangian\
315	\>", "Text",
316	CellChangeTimes->{{3.423415721582508^9, 3.423415739787958^9}}],
317
318	Cell[BoxData[
319	RowBox[{"CheckHermiticity", "[",
320	RowBox[{"LBL", ",",
321	RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
322	CellChangeTimes->{{3.414763604111637^9, 3.4147636044973803`^9}, {
323	3.424080314738064^9, 3.4240803160202007`^9}, {3.4240803610787563`*^9,
324	3.424080369363863^9}, 3.424080528889154^9, {3.424637906862782*^9,
325	3.42463790717518^9}, {3.535205797882455^9, 3.5352057979381227`*^9}}]
326	}, Open ]],
327
328	Cell[CellGroupData[{
329
330	Cell["Checking the mass spectrum", "Subsection",
331	CellChangeTimes->{{3.423415831209465^9, 3.423415835278742^9}}],
332
333	Cell["\<\
334	FeynRules can check whether all the values of the masses given in the model \
335	file ar ein agreement with the masses given in the Lagrangian:\
336	\>", "Text",
337	CellChangeTimes->{{3.423415751305388^9, 3.423415792594919^9}}],
338
339	Cell[BoxData[
340	RowBox[{"CheckMassSpectrum", "[", "LBL", "]"}]], "Input",
341	CellChangeTimes->{{3.414736325829801^9, 3.414736326065997^9},
342	3.4147528281460342`^9, {3.535205800580488^9, 3.5352058006644983`*^9}}]
343	}, Open ]],
344
345	Cell[CellGroupData[{
346
347	Cell["Checking the kinetic terms", "Subsection",
348	CellChangeTimes->{{3.423415843532096^9, 3.42341584850035^9}}],
349
350	Cell["\<\
351	In the same way, FeynRules can check whether all kinetic terms are correctly \
352	normalized :\
353	\>", "Text",
354	CellChangeTimes->{{3.423415798800013^9, 3.423415817964087^9}}],
355
356	Cell[BoxData[
357	RowBox[{"CheckKineticTermNormalisation", "[",
358	RowBox[{"LBL", ",",
359	RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
360	CellChangeTimes->{{3.4147636651636972`^9, 3.414763667250185^9}, {
361	3.5352058047093573`^9, 3.535205804765349^9}}],
362
363	Cell["\<\
364	The same command cen be used at the level of the flavor - expanded Lagrangian \
365	:\
366	\>", "Text",
367	CellChangeTimes->{{3.423415868906054^9, 3.4234158864202538`^9}}],
368
369	Cell[BoxData[
370	RowBox[{"CheckKineticTermNormalisation", "[",
371	RowBox[{"LBL", ",",
372	RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
373	CellChangeTimes->{{3.5352058076649523`^9, 3.535205807812533^9}}]
374	}, Open ]]
375	}, Open ]],
376
377	Cell[CellGroupData[{
378
379	Cell["Calculation of the Feynman rules", "Section",
380	CellChangeTimes->{{3.411910637332127^9, 3.41191064360071^9}}],
381
382	Cell["\<\
383	We will calculate now explicitly the Feynman rules for the SM in Feynman \
384	gauge.\
385	\>", "Text",
386	CellChangeTimes->{{3.41191064804084^9, 3.411910672936666^9}}],
387
388	Cell[BoxData[
389	RowBox[{
390	RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
391	CellChangeTimes->{{3.411910674121689^9, 3.4119106799564953`^9}}],
392
393	Cell[CellGroupData[{
394
395	Cell["Gauge sector", "Subsection",
396	CellChangeTimes->{{3.411910690443768^9, 3.411910692233274^9}}],
397
398	Cell[BoxData[
399	RowBox[{
400	RowBox[{"vertsGauge", "=",
401	RowBox[{"FeynmanRules", "[",
402	RowBox[{"LGauge", ",",
403	RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], ";"}]], "Input",
404	CellChangeTimes->{
405	3.40274690437012^9, {3.402746954727231^9, 3.4027469691642714`*^9}, {
406	3.4032592998045692`^9, 3.403259304564069^9}, 3.403267976055098*^9, {
407	3.411910705212987^9, 3.411910705553741^9}, {3.423415993272615*^9,
408	3.42341600147605*^9}}]
409	}, Open ]],
410
411	Cell[CellGroupData[{
412
413	Cell["Higgs Sector", "Subsection",
414	CellChangeTimes->{3.404470070069872*^9}],
415
416	Cell[BoxData[
417	RowBox[{
418	RowBox[{"vertsHiggs", "=",
419	RowBox[{"FeynmanRules", "[", "LHiggs", "]"}]}], ";"}]], "Input",
420	CellChangeTimes->{{3.411910728609757^9, 3.41191072908109^9}, {
421	3.423416009086747^9, 3.423416012982971^9}, 3.423416065626593*^9}]
422	}, Open ]],
423
424	Cell[CellGroupData[{
425
426	Cell["Matter sector", "Subsection"],
427
428	Cell[BoxData[
429	RowBox[{
430	RowBox[{"vertsFermions", "=",
431	RowBox[{"FeynmanRules", "[", "LFermions", "]"}]}], ";"}]], "Input",
432	CellChangeTimes->{{3.402205118991502^9, 3.4022051228508387`^9},
433	3.402747846432675^9, {3.4032613449872217`^9, 3.403261349245253*^9}, {
434	3.403266977133403^9, 3.4032669793125563`^9}, {3.411910788644576*^9,
435	3.411910789233307^9}, {3.423416034294303^9, 3.423416042739814*^9}}]
436	}, Open ]],
437
438	Cell[CellGroupData[{
439
440	Cell["Yukawa sector", "Subsection"],
441
442	Cell[BoxData[
443	RowBox[{
444	RowBox[{"vertsYukawa", "=",
445	RowBox[{"FeynmanRules", "[",
446	RowBox[{"LYukawa", ",",
447	RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
448	CellChangeTimes->{{3.403266987858165^9, 3.4032670026080303`^9}, {
449	3.411910826105542^9, 3.411910826777452^9}, {3.423416089772278*^9,
450	3.423416095643961*^9}}]
451	}, Open ]],
452
453	Cell[CellGroupData[{
454
455	Cell["LGhost sector", "Subsection",
456	CellChangeTimes->{{3.411910849714159^9, 3.411910851088325^9}}],
457
458	Cell[BoxData[
459	RowBox[{
460	RowBox[{"vertsGhosts", "=",
461	RowBox[{"FeynmanRules", "[",
462	RowBox[{"LGhost", ",",
463	RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], ";"}]], "Input",
464	CellChangeTimes->{{3.403266987858165^9, 3.4032670026080303`^9}, {
465	3.411910826105542^9, 3.411910826777452^9}, {3.411910857580064*^9,
466	3.411910870001601^9}, 3.415256462464088^9, {3.423416107236608*^9,
467	3.423416112835993*^9}}]
468	}, Open ]]
469	}, Open ]],
470
471	Cell[CellGroupData[{
472
473	Cell["Outputs and interfaces", "Section",
474	CellChangeTimes->{
475	3.411910944409371^9, {3.412185514054689^9, 3.412185517014236*^9}}],
476
477	Cell[CellGroupData[{
478
479	Cell["TeX output", "Subsection",
480	CellChangeTimes->{{3.411910947430851^9, 3.411910949151555^9}}],
481
482	Cell["\<\
483	The TeX output for the pure B-L model can be obtained via\
484	\>", "Text",
485	CellChangeTimes->{{3.411910955110715^9, 3.4119109690877657`^9},
486	3.535205890778984*^9}],
487
488	Cell[BoxData[
489	RowBox[{"WriteTeXOutput", "[",
490	RowBox[{"LBL", ",", "vertsGhosts", ",",
491	RowBox[{"Output", "\[Rule]", "\"\<B-L.tex\>\""}]}], "]"}]], "Input",
492	CellChangeTimes->{{3.411910975128832^9, 3.411910989032667^9}, {
493	3.413715190013906^9, 3.413715219763245^9}, {3.4143155989473963`*^9,
494	3.414315622297143^9}, {3.4234161283912163`^9, 3.423416165214814*^9}, {
495	3.424434998765719^9, 3.42443500440279^9}, {3.535205816001309*^9,
496	3.5352058160497837`*^9}}]
497	}, Open ]],
498
499	Cell[CellGroupData[{
500
501	Cell["FeynArts output", "Subsection",
502	CellChangeTimes->{{3.411911000132907^9, 3.411911005135379^9}}],
503
504	Cell["\<\
505	The FeynArts output for the pure B-L model can be obtained via\
506	\>", "Text",
507	CellChangeTimes->{{3.411910955110715^9, 3.4119109690877657`^9}, {
508	3.411911062212926^9, 3.4119110634765463`^9}, 3.5352058849351053`*^9}],
509
510	Cell[BoxData[{
511	RowBox[{
512	RowBox[{
513	RowBox[{"FeynmanGauge", " ", "=", " ", "False"}], ";"}],
514	"\[IndentingNewLine]"}], "\[IndentingNewLine]",
515	RowBox[{"WriteFeynArtsOutput", "[",
516	RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",",
517	RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], "Input",
518	CellChangeTimes->{{3.411911018354619^9, 3.4119110196967573`^9}, {
519	3.412185470680571^9, 3.412185480912915^9}, {3.41245048911446*^9,
520	3.4124504892674522`^9}, 3.414315634453483^9, {3.423416180751266*^9,
521	3.423416182892613*^9}}],
522
523	Cell["FeynArts also supports the Feynman gauge", "Text",
524	CellChangeTimes->{{3.4121854851672792`^9, 3.412185494183435^9}}],
525
526	Cell[BoxData[{
527	RowBox[{
528	RowBox[{
529	RowBox[{"FeynmanGauge", " ", "=", " ", "True"}], ";"}],
530	"\[IndentingNewLine]"}], "\[IndentingNewLine]",
531	RowBox[{"WriteFeynArtsOutput", "[",
532	RowBox[{
533	"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost",
534	",",
535	RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}], ",",
536	RowBox[{"Output", "\[Rule]", "\"\<B-L.mod\>\""}]}], "]"}]}], "Input",
537	CellChangeTimes->{{3.411911018354619^9, 3.4119110196967573`^9}, {
538	3.412185470680571^9, 3.412185506240796^9}, {3.4234161971513453`*^9,
539	3.423416209716672^9}, {3.424637927237001^9, 3.424637928707159*^9}}]
540	}, Open ]],
541
542	Cell[CellGroupData[{
543
544	Cell["Sherpa output", "Subsection",
545	CellChangeTimes->{{3.4119110460271273`^9, 3.411911049405038^9}}],
546
547	Cell["\<\
548	The Sherpa output for the pure B-L model can be obtained via\
549	\>", "Text",
550	CellChangeTimes->{{3.411910955110715^9, 3.4119109690877657`^9}, {
551	3.411911059590749^9, 3.4119110601885567`^9}, {3.5352058750540133`*^9,
552	3.5352058773981543`*^9}}],
553
554	Cell[BoxData[{
555	RowBox[{
556	RowBox[{
557	RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
558	"\[IndentingNewLine]"}], "\[IndentingNewLine]",
559	RowBox[{"WriteSHOutput", "[",
560	RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa"}],
561	"]"}]}], "Input",
562	CellChangeTimes->{{3.4119110943383636`^9, 3.41191110054212^9}, {
563	3.412185455856553^9, 3.412185456628922^9}, {3.4143156544792233`*^9,
564	3.414315668290971^9}, {3.423416222700699^9, 3.423416235756197*^9}}]
565	}, Open ]],
566
567	Cell[CellGroupData[{
568
569	Cell["MadGraph output", "Subsection",
570	CellChangeTimes->{{3.4119110460271273`^9, 3.411911049405038^9}, {
571	3.411911131666554^9, 3.411911135984398^9}}],
572
573	Cell["\<\
574	The MadGraph output for the pure B-L model can be obtained via\
575	\>", "Text",
576	CellChangeTimes->{{3.411910955110715^9, 3.4119109690877657`^9}, {
577	3.411911059590749^9, 3.4119110601885567`^9}, {3.41191113897644*^9,
578	3.411911142024486^9}, {3.5352058731583033`^9, 3.5352058786065807`*^9}}],
579
580	Cell[BoxData[{
581	RowBox[{
582	RowBox[{
583	RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
584	"\[IndentingNewLine]"}], "\[IndentingNewLine]",
585	RowBox[{
586	RowBox[{"WriteMGOutput", "[",
587	RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa"}], "]"}],
588	";"}]}], "Input",
589	CellChangeTimes->{{3.4119110943383636`^9, 3.41191110054212^9}, {
590	3.412185409690489^9, 3.4121854352800217`^9}}]
591	}, Open ]],
592
593	Cell[CellGroupData[{
594
595	Cell["CalcHep output", "Subsection",
596	CellChangeTimes->{{3.4119110460271273`^9, 3.411911049405038^9}, {
597	3.411911150323291^9, 3.4119111515122623`^9}}],
598
599	Cell["\<\
600	The CalcHep output for the pure B-L model can be obtained via\
601	\>", "Text",
602	CellChangeTimes->{{3.411910955110715^9, 3.4119109690877657`^9}, {
603	3.411911059590749^9, 3.4119110601885567`^9}, {3.4119111540967712`*^9,
604	3.411911155096376^9}, {3.535205860814587^9, 3.535205867141062*^9}}],
605
606	Cell[BoxData[{
607	RowBox[{
608	RowBox[{
609	RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
610	"\[IndentingNewLine]"}], "\[IndentingNewLine]",
611	RowBox[{
612	RowBox[{"WriteCHOutput", "[",
613	RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",",
614	RowBox[{"MaxExpressionLength", "\[Rule]", "120"}]}], "]"}],
615	";"}]}], "Input",
616	CellChangeTimes->{{3.4119110943383636`^9, 3.41191110054212^9}, {
617	3.412185398898693^9, 3.412185419919883^9}, {3.414315699020526*^9,
618	3.41431570701153^9}, 3.414315777726746^9, {3.414316480328691*^9,
619	3.414316491307609^9}, {3.4143165302100153`^9, 3.414316531719597*^9},
620	3.423416262588552^9, {3.4244350982608624`^9, 3.424435102519063*^9}}],
621
622	Cell["CalcHep also supports the Feynman gauge", "Text",
623	CellChangeTimes->{{3.4121853722243843`^9, 3.412185380407339^9}}],
624
625	Cell[BoxData[{
626	RowBox[{
627	RowBox[{
628	RowBox[{"FeynmanGauge", "=", "True"}], ";"}],
629	"\[IndentingNewLine]"}], "\[IndentingNewLine]",
630	RowBox[{
631	RowBox[{"WriteCHOutput", "[",
632	RowBox[{
633	"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost",
634	",",
635	RowBox[{"MaxExpressionLength", "\[Rule]", "120"}]}], "]"}],
636	";"}]}], "Input",
637	CellChangeTimes->{{3.4119110943383636`^9, 3.41191110054212^9}, {
638	3.412185409690489^9, 3.4121854275198507`^9}, {3.412450479942018*^9,
639	3.4124504817138367`^9}, {3.424435099210684^9, 3.4244351046994867`*^9}}]
640	}, Open ]],
641
642	Cell[CellGroupData[{
643
644	Cell["Whizard output", "Subsection",
645	CellChangeTimes->{{3.528797132808325^9, 3.528797132820179^9}, {
646	3.52879722803909^9, 3.5287972323663054`^9}}],
647
648	Cell["Whizard also supports the Feynman gauge", "Text",
649	CellChangeTimes->{{3.528797137943204^9, 3.528797137944153^9}, {
650	3.528797240132764^9, 3.528797243603442^9}}],
651
652	Cell[BoxData[{
653	RowBox[{
654	RowBox[{
655	RowBox[{"FeynmanGauge", "=", "True"}], ";"}],
656	"\n"}], "\[IndentingNewLine]",
657	RowBox[{
658	RowBox[{"WriteWOOutput", "[",
659	RowBox[{
660	"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost"}],
661	"]"}], ";"}]}], "Input",
662	CellChangeTimes->{{3.528797146761663^9, 3.528797146762849^9}, {
663	3.528797210028261^9, 3.528797211739274^9}}]
664	}, Open ]],
665
666	Cell[CellGroupData[{
667
668	Cell["UFO output", "Subsection",
669	CellChangeTimes->{{3.528797217186555^9, 3.528797236293277^9}}],
670
671	Cell["\<\
672	The UFO output (for MadGraph5) for the pure B-L model can be obtained via\
673	\>", "Text",
674	CellChangeTimes->{{3.411910955110715^9, 3.4119109690877657`^9}, {
675	3.411911059590749^9, 3.4119110601885567`^9}, {3.4119111540967712`*^9,
676	3.411911155096376^9}, {3.535205860814587^9, 3.535205867141062*^9}, {
677	3.535205914201091^9, 3.5352059214019833`^9}}],
678
679	Cell[BoxData[{
680	RowBox[{
681	RowBox[{
682	RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
683	"\[IndentingNewLine]"}], "\[IndentingNewLine]",
684	RowBox[{
685	RowBox[{"WriteUFO", "[",
686	RowBox[{
687	"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost"}],
688	"]"}], ";"}]}], "Input",
689	CellChangeTimes->{{3.528797221130815^9, 3.528797221131584^9}, {
690	3.535205850686822^9, 3.535205854235278^9}}]
691	}, Open ]]
692	}, Open ]]
693	}, Open ]]
694	},
695	WindowSize->{1144, 806},
696	WindowMargins->{{-5, Automatic}, {Automatic, 0}},
697	ShowSelection->True,
698	Magnification->1.5,
699	FrontEndVersion->"8.0 for Linux x86 (64-bit) (February 23, 2011)",
700	StyleDefinitions->"Default.nb"
701	]
702	(* End of Notebook Content *)
703
704	(* Internal cache information *)
705	(*CellTagsOutline
706	CellTagsIndex->{}
707	*)
708	(*CellTagsIndex
709	CellTagsIndex->{}
710	*)
711	(*NotebookFileOutline
712	Notebook[{
713	Cell[545, 20, 607, 9, 43, "Input"],
714	Cell[1155, 31, 144, 4, 43, "Input"],
715	Cell[1302, 37, 54, 1, 43, "Input"],
716	Cell[1359, 40, 259, 6, 43, "Input"],
717	Cell[CellGroupData[{
718	Cell[1643, 50, 122, 1, 130, "Title"],
719	Cell[1768, 53, 125, 1, 42, "Text"],
720	Cell[1896, 56, 1031, 14, 43, "Input"],
721	Cell[CellGroupData[{
722	Cell[2952, 74, 152, 2, 110, "Section"],
723	Cell[CellGroupData[{
724	Cell[3129, 80, 100, 1, 57, "Subsection"],
725	Cell[3232, 83, 257, 5, 42, "Text"],
726	Cell[3492, 90, 144, 2, 43, "Input"],
727	Cell[CellGroupData[{
728	Cell[3661, 96, 105, 1, 40, "Subsubsection"],
729	Cell[3769, 99, 219, 4, 42, "Text"],
730	Cell[3991, 105, 98, 1, 43, "Input"]
731	}, Open ]],
732	Cell[CellGroupData[{
733	Cell[4126, 111, 154, 2, 40, "Subsubsection"],
734	Cell[4283, 115, 270, 6, 42, "Text"],
735	Cell[4556, 123, 147, 2, 64, "Input"]
736	}, Open ]],
737	Cell[CellGroupData[{
738	Cell[4740, 130, 158, 2, 60, "Subsubsection"],
739	Cell[4901, 134, 272, 5, 63, "Text"],
740	Cell[5176, 141, 148, 2, 64, "Input"]
741	}, Open ]],
742	Cell[CellGroupData[{
743	Cell[5361, 148, 155, 2, 60, "Subsubsection"],
744	Cell[5519, 152, 271, 6, 63, "Text"],
745	Cell[5793, 160, 150, 2, 64, "Input"]
746	}, Open ]]
747	}, Open ]],
748	Cell[CellGroupData[{
749	Cell[5992, 168, 148, 2, 85, "Subsection"],
750	Cell[6143, 172, 195, 4, 63, "Text"],
751	Cell[6341, 178, 149, 3, 64, "Input"],
752	Cell[6493, 183, 303, 5, 63, "Text"],
753	Cell[6799, 190, 148, 2, 64, "Input"],
754	Cell[CellGroupData[{
755	Cell[6972, 196, 105, 1, 60, "Subsubsection"],
756	Cell[7080, 199, 219, 4, 63, "Text"],
757	Cell[7302, 205, 98, 1, 64, "Input"]
758	}, Open ]],
759	Cell[CellGroupData[{
760	Cell[7437, 211, 154, 2, 60, "Subsubsection"],
761	Cell[7594, 215, 270, 6, 63, "Text"],
762	Cell[7867, 223, 147, 2, 64, "Input"]
763	}, Open ]],
764	Cell[CellGroupData[{
765	Cell[8051, 230, 158, 2, 60, "Subsubsection"],
766	Cell[8212, 234, 272, 5, 63, "Text"],
767	Cell[8487, 241, 148, 2, 96, "Input"]
768	}, Open ]],
769	Cell[CellGroupData[{
770	Cell[8672, 248, 155, 2, 90, "Subsubsection"],
771	Cell[8830, 252, 271, 6, 94, "Text"],
772	Cell[9104, 260, 150, 2, 96, "Input"]
773	}, Open ]],
774	Cell[CellGroupData[{
775	Cell[9291, 267, 205, 3, 90, "Subsubsection"],
776	Cell[9499, 272, 316, 5, 94, "Text"],
777	Cell[9818, 279, 198, 3, 96, "Input"]
778	}, Open ]]
779	}, Open ]]
780	}, Open ]],
781	Cell[CellGroupData[{
782	Cell[10077, 289, 110, 1, 247, "Section"],
783	Cell[10190, 292, 149, 3, 96, "Input"],
784	Cell[CellGroupData[{
785	Cell[10364, 299, 110, 1, 127, "Subsection"],
786	Cell[10477, 302, 134, 1, 94, "Text"],
787	Cell[10614, 305, 255, 5, 96, "Input"],
788	Cell[10872, 312, 157, 3, 63, "Text"],
789	Cell[11032, 317, 429, 7, 64, "Input"]
790	}, Open ]],
791	Cell[CellGroupData[{
792	Cell[11498, 329, 114, 1, 85, "Subsection"],
793	Cell[11615, 332, 230, 4, 102, "Text"],
794	Cell[11848, 338, 214, 3, 64, "Input"]
795	}, Open ]],
796	Cell[CellGroupData[{
797	Cell[12099, 346, 113, 1, 85, "Subsection"],
798	Cell[12215, 349, 181, 4, 63, "Text"],
799	Cell[12399, 355, 270, 5, 64, "Input"],
800	Cell[12672, 362, 173, 4, 63, "Text"],
801	Cell[12848, 368, 219, 4, 64, "Input"]
802	}, Open ]]
803	}, Open ]],
804	Cell[CellGroupData[{
805	Cell[13116, 378, 116, 1, 165, "Section"],
806	Cell[13235, 381, 170, 4, 63, "Text"],
807	Cell[13408, 387, 149, 3, 64, "Input"],
808	Cell[CellGroupData[{
809	Cell[13582, 394, 100, 1, 85, "Subsection"],
810	Cell[13685, 397, 457, 10, 64, "Input"]
811	}, Open ]],
812	Cell[CellGroupData[{
813	Cell[14179, 412, 76, 1, 85, "Subsection"],
814	Cell[14258, 415, 258, 5, 64, "Input"]
815	}, Open ]],
816	Cell[CellGroupData[{
817	Cell[14553, 425, 35, 0, 85, "Subsection"],
818	Cell[14591, 427, 417, 7, 64, "Input"]
819	}, Open ]],
820	Cell[CellGroupData[{
821	Cell[15045, 439, 35, 0, 85, "Subsection"],
822	Cell[15083, 441, 360, 8, 64, "Input"]
823	}, Open ]],
824	Cell[CellGroupData[{
825	Cell[15480, 454, 101, 1, 85, "Subsection"],
826	Cell[15584, 457, 433, 9, 64, "Input"]
827	}, Open ]]
828	}, Open ]],
829	Cell[CellGroupData[{
830	Cell[16066, 472, 132, 2, 165, "Section"],
831	Cell[CellGroupData[{
832	Cell[16223, 478, 98, 1, 85, "Subsection"],
833	Cell[16324, 481, 175, 4, 63, "Text"],
834	Cell[16502, 487, 474, 8, 64, "Input"]
835	}, Open ]],
836	Cell[CellGroupData[{
837	Cell[17013, 500, 103, 1, 85, "Subsection"],
838	Cell[17119, 503, 230, 4, 63, "Text"],
839	Cell[17352, 509, 569, 11, 147, "Input"],
840	Cell[17924, 522, 124, 1, 63, "Text"],
841	Cell[18051, 525, 622, 13, 187, "Input"]
842	}, Open ]],
843	Cell[CellGroupData[{
844	Cell[18710, 543, 103, 1, 85, "Subsection"],
845	Cell[18816, 546, 256, 5, 63, "Text"],
846	Cell[19075, 553, 474, 10, 147, "Input"]
847	}, Open ]],
848	Cell[CellGroupData[{
849	Cell[19586, 568, 154, 2, 85, "Subsection"],
850	Cell[19743, 572, 303, 5, 63, "Text"],
851	Cell[20049, 579, 398, 10, 147, "Input"]
852	}, Open ]],
853	Cell[CellGroupData[{
854	Cell[20484, 594, 155, 2, 85, "Subsection"],
855	Cell[20642, 598, 301, 5, 63, "Text"],
856	Cell[20946, 605, 701, 14, 147, "Input"],
857	Cell[21650, 621, 123, 1, 63, "Text"],
858	Cell[21776, 624, 581, 14, 147, "Input"]
859	}, Open ]],
860	Cell[CellGroupData[{
861	Cell[22394, 643, 152, 2, 85, "Subsection"],
862	Cell[22549, 647, 170, 2, 63, "Text"],
863	Cell[22722, 651, 397, 11, 147, "Input"]
864	}, Open ]],
865	Cell[CellGroupData[{
866	Cell[23156, 667, 98, 1, 85, "Subsection"],
867	Cell[23257, 670, 364, 6, 63, "Text"],
868	Cell[23624, 678, 410, 11, 147, "Input"]
869	}, Open ]]
870	}, Open ]]
871	}, Open ]]
872	}
873	]
874	*)
875
876	(* End of internal cache information *)

Download in other formats:

Original Format