B-L-SM: minimal_Zp.nb

File minimal_Zp.nb, 30.2 KB (added by Lorenzo Basso, 13 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 *)