B-L-SM: minimal_Zp.nb

File minimal_Zp.nb, 30.2 KB (added by L.Basso, 6 years ago)

Minimal Zp models 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[     30692,        912]
14NotebookOptionsPosition[     25349,        732]
15NotebookOutlinePosition[     25722,        749]
16CellTagsIndexPosition[     25679,        746]
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.516783400817431*^9,
29  3.5167834220533867`*^9}, {3.5173357288552427`*^9, 3.517335732723227*^9}, {
30  3.528710280793704*^9, 3.5287102823479433`*^9}, {3.535207105567418*^9,
31  3.535207106023735*^9}, {3.5352075888368263`*^9, 3.535207590724679*^9}}],
32
33Cell[CellGroupData[{
34
35Cell[BoxData[
36 RowBox[{"$FeynRulesPath", "=",
37  RowBox[{
38  "SetDirectory", "[", "\"\<~/mathematica/FeynRules_1.6.0\>\"",
39   "]"}]}]], "Input"],
40
41Cell[BoxData["\<\"/home/lb1010/mathematica/FeynRules_1.6.0\"\>"], "Output",
42 CellChangeTimes->{3.535207585867983*^9}]
43}, Open  ]],
44
45Cell[CellGroupData[{
46
47Cell[BoxData[
48 RowBox[{"<<", "FeynRules`"}]], "Input"],
49
50Cell[BoxData[
51 RowBox[{
52  StyleBox[
53   RowBox[{"Get", "::", "noopen"}], "MessageName"],
54  RowBox[{
55  ":", " "}], "\<\"Cannot open \
56\[NoBreak]\\!\\(\\\"FeynRules`\\\"\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\
57\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
58ButtonData:>\\\"paclet:ref/message/General/noopen\\\", ButtonNote -> \
59\\\"Get::noopen\\\"]\\)\"\>"}]], "Message", "MSG",
60 CellChangeTimes->{{3.53520756138244*^9, 3.53520757375135*^9}}],
61
62Cell[BoxData["$Failed"], "Output",
63 CellChangeTimes->{{3.5352075613868504`*^9, 3.535207573811308*^9}}]
64}, Open  ]],
65
66Cell[BoxData[
67 RowBox[{
68  RowBox[{"SetDirectory", "[",
69   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/minimal_Zp\>\""}], "]"}],
70  ";"}]], "Input",
71 CellChangeTimes->{{3.419073170860696*^9, 3.419073182827229*^9}, {
72  3.424068987980844*^9, 3.4240689893965273`*^9}, {3.5166247126271763`*^9,
73  3.516624713497857*^9}, {3.5352070954798527`*^9, 3.535207098236246*^9}}],
74
75Cell[CellGroupData[{
76
77Cell["The minimal Zp models", "Title",
78 CellChangeTimes->{{3.424069004105296*^9, 3.424069007850328*^9}, {
79  3.51667774685853*^9, 3.516677747368164*^9}, {3.535207524910108*^9,
80  3.5352075311664057`*^9}}],
81
82Cell["\<\
83We first load in the minimal Zp Models model-file\
84\>", "Text",
85 CellChangeTimes->{{3.424069016807353*^9, 3.4240690172628117`*^9}, {
86  3.53520753529545*^9, 3.5352075434754763`*^9}}],
87
88Cell[BoxData[
89 RowBox[{"LoadModel", "[", "\"\<minimal_Zp.fr\>\"", "]"}]], "Input",
90 CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
91   3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
92   3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
93   3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
94   3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
95   3.403347555049163*^9}, 3.4044490490588417`*^9, {3.411744339876704*^9,
96   3.411744340012457*^9}, {3.4121886924550533`*^9, 3.412188699157571*^9},
97   3.412188808811866*^9, 3.4121888580521603`*^9, {3.412450464077868*^9,
98   3.412450464378695*^9}, {3.413715097460478*^9, 3.41371509757642*^9}, {
99   3.41440825334604*^9, 3.414408254159686*^9}, {3.41862573831756*^9,
100   3.4186257392223186`*^9}, {3.4190731862389174`*^9, 3.419073187003003*^9}, {
101   3.419073336802393*^9, 3.4190733374513063`*^9}, {3.4190828041801767`*^9,
102   3.4190828048079023`*^9}, {3.4240690195427647`*^9, 3.424069028019803*^9}, {
103   3.516624716643621*^9, 3.5166247173457317`*^9}, {3.535207113629547*^9,
104   3.5352071154697723`*^9}}],
105
106Cell[CellGroupData[{
107
108Cell["The B-L lagrangian", "Section",
109 CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
110  3.424069513901162*^9, 3.424069514344799*^9}}],
111
112Cell[CellGroupData[{
113
114Cell["Unitary Gauge", "Subsection",
115 CellChangeTimes->{{3.411910080775518*^9, 3.41191008414785*^9}}],
116
117Cell["\<\
118The full lagrangian in unitary gauge can be accessed immediatly via\
119\>", "Text",
120 CellChangeTimes->{{3.411910016771447*^9, 3.411910062087528*^9}, {
121  3.411910094087652*^9, 3.411910096590087*^9}, {3.411910215381351*^9,
122  3.4119102162371798`*^9}}],
123
124Cell[BoxData["LmZp"], "Input",
125 CellChangeTimes->{{3.411910106011015*^9, 3.411910106351081*^9}, {
126  3.535207118838848*^9, 3.53520711951691*^9}}],
127
128Cell[CellGroupData[{
129
130Cell["Gauge sector", "Subsubsection",
131 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}}],
132
133Cell["\<\
134The part of the lagrangian representing the gauge sector can be accessed via\
135\>", "Text",
136 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
137  3.411910235813308*^9, 3.4119102509651337`*^9}}],
138
139Cell[BoxData["LGauge"], "Input",
140 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}}]
141}, Open  ]],
142
143Cell[CellGroupData[{
144
145Cell["Scalar sector", "Subsubsection",
146 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
147  3.411910274288354*^9, 3.41191027703699*^9}}],
148
149Cell["\<\
150The part of the lagrangian representing the scalar sector can be accessed via\
151\
152\>", "Text",
153 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
154  3.411910235813308*^9, 3.4119102509651337`*^9}, {3.41191028690167*^9,
155  3.411910287709094*^9}}],
156
157Cell[BoxData["LHiggs"], "Input",
158 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
159  3.411910290186841*^9, 3.411910292005392*^9}}]
160}, Open  ]],
161
162Cell[CellGroupData[{
163
164Cell["Fermion sector", "Subsubsection",
165 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
166  3.4119103528868923`*^9, 3.411910357404933*^9}}],
167
168Cell["\<\
169The part of the lagrangian representing the fermion sector can be accessed via\
170\>", "Text",
171 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
172  3.411910235813308*^9, 3.4119102509651337`*^9}, {3.4119103873434134`*^9,
173  3.411910388077118*^9}}],
174
175Cell[BoxData["LFermions"], "Input",
176 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
177  3.411910379677638*^9, 3.4119103807255*^9}}]
178}, Open  ]],
179
180Cell[CellGroupData[{
181
182Cell["Yukawa sector", "Subsubsection",
183 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
184  3.411910393742139*^9, 3.411910394852953*^9}}],
185
186Cell["\<\
187The part of the lagrangian representing the Yukawa sector can be accessed via\
188\
189\>", "Text",
190 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
191  3.411910235813308*^9, 3.4119102509651337`*^9}, {3.411910399061659*^9,
192  3.411910400421185*^9}}],
193
194Cell[BoxData["LYukawa"], "Input",
195 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
196  3.4119104032372026`*^9, 3.411910404165523*^9}}]
197}, Open  ]]
198}, Open  ]],
199
200Cell[CellGroupData[{
201
202Cell["Feynman Gauge", "Subsection",
203 CellChangeTimes->{{3.411910080775518*^9, 3.41191008414785*^9}, {
204  3.411910431304595*^9, 3.41191043361451*^9}}],
205
206Cell["\<\
207By default, SM lagrangian is loaded in unitary gauge. However, Feynman gauge \
208can be obtained by putting\
209\>", "Text",
210 CellChangeTimes->{{3.411910440565042*^9, 3.411910480762147*^9}}],
211
212Cell[BoxData[
213 RowBox[{
214  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
215 CellChangeTimes->{{3.411910487433539*^9, 3.4119104927114267`*^9}}],
216
217Cell["\<\
218The full lagrangian in Feynman gauge can be accessed immediatly via\
219\>", "Text",
220 CellChangeTimes->{{3.411910016771447*^9, 3.411910062087528*^9}, {
221  3.411910094087652*^9, 3.411910096590087*^9}, {3.411910215381351*^9,
222  3.4119102162371798`*^9}, {3.411910436148773*^9, 3.411910437013105*^9}}],
223
224Cell[BoxData["LmZp"], "Input",
225 CellChangeTimes->{{3.411910106011015*^9, 3.411910106351081*^9}, {
226  3.535207124147511*^9, 3.535207124704051*^9}}],
227
228Cell[CellGroupData[{
229
230Cell["Gauge sector", "Subsubsection",
231 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}}],
232
233Cell["\<\
234The part of the lagrangian representing the gauge sector can be accessed via\
235\>", "Text",
236 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
237  3.411910235813308*^9, 3.4119102509651337`*^9}}],
238
239Cell[BoxData["LGauge"], "Input",
240 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}}]
241}, Open  ]],
242
243Cell[CellGroupData[{
244
245Cell["Scalar sector", "Subsubsection",
246 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
247  3.411910274288354*^9, 3.41191027703699*^9}}],
248
249Cell["\<\
250The part of the lagrangian representing the scalar sector can be accessed via\
251\
252\>", "Text",
253 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
254  3.411910235813308*^9, 3.4119102509651337`*^9}, {3.41191028690167*^9,
255  3.411910287709094*^9}}],
256
257Cell[BoxData["LHiggs"], "Input",
258 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
259  3.411910290186841*^9, 3.411910292005392*^9}}]
260}, Open  ]],
261
262Cell[CellGroupData[{
263
264Cell["Fermion sector", "Subsubsection",
265 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
266  3.4119103528868923`*^9, 3.411910357404933*^9}}],
267
268Cell["\<\
269The part of the lagrangian representing the fermion sector can be accessed via\
270\>", "Text",
271 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
272  3.411910235813308*^9, 3.4119102509651337`*^9}, {3.4119103873434134`*^9,
273  3.411910388077118*^9}}],
274
275Cell[BoxData["LFermions"], "Input",
276 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
277  3.411910379677638*^9, 3.4119103807255*^9}}]
278}, Open  ]],
279
280Cell[CellGroupData[{
281
282Cell["Yukawa sector", "Subsubsection",
283 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
284  3.411910393742139*^9, 3.411910394852953*^9}}],
285
286Cell["\<\
287The part of the lagrangian representing the Yukawa sector can be accessed via\
288\
289\>", "Text",
290 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
291  3.411910235813308*^9, 3.4119102509651337`*^9}, {3.411910399061659*^9,
292  3.411910400421185*^9}}],
293
294Cell[BoxData["LYukawa"], "Input",
295 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
296  3.4119104032372026`*^9, 3.411910404165523*^9}}]
297}, Open  ]],
298
299Cell[CellGroupData[{
300
301Cell["Ghost sector", "Subsubsection",
302 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
303  3.411910393742139*^9, 3.411910394852953*^9}, {3.4119106057673063`*^9,
304  3.411910606397141*^9}}],
305
306Cell["\<\
307The part of the lagrangian representing the ghost sector can be accessed via\
308\>", "Text",
309 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
310  3.411910235813308*^9, 3.4119102509651337`*^9}, {3.411910399061659*^9,
311  3.411910400421185*^9}, {3.4119106110136833`*^9, 3.411910611661195*^9}}],
312
313Cell[BoxData["LGhost"], "Input",
314 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
315  3.4119104032372026`*^9, 3.411910404165523*^9}, {3.411910615100849*^9,
316  3.411910615781582*^9}}]
317}, Open  ]]
318}, Open  ]]
319}, Open  ]],
320
321Cell[CellGroupData[{
322
323Cell["Checking the Lagrangian", "Section",
324 CellChangeTimes->{{3.4234156496121893`*^9, 3.423415657027569*^9}}],
325
326Cell[BoxData[
327 RowBox[{
328  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
329 CellChangeTimes->{{3.4234159280429783`*^9, 3.423415934798614*^9}}],
330
331Cell[CellGroupData[{
332
333Cell["Checking hermiticity", "Subsection",
334 CellChangeTimes->{{3.4234156831783743`*^9, 3.423415689540821*^9}}],
335
336Cell["The hermiticity of the Lagrangian can be checked via", "Text",
337 CellChangeTimes->{{3.423415694323595*^9, 3.423415707867804*^9}}],
338
339Cell[BoxData[
340 RowBox[{"CheckHermiticity", "[",
341  RowBox[{"LmZp", ",",
342   RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
343 CellChangeTimes->{{3.414763473002973*^9, 3.4147634845507174`*^9}, {
344  3.535207129471339*^9, 3.5352071300248127`*^9}}],
345
346Cell["\<\
347The same command can be applied to the flavor - expanded Lagrangian\
348\>", "Text",
349 CellChangeTimes->{{3.423415721582508*^9, 3.423415739787958*^9}}],
350
351Cell[BoxData[
352 RowBox[{"CheckHermiticity", "[",
353  RowBox[{"LmZp", ",",
354   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
355 CellChangeTimes->{{3.414763604111637*^9, 3.4147636044973803`*^9}, {
356   3.424080314738064*^9, 3.4240803160202007`*^9}, {3.4240803610787563`*^9,
357   3.424080369363863*^9}, 3.424080528889154*^9, {3.424637906862782*^9,
358   3.42463790717518*^9}, 3.535207134155414*^9}]
359}, Open  ]],
360
361Cell[CellGroupData[{
362
363Cell["Checking the mass spectrum", "Subsection",
364 CellChangeTimes->{{3.423415831209465*^9, 3.423415835278742*^9}}],
365
366Cell["\<\
367FeynRules can check whether all the values of the masses given in the model \
368file ar ein agreement with the masses given in the Lagrangian:\
369\>", "Text",
370 CellChangeTimes->{{3.423415751305388*^9, 3.423415792594919*^9}}],
371
372Cell[BoxData[
373 RowBox[{"CheckMassSpectrum", "[", "LmZp", "]"}]], "Input",
374 CellChangeTimes->{{3.414736325829801*^9, 3.414736326065997*^9},
375   3.4147528281460342`*^9, 3.535207135233859*^9}]
376}, Open  ]],
377
378Cell[CellGroupData[{
379
380Cell["Checking the kinetic terms", "Subsection",
381 CellChangeTimes->{{3.423415843532096*^9, 3.42341584850035*^9}}],
382
383Cell["\<\
384In the same way, FeynRules can check whether all kinetic terms are correctly \
385normalized :\
386\>", "Text",
387 CellChangeTimes->{{3.423415798800013*^9, 3.423415817964087*^9}}],
388
389Cell[BoxData[
390 RowBox[{"CheckKineticTermNormalisation", "[",
391  RowBox[{"LmZp", ",",
392   RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
393 CellChangeTimes->{{3.4147636651636972`*^9, 3.414763667250185*^9},
394   3.535207137919743*^9}],
395
396Cell["\<\
397The same command cen be used at the level of the flavor - expanded Lagrangian \
398:\
399\>", "Text",
400 CellChangeTimes->{{3.423415868906054*^9, 3.4234158864202538`*^9}}],
401
402Cell[BoxData[
403 RowBox[{"CheckKineticTermNormalisation", "[",
404  RowBox[{"LmZp", ",",
405   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
406 CellChangeTimes->{3.5352071390908537`*^9}]
407}, Open  ]]
408}, Open  ]],
409
410Cell[CellGroupData[{
411
412Cell["Calculation of the Feynman rules", "Section",
413 CellChangeTimes->{{3.411910637332127*^9, 3.41191064360071*^9}}],
414
415Cell["\<\
416We will calculate now explicitly the Feynman rules for the minimal Zp models \
417in Feynman gauge.\
418\>", "Text",
419 CellChangeTimes->{{3.41191064804084*^9, 3.411910672936666*^9}, {
420  3.535207143229074*^9, 3.535207146475482*^9}}],
421
422Cell[BoxData[
423 RowBox[{
424  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
425 CellChangeTimes->{{3.411910674121689*^9, 3.4119106799564953`*^9}}],
426
427Cell[CellGroupData[{
428
429Cell["Gauge sector", "Subsection",
430 CellChangeTimes->{{3.411910690443768*^9, 3.411910692233274*^9}}],
431
432Cell[BoxData[
433 RowBox[{
434  RowBox[{"vertsGauge", "=",
435   RowBox[{"FeynmanRules", "[",
436    RowBox[{"LGauge", ",",
437     RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], ";"}]], "Input",
438 CellChangeTimes->{
439  3.40274690437012*^9, {3.402746954727231*^9, 3.4027469691642714`*^9}, {
440   3.4032592998045692`*^9, 3.403259304564069*^9}, 3.403267976055098*^9, {
441   3.411910705212987*^9, 3.411910705553741*^9}, {3.423415993272615*^9,
442   3.42341600147605*^9}}]
443}, Open  ]],
444
445Cell[CellGroupData[{
446
447Cell["Higgs Sector", "Subsection",
448 CellChangeTimes->{3.404470070069872*^9}],
449
450Cell[BoxData[
451 RowBox[{
452  RowBox[{"vertsHiggs", "=",
453   RowBox[{"FeynmanRules", "[", "LHiggs", "]"}]}], ";"}]], "Input",
454 CellChangeTimes->{{3.411910728609757*^9, 3.41191072908109*^9}, {
455   3.423416009086747*^9, 3.423416012982971*^9}, 3.423416065626593*^9}]
456}, Open  ]],
457
458Cell[CellGroupData[{
459
460Cell["Matter sector", "Subsection"],
461
462Cell[BoxData[
463 RowBox[{
464  RowBox[{"vertsFermions", "=",
465   RowBox[{"FeynmanRules", "[", "LFermions", "]"}]}], ";"}]], "Input",
466 CellChangeTimes->{{3.402205118991502*^9, 3.4022051228508387`*^9},
467   3.402747846432675*^9, {3.4032613449872217`*^9, 3.403261349245253*^9}, {
468   3.403266977133403*^9, 3.4032669793125563`*^9}, {3.411910788644576*^9,
469   3.411910789233307*^9}, {3.423416034294303*^9, 3.423416042739814*^9}}]
470}, Open  ]],
471
472Cell[CellGroupData[{
473
474Cell["Yukawa sector", "Subsection"],
475
476Cell[BoxData[
477 RowBox[{
478  RowBox[{"vertsYukawa", "=",
479   RowBox[{"FeynmanRules", "[",
480    RowBox[{"LYukawa", ",",
481     RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
482 CellChangeTimes->{{3.403266987858165*^9, 3.4032670026080303`*^9}, {
483  3.411910826105542*^9, 3.411910826777452*^9}, {3.423416089772278*^9,
484  3.423416095643961*^9}}]
485}, Open  ]],
486
487Cell[CellGroupData[{
488
489Cell["LGhost sector", "Subsection",
490 CellChangeTimes->{{3.411910849714159*^9, 3.411910851088325*^9}}],
491
492Cell[BoxData[
493 RowBox[{
494  RowBox[{"vertsGhosts", "=",
495   RowBox[{"FeynmanRules", "[",
496    RowBox[{"LGhost", ",",
497     RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], ";"}]], "Input",
498 CellChangeTimes->{{3.403266987858165*^9, 3.4032670026080303`*^9}, {
499   3.411910826105542*^9, 3.411910826777452*^9}, {3.411910857580064*^9,
500   3.411910870001601*^9}, 3.415256462464088*^9, {3.423416107236608*^9,
501   3.423416112835993*^9}}]
502}, Open  ]]
503}, Open  ]],
504
505Cell[CellGroupData[{
506
507Cell["Outputs and interfaces", "Section",
508 CellChangeTimes->{
509  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}}],
510
511Cell[CellGroupData[{
512
513Cell["TeX output", "Subsection",
514 CellChangeTimes->{{3.411910947430851*^9, 3.411910949151555*^9}}],
515
516Cell["\<\
517The TeX output for the minimal Zp models can be obtained via\
518\>", "Text",
519 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9},
520   3.535207193312626*^9}],
521
522Cell[BoxData[
523 RowBox[{"WriteTeXOutput", "[",
524  RowBox[{"LmZp", ",", "vertsGhosts", ",",
525   RowBox[{"Output", "\[Rule]", "\"\<minimal_Zp.tex\>\""}]}], "]"}]], "Input",\
526
527 CellChangeTimes->{{3.411910975128832*^9, 3.411910989032667*^9}, {
528  3.413715190013906*^9, 3.413715219763245*^9}, {3.4143155989473963`*^9,
529  3.414315622297143*^9}, {3.4234161283912163`*^9, 3.423416165214814*^9}, {
530  3.424434998765719*^9, 3.42443500440279*^9}, {3.516624726513577*^9,
531  3.51662472715726*^9}, {3.535207156290826*^9, 3.535207172169827*^9}}]
532}, Open  ]],
533
534Cell[CellGroupData[{
535
536Cell["FeynArts output", "Subsection",
537 CellChangeTimes->{{3.411911000132907*^9, 3.411911005135379*^9}}],
538
539Cell["\<\
540The FeynArts output for the minimal Zp models can be obtained via\
541\>", "Text",
542 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
543   3.411911062212926*^9, 3.4119110634765463`*^9}, 3.5352071951804237`*^9}],
544
545Cell[BoxData[{
546 RowBox[{
547  RowBox[{
548   RowBox[{"FeynmanGauge", " ", "=", " ", "False"}], ";"}],
549  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
550 RowBox[{"WriteFeynArtsOutput", "[",
551  RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",",
552   RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], "Input",
553 CellChangeTimes->{{3.411911018354619*^9, 3.4119110196967573`*^9}, {
554   3.412185470680571*^9, 3.412185480912915*^9}, {3.41245048911446*^9,
555   3.4124504892674522`*^9}, 3.414315634453483*^9, {3.423416180751266*^9,
556   3.423416182892613*^9}}],
557
558Cell["FeynArts also supports the Feynman gauge", "Text",
559 CellChangeTimes->{{3.4121854851672792`*^9, 3.412185494183435*^9}}],
560
561Cell[BoxData[{
562 RowBox[{
563  RowBox[{
564   RowBox[{"FeynmanGauge", " ", "=", " ", "True"}], ";"}],
565  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
566 RowBox[{"WriteFeynArtsOutput", "[",
567  RowBox[{
568  "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost",
569   ",",
570   RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}], ",",
571   RowBox[{"Output", "\[Rule]", "\"\<minimal_Zp.mod\>\""}]}], "]"}]}], "Input",\
572
573 CellChangeTimes->{{3.411911018354619*^9, 3.4119110196967573`*^9}, {
574   3.412185470680571*^9, 3.412185506240796*^9}, {3.4234161971513453`*^9,
575   3.423416209716672*^9}, {3.424637927237001*^9, 3.424637928707159*^9}, {
576   3.516624730853075*^9, 3.51662473152958*^9}, 3.5352071770102587`*^9}]
577}, Open  ]],
578
579Cell[CellGroupData[{
580
581Cell["Sherpa output", "Subsection",
582 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}}],
583
584Cell["\<\
585The Sherpa output for the minimal Zp models can be obtained via\
586\>", "Text",
587 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
588   3.411911059590749*^9, 3.4119110601885567`*^9}, 3.5352071971947308`*^9}],
589
590Cell[BoxData[{
591 RowBox[{
592  RowBox[{
593   RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
594  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
595 RowBox[{"WriteSHOutput", "[",
596  RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa"}],
597  "]"}]}], "Input",
598 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
599  3.412185455856553*^9, 3.412185456628922*^9}, {3.4143156544792233`*^9,
600  3.414315668290971*^9}, {3.423416222700699*^9, 3.423416235756197*^9}}]
601}, Open  ]],
602
603Cell[CellGroupData[{
604
605Cell["MadGraph output", "Subsection",
606 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
607  3.411911131666554*^9, 3.411911135984398*^9}}],
608
609Cell["\<\
610The MadGraph output for the minimal Zp models can be obtained via\
611\>", "Text",
612 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
613   3.411911059590749*^9, 3.4119110601885567`*^9}, {3.41191113897644*^9,
614   3.411911142024486*^9}, 3.535207198526808*^9}],
615
616Cell[BoxData[{
617 RowBox[{
618  RowBox[{
619   RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
620  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
621 RowBox[{
622  RowBox[{"WriteMGOutput", "[",
623   RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa"}], "]"}],
624   ";"}]}], "Input",
625 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
626  3.412185409690489*^9, 3.4121854352800217`*^9}}]
627}, Open  ]],
628
629Cell[CellGroupData[{
630
631Cell["CalcHep output", "Subsection",
632 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
633  3.411911150323291*^9, 3.4119111515122623`*^9}}],
634
635Cell["\<\
636The CalcHep output for the minimal Zp models can be obtained via\
637\>", "Text",
638 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
639   3.411911059590749*^9, 3.4119110601885567`*^9}, {3.4119111540967712`*^9,
640   3.411911155096376*^9}, 3.535207200675213*^9}],
641
642Cell[BoxData[{
643 RowBox[{
644  RowBox[{
645   RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
646  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
647 RowBox[{
648  RowBox[{"WriteCHOutput", "[",
649   RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",",
650    RowBox[{"MaxExpressionLength", "\[Rule]", "120"}]}], "]"}],
651  ";"}]}], "Input",
652 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
653   3.412185398898693*^9, 3.412185419919883*^9}, {3.414315699020526*^9,
654   3.41431570701153*^9}, 3.414315777726746*^9, {3.414316480328691*^9,
655   3.414316491307609*^9}, {3.4143165302100153`*^9, 3.414316531719597*^9},
656   3.423416262588552*^9, {3.4244350982608624`*^9, 3.424435102519063*^9}}],
657
658Cell["CalcHep also supports the Feynman gauge", "Text",
659 CellChangeTimes->{{3.4121853722243843`*^9, 3.412185380407339*^9}}],
660
661Cell[BoxData[{
662 RowBox[{
663  RowBox[{
664   RowBox[{"FeynmanGauge", "=", "True"}], ";"}],
665  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
666 RowBox[{
667  RowBox[{"WriteCHOutput", "[",
668   RowBox[{
669   "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost",
670    ",",
671    RowBox[{"MaxExpressionLength", "\[Rule]", "286"}]}], "]"}],
672  ";"}]}], "Input",
673 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
674  3.412185409690489*^9, 3.4121854275198507`*^9}, {3.412450479942018*^9,
675  3.4124504817138367`*^9}, {3.424435099210684*^9, 3.4244351046994867`*^9}, {
676  3.516688741605616*^9, 3.516688744089039*^9}}]
677}, Open  ]],
678
679Cell[CellGroupData[{
680
681Cell["Whizard output", "Subsection",
682 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
683   3.411911150323291*^9, 3.4119111515122623`*^9}, 3.535207336383799*^9}],
684
685Cell["\<\
686Whizard also supports the Feynman gauge\
687\>", "Text",
688 CellChangeTimes->{{3.4121853722243843`*^9, 3.412185380407339*^9},
689   3.535207325241043*^9}],
690
691Cell[BoxData[{
692 RowBox[{
693  RowBox[{
694   RowBox[{"FeynmanGauge", "=", "True"}], ";"}],
695  "\[IndentingNewLine]"}], "\n",
696 RowBox[{
697  RowBox[{"WriteWOOutput", "[",
698   RowBox[{
699   "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost"}],
700    "]"}], ";"}]}], "Input",
701 CellChangeTimes->{{3.535207272402688*^9, 3.53520727240837*^9}, {
702   3.535207340343623*^9, 3.535207341465938*^9}, 3.535207400929963*^9, {
703   3.5352074441830883`*^9, 3.5352074487603607`*^9}}]
704}, Open  ]],
705
706Cell[CellGroupData[{
707
708Cell["UFO output", "Subsection",
709 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
710   3.411911150323291*^9, 3.4119111515122623`*^9}, 3.535207336383799*^9, {
711   3.535207372887471*^9, 3.5352073732258587`*^9}}],
712
713Cell["\<\
714The UFO output (for MadGraph5) for the minimal Zp models can be obtained via\
715\>", "Text",
716 CellChangeTimes->{{3.4121853722243843`*^9, 3.412185380407339*^9},
717   3.535207325241043*^9, {3.535207358303567*^9, 3.53520739082025*^9}}],
718
719Cell[BoxData[{
720 RowBox[{
721  RowBox[{
722   RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
723  "\n"}], "\[IndentingNewLine]",
724 RowBox[{
725  RowBox[{"WriteUFO", "[",
726   RowBox[{
727   "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost"}],
728    "]"}], ";"}]}], "Input"]
729}, Open  ]]
730}, Open  ]]
731}, Open  ]]
732},
733WindowSize->{1010, 806},
734WindowMargins->{{0, Automatic}, {194, -24}},
735ShowSelection->True,
736Magnification->1.5,
737FrontEndVersion->"8.0 for Linux x86 (64-bit) (February 23, 2011)",
738StyleDefinitions->"Default.nb"
739]
740(* End of Notebook Content *)
741
742(* Internal cache information *)
743(*CellTagsOutline
744CellTagsIndex->{}
745*)
746(*CellTagsIndex
747CellTagsIndex->{}
748*)
749(*NotebookFileOutline
750Notebook[{
751Cell[545, 20, 708, 10, 43, "Input"],
752Cell[CellGroupData[{
753Cell[1278, 34, 144, 4, 43, "Input"],
754Cell[1425, 40, 117, 1, 43, "Output"]
755}, Open  ]],
756Cell[CellGroupData[{
757Cell[1579, 46, 54, 1, 43, "Input"],
758Cell[1636, 49, 462, 10, 33, "Message"],
759Cell[2101, 61, 102, 1, 43, "Output"]
760}, Open  ]],
761Cell[2218, 65, 365, 7, 43, "Input"],
762Cell[CellGroupData[{
763Cell[2608, 76, 203, 3, 130, "Title"],
764Cell[2814, 81, 191, 4, 43, "Text"],
765Cell[3008, 87, 1142, 16, 43, "Input"],
766Cell[CellGroupData[{
767Cell[4175, 107, 152, 2, 110, "Section"],
768Cell[CellGroupData[{
769Cell[4352, 113, 100, 1, 57, "Subsection"],
770Cell[4455, 116, 257, 5, 42, "Text"],
771Cell[4715, 123, 144, 2, 43, "Input"],
772Cell[CellGroupData[{
773Cell[4884, 129, 105, 1, 40, "Subsubsection"],
774Cell[4992, 132, 219, 4, 42, "Text"],
775Cell[5214, 138, 98, 1, 43, "Input"]
776}, Open  ]],
777Cell[CellGroupData[{
778Cell[5349, 144, 154, 2, 40, "Subsubsection"],
779Cell[5506, 148, 270, 6, 42, "Text"],
780Cell[5779, 156, 147, 2, 43, "Input"]
781}, Open  ]],
782Cell[CellGroupData[{
783Cell[5963, 163, 158, 2, 40, "Subsubsection"],
784Cell[6124, 167, 272, 5, 42, "Text"],
785Cell[6399, 174, 148, 2, 43, "Input"]
786}, Open  ]],
787Cell[CellGroupData[{
788Cell[6584, 181, 155, 2, 40, "Subsubsection"],
789Cell[6742, 185, 271, 6, 42, "Text"],
790Cell[7016, 193, 150, 2, 64, "Input"]
791}, Open  ]]
792}, Open  ]],
793Cell[CellGroupData[{
794Cell[7215, 201, 148, 2, 85, "Subsection"],
795Cell[7366, 205, 195, 4, 102, "Text"],
796Cell[7564, 211, 149, 3, 64, "Input"],
797Cell[7716, 216, 303, 5, 63, "Text"],
798Cell[8022, 223, 145, 2, 64, "Input"],
799Cell[CellGroupData[{
800Cell[8192, 229, 105, 1, 60, "Subsubsection"],
801Cell[8300, 232, 219, 4, 63, "Text"],
802Cell[8522, 238, 98, 1, 64, "Input"]
803}, Open  ]],
804Cell[CellGroupData[{
805Cell[8657, 244, 154, 2, 60, "Subsubsection"],
806Cell[8814, 248, 270, 6, 63, "Text"],
807Cell[9087, 256, 147, 2, 64, "Input"]
808}, Open  ]],
809Cell[CellGroupData[{
810Cell[9271, 263, 158, 2, 60, "Subsubsection"],
811Cell[9432, 267, 272, 5, 63, "Text"],
812Cell[9707, 274, 148, 2, 64, "Input"]
813}, Open  ]],
814Cell[CellGroupData[{
815Cell[9892, 281, 155, 2, 60, "Subsubsection"],
816Cell[10050, 285, 271, 6, 63, "Text"],
817Cell[10324, 293, 150, 2, 64, "Input"]
818}, Open  ]],
819Cell[CellGroupData[{
820Cell[10511, 300, 205, 3, 60, "Subsubsection"],
821Cell[10719, 305, 316, 5, 63, "Text"],
822Cell[11038, 312, 198, 3, 64, "Input"]
823}, Open  ]]
824}, Open  ]]
825}, Open  ]],
826Cell[CellGroupData[{
827Cell[11297, 322, 110, 1, 165, "Section"],
828Cell[11410, 325, 149, 3, 64, "Input"],
829Cell[CellGroupData[{
830Cell[11584, 332, 110, 1, 85, "Subsection"],
831Cell[11697, 335, 134, 1, 63, "Text"],
832Cell[11834, 338, 258, 5, 64, "Input"],
833Cell[12095, 345, 157, 3, 63, "Text"],
834Cell[12255, 350, 404, 7, 64, "Input"]
835}, Open  ]],
836Cell[CellGroupData[{
837Cell[12696, 362, 114, 1, 85, "Subsection"],
838Cell[12813, 365, 230, 4, 102, "Text"],
839Cell[13046, 371, 189, 3, 64, "Input"]
840}, Open  ]],
841Cell[CellGroupData[{
842Cell[13272, 379, 113, 1, 85, "Subsection"],
843Cell[13388, 382, 181, 4, 63, "Text"],
844Cell[13572, 388, 246, 5, 64, "Input"],
845Cell[13821, 395, 173, 4, 63, "Text"],
846Cell[13997, 401, 196, 4, 64, "Input"]
847}, Open  ]]
848}, Open  ]],
849Cell[CellGroupData[{
850Cell[14242, 411, 116, 1, 165, "Section"],
851Cell[14361, 414, 234, 5, 64, "Text"],
852Cell[14598, 421, 149, 3, 64, "Input"],
853Cell[CellGroupData[{
854Cell[14772, 428, 100, 1, 85, "Subsection"],
855Cell[14875, 431, 457, 10, 64, "Input"]
856}, Open  ]],
857Cell[CellGroupData[{
858Cell[15369, 446, 76, 1, 85, "Subsection"],
859Cell[15448, 449, 258, 5, 64, "Input"]
860}, Open  ]],
861Cell[CellGroupData[{
862Cell[15743, 459, 35, 0, 85, "Subsection"],
863Cell[15781, 461, 417, 7, 64, "Input"]
864}, Open  ]],
865Cell[CellGroupData[{
866Cell[16235, 473, 35, 0, 85, "Subsection"],
867Cell[16273, 475, 360, 8, 64, "Input"]
868}, Open  ]],
869Cell[CellGroupData[{
870Cell[16670, 488, 101, 1, 85, "Subsection"],
871Cell[16774, 491, 433, 9, 64, "Input"]
872}, Open  ]]
873}, Open  ]],
874Cell[CellGroupData[{
875Cell[17256, 506, 132, 2, 165, "Section"],
876Cell[CellGroupData[{
877Cell[17413, 512, 98, 1, 85, "Subsection"],
878Cell[17514, 515, 178, 4, 64, "Text"],
879Cell[17695, 521, 527, 9, 64, "Input"]
880}, Open  ]],
881Cell[CellGroupData[{
882Cell[18259, 535, 103, 1, 85, "Subsection"],
883Cell[18365, 538, 233, 4, 64, "Text"],
884Cell[18601, 544, 569, 11, 187, "Input"],
885Cell[19173, 557, 124, 1, 63, "Text"],
886Cell[19300, 560, 706, 15, 187, "Input"]
887}, Open  ]],
888Cell[CellGroupData[{
889Cell[20043, 580, 103, 1, 85, "Subsection"],
890Cell[20149, 583, 231, 4, 64, "Text"],
891Cell[20383, 589, 474, 10, 147, "Input"]
892}, Open  ]],
893Cell[CellGroupData[{
894Cell[20894, 604, 154, 2, 85, "Subsection"],
895Cell[21051, 608, 280, 5, 64, "Text"],
896Cell[21334, 615, 398, 10, 147, "Input"]
897}, Open  ]],
898Cell[CellGroupData[{
899Cell[21769, 630, 155, 2, 85, "Subsection"],
900Cell[21927, 634, 282, 5, 64, "Text"],
901Cell[22212, 641, 701, 14, 187, "Input"],
902Cell[22916, 657, 123, 1, 63, "Text"],
903Cell[23042, 660, 630, 15, 187, "Input"]
904}, Open  ]],
905Cell[CellGroupData[{
906Cell[23709, 680, 178, 2, 85, "Subsection"],
907Cell[23890, 684, 157, 4, 64, "Text"],
908Cell[24050, 690, 473, 12, 147, "Input"]
909}, Open  ]],
910Cell[CellGroupData[{
911Cell[24560, 707, 226, 3, 85, "Subsection"],
912Cell[24789, 712, 239, 4, 64, "Text"],
913Cell[25031, 718, 278, 9, 147, "Input"]
914}, Open  ]]
915}, Open  ]]
916}, Open  ]]
917}
918]
919*)
920
921(* End of internal cache information *)