MUED: MUED.nb

File MUED.nb, 43.8 KB (added by claudeduhr, 7 years ago)

Sample 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[     44684,       1087]
14NotebookOptionsPosition[     39799,        930]
15NotebookOutlinePosition[     40202,        948]
16CellTagsIndexPosition[     40159,        945]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["The MUED Model", "Title",
24 CellChangeTimes->{{3.454050237975079*^9, 3.454050239401208*^9}}],
25
26Cell[CellGroupData[{
27
28Cell["Load of the FeynRules package", "Section",
29 CellChangeTimes->{{3.452856941348258*^9, 3.452856954182706*^9}}],
30
31Cell[BoxData[
32 RowBox[{
33  RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
34 CellChangeTimes->{{3.453613619506282*^9, 3.453613620901376*^9},
35   3.454050486834486*^9}],
36
37Cell[BoxData[{
38 RowBox[{
39  RowBox[{"$FeynRulesPath", "=",
40   RowBox[{"SetDirectory", "[", "\"\<FeynRules PATH\>\"", "]"}]}],
41  ";"}], "\[IndentingNewLine]",
42 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
43 RowBox[{
44  RowBox[{"SetDirectory", "[", "\"\<Models/MUED1.4\>\"", "]"}],
45  ";"}]}], "Input",
46 CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
47  3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
48  3.4234163227881193`*^9}, {3.453613499780509*^9, 3.453613524557995*^9}, {
49  3.454050520543564*^9, 3.454050533398179*^9}, {3.500008916310981*^9,
50  3.500008973063513*^9}, {3.522126257835644*^9, 3.522126291886712*^9}, {
51  3.522127488674326*^9, 3.5221274907483263`*^9}, {3.5221275359789343`*^9,
52  3.522127545018012*^9}, {3.522127582489881*^9, 3.5221275899915657`*^9}, {
53  3.522743701066206*^9, 3.522743715465721*^9}, {3.52300790961416*^9,
54  3.52300791004559*^9}, {3.5326845717743177`*^9, 3.532684580924903*^9}, {
55  3.532685281461073*^9, 3.5326853052706137`*^9}, {3.532692829419389*^9,
56  3.532692847313079*^9}}]
57}, Open  ]],
58
59Cell[CellGroupData[{
60
61Cell["Load of the MUED model", "Section",
62 CellChangeTimes->{{3.452856959806845*^9, 3.452856965627877*^9}, {
63  3.454050557859632*^9, 3.454050559388439*^9}}],
64
65Cell[CellGroupData[{
66
67Cell[BoxData[
68 RowBox[{"LoadModel", "[",
69  RowBox[{
70  "\"\<mued.fr\>\"", ",", "\"\<Parameters.fr\>\"", ",",
71   "\"\<particles.fr\>\"", ",", "\"\<5DIntegral.fr\>\"", ",",
72   "\"\<FieldExpansion.fr\>\"", ",", "\"\<Lagrangian.fr\>\""}],
73  "]"}]], "Input",
74 CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
75   3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
76   3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
77   3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
78   3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
79   3.403347555049163*^9}, 3.4044490490588417`*^9, {3.411744339876704*^9,
80   3.411744340012457*^9}, {3.4121886924550533`*^9, 3.412188699157571*^9},
81   3.412188808811866*^9, 3.4121888580521603`*^9, {3.412450464077868*^9,
82   3.412450464378695*^9}, {3.413715097460478*^9, 3.41371509757642*^9}, {
83   3.41440825334604*^9, 3.414408254159686*^9}, {3.41862573831756*^9,
84   3.4186257392223186`*^9}, {3.4190731862389174`*^9, 3.419073187003003*^9}, {
85   3.419073336802393*^9, 3.4190733374513063`*^9}, {3.4190828041801767`*^9,
86   3.4190828048079023`*^9}, {3.453627818613791*^9, 3.45362781987052*^9},
87   3.500009078074593*^9, {3.5000102383500433`*^9, 3.5000102565143747`*^9}, {
88   3.5221319865793533`*^9, 3.5221320267355967`*^9}}],
89
90Cell[CellGroupData[{
91
92Cell[BoxData[
93 FormBox["\<\"Merging model-files...\"\>", TraditionalForm]], "Print",
94 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
95  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
96  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
97  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
98  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
99  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
100  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662335075*^9}],
101
102Cell[BoxData[
103 FormBox["\<\"This model implementation was created by\"\>",
104  TraditionalForm]], "Print",
105 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
106  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
107  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
108  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
109  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
110  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
111  3.5227557779418507`*^9, 3.522757141366445*^9, 3.5326846624154053`*^9}],
112
113Cell[BoxData[
114 FormBox["\<\"Priscila de Aquino\"\>", TraditionalForm]], "Print",
115 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
116  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
117  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
118  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
119  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
120  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
121  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662546077*^9}],
122
123Cell[BoxData[
124 FormBox[
125  InterpretationBox[
126   RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.4\"\>"}],
127   SequenceForm["Model Version: ", "1.4"],
128   Editable->False], TraditionalForm]], "Print",
129 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
130  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
131  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
132  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
133  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
134  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
135  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662579619*^9}],
136
137Cell[BoxData[
138 FormBox["\<\"Please cite\"\>", TraditionalForm]], "Print",
139 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
140  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
141  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
142  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
143  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
144  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
145  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662612162*^9}],
146
147Cell[BoxData[
148 FormBox["\<\"A. Datta, K. Kong, K. Matchev, \
149http://home.fnal.gov/~kckong/mued/mued.ps\"\>", TraditionalForm]], "Print",
150 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
151  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
152  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
153  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
154  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
155  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
156  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662645974*^9}],
157
158Cell[BoxData[
159 FormBox["\<\"H-C. Cheng, K.T. Matchev, M. Schmaltz, Physical Review D 66 \
160(2002) 056006\"\>", TraditionalForm]], "Print",
161 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
162  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
163  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
164  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
165  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
166  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
167  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662686182*^9}],
168
169Cell[BoxData[
170 FormBox["\<\"http://feynrules.phys.ucl.ac.be/view/Main/MUED\"\>",
171  TraditionalForm]], "Print",
172 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
173  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
174  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
175  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
176  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
177  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
178  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662720368*^9}],
179
180Cell[BoxData[
181 FormBox["\<\"For more information, type ModelInformation[].\"\>",
182  TraditionalForm]], "Print",
183 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
184  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
185  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
186  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
187  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
188  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
189  3.5227557779418507`*^9, 3.522757141366445*^9, 3.5326846627584333`*^9}],
190
191Cell[BoxData[
192 FormBox["\<\"\"\>", TraditionalForm]], "Print",
193 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
194  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
195  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
196  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
197  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
198  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
199  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662785698*^9}],
200
201Cell[BoxData[
202 FormBox["\<\"   - Loading particle classes.\"\>", TraditionalForm]], "Print",\
203
204 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
205  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
206  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
207  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
208  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
209  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
210  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662818084*^9}],
211
212Cell[BoxData[
213 FormBox["\<\"   - Loading gauge group classes.\"\>",
214  TraditionalForm]], "Print",
215 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
216  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
217  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
218  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
219  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
220  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
221  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662871353*^9}],
222
223Cell[BoxData[
224 FormBox["\<\"   - Loading parameter classes.\"\>", TraditionalForm]], "Print",\
225
226 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
227  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
228  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
229  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
230  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
231  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
232  3.5227557779418507`*^9, 3.522757141366445*^9, 3.532684662897768*^9}],
233
234Cell[BoxData[
235 FormBox[
236  InterpretationBox[
237   RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"MUED\"\>",
238    "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
239   SequenceForm["\nModel ", "MUED", " loaded."],
240   Editable->False], TraditionalForm]], "Print",
241 CellChangeTimes->{3.52212630295732*^9, 3.5221274600291452`*^9,
242  3.5221275513498707`*^9, 3.522127600735114*^9, 3.5221302979752617`*^9,
243  3.5221308496870613`*^9, 3.522132046486335*^9, 3.52273562365658*^9,
244  3.5227437367999163`*^9, 3.5227438353374977`*^9, 3.522743970422243*^9,
245  3.522744054956232*^9, 3.522744192299831*^9, 3.5227451538122787`*^9,
246  3.522746185862409*^9, 3.52275365789999*^9, 3.522754126755322*^9,
247  3.5227557779418507`*^9, 3.522757141366445*^9, 3.5326846630781813`*^9}]
248}, Open  ]]
249}, Open  ]]
250}, Open  ]],
251
252Cell[CellGroupData[{
253
254Cell["The MUED lagrangian", "Section",
255 CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
256  3.4540507294896593`*^9, 3.4540507310208197`*^9}}],
257
258Cell[CellGroupData[{
259
260Cell["Gauge sector", "Subsubsection",
261 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}}],
262
263Cell["\<\
264The part of the effective lagrangian representing the gauge sector can be \
265accessed via\
266\>", "Text",
267 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
268  3.411910235813308*^9, 3.4119102509651337`*^9}, {3.4540507848253527`*^9,
269  3.454050786393136*^9}}],
270
271Cell[BoxData[
272 RowBox[{"LGauge", " ", "=", " ",
273  RowBox[{"LU1", "+", "LSU2", "+", "LSU3"}]}]], "Input",
274 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
275   3.454050790694797*^9, 3.454050807408856*^9}, 3.454052286514977*^9,
276   3.5326846894837627`*^9}]
277}, Open  ]],
278
279Cell[CellGroupData[{
280
281Cell["Scalar sector", "Subsubsection",
282 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
283  3.411910274288354*^9, 3.41191027703699*^9}}],
284
285Cell["\<\
286The part of the lagrangian representing the scalar sector can be accessed via\
287\
288\>", "Text",
289 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
290  3.411910235813308*^9, 3.4119102509651337`*^9}, {3.41191028690167*^9,
291  3.411910287709094*^9}}],
292
293Cell[BoxData[
294 RowBox[{"LHiggs", ";"}]], "Input",
295 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
296   3.411910290186841*^9, 3.411910292005392*^9}, 3.454052293282386*^9}]
297}, Open  ]],
298
299Cell[CellGroupData[{
300
301Cell["Fermion sector", "Subsubsection",
302 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
303  3.4119103528868923`*^9, 3.411910357404933*^9}}],
304
305Cell["\<\
306The part of the lagrangian representing the fermion sector can be accessed via\
307\>", "Text",
308 CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
309  3.411910235813308*^9, 3.4119102509651337`*^9}, {3.4119103873434134`*^9,
310  3.411910388077118*^9}}],
311
312Cell[BoxData[
313 RowBox[{"LFermions", " ", "=", " ",
314  RowBox[{
315  "LQuarkD", "+", "LLeptonD", "+", "LUpS", "+", "LDownS", "+",
316   "LLeptonS"}]}]], "Input",
317 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
318   3.411910379677638*^9, 3.4119103807255*^9}, {3.454050812632284*^9,
319   3.4540508182235947`*^9}, 3.4540522991223593`*^9, 3.522130312822061*^9}]
320}, Open  ]],
321
322Cell[CellGroupData[{
323
324Cell["The MUED total Lagrangian", "Subsubsection",
325 CellChangeTimes->{{3.452857023659556*^9, 3.452857026196998*^9}, {
326  3.454050603115306*^9, 3.454050604633585*^9}, {3.4540508481103973`*^9,
327  3.454050850614224*^9}}],
328
329Cell[BoxData[
330 RowBox[{
331  RowBox[{"LMUED", "=", "Ltot"}], ";"}]], "Input",
332 CellChangeTimes->{{3.454050606020862*^9, 3.454050710536751*^9}, {
333  3.4540523562120943`*^9, 3.454052357523405*^9}}]
334}, Open  ]]
335}, Open  ]],
336
337Cell[CellGroupData[{
338
339Cell["Calculation of the Feynman rules", "Section",
340 CellChangeTimes->{{3.411910637332127*^9, 3.41191064360071*^9}}],
341
342Cell["\<\
343We will calculate now explicitly the Feynman rules for the MUED in unitary \
344gauge.\
345\>", "Text",
346 CellChangeTimes->{{3.41191064804084*^9, 3.411910672936666*^9}, {
347  3.454050904652996*^9, 3.454050911243622*^9}}],
348
349Cell[BoxData[
350 RowBox[{
351  RowBox[{"FeynmanGauge", "=", "False"}], ";"}]], "Input",
352 CellChangeTimes->{{3.411910674121689*^9, 3.4119106799564953`*^9}, {
353  3.454050914845985*^9, 3.4540509167799253`*^9}}],
354
355Cell[CellGroupData[{
356
357Cell[BoxData[
358 RowBox[{
359  RowBox[{"FeynmanRules", "[",
360   RowBox[{"LMUED", ",",
361    RowBox[{"FlavorExpand", "\[Rule]", " ", "True"}], ",", " ",
362    RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}], ";"}]], "Input",
363 CellChangeTimes->{{3.454050941037876*^9, 3.4540509427559967`*^9}, {
364  3.4540519182214403`*^9, 3.4540519326819687`*^9}, {3.454051971122376*^9,
365  3.454052047324356*^9}, {3.454052370948945*^9, 3.454052390900474*^9}, {
366  3.4540524267717047`*^9, 3.4540524740650682`*^9}}],
367
368Cell[CellGroupData[{
369
370Cell[BoxData[
371 FormBox["\<\"Starting Feynman rule calculation.\"\>",
372  TraditionalForm]], "Print",
373 CellChangeTimes->{
374  3.4540518510216293`*^9, 3.4540519356715717`*^9, {3.454051978410664*^9,
375   3.454051997723612*^9}, {3.45405202878901*^9, 3.454052047800447*^9}, {
376   3.454052374439143*^9, 3.454052391526147*^9}, {3.45405244520848*^9,
377   3.454052474713723*^9}, 3.522126537883407*^9}],
378
379Cell[BoxData[
380 FormBox["\<\"Expanding indices...\"\>", TraditionalForm]], "Print",
381 CellChangeTimes->{
382  3.4540518510216293`*^9, 3.4540519356715717`*^9, {3.454051978410664*^9,
383   3.454051997723612*^9}, {3.45405202878901*^9, 3.454052047800447*^9}, {
384   3.454052374439143*^9, 3.454052391526147*^9}, {3.45405244520848*^9,
385   3.454052474713723*^9}, 3.522126537886519*^9}],
386
387Cell[BoxData[
388 FormBox["\<\"Expanding flavors...\"\>", TraditionalForm]], "Print",
389 CellChangeTimes->{
390  3.4540518510216293`*^9, 3.4540519356715717`*^9, {3.454051978410664*^9,
391   3.454051997723612*^9}, {3.45405202878901*^9, 3.454052047800447*^9}, {
392   3.454052374439143*^9, 3.454052391526147*^9}, {3.45405244520848*^9,
393   3.454052474713723*^9}, 3.522126539182191*^9}]
394}, Open  ]],
395
396Cell[BoxData[
397 FormBox[
398  RowBox[{
399   RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}],
400   RowBox[{
401   ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Recursion depth of \\\\\\\"\
402\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TraditionalForm\\`256\\)\
403, \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
404exceeded.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\
405\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
406ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
407\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}], TraditionalForm]], "Message", \
408"MSG",
409 CellChangeTimes->{3.522126676559873*^9}],
410
411Cell[BoxData[
412 FormBox[
413  RowBox[{
414   RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}],
415   RowBox[{
416   ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Recursion depth of \\\\\\\"\
417\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TraditionalForm\\`256\\)\
418, \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
419exceeded.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\
420\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
421ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
422\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}], TraditionalForm]], "Message", \
423"MSG",
424 CellChangeTimes->{3.522126676563611*^9}],
425
426Cell[BoxData[
427 FormBox[
428  RowBox[{
429   RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}],
430   RowBox[{
431   ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Recursion depth of \\\\\\\"\
432\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TraditionalForm\\`256\\)\
433, \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
434exceeded.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\
435\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
436ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
437\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}], TraditionalForm]], "Message", \
438"MSG",
439 CellChangeTimes->{3.522126676566436*^9}],
440
441Cell[BoxData[
442 FormBox[
443  RowBox[{
444   RowBox[{"General", "::", "\<\"stop\"\>"}],
445   RowBox[{
446   ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \
447\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TraditionalForm\
448\\`\\($RecursionLimit :: \\\"reclim\\\"\\)\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\
449\\*StyleBox[\\\"\\\\\\\" will be suppressed during this \
450calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
451\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
452ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
453\\\"General::stop\\\"]\\)\"\>"}], TraditionalForm]], "Message", "MSG",
454 CellChangeTimes->{3.522126676645588*^9}],
455
456Cell[BoxData[
457 FormBox[
458  RowBox[{
459   RowBox[{"$IterationLimit", "::", "\<\"itlim\"\>"}],
460   RowBox[{
461   ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Iteration limit of \\\\\\\"\
462\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TraditionalForm\\`4096\\\
463), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" exceeded.\\\\\\\"\\\
464\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\
465\\\"Link\\\", ButtonFrame->None, \
466ButtonData:>\\\"paclet:ref/message/$IterationLimit/itlim\\\", ButtonNote -> \
467\\\"$IterationLimit::itlim\\\"]\\)\"\>"}], TraditionalForm]], "Message", "MSG",
468 CellChangeTimes->{3.522126676772286*^9}],
469
470Cell[BoxData[
471 FormBox[
472  RowBox[{
473   RowBox[{"$IterationLimit", "::", "\<\"itlim\"\>"}],
474   RowBox[{
475   ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Iteration limit of \\\\\\\"\
476\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TraditionalForm\\`4096\\\
477), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" exceeded.\\\\\\\"\\\
478\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\
479\\\"Link\\\", ButtonFrame->None, \
480ButtonData:>\\\"paclet:ref/message/$IterationLimit/itlim\\\", ButtonNote -> \
481\\\"$IterationLimit::itlim\\\"]\\)\"\>"}], TraditionalForm]], "Message", "MSG",
482 CellChangeTimes->{3.522126677089603*^9}],
483
484Cell[BoxData[
485 FormBox[
486  RowBox[{
487   RowBox[{"$IterationLimit", "::", "\<\"itlim\"\>"}],
488   RowBox[{
489   ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Iteration limit of \\\\\\\"\
490\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TraditionalForm\\`4096\\\
491), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" exceeded.\\\\\\\"\\\
492\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\
493\\\"Link\\\", ButtonFrame->None, \
494ButtonData:>\\\"paclet:ref/message/$IterationLimit/itlim\\\", ButtonNote -> \
495\\\"$IterationLimit::itlim\\\"]\\)\"\>"}], TraditionalForm]], "Message", "MSG",
496 CellChangeTimes->{3.52212667739675*^9}],
497
498Cell[BoxData[
499 FormBox[
500  RowBox[{
501   RowBox[{"General", "::", "\<\"stop\"\>"}],
502   RowBox[{
503   ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \
504\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TraditionalForm\
505\\`\\($IterationLimit :: \\\"itlim\\\"\\)\\), \
506\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \
507during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
508\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
509ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
510\\\"General::stop\\\"]\\)\"\>"}], TraditionalForm]], "Message", "MSG",
511 CellChangeTimes->{3.522126677412915*^9}],
512
513Cell[BoxData[
514 FormBox["$Aborted", TraditionalForm]], "Output",
515 CellChangeTimes->{3.522127412906251*^9}]
516}, Open  ]],
517
518Cell[BoxData[""], "Input",
519 CellChangeTimes->{{3.5221274073910923`*^9, 3.522127407532277*^9}}]
520}, Closed]],
521
522Cell[CellGroupData[{
523
524Cell["Outputs and interfaces", "Section",
525 CellChangeTimes->{
526  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}}],
527
528Cell[CellGroupData[{
529
530Cell["UFO output", "Subsection",
531 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
532   3.411911131666554*^9, 3.411911135984398*^9}, {3.522126347741274*^9,
533   3.52212634812309*^9}, 3.5326853929456987`*^9}],
534
535Cell["The MadGraph output for MUED can be obtained via", "Text",
536 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
537  3.411911059590749*^9, 3.4119110601885567`*^9}, {3.41191113897644*^9,
538  3.411911142024486*^9}, {3.454051045614745*^9, 3.454051051174477*^9}}],
539
540Cell[CellGroupData[{
541
542Cell[BoxData[{
543 RowBox[{
544  RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]",
545 RowBox[{
546  RowBox[{"WriteUFO", "[",
547   RowBox[{"LMUED", ",", " ",
548    RowBox[{"FlavorExpand", "\[Rule]", " ", "True"}]}], "]"}],
549  ";"}]}], "Input",
550 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
551   3.412185409690489*^9, 3.4121854352800217`*^9}, {3.4540510663832397`*^9,
552   3.454051101677906*^9}, {3.522126352862104*^9, 3.5221263532915087`*^9}, {
553   3.52275416096486*^9, 3.522754166050194*^9}, {3.522757584772024*^9,
554   3.5227575866420403`*^9}, {3.522757786204153*^9, 3.522757820498287*^9}, {
555   3.52275785055342*^9, 3.522757907476956*^9}, {3.522758173625811*^9,
556   3.522758174249621*^9}, {3.522758327477397*^9, 3.522758327763167*^9}, {
557   3.5227585154219933`*^9, 3.522758545386106*^9}, 3.532685416349989*^9}],
558
559Cell[CellGroupData[{
560
561Cell[BoxData[
562 FormBox["\<\" --- Universal FeynRules Output (UFO) v 0.1 ---\"\>",
563  TraditionalForm]], "Print",
564 CellChangeTimes->{
565  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
566   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
567   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
568   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
569   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
570   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532684941153214*^9}],
571
572Cell[BoxData[
573 FormBox["\<\"Starting Feynman rule calculation.\"\>",
574  TraditionalForm]], "Print",
575 CellChangeTimes->{
576  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
577   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
578   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
579   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
580   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
581   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532684942461803*^9}],
582
583Cell[BoxData[
584 FormBox["\<\"Collecting the different structures that enter the \
585vertex...\"\>", TraditionalForm]], "Print",
586 CellChangeTimes->{
587  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
588   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
589   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
590   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
591   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
592   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532684987163967*^9}],
593
594Cell[BoxData[
595 FormBox[
596  InterpretationBox[
597   RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"272\"\>",
598    "\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
599   SequenceForm["Found ", "272", " possible non zero vertices."],
600   Editable->False], TraditionalForm]], "Print",
601 CellChangeTimes->{
602  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
603   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
604   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
605   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
606   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
607   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532684988397002*^9}],
608
609Cell[BoxData[
610 FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
611 CellChangeTimes->{
612  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
613   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
614   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
615   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
616   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
617   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532684988415595*^9}],
618
619Cell[BoxData[
620 FormBox[
621  ProgressIndicatorBox[Dynamic[PRIVATE`progress$3635]],
622  TraditionalForm]], "Print",
623 CellChangeTimes->{
624  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
625   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
626   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
627   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
628   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
629   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532684988551125*^9}],
630
631Cell[BoxData[
632 FormBox[
633  InterpretationBox[
634   RowBox[{"272", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
635   SequenceForm[272, " vertices obtained."],
636   Editable->False], TraditionalForm]], "Print",
637 CellChangeTimes->{
638  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
639   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
640   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
641   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
642   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
643   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532685011149788*^9}],
644
645Cell[BoxData[
646 FormBox["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>",
647  TraditionalForm]], "Print",
648 CellChangeTimes->{
649  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
650   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
651   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
652   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
653   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
654   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532685022714677*^9}],
655
656Cell[BoxData[
657 FormBox["\<\"Preparing Python output.\"\>", TraditionalForm]], "Print",
658 CellChangeTimes->{
659  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
660   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
661   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
662   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
663   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
664   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532685022748908*^9}],
665
666Cell[BoxData[
667 FormBox["\<\"    - Splitting vertices into building blocks.\"\>",
668  TraditionalForm]], "Print",
669 CellChangeTimes->{
670  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
671   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
672   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
673   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
674   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
675   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532685023242894*^9}],
676
677Cell[BoxData[
678 FormBox[
679  InterpretationBox[
680   RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
681    DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, TraditionalForm],
682     ImageSizeCache->{24., {1., 11.}}], "\[InvisibleSpace]", "\<\"/\"\>",
683    "\[InvisibleSpace]", "272", "\[InvisibleSpace]", "\<\" .\"\>"}],
684   SequenceForm["    - Optimizing: ",
685    Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 272, " ."],
686   Editable->False], TraditionalForm]], "Print",
687 CellChangeTimes->{
688  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
689   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
690   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
691   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
692   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
693   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532685024797274*^9}],
694
695Cell[BoxData[
696 FormBox["\<\"    - Writing files.\"\>", TraditionalForm]], "Print",
697 CellChangeTimes->{
698  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
699   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
700   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
701   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
702   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
703   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532685025092099*^9}],
704
705Cell[BoxData[
706 FormBox["\<\"Done!\"\>", TraditionalForm]], "Print",
707 CellChangeTimes->{
708  3.5221282016934853`*^9, 3.522749816608213*^9, 3.5227538545922213`*^9,
709   3.52275429455835*^9, 3.5227559509233093`*^9, 3.522757281894134*^9,
710   3.522757624274568*^9, {3.522757793572859*^9, 3.522757821448086*^9}, {
711   3.522757875780517*^9, 3.5227579078404903`*^9}, 3.5227581130647697`*^9,
712   3.522758174829986*^9, 3.522758328050569*^9, {3.522758526507641*^9,
713   3.5227585462551727`*^9}, 3.532684677611212*^9, 3.532685025395321*^9}]
714}, Open  ]]
715}, Open  ]]
716}, Open  ]],
717
718Cell[CellGroupData[{
719
720Cell["MadGraph (version 4) output", "Subsection",
721 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
722  3.411911131666554*^9, 3.411911135984398*^9}, {3.532685403257518*^9,
723  3.532685408840603*^9}}],
724
725Cell["The MadGraph output for MUED can be obtained via", "Text",
726 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
727  3.411911059590749*^9, 3.4119110601885567`*^9}, {3.41191113897644*^9,
728  3.411911142024486*^9}, {3.454051045614745*^9, 3.454051051174477*^9}}],
729
730Cell[CellGroupData[{
731
732Cell[BoxData[
733 RowBox[{
734  RowBox[{"FeynmanGauge", "=", "False"}], ";",
735  RowBox[{"WriteMGOutput", "[", "LMUED", "]"}], ";"}]], "Input",
736 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
737  3.412185409690489*^9, 3.4121854352800217`*^9}, {3.4540510663832397`*^9,
738  3.454051101677906*^9}}],
739
740Cell[CellGroupData[{
741
742Cell[BoxData[
743 FormBox["\<\" - - - FeynRules interface to MadGraph - - -\"\>",
744  TraditionalForm]], "Print",
745 CellChangeTimes->{3.4540529138680477`*^9}],
746
747Cell[BoxData[
748 FormBox["\<\"       C. Duhr, M. Herquet, 2008\"\>",
749  TraditionalForm]], "Print",
750 CellChangeTimes->{3.454052913869528*^9}],
751
752Cell[BoxData[
753 FormBox[
754  InterpretationBox[
755   RowBox[{"\<\"Creating Directory \"\>",
756    "\[InvisibleSpace]", "\<\"MUED_MG\"\>"}],
757   SequenceForm["Creating Directory ", "MUED_MG"],
758   Editable->False], TraditionalForm]], "Print",
759 CellChangeTimes->{3.454052913871982*^9}],
760
761Cell[BoxData[
762 FormBox["\<\"Checking particle list...\"\>", TraditionalForm]], "Print",
763 CellChangeTimes->{3.454052913875667*^9}],
764
765Cell[BoxData[
766 FormBox["\<\"Goldstone bosons will be ignored.\"\>",
767  TraditionalForm]], "Print",
768 CellChangeTimes->{3.454052913895137*^9}],
769
770Cell[BoxData[
771 FormBox["\<\"Ghost fields will be ignored.\"\>", TraditionalForm]], "Print",
772 CellChangeTimes->{3.454052913927738*^9}],
773
774Cell[BoxData[
775 FormBox["\<\"Checking parameter list...\"\>", TraditionalForm]], "Print",
776 CellChangeTimes->{3.454052913961151*^9}],
777
778Cell[BoxData[
779 FormBox[
780  InterpretationBox[
781   RowBox[{"\<\"\\nCalculating Feynman rules for Lagrangian number \"\>",
782    "\[InvisibleSpace]", "1"}],
783   SequenceForm["\nCalculating Feynman rules for Lagrangian number ", 1],
784   Editable->False], TraditionalForm]], "Print",
785 CellChangeTimes->{3.4540529139941196`*^9}],
786
787Cell[BoxData[
788 FormBox["\<\"Starting Feynman rule calculation.\"\>",
789  TraditionalForm]], "Print",
790 CellChangeTimes->{3.454052914023933*^9}],
791
792Cell[BoxData[
793 FormBox["\<\"Expanding indices...\"\>", TraditionalForm]], "Print",
794 CellChangeTimes->{3.45405291794028*^9}],
795
796Cell[BoxData[
797 FormBox["\<\"Expanding flavors...\"\>", TraditionalForm]], "Print",
798 CellChangeTimes->{3.454052938107964*^9}],
799
800Cell[BoxData[
801 FormBox["\<\"Collecting the different structures that enter the \
802vertex...\"\>", TraditionalForm]], "Print",
803 CellChangeTimes->{3.4540530076122923`*^9}],
804
805Cell[BoxData[
806 FormBox[
807  InterpretationBox[
808   RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"423\"\>",
809    "\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
810   SequenceForm["Found ", "423", " possible non zero vertices."],
811   Editable->False], TraditionalForm]], "Print",
812 CellChangeTimes->{3.454053009135375*^9}],
813
814Cell[BoxData[
815 FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
816 CellChangeTimes->{3.454053009149971*^9}],
817
818Cell[BoxData[
819 FormBox[
820  ProgressIndicatorBox[Dynamic[PRIVATE`progress$7794]],
821  TraditionalForm]], "Print",
822 CellChangeTimes->{3.454053009175*^9}],
823
824Cell[BoxData[
825 FormBox[
826  InterpretationBox[
827   RowBox[{"423", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
828   SequenceForm[423, " vertices obtained."],
829   Editable->False], TraditionalForm]], "Print",
830 CellChangeTimes->{3.4540530278638773`*^9}],
831
832Cell[BoxData[
833 FormBox["\<\"Merging vertices...\"\>", TraditionalForm]], "Print",
834 CellChangeTimes->{3.454053027879403*^9}],
835
836Cell[BoxData[
837 FormBox["\<\"\\n    Converting vertices to MG format\"\>",
838  TraditionalForm]], "Print",
839 CellChangeTimes->{3.454053028827786*^9}],
840
841Cell[BoxData[
842 FormBox["\<\"Getting color structures.\"\>", TraditionalForm]], "Print",
843 CellChangeTimes->{3.4540530299518013`*^9}],
844
845Cell[BoxData[
846 FormBox[
847  InterpretationBox[
848   RowBox[{"\<\"    Getting HELAS structures: \"\>", "\[InvisibleSpace]",
849    DynamicBox[ToBoxes[PRIVATE`$helasprogress, TraditionalForm],
850     ImageSizeCache->{168., {4., 12.}}], "\[InvisibleSpace]", "\<\"/\"\>",
851    "\[InvisibleSpace]", "423", "\[InvisibleSpace]", "\<\" .\"\>"}],
852   SequenceForm["    Getting HELAS structures: ",
853    Dynamic[PRIVATE`$helasprogress], "/", 423, " ."],
854   Editable->False], TraditionalForm]], "Print",
855 CellChangeTimes->{3.454053030128664*^9}],
856
857Cell[BoxData[
858 FormBox[
859  ProgressIndicatorBox[Dynamic[PRIVATE`progbarvar]],
860  TraditionalForm]], "Print",
861 CellChangeTimes->{3.454053030142803*^9}],
862
863Cell[BoxData[
864 FormBox[
865  InterpretationBox[
866   RowBox[{"\<\"    MG Output obtained for \"\>",
867    "\[InvisibleSpace]", "\<\"MUED\"\>"}],
868   SequenceForm["    MG Output obtained for ", "MUED"],
869   Editable->False], TraditionalForm]], "Print",
870 CellChangeTimes->{3.454053031842198*^9}],
871
872Cell[BoxData[
873 FormBox[
874  InterpretationBox[
875   RowBox[{"\<\"MG / ME output written on \"\>",
876    "\[InvisibleSpace]", "\<\"MUED_MG\"\>"}],
877   SequenceForm["MG / ME output written on ", "MUED_MG"],
878   Editable->False], TraditionalForm]], "Print",
879 CellChangeTimes->{3.45405303248835*^9}]
880}, Open  ]]
881}, Closed]]
882}, Open  ]],
883
884Cell[CellGroupData[{
885
886Cell["CalcHep output", "Subsection",
887 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
888  3.411911150323291*^9, 3.4119111515122623`*^9}}],
889
890Cell["The CalcHep output for MUED can be obtained via", "Text",
891 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
892  3.411911059590749*^9, 3.4119110601885567`*^9}, {3.4119111540967712`*^9,
893  3.411911155096376*^9}, {3.4540510606700497`*^9, 3.454051061237966*^9}}],
894
895Cell[BoxData[{
896 RowBox[{
897  RowBox[{"FeynmanGauge", "=", "True"}], ";"}], "\[IndentingNewLine]",
898 RowBox[{
899  RowBox[{"WriteCHOutput", "[", "LMUED", "]"}], ";"}]}], "Input",
900 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
901   3.412185398898693*^9, 3.412185419919883*^9}, {3.414315699020526*^9,
902   3.41431570701153*^9}, 3.414315777726746*^9, {3.414316480328691*^9,
903   3.414316491307609*^9}, {3.4143165302100153`*^9, 3.414316531719597*^9},
904   3.423416262588552*^9, {3.45405107598318*^9, 3.454051121269405*^9},
905   3.4540536069012403`*^9}]
906}, Open  ]],
907
908Cell[CellGroupData[{
909
910Cell["Sherpa output", "Subsection",
911 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}}],
912
913Cell["The Sherpa output for MUED can be obtained via", "Text",
914 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
915  3.411911059590749*^9, 3.4119110601885567`*^9}, {3.454051142611391*^9,
916  3.4540511442589703`*^9}}],
917
918Cell[BoxData[{
919 RowBox[{
920  RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]",
921 RowBox[{
922  RowBox[{"WriteSHOutput", "[", "LMUED", "]"}], ";"}]}], "Input",
923 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
924   3.412185455856553*^9, 3.412185456628922*^9}, {3.4143156544792233`*^9,
925   3.414315668290971*^9}, {3.423416222700699*^9, 3.423416235756197*^9}, {
926   3.4540511313493423`*^9, 3.454051138724203*^9}, 3.4540536100239687`*^9}]
927}, Open  ]]
928}, Open  ]]
929}, Open  ]]
930},
931Evaluator->"Local2",
932WindowSize->{921, 652},
933WindowMargins->{{Automatic, 59}, {-119, Automatic}},
934ShowSelection->True,
935Magnification->1.,
936FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
937StyleDefinitions->"Default.nb"
938]
939(* End of Notebook Content *)
940
941(* Internal cache information *)
942(*CellTagsOutline
943CellTagsIndex->{}
944*)
945(*CellTagsIndex
946CellTagsIndex->{}
947*)
948(*NotebookFileOutline
949Notebook[{
950Cell[CellGroupData[{
951Cell[567, 22, 97, 1, 76, "Title"],
952Cell[CellGroupData[{
953Cell[689, 27, 114, 1, 67, "Section"],
954Cell[806, 30, 162, 4, 31, "Input"],
955Cell[971, 36, 1060, 19, 72, "Input"]
956}, Open  ]],
957Cell[CellGroupData[{
958Cell[2068, 60, 156, 2, 67, "Section"],
959Cell[CellGroupData[{
960Cell[2249, 66, 1339, 21, 52, "Input"],
961Cell[CellGroupData[{
962Cell[3613, 91, 575, 8, 24, "Print"],
963Cell[4191, 101, 598, 9, 24, "Print"],
964Cell[4792, 112, 571, 8, 24, "Print"],
965Cell[5366, 122, 703, 12, 24, "Print"],
966Cell[6072, 136, 564, 8, 24, "Print"],
967Cell[6639, 146, 627, 9, 24, "Print"],
968Cell[7269, 157, 628, 9, 24, "Print"],
969Cell[7900, 168, 602, 9, 24, "Print"],
970Cell[8505, 179, 604, 9, 24, "Print"],
971Cell[9112, 190, 553, 8, 24, "Print"],
972Cell[9668, 200, 585, 9, 24, "Print"],
973Cell[10256, 211, 589, 9, 24, "Print"],
974Cell[10848, 222, 586, 9, 24, "Print"],
975Cell[11437, 233, 752, 13, 45, "Print"]
976}, Open  ]]
977}, Open  ]]
978}, Open  ]],
979Cell[CellGroupData[{
980Cell[12250, 253, 157, 2, 67, "Section"],
981Cell[CellGroupData[{
982Cell[12432, 259, 105, 1, 28, "Subsubsection"],
983Cell[12540, 262, 282, 6, 30, "Text"],
984Cell[12825, 270, 271, 5, 31, "Input"]
985}, Open  ]],
986Cell[CellGroupData[{
987Cell[13133, 280, 154, 2, 28, "Subsubsection"],
988Cell[13290, 284, 270, 6, 30, "Text"],
989Cell[13563, 292, 187, 3, 31, "Input"]
990}, Open  ]],
991Cell[CellGroupData[{
992Cell[13787, 300, 158, 2, 28, "Subsubsection"],
993Cell[13948, 304, 272, 5, 30, "Text"],
994Cell[14223, 311, 367, 7, 31, "Input"]
995}, Open  ]],
996Cell[CellGroupData[{
997Cell[14627, 323, 216, 3, 28, "Subsubsection"],
998Cell[14846, 328, 191, 4, 31, "Input"]
999}, Open  ]]
1000}, Open  ]],
1001Cell[CellGroupData[{
1002Cell[15086, 338, 116, 1, 67, "Section"],
1003Cell[15205, 341, 221, 5, 30, "Text"],
1004Cell[15429, 348, 201, 4, 31, "Input"],
1005Cell[CellGroupData[{
1006Cell[15655, 356, 491, 9, 31, "Input"],
1007Cell[CellGroupData[{
1008Cell[16171, 369, 386, 7, 24, "Print"],
1009Cell[16560, 378, 369, 6, 24, "Print"],
1010Cell[16932, 386, 369, 6, 24, "Print"]
1011}, Open  ]],
1012Cell[17316, 395, 658, 13, 23, "Message"],
1013Cell[17977, 410, 658, 13, 23, "Message"],
1014Cell[18638, 425, 658, 13, 23, "Message"],
1015Cell[19299, 440, 697, 13, 23, "Message"],
1016Cell[19999, 455, 654, 12, 23, "Message"],
1017Cell[20656, 469, 654, 12, 23, "Message"],
1018Cell[21313, 483, 653, 12, 23, "Message"],
1019Cell[21969, 497, 696, 13, 23, "Message"],
1020Cell[22668, 512, 105, 2, 31, "Output"]
1021}, Open  ]],
1022Cell[22788, 517, 94, 1, 31, "Input"]
1023}, Closed]],
1024Cell[CellGroupData[{
1025Cell[22919, 523, 132, 2, 37, "Section"],
1026Cell[CellGroupData[{
1027Cell[23076, 529, 223, 3, 34, "Subsection"],
1028Cell[23302, 534, 277, 3, 30, "Text"],
1029Cell[CellGroupData[{
1030Cell[23604, 541, 835, 15, 52, "Input"],
1031Cell[CellGroupData[{
1032Cell[24464, 560, 568, 9, 24, "Print"],
1033Cell[25035, 571, 555, 9, 24, "Print"],
1034Cell[25593, 582, 580, 9, 24, "Print"],
1035Cell[26176, 593, 748, 13, 24, "Print"],
1036Cell[26927, 608, 547, 8, 24, "Print"],
1037Cell[27477, 618, 566, 10, 26, "Print"],
1038Cell[28046, 630, 666, 12, 24, "Print"],
1039Cell[28715, 644, 562, 9, 24, "Print"],
1040Cell[29280, 655, 542, 8, 24, "Print"],
1041Cell[29825, 665, 567, 9, 24, "Print"],
1042Cell[30395, 676, 928, 16, 24, "Print"],
1043Cell[31326, 694, 538, 8, 24, "Print"],
1044Cell[31867, 704, 523, 8, 24, "Print"]
1045}, Open  ]]
1046}, Open  ]]
1047}, Open  ]],
1048Cell[CellGroupData[{
1049Cell[32451, 719, 215, 3, 34, "Subsection"],
1050Cell[32669, 724, 277, 3, 30, "Text"],
1051Cell[CellGroupData[{
1052Cell[32971, 731, 305, 6, 31, "Input"],
1053Cell[CellGroupData[{
1054Cell[33301, 741, 153, 3, 24, "Print"],
1055Cell[33457, 746, 139, 3, 24, "Print"],
1056Cell[33599, 751, 275, 7, 24, "Print"],
1057Cell[33877, 760, 129, 2, 24, "Print"],
1058Cell[34009, 764, 140, 3, 24, "Print"],
1059Cell[34152, 769, 133, 2, 24, "Print"],
1060Cell[34288, 773, 130, 2, 24, "Print"],
1061Cell[34421, 777, 318, 7, 45, "Print"],
1062Cell[34742, 786, 141, 3, 24, "Print"],
1063Cell[34886, 791, 123, 2, 24, "Print"],
1064Cell[35012, 795, 124, 2, 24, "Print"],
1065Cell[35139, 799, 168, 3, 24, "Print"],
1066Cell[35310, 804, 334, 7, 24, "Print"],
1067Cell[35647, 813, 133, 2, 24, "Print"],
1068Cell[35783, 817, 149, 4, 26, "Print"],
1069Cell[35935, 823, 254, 6, 24, "Print"],
1070Cell[36192, 831, 123, 2, 24, "Print"],
1071Cell[36318, 835, 146, 3, 45, "Print"],
1072Cell[36467, 840, 131, 2, 24, "Print"],
1073Cell[36601, 844, 525, 10, 35, "Print"],
1074Cell[37129, 856, 149, 4, 26, "Print"],
1075Cell[37281, 862, 285, 7, 24, "Print"],
1076Cell[37569, 871, 288, 7, 24, "Print"]
1077}, Open  ]]
1078}, Closed]]
1079}, Open  ]],
1080Cell[CellGroupData[{
1081Cell[37918, 885, 155, 2, 34, "Subsection"],
1082Cell[38076, 889, 281, 3, 30, "Text"],
1083Cell[38360, 894, 557, 10, 52, "Input"]
1084}, Open  ]],
1085Cell[CellGroupData[{
1086Cell[38954, 909, 103, 1, 34, "Subsection"],
1087Cell[39060, 912, 232, 3, 30, "Text"],
1088Cell[39295, 917, 464, 8, 52, "Input"]
1089}, Open  ]]
1090}, Open  ]]
1091}, Open  ]]
1092}
1093]
1094*)
1095
1096(* End of internal cache information *)