Context Navigation

Back to TechniColor

TechniColor: MWT_101030.nb

File MWT_101030.nb, 92.6 KB (added by CP3-Origins, 14 years ago)
Mathematica notebook for the MWT FeynRules file

Line
1	(* Content-type: application/mathematica *)
2
3	(* Wolfram Notebook File *)
4	(* http://www.wolfram.com/nb *)
5
6	(* CreatedBy='Mathematica 7.0' *)
7
8	(CacheID: 234)
9	(* Internal cache information:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 145, 7]
13	NotebookDataLength[ 94658, 1704]
14	NotebookOptionsPosition[ 91303, 1602]
15	NotebookOutlinePosition[ 91640, 1617]
16	CellTagsIndexPosition[ 91597, 1614]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21
22	Cell[CellGroupData[{
23	Cell["\<\
24	NMWT unitary
25	\
26	\>", "Section",
27	CellChangeTimes->{
28	3.445242980634373^9, {3.445243144155546^9, 3.445243158570893*^9}, {
29	3.44587971025315^9, 3.445879713172297^9}}],
30
31	Cell[BoxData[
32	RowBox[{"Quit", "[", "]"}]], "Input",
33	CellChangeTimes->{{3.480337101043145^9, 3.480337102223115^9}}],
34
35	Cell[CellGroupData[{
36
37	Cell[BoxData[{
38	RowBox[{
39	RowBox[{"$FeynRulesPath", "=",
40	RowBox[{
41	"SetDirectory", "[",
42	"\"\</home/mjarvine/tyo/mathematica/FeynRules1.4.10\>\"", "]"}]}],
43	";"}], "\n",
44	RowBox[{"<<", "FeynRules`"}], "\n",
45	RowBox[{
46	RowBox[{"SetDirectory", "[",
47	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/NMWT\>\""}], "]"}],
48	";"}]}], "Input",
49	CellChangeTimes->{{3.4126590568924417`^9, 3.412659075768538^9}, {
50	3.423416384793591^9, 3.423416395796236^9}, {3.4234174151520243`*^9,
51	3.423417420076274^9}, {3.444997930489234^9, 3.444997941732589*^9}, {
52	3.445529811323807^9, 3.445529830232614^9}, {3.480094134990833*^9,
53	3.480094156327805^9}, {3.480150658326394^9, 3.48015065943001*^9}, {
54	3.491288833374482^9, 3.49128883414081^9}}],
55
56	Cell[CellGroupData[{
57
58	Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
59	CellChangeTimes->{
60	3.445529814787496^9, 3.445533025293488^9, 3.445535198536064*^9,
61	3.445546049937073^9, 3.445548797753678^9, 3.445549098311731*^9,
62	3.445588383990693^9, 3.445627806754886^9, 3.445627984946419*^9,
63	3.445628053839826^9, 3.445628666487432^9, 3.445630662691926*^9,
64	3.445631760047992^9, 3.445631865651937^9, 3.445631962504141*^9, {
65	3.4457531303929^9, 3.445753158762741^9}, 3.445879730990545*^9,
66	3.445879793985706^9, 3.445883397164449^9, 3.445972311319879*^9,
67	3.445974227771637^9, 3.446292149633505^9, 3.446292462398337*^9,
68	3.446292548128168^9, 3.4462926976046^9, 3.476195969575441*^9,
69	3.478338790840331^9, 3.478343868536508^9, 3.478344047983948*^9, {
70	3.480094146350314^9, 3.480094157103242^9}, 3.480137908531589*^9,
71	3.480148255369634^9, 3.480150718618345^9, 3.480162727366457*^9,
72	3.480334913979917^9, 3.480337138121744^9, 3.480415435023273*^9,
73	3.480416213916008^9, 3.480495431488316^9, 3.480495619819866*^9,
74	3.481447065900251^9, 3.481447351599817^9, 3.481644755751576*^9,
75	3.481644790207347^9, 3.481645055032385^9, 3.481645156232592*^9,
76	3.481645260311283^9, 3.481645727809657^9, 3.481647353819152*^9,
77	3.481647456396417^9, 3.481647548996483^9, 3.4816482572837*^9,
78	3.481654602881448^9, 3.483022096104306^9, 3.483441447414538*^9,
79	3.483444030258551^9, 3.483696294277061^9, 3.483696441365173*^9,
80	3.488889159485963^9, 3.490428344051142^9, 3.490428455030256*^9,
81	3.490605344462699^9, 3.490814693294052^9, 3.491288863779177*^9,
82	3.491303801941978^9, 3.491303991476303^9, 3.491304652911572*^9,
83	3.491306279669183^9, 3.491306866172633^9, 3.492965609545695*^9,
84	3.493013335844268^9, 3.493014170320645^9, 3.493014785979743*^9,
85	3.493036083229056^9, 3.493110303258415^9, 3.493110611544669*^9,
86	3.493111966094203^9, 3.493113074239531^9, 3.493114294066177*^9,
87	3.493115256325878^9, 3.493116751986789^9, 3.493118863880127*^9,
88	3.493119332295832^9, 3.493120893711637^9, 3.493122001074701*^9,
89	3.493122919104534^9, 3.493123645202591^9, 3.493124171634506*^9,
90	3.493124448709216^9, 3.493124515182798^9, 3.493124951298302*^9,
91	3.493125415906132^9, 3.493125666843701^9, 3.493126236797454*^9,
92	3.493174542238378^9, 3.493183554988619^9, {3.496650852981347*^9,
93	3.496650873355477^9}, 3.497006568309196^9, {3.497007161969832*^9,
94	3.497007187289688^9}, 3.497007235644422^9, 3.497007758741729*^9,
95	3.497012400154595^9, 3.497080174514282^9, 3.497081056897665*^9,
96	3.497082460970443^9, 3.497084362991616^9, 3.497084401553769*^9,
97	3.497169827305061^9, 3.49717158973341^9, 3.497171758102639*^9,
98	3.497172093869636^9, 3.497174991192086^9, 3.497185769567561*^9,
99	3.497186256252353^9, 3.49718749369645^9, 3.497254256770513*^9,
100	3.49728209743195^9, 3.497345781360556^9, 3.497449290544097*^9}],
101
102	Cell[BoxData[
103	InterpretationBox[
104	RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"1.4.10\"\>"}],
105	SequenceForm["Version: ", "1.4.10"],
106	Editable->False]], "Print",
107	CellChangeTimes->{
108	3.445529814787496^9, 3.445533025293488^9, 3.445535198536064*^9,
109	3.445546049937073^9, 3.445548797753678^9, 3.445549098311731*^9,
110	3.445588383990693^9, 3.445627806754886^9, 3.445627984946419*^9,
111	3.445628053839826^9, 3.445628666487432^9, 3.445630662691926*^9,
112	3.445631760047992^9, 3.445631865651937^9, 3.445631962504141*^9, {
113	3.4457531303929^9, 3.445753158762741^9}, 3.445879730990545*^9,
114	3.445879793985706^9, 3.445883397164449^9, 3.445972311319879*^9,
115	3.445974227771637^9, 3.446292149633505^9, 3.446292462398337*^9,
116	3.446292548128168^9, 3.4462926976046^9, 3.476195969575441*^9,
117	3.478338790840331^9, 3.478343868536508^9, 3.478344047983948*^9, {
118	3.480094146350314^9, 3.480094157103242^9}, 3.480137908531589*^9,
119	3.480148255369634^9, 3.480150718618345^9, 3.480162727366457*^9,
120	3.480334913979917^9, 3.480337138121744^9, 3.480415435023273*^9,
121	3.480416213916008^9, 3.480495431488316^9, 3.480495619819866*^9,
122	3.481447065900251^9, 3.481447351599817^9, 3.481644755751576*^9,
123	3.481644790207347^9, 3.481645055032385^9, 3.481645156232592*^9,
124	3.481645260311283^9, 3.481645727809657^9, 3.481647353819152*^9,
125	3.481647456396417^9, 3.481647548996483^9, 3.4816482572837*^9,
126	3.481654602881448^9, 3.483022096104306^9, 3.483441447414538*^9,
127	3.483444030258551^9, 3.483696294277061^9, 3.483696441365173*^9,
128	3.488889159485963^9, 3.490428344051142^9, 3.490428455030256*^9,
129	3.490605344462699^9, 3.490814693294052^9, 3.491288863779177*^9,
130	3.491303801941978^9, 3.491303991476303^9, 3.491304652911572*^9,
131	3.491306279669183^9, 3.491306866172633^9, 3.492965609545695*^9,
132	3.493013335844268^9, 3.493014170320645^9, 3.493014785979743*^9,
133	3.493036083229056^9, 3.493110303258415^9, 3.493110611544669*^9,
134	3.493111966094203^9, 3.493113074239531^9, 3.493114294066177*^9,
135	3.493115256325878^9, 3.493116751986789^9, 3.493118863880127*^9,
136	3.493119332295832^9, 3.493120893711637^9, 3.493122001074701*^9,
137	3.493122919104534^9, 3.493123645202591^9, 3.493124171634506*^9,
138	3.493124448709216^9, 3.493124515182798^9, 3.493124951298302*^9,
139	3.493125415906132^9, 3.493125666843701^9, 3.493126236797454*^9,
140	3.493174542238378^9, 3.493183554988619^9, {3.496650852981347*^9,
141	3.496650873355477^9}, 3.497006568309196^9, {3.497007161969832*^9,
142	3.497007187289688^9}, 3.497007235644422^9, 3.497007758741729*^9,
143	3.497012400154595^9, 3.497080174514282^9, 3.497081056897665*^9,
144	3.497082460970443^9, 3.497084362991616^9, 3.497084401553769*^9,
145	3.497169827305061^9, 3.49717158973341^9, 3.497171758102639*^9,
146	3.497172093869636^9, 3.497174991192086^9, 3.497185769567561*^9,
147	3.497186256252353^9, 3.49718749369645^9, 3.497254256770513*^9,
148	3.49728209743195^9, 3.497345781360556^9, 3.497449290686975*^9}],
149
150	Cell[BoxData["\<\"Authors: C. Duhr, N. Christensen, B. Fuks\"\>"], "Print",
151	CellChangeTimes->{
152	3.445529814787496^9, 3.445533025293488^9, 3.445535198536064*^9,
153	3.445546049937073^9, 3.445548797753678^9, 3.445549098311731*^9,
154	3.445588383990693^9, 3.445627806754886^9, 3.445627984946419*^9,
155	3.445628053839826^9, 3.445628666487432^9, 3.445630662691926*^9,
156	3.445631760047992^9, 3.445631865651937^9, 3.445631962504141*^9, {
157	3.4457531303929^9, 3.445753158762741^9}, 3.445879730990545*^9,
158	3.445879793985706^9, 3.445883397164449^9, 3.445972311319879*^9,
159	3.445974227771637^9, 3.446292149633505^9, 3.446292462398337*^9,
160	3.446292548128168^9, 3.4462926976046^9, 3.476195969575441*^9,
161	3.478338790840331^9, 3.478343868536508^9, 3.478344047983948*^9, {
162	3.480094146350314^9, 3.480094157103242^9}, 3.480137908531589*^9,
163	3.480148255369634^9, 3.480150718618345^9, 3.480162727366457*^9,
164	3.480334913979917^9, 3.480337138121744^9, 3.480415435023273*^9,
165	3.480416213916008^9, 3.480495431488316^9, 3.480495619819866*^9,
166	3.481447065900251^9, 3.481447351599817^9, 3.481644755751576*^9,
167	3.481644790207347^9, 3.481645055032385^9, 3.481645156232592*^9,
168	3.481645260311283^9, 3.481645727809657^9, 3.481647353819152*^9,
169	3.481647456396417^9, 3.481647548996483^9, 3.4816482572837*^9,
170	3.481654602881448^9, 3.483022096104306^9, 3.483441447414538*^9,
171	3.483444030258551^9, 3.483696294277061^9, 3.483696441365173*^9,
172	3.488889159485963^9, 3.490428344051142^9, 3.490428455030256*^9,
173	3.490605344462699^9, 3.490814693294052^9, 3.491288863779177*^9,
174	3.491303801941978^9, 3.491303991476303^9, 3.491304652911572*^9,
175	3.491306279669183^9, 3.491306866172633^9, 3.492965609545695*^9,
176	3.493013335844268^9, 3.493014170320645^9, 3.493014785979743*^9,
177	3.493036083229056^9, 3.493110303258415^9, 3.493110611544669*^9,
178	3.493111966094203^9, 3.493113074239531^9, 3.493114294066177*^9,
179	3.493115256325878^9, 3.493116751986789^9, 3.493118863880127*^9,
180	3.493119332295832^9, 3.493120893711637^9, 3.493122001074701*^9,
181	3.493122919104534^9, 3.493123645202591^9, 3.493124171634506*^9,
182	3.493124448709216^9, 3.493124515182798^9, 3.493124951298302*^9,
183	3.493125415906132^9, 3.493125666843701^9, 3.493126236797454*^9,
184	3.493174542238378^9, 3.493183554988619^9, {3.496650852981347*^9,
185	3.496650873355477^9}, 3.497006568309196^9, {3.497007161969832*^9,
186	3.497007187289688^9}, 3.497007235644422^9, 3.497007758741729*^9,
187	3.497012400154595^9, 3.497080174514282^9, 3.497081056897665*^9,
188	3.497082460970443^9, 3.497084362991616^9, 3.497084401553769*^9,
189	3.497169827305061^9, 3.49717158973341^9, 3.497171758102639*^9,
190	3.497172093869636^9, 3.497174991192086^9, 3.497185769567561*^9,
191	3.497186256252353^9, 3.49718749369645^9, 3.497254256770513*^9,
192	3.49728209743195^9, 3.497345781360556^9, 3.497449290697447*^9}],
193
194	Cell[BoxData["\<\" \"\>"], "Print",
195	CellChangeTimes->{
196	3.445529814787496^9, 3.445533025293488^9, 3.445535198536064*^9,
197	3.445546049937073^9, 3.445548797753678^9, 3.445549098311731*^9,
198	3.445588383990693^9, 3.445627806754886^9, 3.445627984946419*^9,
199	3.445628053839826^9, 3.445628666487432^9, 3.445630662691926*^9,
200	3.445631760047992^9, 3.445631865651937^9, 3.445631962504141*^9, {
201	3.4457531303929^9, 3.445753158762741^9}, 3.445879730990545*^9,
202	3.445879793985706^9, 3.445883397164449^9, 3.445972311319879*^9,
203	3.445974227771637^9, 3.446292149633505^9, 3.446292462398337*^9,
204	3.446292548128168^9, 3.4462926976046^9, 3.476195969575441*^9,
205	3.478338790840331^9, 3.478343868536508^9, 3.478344047983948*^9, {
206	3.480094146350314^9, 3.480094157103242^9}, 3.480137908531589*^9,
207	3.480148255369634^9, 3.480150718618345^9, 3.480162727366457*^9,
208	3.480334913979917^9, 3.480337138121744^9, 3.480415435023273*^9,
209	3.480416213916008^9, 3.480495431488316^9, 3.480495619819866*^9,
210	3.481447065900251^9, 3.481447351599817^9, 3.481644755751576*^9,
211	3.481644790207347^9, 3.481645055032385^9, 3.481645156232592*^9,
212	3.481645260311283^9, 3.481645727809657^9, 3.481647353819152*^9,
213	3.481647456396417^9, 3.481647548996483^9, 3.4816482572837*^9,
214	3.481654602881448^9, 3.483022096104306^9, 3.483441447414538*^9,
215	3.483444030258551^9, 3.483696294277061^9, 3.483696441365173*^9,
216	3.488889159485963^9, 3.490428344051142^9, 3.490428455030256*^9,
217	3.490605344462699^9, 3.490814693294052^9, 3.491288863779177*^9,
218	3.491303801941978^9, 3.491303991476303^9, 3.491304652911572*^9,
219	3.491306279669183^9, 3.491306866172633^9, 3.492965609545695*^9,
220	3.493013335844268^9, 3.493014170320645^9, 3.493014785979743*^9,
221	3.493036083229056^9, 3.493110303258415^9, 3.493110611544669*^9,
222	3.493111966094203^9, 3.493113074239531^9, 3.493114294066177*^9,
223	3.493115256325878^9, 3.493116751986789^9, 3.493118863880127*^9,
224	3.493119332295832^9, 3.493120893711637^9, 3.493122001074701*^9,
225	3.493122919104534^9, 3.493123645202591^9, 3.493124171634506*^9,
226	3.493124448709216^9, 3.493124515182798^9, 3.493124951298302*^9,
227	3.493125415906132^9, 3.493125666843701^9, 3.493126236797454*^9,
228	3.493174542238378^9, 3.493183554988619^9, {3.496650852981347*^9,
229	3.496650873355477^9}, 3.497006568309196^9, {3.497007161969832*^9,
230	3.497007187289688^9}, 3.497007235644422^9, 3.497007758741729*^9,
231	3.497012400154595^9, 3.497080174514282^9, 3.497081056897665*^9,
232	3.497082460970443^9, 3.497084362991616^9, 3.497084401553769*^9,
233	3.497169827305061^9, 3.49717158973341^9, 3.497171758102639*^9,
234	3.497172093869636^9, 3.497174991192086^9, 3.497185769567561*^9,
235	3.497186256252353^9, 3.49718749369645^9, 3.497254256770513*^9,
236	3.49728209743195^9, 3.497345781360556^9, 3.497449290713821*^9}],
237
238	Cell[BoxData["\<\"Please cite: arXiv:0806.4194\"\>"], "Print",
239	CellChangeTimes->{
240	3.445529814787496^9, 3.445533025293488^9, 3.445535198536064*^9,
241	3.445546049937073^9, 3.445548797753678^9, 3.445549098311731*^9,
242	3.445588383990693^9, 3.445627806754886^9, 3.445627984946419*^9,
243	3.445628053839826^9, 3.445628666487432^9, 3.445630662691926*^9,
244	3.445631760047992^9, 3.445631865651937^9, 3.445631962504141*^9, {
245	3.4457531303929^9, 3.445753158762741^9}, 3.445879730990545*^9,
246	3.445879793985706^9, 3.445883397164449^9, 3.445972311319879*^9,
247	3.445974227771637^9, 3.446292149633505^9, 3.446292462398337*^9,
248	3.446292548128168^9, 3.4462926976046^9, 3.476195969575441*^9,
249	3.478338790840331^9, 3.478343868536508^9, 3.478344047983948*^9, {
250	3.480094146350314^9, 3.480094157103242^9}, 3.480137908531589*^9,
251	3.480148255369634^9, 3.480150718618345^9, 3.480162727366457*^9,
252	3.480334913979917^9, 3.480337138121744^9, 3.480415435023273*^9,
253	3.480416213916008^9, 3.480495431488316^9, 3.480495619819866*^9,
254	3.481447065900251^9, 3.481447351599817^9, 3.481644755751576*^9,
255	3.481644790207347^9, 3.481645055032385^9, 3.481645156232592*^9,
256	3.481645260311283^9, 3.481645727809657^9, 3.481647353819152*^9,
257	3.481647456396417^9, 3.481647548996483^9, 3.4816482572837*^9,
258	3.481654602881448^9, 3.483022096104306^9, 3.483441447414538*^9,
259	3.483444030258551^9, 3.483696294277061^9, 3.483696441365173*^9,
260	3.488889159485963^9, 3.490428344051142^9, 3.490428455030256*^9,
261	3.490605344462699^9, 3.490814693294052^9, 3.491288863779177*^9,
262	3.491303801941978^9, 3.491303991476303^9, 3.491304652911572*^9,
263	3.491306279669183^9, 3.491306866172633^9, 3.492965609545695*^9,
264	3.493013335844268^9, 3.493014170320645^9, 3.493014785979743*^9,
265	3.493036083229056^9, 3.493110303258415^9, 3.493110611544669*^9,
266	3.493111966094203^9, 3.493113074239531^9, 3.493114294066177*^9,
267	3.493115256325878^9, 3.493116751986789^9, 3.493118863880127*^9,
268	3.493119332295832^9, 3.493120893711637^9, 3.493122001074701*^9,
269	3.493122919104534^9, 3.493123645202591^9, 3.493124171634506*^9,
270	3.493124448709216^9, 3.493124515182798^9, 3.493124951298302*^9,
271	3.493125415906132^9, 3.493125666843701^9, 3.493126236797454*^9,
272	3.493174542238378^9, 3.493183554988619^9, {3.496650852981347*^9,
273	3.496650873355477^9}, 3.497006568309196^9, {3.497007161969832*^9,
274	3.497007187289688^9}, 3.497007235644422^9, 3.497007758741729*^9,
275	3.497012400154595^9, 3.497080174514282^9, 3.497081056897665*^9,
276	3.497082460970443^9, 3.497084362991616^9, 3.497084401553769*^9,
277	3.497169827305061^9, 3.49717158973341^9, 3.497171758102639*^9,
278	3.497172093869636^9, 3.497174991192086^9, 3.497185769567561*^9,
279	3.497186256252353^9, 3.49718749369645^9, 3.497254256770513*^9,
280	3.49728209743195^9, 3.497345781360556^9, 3.497449290739288*^9}],
281
282	Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
283	CellChangeTimes->{
284	3.445529814787496^9, 3.445533025293488^9, 3.445535198536064*^9,
285	3.445546049937073^9, 3.445548797753678^9, 3.445549098311731*^9,
286	3.445588383990693^9, 3.445627806754886^9, 3.445627984946419*^9,
287	3.445628053839826^9, 3.445628666487432^9, 3.445630662691926*^9,
288	3.445631760047992^9, 3.445631865651937^9, 3.445631962504141*^9, {
289	3.4457531303929^9, 3.445753158762741^9}, 3.445879730990545*^9,
290	3.445879793985706^9, 3.445883397164449^9, 3.445972311319879*^9,
291	3.445974227771637^9, 3.446292149633505^9, 3.446292462398337*^9,
292	3.446292548128168^9, 3.4462926976046^9, 3.476195969575441*^9,
293	3.478338790840331^9, 3.478343868536508^9, 3.478344047983948*^9, {
294	3.480094146350314^9, 3.480094157103242^9}, 3.480137908531589*^9,
295	3.480148255369634^9, 3.480150718618345^9, 3.480162727366457*^9,
296	3.480334913979917^9, 3.480337138121744^9, 3.480415435023273*^9,
297	3.480416213916008^9, 3.480495431488316^9, 3.480495619819866*^9,
298	3.481447065900251^9, 3.481447351599817^9, 3.481644755751576*^9,
299	3.481644790207347^9, 3.481645055032385^9, 3.481645156232592*^9,
300	3.481645260311283^9, 3.481645727809657^9, 3.481647353819152*^9,
301	3.481647456396417^9, 3.481647548996483^9, 3.4816482572837*^9,
302	3.481654602881448^9, 3.483022096104306^9, 3.483441447414538*^9,
303	3.483444030258551^9, 3.483696294277061^9, 3.483696441365173*^9,
304	3.488889159485963^9, 3.490428344051142^9, 3.490428455030256*^9,
305	3.490605344462699^9, 3.490814693294052^9, 3.491288863779177*^9,
306	3.491303801941978^9, 3.491303991476303^9, 3.491304652911572*^9,
307	3.491306279669183^9, 3.491306866172633^9, 3.492965609545695*^9,
308	3.493013335844268^9, 3.493014170320645^9, 3.493014785979743*^9,
309	3.493036083229056^9, 3.493110303258415^9, 3.493110611544669*^9,
310	3.493111966094203^9, 3.493113074239531^9, 3.493114294066177*^9,
311	3.493115256325878^9, 3.493116751986789^9, 3.493118863880127*^9,
312	3.493119332295832^9, 3.493120893711637^9, 3.493122001074701*^9,
313	3.493122919104534^9, 3.493123645202591^9, 3.493124171634506*^9,
314	3.493124448709216^9, 3.493124515182798^9, 3.493124951298302*^9,
315	3.493125415906132^9, 3.493125666843701^9, 3.493126236797454*^9,
316	3.493174542238378^9, 3.493183554988619^9, {3.496650852981347*^9,
317	3.496650873355477^9}, 3.497006568309196^9, {3.497007161969832*^9,
318	3.497007187289688^9}, 3.497007235644422^9, 3.497007758741729*^9,
319	3.497012400154595^9, 3.497080174514282^9, 3.497081056897665*^9,
320	3.497082460970443^9, 3.497084362991616^9, 3.497084401553769*^9,
321	3.497169827305061^9, 3.49717158973341^9, 3.497171758102639*^9,
322	3.497172093869636^9, 3.497174991192086^9, 3.497185769567561*^9,
323	3.497186256252353^9, 3.49718749369645^9, 3.497254256770513*^9,
324	3.49728209743195^9, 3.497345781360556^9, 3.497449290758172*^9}],
325
326	Cell[BoxData["\<\" \"\>"], "Print",
327	CellChangeTimes->{
328	3.445529814787496^9, 3.445533025293488^9, 3.445535198536064*^9,
329	3.445546049937073^9, 3.445548797753678^9, 3.445549098311731*^9,
330	3.445588383990693^9, 3.445627806754886^9, 3.445627984946419*^9,
331	3.445628053839826^9, 3.445628666487432^9, 3.445630662691926*^9,
332	3.445631760047992^9, 3.445631865651937^9, 3.445631962504141*^9, {
333	3.4457531303929^9, 3.445753158762741^9}, 3.445879730990545*^9,
334	3.445879793985706^9, 3.445883397164449^9, 3.445972311319879*^9,
335	3.445974227771637^9, 3.446292149633505^9, 3.446292462398337*^9,
336	3.446292548128168^9, 3.4462926976046^9, 3.476195969575441*^9,
337	3.478338790840331^9, 3.478343868536508^9, 3.478344047983948*^9, {
338	3.480094146350314^9, 3.480094157103242^9}, 3.480137908531589*^9,
339	3.480148255369634^9, 3.480150718618345^9, 3.480162727366457*^9,
340	3.480334913979917^9, 3.480337138121744^9, 3.480415435023273*^9,
341	3.480416213916008^9, 3.480495431488316^9, 3.480495619819866*^9,
342	3.481447065900251^9, 3.481447351599817^9, 3.481644755751576*^9,
343	3.481644790207347^9, 3.481645055032385^9, 3.481645156232592*^9,
344	3.481645260311283^9, 3.481645727809657^9, 3.481647353819152*^9,
345	3.481647456396417^9, 3.481647548996483^9, 3.4816482572837*^9,
346	3.481654602881448^9, 3.483022096104306^9, 3.483441447414538*^9,
347	3.483444030258551^9, 3.483696294277061^9, 3.483696441365173*^9,
348	3.488889159485963^9, 3.490428344051142^9, 3.490428455030256*^9,
349	3.490605344462699^9, 3.490814693294052^9, 3.491288863779177*^9,
350	3.491303801941978^9, 3.491303991476303^9, 3.491304652911572*^9,
351	3.491306279669183^9, 3.491306866172633^9, 3.492965609545695*^9,
352	3.493013335844268^9, 3.493014170320645^9, 3.493014785979743*^9,
353	3.493036083229056^9, 3.493110303258415^9, 3.493110611544669*^9,
354	3.493111966094203^9, 3.493113074239531^9, 3.493114294066177*^9,
355	3.493115256325878^9, 3.493116751986789^9, 3.493118863880127*^9,
356	3.493119332295832^9, 3.493120893711637^9, 3.493122001074701*^9,
357	3.493122919104534^9, 3.493123645202591^9, 3.493124171634506*^9,
358	3.493124448709216^9, 3.493124515182798^9, 3.493124951298302*^9,
359	3.493125415906132^9, 3.493125666843701^9, 3.493126236797454*^9,
360	3.493174542238378^9, 3.493183554988619^9, {3.496650852981347*^9,
361	3.496650873355477^9}, 3.497006568309196^9, {3.497007161969832*^9,
362	3.497007187289688^9}, 3.497007235644422^9, 3.497007758741729*^9,
363	3.497012400154595^9, 3.497080174514282^9, 3.497081056897665*^9,
364	3.497082460970443^9, 3.497084362991616^9, 3.497084401553769*^9,
365	3.497169827305061^9, 3.49717158973341^9, 3.497171758102639*^9,
366	3.497172093869636^9, 3.497174991192086^9, 3.497185769567561*^9,
367	3.497186256252353^9, 3.49718749369645^9, 3.497254256770513*^9,
368	3.49728209743195^9, 3.497345781360556^9, 3.497449290772636*^9}],
369
370	Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
371	FRPalette[].\"\>"], "Print",
372	CellChangeTimes->{
373	3.445529814787496^9, 3.445533025293488^9, 3.445535198536064*^9,
374	3.445546049937073^9, 3.445548797753678^9, 3.445549098311731*^9,
375	3.445588383990693^9, 3.445627806754886^9, 3.445627984946419*^9,
376	3.445628053839826^9, 3.445628666487432^9, 3.445630662691926*^9,
377	3.445631760047992^9, 3.445631865651937^9, 3.445631962504141*^9, {
378	3.4457531303929^9, 3.445753158762741^9}, 3.445879730990545*^9,
379	3.445879793985706^9, 3.445883397164449^9, 3.445972311319879*^9,
380	3.445974227771637^9, 3.446292149633505^9, 3.446292462398337*^9,
381	3.446292548128168^9, 3.4462926976046^9, 3.476195969575441*^9,
382	3.478338790840331^9, 3.478343868536508^9, 3.478344047983948*^9, {
383	3.480094146350314^9, 3.480094157103242^9}, 3.480137908531589*^9,
384	3.480148255369634^9, 3.480150718618345^9, 3.480162727366457*^9,
385	3.480334913979917^9, 3.480337138121744^9, 3.480415435023273*^9,
386	3.480416213916008^9, 3.480495431488316^9, 3.480495619819866*^9,
387	3.481447065900251^9, 3.481447351599817^9, 3.481644755751576*^9,
388	3.481644790207347^9, 3.481645055032385^9, 3.481645156232592*^9,
389	3.481645260311283^9, 3.481645727809657^9, 3.481647353819152*^9,
390	3.481647456396417^9, 3.481647548996483^9, 3.4816482572837*^9,
391	3.481654602881448^9, 3.483022096104306^9, 3.483441447414538*^9,
392	3.483444030258551^9, 3.483696294277061^9, 3.483696441365173*^9,
393	3.488889159485963^9, 3.490428344051142^9, 3.490428455030256*^9,
394	3.490605344462699^9, 3.490814693294052^9, 3.491288863779177*^9,
395	3.491303801941978^9, 3.491303991476303^9, 3.491304652911572*^9,
396	3.491306279669183^9, 3.491306866172633^9, 3.492965609545695*^9,
397	3.493013335844268^9, 3.493014170320645^9, 3.493014785979743*^9,
398	3.493036083229056^9, 3.493110303258415^9, 3.493110611544669*^9,
399	3.493111966094203^9, 3.493113074239531^9, 3.493114294066177*^9,
400	3.493115256325878^9, 3.493116751986789^9, 3.493118863880127*^9,
401	3.493119332295832^9, 3.493120893711637^9, 3.493122001074701*^9,
402	3.493122919104534^9, 3.493123645202591^9, 3.493124171634506*^9,
403	3.493124448709216^9, 3.493124515182798^9, 3.493124951298302*^9,
404	3.493125415906132^9, 3.493125666843701^9, 3.493126236797454*^9,
405	3.493174542238378^9, 3.493183554988619^9, {3.496650852981347*^9,
406	3.496650873355477^9}, 3.497006568309196^9, {3.497007161969832*^9,
407	3.497007187289688^9}, 3.497007235644422^9, 3.497007758741729*^9,
408	3.497012400154595^9, 3.497080174514282^9, 3.497081056897665*^9,
409	3.497082460970443^9, 3.497084362991616^9, 3.497084401553769*^9,
410	3.497169827305061^9, 3.49717158973341^9, 3.497171758102639*^9,
411	3.497172093869636^9, 3.497174991192086^9, 3.497185769567561*^9,
412	3.497186256252353^9, 3.49718749369645^9, 3.497254256770513*^9,
413	3.49728209743195^9, 3.497345781360556^9, 3.49744929079196*^9}]
414	}, Open ]]
415	}, Open ]],
416
417	Cell[CellGroupData[{
418
419	Cell[BoxData[
420	RowBox[{"LoadModel", "[", "\"\<MWT_101030.fr\>\"", "]"}]], "Input",
421	CellChangeTimes->CompressedData["
422	1:eJxTTMoPSmViYGCQBGIQrXRsjSTD6peOd8rEpUC0YtanV+5AeuPvz2DaeOrF
423	rjIgfYPxGpi+meGTxLrmpaP+tBow3fboS0kdkLY08SoF0bsmTpm1BkgvVtgJ
424	potvZe51X/vS0dZjNpje99NQIuvVS8fd09vA9N0jJp5m7146npFMBtOx/k+v
425	bf3w0nGCY811EM3z7f/k+V9eOt4q1JwCovO41qq3/3vpyHTVXgNENzpM3FrG
426	+Mrx8G7NbSD6Q3fMQynmV45H+arAtOpebXclIG2n6ACmk/aUzPFle+V4kXUx
427	mL4QVPo6BUivnLodTMd8/vB/O5Ce3MPIsANIM/Xl8obyvnIMmlAJppnjLdiY
428	+V458j+xAtOVZ5evUQPSi3+sB9N6/5cKRwPpbY0rwXR2c9e6aiAdpjUZTC/v
429	4IhbAaSP2UuC6abGfc9vAWkvl9NgGgCeUMdq
430	"]],
431
432	Cell[CellGroupData[{
433
434	Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
435	CellChangeTimes->{
436	3.446292151836282^9, 3.446292465119467^9, 3.446292551370256*^9,
437	3.446292699837127^9, 3.476195973935181^9, 3.478338795152881*^9,
438	3.47834387678723^9, {3.478344035617289^9, 3.478344050493314*^9},
439	3.480094160097415^9, 3.480137911342136^9, 3.480148256776046*^9,
440	3.480150725804023^9, 3.480162729503479^9, 3.480334923749774*^9,
441	3.480337147713022^9, 3.480415437673998^9, 3.480416217032306*^9,
442	3.480495434712065^9, 3.480495623564114^9, 3.481447357838562*^9,
443	3.481644793273505^9, 3.481645056979512^9, 3.481645157399932*^9,
444	3.481645262398251^9, 3.481645730744913^9, 3.481647356240671*^9,
445	3.481647458607816^9, 3.481647550988115^9, 3.481648259208128*^9,
446	3.481654605713771^9, 3.483022100354922^9, 3.483441490545062*^9,
447	3.483444031322598^9, 3.483696298050903^9, 3.483696442455252*^9,
448	3.488889168919401^9, 3.490428346206765^9, 3.490428456804011*^9,
449	3.490605346502275^9, 3.490814696518682^9, 3.491288884470282*^9,
450	3.491303804739013^9, 3.491303994664745^9, 3.491304654049004*^9,
451	3.491306281002745^9, 3.491306867564154^9, 3.492965614039865*^9,
452	3.493013343070584^9, 3.493014171206565^9, 3.49301478681043*^9,
453	3.493036085853047^9, 3.493110613671768^9, 3.493111968143056*^9,
454	3.493113076380066^9, 3.493114296482063^9, 3.49311525826945*^9,
455	3.49311675400041^9, 3.493118865849079^9, 3.493119334679893*^9,
456	3.493120895254715^9, 3.493122002675458^9, 3.493122921559642*^9,
457	3.493123648880871^9, 3.493124174499801^9, 3.493124519401172*^9,
458	3.493124954443937^9, 3.493125418467556^9, 3.493125669458642*^9,
459	3.493126242200436^9, 3.493174543448708^9, 3.493183556934246*^9, {
460	3.496650854980759^9, 3.496650875690516^9}, 3.49700657182268*^9,
461	3.497007189764868^9, 3.497007238051462^9, 3.497007792440126*^9,
462	3.497012406759518^9, 3.497080176321776^9, 3.497081061593162*^9,
463	3.497082463125398^9, 3.497084365810432^9, 3.497084403660704*^9,
464	3.497169828960106^9, 3.497171590975637^9, 3.497171760215849*^9,
465	3.497172096137148^9, 3.497174992794543^9, 3.497185771587546*^9,
466	3.497186258321594^9, 3.497187496719994^9, 3.497254261347176*^9,
467	3.497282099400604^9, 3.49734578467326^9, 3.497449295293721*^9}],
468
469	Cell[BoxData["\<\"M. Jarvinen\"\>"], "Print",
470	CellChangeTimes->{
471	3.446292151836282^9, 3.446292465119467^9, 3.446292551370256*^9,
472	3.446292699837127^9, 3.476195973935181^9, 3.478338795152881*^9,
473	3.47834387678723^9, {3.478344035617289^9, 3.478344050493314*^9},
474	3.480094160097415^9, 3.480137911342136^9, 3.480148256776046*^9,
475	3.480150725804023^9, 3.480162729503479^9, 3.480334923749774*^9,
476	3.480337147713022^9, 3.480415437673998^9, 3.480416217032306*^9,
477	3.480495434712065^9, 3.480495623564114^9, 3.481447357838562*^9,
478	3.481644793273505^9, 3.481645056979512^9, 3.481645157399932*^9,
479	3.481645262398251^9, 3.481645730744913^9, 3.481647356240671*^9,
480	3.481647458607816^9, 3.481647550988115^9, 3.481648259208128*^9,
481	3.481654605713771^9, 3.483022100354922^9, 3.483441490545062*^9,
482	3.483444031322598^9, 3.483696298050903^9, 3.483696442455252*^9,
483	3.488889168919401^9, 3.490428346206765^9, 3.490428456804011*^9,
484	3.490605346502275^9, 3.490814696518682^9, 3.491288884470282*^9,
485	3.491303804739013^9, 3.491303994664745^9, 3.491304654049004*^9,
486	3.491306281002745^9, 3.491306867564154^9, 3.492965614039865*^9,
487	3.493013343070584^9, 3.493014171206565^9, 3.49301478681043*^9,
488	3.493036085853047^9, 3.493110613671768^9, 3.493111968143056*^9,
489	3.493113076380066^9, 3.493114296482063^9, 3.49311525826945*^9,
490	3.49311675400041^9, 3.493118865849079^9, 3.493119334679893*^9,
491	3.493120895254715^9, 3.493122002675458^9, 3.493122921559642*^9,
492	3.493123648880871^9, 3.493124174499801^9, 3.493124519401172*^9,
493	3.493124954443937^9, 3.493125418467556^9, 3.493125669458642*^9,
494	3.493126242200436^9, 3.493174543448708^9, 3.493183556934246*^9, {
495	3.496650854980759^9, 3.496650875690516^9}, 3.49700657182268*^9,
496	3.497007189764868^9, 3.497007238051462^9, 3.497007792440126*^9,
497	3.497012406759518^9, 3.497080176321776^9, 3.497081061593162*^9,
498	3.497082463125398^9, 3.497084365810432^9, 3.497084403660704*^9,
499	3.497169828960106^9, 3.497171590975637^9, 3.497171760215849*^9,
500	3.497172096137148^9, 3.497174992794543^9, 3.497185771587546*^9,
501	3.497186258321594^9, 3.497187496719994^9, 3.497254261347176*^9,
502	3.497282099400604^9, 3.49734578467326^9, 3.497449295414796*^9}],
503
504	Cell[BoxData[
505	InterpretationBox[
506	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.\"\>"}],
507	SequenceForm["Model Version: ", "1."],
508	Editable->False]], "Print",
509	CellChangeTimes->{
510	3.446292151836282^9, 3.446292465119467^9, 3.446292551370256*^9,
511	3.446292699837127^9, 3.476195973935181^9, 3.478338795152881*^9,
512	3.47834387678723^9, {3.478344035617289^9, 3.478344050493314*^9},
513	3.480094160097415^9, 3.480137911342136^9, 3.480148256776046*^9,
514	3.480150725804023^9, 3.480162729503479^9, 3.480334923749774*^9,
515	3.480337147713022^9, 3.480415437673998^9, 3.480416217032306*^9,
516	3.480495434712065^9, 3.480495623564114^9, 3.481447357838562*^9,
517	3.481644793273505^9, 3.481645056979512^9, 3.481645157399932*^9,
518	3.481645262398251^9, 3.481645730744913^9, 3.481647356240671*^9,
519	3.481647458607816^9, 3.481647550988115^9, 3.481648259208128*^9,
520	3.481654605713771^9, 3.483022100354922^9, 3.483441490545062*^9,
521	3.483444031322598^9, 3.483696298050903^9, 3.483696442455252*^9,
522	3.488889168919401^9, 3.490428346206765^9, 3.490428456804011*^9,
523	3.490605346502275^9, 3.490814696518682^9, 3.491288884470282*^9,
524	3.491303804739013^9, 3.491303994664745^9, 3.491304654049004*^9,
525	3.491306281002745^9, 3.491306867564154^9, 3.492965614039865*^9,
526	3.493013343070584^9, 3.493014171206565^9, 3.49301478681043*^9,
527	3.493036085853047^9, 3.493110613671768^9, 3.493111968143056*^9,
528	3.493113076380066^9, 3.493114296482063^9, 3.49311525826945*^9,
529	3.49311675400041^9, 3.493118865849079^9, 3.493119334679893*^9,
530	3.493120895254715^9, 3.493122002675458^9, 3.493122921559642*^9,
531	3.493123648880871^9, 3.493124174499801^9, 3.493124519401172*^9,
532	3.493124954443937^9, 3.493125418467556^9, 3.493125669458642*^9,
533	3.493126242200436^9, 3.493174543448708^9, 3.493183556934246*^9, {
534	3.496650854980759^9, 3.496650875690516^9}, 3.49700657182268*^9,
535	3.497007189764868^9, 3.497007238051462^9, 3.497007792440126*^9,
536	3.497012406759518^9, 3.497080176321776^9, 3.497081061593162*^9,
537	3.497082463125398^9, 3.497084365810432^9, 3.497084403660704*^9,
538	3.497169828960106^9, 3.497171590975637^9, 3.497171760215849*^9,
539	3.497172096137148^9, 3.497174992794543^9, 3.497185771587546*^9,
540	3.497186258321594^9, 3.497187496719994^9, 3.497254261347176*^9,
541	3.497282099400604^9, 3.49734578467326^9, 3.497449295432538*^9}],
542
543	Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
544	"Print",
545	CellChangeTimes->{
546	3.446292151836282^9, 3.446292465119467^9, 3.446292551370256*^9,
547	3.446292699837127^9, 3.476195973935181^9, 3.478338795152881*^9,
548	3.47834387678723^9, {3.478344035617289^9, 3.478344050493314*^9},
549	3.480094160097415^9, 3.480137911342136^9, 3.480148256776046*^9,
550	3.480150725804023^9, 3.480162729503479^9, 3.480334923749774*^9,
551	3.480337147713022^9, 3.480415437673998^9, 3.480416217032306*^9,
552	3.480495434712065^9, 3.480495623564114^9, 3.481447357838562*^9,
553	3.481644793273505^9, 3.481645056979512^9, 3.481645157399932*^9,
554	3.481645262398251^9, 3.481645730744913^9, 3.481647356240671*^9,
555	3.481647458607816^9, 3.481647550988115^9, 3.481648259208128*^9,
556	3.481654605713771^9, 3.483022100354922^9, 3.483441490545062*^9,
557	3.483444031322598^9, 3.483696298050903^9, 3.483696442455252*^9,
558	3.488889168919401^9, 3.490428346206765^9, 3.490428456804011*^9,
559	3.490605346502275^9, 3.490814696518682^9, 3.491288884470282*^9,
560	3.491303804739013^9, 3.491303994664745^9, 3.491304654049004*^9,
561	3.491306281002745^9, 3.491306867564154^9, 3.492965614039865*^9,
562	3.493013343070584^9, 3.493014171206565^9, 3.49301478681043*^9,
563	3.493036085853047^9, 3.493110613671768^9, 3.493111968143056*^9,
564	3.493113076380066^9, 3.493114296482063^9, 3.49311525826945*^9,
565	3.49311675400041^9, 3.493118865849079^9, 3.493119334679893*^9,
566	3.493120895254715^9, 3.493122002675458^9, 3.493122921559642*^9,
567	3.493123648880871^9, 3.493124174499801^9, 3.493124519401172*^9,
568	3.493124954443937^9, 3.493125418467556^9, 3.493125669458642*^9,
569	3.493126242200436^9, 3.493174543448708^9, 3.493183556934246*^9, {
570	3.496650854980759^9, 3.496650875690516^9}, 3.49700657182268*^9,
571	3.497007189764868^9, 3.497007238051462^9, 3.497007792440126*^9,
572	3.497012406759518^9, 3.497080176321776^9, 3.497081061593162*^9,
573	3.497082463125398^9, 3.497084365810432^9, 3.497084403660704*^9,
574	3.497169828960106^9, 3.497171590975637^9, 3.497171760215849*^9,
575	3.497172096137148^9, 3.497174992794543^9, 3.497185771587546*^9,
576	3.497186258321594^9, 3.497187496719994^9, 3.497254261347176*^9,
577	3.497282099400604^9, 3.49734578467326^9, 3.497449295451504*^9}],
578
579	Cell[BoxData["\<\"\"\>"], "Print",
580	CellChangeTimes->{
581	3.446292151836282^9, 3.446292465119467^9, 3.446292551370256*^9,
582	3.446292699837127^9, 3.476195973935181^9, 3.478338795152881*^9,
583	3.47834387678723^9, {3.478344035617289^9, 3.478344050493314*^9},
584	3.480094160097415^9, 3.480137911342136^9, 3.480148256776046*^9,
585	3.480150725804023^9, 3.480162729503479^9, 3.480334923749774*^9,
586	3.480337147713022^9, 3.480415437673998^9, 3.480416217032306*^9,
587	3.480495434712065^9, 3.480495623564114^9, 3.481447357838562*^9,
588	3.481644793273505^9, 3.481645056979512^9, 3.481645157399932*^9,
589	3.481645262398251^9, 3.481645730744913^9, 3.481647356240671*^9,
590	3.481647458607816^9, 3.481647550988115^9, 3.481648259208128*^9,
591	3.481654605713771^9, 3.483022100354922^9, 3.483441490545062*^9,
592	3.483444031322598^9, 3.483696298050903^9, 3.483696442455252*^9,
593	3.488889168919401^9, 3.490428346206765^9, 3.490428456804011*^9,
594	3.490605346502275^9, 3.490814696518682^9, 3.491288884470282*^9,
595	3.491303804739013^9, 3.491303994664745^9, 3.491304654049004*^9,
596	3.491306281002745^9, 3.491306867564154^9, 3.492965614039865*^9,
597	3.493013343070584^9, 3.493014171206565^9, 3.49301478681043*^9,
598	3.493036085853047^9, 3.493110613671768^9, 3.493111968143056*^9,
599	3.493113076380066^9, 3.493114296482063^9, 3.49311525826945*^9,
600	3.49311675400041^9, 3.493118865849079^9, 3.493119334679893*^9,
601	3.493120895254715^9, 3.493122002675458^9, 3.493122921559642*^9,
602	3.493123648880871^9, 3.493124174499801^9, 3.493124519401172*^9,
603	3.493124954443937^9, 3.493125418467556^9, 3.493125669458642*^9,
604	3.493126242200436^9, 3.493174543448708^9, 3.493183556934246*^9, {
605	3.496650854980759^9, 3.496650875690516^9}, 3.49700657182268*^9,
606	3.497007189764868^9, 3.497007238051462^9, 3.497007792440126*^9,
607	3.497012406759518^9, 3.497080176321776^9, 3.497081061593162*^9,
608	3.497082463125398^9, 3.497084365810432^9, 3.497084403660704*^9,
609	3.497169828960106^9, 3.497171590975637^9, 3.497171760215849*^9,
610	3.497172096137148^9, 3.497174992794543^9, 3.497185771587546*^9,
611	3.497186258321594^9, 3.497187496719994^9, 3.497254261347176*^9,
612	3.497282099400604^9, 3.49734578467326^9, 3.497449295469092*^9}],
613
614	Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
615	CellChangeTimes->{
616	3.446292151836282^9, 3.446292465119467^9, 3.446292551370256*^9,
617	3.446292699837127^9, 3.476195973935181^9, 3.478338795152881*^9,
618	3.47834387678723^9, {3.478344035617289^9, 3.478344050493314*^9},
619	3.480094160097415^9, 3.480137911342136^9, 3.480148256776046*^9,
620	3.480150725804023^9, 3.480162729503479^9, 3.480334923749774*^9,
621	3.480337147713022^9, 3.480415437673998^9, 3.480416217032306*^9,
622	3.480495434712065^9, 3.480495623564114^9, 3.481447357838562*^9,
623	3.481644793273505^9, 3.481645056979512^9, 3.481645157399932*^9,
624	3.481645262398251^9, 3.481645730744913^9, 3.481647356240671*^9,
625	3.481647458607816^9, 3.481647550988115^9, 3.481648259208128*^9,
626	3.481654605713771^9, 3.483022100354922^9, 3.483441490545062*^9,
627	3.483444031322598^9, 3.483696298050903^9, 3.483696442455252*^9,
628	3.488889168919401^9, 3.490428346206765^9, 3.490428456804011*^9,
629	3.490605346502275^9, 3.490814696518682^9, 3.491288884470282*^9,
630	3.491303804739013^9, 3.491303994664745^9, 3.491304654049004*^9,
631	3.491306281002745^9, 3.491306867564154^9, 3.492965614039865*^9,
632	3.493013343070584^9, 3.493014171206565^9, 3.49301478681043*^9,
633	3.493036085853047^9, 3.493110613671768^9, 3.493111968143056*^9,
634	3.493113076380066^9, 3.493114296482063^9, 3.49311525826945*^9,
635	3.49311675400041^9, 3.493118865849079^9, 3.493119334679893*^9,
636	3.493120895254715^9, 3.493122002675458^9, 3.493122921559642*^9,
637	3.493123648880871^9, 3.493124174499801^9, 3.493124519401172*^9,
638	3.493124954443937^9, 3.493125418467556^9, 3.493125669458642*^9,
639	3.493126242200436^9, 3.493174543448708^9, 3.493183556934246*^9, {
640	3.496650854980759^9, 3.496650875690516^9}, 3.49700657182268*^9,
641	3.497007189764868^9, 3.497007238051462^9, 3.497007792440126*^9,
642	3.497012406759518^9, 3.497080176321776^9, 3.497081061593162*^9,
643	3.497082463125398^9, 3.497084365810432^9, 3.497084403660704*^9,
644	3.497169828960106^9, 3.497171590975637^9, 3.497171760215849*^9,
645	3.497172096137148^9, 3.497174992794543^9, 3.497185771587546*^9,
646	3.497186258321594^9, 3.497187496719994^9, 3.497254261347176*^9,
647	3.497282099400604^9, 3.49734578467326^9, 3.497449295486467*^9}],
648
649	Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
650	CellChangeTimes->{
651	3.446292151836282^9, 3.446292465119467^9, 3.446292551370256*^9,
652	3.446292699837127^9, 3.476195973935181^9, 3.478338795152881*^9,
653	3.47834387678723^9, {3.478344035617289^9, 3.478344050493314*^9},
654	3.480094160097415^9, 3.480137911342136^9, 3.480148256776046*^9,
655	3.480150725804023^9, 3.480162729503479^9, 3.480334923749774*^9,
656	3.480337147713022^9, 3.480415437673998^9, 3.480416217032306*^9,
657	3.480495434712065^9, 3.480495623564114^9, 3.481447357838562*^9,
658	3.481644793273505^9, 3.481645056979512^9, 3.481645157399932*^9,
659	3.481645262398251^9, 3.481645730744913^9, 3.481647356240671*^9,
660	3.481647458607816^9, 3.481647550988115^9, 3.481648259208128*^9,
661	3.481654605713771^9, 3.483022100354922^9, 3.483441490545062*^9,
662	3.483444031322598^9, 3.483696298050903^9, 3.483696442455252*^9,
663	3.488889168919401^9, 3.490428346206765^9, 3.490428456804011*^9,
664	3.490605346502275^9, 3.490814696518682^9, 3.491288884470282*^9,
665	3.491303804739013^9, 3.491303994664745^9, 3.491304654049004*^9,
666	3.491306281002745^9, 3.491306867564154^9, 3.492965614039865*^9,
667	3.493013343070584^9, 3.493014171206565^9, 3.49301478681043*^9,
668	3.493036085853047^9, 3.493110613671768^9, 3.493111968143056*^9,
669	3.493113076380066^9, 3.493114296482063^9, 3.49311525826945*^9,
670	3.49311675400041^9, 3.493118865849079^9, 3.493119334679893*^9,
671	3.493120895254715^9, 3.493122002675458^9, 3.493122921559642*^9,
672	3.493123648880871^9, 3.493124174499801^9, 3.493124519401172*^9,
673	3.493124954443937^9, 3.493125418467556^9, 3.493125669458642*^9,
674	3.493126242200436^9, 3.493174543448708^9, 3.493183556934246*^9, {
675	3.496650854980759^9, 3.496650875690516^9}, 3.49700657182268*^9,
676	3.497007189764868^9, 3.497007238051462^9, 3.497007792440126*^9,
677	3.497012406759518^9, 3.497080176321776^9, 3.497081061593162*^9,
678	3.497082463125398^9, 3.497084365810432^9, 3.497084403660704*^9,
679	3.497169828960106^9, 3.497171590975637^9, 3.497171760215849*^9,
680	3.497172096137148^9, 3.497174992794543^9, 3.497185771587546*^9,
681	3.497186258321594^9, 3.497187496719994^9, 3.497254261347176*^9,
682	3.497282099400604^9, 3.49734578467326^9, 3.497449295897243*^9}],
683
684	Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
685	CellChangeTimes->{
686	3.446292151836282^9, 3.446292465119467^9, 3.446292551370256*^9,
687	3.446292699837127^9, 3.476195973935181^9, 3.478338795152881*^9,
688	3.47834387678723^9, {3.478344035617289^9, 3.478344050493314*^9},
689	3.480094160097415^9, 3.480137911342136^9, 3.480148256776046*^9,
690	3.480150725804023^9, 3.480162729503479^9, 3.480334923749774*^9,
691	3.480337147713022^9, 3.480415437673998^9, 3.480416217032306*^9,
692	3.480495434712065^9, 3.480495623564114^9, 3.481447357838562*^9,
693	3.481644793273505^9, 3.481645056979512^9, 3.481645157399932*^9,
694	3.481645262398251^9, 3.481645730744913^9, 3.481647356240671*^9,
695	3.481647458607816^9, 3.481647550988115^9, 3.481648259208128*^9,
696	3.481654605713771^9, 3.483022100354922^9, 3.483441490545062*^9,
697	3.483444031322598^9, 3.483696298050903^9, 3.483696442455252*^9,
698	3.488889168919401^9, 3.490428346206765^9, 3.490428456804011*^9,
699	3.490605346502275^9, 3.490814696518682^9, 3.491288884470282*^9,
700	3.491303804739013^9, 3.491303994664745^9, 3.491304654049004*^9,
701	3.491306281002745^9, 3.491306867564154^9, 3.492965614039865*^9,
702	3.493013343070584^9, 3.493014171206565^9, 3.49301478681043*^9,
703	3.493036085853047^9, 3.493110613671768^9, 3.493111968143056*^9,
704	3.493113076380066^9, 3.493114296482063^9, 3.49311525826945*^9,
705	3.49311675400041^9, 3.493118865849079^9, 3.493119334679893*^9,
706	3.493120895254715^9, 3.493122002675458^9, 3.493122921559642*^9,
707	3.493123648880871^9, 3.493124174499801^9, 3.493124519401172*^9,
708	3.493124954443937^9, 3.493125418467556^9, 3.493125669458642*^9,
709	3.493126242200436^9, 3.493174543448708^9, 3.493183556934246*^9, {
710	3.496650854980759^9, 3.496650875690516^9}, 3.49700657182268*^9,
711	3.497007189764868^9, 3.497007238051462^9, 3.497007792440126*^9,
712	3.497012406759518^9, 3.497080176321776^9, 3.497081061593162*^9,
713	3.497082463125398^9, 3.497084365810432^9, 3.497084403660704*^9,
714	3.497169828960106^9, 3.497171590975637^9, 3.497171760215849*^9,
715	3.497172096137148^9, 3.497174992794543^9, 3.497185771587546*^9,
716	3.497186258321594^9, 3.497187496719994^9, 3.497254261347176*^9,
717	3.497282099400604^9, 3.49734578467326^9, 3.497449296132055*^9}],
718
719	Cell[BoxData[
720	InterpretationBox[
721	RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"MWT\"\>",
722	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
723	SequenceForm["\nModel ", "MWT", " loaded."],
724	Editable->False]], "Print",
725	CellChangeTimes->{
726	3.446292151836282^9, 3.446292465119467^9, 3.446292551370256*^9,
727	3.446292699837127^9, 3.476195973935181^9, 3.478338795152881*^9,
728	3.47834387678723^9, {3.478344035617289^9, 3.478344050493314*^9},
729	3.480094160097415^9, 3.480137911342136^9, 3.480148256776046*^9,
730	3.480150725804023^9, 3.480162729503479^9, 3.480334923749774*^9,
731	3.480337147713022^9, 3.480415437673998^9, 3.480416217032306*^9,
732	3.480495434712065^9, 3.480495623564114^9, 3.481447357838562*^9,
733	3.481644793273505^9, 3.481645056979512^9, 3.481645157399932*^9,
734	3.481645262398251^9, 3.481645730744913^9, 3.481647356240671*^9,
735	3.481647458607816^9, 3.481647550988115^9, 3.481648259208128*^9,
736	3.481654605713771^9, 3.483022100354922^9, 3.483441490545062*^9,
737	3.483444031322598^9, 3.483696298050903^9, 3.483696442455252*^9,
738	3.488889168919401^9, 3.490428346206765^9, 3.490428456804011*^9,
739	3.490605346502275^9, 3.490814696518682^9, 3.491288884470282*^9,
740	3.491303804739013^9, 3.491303994664745^9, 3.491304654049004*^9,
741	3.491306281002745^9, 3.491306867564154^9, 3.492965614039865*^9,
742	3.493013343070584^9, 3.493014171206565^9, 3.49301478681043*^9,
743	3.493036085853047^9, 3.493110613671768^9, 3.493111968143056*^9,
744	3.493113076380066^9, 3.493114296482063^9, 3.49311525826945*^9,
745	3.49311675400041^9, 3.493118865849079^9, 3.493119334679893*^9,
746	3.493120895254715^9, 3.493122002675458^9, 3.493122921559642*^9,
747	3.493123648880871^9, 3.493124174499801^9, 3.493124519401172*^9,
748	3.493124954443937^9, 3.493125418467556^9, 3.493125669458642*^9,
749	3.493126242200436^9, 3.493174543448708^9, 3.493183556934246*^9, {
750	3.496650854980759^9, 3.496650875690516^9}, 3.49700657182268*^9,
751	3.497007189764868^9, 3.497007238051462^9, 3.497007792440126*^9,
752	3.497012406759518^9, 3.497080176321776^9, 3.497081061593162*^9,
753	3.497082463125398^9, 3.497084365810432^9, 3.497084403660704*^9,
754	3.497169828960106^9, 3.497171590975637^9, 3.497171760215849*^9,
755	3.497172096137148^9, 3.497174992794543^9, 3.497185771587546*^9,
756	3.497186258321594^9, 3.497187496719994^9, 3.497254261347176*^9,
757	3.497282099400604^9, 3.49734578467326^9, 3.497449296370306*^9}]
758	}, Open ]]
759	}, Open ]]
760	}, Open ]],
761
762	Cell[CellGroupData[{
763
764	Cell["Writing CalcHEP and Madgraph output", "Section",
765	CellChangeTimes->{{3.493183368341105^9, 3.493183373693058^9}, {
766	3.493183442612217^9, 3.493183450956239^9}}],
767
768	Cell[CellGroupData[{
769
770	Cell[BoxData[{
771	RowBox[{
772	RowBox[{"FeynmanGauge", "=", "True"}], ";"}], "\[IndentingNewLine]",
773	RowBox[{
774	RowBox[{"SetDirectory", "[",
775	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/NMWT\>\""}], "]"}],
776	";"}], "\[IndentingNewLine]",
777	RowBox[{"WriteCHOutput", "[",
778	RowBox[{"LMWT", ",",
779	RowBox[{"MaxExpressionLength", "\[Rule]", "450"}], ",",
780	RowBox[{"ModelNumber", "\[Rule]", "88"}], ",",
781	RowBox[{"CHAutoWidths", "\[Rule]", "True"}]}], "]"}]}], "Input",
782	CellChangeTimes->{{3.446292959394525^9, 3.446292959729409^9}, {
783	3.490614118324001^9, 3.490614119413694^9}, {3.49296571229781*^9,
784	3.492965718088624^9}, {3.493014840488783^9, 3.493014841952615*^9}, {
785	3.493014883236043^9, 3.493014889019404^9}, {3.493110311601744*^9,
786	3.493110315478863^9}, 3.4931127941746492`^9, {3.493122166303744*^9,
787	3.493122166757158^9}, {3.493183541582391^9, 3.493183543804889*^9}, {
788	3.497082522287651^9, 3.497082544186772^9}, {3.49708512700536*^9,
789	3.49708512793025^9}, {3.497169854995356^9, 3.49716985705921*^9},
790	3.497348335987636*^9}],
791
792	Cell[CellGroupData[{
793
794	Cell[BoxData["\<\" - - - FeynRules interface to CalcHep - - -\"\>"], "Print",
795	CellChangeTimes->{
796	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
797	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
798	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
799	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
800	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
801	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
802	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
803	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
804	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
805	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
806	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
807	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
808	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
809	3.49734833763166^9}, 3.497449403753361^9}],
810
811	Cell[BoxData[
812	InterpretationBox[
813	RowBox[{
814	StyleBox["\<\"\\nAuthors:\"\>",
815	StripOnInput->False,
816	FrontFaceColor->RGBColor[0, 0, 1],
817	BackFaceColor->RGBColor[0, 0, 1],
818	GraphicsColor->RGBColor[0, 0, 1],
819	FontColor->RGBColor[0, 0, 1]],
820	"\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
821	SequenceForm[
822	Style["\nAuthors:",
823	RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
824	Editable->False]], "Print",
825	CellChangeTimes->{
826	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
827	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
828	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
829	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
830	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
831	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
832	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
833	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
834	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
835	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
836	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
837	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
838	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
839	3.49734833763166^9}, 3.497449403778441^9}],
840
841	Cell[BoxData[
842	InterpretationBox[
843	RowBox[{
844	StyleBox["\<\"\\nWriting\"\>",
845	StripOnInput->False,
846	FrontFaceColor->RGBColor[0, 0, 1],
847	BackFaceColor->RGBColor[0, 0, 1],
848	GraphicsColor->RGBColor[0, 0, 1],
849	FontColor->RGBColor[0, 0, 1]],
850	"\[InvisibleSpace]", "\<\" files to \
851	/home/mjarvine/tyo/mathematica/FeynRules1.4.10/Models/NMWT/MWT-CH.\"\>"}],
852	SequenceForm[
853	Style["\nWriting",
854	RGBColor[0, 0, 1]],
855	" files to \
856	/home/mjarvine/tyo/mathematica/FeynRules1.4.10/Models/NMWT/MWT-CH."],
857	Editable->False]], "Print",
858	CellChangeTimes->{
859	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
860	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
861	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
862	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
863	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
864	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
865	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
866	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
867	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
868	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
869	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
870	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
871	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
872	3.49734833763166^9}, 3.497449403787871^9}],
873
874	Cell[BoxData[
875	InterpretationBox[
876	RowBox[{
877	StyleBox["\<\"\\nWriting\"\>",
878	StripOnInput->False,
879	FrontFaceColor->RGBColor[0, 0, 1],
880	BackFaceColor->RGBColor[0, 0, 1],
881	GraphicsColor->RGBColor[0, 0, 1],
882	FontColor->RGBColor[0, 0, 1]],
883	"\[InvisibleSpace]", "\<\" particles file 'prtcls88.mdl'.\"\>"}],
884	SequenceForm[
885	Style["\nWriting",
886	RGBColor[0, 0, 1]], " particles file 'prtcls88.mdl'."],
887	Editable->False]], "Print",
888	CellChangeTimes->{
889	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
890	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
891	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
892	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
893	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
894	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
895	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
896	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
897	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
898	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
899	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
900	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
901	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
902	3.49734833763166^9}, 3.497449403797923^9}],
903
904	Cell[BoxData[
905	InterpretationBox[
906	RowBox[{
907	StyleBox["\<\"\\nWriting\"\>",
908	StripOnInput->False,
909	FrontFaceColor->RGBColor[0, 0, 1],
910	BackFaceColor->RGBColor[0, 0, 1],
911	GraphicsColor->RGBColor[0, 0, 1],
912	FontColor->RGBColor[0, 0, 1]],
913	"\[InvisibleSpace]", "\<\" external parameter file 'vars88.mdl'.\"\>"}],
914	SequenceForm[
915	Style["\nWriting",
916	RGBColor[0, 0, 1]], " external parameter file 'vars88.mdl'."],
917	Editable->False]], "Print",
918	CellChangeTimes->{
919	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
920	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
921	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
922	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
923	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
924	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
925	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
926	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
927	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
928	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
929	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
930	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
931	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
932	3.49734833763166^9}, 3.497449403949348^9}],
933
934	Cell[BoxData[
935	InterpretationBox[
936	RowBox[{
937	StyleBox["\<\"\\nWriting\"\>",
938	StripOnInput->False,
939	FrontFaceColor->RGBColor[0, 0, 1],
940	BackFaceColor->RGBColor[0, 0, 1],
941	GraphicsColor->RGBColor[0, 0, 1],
942	FontColor->RGBColor[0, 0, 1]],
943	"\[InvisibleSpace]", "\<\" internal parameter file 'func88.mdl'.\"\>"}],
944	SequenceForm[
945	Style["\nWriting",
946	RGBColor[0, 0, 1]], " internal parameter file 'func88.mdl'."],
947	Editable->False]], "Print",
948	CellChangeTimes->{
949	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
950	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
951	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
952	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
953	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
954	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
955	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
956	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
957	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
958	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
959	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
960	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
961	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
962	3.49734833763166^9}, 3.497449403959136^9}],
963
964	Cell[BoxData["\<\"\"\>"], "Print",
965	CellChangeTimes->{
966	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
967	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
968	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
969	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
970	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
971	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
972	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
973	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
974	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
975	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
976	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
977	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
978	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
979	3.49734833763166^9}, 3.497449404244025^9}],
980
981	Cell[BoxData[
982	InterpretationBox[
983	RowBox[{"\<\"Calculating Feynman rules for \"\>",
984	"\[InvisibleSpace]", "\<\"L1\"\>"}],
985	SequenceForm["Calculating Feynman rules for ", "L1"],
986	Editable->False]], "Print",
987	CellChangeTimes->{
988	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
989	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
990	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
991	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
992	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
993	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
994	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
995	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
996	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
997	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
998	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
999	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1000	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1001	3.49734833763166^9}, 3.497449404371266^9}],
1002
1003	Cell[BoxData[
1004	InterpretationBox[
1005	RowBox[{"\<\"Starting Feynman rule calculation for \"\>",
1006	"\[InvisibleSpace]", "\<\"L1\"\>", "\[InvisibleSpace]", "\<\".\"\>"}],
1007	SequenceForm["Starting Feynman rule calculation for ", "L1", "."],
1008	Editable->False]], "Print",
1009	CellChangeTimes->{
1010	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1011	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1012	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1013	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1014	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1015	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1016	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1017	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1018	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1019	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1020	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1021	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1022	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1023	3.49734833763166^9}, 3.497449404492633^9}],
1024
1025	Cell[BoxData[
1026	InterpretationBox[
1027	RowBox[{"\<\"Neglecting all terms with more than \"\>",
1028	"\[InvisibleSpace]", "\<\"4\"\>",
1029	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
1030	SequenceForm["Neglecting all terms with more than ", "4", " particles."],
1031	Editable->False]], "Print",
1032	CellChangeTimes->{
1033	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1034	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1035	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1036	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1037	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1038	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1039	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1040	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1041	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1042	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1043	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1044	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1045	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1046	3.49734833763166^9}, 3.497449404847654^9}],
1047
1048	Cell[BoxData["\<\"Expanding indices...\"\>"], "Print",
1049	CellChangeTimes->{
1050	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1051	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1052	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1053	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1054	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1055	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1056	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1057	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1058	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1059	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1060	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1061	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1062	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1063	3.49734833763166^9}, 3.497449405257864^9}],
1064
1065	Cell[BoxData["\<\"Expanding flavors...\"\>"], "Print",
1066	CellChangeTimes->{
1067	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1068	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1069	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1070	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1071	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1072	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1073	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1074	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1075	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1076	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1077	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1078	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1079	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1080	3.49734833763166^9}, 3.497449931858947^9}],
1081
1082	Cell[BoxData["\<\"Collecting the different structures that enter the \
1083	vertex...\"\>"], "Print",
1084	CellChangeTimes->{
1085	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1086	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1087	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1088	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1089	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1090	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1091	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1092	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1093	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1094	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1095	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1096	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1097	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1098	3.49734833763166^9}, 3.497450033584669^9}],
1099
1100	Cell[BoxData[
1101	InterpretationBox[
1102	RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"311\"\>",
1103	"\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
1104	SequenceForm["Found ", "311", " possible non zero vertices."],
1105	Editable->False]], "Print",
1106	CellChangeTimes->{
1107	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1108	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1109	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1110	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1111	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1112	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1113	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1114	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1115	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1116	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1117	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1118	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1119	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1120	3.49734833763166^9}, 3.497450058941506^9}],
1121
1122	Cell[BoxData["\<\"Start calculating vertices...\"\>"], "Print",
1123	CellChangeTimes->{
1124	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1125	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1126	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1127	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1128	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1129	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1130	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1131	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1132	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1133	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1134	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1135	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1136	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1137	3.49734833763166^9}, 3.497450059228164^9}],
1138
1139	Cell[BoxData[
1140	ProgressIndicatorBox[Dynamic[PRIVATE`progress$1563]]], "Print",
1141	CellChangeTimes->{
1142	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1143	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1144	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1145	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1146	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1147	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1148	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1149	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1150	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1151	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1152	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1153	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1154	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1155	3.49734833763166^9}, 3.497450059258654^9}],
1156
1157	Cell[BoxData[
1158	InterpretationBox[
1159	RowBox[{"311", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1160	SequenceForm[311, " vertices obtained."],
1161	Editable->False]], "Print",
1162	CellChangeTimes->{
1163	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1164	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1165	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1166	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1167	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1168	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1169	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1170	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1171	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1172	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1173	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1174	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1175	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1176	3.49734833763166^9}, 3.497450334347425^9}],
1177
1178	Cell[BoxData[
1179	InterpretationBox[
1180	RowBox[{
1181	StyleBox["\<\"\\nWriting\"\>",
1182	StripOnInput->False,
1183	FrontFaceColor->RGBColor[0, 0, 1],
1184	BackFaceColor->RGBColor[0, 0, 1],
1185	GraphicsColor->RGBColor[0, 0, 1],
1186	FontColor->RGBColor[0, 0, 1]],
1187	"\[InvisibleSpace]", "\<\" Vertices file 'lgrng88.mdl'\\nand appending \
1188	variable file 'func88.mdl', particle file 'prtcls88.mdl' and variable file \
1189	'vars88.mdl'.\"\>"}],
1190	SequenceForm[
1191	Style["\nWriting",
1192	RGBColor[0, 0, 1]],
1193	" Vertices file 'lgrng88.mdl'\nand appending variable file 'func88.mdl', \
1194	particle file 'prtcls88.mdl' and variable file 'vars88.mdl'."],
1195	Editable->False]], "Print",
1196	CellChangeTimes->{
1197	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1198	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1199	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1200	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1201	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1202	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1203	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1204	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1205	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1206	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1207	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1208	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1209	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1210	3.49734833763166^9}, 3.497450338806273^9}],
1211
1212	Cell[BoxData[
1213	ProgressIndicatorBox[Dynamic[PRIVATE`progress$1562]]], "Print",
1214	CellChangeTimes->{
1215	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1216	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1217	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1218	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1219	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1220	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1221	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1222	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1223	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1224	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1225	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1226	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1227	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1228	3.49734833763166^9}, 3.497450338978624^9}],
1229
1230	Cell[BoxData[
1231	InterpretationBox[
1232	RowBox[{
1233	StyleBox["\<\"\\nDone\"\>",
1234	StripOnInput->False,
1235	FrontFaceColor->RGBColor[0, 0, 1],
1236	BackFaceColor->RGBColor[0, 0, 1],
1237	GraphicsColor->RGBColor[0, 0, 1],
1238	FontColor->RGBColor[0, 0, 1]],
1239	"\[InvisibleSpace]", "\<\" in 16.12min!\"\>"}],
1240	SequenceForm[
1241	Style["\nDone",
1242	RGBColor[0, 0, 1]], " in 16.12min!"],
1243	Editable->False]], "Print",
1244	CellChangeTimes->{
1245	3.446292907996139^9, 3.44629296104838^9, 3.481654687909356*^9,
1246	3.48302215165878^9, 3.490614123036291^9, 3.491288926159837*^9,
1247	3.491304008117056^9, 3.49130483150747^9, 3.491306886317478*^9,
1248	3.492965738742788^9, 3.493013378705444^9, 3.493014182758041*^9,
1249	3.493014674582026^9, 3.49301479235775^9, 3.493014843690932*^9,
1250	3.49301490891264^9, 3.493015125443943^9, 3.493110317185548*^9,
1251	3.49311062857091^9, 3.493111978806705^9, 3.493113090933237*^9,
1252	3.493114311667342^9, 3.493115264303874^9, 3.493116763145146*^9,
1253	3.493118875682029^9, 3.493119341513989^9, 3.493120910896039*^9,
1254	3.49312200719124^9, 3.49318356593186^9, 3.497007820881249*^9, {
1255	3.497082524233794^9, 3.497082547638068^9}, 3.497084383456744*^9,
1256	3.497085217454343^9, 3.497170007960374^9, 3.497172163806739*^9,
1257	3.497187076787708^9, 3.497254342380151^9, {3.497348317247969*^9,
1258	3.49734833763166^9}, 3.497450370668972^9}]
1259	}, Open ]]
1260	}, Open ]],
1261
1262	Cell[CellGroupData[{
1263
1264	Cell[BoxData[{
1265	RowBox[{
1266	RowBox[{"SetDirectory", "[",
1267	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/NMWT\>\""}], "]"}],
1268	";"}], "\[IndentingNewLine]",
1269	RowBox[{"WriteMGOutput", "[", "LMWT", "]"}]}], "Input",
1270	CellChangeTimes->{{3.480150833994943^9, 3.4801508357869^9}, {
1271	3.497172871464657^9, 3.497172879075942^9}, {3.497282113562158*^9,
1272	3.497282121028371^9}, {3.497345823668093^9, 3.497345827588054*^9}}],
1273
1274	Cell[CellGroupData[{
1275
1276	Cell[BoxData["\<\" - - - FeynRules interface to MadGraph - - -\"\>"], "Print",
1277	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1278	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1279	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1280	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1281	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1282	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1283	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1284	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1285	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1286	3.497450370923425*^9}],
1287
1288	Cell[BoxData["\<\" C. Duhr, M. Herquet, 2008\"\>"], "Print",
1289	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1290	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1291	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1292	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1293	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1294	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1295	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1296	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1297	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1298	3.497450370934693*^9}],
1299
1300	Cell[BoxData[
1301	InterpretationBox[
1302	RowBox[{"\<\"Creating Directory \"\>",
1303	"\[InvisibleSpace]", "\<\"MWT_MG\"\>"}],
1304	SequenceForm["Creating Directory ", "MWT_MG"],
1305	Editable->False]], "Print",
1306	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1307	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1308	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1309	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1310	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1311	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1312	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1313	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1314	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1315	3.497450370965301*^9}],
1316
1317	Cell[BoxData["\<\"Checking particle list...\"\>"], "Print",
1318	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1319	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1320	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1321	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1322	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1323	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1324	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1325	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1326	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1327	3.497450370977777*^9}],
1328
1329	Cell[BoxData["\<\"Ghost fields will be ignored.\"\>"], "Print",
1330	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1331	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1332	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1333	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1334	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1335	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1336	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1337	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1338	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1339	3.497450370989715*^9}],
1340
1341	Cell[BoxData["\<\"Checking parameter list...\"\>"], "Print",
1342	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1343	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1344	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1345	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1346	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1347	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1348	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1349	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1350	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1351	3.497450371002614*^9}],
1352
1353	Cell[BoxData[
1354	InterpretationBox[
1355	RowBox[{"\<\"\\nCalculating Feynman rules for Lagrangian number \"\>",
1356	"\[InvisibleSpace]", "1"}],
1357	SequenceForm["\nCalculating Feynman rules for Lagrangian number ", 1],
1358	Editable->False]], "Print",
1359	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1360	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1361	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1362	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1363	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1364	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1365	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1366	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1367	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1368	3.497450371014126*^9}],
1369
1370	Cell[BoxData["\<\"Starting Feynman rule calculation.\"\>"], "Print",
1371	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1372	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1373	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1374	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1375	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1376	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1377	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1378	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1379	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1380	3.497450371027483*^9}],
1381
1382	Cell[BoxData["\<\"Expanding indices...\"\>"], "Print",
1383	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1384	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1385	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1386	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1387	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1388	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1389	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1390	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1391	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1392	3.497450371280629*^9}],
1393
1394	Cell[BoxData["\<\"Expanding flavors...\"\>"], "Print",
1395	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1396	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1397	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1398	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1399	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1400	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1401	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1402	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1403	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1404	3.497450687242696*^9}],
1405
1406	Cell[BoxData["\<\"Collecting the different structures that enter the \
1407	vertex...\"\>"], "Print",
1408	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1409	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1410	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1411	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1412	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1413	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1414	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1415	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1416	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1417	3.497450749401048*^9}],
1418
1419	Cell[BoxData[
1420	InterpretationBox[
1421	RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"311\"\>",
1422	"\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
1423	SequenceForm["Found ", "311", " possible non zero vertices."],
1424	Editable->False]], "Print",
1425	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1426	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1427	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1428	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1429	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1430	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1431	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1432	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1433	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1434	3.497450767933279*^9}],
1435
1436	Cell[BoxData["\<\"Start calculating vertices...\"\>"], "Print",
1437	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1438	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1439	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1440	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1441	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1442	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1443	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1444	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1445	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1446	3.497450768080877*^9}],
1447
1448	Cell[BoxData[
1449	ProgressIndicatorBox[Dynamic[PRIVATE`progress$22564]]], "Print",
1450	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1451	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1452	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1453	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1454	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1455	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1456	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1457	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1458	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1459	3.497450768093285*^9}],
1460
1461	Cell[BoxData[
1462	InterpretationBox[
1463	RowBox[{"311", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1464	SequenceForm[311, " vertices obtained."],
1465	Editable->False]], "Print",
1466	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1467	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1468	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1469	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1470	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1471	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1472	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1473	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1474	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1475	3.497450956730362*^9}],
1476
1477	Cell[BoxData["\<\"Merging vertices...\"\>"], "Print",
1478	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1479	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1480	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1481	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1482	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1483	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1484	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1485	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1486	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1487	3.497450956999759*^9}],
1488
1489	Cell[BoxData["\<\"\\n Converting vertices to MG format\"\>"], "Print",
1490	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1491	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1492	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1493	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1494	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1495	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1496	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1497	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1498	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1499	3.497450958743942*^9}],
1500
1501	Cell[BoxData["\<\"Getting color structures.\"\>"], "Print",
1502	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1503	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1504	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1505	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1506	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1507	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1508	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1509	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1510	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1511	3.497450962342908*^9}],
1512
1513	Cell[BoxData[
1514	InterpretationBox[
1515	RowBox[{"\<\" Getting HELAS structures: \"\>", "\[InvisibleSpace]",
1516	DynamicBox[ToBoxes[PRIVATE`$helasprogress, StandardForm],
1517	ImageSizeCache->{21., {0., 7.}}], "\[InvisibleSpace]", "\<\"/\"\>",
1518	"\[InvisibleSpace]", "311", "\[InvisibleSpace]", "\<\" .\"\>"}],
1519	SequenceForm[" Getting HELAS structures: ",
1520	Dynamic[PRIVATE`$helasprogress], "/", 311, " ."],
1521	Editable->False]], "Print",
1522	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1523	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1524	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1525	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1526	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1527	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1528	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1529	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1530	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1531	3.497450962607172*^9}],
1532
1533	Cell[BoxData[
1534	ProgressIndicatorBox[Dynamic[PRIVATE`progbarvar]]], "Print",
1535	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1536	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1537	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1538	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1539	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1540	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1541	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1542	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1543	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1544	3.497450962778018*^9}],
1545
1546	Cell[BoxData[
1547	InterpretationBox[
1548	RowBox[{"\<\" MG Output obtained for \"\>",
1549	"\[InvisibleSpace]", "\<\"MWT\"\>"}],
1550	SequenceForm[" MG Output obtained for ", "MWT"],
1551	Editable->False]], "Print",
1552	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1553	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1554	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1555	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1556	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1557	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1558	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1559	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1560	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1561	3.497450975539271*^9}],
1562
1563	Cell[BoxData[
1564	InterpretationBox[
1565	RowBox[{"\<\"MG / ME output written on \"\>",
1566	"\[InvisibleSpace]", "\<\"MWT_MG\"\>"}],
1567	SequenceForm["MG / ME output written on ", "MWT_MG"],
1568	Editable->False]], "Print",
1569	CellChangeTimes->{3.480150836547464^9, 3.481645396689522^9,
1570	3.481655438676566^9, 3.481657656339318^9, 3.483441503962289*^9,
1571	3.483444044987062^9, 3.483696322020876^9, 3.483696448809014*^9,
1572	3.488889216118467^9, 3.490428494142^9, 3.490814745502506*^9,
1573	3.491289392841104^9, 3.492966274634835^9, 3.493013871306241*^9,
1574	3.493015719648661^9, 3.493036101054435^9, 3.493184030210892*^9,
1575	3.497083319439262^9, 3.497084418884118^9, 3.497172904439881*^9,
1576	3.497175030334094^9, 3.497185799177232^9, 3.497186269257707*^9,
1577	3.497254798268524^9, 3.497282144973822^9, 3.497345830361127*^9,
1578	3.497450976653184*^9}]
1579	}, Open ]]
1580	}, Open ]],
1581
1582	Cell[CellGroupData[{
1583
1584	Cell[BoxData[
1585	RowBox[{"Options", "[", "WriteMGOutput", "]"}]], "Input",
1586	CellChangeTimes->{{3.497283235250244^9, 3.497283243891961^9}}],
1587
1588	Cell[BoxData[
1589	RowBox[{"{",
1590	RowBox[{
1591	RowBox[{"Output", "\[Rule]", "Automatic"}], ",",
1592	RowBox[{"DecomposeGluonVertex", "\[Rule]", "True"}], ",",
1593	RowBox[{"Exclude4Scalars", "\[Rule]", "False"}], ",",
1594	RowBox[{"Debug", "\[Rule]", "False"}], ",",
1595	RowBox[{"DialogBox", "\[Rule]", "On"}], ",",
1596	RowBox[{"MaxVertices", "\[Rule]", "50"}], ",",
1597	RowBox[{"IndexExpand", "\[Rule]",
1598	RowBox[{"{", "}"}]}]}], "}"}]], "Output",
1599	CellChangeTimes->{3.497283244595506*^9}]
1600	}, Open ]]
1601	}, Open ]]
1602	},
1603	WindowSize->{1274, 722},
1604	WindowMargins->{{0, Automatic}, {Automatic, 25}},
1605	FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
1606	StyleDefinitions->"Default.nb"
1607	]
1608	(* End of Notebook Content *)
1609
1610	(* Internal cache information *)
1611	(*CellTagsOutline
1612	CellTagsIndex->{}
1613	*)
1614	(*CellTagsIndex
1615	CellTagsIndex->{}
1616	*)
1617	(*NotebookFileOutline
1618	Notebook[{
1619	Cell[CellGroupData[{
1620	Cell[567, 22, 180, 6, 99, "Section"],
1621	Cell[750, 30, 118, 2, 31, "Input"],
1622	Cell[CellGroupData[{
1623	Cell[893, 36, 757, 17, 72, "Input"],
1624	Cell[CellGroupData[{
1625	Cell[1675, 57, 2937, 42, 24, "Print"],
1626	Cell[4615, 101, 3062, 46, 24, "Print"],
1627	Cell[7680, 149, 2963, 42, 24, "Print"],
1628	Cell[10646, 193, 2923, 42, 24, "Print"],
1629	Cell[13572, 237, 2950, 42, 24, "Print"],
1630	Cell[16525, 281, 2953, 42, 24, "Print"],
1631	Cell[19481, 325, 2923, 42, 24, "Print"],
1632	Cell[22407, 369, 2989, 43, 24, "Print"]
1633	}, Open ]]
1634	}, Open ]],
1635	Cell[CellGroupData[{
1636	Cell[25445, 418, 589, 11, 31, "Input"],
1637	Cell[CellGroupData[{
1638	Cell[26059, 433, 2331, 33, 24, "Print"],
1639	Cell[28393, 468, 2302, 33, 24, "Print"],
1640	Cell[30698, 503, 2435, 37, 24, "Print"],
1641	Cell[33136, 542, 2339, 34, 24, "Print"],
1642	Cell[35478, 578, 2291, 33, 24, "Print"],
1643	Cell[37772, 613, 2321, 33, 24, "Print"],
1644	Cell[40096, 648, 2324, 33, 24, "Print"],
1645	Cell[42423, 683, 2322, 33, 24, "Print"],
1646	Cell[44748, 718, 2481, 38, 45, "Print"]
1647	}, Open ]]
1648	}, Open ]]
1649	}, Open ]],
1650	Cell[CellGroupData[{
1651	Cell[47290, 763, 169, 2, 72, "Section"],
1652	Cell[CellGroupData[{
1653	Cell[47484, 769, 1075, 20, 72, "Input"],
1654	Cell[CellGroupData[{
1655	Cell[48584, 793, 1049, 15, 24, "Print"],
1656	Cell[49636, 810, 1412, 28, 45, "Print"],
1657	Cell[51051, 840, 1522, 31, 45, "Print"],
1658	Cell[52576, 873, 1424, 28, 45, "Print"],
1659	Cell[54003, 903, 1438, 28, 45, "Print"],
1660	Cell[55444, 933, 1438, 28, 45, "Print"],
1661	Cell[56885, 963, 1006, 15, 24, "Print"],
1662	Cell[57894, 980, 1184, 20, 24, "Print"],
1663	Cell[59081, 1002, 1239, 20, 24, "Print"],
1664	Cell[60323, 1024, 1257, 21, 24, "Print"],
1665	Cell[61583, 1047, 1026, 15, 24, "Print"],
1666	Cell[62612, 1064, 1026, 15, 24, "Print"],
1667	Cell[63641, 1081, 1068, 16, 24, "Print"],
1668	Cell[64712, 1099, 1231, 20, 24, "Print"],
1669	Cell[65946, 1121, 1035, 15, 24, "Print"],
1670	Cell[66984, 1138, 1050, 16, 26, "Print"],
1671	Cell[68037, 1156, 1150, 19, 24, "Print"],
1672	Cell[69190, 1177, 1637, 32, 65, "Print"],
1673	Cell[70830, 1211, 1050, 16, 26, "Print"],
1674	Cell[71883, 1229, 1382, 28, 45, "Print"]
1675	}, Open ]]
1676	}, Open ]],
1677	Cell[CellGroupData[{
1678	Cell[73314, 1263, 423, 8, 52, "Input"],
1679	Cell[CellGroupData[{
1680	Cell[73762, 1275, 716, 10, 24, "Print"],
1681	Cell[74481, 1287, 704, 10, 24, "Print"],
1682	Cell[75188, 1299, 836, 15, 24, "Print"],
1683	Cell[76027, 1316, 697, 10, 24, "Print"],
1684	Cell[76727, 1328, 701, 10, 24, "Print"],
1685	Cell[77431, 1340, 698, 10, 24, "Print"],
1686	Cell[78132, 1352, 879, 15, 45, "Print"],
1687	Cell[79014, 1369, 706, 10, 24, "Print"],
1688	Cell[79723, 1381, 692, 10, 24, "Print"],
1689	Cell[80418, 1393, 692, 10, 24, "Print"],
1690	Cell[81113, 1405, 734, 11, 24, "Print"],
1691	Cell[81850, 1418, 897, 15, 24, "Print"],
1692	Cell[82750, 1435, 701, 10, 24, "Print"],
1693	Cell[83454, 1447, 717, 11, 26, "Print"],
1694	Cell[84174, 1460, 816, 14, 24, "Print"],
1695	Cell[84993, 1476, 691, 10, 24, "Print"],
1696	Cell[85687, 1488, 711, 10, 45, "Print"],
1697	Cell[86401, 1500, 697, 10, 24, "Print"],
1698	Cell[87101, 1512, 1080, 18, 24, "Print"],
1699	Cell[88184, 1532, 713, 11, 26, "Print"],
1700	Cell[88900, 1545, 846, 15, 24, "Print"],
1701	Cell[89749, 1562, 850, 15, 24, "Print"]
1702	}, Open ]]
1703	}, Open ]],
1704	Cell[CellGroupData[{
1705	Cell[90648, 1583, 138, 2, 31, "Input"],
1706	Cell[90789, 1587, 486, 11, 31, "Output"]
1707	}, Open ]]
1708	}, Open ]]
1709	}
1710	]
1711	*)
1712
1713	(* End of internal cache information *)

Download in other formats:

Original Format