B-L-SM: B-L.nb

File B-L.nb, 28.7 KB (added by L.Basso, 6 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:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[     29228,        867]
14NotebookOptionsPosition[     24074,        694]
15NotebookOutlinePosition[     24452,        711]
16CellTagsIndexPosition[     24409,        708]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[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
32Cell[BoxData[
33 RowBox[{"$FeynRulesPath", "=",
34  RowBox[{
35  "SetDirectory", "[", "\"\<~/mathematica/FeynRules_1.6.0\>\"",
36   "]"}]}]], "Input"],
37
38Cell[BoxData[
39 RowBox[{"<<", "FeynRules`"}]], "Input"],
40
41Cell[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
49Cell[CellGroupData[{
50
51Cell["The B-L extension of the Standard Model", "Title",
52 CellChangeTimes->{{3.424069004105296*^9, 3.424069007850328*^9}}],
53
54Cell["We first load in the B-L Model model-file", "Text",
55 CellChangeTimes->{{3.424069016807353*^9, 3.4240690172628117`*^9}}],
56
57Cell[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
73Cell[CellGroupData[{
74
75Cell["The B-L lagrangian", "Section",
76 CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
77  3.424069513901162*^9, 3.424069514344799*^9}}],
78
79Cell[CellGroupData[{
80
81Cell["Unitary Gauge", "Subsection",
82 CellChangeTimes->{{3.411910080775518*^9, 3.41191008414785*^9}}],
83
84Cell["\<\
85The 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
91Cell[BoxData["LBL"], "Input",
92 CellChangeTimes->{{3.411910106011015*^9, 3.411910106351081*^9}, {
93  3.535205784209942*^9, 3.535205784276331*^9}}],
94
95Cell[CellGroupData[{
96
97Cell["Gauge sector", "Subsubsection",
98 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}}],
99
100Cell["\<\
101The 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
106Cell[BoxData["LGauge"], "Input",
107 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}}]
108}, Open  ]],
109
110Cell[CellGroupData[{
111
112Cell["Scalar sector", "Subsubsection",
113 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
114  3.411910274288354*^9, 3.41191027703699*^9}}],
115
116Cell["\<\
117The 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
124Cell[BoxData["LHiggs"], "Input",
125 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
126  3.411910290186841*^9, 3.411910292005392*^9}}]
127}, Open  ]],
128
129Cell[CellGroupData[{
130
131Cell["Fermion sector", "Subsubsection",
132 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
133  3.4119103528868923`*^9, 3.411910357404933*^9}}],
134
135Cell["\<\
136The 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
142Cell[BoxData["LFermions"], "Input",
143 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
144  3.411910379677638*^9, 3.4119103807255*^9}}]
145}, Open  ]],
146
147Cell[CellGroupData[{
148
149Cell["Yukawa sector", "Subsubsection",
150 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
151  3.411910393742139*^9, 3.411910394852953*^9}}],
152
153Cell["\<\
154The 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
161Cell[BoxData["LYukawa"], "Input",
162 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
163  3.4119104032372026`*^9, 3.411910404165523*^9}}]
164}, Open  ]]
165}, Open  ]],
166
167Cell[CellGroupData[{
168
169Cell["Feynman Gauge", "Subsection",
170 CellChangeTimes->{{3.411910080775518*^9, 3.41191008414785*^9}, {
171  3.411910431304595*^9, 3.41191043361451*^9}}],
172
173Cell["\<\
174By default, SM lagrangian is loaded in unitary gauge. However, Feynman gauge \
175can be obtained by putting\
176\>", "Text",
177 CellChangeTimes->{{3.411910440565042*^9, 3.411910480762147*^9}}],
178
179Cell[BoxData[
180 RowBox[{
181  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
182 CellChangeTimes->{{3.411910487433539*^9, 3.4119104927114267`*^9}}],
183
184Cell["\<\
185The 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
191Cell[BoxData["LBL"], "Input",
192 CellChangeTimes->{{3.411910106011015*^9, 3.411910106351081*^9}, {
193  3.5352057896067543`*^9, 3.5352057896886463`*^9}}],
194
195Cell[CellGroupData[{
196
197Cell["Gauge sector", "Subsubsection",
198 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}}],
199
200Cell["\<\
201The 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
206Cell[BoxData["LGauge"], "Input",
207 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}}]
208}, Open  ]],
209
210Cell[CellGroupData[{
211
212Cell["Scalar sector", "Subsubsection",
213 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
214  3.411910274288354*^9, 3.41191027703699*^9}}],
215
216Cell["\<\
217The 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
224Cell[BoxData["LHiggs"], "Input",
225 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
226  3.411910290186841*^9, 3.411910292005392*^9}}]
227}, Open  ]],
228
229Cell[CellGroupData[{
230
231Cell["Fermion sector", "Subsubsection",
232 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
233  3.4119103528868923`*^9, 3.411910357404933*^9}}],
234
235Cell["\<\
236The 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
242Cell[BoxData["LFermions"], "Input",
243 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
244  3.411910379677638*^9, 3.4119103807255*^9}}]
245}, Open  ]],
246
247Cell[CellGroupData[{
248
249Cell["Yukawa sector", "Subsubsection",
250 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
251  3.411910393742139*^9, 3.411910394852953*^9}}],
252
253Cell["\<\
254The 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
261Cell[BoxData["LYukawa"], "Input",
262 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
263  3.4119104032372026`*^9, 3.411910404165523*^9}}]
264}, Open  ]],
265
266Cell[CellGroupData[{
267
268Cell["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
273Cell["\<\
274The 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
280Cell[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
288Cell[CellGroupData[{
289
290Cell["Checking the Lagrangian", "Section",
291 CellChangeTimes->{{3.4234156496121893`*^9, 3.423415657027569*^9}}],
292
293Cell[BoxData[
294 RowBox[{
295  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
296 CellChangeTimes->{{3.4234159280429783`*^9, 3.423415934798614*^9}}],
297
298Cell[CellGroupData[{
299
300Cell["Checking hermiticity", "Subsection",
301 CellChangeTimes->{{3.4234156831783743`*^9, 3.423415689540821*^9}}],
302
303Cell["The hermiticity of the Lagrangian can be checked via", "Text",
304 CellChangeTimes->{{3.423415694323595*^9, 3.423415707867804*^9}}],
305
306Cell[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
313Cell["\<\
314The same command can be applied to the flavor - expanded Lagrangian\
315\>", "Text",
316 CellChangeTimes->{{3.423415721582508*^9, 3.423415739787958*^9}}],
317
318Cell[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
328Cell[CellGroupData[{
329
330Cell["Checking the mass spectrum", "Subsection",
331 CellChangeTimes->{{3.423415831209465*^9, 3.423415835278742*^9}}],
332
333Cell["\<\
334FeynRules can check whether all the values of the masses given in the model \
335file ar ein agreement with the masses given in the Lagrangian:\
336\>", "Text",
337 CellChangeTimes->{{3.423415751305388*^9, 3.423415792594919*^9}}],
338
339Cell[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
345Cell[CellGroupData[{
346
347Cell["Checking the kinetic terms", "Subsection",
348 CellChangeTimes->{{3.423415843532096*^9, 3.42341584850035*^9}}],
349
350Cell["\<\
351In the same way, FeynRules can check whether all kinetic terms are correctly \
352normalized :\
353\>", "Text",
354 CellChangeTimes->{{3.423415798800013*^9, 3.423415817964087*^9}}],
355
356Cell[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
363Cell["\<\
364The 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
369Cell[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
377Cell[CellGroupData[{
378
379Cell["Calculation of the Feynman rules", "Section",
380 CellChangeTimes->{{3.411910637332127*^9, 3.41191064360071*^9}}],
381
382Cell["\<\
383We will calculate now explicitly the Feynman rules for the SM in Feynman \
384gauge.\
385\>", "Text",
386 CellChangeTimes->{{3.41191064804084*^9, 3.411910672936666*^9}}],
387
388Cell[BoxData[
389 RowBox[{
390  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
391 CellChangeTimes->{{3.411910674121689*^9, 3.4119106799564953`*^9}}],
392
393Cell[CellGroupData[{
394
395Cell["Gauge sector", "Subsection",
396 CellChangeTimes->{{3.411910690443768*^9, 3.411910692233274*^9}}],
397
398Cell[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
411Cell[CellGroupData[{
412
413Cell["Higgs Sector", "Subsection",
414 CellChangeTimes->{3.404470070069872*^9}],
415
416Cell[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
424Cell[CellGroupData[{
425
426Cell["Matter sector", "Subsection"],
427
428Cell[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
438Cell[CellGroupData[{
439
440Cell["Yukawa sector", "Subsection"],
441
442Cell[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
453Cell[CellGroupData[{
454
455Cell["LGhost sector", "Subsection",
456 CellChangeTimes->{{3.411910849714159*^9, 3.411910851088325*^9}}],
457
458Cell[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
471Cell[CellGroupData[{
472
473Cell["Outputs and interfaces", "Section",
474 CellChangeTimes->{
475  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}}],
476
477Cell[CellGroupData[{
478
479Cell["TeX output", "Subsection",
480 CellChangeTimes->{{3.411910947430851*^9, 3.411910949151555*^9}}],
481
482Cell["\<\
483The 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
488Cell[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
499Cell[CellGroupData[{
500
501Cell["FeynArts output", "Subsection",
502 CellChangeTimes->{{3.411911000132907*^9, 3.411911005135379*^9}}],
503
504Cell["\<\
505The 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
510Cell[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
523Cell["FeynArts also supports the Feynman gauge", "Text",
524 CellChangeTimes->{{3.4121854851672792`*^9, 3.412185494183435*^9}}],
525
526Cell[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
542Cell[CellGroupData[{
543
544Cell["Sherpa output", "Subsection",
545 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}}],
546
547Cell["\<\
548The 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
554Cell[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
567Cell[CellGroupData[{
568
569Cell["MadGraph output", "Subsection",
570 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
571  3.411911131666554*^9, 3.411911135984398*^9}}],
572
573Cell["\<\
574The 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
580Cell[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
593Cell[CellGroupData[{
594
595Cell["CalcHep output", "Subsection",
596 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
597  3.411911150323291*^9, 3.4119111515122623`*^9}}],
598
599Cell["\<\
600The 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
606Cell[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
622Cell["CalcHep also supports the Feynman gauge", "Text",
623 CellChangeTimes->{{3.4121853722243843`*^9, 3.412185380407339*^9}}],
624
625Cell[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
642Cell[CellGroupData[{
643
644Cell["Whizard output", "Subsection",
645 CellChangeTimes->{{3.528797132808325*^9, 3.528797132820179*^9}, {
646  3.52879722803909*^9, 3.5287972323663054`*^9}}],
647
648Cell["Whizard also supports the Feynman gauge", "Text",
649 CellChangeTimes->{{3.528797137943204*^9, 3.528797137944153*^9}, {
650  3.528797240132764*^9, 3.528797243603442*^9}}],
651
652Cell[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
666Cell[CellGroupData[{
667
668Cell["UFO output", "Subsection",
669 CellChangeTimes->{{3.528797217186555*^9, 3.528797236293277*^9}}],
670
671Cell["\<\
672The 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
679Cell[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},
695WindowSize->{1144, 806},
696WindowMargins->{{-5, Automatic}, {Automatic, 0}},
697ShowSelection->True,
698Magnification->1.5,
699FrontEndVersion->"8.0 for Linux x86 (64-bit) (February 23, 2011)",
700StyleDefinitions->"Default.nb"
701]
702(* End of Notebook Content *)
703
704(* Internal cache information *)
705(*CellTagsOutline
706CellTagsIndex->{}
707*)
708(*CellTagsIndex
709CellTagsIndex->{}
710*)
711(*NotebookFileOutline
712Notebook[{
713Cell[545, 20, 607, 9, 43, "Input"],
714Cell[1155, 31, 144, 4, 43, "Input"],
715Cell[1302, 37, 54, 1, 43, "Input"],
716Cell[1359, 40, 259, 6, 43, "Input"],
717Cell[CellGroupData[{
718Cell[1643, 50, 122, 1, 130, "Title"],
719Cell[1768, 53, 125, 1, 42, "Text"],
720Cell[1896, 56, 1031, 14, 43, "Input"],
721Cell[CellGroupData[{
722Cell[2952, 74, 152, 2, 110, "Section"],
723Cell[CellGroupData[{
724Cell[3129, 80, 100, 1, 57, "Subsection"],
725Cell[3232, 83, 257, 5, 42, "Text"],
726Cell[3492, 90, 144, 2, 43, "Input"],
727Cell[CellGroupData[{
728Cell[3661, 96, 105, 1, 40, "Subsubsection"],
729Cell[3769, 99, 219, 4, 42, "Text"],
730Cell[3991, 105, 98, 1, 43, "Input"]
731}, Open  ]],
732Cell[CellGroupData[{
733Cell[4126, 111, 154, 2, 40, "Subsubsection"],
734Cell[4283, 115, 270, 6, 42, "Text"],
735Cell[4556, 123, 147, 2, 64, "Input"]
736}, Open  ]],
737Cell[CellGroupData[{
738Cell[4740, 130, 158, 2, 60, "Subsubsection"],
739Cell[4901, 134, 272, 5, 63, "Text"],
740Cell[5176, 141, 148, 2, 64, "Input"]
741}, Open  ]],
742Cell[CellGroupData[{
743Cell[5361, 148, 155, 2, 60, "Subsubsection"],
744Cell[5519, 152, 271, 6, 63, "Text"],
745Cell[5793, 160, 150, 2, 64, "Input"]
746}, Open  ]]
747}, Open  ]],
748Cell[CellGroupData[{
749Cell[5992, 168, 148, 2, 85, "Subsection"],
750Cell[6143, 172, 195, 4, 63, "Text"],
751Cell[6341, 178, 149, 3, 64, "Input"],
752Cell[6493, 183, 303, 5, 63, "Text"],
753Cell[6799, 190, 148, 2, 64, "Input"],
754Cell[CellGroupData[{
755Cell[6972, 196, 105, 1, 60, "Subsubsection"],
756Cell[7080, 199, 219, 4, 63, "Text"],
757Cell[7302, 205, 98, 1, 64, "Input"]
758}, Open  ]],
759Cell[CellGroupData[{
760Cell[7437, 211, 154, 2, 60, "Subsubsection"],
761Cell[7594, 215, 270, 6, 63, "Text"],
762Cell[7867, 223, 147, 2, 64, "Input"]
763}, Open  ]],
764Cell[CellGroupData[{
765Cell[8051, 230, 158, 2, 60, "Subsubsection"],
766Cell[8212, 234, 272, 5, 63, "Text"],
767Cell[8487, 241, 148, 2, 96, "Input"]
768}, Open  ]],
769Cell[CellGroupData[{
770Cell[8672, 248, 155, 2, 90, "Subsubsection"],
771Cell[8830, 252, 271, 6, 94, "Text"],
772Cell[9104, 260, 150, 2, 96, "Input"]
773}, Open  ]],
774Cell[CellGroupData[{
775Cell[9291, 267, 205, 3, 90, "Subsubsection"],
776Cell[9499, 272, 316, 5, 94, "Text"],
777Cell[9818, 279, 198, 3, 96, "Input"]
778}, Open  ]]
779}, Open  ]]
780}, Open  ]],
781Cell[CellGroupData[{
782Cell[10077, 289, 110, 1, 247, "Section"],
783Cell[10190, 292, 149, 3, 96, "Input"],
784Cell[CellGroupData[{
785Cell[10364, 299, 110, 1, 127, "Subsection"],
786Cell[10477, 302, 134, 1, 94, "Text"],
787Cell[10614, 305, 255, 5, 96, "Input"],
788Cell[10872, 312, 157, 3, 63, "Text"],
789Cell[11032, 317, 429, 7, 64, "Input"]
790}, Open  ]],
791Cell[CellGroupData[{
792Cell[11498, 329, 114, 1, 85, "Subsection"],
793Cell[11615, 332, 230, 4, 102, "Text"],
794Cell[11848, 338, 214, 3, 64, "Input"]
795}, Open  ]],
796Cell[CellGroupData[{
797Cell[12099, 346, 113, 1, 85, "Subsection"],
798Cell[12215, 349, 181, 4, 63, "Text"],
799Cell[12399, 355, 270, 5, 64, "Input"],
800Cell[12672, 362, 173, 4, 63, "Text"],
801Cell[12848, 368, 219, 4, 64, "Input"]
802}, Open  ]]
803}, Open  ]],
804Cell[CellGroupData[{
805Cell[13116, 378, 116, 1, 165, "Section"],
806Cell[13235, 381, 170, 4, 63, "Text"],
807Cell[13408, 387, 149, 3, 64, "Input"],
808Cell[CellGroupData[{
809Cell[13582, 394, 100, 1, 85, "Subsection"],
810Cell[13685, 397, 457, 10, 64, "Input"]
811}, Open  ]],
812Cell[CellGroupData[{
813Cell[14179, 412, 76, 1, 85, "Subsection"],
814Cell[14258, 415, 258, 5, 64, "Input"]
815}, Open  ]],
816Cell[CellGroupData[{
817Cell[14553, 425, 35, 0, 85, "Subsection"],
818Cell[14591, 427, 417, 7, 64, "Input"]
819}, Open  ]],
820Cell[CellGroupData[{
821Cell[15045, 439, 35, 0, 85, "Subsection"],
822Cell[15083, 441, 360, 8, 64, "Input"]
823}, Open  ]],
824Cell[CellGroupData[{
825Cell[15480, 454, 101, 1, 85, "Subsection"],
826Cell[15584, 457, 433, 9, 64, "Input"]
827}, Open  ]]
828}, Open  ]],
829Cell[CellGroupData[{
830Cell[16066, 472, 132, 2, 165, "Section"],
831Cell[CellGroupData[{
832Cell[16223, 478, 98, 1, 85, "Subsection"],
833Cell[16324, 481, 175, 4, 63, "Text"],
834Cell[16502, 487, 474, 8, 64, "Input"]
835}, Open  ]],
836Cell[CellGroupData[{
837Cell[17013, 500, 103, 1, 85, "Subsection"],
838Cell[17119, 503, 230, 4, 63, "Text"],
839Cell[17352, 509, 569, 11, 147, "Input"],
840Cell[17924, 522, 124, 1, 63, "Text"],
841Cell[18051, 525, 622, 13, 187, "Input"]
842}, Open  ]],
843Cell[CellGroupData[{
844Cell[18710, 543, 103, 1, 85, "Subsection"],
845Cell[18816, 546, 256, 5, 63, "Text"],
846Cell[19075, 553, 474, 10, 147, "Input"]
847}, Open  ]],
848Cell[CellGroupData[{
849Cell[19586, 568, 154, 2, 85, "Subsection"],
850Cell[19743, 572, 303, 5, 63, "Text"],
851Cell[20049, 579, 398, 10, 147, "Input"]
852}, Open  ]],
853Cell[CellGroupData[{
854Cell[20484, 594, 155, 2, 85, "Subsection"],
855Cell[20642, 598, 301, 5, 63, "Text"],
856Cell[20946, 605, 701, 14, 147, "Input"],
857Cell[21650, 621, 123, 1, 63, "Text"],
858Cell[21776, 624, 581, 14, 147, "Input"]
859}, Open  ]],
860Cell[CellGroupData[{
861Cell[22394, 643, 152, 2, 85, "Subsection"],
862Cell[22549, 647, 170, 2, 63, "Text"],
863Cell[22722, 651, 397, 11, 147, "Input"]
864}, Open  ]],
865Cell[CellGroupData[{
866Cell[23156, 667, 98, 1, 85, "Subsection"],
867Cell[23257, 670, 364, 6, 63, "Text"],
868Cell[23624, 678, 410, 11, 147, "Input"]
869}, Open  ]]
870}, Open  ]]
871}, Open  ]]
872}
873]
874*)
875
876(* End of internal cache information *)