MUED: MUED.nb

File MUED.nb, 43.8 KB (added by Claude Duhr, 13 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 *)