TechniColor: MWT_101030.nb

File MWT_101030.nb, 92.6 KB (added by CP3-Origins, 10 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:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[     94658,       1704]
14NotebookOptionsPosition[     91303,       1602]
15NotebookOutlinePosition[     91640,       1617]
16CellTagsIndexPosition[     91597,       1614]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["\<\
24NMWT unitary
25\
26\>", "Section",
27 CellChangeTimes->{
28  3.445242980634373*^9, {3.445243144155546*^9, 3.445243158570893*^9}, {
29   3.44587971025315*^9, 3.445879713172297*^9}}],
30
31Cell[BoxData[
32 RowBox[{"Quit", "[", "]"}]], "Input",
33 CellChangeTimes->{{3.480337101043145*^9, 3.480337102223115*^9}}],
34
35Cell[CellGroupData[{
36
37Cell[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
56Cell[CellGroupData[{
57
58Cell[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
102Cell[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
150Cell[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
194Cell[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
238Cell[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
282Cell[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
326Cell[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
370Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
371FRPalette[].\"\>"], "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
417Cell[CellGroupData[{
418
419Cell[BoxData[
420 RowBox[{"LoadModel", "[", "\"\<MWT_101030.fr\>\"", "]"}]], "Input",
421 CellChangeTimes->CompressedData["
4221:eJxTTMoPSmViYGCQBGIQrXRsjSTD6peOd8rEpUC0YtanV+5AeuPvz2DaeOrF
423rjIgfYPxGpi+meGTxLrmpaP+tBow3fboS0kdkLY08SoF0bsmTpm1BkgvVtgJ
424potvZe51X/vS0dZjNpje99NQIuvVS8fd09vA9N0jJp5m7146npFMBtOx/k+v
425bf3w0nGCY811EM3z7f/k+V9eOt4q1JwCovO41qq3/3vpyHTVXgNENzpM3FrG
426+Mrx8G7NbSD6Q3fMQynmV45H+arAtOpebXclIG2n6ACmk/aUzPFle+V4kXUx
427mL4QVPo6BUivnLodTMd8/vB/O5Ce3MPIsANIM/Xl8obyvnIMmlAJppnjLdiY
428+V458j+xAtOVZ5evUQPSi3+sB9N6/5cKRwPpbY0rwXR2c9e6aiAdpjUZTC/v
4294IhbAaSP2UuC6abGfc9vAWkvl9NgGgCeUMdq
430  "]],
431
432Cell[CellGroupData[{
433
434Cell[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
469Cell[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
504Cell[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
543Cell[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
579Cell[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
614Cell[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
649Cell[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
684Cell[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
719Cell[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
762Cell[CellGroupData[{
763
764Cell["Writing CalcHEP and Madgraph output", "Section",
765 CellChangeTimes->{{3.493183368341105*^9, 3.493183373693058*^9}, {
766  3.493183442612217*^9, 3.493183450956239*^9}}],
767
768Cell[CellGroupData[{
769
770Cell[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
792Cell[CellGroupData[{
793
794Cell[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
811Cell[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
841Cell[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
874Cell[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
904Cell[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
934Cell[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
964Cell[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
981Cell[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
1003Cell[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
1025Cell[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
1048Cell[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
1065Cell[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
1082Cell[BoxData["\<\"Collecting the different structures that enter the \
1083vertex...\"\>"], "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
1100Cell[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
1122Cell[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
1139Cell[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
1157Cell[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
1178Cell[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 \
1188variable 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', \
1194particle 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
1212Cell[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
1230Cell[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
1262Cell[CellGroupData[{
1263
1264Cell[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
1274Cell[CellGroupData[{
1275
1276Cell[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
1288Cell[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
1300Cell[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
1317Cell[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
1329Cell[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
1341Cell[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
1353Cell[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
1370Cell[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
1382Cell[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
1394Cell[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
1406Cell[BoxData["\<\"Collecting the different structures that enter the \
1407vertex...\"\>"], "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
1419Cell[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
1436Cell[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
1448Cell[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
1461Cell[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
1477Cell[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
1489Cell[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
1501Cell[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
1513Cell[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
1533Cell[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
1546Cell[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
1563Cell[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
1582Cell[CellGroupData[{
1583
1584Cell[BoxData[
1585 RowBox[{"Options", "[", "WriteMGOutput", "]"}]], "Input",
1586 CellChangeTimes->{{3.497283235250244*^9, 3.497283243891961*^9}}],
1587
1588Cell[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},
1603WindowSize->{1274, 722},
1604WindowMargins->{{0, Automatic}, {Automatic, 25}},
1605FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
1606StyleDefinitions->"Default.nb"
1607]
1608(* End of Notebook Content *)
1609
1610(* Internal cache information *)
1611(*CellTagsOutline
1612CellTagsIndex->{}
1613*)
1614(*CellTagsIndex
1615CellTagsIndex->{}
1616*)
1617(*NotebookFileOutline
1618Notebook[{
1619Cell[CellGroupData[{
1620Cell[567, 22, 180, 6, 99, "Section"],
1621Cell[750, 30, 118, 2, 31, "Input"],
1622Cell[CellGroupData[{
1623Cell[893, 36, 757, 17, 72, "Input"],
1624Cell[CellGroupData[{
1625Cell[1675, 57, 2937, 42, 24, "Print"],
1626Cell[4615, 101, 3062, 46, 24, "Print"],
1627Cell[7680, 149, 2963, 42, 24, "Print"],
1628Cell[10646, 193, 2923, 42, 24, "Print"],
1629Cell[13572, 237, 2950, 42, 24, "Print"],
1630Cell[16525, 281, 2953, 42, 24, "Print"],
1631Cell[19481, 325, 2923, 42, 24, "Print"],
1632Cell[22407, 369, 2989, 43, 24, "Print"]
1633}, Open  ]]
1634}, Open  ]],
1635Cell[CellGroupData[{
1636Cell[25445, 418, 589, 11, 31, "Input"],
1637Cell[CellGroupData[{
1638Cell[26059, 433, 2331, 33, 24, "Print"],
1639Cell[28393, 468, 2302, 33, 24, "Print"],
1640Cell[30698, 503, 2435, 37, 24, "Print"],
1641Cell[33136, 542, 2339, 34, 24, "Print"],
1642Cell[35478, 578, 2291, 33, 24, "Print"],
1643Cell[37772, 613, 2321, 33, 24, "Print"],
1644Cell[40096, 648, 2324, 33, 24, "Print"],
1645Cell[42423, 683, 2322, 33, 24, "Print"],
1646Cell[44748, 718, 2481, 38, 45, "Print"]
1647}, Open  ]]
1648}, Open  ]]
1649}, Open  ]],
1650Cell[CellGroupData[{
1651Cell[47290, 763, 169, 2, 72, "Section"],
1652Cell[CellGroupData[{
1653Cell[47484, 769, 1075, 20, 72, "Input"],
1654Cell[CellGroupData[{
1655Cell[48584, 793, 1049, 15, 24, "Print"],
1656Cell[49636, 810, 1412, 28, 45, "Print"],
1657Cell[51051, 840, 1522, 31, 45, "Print"],
1658Cell[52576, 873, 1424, 28, 45, "Print"],
1659Cell[54003, 903, 1438, 28, 45, "Print"],
1660Cell[55444, 933, 1438, 28, 45, "Print"],
1661Cell[56885, 963, 1006, 15, 24, "Print"],
1662Cell[57894, 980, 1184, 20, 24, "Print"],
1663Cell[59081, 1002, 1239, 20, 24, "Print"],
1664Cell[60323, 1024, 1257, 21, 24, "Print"],
1665Cell[61583, 1047, 1026, 15, 24, "Print"],
1666Cell[62612, 1064, 1026, 15, 24, "Print"],
1667Cell[63641, 1081, 1068, 16, 24, "Print"],
1668Cell[64712, 1099, 1231, 20, 24, "Print"],
1669Cell[65946, 1121, 1035, 15, 24, "Print"],
1670Cell[66984, 1138, 1050, 16, 26, "Print"],
1671Cell[68037, 1156, 1150, 19, 24, "Print"],
1672Cell[69190, 1177, 1637, 32, 65, "Print"],
1673Cell[70830, 1211, 1050, 16, 26, "Print"],
1674Cell[71883, 1229, 1382, 28, 45, "Print"]
1675}, Open  ]]
1676}, Open  ]],
1677Cell[CellGroupData[{
1678Cell[73314, 1263, 423, 8, 52, "Input"],
1679Cell[CellGroupData[{
1680Cell[73762, 1275, 716, 10, 24, "Print"],
1681Cell[74481, 1287, 704, 10, 24, "Print"],
1682Cell[75188, 1299, 836, 15, 24, "Print"],
1683Cell[76027, 1316, 697, 10, 24, "Print"],
1684Cell[76727, 1328, 701, 10, 24, "Print"],
1685Cell[77431, 1340, 698, 10, 24, "Print"],
1686Cell[78132, 1352, 879, 15, 45, "Print"],
1687Cell[79014, 1369, 706, 10, 24, "Print"],
1688Cell[79723, 1381, 692, 10, 24, "Print"],
1689Cell[80418, 1393, 692, 10, 24, "Print"],
1690Cell[81113, 1405, 734, 11, 24, "Print"],
1691Cell[81850, 1418, 897, 15, 24, "Print"],
1692Cell[82750, 1435, 701, 10, 24, "Print"],
1693Cell[83454, 1447, 717, 11, 26, "Print"],
1694Cell[84174, 1460, 816, 14, 24, "Print"],
1695Cell[84993, 1476, 691, 10, 24, "Print"],
1696Cell[85687, 1488, 711, 10, 45, "Print"],
1697Cell[86401, 1500, 697, 10, 24, "Print"],
1698Cell[87101, 1512, 1080, 18, 24, "Print"],
1699Cell[88184, 1532, 713, 11, 26, "Print"],
1700Cell[88900, 1545, 846, 15, 24, "Print"],
1701Cell[89749, 1562, 850, 15, 24, "Print"]
1702}, Open  ]]
1703}, Open  ]],
1704Cell[CellGroupData[{
1705Cell[90648, 1583, 138, 2, 31, "Input"],
1706Cell[90789, 1587, 486, 11, 31, "Output"]
1707}, Open  ]]
1708}, Open  ]]
1709}
1710]
1711*)
1712
1713(* End of internal cache information *)