LeptoQuark: model_gen.nb

File model_gen.nb, 100.0 KB (added by JavierFuentes, 3 months ago)
Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 6.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[    102268,       1895]
14NotebookOptionsPosition[     92116,       1745]
15NotebookOutlinePosition[     92598,       1764]
16CellTagsIndexPosition[     92555,       1761]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"Quit", "[", "]"}]], "Input",
23 CellChangeTimes->{{3.4921467751527157`*^9, 3.492146776183146*^9}, {
24  3.739601388898321*^9, 3.73960139126019*^9}, {3.751203622818421*^9,
25  3.751203623553709*^9}},ExpressionUUID->"780cf129-2191-4b6d-9555-\
267cb0c733752c"],
27
28Cell[CellGroupData[{
29
30Cell["Initialisation", "Section",
31 CellChangeTimes->{{3.7395329988871326`*^9,
32  3.7395330013162603`*^9}},ExpressionUUID->"9c58fa89-01d2-46c6-9a0e-\
330913b9c10aeb"],
34
35Cell[CellGroupData[{
36
37Cell[BoxData[{
38 RowBox[{
39  RowBox[{
40  "$FeynRulesPath", "=",
41   "\"\<~/Library/Mathematica/Applications/FeynRules\>\""}],
42  ";"}], "\[IndentingNewLine]",
43 RowBox[{"<<", "FeynRules`"}]}], "Input",
44 CellChangeTimes->{{3.547535564344927*^9, 3.547535564971527*^9}, {
45  3.744603056511631*^9, 3.744603082423525*^9}, {3.744603113754035*^9,
46  3.744603180413662*^9}},ExpressionUUID->"40a0b542-cb7c-484b-a519-\
475f34fe3b93b9"],
48
49Cell[CellGroupData[{
50
51Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
52 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
53   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
54   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
55   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
56   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
57   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
58   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
59   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
60   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
61   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
62   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
63   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
64   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
65   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
66   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
67   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
68   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
69   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
70   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
71   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
72   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
73   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
74   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
75   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
76   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
77   3.759590487897663*^9,
78   3.759590625933564*^9},ExpressionUUID->"b4c338a2-c292-49fe-ae83-\
795a08b1842e98"],
80
81Cell[BoxData[
82 InterpretationBox[
83  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.32\"\>",
84   "\[InvisibleSpace]",
85   RowBox[{"\<\" (\"\>", " ", "\<\"12 March 2018\"\>"}],
86   "\[InvisibleSpace]", "\<\").\"\>"}],
87  SequenceForm["Version: ", "2.3.32", " (" "12 March 2018", ")."],
88  Editable->False]], "Print",
89 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
90   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
91   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
92   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
93   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
94   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
95   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
96   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
97   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
98   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
99   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
100   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
101   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
102   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
103   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
104   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
105   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
106   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
107   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
108   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
109   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
110   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
111   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
112   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
113   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
114   3.759590487897663*^9,
115   3.759590625943083*^9},ExpressionUUID->"506e1531-fece-41aa-9e50-\
1161d8e0a29de23"],
117
118Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
119B. Fuks\"\>"], "Print",
120 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
121   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
122   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
123   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
124   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
125   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
126   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
127   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
128   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
129   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
130   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
131   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
132   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
133   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
134   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
135   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
136   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
137   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
138   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
139   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
140   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
141   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
142   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
143   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
144   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
145   3.759590487897663*^9,
146   3.759590625952228*^9},ExpressionUUID->"7d680e3c-711a-49e8-a912-\
1471366da569eb1"],
148
149Cell[BoxData["\<\" \"\>"], "Print",
150 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
151   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
152   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
153   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
154   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
155   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
156   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
157   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
158   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
159   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
160   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
161   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
162   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
163   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
164   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
165   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
166   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
167   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
168   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
169   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
170   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
171   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
172   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
173   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
174   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
175   3.759590487897663*^9,
176   3.75959062596119*^9},ExpressionUUID->"54462066-c1de-4e66-aa60-\
177fdfe330d0e60"],
178
179Cell[BoxData["\<\"Please cite:\"\>"], "Print",
180 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
181   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
182   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
183   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
184   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
185   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
186   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
187   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
188   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
189   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
190   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
191   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
192   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
193   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
194   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
195   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
196   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
197   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
198   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
199   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
200   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
201   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
202   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
203   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
204   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
205   3.759590487897663*^9,
206   3.759590625970326*^9},ExpressionUUID->"b7e0b7b1-074b-4894-9b26-\
2078c44be8c8744"],
208
209Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
210(arXiv:1310.1921);\"\>"], "Print",
211 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
212   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
213   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
214   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
215   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
216   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
217   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
218   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
219   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
220   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
221   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
222   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
223   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
224   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
225   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
226   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
227   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
228   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
229   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
230   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
231   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
232   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
233   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
234   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
235   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
236   3.759590487897663*^9,
237   3.7595906259794397`*^9},ExpressionUUID->"39370ab3-e833-4945-84e0-\
238f70437aadc53"],
239
240Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
241(arXiv:0806.4194).\"\>"], "Print",
242 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
243   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
244   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
245   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
246   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
247   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
248   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
249   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
250   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
251   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
252   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
253   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
254   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
255   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
256   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
257   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
258   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
259   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
260   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
261   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
262   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
263   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
264   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
265   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
266   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
267   3.759590487897663*^9,
268   3.7595906259886*^9},ExpressionUUID->"c9c91b82-691c-46d3-87a3-f835fc02fb0c"],
269
270Cell[BoxData["\<\" \"\>"], "Print",
271 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
272   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
273   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
274   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
275   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
276   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
277   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
278   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
279   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
280   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
281   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
282   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
283   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
284   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
285   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
286   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
287   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
288   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
289   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
290   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
291   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
292   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
293   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
294   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
295   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
296   3.759590487897663*^9,
297   3.759590625997829*^9},ExpressionUUID->"63660688-44d0-4be5-8b3d-\
2981d9f815f7a0a"],
299
300Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
301 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
302   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
303   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
304   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
305   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
306   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
307   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
308   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
309   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
310   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
311   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
312   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
313   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
314   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
315   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
316   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
317   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
318   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
319   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
320   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
321   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
322   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
323   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
324   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
325   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
326   3.759590487897663*^9,
327   3.759590626006888*^9},ExpressionUUID->"7bde153a-b1fd-4413-afbe-\
3280e27e0abcc99"],
329
330Cell[BoxData["\<\" \"\>"], "Print",
331 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
332   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
333   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
334   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
335   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
336   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
337   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
338   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
339   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
340   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
341   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
342   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
343   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
344   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
345   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
346   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
347   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
348   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
349   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
350   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
351   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
352   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
353   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
354   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
355   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
356   3.759590487897663*^9,
357   3.759590626016029*^9},ExpressionUUID->"ab9f2e01-ce17-4f7c-b052-\
3585fca2f29087b"],
359
360Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
361FRPalette[].\"\>"], "Print",
362 CellChangeTimes->{{3.7446031807937*^9, 3.744603188712154*^9},
363   3.744603270765814*^9, 3.744603309798856*^9, 3.744603623156024*^9,
364   3.744603864457803*^9, 3.744603910161022*^9, 3.744603942803918*^9,
365   3.744604028808154*^9, {3.744604098833684*^9, 3.744604115777217*^9},
366   3.744604713044907*^9, 3.744604840488316*^9, 3.7446051226390543`*^9,
367   3.744608096110676*^9, 3.744608297590275*^9, 3.744608358093902*^9,
368   3.7446084031289377`*^9, {3.744608464943067*^9, 3.744608484974204*^9}, {
369   3.74460857701832*^9, 3.744608581002647*^9}, 3.744608659022922*^9,
370   3.744608772094701*^9, 3.744608880041575*^9, 3.744610737627222*^9,
371   3.7449674279961987`*^9, 3.751125228341661*^9, 3.751125707006668*^9,
372   3.751125819996436*^9, 3.7511258793071938`*^9, {3.751126013510037*^9,
373   3.75112612952306*^9}, {3.751126163801629*^9, 3.751126198015871*^9}, {
374   3.751126248004685*^9, 3.751126277065547*^9}, 3.751126386280705*^9,
375   3.7511264223088017`*^9, 3.751126470553643*^9, 3.7511284930458317`*^9,
376   3.751128545554391*^9, {3.751128589299452*^9, 3.751128614360961*^9},
377   3.751128655416993*^9, 3.7511286973164053`*^9, 3.751128859033681*^9,
378   3.751129231428459*^9, 3.751203023894146*^9, 3.751203193772225*^9,
379   3.7512034984821167`*^9, 3.751203626361384*^9, 3.7512037738594437`*^9,
380   3.753601814645135*^9, 3.754033660060341*^9, 3.7547275976770277`*^9,
381   3.757779212101568*^9, 3.7577794147256308`*^9, 3.759557480924862*^9, {
382   3.75955751982771*^9, 3.759557549174987*^9}, 3.759557584716447*^9,
383   3.759557690690309*^9, 3.7595577706175203`*^9, {3.75955784529812*^9,
384   3.7595578544343367`*^9}, 3.7595580230505466`*^9, 3.759558093223159*^9,
385   3.759560015703792*^9, 3.75956096527549*^9, 3.7595610023810663`*^9,
386   3.759572317444882*^9, 3.759587496865965*^9, 3.759587547437089*^9,
387   3.759590487897663*^9,
388   3.759590626026331*^9},ExpressionUUID->"cd4277c8-8a89-4256-8e34-\
38958babd71425c"]
390}, Open  ]]
391}, Open  ]]
392}, Open  ]],
393
394Cell[CellGroupData[{
395
396Cell["Load Models", "Section",
397 CellChangeTimes->{{3.7395329183038483`*^9,
398  3.739532920901786*^9}},ExpressionUUID->"2986de0f-0ce6-45cb-8486-\
3992e2ec4cfc35d"],
400
401Cell[CellGroupData[{
402
403Cell[BoxData[{
404 RowBox[{
405  RowBox[{"SetDirectory", "[",
406   RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
407  ";"}], "\[IndentingNewLine]",
408 RowBox[{"LoadModel", "[",
409  RowBox[{
410  "\"\<SM.fr\>\"", ",", "\"\<coloron.fr\>\"", ",", "\"\<Zprime.fr\>\"", ",",
411   "\"\<vector_LQ.fr\>\""}], "]"}]}], "Input",
412 CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
413   3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
414   3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
415   3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
416   3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
417   3.403347555049163*^9}, 3.4044490490588417`*^9, {3.411744339876704*^9,
418   3.411744340012457*^9}, {3.4121886924550533`*^9, 3.412188699157571*^9},
419   3.412188808811866*^9, 3.4121888580521603`*^9, {3.412450464077868*^9,
420   3.412450464378695*^9}, {3.413715097460478*^9, 3.41371509757642*^9}, {
421   3.41440825334604*^9, 3.414408254159686*^9}, {3.41862573831756*^9,
422   3.4186257392223186`*^9}, {3.4190731862389174`*^9, 3.419073187003003*^9}, {
423   3.419073336802393*^9, 3.4190733374513063`*^9}, {3.4190828041801767`*^9,
424   3.4190828048079023`*^9}, 3.542453089813714*^9, 3.547534567644828*^9, {
425   3.728222304873398*^9, 3.728222322555388*^9}, {3.728222835738369*^9,
426   3.728222879559558*^9}, 3.728223444039041*^9, 3.7282235997001457`*^9,
427   3.7282237561455107`*^9, {3.728224117573875*^9, 3.7282241195124693`*^9}, {
428   3.7282242557408037`*^9, 3.728224259136541*^9}, 3.728225893767008*^9,
429   3.72822610017833*^9, {3.728826892925433*^9, 3.728826900200194*^9}, {
430   3.728827626320098*^9, 3.728827635523101*^9}, {3.728827724735289*^9,
431   3.728827724840767*^9}, {3.7395328744056892`*^9, 3.7395328948124933`*^9}, {
432   3.744602997202324*^9, 3.7446030045179873`*^9}, {3.7446032644421883`*^9,
433   3.744603293029746*^9}, {3.751125209460968*^9, 3.751125222100134*^9},
434   3.75112587500531*^9, {3.751125905896701*^9, 3.751125906368148*^9},
435   3.7511261255045137`*^9, {3.7511261671120977`*^9, 3.751126191013953*^9}, {
436   3.7511265296166763`*^9, 3.751126532716322*^9}, {3.7511284844385138`*^9,
437   3.751128488085499*^9}, {3.759557554353526*^9,
438   3.7595575806896152`*^9}},ExpressionUUID->"20404475-5f40-4ed8-98fb-\
439a304d9d2f4f4"],
440
441Cell[CellGroupData[{
442
443Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
444 CellChangeTimes->{
445  3.7446033141411953`*^9, 3.7446036275671988`*^9, 3.7446038682570543`*^9,
446   3.7446039140872097`*^9, 3.7446039465315533`*^9, 3.744604033207672*^9, {
447   3.7446041024874687`*^9, 3.744604119606921*^9}, 3.744604716766465*^9,
448   3.7446048443053493`*^9, 3.7446051271448936`*^9, 3.744608100176157*^9,
449   3.7446083014553022`*^9, 3.744608361898076*^9, 3.744608406943832*^9, {
450   3.7446084691106777`*^9, 3.744608488822134*^9}, 3.744608585066478*^9,
451   3.744608662887649*^9, 3.7446087760175734`*^9, 3.744608884022532*^9, {
452   3.74461073263135*^9, 3.744610739788542*^9}, 3.7449674308524523`*^9,
453   3.751125230742929*^9, 3.751125709806905*^9, 3.751125821890444*^9,
454   3.751125883019525*^9, {3.751126018619719*^9, 3.751126131290121*^9}, {
455   3.751126165651704*^9, 3.751126199860382*^9}, {3.751126249778571*^9,
456   3.7511262788789053`*^9}, 3.751126388149542*^9, 3.751126424171195*^9,
457   3.751126472426777*^9, 3.751128494947427*^9, 3.7511285474072943`*^9, {
458   3.751128592219119*^9, 3.7511286162576303`*^9}, 3.7511286573699636`*^9,
459   3.751128699309054*^9, 3.751128862143272*^9, 3.7511292357877913`*^9,
460   3.75120302582233*^9, 3.7512031956316338`*^9, 3.751203500849804*^9,
461   3.751203628234981*^9, 3.7512037758158407`*^9, 3.753601817321705*^9,
462   3.754033664314412*^9, 3.754727600050055*^9, 3.757779214876822*^9,
463   3.7577794166080847`*^9, {3.759557484740673*^9, 3.759557521969396*^9}, {
464   3.7595575578085403`*^9, 3.759557586870434*^9}, 3.759557694801608*^9,
465   3.759557772850718*^9, {3.759557847492507*^9, 3.7595578565713*^9},
466   3.759558025296575*^9, 3.7595580965643387`*^9, 3.7595600186647263`*^9,
467   3.759560967503331*^9, 3.759561004424066*^9, 3.7595723194934187`*^9,
468   3.75958750008053*^9, 3.759587549214015*^9, 3.75959049052199*^9,
469   3.759590627737154*^9},ExpressionUUID->"1582fa5b-7a62-45b9-af80-\
470101dd63085ab"],
471
472Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
473 CellChangeTimes->{
474  3.7446033141411953`*^9, 3.7446036275671988`*^9, 3.7446038682570543`*^9,
475   3.7446039140872097`*^9, 3.7446039465315533`*^9, 3.744604033207672*^9, {
476   3.7446041024874687`*^9, 3.744604119606921*^9}, 3.744604716766465*^9,
477   3.7446048443053493`*^9, 3.7446051271448936`*^9, 3.744608100176157*^9,
478   3.7446083014553022`*^9, 3.744608361898076*^9, 3.744608406943832*^9, {
479   3.7446084691106777`*^9, 3.744608488822134*^9}, 3.744608585066478*^9,
480   3.744608662887649*^9, 3.7446087760175734`*^9, 3.744608884022532*^9, {
481   3.74461073263135*^9, 3.744610739788542*^9}, 3.7449674308524523`*^9,
482   3.751125230742929*^9, 3.751125709806905*^9, 3.751125821890444*^9,
483   3.751125883019525*^9, {3.751126018619719*^9, 3.751126131290121*^9}, {
484   3.751126165651704*^9, 3.751126199860382*^9}, {3.751126249778571*^9,
485   3.7511262788789053`*^9}, 3.751126388149542*^9, 3.751126424171195*^9,
486   3.751126472426777*^9, 3.751128494947427*^9, 3.7511285474072943`*^9, {
487   3.751128592219119*^9, 3.7511286162576303`*^9}, 3.7511286573699636`*^9,
488   3.751128699309054*^9, 3.751128862143272*^9, 3.7511292357877913`*^9,
489   3.75120302582233*^9, 3.7512031956316338`*^9, 3.751203500849804*^9,
490   3.751203628234981*^9, 3.7512037758158407`*^9, 3.753601817321705*^9,
491   3.754033664314412*^9, 3.754727600050055*^9, 3.757779214876822*^9,
492   3.7577794166080847`*^9, {3.759557484740673*^9, 3.759557521969396*^9}, {
493   3.7595575578085403`*^9, 3.759557586870434*^9}, 3.759557694801608*^9,
494   3.759557772850718*^9, {3.759557847492507*^9, 3.7595578565713*^9},
495   3.759558025296575*^9, 3.7595580965643387`*^9, 3.7595600186647263`*^9,
496   3.759560967503331*^9, 3.759561004424066*^9, 3.7595723194934187`*^9,
497   3.75958750008053*^9, 3.759587549214015*^9, 3.75959049052199*^9,
498   3.75959062778057*^9},ExpressionUUID->"0ed3f25a-6927-460d-8331-\
499a4777f05f496"],
500
501Cell[BoxData["\<\"M. Baker, J. Fuentes-Martin, M. K\[ODoubleDot]nig, G. \
502Isidori\"\>"], "Print",
503 CellChangeTimes->{
504  3.7446033141411953`*^9, 3.7446036275671988`*^9, 3.7446038682570543`*^9,
505   3.7446039140872097`*^9, 3.7446039465315533`*^9, 3.744604033207672*^9, {
506   3.7446041024874687`*^9, 3.744604119606921*^9}, 3.744604716766465*^9,
507   3.7446048443053493`*^9, 3.7446051271448936`*^9, 3.744608100176157*^9,
508   3.7446083014553022`*^9, 3.744608361898076*^9, 3.744608406943832*^9, {
509   3.7446084691106777`*^9, 3.744608488822134*^9}, 3.744608585066478*^9,
510   3.744608662887649*^9, 3.7446087760175734`*^9, 3.744608884022532*^9, {
511   3.74461073263135*^9, 3.744610739788542*^9}, 3.7449674308524523`*^9,
512   3.751125230742929*^9, 3.751125709806905*^9, 3.751125821890444*^9,
513   3.751125883019525*^9, {3.751126018619719*^9, 3.751126131290121*^9}, {
514   3.751126165651704*^9, 3.751126199860382*^9}, {3.751126249778571*^9,
515   3.7511262788789053`*^9}, 3.751126388149542*^9, 3.751126424171195*^9,
516   3.751126472426777*^9, 3.751128494947427*^9, 3.7511285474072943`*^9, {
517   3.751128592219119*^9, 3.7511286162576303`*^9}, 3.7511286573699636`*^9,
518   3.751128699309054*^9, 3.751128862143272*^9, 3.7511292357877913`*^9,
519   3.75120302582233*^9, 3.7512031956316338`*^9, 3.751203500849804*^9,
520   3.751203628234981*^9, 3.7512037758158407`*^9, 3.753601817321705*^9,
521   3.754033664314412*^9, 3.754727600050055*^9, 3.757779214876822*^9,
522   3.7577794166080847`*^9, {3.759557484740673*^9, 3.759557521969396*^9}, {
523   3.7595575578085403`*^9, 3.759557586870434*^9}, 3.759557694801608*^9,
524   3.759557772850718*^9, {3.759557847492507*^9, 3.7595578565713*^9},
525   3.759558025296575*^9, 3.7595580965643387`*^9, 3.7595600186647263`*^9,
526   3.759560967503331*^9, 3.759561004424066*^9, 3.7595723194934187`*^9,
527   3.75958750008053*^9, 3.759587549214015*^9, 3.75959049052199*^9,
528   3.759590627790073*^9},ExpressionUUID->"8cb9c635-a401-4ddf-b453-\
529a4c61c2feca2"],
530
531Cell[BoxData[
532 InterpretationBox[
533  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
534  SequenceForm["Model Version: ", "1.0"],
535  Editable->False]], "Print",
536 CellChangeTimes->{
537  3.7446033141411953`*^9, 3.7446036275671988`*^9, 3.7446038682570543`*^9,
538   3.7446039140872097`*^9, 3.7446039465315533`*^9, 3.744604033207672*^9, {
539   3.7446041024874687`*^9, 3.744604119606921*^9}, 3.744604716766465*^9,
540   3.7446048443053493`*^9, 3.7446051271448936`*^9, 3.744608100176157*^9,
541   3.7446083014553022`*^9, 3.744608361898076*^9, 3.744608406943832*^9, {
542   3.7446084691106777`*^9, 3.744608488822134*^9}, 3.744608585066478*^9,
543   3.744608662887649*^9, 3.7446087760175734`*^9, 3.744608884022532*^9, {
544   3.74461073263135*^9, 3.744610739788542*^9}, 3.7449674308524523`*^9,
545   3.751125230742929*^9, 3.751125709806905*^9, 3.751125821890444*^9,
546   3.751125883019525*^9, {3.751126018619719*^9, 3.751126131290121*^9}, {
547   3.751126165651704*^9, 3.751126199860382*^9}, {3.751126249778571*^9,
548   3.7511262788789053`*^9}, 3.751126388149542*^9, 3.751126424171195*^9,
549   3.751126472426777*^9, 3.751128494947427*^9, 3.7511285474072943`*^9, {
550   3.751128592219119*^9, 3.7511286162576303`*^9}, 3.7511286573699636`*^9,
551   3.751128699309054*^9, 3.751128862143272*^9, 3.7511292357877913`*^9,
552   3.75120302582233*^9, 3.7512031956316338`*^9, 3.751203500849804*^9,
553   3.751203628234981*^9, 3.7512037758158407`*^9, 3.753601817321705*^9,
554   3.754033664314412*^9, 3.754727600050055*^9, 3.757779214876822*^9,
555   3.7577794166080847`*^9, {3.759557484740673*^9, 3.759557521969396*^9}, {
556   3.7595575578085403`*^9, 3.759557586870434*^9}, 3.759557694801608*^9,
557   3.759557772850718*^9, {3.759557847492507*^9, 3.7595578565713*^9},
558   3.759558025296575*^9, 3.7595580965643387`*^9, 3.7595600186647263`*^9,
559   3.759560967503331*^9, 3.759561004424066*^9, 3.7595723194934187`*^9,
560   3.75958750008053*^9, 3.759587549214015*^9, 3.75959049052199*^9,
561   3.7595906277993298`*^9},ExpressionUUID->"915e65e9-3c45-44a1-b789-\
562dc088fa68693"],
563
564Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
565"Print",
566 CellChangeTimes->{
567  3.7446033141411953`*^9, 3.7446036275671988`*^9, 3.7446038682570543`*^9,
568   3.7446039140872097`*^9, 3.7446039465315533`*^9, 3.744604033207672*^9, {
569   3.7446041024874687`*^9, 3.744604119606921*^9}, 3.744604716766465*^9,
570   3.7446048443053493`*^9, 3.7446051271448936`*^9, 3.744608100176157*^9,
571   3.7446083014553022`*^9, 3.744608361898076*^9, 3.744608406943832*^9, {
572   3.7446084691106777`*^9, 3.744608488822134*^9}, 3.744608585066478*^9,
573   3.744608662887649*^9, 3.7446087760175734`*^9, 3.744608884022532*^9, {
574   3.74461073263135*^9, 3.744610739788542*^9}, 3.7449674308524523`*^9,
575   3.751125230742929*^9, 3.751125709806905*^9, 3.751125821890444*^9,
576   3.751125883019525*^9, {3.751126018619719*^9, 3.751126131290121*^9}, {
577   3.751126165651704*^9, 3.751126199860382*^9}, {3.751126249778571*^9,
578   3.7511262788789053`*^9}, 3.751126388149542*^9, 3.751126424171195*^9,
579   3.751126472426777*^9, 3.751128494947427*^9, 3.7511285474072943`*^9, {
580   3.751128592219119*^9, 3.7511286162576303`*^9}, 3.7511286573699636`*^9,
581   3.751128699309054*^9, 3.751128862143272*^9, 3.7511292357877913`*^9,
582   3.75120302582233*^9, 3.7512031956316338`*^9, 3.751203500849804*^9,
583   3.751203628234981*^9, 3.7512037758158407`*^9, 3.753601817321705*^9,
584   3.754033664314412*^9, 3.754727600050055*^9, 3.757779214876822*^9,
585   3.7577794166080847`*^9, {3.759557484740673*^9, 3.759557521969396*^9}, {
586   3.7595575578085403`*^9, 3.759557586870434*^9}, 3.759557694801608*^9,
587   3.759557772850718*^9, {3.759557847492507*^9, 3.7595578565713*^9},
588   3.759558025296575*^9, 3.7595580965643387`*^9, 3.7595600186647263`*^9,
589   3.759560967503331*^9, 3.759561004424066*^9, 3.7595723194934187`*^9,
590   3.75958750008053*^9, 3.759587549214015*^9, 3.75959049052199*^9,
591   3.759590627808654*^9},ExpressionUUID->"c8d51087-1798-40aa-9fad-\
592e12676b2a07a"],
593
594Cell[BoxData["\<\"\"\>"], "Print",
595 CellChangeTimes->{
596  3.7446033141411953`*^9, 3.7446036275671988`*^9, 3.7446038682570543`*^9,
597   3.7446039140872097`*^9, 3.7446039465315533`*^9, 3.744604033207672*^9, {
598   3.7446041024874687`*^9, 3.744604119606921*^9}, 3.744604716766465*^9,
599   3.7446048443053493`*^9, 3.7446051271448936`*^9, 3.744608100176157*^9,
600   3.7446083014553022`*^9, 3.744608361898076*^9, 3.744608406943832*^9, {
601   3.7446084691106777`*^9, 3.744608488822134*^9}, 3.744608585066478*^9,
602   3.744608662887649*^9, 3.7446087760175734`*^9, 3.744608884022532*^9, {
603   3.74461073263135*^9, 3.744610739788542*^9}, 3.7449674308524523`*^9,
604   3.751125230742929*^9, 3.751125709806905*^9, 3.751125821890444*^9,
605   3.751125883019525*^9, {3.751126018619719*^9, 3.751126131290121*^9}, {
606   3.751126165651704*^9, 3.751126199860382*^9}, {3.751126249778571*^9,
607   3.7511262788789053`*^9}, 3.751126388149542*^9, 3.751126424171195*^9,
608   3.751126472426777*^9, 3.751128494947427*^9, 3.7511285474072943`*^9, {
609   3.751128592219119*^9, 3.7511286162576303`*^9}, 3.7511286573699636`*^9,
610   3.751128699309054*^9, 3.751128862143272*^9, 3.7511292357877913`*^9,
611   3.75120302582233*^9, 3.7512031956316338`*^9, 3.751203500849804*^9,
612   3.751203628234981*^9, 3.7512037758158407`*^9, 3.753601817321705*^9,
613   3.754033664314412*^9, 3.754727600050055*^9, 3.757779214876822*^9,
614   3.7577794166080847`*^9, {3.759557484740673*^9, 3.759557521969396*^9}, {
615   3.7595575578085403`*^9, 3.759557586870434*^9}, 3.759557694801608*^9,
616   3.759557772850718*^9, {3.759557847492507*^9, 3.7595578565713*^9},
617   3.759558025296575*^9, 3.7595580965643387`*^9, 3.7595600186647263`*^9,
618   3.759560967503331*^9, 3.759561004424066*^9, 3.7595723194934187`*^9,
619   3.75958750008053*^9, 3.759587549214015*^9, 3.75959049052199*^9,
620   3.759590627817807*^9},ExpressionUUID->"f76effb9-0f0c-4fb3-90a3-\
6217cc0fef0fb66"],
622
623Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
624 CellChangeTimes->{
625  3.7446033141411953`*^9, 3.7446036275671988`*^9, 3.7446038682570543`*^9,
626   3.7446039140872097`*^9, 3.7446039465315533`*^9, 3.744604033207672*^9, {
627   3.7446041024874687`*^9, 3.744604119606921*^9}, 3.744604716766465*^9,
628   3.7446048443053493`*^9, 3.7446051271448936`*^9, 3.744608100176157*^9,
629   3.7446083014553022`*^9, 3.744608361898076*^9, 3.744608406943832*^9, {
630   3.7446084691106777`*^9, 3.744608488822134*^9}, 3.744608585066478*^9,
631   3.744608662887649*^9, 3.7446087760175734`*^9, 3.744608884022532*^9, {
632   3.74461073263135*^9, 3.744610739788542*^9}, 3.7449674308524523`*^9,
633   3.751125230742929*^9, 3.751125709806905*^9, 3.751125821890444*^9,
634   3.751125883019525*^9, {3.751126018619719*^9, 3.751126131290121*^9}, {
635   3.751126165651704*^9, 3.751126199860382*^9}, {3.751126249778571*^9,
636   3.7511262788789053`*^9}, 3.751126388149542*^9, 3.751126424171195*^9,
637   3.751126472426777*^9, 3.751128494947427*^9, 3.7511285474072943`*^9, {
638   3.751128592219119*^9, 3.7511286162576303`*^9}, 3.7511286573699636`*^9,
639   3.751128699309054*^9, 3.751128862143272*^9, 3.7511292357877913`*^9,
640   3.75120302582233*^9, 3.7512031956316338`*^9, 3.751203500849804*^9,
641   3.751203628234981*^9, 3.7512037758158407`*^9, 3.753601817321705*^9,
642   3.754033664314412*^9, 3.754727600050055*^9, 3.757779214876822*^9,
643   3.7577794166080847`*^9, {3.759557484740673*^9, 3.759557521969396*^9}, {
644   3.7595575578085403`*^9, 3.759557586870434*^9}, 3.759557694801608*^9,
645   3.759557772850718*^9, {3.759557847492507*^9, 3.7595578565713*^9},
646   3.759558025296575*^9, 3.7595580965643387`*^9, 3.7595600186647263`*^9,
647   3.759560967503331*^9, 3.759561004424066*^9, 3.7595723194934187`*^9,
648   3.75958750008053*^9, 3.759587549214015*^9, 3.75959049052199*^9,
649   3.759590627826973*^9},ExpressionUUID->"7802b80d-f192-4b8d-9a6f-\
650872fc623541e"],
651
652Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
653 CellChangeTimes->{
654  3.7446033141411953`*^9, 3.7446036275671988`*^9, 3.7446038682570543`*^9,
655   3.7446039140872097`*^9, 3.7446039465315533`*^9, 3.744604033207672*^9, {
656   3.7446041024874687`*^9, 3.744604119606921*^9}, 3.744604716766465*^9,
657   3.7446048443053493`*^9, 3.7446051271448936`*^9, 3.744608100176157*^9,
658   3.7446083014553022`*^9, 3.744608361898076*^9, 3.744608406943832*^9, {
659   3.7446084691106777`*^9, 3.744608488822134*^9}, 3.744608585066478*^9,
660   3.744608662887649*^9, 3.7446087760175734`*^9, 3.744608884022532*^9, {
661   3.74461073263135*^9, 3.744610739788542*^9}, 3.7449674308524523`*^9,
662   3.751125230742929*^9, 3.751125709806905*^9, 3.751125821890444*^9,
663   3.751125883019525*^9, {3.751126018619719*^9, 3.751126131290121*^9}, {
664   3.751126165651704*^9, 3.751126199860382*^9}, {3.751126249778571*^9,
665   3.7511262788789053`*^9}, 3.751126388149542*^9, 3.751126424171195*^9,
666   3.751126472426777*^9, 3.751128494947427*^9, 3.7511285474072943`*^9, {
667   3.751128592219119*^9, 3.7511286162576303`*^9}, 3.7511286573699636`*^9,
668   3.751128699309054*^9, 3.751128862143272*^9, 3.7511292357877913`*^9,
669   3.75120302582233*^9, 3.7512031956316338`*^9, 3.751203500849804*^9,
670   3.751203628234981*^9, 3.7512037758158407`*^9, 3.753601817321705*^9,
671   3.754033664314412*^9, 3.754727600050055*^9, 3.757779214876822*^9,
672   3.7577794166080847`*^9, {3.759557484740673*^9, 3.759557521969396*^9}, {
673   3.7595575578085403`*^9, 3.759557586870434*^9}, 3.759557694801608*^9,
674   3.759557772850718*^9, {3.759557847492507*^9, 3.7595578565713*^9},
675   3.759558025296575*^9, 3.7595580965643387`*^9, 3.7595600186647263`*^9,
676   3.759560967503331*^9, 3.759561004424066*^9, 3.7595723194934187`*^9,
677   3.75958750008053*^9, 3.759587549214015*^9, 3.75959049052199*^9,
678   3.75959062787712*^9},ExpressionUUID->"1aaf4790-2c5e-43be-9651-\
67900371ce857fb"],
680
681Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
682 CellChangeTimes->{
683  3.7446033141411953`*^9, 3.7446036275671988`*^9, 3.7446038682570543`*^9,
684   3.7446039140872097`*^9, 3.7446039465315533`*^9, 3.744604033207672*^9, {
685   3.7446041024874687`*^9, 3.744604119606921*^9}, 3.744604716766465*^9,
686   3.7446048443053493`*^9, 3.7446051271448936`*^9, 3.744608100176157*^9,
687   3.7446083014553022`*^9, 3.744608361898076*^9, 3.744608406943832*^9, {
688   3.7446084691106777`*^9, 3.744608488822134*^9}, 3.744608585066478*^9,
689   3.744608662887649*^9, 3.7446087760175734`*^9, 3.744608884022532*^9, {
690   3.74461073263135*^9, 3.744610739788542*^9}, 3.7449674308524523`*^9,
691   3.751125230742929*^9, 3.751125709806905*^9, 3.751125821890444*^9,
692   3.751125883019525*^9, {3.751126018619719*^9, 3.751126131290121*^9}, {
693   3.751126165651704*^9, 3.751126199860382*^9}, {3.751126249778571*^9,
694   3.7511262788789053`*^9}, 3.751126388149542*^9, 3.751126424171195*^9,
695   3.751126472426777*^9, 3.751128494947427*^9, 3.7511285474072943`*^9, {
696   3.751128592219119*^9, 3.7511286162576303`*^9}, 3.7511286573699636`*^9,
697   3.751128699309054*^9, 3.751128862143272*^9, 3.7511292357877913`*^9,
698   3.75120302582233*^9, 3.7512031956316338`*^9, 3.751203500849804*^9,
699   3.751203628234981*^9, 3.7512037758158407`*^9, 3.753601817321705*^9,
700   3.754033664314412*^9, 3.754727600050055*^9, 3.757779214876822*^9,
701   3.7577794166080847`*^9, {3.759557484740673*^9, 3.759557521969396*^9}, {
702   3.7595575578085403`*^9, 3.759557586870434*^9}, 3.759557694801608*^9,
703   3.759557772850718*^9, {3.759557847492507*^9, 3.7595578565713*^9},
704   3.759558025296575*^9, 3.7595580965643387`*^9, 3.7595600186647263`*^9,
705   3.759560967503331*^9, 3.759561004424066*^9, 3.7595723194934187`*^9,
706   3.75958750008053*^9, 3.759587549214015*^9, 3.75959049052199*^9,
707   3.759590627887711*^9},ExpressionUUID->"4ce5fcf1-1895-4bb9-a9e2-\
708dea2cecdce0f"],
709
710Cell[BoxData[
711 InterpretationBox[
712  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"vector_LQ\"\>",
713   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
714  SequenceForm["\nModel ", "vector_LQ", " loaded."],
715  Editable->False]], "Print",
716 CellChangeTimes->{
717  3.7446033141411953`*^9, 3.7446036275671988`*^9, 3.7446038682570543`*^9,
718   3.7446039140872097`*^9, 3.7446039465315533`*^9, 3.744604033207672*^9, {
719   3.7446041024874687`*^9, 3.744604119606921*^9}, 3.744604716766465*^9,
720   3.7446048443053493`*^9, 3.7446051271448936`*^9, 3.744608100176157*^9,
721   3.7446083014553022`*^9, 3.744608361898076*^9, 3.744608406943832*^9, {
722   3.7446084691106777`*^9, 3.744608488822134*^9}, 3.744608585066478*^9,
723   3.744608662887649*^9, 3.7446087760175734`*^9, 3.744608884022532*^9, {
724   3.74461073263135*^9, 3.744610739788542*^9}, 3.7449674308524523`*^9,
725   3.751125230742929*^9, 3.751125709806905*^9, 3.751125821890444*^9,
726   3.751125883019525*^9, {3.751126018619719*^9, 3.751126131290121*^9}, {
727   3.751126165651704*^9, 3.751126199860382*^9}, {3.751126249778571*^9,
728   3.7511262788789053`*^9}, 3.751126388149542*^9, 3.751126424171195*^9,
729   3.751126472426777*^9, 3.751128494947427*^9, 3.7511285474072943`*^9, {
730   3.751128592219119*^9, 3.7511286162576303`*^9}, 3.7511286573699636`*^9,
731   3.751128699309054*^9, 3.751128862143272*^9, 3.7511292357877913`*^9,
732   3.75120302582233*^9, 3.7512031956316338`*^9, 3.751203500849804*^9,
733   3.751203628234981*^9, 3.7512037758158407`*^9, 3.753601817321705*^9,
734   3.754033664314412*^9, 3.754727600050055*^9, 3.757779214876822*^9,
735   3.7577794166080847`*^9, {3.759557484740673*^9, 3.759557521969396*^9}, {
736   3.7595575578085403`*^9, 3.759557586870434*^9}, 3.759557694801608*^9,
737   3.759557772850718*^9, {3.759557847492507*^9, 3.7595578565713*^9},
738   3.759558025296575*^9, 3.7595580965643387`*^9, 3.7595600186647263`*^9,
739   3.759560967503331*^9, 3.759561004424066*^9, 3.7595723194934187`*^9,
740   3.75958750008053*^9, 3.759587549214015*^9, 3.75959049052199*^9,
741   3.759590627989642*^9},ExpressionUUID->"22d8771b-8628-4e2e-b215-\
742b2c13bb91f10"]
743}, Open  ]]
744}, Open  ]],
745
746Cell[CellGroupData[{
747
748Cell[BoxData[
749 RowBox[{"LoadRestriction", "[", "\"\<Massless.rst\>\"", "]"}]], "Input",
750 CellChangeTimes->{{3.547535575308606*^9, 3.547535589236651*^9}, {
751   3.728222366177301*^9, 3.7282223689890957`*^9}, 3.7282260832953587`*^9, {
752   3.751125236452142*^9, 3.7511252572995787`*^9}, {3.751129220235018*^9,
753   3.751129225249723*^9},
754   3.7595576131583776`*^9},ExpressionUUID->"69e1cf89-8b36-4eaf-931f-\
7551c0a004d2ae0"],
756
757Cell[CellGroupData[{
758
759Cell[BoxData[
760 InterpretationBox[
761  RowBox[{"\<\"Loading restrictions from \"\>",
762   "\[InvisibleSpace]", "\<\"Massless.rst\"\>",
763   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
764   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
765    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
766   "\[InvisibleSpace]", "24"}],
767  SequenceForm["Loading restrictions from ", "Massless.rst", " : ",
768   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 24],
769  Editable->False]], "Print",
770 CellChangeTimes->{
771  3.722260390326868*^9, {3.7282223630394993`*^9, 3.7282223697454357`*^9},
772   3.728222627810967*^9, 3.7282227237050467`*^9, 3.728222884041244*^9,
773   3.728223605216587*^9, 3.7282237593547373`*^9, 3.728224309114955*^9,
774   3.7282243784750566`*^9, 3.728224580898507*^9, 3.7282246935988007`*^9,
775   3.7282247652540007`*^9, 3.728224873775012*^9, 3.728224939064975*^9,
776   3.728225018243999*^9, 3.728225898440176*^9, 3.751125258743166*^9,
777   3.751125715056014*^9, 3.751125824544229*^9, 3.751125889491605*^9,
778   3.751126210282949*^9, {3.7511262508811827`*^9, 3.751126280095821*^9},
779   3.7511263913564873`*^9, 3.751126427118334*^9, 3.7511264747815866`*^9,
780   3.751128499760168*^9, 3.751128549308199*^9, 3.75112861843567*^9,
781   3.751128659551556*^9, 3.751128701591731*^9, 3.751128865166729*^9,
782   3.7511292381228333`*^9, 3.751203028706599*^9, 3.751203198432304*^9,
783   3.751203504556655*^9, 3.751203629483397*^9, 3.7512037781821747`*^9,
784   3.754033668523031*^9, 3.7547276037154713`*^9, 3.7577792178094673`*^9,
785   3.7577794177458982`*^9, 3.759557626913907*^9, 3.7595576992412024`*^9,
786   3.759557860956305*^9, 3.75955802656997*^9, 3.759558099299021*^9,
787   3.759561007417984*^9, 3.759572323309338*^9, 3.759587503965219*^9,
788   3.7595875512964783`*^9,
789   3.759590630599051*^9},ExpressionUUID->"16f8a7b5-e311-404d-b014-\
790ac6aa85a7553"],
791
792Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
793 CellChangeTimes->{
794  3.722260390326868*^9, {3.7282223630394993`*^9, 3.7282223697454357`*^9},
795   3.728222627810967*^9, 3.7282227237050467`*^9, 3.728222884041244*^9,
796   3.728223605216587*^9, 3.7282237593547373`*^9, 3.728224309114955*^9,
797   3.7282243784750566`*^9, 3.728224580898507*^9, 3.7282246935988007`*^9,
798   3.7282247652540007`*^9, 3.728224873775012*^9, 3.728224939064975*^9,
799   3.728225018243999*^9, 3.728225898440176*^9, 3.751125258743166*^9,
800   3.751125715056014*^9, 3.751125824544229*^9, 3.751125889491605*^9,
801   3.751126210282949*^9, {3.7511262508811827`*^9, 3.751126280095821*^9},
802   3.7511263913564873`*^9, 3.751126427118334*^9, 3.7511264747815866`*^9,
803   3.751128499760168*^9, 3.751128549308199*^9, 3.75112861843567*^9,
804   3.751128659551556*^9, 3.751128701591731*^9, 3.751128865166729*^9,
805   3.7511292381228333`*^9, 3.751203028706599*^9, 3.751203198432304*^9,
806   3.751203504556655*^9, 3.751203629483397*^9, 3.7512037781821747`*^9,
807   3.754033668523031*^9, 3.7547276037154713`*^9, 3.7577792178094673`*^9,
808   3.7577794177458982`*^9, 3.759557626913907*^9, 3.7595576992412024`*^9,
809   3.759557860956305*^9, 3.75955802656997*^9, 3.759558099299021*^9,
810   3.759561007417984*^9, 3.759572323309338*^9, 3.759587503965219*^9,
811   3.7595875512964783`*^9,
812   3.759590630827828*^9},ExpressionUUID->"fe228dc5-f3eb-4d3f-9527-\
8135b8d0fe80e1e"]
814}, Open  ]]
815}, Open  ]]
816}, Open  ]],
817
818Cell[CellGroupData[{
819
820Cell["Checking the Lagrangian", "Section",
821 CellChangeTimes->{{3.4234156496121893`*^9, 3.423415657027569*^9}, {
822  3.751126388465088*^9,
823  3.751126391819172*^9}},ExpressionUUID->"7872fafc-defe-47e8-b59e-\
82477d348ea2d6b"],
825
826Cell[CellGroupData[{
827
828Cell[BoxData[
829 RowBox[{"CheckHermiticity", "[", "LVLQ", "]"}]], "Input",
830 CellChangeTimes->{{3.751125271520255*^9,
831  3.751125275491845*^9}},ExpressionUUID->"27294cd1-3afd-4233-bdf0-\
832debed0cb9a31"],
833
834Cell[CellGroupData[{
835
836Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
837contained in L-HC[L].\"\>"], "Print",
838 CellChangeTimes->{3.751125276084076*^9, 3.751125716250387*^9,
839  3.751125852414159*^9, 3.751126212237487*^9, 3.751126427956052*^9,
840  3.751126475935989*^9, 3.7511285009818563`*^9, 3.751128702829523*^9,
841  3.7511292404312*^9, 3.751203031725802*^9, 3.75120320014919*^9,
842  3.7512035064308357`*^9, 3.7512036307986383`*^9, 3.751203779652175*^9,
843  3.753601818051836*^9, 3.759557633557054*^9, 3.759557701547798*^9,
844  3.759558046811864*^9, 3.7595581010932293`*^9, 3.759561010552886*^9,
845  3.759572324652368*^9, 3.759587505934318*^9, 3.759587552620747*^9,
846  3.759590632388707*^9},ExpressionUUID->"a22f843d-5f29-4603-a715-\
847e123f9bb4999"],
848
849Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
850should be zero.\"\>"], "Print",
851 CellChangeTimes->{3.751125276084076*^9, 3.751125716250387*^9,
852  3.751125852414159*^9, 3.751126212237487*^9, 3.751126427956052*^9,
853  3.751126475935989*^9, 3.7511285009818563`*^9, 3.751128702829523*^9,
854  3.7511292404312*^9, 3.751203031725802*^9, 3.75120320014919*^9,
855  3.7512035064308357`*^9, 3.7512036307986383`*^9, 3.751203779652175*^9,
856  3.753601818051836*^9, 3.759557633557054*^9, 3.759557701547798*^9,
857  3.759558046811864*^9, 3.7595581010932293`*^9, 3.759561010552886*^9,
858  3.759572324652368*^9, 3.759587505934318*^9, 3.759587552620747*^9,
859  3.759590632398554*^9},ExpressionUUID->"165ed4d4-ca18-4f2b-bceb-\
860c801655de3a0"],
861
862Cell[BoxData[
863 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
864  StripOnInput->False,
865  LineColor->RGBColor[1, 0.5, 0],
866  FrontFaceColor->RGBColor[1, 0.5, 0],
867  BackFaceColor->RGBColor[1, 0.5, 0],
868  GraphicsColor->RGBColor[1, 0.5, 0],
869  FontWeight->Bold,
870  FontColor->RGBColor[1, 0.5, 0]]], "Print",
871 CellChangeTimes->{3.751125276084076*^9, 3.751125716250387*^9,
872  3.751125852414159*^9, 3.751126212237487*^9, 3.751126427956052*^9,
873  3.751126475935989*^9, 3.7511285009818563`*^9, 3.751128702829523*^9,
874  3.7511292404312*^9, 3.751203031725802*^9, 3.75120320014919*^9,
875  3.7512035064308357`*^9, 3.7512036307986383`*^9, 3.751203779652175*^9,
876  3.753601818051836*^9, 3.759557633557054*^9, 3.759557701547798*^9,
877  3.759558046811864*^9, 3.7595581010932293`*^9, 3.759561010552886*^9,
878  3.759572324652368*^9, 3.759587505934318*^9, 3.759587552620747*^9,
879  3.759590634632936*^9},ExpressionUUID->"5df91cab-efb7-4864-8374-\
880a84fc5dd525f"],
881
882Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
883 CellChangeTimes->{3.751125276084076*^9, 3.751125716250387*^9,
884  3.751125852414159*^9, 3.751126212237487*^9, 3.751126427956052*^9,
885  3.751126475935989*^9, 3.7511285009818563`*^9, 3.751128702829523*^9,
886  3.7511292404312*^9, 3.751203031725802*^9, 3.75120320014919*^9,
887  3.7512035064308357`*^9, 3.7512036307986383`*^9, 3.751203779652175*^9,
888  3.753601818051836*^9, 3.759557633557054*^9, 3.759557701547798*^9,
889  3.759558046811864*^9, 3.7595581010932293`*^9, 3.759561010552886*^9,
890  3.759572324652368*^9, 3.759587505934318*^9, 3.759587552620747*^9,
891  3.759590634642399*^9},ExpressionUUID->"b2fc0223-1257-4a8c-ae0c-\
892093f155f663a"],
893
894Cell[BoxData["\<\"Collecting the different structures that enter the \
895vertex.\"\>"], "Print",
896 CellChangeTimes->{3.751125276084076*^9, 3.751125716250387*^9,
897  3.751125852414159*^9, 3.751126212237487*^9, 3.751126427956052*^9,
898  3.751126475935989*^9, 3.7511285009818563`*^9, 3.751128702829523*^9,
899  3.7511292404312*^9, 3.751203031725802*^9, 3.75120320014919*^9,
900  3.7512035064308357`*^9, 3.7512036307986383`*^9, 3.751203779652175*^9,
901  3.753601818051836*^9, 3.759557633557054*^9, 3.759557701547798*^9,
902  3.759558046811864*^9, 3.7595581010932293`*^9, 3.759561010552886*^9,
903  3.759572324652368*^9, 3.759587505934318*^9, 3.759587552620747*^9,
904  3.759590634822226*^9},ExpressionUUID->"7bc4949d-11c3-473a-b605-\
90571558f2b1a96"],
906
907Cell[BoxData[
908 InterpretationBox[
909  RowBox[{
910  "1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
911-> starting the computation: \"\>", "\[InvisibleSpace]",
912   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
913    ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
914   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
915  SequenceForm[
916  1, " possible non-zero vertices have been found -> starting the \
917computation: ",
918   Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
919  Editable->False]], "Print",
920 CellChangeTimes->{3.751125276084076*^9, 3.751125716250387*^9,
921  3.751125852414159*^9, 3.751126212237487*^9, 3.751126427956052*^9,
922  3.751126475935989*^9, 3.7511285009818563`*^9, 3.751128702829523*^9,
923  3.7511292404312*^9, 3.751203031725802*^9, 3.75120320014919*^9,
924  3.7512035064308357`*^9, 3.7512036307986383`*^9, 3.751203779652175*^9,
925  3.753601818051836*^9, 3.759557633557054*^9, 3.759557701547798*^9,
926  3.759558046811864*^9, 3.7595581010932293`*^9, 3.759561010552886*^9,
927  3.759572324652368*^9, 3.759587505934318*^9, 3.759587552620747*^9,
928  3.759590634833112*^9},ExpressionUUID->"4f7ce98e-9248-46db-b1f2-\
92956e6e02b1ccc"],
930
931Cell[BoxData[
932 InterpretationBox[
933  RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
934  SequenceForm[0, " vertices obtained."],
935  Editable->False]], "Print",
936 CellChangeTimes->{3.751125276084076*^9, 3.751125716250387*^9,
937  3.751125852414159*^9, 3.751126212237487*^9, 3.751126427956052*^9,
938  3.751126475935989*^9, 3.7511285009818563`*^9, 3.751128702829523*^9,
939  3.7511292404312*^9, 3.751203031725802*^9, 3.75120320014919*^9,
940  3.7512035064308357`*^9, 3.7512036307986383`*^9, 3.751203779652175*^9,
941  3.753601818051836*^9, 3.759557633557054*^9, 3.759557701547798*^9,
942  3.759558046811864*^9, 3.7595581010932293`*^9, 3.759561010552886*^9,
943  3.759572324652368*^9, 3.759587505934318*^9, 3.759587552620747*^9,
944  3.7595906351585083`*^9},ExpressionUUID->"3fbfe59e-fbc1-44b2-ae09-\
945c76bbf544726"],
946
947Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
948 CellChangeTimes->{3.751125276084076*^9, 3.751125716250387*^9,
949  3.751125852414159*^9, 3.751126212237487*^9, 3.751126427956052*^9,
950  3.751126475935989*^9, 3.7511285009818563`*^9, 3.751128702829523*^9,
951  3.7511292404312*^9, 3.751203031725802*^9, 3.75120320014919*^9,
952  3.7512035064308357`*^9, 3.7512036307986383`*^9, 3.751203779652175*^9,
953  3.753601818051836*^9, 3.759557633557054*^9, 3.759557701547798*^9,
954  3.759558046811864*^9, 3.7595581010932293`*^9, 3.759561010552886*^9,
955  3.759572324652368*^9, 3.759587505934318*^9, 3.759587552620747*^9,
956  3.759590635169588*^9},ExpressionUUID->"fa678af8-4df2-4ea5-ab79-\
957205722504363"]
958}, Open  ]],
959
960Cell[BoxData[
961 RowBox[{"{", "}"}]], "Output",
962 CellChangeTimes->{3.7511252790652246`*^9, 3.751125719284815*^9,
963  3.75112585530996*^9, 3.751126215038574*^9, 3.7511264309992723`*^9,
964  3.7511264787187433`*^9, 3.751128504003107*^9, 3.751128705674638*^9,
965  3.751129243255699*^9, 3.751203033946913*^9, 3.751203202351708*^9,
966  3.7512035085783567`*^9, 3.751203633000794*^9, 3.751203781849831*^9,
967  3.753601820420676*^9, 3.759557637111724*^9, 3.7595577049650707`*^9,
968  3.759558050253756*^9, 3.759558104315281*^9, 3.759561014091832*^9,
969  3.759572328149044*^9, 3.759587509232481*^9, 3.759587555307213*^9,
970  3.759590635178554*^9},ExpressionUUID->"2412300e-7cb4-4326-a819-\
971df0d76e46899"]
972}, Open  ]],
973
974Cell[CellGroupData[{
975
976Cell[BoxData[
977 RowBox[{"CheckHermiticity", "[", "LGp", "]"}]], "Input",
978 CellChangeTimes->{{3.7511252828651667`*^9,
979  3.751125284589007*^9}},ExpressionUUID->"f18560ae-919f-4aae-a80e-\
980b50edda10b47"],
981
982Cell[CellGroupData[{
983
984Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
985contained in L-HC[L].\"\>"], "Print",
986 CellChangeTimes->{
987  3.75112528538809*^9, 3.751125721187264*^9, 3.7511258571802893`*^9,
988   3.751125893127511*^9, 3.751126220604891*^9, {3.751126253380025*^9,
989   3.751126281370566*^9}, 3.751126394104332*^9, 3.751126431715988*^9,
990   3.751126480537841*^9, 3.751128505150363*^9, 3.751128705752984*^9,
991   3.751129243332275*^9, 3.751203041505212*^9, 3.7512032037404737`*^9,
992   3.751203509999435*^9, 3.751203634165505*^9, 3.751203783245883*^9,
993   3.753601820774835*^9, 3.759557640311447*^9, 3.759557706762105*^9,
994   3.759557773213628*^9, 3.759557863507272*^9, {3.759558028553843*^9,
995   3.759558039738187*^9}, 3.7595581057796*^9, 3.759561014169364*^9,
996   3.759572328215557*^9, 3.759587509306265*^9, 3.7595875570906677`*^9,
997   3.759590635342516*^9},ExpressionUUID->"73b10e4b-7f1b-441f-9e85-\
998dff52a337262"],
999
1000Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
1001should be zero.\"\>"], "Print",
1002 CellChangeTimes->{
1003  3.75112528538809*^9, 3.751125721187264*^9, 3.7511258571802893`*^9,
1004   3.751125893127511*^9, 3.751126220604891*^9, {3.751126253380025*^9,
1005   3.751126281370566*^9}, 3.751126394104332*^9, 3.751126431715988*^9,
1006   3.751126480537841*^9, 3.751128505150363*^9, 3.751128705752984*^9,
1007   3.751129243332275*^9, 3.751203041505212*^9, 3.7512032037404737`*^9,
1008   3.751203509999435*^9, 3.751203634165505*^9, 3.751203783245883*^9,
1009   3.753601820774835*^9, 3.759557640311447*^9, 3.759557706762105*^9,
1010   3.759557773213628*^9, 3.759557863507272*^9, {3.759558028553843*^9,
1011   3.759558039738187*^9}, 3.7595581057796*^9, 3.759561014169364*^9,
1012   3.759572328215557*^9, 3.759587509306265*^9, 3.7595875570906677`*^9,
1013   3.7595906353518553`*^9},ExpressionUUID->"80376092-0176-4030-b9a9-\
1014a30e67073bfc"],
1015
1016Cell[BoxData[
1017 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1018  StripOnInput->False,
1019  LineColor->RGBColor[1, 0.5, 0],
1020  FrontFaceColor->RGBColor[1, 0.5, 0],
1021  BackFaceColor->RGBColor[1, 0.5, 0],
1022  GraphicsColor->RGBColor[1, 0.5, 0],
1023  FontWeight->Bold,
1024  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1025 CellChangeTimes->{
1026  3.75112528538809*^9, 3.751125721187264*^9, 3.7511258571802893`*^9,
1027   3.751125893127511*^9, 3.751126220604891*^9, {3.751126253380025*^9,
1028   3.751126281370566*^9}, 3.751126394104332*^9, 3.751126431715988*^9,
1029   3.751126480537841*^9, 3.751128505150363*^9, 3.751128705752984*^9,
1030   3.751129243332275*^9, 3.751203041505212*^9, 3.7512032037404737`*^9,
1031   3.751203509999435*^9, 3.751203634165505*^9, 3.751203783245883*^9,
1032   3.753601820774835*^9, 3.759557640311447*^9, 3.759557706762105*^9,
1033   3.759557773213628*^9, 3.759557863507272*^9, {3.759558028553843*^9,
1034   3.759558039738187*^9}, 3.7595581057796*^9, 3.759561014169364*^9,
1035   3.759572328215557*^9, 3.759587509306265*^9, 3.7595875570906677`*^9,
1036   3.7595906377412643`*^9},ExpressionUUID->"e992d97f-e72f-4026-b2d2-\
1037e0d6f9e8aaec"],
1038
1039Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1040 CellChangeTimes->{
1041  3.75112528538809*^9, 3.751125721187264*^9, 3.7511258571802893`*^9,
1042   3.751125893127511*^9, 3.751126220604891*^9, {3.751126253380025*^9,
1043   3.751126281370566*^9}, 3.751126394104332*^9, 3.751126431715988*^9,
1044   3.751126480537841*^9, 3.751128505150363*^9, 3.751128705752984*^9,
1045   3.751129243332275*^9, 3.751203041505212*^9, 3.7512032037404737`*^9,
1046   3.751203509999435*^9, 3.751203634165505*^9, 3.751203783245883*^9,
1047   3.753601820774835*^9, 3.759557640311447*^9, 3.759557706762105*^9,
1048   3.759557773213628*^9, 3.759557863507272*^9, {3.759558028553843*^9,
1049   3.759558039738187*^9}, 3.7595581057796*^9, 3.759561014169364*^9,
1050   3.759572328215557*^9, 3.759587509306265*^9, 3.7595875570906677`*^9,
1051   3.7595906377511272`*^9},ExpressionUUID->"92ec9199-9753-4bd1-8a97-\
1052686d4d0e8411"],
1053
1054Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
1055 CellChangeTimes->{
1056  3.75112528538809*^9, 3.751125721187264*^9, 3.7511258571802893`*^9,
1057   3.751125893127511*^9, 3.751126220604891*^9, {3.751126253380025*^9,
1058   3.751126281370566*^9}, 3.751126394104332*^9, 3.751126431715988*^9,
1059   3.751126480537841*^9, 3.751128505150363*^9, 3.751128705752984*^9,
1060   3.751129243332275*^9, 3.751203041505212*^9, 3.7512032037404737`*^9,
1061   3.751203509999435*^9, 3.751203634165505*^9, 3.751203783245883*^9,
1062   3.753601820774835*^9, 3.759557640311447*^9, 3.759557706762105*^9,
1063   3.759557773213628*^9, 3.759557863507272*^9, {3.759558028553843*^9,
1064   3.759558039738187*^9}, 3.7595581057796*^9, 3.759561014169364*^9,
1065   3.759572328215557*^9, 3.759587509306265*^9, 3.7595875570906677`*^9,
1066   3.759590637759911*^9},ExpressionUUID->"26b2b3db-9841-42d4-9ddc-\
1067a7b5e420d4c7"],
1068
1069Cell[BoxData[
1070 InterpretationBox[
1071  RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1072  SequenceForm[0, " vertices obtained."],
1073  Editable->False]], "Print",
1074 CellChangeTimes->{
1075  3.75112528538809*^9, 3.751125721187264*^9, 3.7511258571802893`*^9,
1076   3.751125893127511*^9, 3.751126220604891*^9, {3.751126253380025*^9,
1077   3.751126281370566*^9}, 3.751126394104332*^9, 3.751126431715988*^9,
1078   3.751126480537841*^9, 3.751128505150363*^9, 3.751128705752984*^9,
1079   3.751129243332275*^9, 3.751203041505212*^9, 3.7512032037404737`*^9,
1080   3.751203509999435*^9, 3.751203634165505*^9, 3.751203783245883*^9,
1081   3.753601820774835*^9, 3.759557640311447*^9, 3.759557706762105*^9,
1082   3.759557773213628*^9, 3.759557863507272*^9, {3.759558028553843*^9,
1083   3.759558039738187*^9}, 3.7595581057796*^9, 3.759561014169364*^9,
1084   3.759572328215557*^9, 3.759587509306265*^9, 3.7595875570906677`*^9,
1085   3.759590637768777*^9},ExpressionUUID->"ed3be922-4294-47e3-9da4-\
1086c0dcd3b15784"],
1087
1088Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
1089 CellChangeTimes->{
1090  3.75112528538809*^9, 3.751125721187264*^9, 3.7511258571802893`*^9,
1091   3.751125893127511*^9, 3.751126220604891*^9, {3.751126253380025*^9,
1092   3.751126281370566*^9}, 3.751126394104332*^9, 3.751126431715988*^9,
1093   3.751126480537841*^9, 3.751128505150363*^9, 3.751128705752984*^9,
1094   3.751129243332275*^9, 3.751203041505212*^9, 3.7512032037404737`*^9,
1095   3.751203509999435*^9, 3.751203634165505*^9, 3.751203783245883*^9,
1096   3.753601820774835*^9, 3.759557640311447*^9, 3.759557706762105*^9,
1097   3.759557773213628*^9, 3.759557863507272*^9, {3.759558028553843*^9,
1098   3.759558039738187*^9}, 3.7595581057796*^9, 3.759561014169364*^9,
1099   3.759572328215557*^9, 3.759587509306265*^9, 3.7595875570906677`*^9,
1100   3.759590637777651*^9},ExpressionUUID->"227081b5-4c55-47b1-a081-\
11016481cdd57ea6"]
1102}, Open  ]],
1103
1104Cell[BoxData[
1105 RowBox[{"{", "}"}]], "Output",
1106 CellChangeTimes->{
1107  3.759557647346641*^9, 3.759557713672295*^9, 3.759557788918747*^9,
1108   3.7595578812538757`*^9, {3.7595580317041693`*^9, 3.759558042690405*^9},
1109   3.7595581086113987`*^9, 3.759561017054079*^9, 3.759572331084457*^9,
1110   3.759587511684084*^9, 3.759587559592142*^9,
1111   3.759590637786379*^9},ExpressionUUID->"4c315cb8-84b4-4bc1-82cb-\
1112c5b2da3154f2"]
1113}, Open  ]],
1114
1115Cell[CellGroupData[{
1116
1117Cell[BoxData[
1118 RowBox[{"CheckHermiticity", "[", "LZp", "]"}]], "Input",
1119 CellChangeTimes->{{3.7511285119770937`*^9,
1120  3.751128512125619*^9}},ExpressionUUID->"0a2ce9ca-cf03-41e4-9449-\
1121ae9ae0db0d56"],
1122
1123Cell[CellGroupData[{
1124
1125Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
1126contained in L-HC[L].\"\>"], "Print",
1127 CellChangeTimes->{
1128  3.751128512619337*^9, 3.751128551915387*^9, {3.751128594405888*^9,
1129   3.751128620324646*^9}, 3.7511286616105747`*^9, 3.751128709080859*^9,
1130   3.751129246719633*^9, 3.75120303494958*^9, 3.751203513502365*^9,
1131   3.7512036380327883`*^9, 3.751203785071205*^9, 3.7536018240154037`*^9,
1132   3.759558110364127*^9, 3.759561017116534*^9, 3.759572331149186*^9,
1133   3.75958755966319*^9,
1134   3.759590637848812*^9},ExpressionUUID->"ffa1932f-47f9-45c1-845b-\
1135c7d59fe06da8"],
1136
1137Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
1138should be zero.\"\>"], "Print",
1139 CellChangeTimes->{
1140  3.751128512619337*^9, 3.751128551915387*^9, {3.751128594405888*^9,
1141   3.751128620324646*^9}, 3.7511286616105747`*^9, 3.751128709080859*^9,
1142   3.751129246719633*^9, 3.75120303494958*^9, 3.751203513502365*^9,
1143   3.7512036380327883`*^9, 3.751203785071205*^9, 3.7536018240154037`*^9,
1144   3.759558110364127*^9, 3.759561017116534*^9, 3.759572331149186*^9,
1145   3.75958755966319*^9,
1146   3.759590637858568*^9},ExpressionUUID->"08fa3e0d-0ef2-47cb-a317-\
114732debb6f5bc0"],
1148
1149Cell[BoxData[
1150 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1151  StripOnInput->False,
1152  LineColor->RGBColor[1, 0.5, 0],
1153  FrontFaceColor->RGBColor[1, 0.5, 0],
1154  BackFaceColor->RGBColor[1, 0.5, 0],
1155  GraphicsColor->RGBColor[1, 0.5, 0],
1156  FontWeight->Bold,
1157  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1158 CellChangeTimes->{
1159  3.751128512619337*^9, 3.751128551915387*^9, {3.751128594405888*^9,
1160   3.751128620324646*^9}, 3.7511286616105747`*^9, 3.751128709080859*^9,
1161   3.751129246719633*^9, 3.75120303494958*^9, 3.751203513502365*^9,
1162   3.7512036380327883`*^9, 3.751203785071205*^9, 3.7536018240154037`*^9,
1163   3.759558110364127*^9, 3.759561017116534*^9, 3.759572331149186*^9,
1164   3.75958755966319*^9,
1165   3.75959063950147*^9},ExpressionUUID->"f88dbe54-e04b-4b14-b9eb-\
11664cc913206d70"],
1167
1168Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1169 CellChangeTimes->{
1170  3.751128512619337*^9, 3.751128551915387*^9, {3.751128594405888*^9,
1171   3.751128620324646*^9}, 3.7511286616105747`*^9, 3.751128709080859*^9,
1172   3.751129246719633*^9, 3.75120303494958*^9, 3.751203513502365*^9,
1173   3.7512036380327883`*^9, 3.751203785071205*^9, 3.7536018240154037`*^9,
1174   3.759558110364127*^9, 3.759561017116534*^9, 3.759572331149186*^9,
1175   3.75958755966319*^9,
1176   3.759590639511104*^9},ExpressionUUID->"09cf8841-4924-4fbf-8d0b-\
11779c608063af57"],
1178
1179Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
1180 CellChangeTimes->{
1181  3.751128512619337*^9, 3.751128551915387*^9, {3.751128594405888*^9,
1182   3.751128620324646*^9}, 3.7511286616105747`*^9, 3.751128709080859*^9,
1183   3.751129246719633*^9, 3.75120303494958*^9, 3.751203513502365*^9,
1184   3.7512036380327883`*^9, 3.751203785071205*^9, 3.7536018240154037`*^9,
1185   3.759558110364127*^9, 3.759561017116534*^9, 3.759572331149186*^9,
1186   3.75958755966319*^9,
1187   3.759590639519614*^9},ExpressionUUID->"00c98362-f655-45b0-a1cd-\
1188ec481f99a778"],
1189
1190Cell[BoxData[
1191 InterpretationBox[
1192  RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1193  SequenceForm[0, " vertices obtained."],
1194  Editable->False]], "Print",
1195 CellChangeTimes->{
1196  3.751128512619337*^9, 3.751128551915387*^9, {3.751128594405888*^9,
1197   3.751128620324646*^9}, 3.7511286616105747`*^9, 3.751128709080859*^9,
1198   3.751129246719633*^9, 3.75120303494958*^9, 3.751203513502365*^9,
1199   3.7512036380327883`*^9, 3.751203785071205*^9, 3.7536018240154037`*^9,
1200   3.759558110364127*^9, 3.759561017116534*^9, 3.759572331149186*^9,
1201   3.75958755966319*^9,
1202   3.759590639528261*^9},ExpressionUUID->"9f6b323b-79dc-4a57-9f61-\
1203f435ed378c23"],
1204
1205Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
1206 CellChangeTimes->{
1207  3.751128512619337*^9, 3.751128551915387*^9, {3.751128594405888*^9,
1208   3.751128620324646*^9}, 3.7511286616105747`*^9, 3.751128709080859*^9,
1209   3.751129246719633*^9, 3.75120303494958*^9, 3.751203513502365*^9,
1210   3.7512036380327883`*^9, 3.751203785071205*^9, 3.7536018240154037`*^9,
1211   3.759558110364127*^9, 3.759561017116534*^9, 3.759572331149186*^9,
1212   3.75958755966319*^9,
1213   3.7595906395367804`*^9},ExpressionUUID->"1107442c-70e3-465f-89ae-\
121417d824819ab0"]
1215}, Open  ]],
1216
1217Cell[BoxData[
1218 RowBox[{"{", "}"}]], "Output",
1219 CellChangeTimes->{3.7595581124995832`*^9, 3.75956101926999*^9,
1220  3.759572333029804*^9, 3.7595875615015097`*^9,
1221  3.759590639545274*^9},ExpressionUUID->"0539fee6-7db0-434a-8305-\
12221ad83f664bdb"]
1223}, Open  ]]
1224}, Open  ]],
1225
1226Cell[CellGroupData[{
1227
1228Cell["Outputs and interfaces", "Section",
1229 CellChangeTimes->{
1230  3.411910944409371*^9, {3.412185514054689*^9,
1231   3.412185517014236*^9}},ExpressionUUID->"006d52cd-9754-4ef6-ab24-\
12325d390c239a71"],
1233
1234Cell[CellGroupData[{
1235
1236Cell["UFO output", "Subsection",
1237 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
1238  3.411911150323291*^9, 3.4119111515122623`*^9}, {3.5074389822322817`*^9,
1239  3.507438983565652*^9}, {3.507439158477231*^9,
1240  3.507439159035309*^9}},ExpressionUUID->"ea9e6ce2-33e3-47bc-aa33-\
1241e5beb8d6264b"],
1242
1243Cell[CellGroupData[{
1244
1245Cell[BoxData[
1246 RowBox[{"WriteUFO", "[",
1247  RowBox[{"LSM", ",", "LVLQ", ",", "LGp", ",", "LZp"}], "]"}]], "Input",
1248 CellChangeTimes->{{3.728222454514049*^9, 3.7282224590669518`*^9}, {
1249  3.72822363292988*^9, 3.728223634189375*^9}, {3.7396020641480637`*^9,
1250  3.739602064494318*^9}, {3.739602285237385*^9, 3.739602285315597*^9}, {
1251  3.739702323048111*^9, 3.7397023235189657`*^9}, {3.739702740215705*^9,
1252  3.7397027409694843`*^9}, {3.739703911867651*^9, 3.7397039126546717`*^9}, {
1253  3.739704002465632*^9, 3.7397040025251913`*^9}, {3.740219699037302*^9,
1254  3.7402196996137342`*^9}, {3.751125737323119*^9, 3.7511257446292667`*^9}, {
1255  3.751128843999688*^9,
1256  3.7511288449448843`*^9}},ExpressionUUID->"7f7099ca-380a-4cff-ae1b-\
12575d0753fbd286"],
1258
1259Cell[CellGroupData[{
1260
1261Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
1262"Print",
1263 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1264  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1265  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1266  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1267  3.759587587526799*^9,
1268  3.759590644141357*^9},ExpressionUUID->"e258f4b6-7a2b-4a39-9126-\
1269b0eae39fd848"],
1270
1271Cell[BoxData[
1272 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1273  StripOnInput->False,
1274  LineColor->RGBColor[1, 0.5, 0],
1275  FrontFaceColor->RGBColor[1, 0.5, 0],
1276  BackFaceColor->RGBColor[1, 0.5, 0],
1277  GraphicsColor->RGBColor[1, 0.5, 0],
1278  FontWeight->Bold,
1279  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1280 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1281  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1282  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1283  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1284  3.759587587526799*^9,
1285  3.759590644381081*^9},ExpressionUUID->"db2a809b-d6c4-4995-aaa6-\
12861963b606c803"],
1287
1288Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1289 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1290  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1291  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1292  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1293  3.759587587526799*^9,
1294  3.7595906443869753`*^9},ExpressionUUID->"563023ba-d9fa-4d12-994c-\
12950c0eb99a153c"],
1296
1297Cell[BoxData[
1298 InterpretationBox[
1299  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
1300   "\[InvisibleSpace]", "\<\" cores\"\>"}],
1301  SequenceForm["Expanding the indices over ", 4, " cores"],
1302  Editable->False]], "Print",
1303 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1304  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1305  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1306  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1307  3.759587587526799*^9,
1308  3.759590644390429*^9},ExpressionUUID->"7502204d-4d0e-40ce-90b6-\
1309bf8778265c69"],
1310
1311Cell[BoxData["\<\"Collecting the different structures that enter the \
1312vertex.\"\>"], "Print",
1313 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1314  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1315  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1316  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1317  3.759587587526799*^9,
1318  3.759590649790588*^9},ExpressionUUID->"08d8e84f-e9d1-4e07-811b-\
1319e5c5601d6abb"],
1320
1321Cell[BoxData[
1322 InterpretationBox[
1323  RowBox[{
1324  "98", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1325-> starting the computation: \"\>", "\[InvisibleSpace]",
1326   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1327    ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1328   "\[InvisibleSpace]", "98", "\[InvisibleSpace]", "\<\".\"\>"}],
1329  SequenceForm[
1330  98, " possible non-zero vertices have been found -> starting the \
1331computation: ",
1332   Dynamic[FeynRules`FR$FeynmanRules], " / ", 98, "."],
1333  Editable->False]], "Print",
1334 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1335  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1336  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1337  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1338  3.759587587526799*^9,
1339  3.7595906497936783`*^9},ExpressionUUID->"ff118126-5657-4d94-8d87-\
13409eccb8319c2c"],
1341
1342Cell[BoxData[
1343 InterpretationBox[
1344  RowBox[{"93", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1345  SequenceForm[93, " vertices obtained."],
1346  Editable->False]], "Print",
1347 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1348  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1349  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1350  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1351  3.759587587526799*^9,
1352  3.759590652904882*^9},ExpressionUUID->"e61dac4e-4843-49e4-a66c-\
1353c2cdeaf6269c"],
1354
1355Cell[BoxData[
1356 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1357  StripOnInput->False,
1358  LineColor->RGBColor[1, 0.5, 0],
1359  FrontFaceColor->RGBColor[1, 0.5, 0],
1360  BackFaceColor->RGBColor[1, 0.5, 0],
1361  GraphicsColor->RGBColor[1, 0.5, 0],
1362  FontWeight->Bold,
1363  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1364 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1365  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1366  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1367  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1368  3.759587587526799*^9,
1369  3.759590652908815*^9},ExpressionUUID->"24ccd9c9-8553-4667-b984-\
137087c0661fa1a7"],
1371
1372Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1373 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1374  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1375  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1376  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1377  3.759587587526799*^9,
1378  3.7595906529126797`*^9},ExpressionUUID->"4de3c0fd-4710-4446-b714-\
13790eab9542044c"],
1380
1381Cell[BoxData["\<\"Collecting the different structures that enter the \
1382vertex.\"\>"], "Print",
1383 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1384  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1385  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1386  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1387  3.759587587526799*^9,
1388  3.759590653430554*^9},ExpressionUUID->"da9ff2d6-b36a-4ba3-9627-\
1389da2092cd6cc1"],
1390
1391Cell[BoxData[
1392 InterpretationBox[
1393  RowBox[{
1394  "8", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1395-> starting the computation: \"\>", "\[InvisibleSpace]",
1396   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1397    ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1398   "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\".\"\>"}],
1399  SequenceForm[
1400  8, " possible non-zero vertices have been found -> starting the \
1401computation: ",
1402   Dynamic[FeynRules`FR$FeynmanRules], " / ", 8, "."],
1403  Editable->False]], "Print",
1404 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1405  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1406  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1407  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1408  3.759587587526799*^9,
1409  3.759590653443267*^9},ExpressionUUID->"91a183cc-4bec-4e73-a0f4-\
14104e0c597ec938"],
1411
1412Cell[BoxData[
1413 InterpretationBox[
1414  RowBox[{"8", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1415  SequenceForm[8, " vertices obtained."],
1416  Editable->False]], "Print",
1417 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1418  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1419  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1420  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1421  3.759587587526799*^9,
1422  3.759590654153656*^9},ExpressionUUID->"0ce7aadb-fa1d-4122-b0bd-\
1423fc19005adfc9"],
1424
1425Cell[BoxData[
1426 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1427  StripOnInput->False,
1428  LineColor->RGBColor[1, 0.5, 0],
1429  FrontFaceColor->RGBColor[1, 0.5, 0],
1430  BackFaceColor->RGBColor[1, 0.5, 0],
1431  GraphicsColor->RGBColor[1, 0.5, 0],
1432  FontWeight->Bold,
1433  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1434 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1435  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1436  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1437  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1438  3.759587587526799*^9,
1439  3.759590654157794*^9},ExpressionUUID->"fd2455d9-c5eb-443a-a57c-\
1440cb858bba65b3"],
1441
1442Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1443 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1444  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1445  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1446  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1447  3.759587587526799*^9,
1448  3.7595906541612453`*^9},ExpressionUUID->"1ca4c042-c173-4ceb-9ea4-\
14496e5c887cb027"],
1450
1451Cell[BoxData["\<\"Collecting the different structures that enter the \
1452vertex.\"\>"], "Print",
1453 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1454  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1455  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1456  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1457  3.759587587526799*^9,
1458  3.759590654665313*^9},ExpressionUUID->"888c4ac7-79a5-4542-89e4-\
1459f837cdb4c2ee"],
1460
1461Cell[BoxData[
1462 InterpretationBox[
1463  RowBox[{
1464  "6", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1465-> starting the computation: \"\>", "\[InvisibleSpace]",
1466   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1467    ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1468   "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\".\"\>"}],
1469  SequenceForm[
1470  6, " possible non-zero vertices have been found -> starting the \
1471computation: ",
1472   Dynamic[FeynRules`FR$FeynmanRules], " / ", 6, "."],
1473  Editable->False]], "Print",
1474 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1475  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1476  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1477  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1478  3.759587587526799*^9,
1479  3.759590654678129*^9},ExpressionUUID->"6a361273-6740-47c4-bab1-\
148040991fc8db2b"],
1481
1482Cell[BoxData[
1483 InterpretationBox[
1484  RowBox[{"6", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1485  SequenceForm[6, " vertices obtained."],
1486  Editable->False]], "Print",
1487 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1488  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1489  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1490  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1491  3.759587587526799*^9,
1492  3.7595906553926973`*^9},ExpressionUUID->"e48f5497-b896-4976-8296-\
14938eb434348a2c"],
1494
1495Cell[BoxData[
1496 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1497  StripOnInput->False,
1498  LineColor->RGBColor[1, 0.5, 0],
1499  FrontFaceColor->RGBColor[1, 0.5, 0],
1500  BackFaceColor->RGBColor[1, 0.5, 0],
1501  GraphicsColor->RGBColor[1, 0.5, 0],
1502  FontWeight->Bold,
1503  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1504 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1505  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1506  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1507  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1508  3.759587587526799*^9,
1509  3.7595906553964443`*^9},ExpressionUUID->"92f895a7-b24d-411e-ae5e-\
15101a5416d04cc6"],
1511
1512Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1513 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1514  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1515  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1516  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1517  3.759587587526799*^9,
1518  3.759590655399911*^9},ExpressionUUID->"1b77bce9-f57f-4fb5-88f9-\
15193335fdb66d2f"],
1520
1521Cell[BoxData["\<\"Collecting the different structures that enter the \
1522vertex.\"\>"], "Print",
1523 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1524  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1525  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1526  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1527  3.759587587526799*^9,
1528  3.7595906555521917`*^9},ExpressionUUID->"3782965c-3904-4047-b818-\
1529027dd0afd6f7"],
1530
1531Cell[BoxData[
1532 InterpretationBox[
1533  RowBox[{
1534  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1535-> starting the computation: \"\>", "\[InvisibleSpace]",
1536   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1537    ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1538   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
1539  SequenceForm[
1540  4, " possible non-zero vertices have been found -> starting the \
1541computation: ",
1542   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
1543  Editable->False]], "Print",
1544 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1545  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1546  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1547  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1548  3.759587587526799*^9,
1549  3.759590655555884*^9},ExpressionUUID->"8c36a969-7366-4432-86da-\
155023fcd8441e7e"],
1551
1552Cell[BoxData[
1553 InterpretationBox[
1554  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1555  SequenceForm[4, " vertices obtained."],
1556  Editable->False]], "Print",
1557 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1558  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1559  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1560  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1561  3.759587587526799*^9,
1562  3.759590655750121*^9},ExpressionUUID->"55076abb-befe-40ee-822a-\
1563e0ffa6c293c2"],
1564
1565Cell[BoxData[
1566 InterpretationBox[
1567  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
1568   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
1569   "\[InvisibleSpace]",
1570   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
1571    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1572   "\[InvisibleSpace]", "111"}],
1573  SequenceForm[
1574  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
1575   Dynamic[FeynRules`FR$Count1], " / ", 111],
1576  Editable->False]], "Print",
1577 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1578  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1579  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1580  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1581  3.759587587526799*^9,
1582  3.759590660342811*^9},ExpressionUUID->"c5740677-fc59-4994-aee8-\
15833dfa6ced2a1a"],
1584
1585Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
1586 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1587  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1588  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1589  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1590  3.759587587526799*^9,
1591  3.759590667328744*^9},ExpressionUUID->"cf8d6a22-84c9-4395-9c95-\
1592f1b2baebe705"],
1593
1594Cell[BoxData[
1595 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
1596decays: \"\>",
1597  StripOnInput->False,
1598  LineColor->RGBColor[1, 0.5, 0],
1599  FrontFaceColor->RGBColor[1, 0.5, 0],
1600  BackFaceColor->RGBColor[1, 0.5, 0],
1601  GraphicsColor->RGBColor[1, 0.5, 0],
1602  FontWeight->Bold,
1603  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1604 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1605  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1606  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1607  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1608  3.759587587526799*^9,
1609  3.759590667375843*^9},ExpressionUUID->"ef8d2596-1921-4507-9fe7-\
1610e65f13602d17"],
1611
1612Cell[BoxData[
1613 InterpretationBox[
1614  RowBox[{
1615   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
1616    ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1617   "\[InvisibleSpace]", "107"}],
1618  SequenceForm[
1619   Dynamic[PRIVATE`mycounter], " / ", 107],
1620  Editable->False]], "Print",
1621 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1622  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1623  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1624  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1625  3.759587587526799*^9,
1626  3.759590667429105*^9},ExpressionUUID->"34e1147f-bdf6-4996-870a-\
1627a0aac11de49d"],
1628
1629Cell[BoxData[
1630 InterpretationBox[
1631  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
1632   "3.341144`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
1633  SequenceForm["Squared matrix elent compute in ", 3.341144, " seconds."],
1634  Editable->False]], "Print",
1635 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1636  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1637  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1638  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1639  3.759587587526799*^9,
1640  3.7595906767890167`*^9},ExpressionUUID->"05450dba-0cf7-48d9-91ea-\
16416218c2c08630"],
1642
1643Cell[BoxData[
1644 InterpretationBox[
1645  RowBox[{
1646   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
1647    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1648   "\[InvisibleSpace]", "81"}],
1649  SequenceForm[
1650   Dynamic[PRIVATE`mycounter], " / ", 81],
1651  Editable->False]], "Print",
1652 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1653  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1654  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1655  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1656  3.759587587526799*^9,
1657  3.759590676793516*^9},ExpressionUUID->"2d94dd70-1ef9-4b69-9c97-\
16581545bc1d7956"],
1659
1660Cell[BoxData[
1661 InterpretationBox[
1662  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
1663   "0.516591`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
1664  SequenceForm["Decay widths computed in ", 0.516591, " seconds."],
1665  Editable->False]], "Print",
1666 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1667  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1668  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1669  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1670  3.759587587526799*^9,
1671  3.759590677755183*^9},ExpressionUUID->"57ab07d5-7f80-41ea-bfd6-\
16728a244395e0a1"],
1673
1674Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
1675 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1676  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1677  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1678  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1679  3.759587587526799*^9,
1680  3.7595906777596483`*^9},ExpressionUUID->"169f0b72-3ece-4d4f-a53d-\
1681274dedc37a72"],
1682
1683Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
1684"Print",
1685 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1686  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1687  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1688  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1689  3.759587587526799*^9,
1690  3.7595906780339622`*^9},ExpressionUUID->"3817b2dc-4ef9-4f2e-b6a5-\
16917e390200d1f8"],
1692
1693Cell[BoxData[
1694 InterpretationBox[
1695  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
1696   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
1697  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
1698  Editable->False]], "Print",
1699 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1700  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1701  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1702  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1703  3.759587587526799*^9,
1704  3.759590678036901*^9},ExpressionUUID->"d5aaee2e-6697-4160-ac97-\
17058078ba3975b4"],
1706
1707Cell[BoxData[
1708 InterpretationBox[
1709  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
1710   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
1711    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
1712   "\[InvisibleSpace]", "189", "\[InvisibleSpace]", "\<\" .\"\>"}],
1713  SequenceForm["    - Optimizing: ",
1714   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 189, " ."],
1715  Editable->False]], "Print",
1716 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1717  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1718  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1719  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1720  3.759587587526799*^9,
1721  3.759590679731522*^9},ExpressionUUID->"e115a4bd-543a-4f6c-9713-\
1722d781388d625d"],
1723
1724Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
1725 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1726  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1727  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1728  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1729  3.759587587526799*^9,
1730  3.759590679927684*^9},ExpressionUUID->"17ad1327-99f7-4c64-9aa0-\
1731858bfa449849"],
1732
1733Cell[BoxData["\<\"Done!\"\>"], "Print",
1734 CellChangeTimes->{3.744967601118074*^9, 3.751126511207259*^9,
1735  3.7511288695399017`*^9, 3.751129252286413*^9, 3.751203641635725*^9,
1736  3.751203788771714*^9, 3.757779222068759*^9, 3.757779423515992*^9,
1737  3.7595581204248857`*^9, 3.7595610215925217`*^9, 3.759572335186554*^9,
1738  3.759587587526799*^9,
1739  3.759590680196927*^9},ExpressionUUID->"9504e438-3979-47a8-b11c-\
174052ed6ab3e46f"]
1741}, Open  ]]
1742}, Open  ]]
1743}, Open  ]]
1744}, Open  ]]
1745},
1746Evaluator->"Tertiary",
1747WindowSize->{640, 755},
1748WindowMargins->{{311, Automatic}, {97, Automatic}},
1749PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
1750ShowSelection->True,
1751FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
175210, 2017)",
1753StyleDefinitions->"Default.nb"
1754]
1755(* End of Notebook Content *)
1756
1757(* Internal cache information *)
1758(*CellTagsOutline
1759CellTagsIndex->{}
1760*)
1761(*CellTagsIndex
1762CellTagsIndex->{}
1763*)
1764(*NotebookFileOutline
1765Notebook[{
1766Cell[545, 20, 274, 5, 30, "Input",ExpressionUUID->"780cf129-2191-4b6d-9555-7cb0c733752c"],
1767Cell[CellGroupData[{
1768Cell[844, 29, 163, 3, 67, "Section",ExpressionUUID->"9c58fa89-01d2-46c6-9a0e-0913b9c10aeb"],
1769Cell[CellGroupData[{
1770Cell[1032, 36, 419, 10, 52, "Input",ExpressionUUID->"40a0b542-cb7c-484b-a519-5f34fe3b93b9"],
1771Cell[CellGroupData[{
1772Cell[1476, 50, 1945, 28, 24, "Print",ExpressionUUID->"b4c338a2-c292-49fe-ae83-5a08b1842e98"],
1773Cell[3424, 80, 2220, 35, 24, "Print",ExpressionUUID->"506e1531-fece-41aa-9e50-1d8e0a29de23"],
1774Cell[5647, 117, 1997, 29, 24, "Print",ExpressionUUID->"7d680e3c-711a-49e8-a912-1366da569eb1"],
1775Cell[7647, 148, 1930, 28, 24, "Print",ExpressionUUID->"54462066-c1de-4e66-aa60-fdfe330d0e60"],
1776Cell[9580, 178, 1942, 28, 24, "Print",ExpressionUUID->"b7e0b7b1-074b-4894-9b26-8c44be8c8744"],
1777Cell[11525, 208, 1996, 29, 24, "Print",ExpressionUUID->"39370ab3-e833-4945-84e0-f70437aadc53"],
1778Cell[13524, 239, 1990, 28, 24, "Print",ExpressionUUID->"c9c91b82-691c-46d3-87a3-f835fc02fb0c"],
1779Cell[15517, 269, 1931, 28, 24, "Print",ExpressionUUID->"63660688-44d0-4be5-8b3d-1d9f815f7a0a"],
1780Cell[17451, 299, 1961, 28, 24, "Print",ExpressionUUID->"7bde153a-b1fd-4413-afbe-0e27e0abcc99"],
1781Cell[19415, 329, 1931, 28, 24, "Print",ExpressionUUID->"ab9f2e01-ce17-4f7c-b052-5fca2f29087b"],
1782Cell[21349, 359, 1998, 29, 24, "Print",ExpressionUUID->"cd4277c8-8a89-4256-8e34-58babd71425c"]
1783}, Open  ]]
1784}, Open  ]]
1785}, Open  ]],
1786Cell[CellGroupData[{
1787Cell[23408, 395, 158, 3, 67, "Section",ExpressionUUID->"2986de0f-0ce6-45cb-8486-2e2ec4cfc35d"],
1788Cell[CellGroupData[{
1789Cell[23591, 402, 2284, 36, 52, "Input",ExpressionUUID->"20404475-5f40-4ed8-98fb-a304d9d2f4f4"],
1790Cell[CellGroupData[{
1791Cell[25900, 442, 1900, 27, 24, "Print",ExpressionUUID->"1582fa5b-7a62-45b9-af80-101dd63085ab"],
1792Cell[27803, 471, 1917, 27, 24, "Print",ExpressionUUID->"0ed3f25a-6927-460d-8331-a4777f05f496"],
1793Cell[29723, 500, 1941, 28, 24, "Print",ExpressionUUID->"8cb9c635-a401-4ddf-b453-a4c61c2feca2"],
1794Cell[31667, 530, 2026, 31, 24, "Print",ExpressionUUID->"915e65e9-3c45-44a1-b789-dc088fa68693"],
1795Cell[33696, 563, 1926, 28, 24, "Print",ExpressionUUID->"c8d51087-1798-40aa-9fad-e12676b2a07a"],
1796Cell[35625, 593, 1878, 27, 24, "Print",ExpressionUUID->"f76effb9-0f0c-4fb3-90a3-7cc0fef0fb66"],
1797Cell[37506, 622, 1908, 27, 24, "Print",ExpressionUUID->"7802b80d-f192-4b8d-9a6f-872fc623541e"],
1798Cell[39417, 651, 1910, 27, 24, "Print",ExpressionUUID->"1aaf4790-2c5e-43be-9651-00371ce857fb"],
1799Cell[41330, 680, 1909, 27, 24, "Print",ExpressionUUID->"4ce5fcf1-1895-4bb9-a9e2-dea2cecdce0f"],
1800Cell[43242, 709, 2080, 32, 44, "Print",ExpressionUUID->"22d8771b-8628-4e2e-b215-b2c13bb91f10"]
1801}, Open  ]]
1802}, Open  ]],
1803Cell[CellGroupData[{
1804Cell[45371, 747, 416, 7, 30, "Input",ExpressionUUID->"69e1cf89-8b36-4eaf-931f-1c0a004d2ae0"],
1805Cell[CellGroupData[{
1806Cell[45812, 758, 1875, 31, 24, "Print",ExpressionUUID->"16f8a7b5-e311-404d-b014-ac6aa85a7553"],
1807Cell[47690, 791, 1408, 21, 24, "Print",ExpressionUUID->"fe228dc5-f3eb-4d3f-9527-5b8d0fe80e1e"]
1808}, Open  ]]
1809}, Open  ]]
1810}, Open  ]],
1811Cell[CellGroupData[{
1812Cell[49159, 819, 219, 4, 67, "Section",ExpressionUUID->"7872fafc-defe-47e8-b59e-77d348ea2d6b"],
1813Cell[CellGroupData[{
1814Cell[49403, 827, 198, 4, 30, "Input",ExpressionUUID->"27294cd1-3afd-4233-bdf0-debed0cb9a31"],
1815Cell[CellGroupData[{
1816Cell[49626, 835, 749, 11, 44, "Print",ExpressionUUID->"a22f843d-5f29-4603-a715-e123f9bb4999"],
1817Cell[50378, 848, 745, 11, 44, "Print",ExpressionUUID->"165ed4d4-ca18-4f2b-bceb-c801655de3a0"],
1818Cell[51126, 861, 940, 18, 24, "Print",ExpressionUUID->"5df91cab-efb7-4864-8374-a84fc5dd525f"],
1819Cell[52069, 881, 695, 10, 24, "Print",ExpressionUUID->"b2fc0223-1257-4a8c-ae0c-093f155f663a"],
1820Cell[52767, 893, 728, 11, 24, "Print",ExpressionUUID->"7bc4949d-11c3-473a-b605-71558f2b1a96"],
1821Cell[53498, 906, 1204, 22, 44, "Print",ExpressionUUID->"4f7ce98e-9248-46db-b1f2-56e6e02b1ccc"],
1822Cell[54705, 930, 810, 14, 24, "Print",ExpressionUUID->"3fbfe59e-fbc1-44b2-ae09-c76bbf544726"],
1823Cell[55518, 946, 696, 10, 24, "Print",ExpressionUUID->"fa678af8-4df2-4ea5-ab79-205722504363"]
1824}, Open  ]],
1825Cell[56229, 959, 683, 11, 34, "Output",ExpressionUUID->"2412300e-7cb4-4326-a819-df0d76e46899"]
1826}, Open  ]],
1827Cell[CellGroupData[{
1828Cell[56949, 975, 199, 4, 30, "Input",ExpressionUUID->"f18560ae-919f-4aae-a80e-b50edda10b47"],
1829Cell[CellGroupData[{
1830Cell[57173, 983, 924, 14, 44, "Print",ExpressionUUID->"73b10e4b-7f1b-441f-9e85-dff52a337262"],
1831Cell[58100, 999, 922, 14, 44, "Print",ExpressionUUID->"80376092-0176-4030-b9a9-a30e67073bfc"],
1832Cell[59025, 1015, 1117, 21, 24, "Print",ExpressionUUID->"e992d97f-e72f-4026-b2d2-e0d6f9e8aaec"],
1833Cell[60145, 1038, 872, 13, 24, "Print",ExpressionUUID->"92ec9199-9753-4bd1-8a97-686d4d0e8411"],
1834Cell[61020, 1053, 861, 13, 24, "Print",ExpressionUUID->"26b2b3db-9841-42d4-9ddc-a7b5e420d4c7"],
1835Cell[61884, 1068, 983, 17, 24, "Print",ExpressionUUID->"ed3be922-4294-47e3-9da4-c0dcd3b15784"],
1836Cell[62870, 1087, 871, 13, 24, "Print",ExpressionUUID->"227081b5-4c55-47b1-a081-6481cdd57ea6"]
1837}, Open  ]],
1838Cell[63756, 1103, 413, 8, 34, "Output",ExpressionUUID->"4c315cb8-84b4-4bc1-82cb-c5b2da3154f2"]
1839}, Open  ]],
1840Cell[CellGroupData[{
1841Cell[64206, 1116, 199, 4, 30, "Input",ExpressionUUID->"0a2ce9ca-cf03-41e4-9449-ae9ae0db0d56"],
1842Cell[CellGroupData[{
1843Cell[64430, 1124, 599, 10, 44, "Print",ExpressionUUID->"ffa1932f-47f9-45c1-845b-c7d59fe06da8"],
1844Cell[65032, 1136, 595, 10, 44, "Print",ExpressionUUID->"08fa3e0d-0ef2-47cb-a317-32debb6f5bc0"],
1845Cell[65630, 1148, 789, 17, 24, "Print",ExpressionUUID->"f88dbe54-e04b-4b14-b9eb-4cc913206d70"],
1846Cell[66422, 1167, 545, 9, 24, "Print",ExpressionUUID->"09cf8841-4924-4fbf-8d0b-9c608063af57"],
1847Cell[66970, 1178, 536, 9, 24, "Print",ExpressionUUID->"00c98362-f655-45b0-a1cd-ec481f99a778"],
1848Cell[67509, 1189, 658, 13, 24, "Print",ExpressionUUID->"9f6b323b-79dc-4a57-9f61-f435ed378c23"],
1849Cell[68170, 1204, 548, 9, 24, "Print",ExpressionUUID->"1107442c-70e3-465f-89ae-17d824819ab0"]
1850}, Open  ]],
1851Cell[68733, 1216, 241, 5, 34, "Output",ExpressionUUID->"0539fee6-7db0-434a-8305-1ad83f664bdb"]
1852}, Open  ]]
1853}, Open  ]],
1854Cell[CellGroupData[{
1855Cell[69023, 1227, 193, 4, 67, "Section",ExpressionUUID->"006d52cd-9754-4ef6-ab24-5d390c239a71"],
1856Cell[CellGroupData[{
1857Cell[69241, 1235, 308, 5, 54, "Subsection",ExpressionUUID->"ea9e6ce2-33e3-47bc-aa33-e5beb8d6264b"],
1858Cell[CellGroupData[{
1859Cell[69574, 1244, 737, 12, 30, "Input",ExpressionUUID->"7f7099ca-380a-4cff-ae1b-5d0753fbd286"],
1860Cell[CellGroupData[{
1861Cell[70336, 1260, 467, 8, 24, "Print",ExpressionUUID->"e258f4b6-7a2b-4a39-9126-b0eae39fd848"],
1862Cell[70806, 1270, 690, 15, 24, "Print",ExpressionUUID->"db2a809b-d6c4-4995-aaa6-1963b606c803"],
1863Cell[71499, 1287, 447, 7, 24, "Print",ExpressionUUID->"563023ba-d9fa-4d12-994c-0c0eb99a153c"],
1864Cell[71949, 1296, 627, 12, 24, "Print",ExpressionUUID->"7502204d-4d0e-40ce-90b6-bf8778265c69"],
1865Cell[72579, 1310, 478, 8, 24, "Print",ExpressionUUID->"08d8e84f-e9d1-4e07-811b-e5c5601d6abb"],
1866Cell[73060, 1320, 960, 19, 44, "Print",ExpressionUUID->"ff118126-5657-4d94-8d87-9eccb8319c2c"],
1867Cell[74023, 1341, 560, 11, 24, "Print",ExpressionUUID->"e61dac4e-4843-49e4-a66c-c2cdeaf6269c"],
1868Cell[74586, 1354, 690, 15, 24, "Print",ExpressionUUID->"24ccd9c9-8553-4667-b984-87c0661fa1a7"],
1869Cell[75279, 1371, 447, 7, 24, "Print",ExpressionUUID->"4de3c0fd-4710-4446-b714-0eab9542044c"],
1870Cell[75729, 1380, 478, 8, 24, "Print",ExpressionUUID->"da9ff2d6-b36a-4ba3-9627-da2092cd6cc1"],
1871Cell[76210, 1390, 954, 19, 44, "Print",ExpressionUUID->"91a183cc-4bec-4e73-a0f4-4e0c597ec938"],
1872Cell[77167, 1411, 558, 11, 24, "Print",ExpressionUUID->"0ce7aadb-fa1d-4122-b0bd-fc19005adfc9"],
1873Cell[77728, 1424, 690, 15, 24, "Print",ExpressionUUID->"fd2455d9-c5eb-443a-a57c-cb858bba65b3"],
1874Cell[78421, 1441, 447, 7, 24, "Print",ExpressionUUID->"1ca4c042-c173-4ceb-9ea4-6e5c887cb027"],
1875Cell[78871, 1450, 478, 8, 24, "Print",ExpressionUUID->"888c4ac7-79a5-4542-89e4-f837cdb4c2ee"],
1876Cell[79352, 1460, 954, 19, 44, "Print",ExpressionUUID->"6a361273-6740-47c4-bab1-40991fc8db2b"],
1877Cell[80309, 1481, 560, 11, 24, "Print",ExpressionUUID->"e48f5497-b896-4976-8296-8eb434348a2c"],
1878Cell[80872, 1494, 692, 15, 24, "Print",ExpressionUUID->"92f895a7-b24d-411e-ae5e-1a5416d04cc6"],
1879Cell[81567, 1511, 445, 7, 24, "Print",ExpressionUUID->"1b77bce9-f57f-4fb5-88f9-3335fdb66d2f"],
1880Cell[82015, 1520, 480, 8, 24, "Print",ExpressionUUID->"3782965c-3904-4047-b818-027dd0afd6f7"],
1881Cell[82498, 1530, 954, 19, 44, "Print",ExpressionUUID->"8c36a969-7366-4432-86da-23fcd8441e7e"],
1882Cell[83455, 1551, 558, 11, 24, "Print",ExpressionUUID->"55076abb-befe-40ee-822a-e0ffa6c293c2"],
1883Cell[84016, 1564, 916, 18, 24, "Print",ExpressionUUID->"c5740677-fc59-4994-aee8-3dfa6ced2a1a"],
1884Cell[84935, 1584, 459, 7, 24, "Print",ExpressionUUID->"cf8d6a22-84c9-4395-9c95-f1b2baebe705"],
1885Cell[85397, 1593, 726, 16, 24, "Print",ExpressionUUID->"ef8d2596-1921-4507-9fe7-e65f13602d17"],
1886Cell[86126, 1611, 681, 15, 24, "Print",ExpressionUUID->"34e1147f-bdf6-4996-870a-a0aac11de49d"],
1887Cell[86810, 1628, 660, 12, 24, "Print",ExpressionUUID->"05450dba-0cf7-48d9-91ea-6218c2c08630"],
1888Cell[87473, 1642, 680, 15, 24, "Print",ExpressionUUID->"2d94dd70-1ef9-4b69-9c97-1545bc1d7956"],
1889Cell[88156, 1659, 644, 12, 24, "Print",ExpressionUUID->"57ab07d5-7f80-41ea-bfd6-8a244395e0a1"],
1890Cell[88803, 1673, 444, 7, 24, "Print",ExpressionUUID->"169f0b72-3ece-4d4f-a53d-274dedc37a72"],
1891Cell[89250, 1682, 468, 8, 24, "Print",ExpressionUUID->"3817b2dc-4ef9-4f2e-b6a5-7e390200d1f8"],
1892Cell[89721, 1692, 657, 12, 24, "Print",ExpressionUUID->"d5aaee2e-6697-4160-ac97-8078ba3975b4"],
1893Cell[90381, 1706, 816, 15, 24, "Print",ExpressionUUID->"e115a4bd-543a-4f6c-9713-d781388d625d"],
1894Cell[91200, 1723, 438, 7, 24, "Print",ExpressionUUID->"17ad1327-99f7-4c64-9aa0-858bfa449849"],
1895Cell[91641, 1732, 423, 7, 24, "Print",ExpressionUUID->"9504e438-3979-47a8-b11c-52ed6ab3e46f"]
1896}, Open  ]]
1897}, Open  ]]
1898}, Open  ]]
1899}, Open  ]]
1900}
1901]
1902*)
1903