TopHeavyRes: FR_Run_vf.nb

File FR_Run_vf.nb, 416.3 KB (added by LucDarme, 3 years ago)
Line 
1(*CacheID: 234*)
2(* Internal cache information:
3NotebookFileLineBreakTest
4NotebookFileLineBreakTest
5NotebookDataPosition[ 0, 0]
6NotebookDataLength[ 426242, 9091]
7NotebookOptionsPosition[ 375877, 8425]
8NotebookOutlinePosition[ 376330, 8443]
9CellTagsIndexPosition[ 376287, 8440]
10WindowFrame->Normal*)
11
12(* Beginning of Notebook Content *)
13Notebook[{
14Cell[BoxData[
15 RowBox[{"Quit", "[", "]"}]], "Input",
16 CellLabel->
17 "In[543]:=",ExpressionUUID->"fdccdbba-01c0-464f-bb10-b61e7821bc9f"],
18
19Cell[CellGroupData[{
20
21Cell[BoxData[
22 RowBox[{"\[IndentingNewLine]",
23 RowBox[{
24 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
25 RowBox[{"here", "=",
26 RowBox[{"NotebookDirectory", "[", "]"}]}]}]}]], "Input",
27 CellChangeTimes->{{3.75947250467022*^9, 3.7594725051843443`*^9}, {
28 3.780202276666616*^9, 3.7802022771124487`*^9}, {3.780202340785331*^9,
29 3.7802023410048313`*^9}, {3.7802076291151342`*^9, 3.780207629609181*^9}, {
30 3.782199108543097*^9, 3.782199109541502*^9}, {3.782645524335641*^9,
31 3.7826455324305353`*^9}, {3.793548972352523*^9, 3.793548972748909*^9}, {
32 3.803976820198793*^9, 3.803976820694001*^9}, {3.80909812486642*^9,
33 3.809098125281336*^9}, {3.821441740238968*^9, 3.821441741844803*^9}, {
34 3.8233178980035954`*^9, 3.823317898857934*^9},
35 3.8278354885599003`*^9},ExpressionUUID->"da06996d-8dd9-43cf-ab0a-\
36fc63da679325"],
37
38Cell[CellGroupData[{
39
40Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
41 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
42 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
43 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
44 3.8233207469600286`*^9, 3.823321163237851*^9, 3.8235789633066387`*^9},
45 CellLabel->
46 "During evaluation of \
47In[1]:=",ExpressionUUID->"f0055f3c-041e-4825-8498-2737d1944f4d"],
48
49Cell[BoxData[
50 InterpretationBox[
51 RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.4.58\"\>",
52 "\[InvisibleSpace]",
53 RowBox[{"\<\" (\"\>", " ", "\<\"08 February 2017\"\>"}],
54 "\[InvisibleSpace]", "\<\").\"\>"}],
55 SequenceForm["Version: ", "2.4.58", " (" "08 February 2017", ")."],
56 Editable->False]], "Print",
57 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
58 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
59 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
60 3.8233207469600286`*^9, 3.823321163237851*^9, 3.8235789633165894`*^9},
61 CellLabel->
62 "During evaluation of \
63In[1]:=",ExpressionUUID->"ac6f7fea-8ea2-4ea5-ae9b-bf6b2b587650"],
64
65Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
66B. Fuks\"\>"], "Print",
67 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
68 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
69 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
70 3.8233207469600286`*^9, 3.823321163237851*^9, 3.8235789633211*^9},
71 CellLabel->
72 "During evaluation of \
73In[1]:=",ExpressionUUID->"6ccaee93-bfde-4434-b058-69b44b14d86a"],
74
75Cell[BoxData["\<\" \"\>"], "Print",
76 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
77 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
78 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
79 3.8233207469600286`*^9, 3.823321163237851*^9, 3.8235789633241043`*^9},
80 CellLabel->
81 "During evaluation of \
82In[1]:=",ExpressionUUID->"a3b907c5-3e6d-4d6b-a4fc-eba5daebf7ad"],
83
84Cell[BoxData["\<\"Please cite:\"\>"], "Print",
85 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
86 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
87 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
88 3.8233207469600286`*^9, 3.823321163237851*^9, 3.823578963326935*^9},
89 CellLabel->
90 "During evaluation of \
91In[1]:=",ExpressionUUID->"7f0cefcb-a6fe-46a9-96e5-a0e46d7126f6"],
92
93Cell[BoxData["\<\" - Comput.Phys.Commun.185:2250-2300,2014 \
94(arXiv:1310.1921;\"\>"], "Print",
95 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
96 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
97 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
98 3.8233207469600286`*^9, 3.823321163237851*^9, 3.823578963330018*^9},
99 CellLabel->
100 "During evaluation of \
101In[1]:=",ExpressionUUID->"5ab7995d-5400-4b6a-8bb8-ae2afbe76837"],
102
103Cell[BoxData["\<\" - Comput.Phys.Commun.180:1614-1641,2009 \
104(arXiv:0806.4194).\"\>"], "Print",
105 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
106 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
107 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
108 3.8233207469600286`*^9, 3.823321163237851*^9, 3.8235789633330173`*^9},
109 CellLabel->
110 "During evaluation of \
111In[1]:=",ExpressionUUID->"f326405f-85f9-4ebc-9d5d-aa6de9562eff"],
112
113Cell[BoxData["\<\" \"\>"], "Print",
114 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
115 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
116 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
117 3.8233207469600286`*^9, 3.823321163237851*^9, 3.823578963335946*^9},
118 CellLabel->
119 "During evaluation of \
120In[1]:=",ExpressionUUID->"f755f5d8-5ddd-425d-9e53-d1bde84e61cd"],
121
122Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
123 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
124 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
125 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
126 3.8233207469600286`*^9, 3.823321163237851*^9, 3.8235789633388987`*^9},
127 CellLabel->
128 "During evaluation of \
129In[1]:=",ExpressionUUID->"4a147ace-87fc-471f-9a46-041aa04f5e4e"],
130
131Cell[BoxData["\<\" \"\>"], "Print",
132 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
133 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
134 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
135 3.8233207469600286`*^9, 3.823321163237851*^9, 3.8235789633419323`*^9},
136 CellLabel->
137 "During evaluation of \
138In[1]:=",ExpressionUUID->"59f64a11-e010-4a52-9c4d-417844273108"],
139
140Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
141FRPalette[].\"\>"], "Print",
142 CellChangeTimes->{3.823317899186027*^9, 3.82331835873413*^9,
143 3.823318431231894*^9, 3.823318576712429*^9, 3.823318623012488*^9,
144 3.823318691718403*^9, 3.82331874398936*^9, 3.823318795798674*^9,
145 3.8233207469600286`*^9, 3.823321163237851*^9, 3.8235789633441343`*^9},
146 CellLabel->
147 "During evaluation of \
148In[1]:=",ExpressionUUID->"254490e2-2258-4a76-a9f0-3cf65f285cc0"]
149}, Open ]]
150}, Open ]],
151
152Cell[CellGroupData[{
153
154Cell["Effective model", "Section",
155 CellChangeTimes->{{3.759472462715425*^9, 3.7594724703715563`*^9}, {
156 3.7594740772772512`*^9, 3.759474077869609*^9}, {3.780202464184741*^9,
157 3.780202487247922*^9}, {3.7802055066965837`*^9,
158 3.780205508167942*^9}},ExpressionUUID->"b3481f82-8d60-422a-96f3-\
159b2a3114db2fa"],
160
161Cell[CellGroupData[{
162
163Cell[BoxData[
164 RowBox[{"\[IndentingNewLine]",
165 RowBox[{
166 RowBox[{
167 RowBox[{"SetDirectory", "[", "here", "]"}], ";"}], "\[IndentingNewLine]",
168
169 RowBox[{
170 RowBox[{"LoadModel", "[", " ",
171 RowBox[{
172 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
173 "\"\<4topEFT.fr\>\""}], "]"}], ";"}], "\[IndentingNewLine]",
174 RowBox[{
175 RowBox[{"LoadRestriction", "[",
176 RowBox[{"\"\<DiagonalNP.rst\>\"", ",",
177 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/DiagonalCKM.rst\>\""}],
178 ",",
179 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/Massless.rst\>\""}],
180 ",", "\"\<NozRzL.rst\>\""}], "]"}], ";"}]}]}]], "Input",
181 CellChangeTimes->{{3.759473357442108*^9, 3.759473357661347*^9}, {
182 3.7594740850493803`*^9, 3.759474085611158*^9}, {3.7802024273856564`*^9,
183 3.7802024409768972`*^9}, {3.780202579193604*^9, 3.7802025860480757`*^9}, {
184 3.780205591345396*^9, 3.7802055924003687`*^9}, {3.7802075714717693`*^9,
185 3.780207584025361*^9}, {3.780207772660142*^9, 3.780207773841313*^9}, {
186 3.780208334460888*^9, 3.780208334977392*^9}, {3.780208391012025*^9,
187 3.7802083914014606`*^9}},
188 CellLabel->"In[7]:=",ExpressionUUID->"a151022a-73a9-4c71-aefa-0f58c7755135"],
189
190Cell[CellGroupData[{
191
192Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
193 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
194 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
195 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
196 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
197 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
198 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
199 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
200 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
201 3.78264553698146*^9, 3.794239151361677*^9, 3.8233182982693157`*^9},
202 CellLabel->
203 "During evaluation of \
204In[7]:=",ExpressionUUID->"95778f43-7167-45e5-9140-e7dd5e9ee053"],
205
206Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
207 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
208 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
209 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
210 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
211 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
212 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
213 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
214 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
215 3.78264553698146*^9, 3.794239151361677*^9, 3.823318298274665*^9},
216 CellLabel->
217 "During evaluation of \
218In[7]:=",ExpressionUUID->"01c4a01b-c595-4038-94ce-b141928d71b3"],
219
220Cell[BoxData["\<\" L. Darme\"\>"], "Print",
221 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
222 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
223 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
224 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
225 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
226 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
227 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
228 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
229 3.78264553698146*^9, 3.794239151361677*^9, 3.823318298276648*^9},
230 CellLabel->
231 "During evaluation of \
232In[7]:=",ExpressionUUID->"0752f219-72bb-4993-8c87-006bcdce98e2"],
233
234Cell[BoxData[
235 InterpretationBox[
236 RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
237 SequenceForm["Model Version: ", "1.0"],
238 Editable->False]], "Print",
239 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
240 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
241 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
242 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
243 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
244 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
245 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
246 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
247 3.78264553698146*^9, 3.794239151361677*^9, 3.823318298278255*^9},
248 CellLabel->
249 "During evaluation of \
250In[7]:=",ExpressionUUID->"0912417c-4b5d-43b1-b755-a8df303586c7"],
251
252Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
253"Print",
254 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
255 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
256 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
257 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
258 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
259 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
260 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
261 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
262 3.78264553698146*^9, 3.794239151361677*^9, 3.823318298279517*^9},
263 CellLabel->
264 "During evaluation of \
265In[7]:=",ExpressionUUID->"4dd1bbb4-d053-48e9-983c-008093dcd906"],
266
267Cell[BoxData["\<\"\"\>"], "Print",
268 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
269 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
270 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
271 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
272 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
273 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
274 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
275 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
276 3.78264553698146*^9, 3.794239151361677*^9, 3.8233182982807207`*^9},
277 CellLabel->
278 "During evaluation of \
279In[7]:=",ExpressionUUID->"33b664d7-1b54-4d25-8491-d28c523061ae"],
280
281Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
282 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
283 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
284 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
285 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
286 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
287 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
288 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
289 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
290 3.78264553698146*^9, 3.794239151361677*^9, 3.8233182982818737`*^9},
291 CellLabel->
292 "During evaluation of \
293In[7]:=",ExpressionUUID->"54564307-24e5-41dc-a375-0182d87750fa"],
294
295Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
296 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
297 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
298 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
299 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
300 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
301 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
302 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
303 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
304 3.78264553698146*^9, 3.794239151361677*^9, 3.823318298377357*^9},
305 CellLabel->
306 "During evaluation of \
307In[7]:=",ExpressionUUID->"0ce0f80b-f338-4ee4-8fb1-dfd032c7311e"],
308
309Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
310 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
311 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
312 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
313 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
314 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
315 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
316 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
317 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
318 3.78264553698146*^9, 3.794239151361677*^9, 3.823318298381555*^9},
319 CellLabel->
320 "During evaluation of \
321In[7]:=",ExpressionUUID->"ddfdffd8-df1f-4fc9-9f98-cca03cd8d3f1"],
322
323Cell[BoxData[
324 InterpretationBox[
325 RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"4topEFT\"\>",
326 "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
327 SequenceForm["\nModel ", "4topEFT", " loaded."],
328 Editable->False]], "Print",
329 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
330 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
331 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
332 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
333 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
334 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
335 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
336 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
337 3.78264553698146*^9, 3.794239151361677*^9, 3.8233182984419003`*^9},
338 CellLabel->
339 "During evaluation of \
340In[7]:=",ExpressionUUID->"95846e63-1a81-4ed5-8268-490959a8b65a"]
341}, Open ]],
342
343Cell[BoxData[
344 TemplateBox[{
345 "Get", "noopen",
346 "\"Cannot open \
347\\!\\(\\*RowBox[{\\\"\\\\\\\"DiagonalNP.rst\\\\\\\"\\\"}]\\).\"", 2, 9, 3,
348 32130030607345978949, "Local"},
349 "MessageTemplate"]], "Message", "MSG",
350 CellChangeTimes->{3.823318298461687*^9},
351 CellLabel->
352 "During evaluation of \
353In[7]:=",ExpressionUUID->"c6cd31cb-9d7b-4b45-868e-9a40799a2971"],
354
355Cell[CellGroupData[{
356
357Cell[BoxData[
358 InterpretationBox[
359 RowBox[{"\<\"Loading restrictions from \"\>",
360 "\[InvisibleSpace]", "\<\"DiagonalNP.rst\"\>",
361 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
362 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
363 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
364 "\[InvisibleSpace]", "0"}],
365 SequenceForm["Loading restrictions from ", "DiagonalNP.rst", " : ",
366 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 0],
367 Editable->False]], "Print",
368 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
369 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
370 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
371 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
372 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
373 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
374 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
375 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
376 3.78264553698146*^9, 3.794239151361677*^9, 3.823318299232971*^9},
377 CellLabel->
378 "During evaluation of \
379In[7]:=",ExpressionUUID->"d6ef5676-e193-492b-9d0c-aa5b755d815f"],
380
381Cell[BoxData[
382 InterpretationBox[
383 RowBox[{"\<\"Loading restrictions from \"\>",
384 "\[InvisibleSpace]", \
385"\<\"/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst\"\>",
386 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
387 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
388 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
389 "\[InvisibleSpace]", "3"}],
390 SequenceForm[
391 "Loading restrictions from ",
392 "/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst", " : ",
393
394 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
395 Editable->False]], "Print",
396 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
397 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
398 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
399 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
400 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
401 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
402 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
403 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
404 3.78264553698146*^9, 3.794239151361677*^9, 3.823318299434938*^9},
405 CellLabel->
406 "During evaluation of \
407In[7]:=",ExpressionUUID->"f99c06cd-5ebb-4c9c-9457-e0cb39f2274c"],
408
409Cell[BoxData[
410 InterpretationBox[
411 RowBox[{"\<\"Loading restrictions from \"\>",
412 "\[InvisibleSpace]", \
413"\<\"/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst\"\>",
414 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
415 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
416 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
417 "\[InvisibleSpace]", "18"}],
418 SequenceForm[
419 "Loading restrictions from ",
420 "/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst", " : ",
421 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
422 Editable->False]], "Print",
423 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
424 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
425 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
426 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
427 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
428 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
429 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
430 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
431 3.78264553698146*^9, 3.794239151361677*^9, 3.823318299649852*^9},
432 CellLabel->
433 "During evaluation of \
434In[7]:=",ExpressionUUID->"2e7659b5-e10e-4951-b1c4-9d633d0b5ee0"]
435}, Open ]],
436
437Cell[BoxData[
438 TemplateBox[{
439 "Get", "noopen",
440 "\"Cannot open \
441\\!\\(\\*RowBox[{\\\"\\\\\\\"NozRzL.rst\\\\\\\"\\\"}]\\).\"", 2, 9, 4,
442 32130030607345978949, "Local"},
443 "MessageTemplate"]], "Message", "MSG",
444 CellChangeTimes->{3.823318299794739*^9},
445 CellLabel->
446 "During evaluation of \
447In[7]:=",ExpressionUUID->"0f0c88f7-1899-436d-afc2-0fa249eeba3c"],
448
449Cell[CellGroupData[{
450
451Cell[BoxData[
452 InterpretationBox[
453 RowBox[{"\<\"Loading restrictions from \"\>",
454 "\[InvisibleSpace]", "\<\"NozRzL.rst\"\>",
455 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
456 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
457 ImageSizeCache->{209., {2., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
458 "\[InvisibleSpace]", "18"}],
459 SequenceForm["Loading restrictions from ", "NozRzL.rst", " : ",
460 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
461 Editable->False]], "Print",
462 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
463 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
464 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
465 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
466 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
467 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
468 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
469 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
470 3.78264553698146*^9, 3.794239151361677*^9, 3.823318299895474*^9},
471 CellLabel->
472 "During evaluation of \
473In[7]:=",ExpressionUUID->"64395f5b-2afb-4ea0-b9b8-7cc3eb24ff1f"],
474
475Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
476 CellChangeTimes->{{3.7802083880062037`*^9, 3.7802084075045433`*^9},
477 3.780208860701126*^9, 3.780640344666049*^9, 3.7806551137125196`*^9,
478 3.7807215773244534`*^9, 3.78090334377833*^9, 3.780904236744771*^9, {
479 3.78090457388873*^9, 3.780904596197987*^9}, 3.782198695731491*^9,
480 3.782199115033786*^9, 3.782204337198497*^9, 3.782207507998438*^9,
481 3.782641451804982*^9, 3.782642775526918*^9, 3.782642948583342*^9,
482 3.78264451841315*^9, 3.7826445875859957`*^9, {3.782644794476655*^9,
483 3.782644815918336*^9}, 3.78264507614818*^9, 3.782645113736267*^9,
484 3.78264553698146*^9, 3.794239151361677*^9, 3.823318300034526*^9},
485 CellLabel->
486 "During evaluation of \
487In[7]:=",ExpressionUUID->"9ff08b4b-8cbe-49e5-afba-15e4ac071b2b"]
488}, Open ]]
489}, Open ]],
490
491Cell[CellGroupData[{
492
493Cell[BoxData[
494 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
495
496 RowBox[{"(*",
497 RowBox[{
498 "Checking", " ", "the", " ", "hermiticity", " ", "of", " ", "the", " ",
499 "model"}], "*)"}], "\[IndentingNewLine]",
500 RowBox[{
501 RowBox[{"CheckMassSpectrum", "[", "LagNP", "]"}], "\[IndentingNewLine]",
502 RowBox[{"CheckHermiticity", "[", "LagNP", "]"}], "\[IndentingNewLine]",
503 RowBox[{"(*",
504 RowBox[{"Feynman", " ", "rules"}], "*)"}], "\[IndentingNewLine]",
505 RowBox[{"vertices", "=",
506 RowBox[{"FeynmanRules", "[", "LagNP", "]"}]}], "\[IndentingNewLine]",
507 RowBox[{"(*",
508 RowBox[{"Getting", " ", "decays"}], "*)"}], "\[IndentingNewLine]",
509 RowBox[{
510 RowBox[{"decays", "=",
511 RowBox[{"ComputeWidths", "[", "vertices", "]"}]}], ";"}],
512 "\[IndentingNewLine]",
513 RowBox[{"(*",
514 RowBox[{"Getting", " ", "UFO"}], "*)"}], "\[IndentingNewLine]",
515 RowBox[{"WriteUFO", "[",
516 RowBox[{
517 RowBox[{"LSM", "+", "LagNP"}], ",",
518 RowBox[{"Output", "\[Rule]", "\"\<4topEFT_UFO\>\""}]}],
519 "]"}]}]}]], "Input",
520 CellChangeTimes->{{3.7594723247858057`*^9, 3.7594724349408712`*^9},
521 3.759472503253831*^9, {3.75947256827782*^9, 3.759472569743855*^9}, {
522 3.759472916998436*^9, 3.7594729172534723`*^9}, {3.7594732513207397`*^9,
523 3.759473276459257*^9}, {3.759473397881085*^9, 3.759473420215959*^9}, {
524 3.75947351737363*^9, 3.759473518066074*^9}, {3.759474092352673*^9,
525 3.7594740929439583`*^9}, 3.780202595610166*^9, {3.780205600089341*^9,
526 3.780205603496346*^9}, 3.780205973735909*^9, {3.7802075966442947`*^9,
527 3.780207600785034*^9}, {3.7802077962435503`*^9, 3.780207797225259*^9}, {
528 3.780207862058444*^9, 3.78020786295437*^9}, {3.780208414163644*^9,
529 3.780208424745947*^9}, 3.7802084595240097`*^9, {3.780655121134139*^9,
530 3.780655125661723*^9}},
531 CellLabel->"In[10]:=",ExpressionUUID->"03056f62-69bb-4c71-aee4-bbee43698579"],
532
533Cell[CellGroupData[{
534
535Cell[BoxData[
536 InterpretationBox[
537 RowBox[{"\<\"Neglecting all terms with more than \"\>",
538 "\[InvisibleSpace]", "\<\"2\"\>",
539 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
540 SequenceForm["Neglecting all terms with more than ", "2", " particles."],
541 Editable->False]], "Print",
542 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
543 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
544 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
545 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
546 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
547 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
548 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
549 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
550 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
551 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
552 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
553 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
554 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
555 3.823318309002758*^9},
556 CellLabel->
557 "During evaluation of \
558In[10]:=",ExpressionUUID->"fbb8926c-b7bb-4fc9-b48c-75bef0b55969"],
559
560Cell[BoxData["\<\"No Mass terms found.\"\>"], "Print",
561 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
562 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
563 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
564 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
565 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
566 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
567 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
568 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
569 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
570 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
571 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
572 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
573 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
574 3.823318309004772*^9},
575 CellLabel->
576 "During evaluation of \
577In[10]:=",ExpressionUUID->"34b5ea81-1d48-4051-8e98-ac97560398af"],
578
579Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
580contained in L-HC[L].\"\>"], "Print",
581 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
582 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
583 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
584 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
585 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
586 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
587 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
588 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
589 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
590 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
591 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
592 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
593 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
594 3.8233183091730547`*^9},
595 CellLabel->
596 "During evaluation of \
597In[10]:=",ExpressionUUID->"523f8146-21c0-4137-946a-4ddbddce8a40"],
598
599Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
600should be zero.\"\>"], "Print",
601 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
602 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
603 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
604 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
605 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
606 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
607 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
608 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
609 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
610 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
611 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
612 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
613 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
614 3.82331830917453*^9},
615 CellLabel->
616 "During evaluation of \
617In[10]:=",ExpressionUUID->"aeeb5020-77c8-4f2f-81a5-47b829f22d5b"],
618
619Cell[BoxData[
620 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
621 StripOnInput->False,
622 LineColor->RGBColor[1, 0.5, 0],
623 FrontFaceColor->RGBColor[1, 0.5, 0],
624 BackFaceColor->RGBColor[1, 0.5, 0],
625 GraphicsColor->RGBColor[1, 0.5, 0],
626 FontWeight->Bold,
627 FontColor->RGBColor[1, 0.5, 0]]], "Print",
628 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
629 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
630 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
631 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
632 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
633 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
634 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
635 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
636 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
637 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
638 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
639 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
640 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
641 3.823318309626604*^9},
642 CellLabel->
643 "During evaluation of \
644In[10]:=",ExpressionUUID->"b3bf5f67-ab7c-4320-befd-1fd1f2179d04"],
645
646Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
647 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
648 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
649 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
650 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
651 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
652 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
653 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
654 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
655 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
656 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
657 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
658 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
659 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
660 3.823318309628606*^9},
661 CellLabel->
662 "During evaluation of \
663In[10]:=",ExpressionUUID->"0627a51a-82ed-421e-9566-988135b78710"],
664
665Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
666 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
667 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
668 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
669 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
670 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
671 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
672 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
673 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
674 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
675 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
676 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
677 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
678 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
679 3.823318309629861*^9},
680 CellLabel->
681 "During evaluation of \
682In[10]:=",ExpressionUUID->"1ee17a3b-2080-45e6-9e59-70313e158549"],
683
684Cell[BoxData[
685 InterpretationBox[
686 RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
687 SequenceForm[0, " vertices obtained."],
688 Editable->False]], "Print",
689 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
690 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
691 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
692 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
693 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
694 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
695 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
696 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
697 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
698 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
699 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
700 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
701 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
702 3.823318309631199*^9},
703 CellLabel->
704 "During evaluation of \
705In[10]:=",ExpressionUUID->"ffc68ecd-9948-4b2b-9216-2018aa78063c"],
706
707Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
708 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
709 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
710 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
711 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
712 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
713 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
714 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
715 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
716 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
717 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
718 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
719 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
720 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
721 3.823318309632593*^9},
722 CellLabel->
723 "During evaluation of \
724In[10]:=",ExpressionUUID->"eb622903-ca0e-43fe-a842-9dda1637d536"]
725}, Open ]],
726
727Cell[BoxData[
728 RowBox[{"{", "}"}]], "Output",
729 CellChangeTimes->{
730 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
731 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
732 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
733 3.7802043442203283`*^9, 3.780205978423317*^9, 3.7802071123111773`*^9,
734 3.780207447637168*^9, 3.780207601384635*^9, 3.780207655659214*^9,
735 3.7802078675962276`*^9, 3.780208428678698*^9, 3.7802084632491198`*^9,
736 3.780208869506777*^9, 3.780640358427123*^9, 3.780655129754079*^9,
737 3.7807215859525347`*^9, 3.78090335074323*^9, 3.780904245944458*^9,
738 3.7809046033736773`*^9, 3.782198703631143*^9, 3.7821991218557777`*^9,
739 3.782204343889759*^9, 3.782207512597904*^9, 3.782641456712771*^9,
740 3.7826427792394753`*^9, 3.7826429541095667`*^9, 3.782644524173164*^9,
741 3.782644607095043*^9, 3.782644819995878*^9, 3.782645080876055*^9,
742 3.782645118002426*^9, 3.782645542537897*^9, 3.7942391584481583`*^9,
743 3.823318309633752*^9},
744 CellLabel->"Out[11]=",ExpressionUUID->"69b546e8-797c-4853-9f69-3d9cb3d0b809"],
745
746Cell[CellGroupData[{
747
748Cell[BoxData[
749 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
750 StripOnInput->False,
751 LineColor->RGBColor[1, 0.5, 0],
752 FrontFaceColor->RGBColor[1, 0.5, 0],
753 BackFaceColor->RGBColor[1, 0.5, 0],
754 GraphicsColor->RGBColor[1, 0.5, 0],
755 FontWeight->Bold,
756 FontColor->RGBColor[1, 0.5, 0]]], "Print",
757 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
758 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
759 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
760 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
761 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
762 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
763 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
764 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
765 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
766 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
767 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
768 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
769 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
770 3.823318309804611*^9},
771 CellLabel->
772 "During evaluation of \
773In[10]:=",ExpressionUUID->"93979763-f709-4c8d-a3d5-000bf40c282b"],
774
775Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
776 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
777 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
778 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
779 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
780 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
781 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
782 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
783 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
784 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
785 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
786 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
787 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
788 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
789 3.823318309806438*^9},
790 CellLabel->
791 "During evaluation of \
792In[10]:=",ExpressionUUID->"3f2cdcdb-23a8-4a71-a107-fd4dee71a386"],
793
794Cell[BoxData["\<\"Collecting the different structures that enter the \
795vertex.\"\>"], "Print",
796 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
797 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
798 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
799 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
800 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
801 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
802 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
803 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
804 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
805 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
806 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
807 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
808 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
809 3.8233183099736853`*^9},
810 CellLabel->
811 "During evaluation of \
812In[10]:=",ExpressionUUID->"a6cfe812-a410-4164-a0ba-828ee81ccd3c"],
813
814Cell[BoxData[
815 InterpretationBox[
816 RowBox[{
817 "1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
818-> starting the computation: \"\>", "\[InvisibleSpace]",
819 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
820 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
821 "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
822 SequenceForm[
823 1, " possible non-zero vertices have been found -> starting the \
824computation: ",
825 Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
826 Editable->False]], "Print",
827 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
828 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
829 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
830 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
831 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
832 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
833 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
834 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
835 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
836 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
837 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
838 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
839 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
840 3.82331830997761*^9},
841 CellLabel->
842 "During evaluation of \
843In[10]:=",ExpressionUUID->"6d2b45b5-a06a-477d-9a57-ac8c3d104165"],
844
845Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
846 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
847 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
848 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
849 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
850 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
851 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
852 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
853 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
854 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
855 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
856 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
857 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
858 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
859 3.823318310500568*^9},
860 CellLabel->
861 "During evaluation of \
862In[10]:=",ExpressionUUID->"c7cfa345-0f45-4172-a9de-13798cd87cb8"]
863}, Open ]],
864
865Cell[BoxData[
866 RowBox[{"{",
867 RowBox[{"{",
868 RowBox[{
869 RowBox[{"{",
870 RowBox[{
871 RowBox[{"{",
872 RowBox[{
873 OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
874 RowBox[{"{",
875 RowBox[{"t", ",", "2"}], "}"}], ",",
876 RowBox[{"{",
877 RowBox[{
878 OverscriptBox["t", "\<\"-\"\>"], ",", "3"}], "}"}], ",",
879 RowBox[{"{",
880 RowBox[{"t", ",", "4"}], "}"}]}], "}"}], ",",
881 RowBox[{
882 FractionBox[
883 RowBox[{"\[ImaginaryI]", " ",
884 FractionBox[
885 TemplateBox[{"C", "ps", "1"},
886 "Subsuperscript"],
887 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
888 TemplateBox[{
889 SubscriptBox["\[Gamma]",
890 RowBox[{
891 SubscriptBox["\"s\"", "1"], ",",
892 SubscriptBox["\"s\"", "4"]}]], "5"},
893 "Superscript"], " ",
894 TemplateBox[{
895 SubscriptBox["\[Gamma]",
896 RowBox[{
897 SubscriptBox["\"s\"", "3"], ",",
898 SubscriptBox["\"s\"", "2"]}]], "5"},
899 "Superscript"], " ",
900 SubscriptBox["\[Delta]",
901 RowBox[{
902 SubscriptBox["\<\"m\"\>", "1"], ",",
903 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
904 SubscriptBox["\[Delta]",
905 RowBox[{
906 SubscriptBox["\<\"m\"\>", "2"], ",",
907 SubscriptBox["\<\"m\"\>", "3"]}]]}], "500000"], "+",
908 FractionBox[
909 RowBox[{"\[ImaginaryI]", " ",
910 FractionBox[
911 TemplateBox[{"C", "ps", "1"},
912 "Subsuperscript"],
913 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
914 TemplateBox[{
915 SubscriptBox["\[Gamma]",
916 RowBox[{
917 SubscriptBox["\"s\"", "1"], ",",
918 SubscriptBox["\"s\"", "2"]}]], "5"},
919 "Superscript"], " ",
920 TemplateBox[{
921 SubscriptBox["\[Gamma]",
922 RowBox[{
923 SubscriptBox["\"s\"", "3"], ",",
924 SubscriptBox["\"s\"", "4"]}]], "5"},
925 "Superscript"], " ",
926 SubscriptBox["\[Delta]",
927 RowBox[{
928 SubscriptBox["\<\"m\"\>", "1"], ",",
929 SubscriptBox["\<\"m\"\>", "2"]}]], " ",
930 SubscriptBox["\[Delta]",
931 RowBox[{
932 SubscriptBox["\<\"m\"\>", "3"], ",",
933 SubscriptBox["\<\"m\"\>", "4"]}]]}], "500000"], "+",
934 FractionBox[
935 RowBox[{"\[ImaginaryI]", " ",
936 FractionBox[
937 TemplateBox[{"C", "s", "1"},
938 "Subsuperscript"],
939 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
940 SubscriptBox["\[Delta]",
941 RowBox[{
942 SubscriptBox["\<\"m\"\>", "1"], ",",
943 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
944 SubscriptBox["\[Delta]",
945 RowBox[{
946 SubscriptBox["\<\"m\"\>", "2"], ",",
947 SubscriptBox["\<\"m\"\>", "3"]}]], " ",
948 SubscriptBox["\[Delta]",
949 RowBox[{
950 SubscriptBox["\<\"s\"\>", "1"], ",",
951 SubscriptBox["\<\"s\"\>", "4"]}]], " ",
952 SubscriptBox["\[Delta]",
953 RowBox[{
954 SubscriptBox["\<\"s\"\>", "3"], ",",
955 SubscriptBox["\<\"s\"\>", "2"]}]]}], "500000"], "+",
956 FractionBox[
957 RowBox[{"\[ImaginaryI]", " ",
958 FractionBox[
959 TemplateBox[{"C", "s", "1"},
960 "Subsuperscript"],
961 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
962 SubscriptBox["\[Delta]",
963 RowBox[{
964 SubscriptBox["\<\"m\"\>", "1"], ",",
965 SubscriptBox["\<\"m\"\>", "2"]}]], " ",
966 SubscriptBox["\[Delta]",
967 RowBox[{
968 SubscriptBox["\<\"m\"\>", "3"], ",",
969 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
970 SubscriptBox["\[Delta]",
971 RowBox[{
972 SubscriptBox["\<\"s\"\>", "1"], ",",
973 SubscriptBox["\<\"s\"\>", "2"]}]], " ",
974 SubscriptBox["\[Delta]",
975 RowBox[{
976 SubscriptBox["\<\"s\"\>", "3"], ",",
977 SubscriptBox["\<\"s\"\>", "4"]}]]}], "500000"], "+",
978 FractionBox[
979 RowBox[{"\[ImaginaryI]", " ",
980 FractionBox[
981 TemplateBox[{"C", "ps", "8"},
982 "Subsuperscript"],
983 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
984 TemplateBox[{
985 SubscriptBox["\[Gamma]",
986 RowBox[{
987 SubscriptBox["\"s\"", "1"], ",",
988 SubscriptBox["\"s\"", "4"]}]], "5"},
989 "Superscript"], " ",
990 TemplateBox[{
991 SubscriptBox["\[Gamma]",
992 RowBox[{
993 SubscriptBox["\"s\"", "3"], ",",
994 SubscriptBox["\"s\"", "2"]}]], "5"},
995 "Superscript"], " ",
996 SubsuperscriptBox["T",
997 RowBox[{
998 SubscriptBox["\<\"m\"\>", "1"], ",",
999 SubscriptBox["\<\"m\"\>", "4"]}], "Gluon$1"], " ",
1000 SubsuperscriptBox["T",
1001 RowBox[{
1002 SubscriptBox["\<\"m\"\>", "3"], ",",
1003 SubscriptBox["\<\"m\"\>", "2"]}], "Gluon$1"]}], "500000"], "+",
1004 FractionBox[
1005 RowBox[{"\[ImaginaryI]", " ",
1006 FractionBox[
1007 TemplateBox[{"C", "s", "8"},
1008 "Subsuperscript"],
1009 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1010 SubscriptBox["\[Delta]",
1011 RowBox[{
1012 SubscriptBox["\<\"s\"\>", "1"], ",",
1013 SubscriptBox["\<\"s\"\>", "4"]}]], " ",
1014 SubscriptBox["\[Delta]",
1015 RowBox[{
1016 SubscriptBox["\<\"s\"\>", "3"], ",",
1017 SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1018 SubsuperscriptBox["T",
1019 RowBox[{
1020 SubscriptBox["\<\"m\"\>", "1"], ",",
1021 SubscriptBox["\<\"m\"\>", "4"]}], "Gluon$1"], " ",
1022 SubsuperscriptBox["T",
1023 RowBox[{
1024 SubscriptBox["\<\"m\"\>", "3"], ",",
1025 SubscriptBox["\<\"m\"\>", "2"]}], "Gluon$1"]}], "500000"], "+",
1026 FractionBox[
1027 RowBox[{"\[ImaginaryI]", " ",
1028 FractionBox[
1029 TemplateBox[{"C", "ps", "8"},
1030 "Subsuperscript"],
1031 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1032 TemplateBox[{
1033 SubscriptBox["\[Gamma]",
1034 RowBox[{
1035 SubscriptBox["\"s\"", "1"], ",",
1036 SubscriptBox["\"s\"", "2"]}]], "5"},
1037 "Superscript"], " ",
1038 TemplateBox[{
1039 SubscriptBox["\[Gamma]",
1040 RowBox[{
1041 SubscriptBox["\"s\"", "3"], ",",
1042 SubscriptBox["\"s\"", "4"]}]], "5"},
1043 "Superscript"], " ",
1044 SubsuperscriptBox["T",
1045 RowBox[{
1046 SubscriptBox["\<\"m\"\>", "1"], ",",
1047 SubscriptBox["\<\"m\"\>", "2"]}], "Gluon$1"], " ",
1048 SubsuperscriptBox["T",
1049 RowBox[{
1050 SubscriptBox["\<\"m\"\>", "3"], ",",
1051 SubscriptBox["\<\"m\"\>", "4"]}], "Gluon$1"]}], "500000"], "+",
1052 FractionBox[
1053 RowBox[{"\[ImaginaryI]", " ",
1054 FractionBox[
1055 TemplateBox[{"C", "s", "8"},
1056 "Subsuperscript"],
1057 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1058 SubscriptBox["\[Delta]",
1059 RowBox[{
1060 SubscriptBox["\<\"s\"\>", "1"], ",",
1061 SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1062 SubscriptBox["\[Delta]",
1063 RowBox[{
1064 SubscriptBox["\<\"s\"\>", "3"], ",",
1065 SubscriptBox["\<\"s\"\>", "4"]}]], " ",
1066 SubsuperscriptBox["T",
1067 RowBox[{
1068 SubscriptBox["\<\"m\"\>", "1"], ",",
1069 SubscriptBox["\<\"m\"\>", "2"]}], "Gluon$1"], " ",
1070 SubsuperscriptBox["T",
1071 RowBox[{
1072 SubscriptBox["\<\"m\"\>", "3"], ",",
1073 SubscriptBox["\<\"m\"\>", "4"]}], "Gluon$1"]}], "500000"], "+",
1074 FractionBox[
1075 RowBox[{"\[ImaginaryI]", " ",
1076 FractionBox[
1077 SubscriptBox["C", "qq"],
1078 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1079 SubscriptBox["\[Delta]",
1080 RowBox[{
1081 SubscriptBox["\<\"m\"\>", "1"], ",",
1082 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1083 SubscriptBox["\[Delta]",
1084 RowBox[{
1085 SubscriptBox["\<\"m\"\>", "2"], ",",
1086 SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1087 SubscriptBox[
1088 RowBox[{
1089 TemplateBox[{"\[Gamma]", "mu$1"},
1090 "Superscript"], ".",
1091 SubscriptBox["P", "\<\"-\"\>"]}],
1092 RowBox[{
1093 SubscriptBox["\<\"s\"\>", "1"], ",",
1094 SubscriptBox["\<\"s\"\>", "4"]}]], " ",
1095 SubscriptBox[
1096 RowBox[{
1097 TemplateBox[{"\[Gamma]", "mu$1"},
1098 "Superscript"], ".",
1099 SubscriptBox["P", "\<\"-\"\>"]}],
1100 RowBox[{
1101 SubscriptBox["\<\"s\"\>", "3"], ",",
1102 SubscriptBox["\<\"s\"\>", "2"]}]]}], "500000"], "+",
1103 FractionBox[
1104 RowBox[{"\[ImaginaryI]", " ",
1105 FractionBox[
1106 SubscriptBox["C", "qq"],
1107 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1108 SubscriptBox["\[Delta]",
1109 RowBox[{
1110 SubscriptBox["\<\"m\"\>", "1"], ",",
1111 SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1112 SubscriptBox["\[Delta]",
1113 RowBox[{
1114 SubscriptBox["\<\"m\"\>", "3"], ",",
1115 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1116 SubscriptBox[
1117 RowBox[{
1118 TemplateBox[{"\[Gamma]", "mu$1"},
1119 "Superscript"], ".",
1120 SubscriptBox["P", "\<\"-\"\>"]}],
1121 RowBox[{
1122 SubscriptBox["\<\"s\"\>", "1"], ",",
1123 SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1124 SubscriptBox[
1125 RowBox[{
1126 TemplateBox[{"\[Gamma]", "mu$1"},
1127 "Superscript"], ".",
1128 SubscriptBox["P", "\<\"-\"\>"]}],
1129 RowBox[{
1130 SubscriptBox["\<\"s\"\>", "3"], ",",
1131 SubscriptBox["\<\"s\"\>", "4"]}]]}], "500000"], "+",
1132 FractionBox[
1133 RowBox[{"\[ImaginaryI]", " ",
1134 FractionBox[
1135 TemplateBox[{"C", "qu", "1"},
1136 "Subsuperscript"],
1137 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1138 SubscriptBox["\[Delta]",
1139 RowBox[{
1140 SubscriptBox["\<\"m\"\>", "1"], ",",
1141 SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1142 SubscriptBox["\[Delta]",
1143 RowBox[{
1144 SubscriptBox["\<\"m\"\>", "3"], ",",
1145 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1146 SubscriptBox[
1147 RowBox[{
1148 TemplateBox[{"\[Gamma]", "mu$1"},
1149 "Superscript"], ".",
1150 SubscriptBox["P", "\<\"-\"\>"]}],
1151 RowBox[{
1152 SubscriptBox["\<\"s\"\>", "3"], ",",
1153 SubscriptBox["\<\"s\"\>", "4"]}]], " ",
1154 SubscriptBox[
1155 RowBox[{
1156 TemplateBox[{"\[Gamma]", "mu$1"},
1157 "Superscript"], ".",
1158 SubscriptBox["P", "\<\"+\"\>"]}],
1159 RowBox[{
1160 SubscriptBox["\<\"s\"\>", "1"], ",",
1161 SubscriptBox["\<\"s\"\>", "2"]}]]}], "1000000"], "+",
1162 FractionBox[
1163 RowBox[{"\[ImaginaryI]", " ",
1164 FractionBox[
1165 TemplateBox[{"C", "qu", "8"},
1166 "Subsuperscript"],
1167 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1168 SubsuperscriptBox["T",
1169 RowBox[{
1170 SubscriptBox["\<\"m\"\>", "1"], ",",
1171 SubscriptBox["\<\"m\"\>", "2"]}], "Gluon$1"], " ",
1172 SubsuperscriptBox["T",
1173 RowBox[{
1174 SubscriptBox["\<\"m\"\>", "3"], ",",
1175 SubscriptBox["\<\"m\"\>", "4"]}], "Gluon$1"], " ",
1176 SubscriptBox[
1177 RowBox[{
1178 TemplateBox[{"\[Gamma]", "mu$1"},
1179 "Superscript"], ".",
1180 SubscriptBox["P", "\<\"-\"\>"]}],
1181 RowBox[{
1182 SubscriptBox["\<\"s\"\>", "3"], ",",
1183 SubscriptBox["\<\"s\"\>", "4"]}]], " ",
1184 SubscriptBox[
1185 RowBox[{
1186 TemplateBox[{"\[Gamma]", "mu$1"},
1187 "Superscript"], ".",
1188 SubscriptBox["P", "\<\"+\"\>"]}],
1189 RowBox[{
1190 SubscriptBox["\<\"s\"\>", "1"], ",",
1191 SubscriptBox["\<\"s\"\>", "2"]}]]}], "1000000"], "+",
1192 FractionBox[
1193 RowBox[{"\[ImaginaryI]", " ",
1194 FractionBox[
1195 TemplateBox[{"C", "qu", "1"},
1196 "Subsuperscript"],
1197 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1198 SubscriptBox["\[Delta]",
1199 RowBox[{
1200 SubscriptBox["\<\"m\"\>", "1"], ",",
1201 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1202 SubscriptBox["\[Delta]",
1203 RowBox[{
1204 SubscriptBox["\<\"m\"\>", "2"], ",",
1205 SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1206 SubscriptBox[
1207 RowBox[{
1208 TemplateBox[{"\[Gamma]", "mu$1"},
1209 "Superscript"], ".",
1210 SubscriptBox["P", "\<\"-\"\>"]}],
1211 RowBox[{
1212 SubscriptBox["\<\"s\"\>", "3"], ",",
1213 SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1214 SubscriptBox[
1215 RowBox[{
1216 TemplateBox[{"\[Gamma]", "mu$1"},
1217 "Superscript"], ".",
1218 SubscriptBox["P", "\<\"+\"\>"]}],
1219 RowBox[{
1220 SubscriptBox["\<\"s\"\>", "1"], ",",
1221 SubscriptBox["\<\"s\"\>", "4"]}]]}], "1000000"], "+",
1222 FractionBox[
1223 RowBox[{"\[ImaginaryI]", " ",
1224 FractionBox[
1225 TemplateBox[{"C", "qu", "8"},
1226 "Subsuperscript"],
1227 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1228 SubsuperscriptBox["T",
1229 RowBox[{
1230 SubscriptBox["\<\"m\"\>", "1"], ",",
1231 SubscriptBox["\<\"m\"\>", "4"]}], "Gluon$1"], " ",
1232 SubsuperscriptBox["T",
1233 RowBox[{
1234 SubscriptBox["\<\"m\"\>", "3"], ",",
1235 SubscriptBox["\<\"m\"\>", "2"]}], "Gluon$1"], " ",
1236 SubscriptBox[
1237 RowBox[{
1238 TemplateBox[{"\[Gamma]", "mu$1"},
1239 "Superscript"], ".",
1240 SubscriptBox["P", "\<\"-\"\>"]}],
1241 RowBox[{
1242 SubscriptBox["\<\"s\"\>", "3"], ",",
1243 SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1244 SubscriptBox[
1245 RowBox[{
1246 TemplateBox[{"\[Gamma]", "mu$1"},
1247 "Superscript"], ".",
1248 SubscriptBox["P", "\<\"+\"\>"]}],
1249 RowBox[{
1250 SubscriptBox["\<\"s\"\>", "1"], ",",
1251 SubscriptBox["\<\"s\"\>", "4"]}]]}], "1000000"], "+",
1252 FractionBox[
1253 RowBox[{"\[ImaginaryI]", " ",
1254 FractionBox[
1255 TemplateBox[{"C", "qu", "1"},
1256 "Subsuperscript"],
1257 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1258 SubscriptBox["\[Delta]",
1259 RowBox[{
1260 SubscriptBox["\<\"m\"\>", "1"], ",",
1261 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1262 SubscriptBox["\[Delta]",
1263 RowBox[{
1264 SubscriptBox["\<\"m\"\>", "2"], ",",
1265 SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1266 SubscriptBox[
1267 RowBox[{
1268 TemplateBox[{"\[Gamma]", "mu$1"},
1269 "Superscript"], ".",
1270 SubscriptBox["P", "\<\"-\"\>"]}],
1271 RowBox[{
1272 SubscriptBox["\<\"s\"\>", "1"], ",",
1273 SubscriptBox["\<\"s\"\>", "4"]}]], " ",
1274 SubscriptBox[
1275 RowBox[{
1276 TemplateBox[{"\[Gamma]", "mu$1"},
1277 "Superscript"], ".",
1278 SubscriptBox["P", "\<\"+\"\>"]}],
1279 RowBox[{
1280 SubscriptBox["\<\"s\"\>", "3"], ",",
1281 SubscriptBox["\<\"s\"\>", "2"]}]]}], "1000000"], "+",
1282 FractionBox[
1283 RowBox[{"\[ImaginaryI]", " ",
1284 FractionBox[
1285 TemplateBox[{"C", "qu", "8"},
1286 "Subsuperscript"],
1287 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1288 SubsuperscriptBox["T",
1289 RowBox[{
1290 SubscriptBox["\<\"m\"\>", "1"], ",",
1291 SubscriptBox["\<\"m\"\>", "4"]}], "Gluon$1"], " ",
1292 SubsuperscriptBox["T",
1293 RowBox[{
1294 SubscriptBox["\<\"m\"\>", "3"], ",",
1295 SubscriptBox["\<\"m\"\>", "2"]}], "Gluon$1"], " ",
1296 SubscriptBox[
1297 RowBox[{
1298 TemplateBox[{"\[Gamma]", "mu$1"},
1299 "Superscript"], ".",
1300 SubscriptBox["P", "\<\"-\"\>"]}],
1301 RowBox[{
1302 SubscriptBox["\<\"s\"\>", "1"], ",",
1303 SubscriptBox["\<\"s\"\>", "4"]}]], " ",
1304 SubscriptBox[
1305 RowBox[{
1306 TemplateBox[{"\[Gamma]", "mu$1"},
1307 "Superscript"], ".",
1308 SubscriptBox["P", "\<\"+\"\>"]}],
1309 RowBox[{
1310 SubscriptBox["\<\"s\"\>", "3"], ",",
1311 SubscriptBox["\<\"s\"\>", "2"]}]]}], "1000000"], "+",
1312 FractionBox[
1313 RowBox[{"\[ImaginaryI]", " ",
1314 FractionBox[
1315 SubscriptBox["C", "uu"],
1316 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1317 SubscriptBox["\[Delta]",
1318 RowBox[{
1319 SubscriptBox["\<\"m\"\>", "1"], ",",
1320 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1321 SubscriptBox["\[Delta]",
1322 RowBox[{
1323 SubscriptBox["\<\"m\"\>", "2"], ",",
1324 SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1325 SubscriptBox[
1326 RowBox[{
1327 TemplateBox[{"\[Gamma]", "mu$1"},
1328 "Superscript"], ".",
1329 SubscriptBox["P", "\<\"+\"\>"]}],
1330 RowBox[{
1331 SubscriptBox["\<\"s\"\>", "1"], ",",
1332 SubscriptBox["\<\"s\"\>", "4"]}]], " ",
1333 SubscriptBox[
1334 RowBox[{
1335 TemplateBox[{"\[Gamma]", "mu$1"},
1336 "Superscript"], ".",
1337 SubscriptBox["P", "\<\"+\"\>"]}],
1338 RowBox[{
1339 SubscriptBox["\<\"s\"\>", "3"], ",",
1340 SubscriptBox["\<\"s\"\>", "2"]}]]}], "500000"], "+",
1341 FractionBox[
1342 RowBox[{"\[ImaginaryI]", " ",
1343 FractionBox[
1344 TemplateBox[{"C", "qu", "1"},
1345 "Subsuperscript"],
1346 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1347 SubscriptBox["\[Delta]",
1348 RowBox[{
1349 SubscriptBox["\<\"m\"\>", "1"], ",",
1350 SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1351 SubscriptBox["\[Delta]",
1352 RowBox[{
1353 SubscriptBox["\<\"m\"\>", "3"], ",",
1354 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1355 SubscriptBox[
1356 RowBox[{
1357 TemplateBox[{"\[Gamma]", "mu$1"},
1358 "Superscript"], ".",
1359 SubscriptBox["P", "\<\"-\"\>"]}],
1360 RowBox[{
1361 SubscriptBox["\<\"s\"\>", "1"], ",",
1362 SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1363 SubscriptBox[
1364 RowBox[{
1365 TemplateBox[{"\[Gamma]", "mu$1"},
1366 "Superscript"], ".",
1367 SubscriptBox["P", "\<\"+\"\>"]}],
1368 RowBox[{
1369 SubscriptBox["\<\"s\"\>", "3"], ",",
1370 SubscriptBox["\<\"s\"\>", "4"]}]]}], "1000000"], "+",
1371 FractionBox[
1372 RowBox[{"\[ImaginaryI]", " ",
1373 FractionBox[
1374 TemplateBox[{"C", "qu", "8"},
1375 "Subsuperscript"],
1376 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1377 SubsuperscriptBox["T",
1378 RowBox[{
1379 SubscriptBox["\<\"m\"\>", "1"], ",",
1380 SubscriptBox["\<\"m\"\>", "2"]}], "Gluon$1"], " ",
1381 SubsuperscriptBox["T",
1382 RowBox[{
1383 SubscriptBox["\<\"m\"\>", "3"], ",",
1384 SubscriptBox["\<\"m\"\>", "4"]}], "Gluon$1"], " ",
1385 SubscriptBox[
1386 RowBox[{
1387 TemplateBox[{"\[Gamma]", "mu$1"},
1388 "Superscript"], ".",
1389 SubscriptBox["P", "\<\"-\"\>"]}],
1390 RowBox[{
1391 SubscriptBox["\<\"s\"\>", "1"], ",",
1392 SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1393 SubscriptBox[
1394 RowBox[{
1395 TemplateBox[{"\[Gamma]", "mu$1"},
1396 "Superscript"], ".",
1397 SubscriptBox["P", "\<\"+\"\>"]}],
1398 RowBox[{
1399 SubscriptBox["\<\"s\"\>", "3"], ",",
1400 SubscriptBox["\<\"s\"\>", "4"]}]]}], "1000000"], "+",
1401 FractionBox[
1402 RowBox[{"\[ImaginaryI]", " ",
1403 FractionBox[
1404 SubscriptBox["C", "uu"],
1405 SuperscriptBox["\[CapitalLambda]", "2"]], " ",
1406 SubscriptBox["\[Delta]",
1407 RowBox[{
1408 SubscriptBox["\<\"m\"\>", "1"], ",",
1409 SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1410 SubscriptBox["\[Delta]",
1411 RowBox[{
1412 SubscriptBox["\<\"m\"\>", "3"], ",",
1413 SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1414 SubscriptBox[
1415 RowBox[{
1416 TemplateBox[{"\[Gamma]", "mu$1"},
1417 "Superscript"], ".",
1418 SubscriptBox["P", "\<\"+\"\>"]}],
1419 RowBox[{
1420 SubscriptBox["\<\"s\"\>", "1"], ",",
1421 SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1422 SubscriptBox[
1423 RowBox[{
1424 TemplateBox[{"\[Gamma]", "mu$1"},
1425 "Superscript"], ".",
1426 SubscriptBox["P", "\<\"+\"\>"]}],
1427 RowBox[{
1428 SubscriptBox["\<\"s\"\>", "3"], ",",
1429 SubscriptBox["\<\"s\"\>", "4"]}]]}], "500000"]}]}], "}"}],
1430 "}"}]], "Output",
1431 CellChangeTimes->{
1432 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
1433 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
1434 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
1435 3.7802043442203283`*^9, 3.780205978423317*^9, 3.7802071123111773`*^9,
1436 3.780207447637168*^9, 3.780207601384635*^9, 3.780207655659214*^9,
1437 3.7802078675962276`*^9, 3.780208428678698*^9, 3.7802084632491198`*^9,
1438 3.780208869506777*^9, 3.780640358427123*^9, 3.780655129754079*^9,
1439 3.7807215859525347`*^9, 3.78090335074323*^9, 3.780904245944458*^9,
1440 3.7809046033736773`*^9, 3.782198703631143*^9, 3.7821991218557777`*^9,
1441 3.782204343889759*^9, 3.782207512597904*^9, 3.782641456712771*^9,
1442 3.7826427792394753`*^9, 3.7826429541095667`*^9, 3.782644524173164*^9,
1443 3.782644607095043*^9, 3.782644819995878*^9, 3.782645080876055*^9,
1444 3.782645118002426*^9, 3.782645542537897*^9, 3.7942391584481583`*^9,
1445 3.823318310522846*^9},
1446 CellLabel->"Out[12]=",ExpressionUUID->"cee74966-eddc-4886-b341-a830beb25fff"],
1447
1448Cell[CellGroupData[{
1449
1450Cell[BoxData[
1451 InterpretationBox[
1452 RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
1453 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
1454 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1455 "\[InvisibleSpace]", "1"}],
1456 SequenceForm["Flavor expansion of the vertices: ",
1457 Dynamic[FeynRules`FR$Count1], " / ", 1],
1458 Editable->False]], "Print",
1459 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1460 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1461 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1462 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1463 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1464 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1465 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1466 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1467 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1468 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1469 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1470 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1471 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1472 3.823318310575828*^9},
1473 CellLabel->
1474 "During evaluation of \
1475In[10]:=",ExpressionUUID->"6709e98f-b023-4100-812a-03fbdbcb992c"],
1476
1477Cell[BoxData[
1478 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
1479decays: \"\>",
1480 StripOnInput->False,
1481 LineColor->RGBColor[1, 0.5, 0],
1482 FrontFaceColor->RGBColor[1, 0.5, 0],
1483 BackFaceColor->RGBColor[1, 0.5, 0],
1484 GraphicsColor->RGBColor[1, 0.5, 0],
1485 FontWeight->Bold,
1486 FontColor->RGBColor[1, 0.5, 0]]], "Print",
1487 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1488 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1489 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1490 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1491 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1492 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1493 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1494 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1495 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1496 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1497 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1498 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1499 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1500 3.823318310650758*^9},
1501 CellLabel->
1502 "During evaluation of \
1503In[10]:=",ExpressionUUID->"57b3a797-0742-4593-96e3-8704eb937ef4"],
1504
1505Cell[BoxData[
1506 InterpretationBox[
1507 RowBox[{
1508 DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
1509 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1510 "\[InvisibleSpace]", "0"}],
1511 SequenceForm[
1512 Dynamic[FeynRules`FR$DecayCounter], " / ", 0],
1513 Editable->False]], "Print",
1514 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1515 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1516 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1517 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1518 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1519 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1520 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1521 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1522 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1523 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1524 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1525 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1526 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1527 3.8233183106537447`*^9},
1528 CellLabel->
1529 "During evaluation of \
1530In[10]:=",ExpressionUUID->"7fcdf6bc-b740-4e1c-9198-555afb6674cc"],
1531
1532Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
1533"Print",
1534 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1535 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1536 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1537 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1538 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1539 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1540 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1541 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1542 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1543 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1544 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1545 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1546 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1547 3.823318312619968*^9},
1548 CellLabel->
1549 "During evaluation of \
1550In[10]:=",ExpressionUUID->"cd8b1073-26d3-430c-97bd-bfbffd6359f3"],
1551
1552Cell[BoxData[
1553 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1554 StripOnInput->False,
1555 LineColor->RGBColor[1, 0.5, 0],
1556 FrontFaceColor->RGBColor[1, 0.5, 0],
1557 BackFaceColor->RGBColor[1, 0.5, 0],
1558 GraphicsColor->RGBColor[1, 0.5, 0],
1559 FontWeight->Bold,
1560 FontColor->RGBColor[1, 0.5, 0]]], "Print",
1561 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1562 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1563 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1564 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1565 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1566 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1567 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1568 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1569 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1570 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1571 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1572 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1573 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1574 3.823318313097239*^9},
1575 CellLabel->
1576 "During evaluation of \
1577In[10]:=",ExpressionUUID->"2246c720-879a-4ea9-a2f3-6ba5703bb56c"],
1578
1579Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1580 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1581 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1582 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1583 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1584 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1585 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1586 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1587 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1588 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1589 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1590 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1591 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1592 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1593 3.823318313098589*^9},
1594 CellLabel->
1595 "During evaluation of \
1596In[10]:=",ExpressionUUID->"39955d8f-c7e7-4d4d-9700-e78881dbd766"],
1597
1598Cell[BoxData[
1599 InterpretationBox[
1600 RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
1601 "\[InvisibleSpace]", "\<\" cores\"\>"}],
1602 SequenceForm["Expanding the indices over ", 2, " cores"],
1603 Editable->False]], "Print",
1604 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1605 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1606 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1607 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1608 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1609 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1610 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1611 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1612 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1613 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1614 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1615 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1616 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1617 3.82331831309977*^9},
1618 CellLabel->
1619 "During evaluation of \
1620In[10]:=",ExpressionUUID->"ba2eaa1a-d79c-4c6a-96c5-c9b13bd4291a"],
1621
1622Cell[BoxData["\<\"Collecting the different structures that enter the \
1623vertex.\"\>"], "Print",
1624 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1625 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1626 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1627 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1628 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1629 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1630 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1631 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1632 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1633 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1634 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1635 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1636 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1637 3.823318320221833*^9},
1638 CellLabel->
1639 "During evaluation of \
1640In[10]:=",ExpressionUUID->"370169cf-defd-498d-9f3c-6633d1da92d8"],
1641
1642Cell[BoxData[
1643 InterpretationBox[
1644 RowBox[{
1645 "99", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1646-> starting the computation: \"\>", "\[InvisibleSpace]",
1647 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1648 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1649 "\[InvisibleSpace]", "99", "\[InvisibleSpace]", "\<\".\"\>"}],
1650 SequenceForm[
1651 99, " possible non-zero vertices have been found -> starting the \
1652computation: ",
1653 Dynamic[FeynRules`FR$FeynmanRules], " / ", 99, "."],
1654 Editable->False]], "Print",
1655 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1656 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1657 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1658 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1659 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1660 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1661 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1662 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1663 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1664 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1665 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1666 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1667 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1668 3.823318320262636*^9},
1669 CellLabel->
1670 "During evaluation of \
1671In[10]:=",ExpressionUUID->"51fd19c8-77c4-4e69-90ca-153ad9b091e3"],
1672
1673Cell[BoxData[
1674 InterpretationBox[
1675 RowBox[{"94", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1676 SequenceForm[94, " vertices obtained."],
1677 Editable->False]], "Print",
1678 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1679 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1680 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1681 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1682 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1683 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1684 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1685 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1686 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1687 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1688 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1689 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1690 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1691 3.823318324594335*^9},
1692 CellLabel->
1693 "During evaluation of \
1694In[10]:=",ExpressionUUID->"5905b044-a0cf-403f-8151-3e2482819230"],
1695
1696Cell[BoxData[
1697 InterpretationBox[
1698 RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
1699 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
1700 "\[InvisibleSpace]",
1701 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
1702 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1703 "\[InvisibleSpace]", "94"}],
1704 SequenceForm[
1705 "Flavor expansion of the vertices distributed over ", 2, " cores: ",
1706 Dynamic[FeynRules`FR$Count1], " / ", 94],
1707 Editable->False]], "Print",
1708 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1709 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1710 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1711 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1712 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1713 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1714 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1715 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1716 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1717 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1718 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1719 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1720 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1721 3.823318326756587*^9},
1722 CellLabel->
1723 "During evaluation of \
1724In[10]:=",ExpressionUUID->"fbfd73d5-0968-4bdd-9f20-dee58fd0c4a5"],
1725
1726Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
1727 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1728 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1729 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1730 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1731 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1732 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1733 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1734 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1735 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1736 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1737 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1738 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1739 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1740 3.8233183332533407`*^9},
1741 CellLabel->
1742 "During evaluation of \
1743In[10]:=",ExpressionUUID->"dc6a1bc6-6003-4aa0-bac0-50dd9bfdf533"],
1744
1745Cell[BoxData[
1746 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
1747decays: \"\>",
1748 StripOnInput->False,
1749 LineColor->RGBColor[1, 0.5, 0],
1750 FrontFaceColor->RGBColor[1, 0.5, 0],
1751 BackFaceColor->RGBColor[1, 0.5, 0],
1752 GraphicsColor->RGBColor[1, 0.5, 0],
1753 FontWeight->Bold,
1754 FontColor->RGBColor[1, 0.5, 0]]], "Print",
1755 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1756 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1757 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1758 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1759 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1760 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1761 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1762 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1763 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1764 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1765 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1766 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1767 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1768 3.823318333275547*^9},
1769 CellLabel->
1770 "During evaluation of \
1771In[10]:=",ExpressionUUID->"121561c0-5b80-44e1-adf9-b7eaeca71fc3"],
1772
1773Cell[BoxData[
1774 InterpretationBox[
1775 RowBox[{
1776 DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
1777 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1778 "\[InvisibleSpace]", "40"}],
1779 SequenceForm[
1780 Dynamic[FeynRules`FR$DecayCounter], " / ", 40],
1781 Editable->False]], "Print",
1782 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1783 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1784 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1785 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1786 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1787 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1788 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1789 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1790 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1791 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1792 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1793 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1794 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1795 3.8233183332768993`*^9},
1796 CellLabel->
1797 "During evaluation of \
1798In[10]:=",ExpressionUUID->"58a10044-15f6-4fcc-8f05-faa783703f08"],
1799
1800Cell[BoxData[
1801 InterpretationBox[
1802 RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
1803 "0.819726`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
1804 SequenceForm["Squared matrix elent compute in ", 0.819726, " seconds."],
1805 Editable->False]], "Print",
1806 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1807 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1808 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1809 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1810 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1811 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1812 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1813 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1814 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1815 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1816 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1817 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1818 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1819 3.823318334098773*^9},
1820 CellLabel->
1821 "During evaluation of \
1822In[10]:=",ExpressionUUID->"1caf2511-dec0-42f3-a2d9-1d29ed9905f3"],
1823
1824Cell[BoxData[
1825 InterpretationBox[
1826 RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
1827 "0.009761`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
1828 SequenceForm["Decay widths computed in ", 0.009761, " seconds."],
1829 Editable->False]], "Print",
1830 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1831 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1832 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1833 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1834 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1835 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1836 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1837 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1838 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1839 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1840 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1841 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1842 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1843 3.823318334117392*^9},
1844 CellLabel->
1845 "During evaluation of \
1846In[10]:=",ExpressionUUID->"a926d3f6-8cfd-4612-b804-177ef44a9be1"],
1847
1848Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
1849 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1850 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1851 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1852 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1853 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1854 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1855 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1856 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1857 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1858 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1859 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1860 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1861 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1862 3.823318334119226*^9},
1863 CellLabel->
1864 "During evaluation of \
1865In[10]:=",ExpressionUUID->"577f54a4-10e4-4b0f-ba72-31472ba4a06d"],
1866
1867Cell[BoxData[
1868 StyleBox["\<\"Warning: Multi-Fermion operators are not yet fully \
1869supported!\"\>",
1870 StripOnInput->False,
1871 LineColor->RGBColor[1, 0, 0],
1872 FrontFaceColor->RGBColor[1, 0, 0],
1873 BackFaceColor->RGBColor[1, 0, 0],
1874 GraphicsColor->RGBColor[1, 0, 0],
1875 FontColor->RGBColor[1, 0, 0]]], "Print",
1876 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1877 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1878 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1879 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1880 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1881 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1882 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1883 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1884 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1885 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1886 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1887 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1888 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1889 3.8233183341492987`*^9},
1890 CellLabel->
1891 "During evaluation of \
1892In[10]:=",ExpressionUUID->"5b5b12ba-4425-40fb-9951-a9eefbae5243"],
1893
1894Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
1895"Print",
1896 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1897 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1898 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1899 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1900 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1901 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1902 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1903 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1904 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1905 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1906 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1907 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1908 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1909 3.823318334218933*^9},
1910 CellLabel->
1911 "During evaluation of \
1912In[10]:=",ExpressionUUID->"c20995c8-071d-4699-bf20-cc0849b4ac0f"],
1913
1914Cell[BoxData[
1915 InterpretationBox[
1916 RowBox[{"\<\"Splitting of vertices distributed over \"\>",
1917 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
1918 SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
1919 Editable->False]], "Print",
1920 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1921 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1922 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1923 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1924 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1925 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1926 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1927 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1928 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1929 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1930 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1931 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1932 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1933 3.823318334238798*^9},
1934 CellLabel->
1935 "During evaluation of \
1936In[10]:=",ExpressionUUID->"e5fe8269-b8f2-4df4-878e-a9ecd9d30a70"],
1937
1938Cell[BoxData["\<\"before\"\>"], "Print",
1939 ShowCellLabel->True,
1940 CellChangeTimes->{3.823318335944923*^9},
1941 CellLabel->
1942 "(kernel 1)",ExpressionUUID->"b3f05a75-ea77-41e2-9a6b-8686e706ff06"],
1943
1944Cell[BoxData["\<\"before\"\>"], "Print",
1945 ShowCellLabel->True,
1946 CellChangeTimes->{3.823318335969709*^9},
1947 CellLabel->
1948 "(kernel 2)",ExpressionUUID->"85cce018-9fb0-46b4-8547-d0ac350f18a8"],
1949
1950Cell[BoxData["\<\"true\"\>"], "Print",
1951 ShowCellLabel->True,
1952 CellChangeTimes->{3.823318336014955*^9},
1953 CellLabel->
1954 "(kernel 1)",ExpressionUUID->"dadf5961-a6db-467e-b163-0cc795cbedc7"],
1955
1956Cell[BoxData["\<\"true\"\>"], "Print",
1957 ShowCellLabel->True,
1958 CellChangeTimes->{3.823318336152317*^9},
1959 CellLabel->
1960 "(kernel 2)",ExpressionUUID->"f2292f9e-2463-4a5c-9a60-666e9a3a52af"],
1961
1962Cell[BoxData[
1963 InterpretationBox[
1964 RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
1965 DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
1966 ImageSizeCache->{209., {3., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>",
1967 "\[InvisibleSpace]", "120", "\[InvisibleSpace]", "\<\" .\"\>"}],
1968 SequenceForm[" - Optimizing: ",
1969 Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 120, " ."],
1970 Editable->False]], "Print",
1971 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1972 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1973 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1974 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1975 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1976 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1977 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1978 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1979 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1980 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
1981 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
1982 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
1983 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
1984 3.823318336285346*^9},
1985 CellLabel->
1986 "During evaluation of \
1987In[10]:=",ExpressionUUID->"4f196665-b484-4d78-8b24-847440bccc97"],
1988
1989Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
1990 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
1991 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
1992 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
1993 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
1994 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
1995 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
1996 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
1997 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
1998 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
1999 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
2000 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
2001 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
2002 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
2003 3.823318336395763*^9},
2004 CellLabel->
2005 "During evaluation of \
2006In[10]:=",ExpressionUUID->"0eea4daf-4fb9-4129-8161-8e5e6e1ceb73"],
2007
2008Cell[BoxData["\<\"Done!\"\>"], "Print",
2009 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2010 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2011 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
2012 3.780204344120599*^9, 3.780205976970922*^9, 3.780207110844549*^9,
2013 3.780207446465786*^9, 3.780207601353045*^9, 3.780207655632494*^9,
2014 3.780207866522584*^9, 3.7802084264726667`*^9, 3.780208461009726*^9,
2015 3.7802088675815*^9, 3.780640356542487*^9, 3.7806551280105343`*^9,
2016 3.780721584270252*^9, 3.780903349037813*^9, 3.7809042443099613`*^9,
2017 3.780904601313138*^9, 3.7821987018409986`*^9, 3.782199120195635*^9,
2018 3.782204342728475*^9, 3.7822075120543947`*^9, 3.7826414562121983`*^9,
2019 3.782642778710424*^9, 3.782642953076583*^9, 3.782644523163971*^9,
2020 3.782644592538116*^9, 3.782644819223568*^9, 3.782645080060171*^9,
2021 3.782645117195219*^9, 3.782645541740649*^9, 3.794239157802927*^9,
2022 3.823318336505858*^9},
2023 CellLabel->
2024 "During evaluation of \
2025In[10]:=",ExpressionUUID->"2b220bdb-5764-4793-bf68-8514128ebe99"]
2026}, Open ]]
2027}, Open ]]
2028}, Closed]],
2029
2030Cell[CellGroupData[{
2031
2032Cell["Scalar Octet", "Section",
2033 CellChangeTimes->{{3.759472462715425*^9,
2034 3.7594724703715563`*^9}},ExpressionUUID->"2336ad77-5f71-45d3-aa04-\
2035279489ef8eca"],
2036
2037Cell[CellGroupData[{
2038
2039Cell[BoxData[
2040 RowBox[{"\[IndentingNewLine]",
2041 RowBox[{
2042 RowBox[{
2043 RowBox[{"SetDirectory", "[", "here", "]"}], ";"}], "\[IndentingNewLine]",
2044
2045 RowBox[{
2046 RowBox[{"LoadModel", "[", " ",
2047 RowBox[{
2048 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
2049 "\"\<ScalarOctet.fr\>\""}], "]"}], ";"}], "\[IndentingNewLine]",
2050 RowBox[{
2051 RowBox[{"LoadRestriction", "[",
2052 RowBox[{"\"\<DiagonalNP.rst\>\"", ",",
2053 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/DiagonalCKM.rst\>\""}],
2054 ",",
2055 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/Massless.rst\>\""}],
2056 ",", "\"\<NozRzL.rst\>\""}], "]"}], ";"}]}]}]], "Input",
2057 CellChangeTimes->{{3.759473357442108*^9, 3.759473357661347*^9}, {
2058 3.780202301155065*^9, 3.780202301592578*^9}, {3.7802023540818653`*^9,
2059 3.780202359097866*^9}},
2060 CellLabel->"In[4]:=",ExpressionUUID->"6e6925aa-c8eb-43ad-abc2-dacc15d02aaf"],
2061
2062Cell[CellGroupData[{
2063
2064Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
2065 CellChangeTimes->{
2066 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2067 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2068 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2069 3.8233183450666437`*^9, 3.823318366023326*^9}},
2070 CellLabel->
2071 "During evaluation of \
2072In[4]:=",ExpressionUUID->"9a62a909-12f2-44a3-8773-93d18c5c2b1d"],
2073
2074Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
2075 CellChangeTimes->{
2076 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2077 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2078 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2079 3.8233183450666437`*^9, 3.823318366029416*^9}},
2080 CellLabel->
2081 "During evaluation of \
2082In[4]:=",ExpressionUUID->"9ee8e020-a295-44ad-bc6f-d583c01555ce"],
2083
2084Cell[BoxData["\<\"Luc Darme\"\>"], "Print",
2085 CellChangeTimes->{
2086 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2087 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2088 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2089 3.8233183450666437`*^9, 3.823318366031458*^9}},
2090 CellLabel->
2091 "During evaluation of \
2092In[4]:=",ExpressionUUID->"0442bb81-4467-4c21-ab2f-a336184b17fa"],
2093
2094Cell[BoxData["\<\"Benjamin Fuks\"\>"], "Print",
2095 CellChangeTimes->{
2096 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2097 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2098 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2099 3.8233183450666437`*^9, 3.8233183660324802`*^9}},
2100 CellLabel->
2101 "During evaluation of \
2102In[4]:=",ExpressionUUID->"805612bf-1fab-4a52-b88a-e0d6808b0a0d"],
2103
2104Cell[BoxData[
2105 InterpretationBox[
2106 RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1\"\>"}],
2107 SequenceForm["Model Version: ", "1"],
2108 Editable->False]], "Print",
2109 CellChangeTimes->{
2110 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2111 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2112 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2113 3.8233183450666437`*^9, 3.823318366033598*^9}},
2114 CellLabel->
2115 "During evaluation of \
2116In[4]:=",ExpressionUUID->"e6c034fd-bad3-41ac-b676-02e85b74c603"],
2117
2118Cell[BoxData["\<\"Please cite\"\>"], "Print",
2119 CellChangeTimes->{
2120 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2121 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2122 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2123 3.8233183450666437`*^9, 3.823318366034986*^9}},
2124 CellLabel->
2125 "During evaluation of \
2126In[4]:=",ExpressionUUID->"99b5201b-6085-4655-9e01-cad45555542d"],
2127
2128Cell[BoxData["\<\"xxx\"\>"], "Print",
2129 CellChangeTimes->{
2130 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2131 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2132 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2133 3.8233183450666437`*^9, 3.82331836603605*^9}},
2134 CellLabel->
2135 "During evaluation of \
2136In[4]:=",ExpressionUUID->"c491350f-1df3-4b74-ab28-358cd86c5201"],
2137
2138Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
2139"Print",
2140 CellChangeTimes->{
2141 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2142 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2143 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2144 3.8233183450666437`*^9, 3.823318366037389*^9}},
2145 CellLabel->
2146 "During evaluation of \
2147In[4]:=",ExpressionUUID->"214cbacc-e444-4b72-a7de-425d51690ec8"],
2148
2149Cell[BoxData["\<\"\"\>"], "Print",
2150 CellChangeTimes->{
2151 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2152 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2153 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2154 3.8233183450666437`*^9, 3.823318366038486*^9}},
2155 CellLabel->
2156 "During evaluation of \
2157In[4]:=",ExpressionUUID->"d7e9ded2-258f-4b20-ba47-aa8275111db1"],
2158
2159Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
2160 CellChangeTimes->{
2161 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2162 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2163 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2164 3.8233183450666437`*^9, 3.823318366039661*^9}},
2165 CellLabel->
2166 "During evaluation of \
2167In[4]:=",ExpressionUUID->"ea277507-89e8-4bb9-a699-7eee48ce6e92"],
2168
2169Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
2170 CellChangeTimes->{
2171 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2172 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2173 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2174 3.8233183450666437`*^9, 3.823318366130644*^9}},
2175 CellLabel->
2176 "During evaluation of \
2177In[4]:=",ExpressionUUID->"88730290-de5d-4ed0-9381-e16d63b5ac3a"],
2178
2179Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
2180 CellChangeTimes->{
2181 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2182 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2183 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2184 3.8233183450666437`*^9, 3.823318366134583*^9}},
2185 CellLabel->
2186 "During evaluation of \
2187In[4]:=",ExpressionUUID->"d0cf44ca-4d37-45c8-abce-19a1ba878421"],
2188
2189Cell[BoxData[
2190 InterpretationBox[
2191 RowBox[{"\<\"\\nModel \"\>",
2192 "\[InvisibleSpace]", "\<\"ColoredScalarsAndPScalars\"\>",
2193 "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
2194 SequenceForm["\nModel ", "ColoredScalarsAndPScalars", " loaded."],
2195 Editable->False]], "Print",
2196 CellChangeTimes->{
2197 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2198 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2199 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2200 3.8233183450666437`*^9, 3.823318366190346*^9}},
2201 CellLabel->
2202 "During evaluation of \
2203In[4]:=",ExpressionUUID->"fbbcf15b-f544-490e-a55c-29942c64c954"]
2204}, Open ]],
2205
2206Cell[BoxData[
2207 TemplateBox[{
2208 "Get", "noopen",
2209 "\"Cannot open \
2210\\!\\(\\*RowBox[{\\\"\\\\\\\"DiagonalNP.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 1,
2211 32130033628568373647, "Local"},
2212 "MessageTemplate"]], "Message", "MSG",
2213 ShowCellLabel->True,
2214 CellChangeTimes->{{3.823318343562522*^9, 3.823318366213451*^9}},
2215 CellLabel->
2216 "During evaluation of \
2217In[4]:=",ExpressionUUID->"2e49b92b-b29f-4f45-ab5a-8d3cc408e5c6"],
2218
2219Cell[CellGroupData[{
2220
2221Cell[BoxData[
2222 InterpretationBox[
2223 RowBox[{"\<\"Loading restrictions from \"\>",
2224 "\[InvisibleSpace]", "\<\"DiagonalNP.rst\"\>",
2225 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
2226 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
2227 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2228 "\[InvisibleSpace]", "0"}],
2229 SequenceForm["Loading restrictions from ", "DiagonalNP.rst", " : ",
2230 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 0],
2231 Editable->False]], "Print",
2232 CellChangeTimes->{
2233 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2234 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2235 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2236 3.8233183450666437`*^9, 3.823318366906255*^9}},
2237 CellLabel->
2238 "During evaluation of \
2239In[4]:=",ExpressionUUID->"d8866ed9-a360-4675-b24c-f27a059dbf18"],
2240
2241Cell[BoxData[
2242 InterpretationBox[
2243 RowBox[{"\<\"Loading restrictions from \"\>",
2244 "\[InvisibleSpace]", \
2245"\<\"/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst\"\>",
2246 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
2247 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
2248 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2249 "\[InvisibleSpace]", "3"}],
2250 SequenceForm[
2251 "Loading restrictions from ",
2252 "/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst", " : ",
2253
2254 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
2255 Editable->False]], "Print",
2256 CellChangeTimes->{
2257 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2258 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2259 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2260 3.8233183450666437`*^9, 3.823318367115909*^9}},
2261 CellLabel->
2262 "During evaluation of \
2263In[4]:=",ExpressionUUID->"a7f775eb-8369-4c90-b394-f90b71bb3dbb"],
2264
2265Cell[BoxData[
2266 InterpretationBox[
2267 RowBox[{"\<\"Loading restrictions from \"\>",
2268 "\[InvisibleSpace]", \
2269"\<\"/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst\"\>",
2270 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
2271 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
2272 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2273 "\[InvisibleSpace]", "18"}],
2274 SequenceForm[
2275 "Loading restrictions from ",
2276 "/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst", " : ",
2277 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
2278 Editable->False]], "Print",
2279 CellChangeTimes->{
2280 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2281 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2282 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2283 3.8233183450666437`*^9, 3.82331836731704*^9}},
2284 CellLabel->
2285 "During evaluation of \
2286In[4]:=",ExpressionUUID->"11a70b88-498c-499b-bae9-94ddbb43af81"]
2287}, Open ]],
2288
2289Cell[BoxData[
2290 TemplateBox[{
2291 "Get", "noopen",
2292 "\"Cannot open \
2293\\!\\(\\*RowBox[{\\\"\\\\\\\"NozRzL.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 2,
2294 32130033628568373647, "Local"},
2295 "MessageTemplate"]], "Message", "MSG",
2296 ShowCellLabel->True,
2297 CellChangeTimes->{{3.823318343562522*^9, 3.823318367447453*^9}},
2298 CellLabel->
2299 "During evaluation of \
2300In[4]:=",ExpressionUUID->"d76313b5-3a41-4f63-bed5-32fed241325e"],
2301
2302Cell[CellGroupData[{
2303
2304Cell[BoxData[
2305 InterpretationBox[
2306 RowBox[{"\<\"Loading restrictions from \"\>",
2307 "\[InvisibleSpace]", "\<\"NozRzL.rst\"\>",
2308 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
2309 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
2310 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2311 "\[InvisibleSpace]", "18"}],
2312 SequenceForm["Loading restrictions from ", "NozRzL.rst", " : ",
2313 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
2314 Editable->False]], "Print",
2315 CellChangeTimes->{
2316 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2317 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2318 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2319 3.8233183450666437`*^9, 3.823318367543874*^9}},
2320 CellLabel->
2321 "During evaluation of \
2322In[4]:=",ExpressionUUID->"2963a4b9-5579-4ef4-ba60-6261b133f279"],
2323
2324Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
2325 CellChangeTimes->{
2326 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
2327 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
2328 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9, {
2329 3.8233183450666437`*^9, 3.823318367669571*^9}},
2330 CellLabel->
2331 "During evaluation of \
2332In[4]:=",ExpressionUUID->"fa91b802-425e-4ead-b7b4-2618a11fc037"]
2333}, Open ]]
2334}, Open ]],
2335
2336Cell[CellGroupData[{
2337
2338Cell[BoxData[
2339 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]",
2340 RowBox[{"(*",
2341 RowBox[{
2342 "Checking", " ", "the", " ", "hermiticity", " ", "of", " ", "the", " ",
2343 "model"}], "*)"}], "\[IndentingNewLine]",
2344 RowBox[{
2345 RowBox[{"CheckMassSpectrum", "[", "LagNP", "]"}], "\[IndentingNewLine]",
2346 RowBox[{"CheckHermiticity", "[", "LagNP", "]"}], "\[IndentingNewLine]",
2347 RowBox[{"(*",
2348 RowBox[{"Feynman", " ", "rules"}], "*)"}], "\[IndentingNewLine]",
2349 RowBox[{"vertices", "=",
2350 RowBox[{"FeynmanRules", "[", "LagNP", "]"}]}], "\[IndentingNewLine]",
2351 RowBox[{"(*",
2352 RowBox[{"Getting", " ", "decays"}], "*)"}], "\[IndentingNewLine]",
2353 RowBox[{
2354 RowBox[{"decays", "=",
2355 RowBox[{"ComputeWidths", "[", "vertices", "]"}]}], ";"}],
2356 "\[IndentingNewLine]",
2357 RowBox[{"(*",
2358 RowBox[{"Getting", " ", "UFO"}], "*)"}], "\[IndentingNewLine]",
2359 RowBox[{"WriteUFO", "[",
2360 RowBox[{
2361 RowBox[{"LSM", "+", "LagNP"}], ",",
2362 RowBox[{"Output", "\[Rule]", "\"\<ScalarOctet_UFO\>\""}]}],
2363 "]"}]}]}]], "Input",
2364 CellChangeTimes->{{3.7594723247858057`*^9, 3.7594724349408712`*^9},
2365 3.759472503253831*^9, {3.75947256827782*^9, 3.759472569743855*^9}, {
2366 3.759472916998436*^9, 3.7594729172534723`*^9}, {3.7594732513207397`*^9,
2367 3.759473276459257*^9}, {3.759473397881085*^9, 3.759473420215959*^9}, {
2368 3.75947351737363*^9, 3.759473518066074*^9}, 3.780202401768827*^9, {
2369 3.780646020664256*^9, 3.780646020908284*^9}},
2370 CellLabel->"In[7]:=",ExpressionUUID->"f035415b-5280-438a-b376-e7fcaafbf63b"],
2371
2372Cell[CellGroupData[{
2373
2374Cell[BoxData[
2375 InterpretationBox[
2376 RowBox[{"\<\"Neglecting all terms with more than \"\>",
2377 "\[InvisibleSpace]", "\<\"2\"\>",
2378 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
2379 SequenceForm["Neglecting all terms with more than ", "2", " particles."],
2380 Editable->False]], "Print",
2381 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2382 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2383 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2384 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2385 3.823318371140925*^9},
2386 CellLabel->
2387 "During evaluation of \
2388In[7]:=",ExpressionUUID->"50267ecd-6913-4322-97e9-6c181ee62a96"],
2389
2390Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
2391 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2392 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2393 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2394 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2395 3.823318371144013*^9},
2396 CellLabel->
2397 "During evaluation of \
2398In[7]:=",ExpressionUUID->"a2917d31-c659-454a-8b60-e33dc1af4bef"],
2399
2400Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
2401 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2402 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2403 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2404 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2405 3.823318371206937*^9},
2406 CellLabel->
2407 "During evaluation of \
2408In[7]:=",ExpressionUUID->"493be979-5bcf-4e6b-908c-9fe6ed32d553"],
2409
2410Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
2411values.\"\>"], "Print",
2412 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2413 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2414 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2415 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2416 3.823318371208564*^9},
2417 CellLabel->
2418 "During evaluation of \
2419In[7]:=",ExpressionUUID->"666fcd66-bf82-4c9a-851c-eaf4742466ad"]
2420}, Open ]],
2421
2422Cell[BoxData[
2423 TagBox[GridBox[{
2424 {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
2425"\<\"Model-file value\"\>"},
2426 {"sig8",
2427 SqrtBox[
2428 SuperscriptBox["m8", "2"]], "400.`", "400.`"}
2429 },
2430 GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
2431 GridBoxSpacings->{"Columns" -> {
2432 Offset[0.27999999999999997`], {
2433 Offset[2.0999999999999996`]},
2434 Offset[0.27999999999999997`]}, "Rows" -> {
2435 Offset[0.2], {
2436 Offset[0.4]},
2437 Offset[0.2]}}],
2438 Function[BoxForm`e$,
2439 TableForm[BoxForm`e$]]]], "Output",
2440 CellChangeTimes->{
2441 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
2442 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
2443 3.780202405050234*^9, 3.780645515932193*^9, 3.780645554707588*^9,
2444 3.780646021907053*^9, 3.780646121004187*^9, 3.782633360340663*^9,
2445 3.823318371227475*^9},
2446 CellLabel->
2447 "Out[7]//TableForm=",ExpressionUUID->"f275f380-9faa-4d3d-b1a5-a98603e7d45e"],
2448
2449Cell[CellGroupData[{
2450
2451Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
2452contained in L-HC[L].\"\>"], "Print",
2453 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2454 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2455 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2456 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2457 3.823318371259307*^9},
2458 CellLabel->
2459 "During evaluation of \
2460In[7]:=",ExpressionUUID->"c6df1072-941a-4bdd-b231-d81e56aa235c"],
2461
2462Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
2463should be zero.\"\>"], "Print",
2464 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2465 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2466 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2467 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2468 3.823318371260789*^9},
2469 CellLabel->
2470 "During evaluation of \
2471In[7]:=",ExpressionUUID->"93dca42b-7f46-41cd-9e60-56b9c569d800"],
2472
2473Cell[BoxData[
2474 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2475 StripOnInput->False,
2476 LineColor->RGBColor[1, 0.5, 0],
2477 FrontFaceColor->RGBColor[1, 0.5, 0],
2478 BackFaceColor->RGBColor[1, 0.5, 0],
2479 GraphicsColor->RGBColor[1, 0.5, 0],
2480 FontWeight->Bold,
2481 FontColor->RGBColor[1, 0.5, 0]]], "Print",
2482 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2483 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2484 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2485 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2486 3.823318371415959*^9},
2487 CellLabel->
2488 "During evaluation of \
2489In[7]:=",ExpressionUUID->"1ee14561-dec5-49b9-b234-a71a75e75b71"],
2490
2491Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2492 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2493 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2494 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2495 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2496 3.823318371417521*^9},
2497 CellLabel->
2498 "During evaluation of \
2499In[7]:=",ExpressionUUID->"1c240cbd-1f6a-4245-bae0-1d4df34ab7d8"],
2500
2501Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
2502 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2503 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2504 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2505 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2506 3.8233183714187*^9},
2507 CellLabel->
2508 "During evaluation of \
2509In[7]:=",ExpressionUUID->"a2bb2c75-0e75-4a76-86a4-6056799cfbd1"],
2510
2511Cell[BoxData[
2512 InterpretationBox[
2513 RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
2514 SequenceForm[0, " vertices obtained."],
2515 Editable->False]], "Print",
2516 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2517 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2518 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2519 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2520 3.823318371419807*^9},
2521 CellLabel->
2522 "During evaluation of \
2523In[7]:=",ExpressionUUID->"f4db4e38-1ae7-4a7c-b70f-d43590e5fbf4"],
2524
2525Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
2526 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2527 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2528 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2529 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2530 3.8233183714207153`*^9},
2531 CellLabel->
2532 "During evaluation of \
2533In[7]:=",ExpressionUUID->"ebe543cf-04e5-4720-9783-423ccff11c04"]
2534}, Open ]],
2535
2536Cell[BoxData[
2537 RowBox[{"{", "}"}]], "Output",
2538 CellChangeTimes->{
2539 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
2540 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
2541 3.780202405050234*^9, 3.780645515932193*^9, 3.780645554707588*^9,
2542 3.780646021907053*^9, 3.780646121004187*^9, 3.782633360340663*^9,
2543 3.8233183714218884`*^9},
2544 CellLabel->"Out[8]=",ExpressionUUID->"98f2ab3f-e450-4b0c-a260-1c9b17046a89"],
2545
2546Cell[CellGroupData[{
2547
2548Cell[BoxData[
2549 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2550 StripOnInput->False,
2551 LineColor->RGBColor[1, 0.5, 0],
2552 FrontFaceColor->RGBColor[1, 0.5, 0],
2553 BackFaceColor->RGBColor[1, 0.5, 0],
2554 GraphicsColor->RGBColor[1, 0.5, 0],
2555 FontWeight->Bold,
2556 FontColor->RGBColor[1, 0.5, 0]]], "Print",
2557 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2558 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2559 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2560 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2561 3.823318371446041*^9},
2562 CellLabel->
2563 "During evaluation of \
2564In[7]:=",ExpressionUUID->"c169dcec-be52-4e29-b52d-671062145d39"],
2565
2566Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2567 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2568 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2569 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2570 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2571 3.82331837144731*^9},
2572 CellLabel->
2573 "During evaluation of \
2574In[7]:=",ExpressionUUID->"eba6af1e-9194-4afb-aa0d-a7a1b0dd3eb7"],
2575
2576Cell[BoxData["\<\"Collecting the different structures that enter the \
2577vertex.\"\>"], "Print",
2578 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2579 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2580 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2581 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2582 3.8233183715182457`*^9},
2583 CellLabel->
2584 "During evaluation of \
2585In[7]:=",ExpressionUUID->"84e71260-d554-4b8b-9c7d-b99619688bce"],
2586
2587Cell[BoxData[
2588 InterpretationBox[
2589 RowBox[{
2590 "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
2591-> starting the computation: \"\>", "\[InvisibleSpace]",
2592 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
2593 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2594 "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
2595 SequenceForm[
2596 3, " possible non-zero vertices have been found -> starting the \
2597computation: ",
2598 Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
2599 Editable->False]], "Print",
2600 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2601 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2602 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2603 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2604 3.823318371519781*^9},
2605 CellLabel->
2606 "During evaluation of \
2607In[7]:=",ExpressionUUID->"b7968fce-dd9e-4ece-92b3-844fcf99d86e"],
2608
2609Cell[BoxData[
2610 InterpretationBox[
2611 RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
2612 SequenceForm[3, " vertices obtained."],
2613 Editable->False]], "Print",
2614 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2615 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2616 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2617 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2618 3.823318371590149*^9},
2619 CellLabel->
2620 "During evaluation of \
2621In[7]:=",ExpressionUUID->"a6170b27-85a6-4cf7-a821-33e9142547cd"]
2622}, Open ]],
2623
2624Cell[BoxData[
2625 RowBox[{"{",
2626 RowBox[{
2627 RowBox[{"{",
2628 RowBox[{
2629 RowBox[{"{",
2630 RowBox[{
2631 RowBox[{"{",
2632 RowBox[{"G", ",", "1"}], "}"}], ",",
2633 RowBox[{"{",
2634 RowBox[{"sig8", ",", "2"}], "}"}], ",",
2635 RowBox[{"{",
2636 RowBox[{"sig8", ",", "3"}], "}"}]}], "}"}], ",",
2637 RowBox[{
2638 RowBox[{
2639 SubscriptBox["g", "s"], " ",
2640 SubscriptBox["f",
2641 RowBox[{
2642 SubscriptBox["\<\"a\"\>", "2"], ",",
2643 SubscriptBox["\<\"a\"\>", "1"], ",",
2644 SubscriptBox["\<\"a\"\>", "3"]}]], " ",
2645 SubsuperscriptBox["\<\"p\"\>", "2",
2646 SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "-",
2647 RowBox[{
2648 SubscriptBox["g", "s"], " ",
2649 SubscriptBox["f",
2650 RowBox[{
2651 SubscriptBox["\<\"a\"\>", "2"], ",",
2652 SubscriptBox["\<\"a\"\>", "1"], ",",
2653 SubscriptBox["\<\"a\"\>", "3"]}]], " ",
2654 SubsuperscriptBox["\<\"p\"\>", "3",
2655 SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]}]}], "}"}], ",",
2656 RowBox[{"{",
2657 RowBox[{
2658 RowBox[{"{",
2659 RowBox[{
2660 RowBox[{"{",
2661 RowBox[{"G", ",", "1"}], "}"}], ",",
2662 RowBox[{"{",
2663 RowBox[{"G", ",", "2"}], "}"}], ",",
2664 RowBox[{"{",
2665 RowBox[{"sig8", ",", "3"}], "}"}], ",",
2666 RowBox[{"{",
2667 RowBox[{"sig8", ",", "4"}], "}"}]}], "}"}], ",",
2668 RowBox[{
2669 RowBox[{"\[ImaginaryI]", " ",
2670 SubsuperscriptBox["g", "s", "2"], " ",
2671 SubscriptBox["f",
2672 RowBox[{
2673 SubscriptBox["\<\"a\"\>", "1"], ",",
2674 SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$1"}]], " ",
2675 SubscriptBox["f",
2676 RowBox[{
2677 SubscriptBox["\<\"a\"\>", "2"], ",",
2678 SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$1"}]], " ",
2679 SubscriptBox["\[Eta]",
2680 RowBox[{
2681 SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2682 SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "+",
2683 RowBox[{"\[ImaginaryI]", " ",
2684 SubsuperscriptBox["g", "s", "2"], " ",
2685 SubscriptBox["f",
2686 RowBox[{
2687 SubscriptBox["\<\"a\"\>", "1"], ",",
2688 SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$1"}]], " ",
2689 SubscriptBox["f",
2690 RowBox[{
2691 SubscriptBox["\<\"a\"\>", "2"], ",",
2692 SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$1"}]], " ",
2693 SubscriptBox["\[Eta]",
2694 RowBox[{
2695 SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2696 SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}]}]}], "}"}], ",",
2697 RowBox[{"{",
2698 RowBox[{
2699 RowBox[{"{",
2700 RowBox[{
2701 RowBox[{"{",
2702 RowBox[{
2703 OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
2704 RowBox[{"{",
2705 RowBox[{"t", ",", "2"}], "}"}], ",",
2706 RowBox[{"{",
2707 RowBox[{"sig8", ",", "3"}], "}"}]}], "}"}], ",",
2708 RowBox[{"2", " ", "\[ImaginaryI]", " ",
2709 RowBox[{"Subsuperscript", "[",
2710 RowBox[{"y", ",", "\<\"8S\"\>"}], "]"}], " ",
2711 SubscriptBox["\[Delta]",
2712 RowBox[{
2713 SubscriptBox["\<\"s\"\>", "1"], ",",
2714 SubscriptBox["\<\"s\"\>", "2"]}]], " ",
2715 SubsuperscriptBox["T",
2716 RowBox[{
2717 SubscriptBox["\<\"m\"\>", "1"], ",",
2718 SubscriptBox["\<\"m\"\>", "2"]}],
2719 SubscriptBox["\<\"a\"\>", "3"]]}]}], "}"}]}], "}"}]], "Output",
2720 CellChangeTimes->{
2721 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
2722 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
2723 3.780202405050234*^9, 3.780645515932193*^9, 3.780645554707588*^9,
2724 3.780646021907053*^9, 3.780646121004187*^9, 3.782633360340663*^9,
2725 3.823318371592461*^9},
2726 CellLabel->"Out[9]=",ExpressionUUID->"6e6c1a4e-c279-4277-a9d1-91c7157d0e2e"],
2727
2728Cell[CellGroupData[{
2729
2730Cell[BoxData[
2731 InterpretationBox[
2732 RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
2733 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
2734 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2735 "\[InvisibleSpace]", "3"}],
2736 SequenceForm["Flavor expansion of the vertices: ",
2737 Dynamic[FeynRules`FR$Count1], " / ", 3],
2738 Editable->False]], "Print",
2739 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2740 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2741 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2742 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2743 3.823318371647751*^9},
2744 CellLabel->
2745 "During evaluation of \
2746In[7]:=",ExpressionUUID->"986c162f-5402-48de-afa0-1e6377ed236c"],
2747
2748Cell[BoxData[
2749 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
2750decays: \"\>",
2751 StripOnInput->False,
2752 LineColor->RGBColor[1, 0.5, 0],
2753 FrontFaceColor->RGBColor[1, 0.5, 0],
2754 BackFaceColor->RGBColor[1, 0.5, 0],
2755 GraphicsColor->RGBColor[1, 0.5, 0],
2756 FontWeight->Bold,
2757 FontColor->RGBColor[1, 0.5, 0]]], "Print",
2758 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2759 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2760 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2761 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2762 3.823318371677973*^9},
2763 CellLabel->
2764 "During evaluation of \
2765In[7]:=",ExpressionUUID->"1d472b15-ef67-4c32-8dae-f52e4f6670ad"],
2766
2767Cell[BoxData[
2768 InterpretationBox[
2769 RowBox[{
2770 DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
2771 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2772 "\[InvisibleSpace]", "1"}],
2773 SequenceForm[
2774 Dynamic[FeynRules`FR$DecayCounter], " / ", 1],
2775 Editable->False]], "Print",
2776 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2777 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2778 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2779 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2780 3.823318371680867*^9},
2781 CellLabel->
2782 "During evaluation of \
2783In[7]:=",ExpressionUUID->"3e303b0f-2f80-4317-84a5-c4bbd71d160b"],
2784
2785Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
2786"Print",
2787 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2788 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2789 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2790 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2791 3.823318373421262*^9},
2792 CellLabel->
2793 "During evaluation of \
2794In[7]:=",ExpressionUUID->"8d0beeec-2b91-4d4e-84d3-b4b09c9c8ca2"],
2795
2796Cell[BoxData[
2797 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2798 StripOnInput->False,
2799 LineColor->RGBColor[1, 0.5, 0],
2800 FrontFaceColor->RGBColor[1, 0.5, 0],
2801 BackFaceColor->RGBColor[1, 0.5, 0],
2802 GraphicsColor->RGBColor[1, 0.5, 0],
2803 FontWeight->Bold,
2804 FontColor->RGBColor[1, 0.5, 0]]], "Print",
2805 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2806 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2807 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2808 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2809 3.8233183738360662`*^9},
2810 CellLabel->
2811 "During evaluation of \
2812In[7]:=",ExpressionUUID->"f92b69e5-ab87-4349-bf99-8fea2fdae10f"],
2813
2814Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2815 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2816 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2817 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2818 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2819 3.823318373837555*^9},
2820 CellLabel->
2821 "During evaluation of \
2822In[7]:=",ExpressionUUID->"ece745cb-a380-431f-90db-96a589b22a06"],
2823
2824Cell[BoxData[
2825 InterpretationBox[
2826 RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
2827 "\[InvisibleSpace]", "\<\" cores\"\>"}],
2828 SequenceForm["Expanding the indices over ", 2, " cores"],
2829 Editable->False]], "Print",
2830 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2831 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2832 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2833 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2834 3.82331837383864*^9},
2835 CellLabel->
2836 "During evaluation of \
2837In[7]:=",ExpressionUUID->"51d7e541-75f4-4591-9cb9-71d229b9c350"],
2838
2839Cell[BoxData["\<\"Collecting the different structures that enter the \
2840vertex.\"\>"], "Print",
2841 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2842 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2843 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2844 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2845 3.823318381174364*^9},
2846 CellLabel->
2847 "During evaluation of \
2848In[7]:=",ExpressionUUID->"3f480a38-b754-4f5e-8d05-b24223753f8e"],
2849
2850Cell[BoxData[
2851 InterpretationBox[
2852 RowBox[{
2853 "101", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
2854found -> starting the computation: \"\>", "\[InvisibleSpace]",
2855 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
2856 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2857 "\[InvisibleSpace]", "101", "\[InvisibleSpace]", "\<\".\"\>"}],
2858 SequenceForm[
2859 101, " possible non-zero vertices have been found -> starting the \
2860computation: ",
2861 Dynamic[FeynRules`FR$FeynmanRules], " / ", 101, "."],
2862 Editable->False]], "Print",
2863 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2864 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2865 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2866 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2867 3.823318381215991*^9},
2868 CellLabel->
2869 "During evaluation of \
2870In[7]:=",ExpressionUUID->"d8bd1a9d-e4b2-4f54-8fbc-d1337745b88b"],
2871
2872Cell[BoxData[
2873 InterpretationBox[
2874 RowBox[{"96", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
2875 SequenceForm[96, " vertices obtained."],
2876 Editable->False]], "Print",
2877 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2878 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2879 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2880 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2881 3.8233183849135447`*^9},
2882 CellLabel->
2883 "During evaluation of \
2884In[7]:=",ExpressionUUID->"2937c92b-8610-4fca-b31e-d595a69097a9"],
2885
2886Cell[BoxData[
2887 InterpretationBox[
2888 RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
2889 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
2890 "\[InvisibleSpace]",
2891 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
2892 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2893 "\[InvisibleSpace]", "96"}],
2894 SequenceForm[
2895 "Flavor expansion of the vertices distributed over ", 2, " cores: ",
2896 Dynamic[FeynRules`FR$Count1], " / ", 96],
2897 Editable->False]], "Print",
2898 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2899 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2900 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2901 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2902 3.823318387226913*^9},
2903 CellLabel->
2904 "During evaluation of \
2905In[7]:=",ExpressionUUID->"76eb7127-e5c7-497c-8647-e2cb501bb1e3"],
2906
2907Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
2908 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2909 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2910 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2911 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2912 3.8233183943823233`*^9},
2913 CellLabel->
2914 "During evaluation of \
2915In[7]:=",ExpressionUUID->"244fe208-f5ff-46d3-b3d8-4da7573b3464"],
2916
2917Cell[BoxData[
2918 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
2919decays: \"\>",
2920 StripOnInput->False,
2921 LineColor->RGBColor[1, 0.5, 0],
2922 FrontFaceColor->RGBColor[1, 0.5, 0],
2923 BackFaceColor->RGBColor[1, 0.5, 0],
2924 GraphicsColor->RGBColor[1, 0.5, 0],
2925 FontWeight->Bold,
2926 FontColor->RGBColor[1, 0.5, 0]]], "Print",
2927 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2928 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2929 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2930 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2931 3.823318394402299*^9},
2932 CellLabel->
2933 "During evaluation of \
2934In[7]:=",ExpressionUUID->"502dda80-32a3-49ef-8567-0b6b85741db6"],
2935
2936Cell[BoxData[
2937 InterpretationBox[
2938 RowBox[{
2939 DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2940 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2941 "\[InvisibleSpace]", "41"}],
2942 SequenceForm[
2943 Dynamic[PRIVATE`mycounter], " / ", 41],
2944 Editable->False]], "Print",
2945 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2946 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2947 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2948 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2949 3.823318394446835*^9},
2950 CellLabel->
2951 "During evaluation of \
2952In[7]:=",ExpressionUUID->"c4876ec1-ec96-48b8-a927-4be1b34adc3f"],
2953
2954Cell[BoxData[
2955 InterpretationBox[
2956 RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
2957 "1.623353`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
2958 SequenceForm["Squared matrix elent compute in ", 1.623353, " seconds."],
2959 Editable->False]], "Print",
2960 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2961 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2962 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2963 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2964 3.823318401599962*^9},
2965 CellLabel->
2966 "During evaluation of \
2967In[7]:=",ExpressionUUID->"ef452471-3a09-41fa-8d27-e9e2f6643cda"]
2968}, Open ]],
2969
2970Cell[BoxData[
2971 TemplateBox[{
2972 "Decay", "Overwrite", "\"Warning: Previous results will be overwritten.\"",
2973 2, 11, 3, 32130033628568373647, "Local", "FeynRules`Decay"},
2974 "MessageTemplate2"]], "Message", "MSG",
2975 ShowCellLabel->True,
2976 CellChangeTimes->{3.759472574381403*^9, 3.759473066224372*^9,
2977 3.759473329756282*^9, 3.7594734356524353`*^9, 3.780202427044709*^9,
2978 3.780645516104279*^9, 3.780645572802278*^9, 3.7806460222695017`*^9,
2979 3.780646140058599*^9, 3.782633379694639*^9, 3.8233184016256733`*^9},
2980 CellLabel->
2981 "During evaluation of \
2982In[7]:=",ExpressionUUID->"64778cc8-b14c-4c61-8f80-6804cbce89fe"],
2983
2984Cell[CellGroupData[{
2985
2986Cell[BoxData[
2987 InterpretationBox[
2988 RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
2989 "0.013905`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
2990 SequenceForm["Decay widths computed in ", 0.013905, " seconds."],
2991 Editable->False]], "Print",
2992 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
2993 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
2994 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
2995 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
2996 3.823318401632618*^9},
2997 CellLabel->
2998 "During evaluation of \
2999In[7]:=",ExpressionUUID->"39f5c45f-6b82-4c34-a94d-97211a4bda10"],
3000
3001Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
3002 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3003 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3004 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3005 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3006 3.8233184016341047`*^9},
3007 CellLabel->
3008 "During evaluation of \
3009In[7]:=",ExpressionUUID->"0f5efd8d-249d-41bb-8f51-880fab31fb5c"],
3010
3011Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
3012"Print",
3013 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3014 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3015 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3016 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3017 3.823318401709453*^9},
3018 CellLabel->
3019 "During evaluation of \
3020In[7]:=",ExpressionUUID->"2e7fdd31-e342-412c-bf21-a83474bab44e"],
3021
3022Cell[BoxData[
3023 InterpretationBox[
3024 RowBox[{"\<\"Splitting of vertices distributed over \"\>",
3025 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
3026 SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
3027 Editable->False]], "Print",
3028 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3029 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3030 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3031 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3032 3.823318401732637*^9},
3033 CellLabel->
3034 "During evaluation of \
3035In[7]:=",ExpressionUUID->"3473018e-241a-4d6c-907c-c156387d3207"],
3036
3037Cell[BoxData["\<\"before\"\>"], "Print",
3038 ShowCellLabel->True,
3039 CellChangeTimes->{3.823318403468834*^9},
3040 CellLabel->
3041 "(kernel 2)",ExpressionUUID->"ff5dddcd-7396-4679-834b-1b26d6111967"],
3042
3043Cell[BoxData["\<\"before\"\>"], "Print",
3044 ShowCellLabel->True,
3045 CellChangeTimes->{3.823318403491379*^9},
3046 CellLabel->
3047 "(kernel 1)",ExpressionUUID->"44ce3ca8-fcef-48ab-89ee-8462b96d39f7"],
3048
3049Cell[BoxData["\<\"true\"\>"], "Print",
3050 ShowCellLabel->True,
3051 CellChangeTimes->{3.823318403526663*^9},
3052 CellLabel->
3053 "(kernel 2)",ExpressionUUID->"65cf8d85-2a68-4a78-b1eb-3ccedb0aacf8"],
3054
3055Cell[BoxData["\<\"true\"\>"], "Print",
3056 ShowCellLabel->True,
3057 CellChangeTimes->{3.823318403543511*^9},
3058 CellLabel->
3059 "(kernel 1)",ExpressionUUID->"ec919153-4ce9-41a5-aa26-c60f9ba963fc"],
3060
3061Cell[BoxData[
3062 InterpretationBox[
3063 RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
3064 DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
3065 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
3066 "\[InvisibleSpace]", "122", "\[InvisibleSpace]", "\<\" .\"\>"}],
3067 SequenceForm[" - Optimizing: ",
3068 Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 122, " ."],
3069 Editable->False]], "Print",
3070 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3071 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3072 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3073 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3074 3.823318403680352*^9},
3075 CellLabel->
3076 "During evaluation of \
3077In[7]:=",ExpressionUUID->"05c0166b-487d-4d94-a079-f1e3fc64d8d3"],
3078
3079Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
3080 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3081 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3082 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3083 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3084 3.823318403781838*^9},
3085 CellLabel->
3086 "During evaluation of \
3087In[7]:=",ExpressionUUID->"6d2e18aa-5efa-447c-a152-969504353aa6"],
3088
3089Cell[BoxData["\<\"Done!\"\>"], "Print",
3090 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3091 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3092 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3093 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3094 3.823318403915468*^9},
3095 CellLabel->
3096 "During evaluation of \
3097In[7]:=",ExpressionUUID->"bd9a66bb-dc32-42ac-b42d-cd4fbb6774f1"]
3098}, Open ]]
3099}, Open ]]
3100}, Closed]],
3101
3102Cell[CellGroupData[{
3103
3104Cell["Pseudo-Scalar Octet", "Section",
3105 CellChangeTimes->{{3.759472462715425*^9, 3.7594724703715563`*^9}, {
3106 3.821442509885233*^9,
3107 3.8214425107885437`*^9}},ExpressionUUID->"e31bbc3c-8fc8-463e-b845-\
310829a34070e85b"],
3109
3110Cell[CellGroupData[{
3111
3112Cell[BoxData[
3113 RowBox[{"\[IndentingNewLine]",
3114 RowBox[{
3115 RowBox[{
3116 RowBox[{"SetDirectory", "[", "here", "]"}], ";"}], "\[IndentingNewLine]",
3117
3118 RowBox[{
3119 RowBox[{"LoadModel", "[", " ",
3120 RowBox[{
3121 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
3122 "\"\<PseudoScalarOctet.fr\>\""}], "]"}], ";"}], "\[IndentingNewLine]",
3123 RowBox[{
3124 RowBox[{"LoadRestriction", "[",
3125 RowBox[{"\"\<DiagonalNP.rst\>\"", ",",
3126 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/DiagonalCKM.rst\>\""}],
3127 ",",
3128 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/Massless.rst\>\""}],
3129 ",", "\"\<NozRzL.rst\>\""}], "]"}], ";"}]}]}]], "Input",
3130 CellChangeTimes->{{3.759473357442108*^9, 3.759473357661347*^9}, {
3131 3.780202301155065*^9, 3.780202301592578*^9}, {3.7802023540818653`*^9,
3132 3.780202359097866*^9}, {3.821442525397709*^9, 3.82144252612459*^9}},
3133 CellLabel->"In[4]:=",ExpressionUUID->"26825268-e6e9-43f4-9716-9772fb26478f"],
3134
3135Cell[CellGroupData[{
3136
3137Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
3138 CellChangeTimes->{
3139 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3140 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3141 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3142 3.8214425273837843`*^9, 3.823318440115117*^9, 3.82332075509305*^9},
3143 CellLabel->
3144 "During evaluation of \
3145In[4]:=",ExpressionUUID->"781b7e65-4692-4606-b59d-d85a9f591da3"],
3146
3147Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
3148 CellChangeTimes->{
3149 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3150 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3151 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3152 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320755100151*^9},
3153 CellLabel->
3154 "During evaluation of \
3155In[4]:=",ExpressionUUID->"ae29c7f8-b072-414d-8e02-752d3b6e8a4f"],
3156
3157Cell[BoxData["\<\"Luc Darme\"\>"], "Print",
3158 CellChangeTimes->{
3159 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3160 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3161 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3162 3.8214425273837843`*^9, 3.823318440115117*^9, 3.8233207551024942`*^9},
3163 CellLabel->
3164 "During evaluation of \
3165In[4]:=",ExpressionUUID->"f927c658-8ee9-40fa-94c0-ddbbecb6ce08"],
3166
3167Cell[BoxData["\<\"Benjamin Fuks\"\>"], "Print",
3168 CellChangeTimes->{
3169 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3170 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3171 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3172 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320755103936*^9},
3173 CellLabel->
3174 "During evaluation of \
3175In[4]:=",ExpressionUUID->"57d46524-e823-4b81-9dd9-970accc12130"],
3176
3177Cell[BoxData[
3178 InterpretationBox[
3179 RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1\"\>"}],
3180 SequenceForm["Model Version: ", "1"],
3181 Editable->False]], "Print",
3182 CellChangeTimes->{
3183 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3184 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3185 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3186 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320755105549*^9},
3187 CellLabel->
3188 "During evaluation of \
3189In[4]:=",ExpressionUUID->"87adc8b3-d4ec-4de4-b5a0-a0bb3e113201"],
3190
3191Cell[BoxData["\<\"Please cite\"\>"], "Print",
3192 CellChangeTimes->{
3193 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3194 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3195 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3196 3.8214425273837843`*^9, 3.823318440115117*^9, 3.8233207551068974`*^9},
3197 CellLabel->
3198 "During evaluation of \
3199In[4]:=",ExpressionUUID->"28e6ce1f-ecb3-4840-8246-688479933b63"],
3200
3201Cell[BoxData["\<\"xxx\"\>"], "Print",
3202 CellChangeTimes->{
3203 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3204 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3205 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3206 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320755108189*^9},
3207 CellLabel->
3208 "During evaluation of \
3209In[4]:=",ExpressionUUID->"9a247eb1-487d-4b9a-8919-15d16b78e103"],
3210
3211Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
3212"Print",
3213 CellChangeTimes->{
3214 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3215 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3216 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3217 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320755109398*^9},
3218 CellLabel->
3219 "During evaluation of \
3220In[4]:=",ExpressionUUID->"cc8ef3bd-9ade-40a9-9653-aba820294ac8"],
3221
3222Cell[BoxData["\<\"\"\>"], "Print",
3223 CellChangeTimes->{
3224 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3225 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3226 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3227 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320755110619*^9},
3228 CellLabel->
3229 "During evaluation of \
3230In[4]:=",ExpressionUUID->"6e8aac98-da2a-4c99-a8f3-4755d513d62a"],
3231
3232Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
3233 CellChangeTimes->{
3234 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3235 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3236 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3237 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320755111784*^9},
3238 CellLabel->
3239 "During evaluation of \
3240In[4]:=",ExpressionUUID->"e7601e88-fb01-492d-bdb6-15cf96e70b48"],
3241
3242Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
3243 CellChangeTimes->{
3244 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3245 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3246 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3247 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320755203116*^9},
3248 CellLabel->
3249 "During evaluation of \
3250In[4]:=",ExpressionUUID->"729c9581-a31e-4ebc-923e-a3fe97c60343"],
3251
3252Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
3253 CellChangeTimes->{
3254 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3255 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3256 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3257 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320755207385*^9},
3258 CellLabel->
3259 "During evaluation of \
3260In[4]:=",ExpressionUUID->"7f40bb84-b6d2-4c6d-8e01-ad413b54670c"],
3261
3262Cell[BoxData[
3263 InterpretationBox[
3264 RowBox[{"\<\"\\nModel \"\>",
3265 "\[InvisibleSpace]", "\<\"ColoredScalarsAndPScalars\"\>",
3266 "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
3267 SequenceForm["\nModel ", "ColoredScalarsAndPScalars", " loaded."],
3268 Editable->False]], "Print",
3269 CellChangeTimes->{
3270 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3271 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3272 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3273 3.8214425273837843`*^9, 3.823318440115117*^9, 3.82332075526468*^9},
3274 CellLabel->
3275 "During evaluation of \
3276In[4]:=",ExpressionUUID->"2dfb2810-a498-4677-9335-d267ca382006"]
3277}, Open ]],
3278
3279Cell[BoxData[
3280 TemplateBox[{
3281 "Get", "noopen",
3282 "\"Cannot open \
3283\\!\\(\\*RowBox[{\\\"\\\\\\\"DiagonalNP.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 1,
3284 32130049324730186892, "Local"},
3285 "MessageTemplate"]], "Message", "MSG",
3286 CellChangeTimes->{3.8233184403065023`*^9, 3.8233207552920227`*^9},
3287 CellLabel->
3288 "During evaluation of \
3289In[4]:=",ExpressionUUID->"33738be6-83a4-4172-b4f6-85005cc90a39"],
3290
3291Cell[CellGroupData[{
3292
3293Cell[BoxData[
3294 InterpretationBox[
3295 RowBox[{"\<\"Loading restrictions from \"\>",
3296 "\[InvisibleSpace]", "\<\"DiagonalNP.rst\"\>",
3297 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
3298 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
3299 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3300 "\[InvisibleSpace]", "0"}],
3301 SequenceForm["Loading restrictions from ", "DiagonalNP.rst", " : ",
3302 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 0],
3303 Editable->False]], "Print",
3304 CellChangeTimes->{
3305 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3306 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3307 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3308 3.8214425273837843`*^9, 3.823318440115117*^9, 3.8233207560423813`*^9},
3309 CellLabel->
3310 "During evaluation of \
3311In[4]:=",ExpressionUUID->"a133ed18-0b7c-48af-8cde-030514a7b786"],
3312
3313Cell[BoxData[
3314 InterpretationBox[
3315 RowBox[{"\<\"Loading restrictions from \"\>",
3316 "\[InvisibleSpace]", \
3317"\<\"/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst\"\>",
3318 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
3319 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
3320 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3321 "\[InvisibleSpace]", "3"}],
3322 SequenceForm[
3323 "Loading restrictions from ",
3324 "/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst", " : ",
3325
3326 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
3327 Editable->False]], "Print",
3328 CellChangeTimes->{
3329 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3330 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3331 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3332 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320756258607*^9},
3333 CellLabel->
3334 "During evaluation of \
3335In[4]:=",ExpressionUUID->"dd287bfb-626e-4e87-8d47-c7352d2efda3"],
3336
3337Cell[BoxData[
3338 InterpretationBox[
3339 RowBox[{"\<\"Loading restrictions from \"\>",
3340 "\[InvisibleSpace]", \
3341"\<\"/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst\"\>",
3342 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
3343 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
3344 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3345 "\[InvisibleSpace]", "18"}],
3346 SequenceForm[
3347 "Loading restrictions from ",
3348 "/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst", " : ",
3349 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
3350 Editable->False]], "Print",
3351 CellChangeTimes->{
3352 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3353 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3354 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3355 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320756482634*^9},
3356 CellLabel->
3357 "During evaluation of \
3358In[4]:=",ExpressionUUID->"da353c1f-8b99-4c18-bbfc-044bc3546eeb"]
3359}, Open ]],
3360
3361Cell[BoxData[
3362 TemplateBox[{
3363 "Get", "noopen",
3364 "\"Cannot open \
3365\\!\\(\\*RowBox[{\\\"\\\\\\\"NozRzL.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 2,
3366 32130049324730186892, "Local"},
3367 "MessageTemplate"]], "Message", "MSG",
3368 CellChangeTimes->{3.8233184403065023`*^9, 3.823320756626422*^9},
3369 CellLabel->
3370 "During evaluation of \
3371In[4]:=",ExpressionUUID->"9a0caf35-1bb3-4279-8ad1-967e5cc138cf"],
3372
3373Cell[CellGroupData[{
3374
3375Cell[BoxData[
3376 InterpretationBox[
3377 RowBox[{"\<\"Loading restrictions from \"\>",
3378 "\[InvisibleSpace]", "\<\"NozRzL.rst\"\>",
3379 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
3380 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
3381 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3382 "\[InvisibleSpace]", "18"}],
3383 SequenceForm["Loading restrictions from ", "NozRzL.rst", " : ",
3384 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
3385 Editable->False]], "Print",
3386 CellChangeTimes->{
3387 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3388 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3389 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3390 3.8214425273837843`*^9, 3.823318440115117*^9, 3.8233207567378197`*^9},
3391 CellLabel->
3392 "During evaluation of \
3393In[4]:=",ExpressionUUID->"2d6897a1-2ce9-469d-9055-6990a632073a"],
3394
3395Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
3396 CellChangeTimes->{
3397 3.759473267058181*^9, 3.780202297656021*^9, {3.780202369364346*^9,
3398 3.780202392020115*^9}, 3.7806455104595423`*^9, 3.780645550860627*^9,
3399 3.780645962071322*^9, 3.780646103530203*^9, 3.78263335665174*^9,
3400 3.8214425273837843`*^9, 3.823318440115117*^9, 3.823320756873501*^9},
3401 CellLabel->
3402 "During evaluation of \
3403In[4]:=",ExpressionUUID->"a2421e22-ae06-4cc7-9360-00734641cc95"]
3404}, Open ]]
3405}, Open ]],
3406
3407Cell[CellGroupData[{
3408
3409Cell[BoxData[
3410 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]",
3411 RowBox[{"(*",
3412 RowBox[{
3413 "Checking", " ", "the", " ", "hermiticity", " ", "of", " ", "the", " ",
3414 "model"}], "*)"}], "\[IndentingNewLine]",
3415 RowBox[{
3416 RowBox[{"CheckMassSpectrum", "[", "LagNP", "]"}], "\[IndentingNewLine]",
3417 RowBox[{"CheckHermiticity", "[", "LagNP", "]"}], "\[IndentingNewLine]",
3418 RowBox[{"(*",
3419 RowBox[{"Feynman", " ", "rules"}], "*)"}], "\[IndentingNewLine]",
3420 RowBox[{"vertices", "=",
3421 RowBox[{"FeynmanRules", "[", "LagNP", "]"}]}], "\[IndentingNewLine]",
3422 RowBox[{"(*",
3423 RowBox[{"Getting", " ", "decays"}], "*)"}], "\[IndentingNewLine]",
3424 RowBox[{
3425 RowBox[{"decays", "=",
3426 RowBox[{"ComputeWidths", "[", "vertices", "]"}]}], ";"}],
3427 "\[IndentingNewLine]",
3428 RowBox[{"(*",
3429 RowBox[{"Getting", " ", "UFO"}], "*)"}], "\[IndentingNewLine]",
3430 RowBox[{"WriteUFO", "[",
3431 RowBox[{
3432 RowBox[{"LSM", "+", "LagNP"}], ",",
3433 RowBox[{"Output", "\[Rule]", "\"\<PseudoScalarOctet_UFO\>\""}]}],
3434 "]"}]}]}]], "Input",
3435 CellChangeTimes->{{3.7594723247858057`*^9, 3.7594724349408712`*^9},
3436 3.759472503253831*^9, {3.75947256827782*^9, 3.759472569743855*^9}, {
3437 3.759472916998436*^9, 3.7594729172534723`*^9}, {3.7594732513207397`*^9,
3438 3.759473276459257*^9}, {3.759473397881085*^9, 3.759473420215959*^9}, {
3439 3.75947351737363*^9, 3.759473518066074*^9}, 3.780202401768827*^9, {
3440 3.780646020664256*^9, 3.780646020908284*^9}, {3.821442530364954*^9,
3441 3.821442531044374*^9}},
3442 CellLabel->"In[7]:=",ExpressionUUID->"7e0dd744-d8cc-4c5d-9e79-7a3c170f227e"],
3443
3444Cell[CellGroupData[{
3445
3446Cell[BoxData[
3447 InterpretationBox[
3448 RowBox[{"\<\"Neglecting all terms with more than \"\>",
3449 "\[InvisibleSpace]", "\<\"2\"\>",
3450 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
3451 SequenceForm["Neglecting all terms with more than ", "2", " particles."],
3452 Editable->False]], "Print",
3453 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3454 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3455 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3456 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3457 3.821442533390011*^9, 3.82331844290725*^9, 3.8233207586138678`*^9},
3458 CellLabel->
3459 "During evaluation of \
3460In[7]:=",ExpressionUUID->"cee3a073-baa3-4f1e-8ab7-2bc180d6b6fc"],
3461
3462Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
3463 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3464 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3465 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3466 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3467 3.821442533390011*^9, 3.82331844290725*^9, 3.823320758616325*^9},
3468 CellLabel->
3469 "During evaluation of \
3470In[7]:=",ExpressionUUID->"9aa76ae7-fec0-41c3-adc1-3b0c510e5d48"],
3471
3472Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
3473 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3474 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3475 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3476 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3477 3.821442533390011*^9, 3.82331844290725*^9, 3.823320758707266*^9},
3478 CellLabel->
3479 "During evaluation of \
3480In[7]:=",ExpressionUUID->"1642a574-b840-4fb8-a6e4-49360feb28d9"],
3481
3482Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
3483values.\"\>"], "Print",
3484 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3485 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3486 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3487 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3488 3.821442533390011*^9, 3.82331844290725*^9, 3.823320758709297*^9},
3489 CellLabel->
3490 "During evaluation of \
3491In[7]:=",ExpressionUUID->"625f8528-2315-4396-8fac-79dcd903f0aa"]
3492}, Open ]],
3493
3494Cell[BoxData[
3495 TagBox[GridBox[{
3496 {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
3497"\<\"Model-file value\"\>"},
3498 {"sig8",
3499 SqrtBox[
3500 SuperscriptBox["m8", "2"]], "400.`", "400.`"}
3501 },
3502 GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
3503 GridBoxSpacings->{"Columns" -> {
3504 Offset[0.27999999999999997`], {
3505 Offset[2.0999999999999996`]},
3506 Offset[0.27999999999999997`]}, "Rows" -> {
3507 Offset[0.2], {
3508 Offset[0.4]},
3509 Offset[0.2]}}],
3510 Function[BoxForm`e$,
3511 TableForm[BoxForm`e$]]]], "Output",
3512 CellChangeTimes->{
3513 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
3514 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
3515 3.780202405050234*^9, 3.780645515932193*^9, 3.780645554707588*^9,
3516 3.780646021907053*^9, 3.780646121004187*^9, 3.782633360340663*^9,
3517 3.821442533480537*^9, 3.823318443005598*^9, 3.8233207587109537`*^9},
3518 CellLabel->
3519 "Out[7]//TableForm=",ExpressionUUID->"e11c1c6f-5465-4dbf-8c75-afe91c9b272f"],
3520
3521Cell[CellGroupData[{
3522
3523Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
3524contained in L-HC[L].\"\>"], "Print",
3525 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3526 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3527 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3528 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3529 3.821442533390011*^9, 3.82331844290725*^9, 3.8233207587837*^9},
3530 CellLabel->
3531 "During evaluation of \
3532In[7]:=",ExpressionUUID->"d9ebd4bb-ceec-4ea8-a49d-8e2dc84a32c3"],
3533
3534Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
3535should be zero.\"\>"], "Print",
3536 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3537 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3538 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3539 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3540 3.821442533390011*^9, 3.82331844290725*^9, 3.823320758785337*^9},
3541 CellLabel->
3542 "During evaluation of \
3543In[7]:=",ExpressionUUID->"2f106143-f545-48fe-a875-1768a1908753"],
3544
3545Cell[BoxData[
3546 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
3547 StripOnInput->False,
3548 LineColor->RGBColor[1, 0.5, 0],
3549 FrontFaceColor->RGBColor[1, 0.5, 0],
3550 BackFaceColor->RGBColor[1, 0.5, 0],
3551 GraphicsColor->RGBColor[1, 0.5, 0],
3552 FontWeight->Bold,
3553 FontColor->RGBColor[1, 0.5, 0]]], "Print",
3554 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3555 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3556 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3557 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3558 3.821442533390011*^9, 3.82331844290725*^9, 3.82332075902805*^9},
3559 CellLabel->
3560 "During evaluation of \
3561In[7]:=",ExpressionUUID->"7b502949-46b9-418e-b341-584f1435324a"],
3562
3563Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
3564 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3565 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3566 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3567 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3568 3.821442533390011*^9, 3.82331844290725*^9, 3.823320759029521*^9},
3569 CellLabel->
3570 "During evaluation of \
3571In[7]:=",ExpressionUUID->"fd7b139f-5eda-4a7c-ae7e-9e0ba1831a73"],
3572
3573Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
3574 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3575 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3576 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3577 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3578 3.821442533390011*^9, 3.82331844290725*^9, 3.8233207590307093`*^9},
3579 CellLabel->
3580 "During evaluation of \
3581In[7]:=",ExpressionUUID->"65aae85c-c356-47e4-8b7a-6393c7a35258"],
3582
3583Cell[BoxData[
3584 InterpretationBox[
3585 RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3586 SequenceForm[0, " vertices obtained."],
3587 Editable->False]], "Print",
3588 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3589 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3590 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3591 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3592 3.821442533390011*^9, 3.82331844290725*^9, 3.823320759031864*^9},
3593 CellLabel->
3594 "During evaluation of \
3595In[7]:=",ExpressionUUID->"cede2168-7f48-4317-b50c-57ed58238004"],
3596
3597Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
3598 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3599 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3600 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3601 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3602 3.821442533390011*^9, 3.82331844290725*^9, 3.823320759032956*^9},
3603 CellLabel->
3604 "During evaluation of \
3605In[7]:=",ExpressionUUID->"1dc4dd1f-dd86-4802-95af-1227b83c9a30"]
3606}, Open ]],
3607
3608Cell[BoxData[
3609 RowBox[{"{", "}"}]], "Output",
3610 CellChangeTimes->{
3611 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
3612 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
3613 3.780202405050234*^9, 3.780645515932193*^9, 3.780645554707588*^9,
3614 3.780646021907053*^9, 3.780646121004187*^9, 3.782633360340663*^9,
3615 3.821442533480537*^9, 3.823318443005598*^9, 3.8233207590340548`*^9},
3616 CellLabel->"Out[8]=",ExpressionUUID->"b8d82e83-8c9a-4fae-ba3a-88e97421b82d"],
3617
3618Cell[CellGroupData[{
3619
3620Cell[BoxData[
3621 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
3622 StripOnInput->False,
3623 LineColor->RGBColor[1, 0.5, 0],
3624 FrontFaceColor->RGBColor[1, 0.5, 0],
3625 BackFaceColor->RGBColor[1, 0.5, 0],
3626 GraphicsColor->RGBColor[1, 0.5, 0],
3627 FontWeight->Bold,
3628 FontColor->RGBColor[1, 0.5, 0]]], "Print",
3629 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3630 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3631 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3632 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3633 3.821442533390011*^9, 3.82331844290725*^9, 3.823320759098208*^9},
3634 CellLabel->
3635 "During evaluation of \
3636In[7]:=",ExpressionUUID->"4de05185-b15d-4b2c-9034-fec340711174"],
3637
3638Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
3639 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3640 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3641 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3642 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3643 3.821442533390011*^9, 3.82331844290725*^9, 3.823320759099938*^9},
3644 CellLabel->
3645 "During evaluation of \
3646In[7]:=",ExpressionUUID->"9eea7f55-45ae-475e-bd69-6ec43a9c344a"],
3647
3648Cell[BoxData["\<\"Collecting the different structures that enter the \
3649vertex.\"\>"], "Print",
3650 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3651 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3652 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3653 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3654 3.821442533390011*^9, 3.82331844290725*^9, 3.823320759202611*^9},
3655 CellLabel->
3656 "During evaluation of \
3657In[7]:=",ExpressionUUID->"3f8d8f08-b122-4988-9a31-c3526d32f648"],
3658
3659Cell[BoxData[
3660 InterpretationBox[
3661 RowBox[{
3662 "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
3663-> starting the computation: \"\>", "\[InvisibleSpace]",
3664 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
3665 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3666 "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
3667 SequenceForm[
3668 3, " possible non-zero vertices have been found -> starting the \
3669computation: ",
3670 Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
3671 Editable->False]], "Print",
3672 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3673 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3674 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3675 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3676 3.821442533390011*^9, 3.82331844290725*^9, 3.8233207592043543`*^9},
3677 CellLabel->
3678 "During evaluation of \
3679In[7]:=",ExpressionUUID->"fc1e849c-5d7b-4005-a3dd-914039e169c6"],
3680
3681Cell[BoxData[
3682 InterpretationBox[
3683 RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3684 SequenceForm[3, " vertices obtained."],
3685 Editable->False]], "Print",
3686 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3687 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3688 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3689 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3690 3.821442533390011*^9, 3.82331844290725*^9, 3.823320759286618*^9},
3691 CellLabel->
3692 "During evaluation of \
3693In[7]:=",ExpressionUUID->"b0cc2838-b0ed-4006-ab40-cd2daaa2cbc8"]
3694}, Open ]],
3695
3696Cell[BoxData[
3697 RowBox[{"{",
3698 RowBox[{
3699 RowBox[{"{",
3700 RowBox[{
3701 RowBox[{"{",
3702 RowBox[{
3703 RowBox[{"{",
3704 RowBox[{"G", ",", "1"}], "}"}], ",",
3705 RowBox[{"{",
3706 RowBox[{"sig8", ",", "2"}], "}"}], ",",
3707 RowBox[{"{",
3708 RowBox[{"sig8", ",", "3"}], "}"}]}], "}"}], ",",
3709 RowBox[{
3710 RowBox[{
3711 SubscriptBox["g", "s"], " ",
3712 SubscriptBox["f",
3713 RowBox[{
3714 SubscriptBox["\<\"a\"\>", "2"], ",",
3715 SubscriptBox["\<\"a\"\>", "1"], ",",
3716 SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3717 SubsuperscriptBox["\<\"p\"\>", "2",
3718 SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "-",
3719 RowBox[{
3720 SubscriptBox["g", "s"], " ",
3721 SubscriptBox["f",
3722 RowBox[{
3723 SubscriptBox["\<\"a\"\>", "2"], ",",
3724 SubscriptBox["\<\"a\"\>", "1"], ",",
3725 SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3726 SubsuperscriptBox["\<\"p\"\>", "3",
3727 SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]}]}], "}"}], ",",
3728 RowBox[{"{",
3729 RowBox[{
3730 RowBox[{"{",
3731 RowBox[{
3732 RowBox[{"{",
3733 RowBox[{"G", ",", "1"}], "}"}], ",",
3734 RowBox[{"{",
3735 RowBox[{"G", ",", "2"}], "}"}], ",",
3736 RowBox[{"{",
3737 RowBox[{"sig8", ",", "3"}], "}"}], ",",
3738 RowBox[{"{",
3739 RowBox[{"sig8", ",", "4"}], "}"}]}], "}"}], ",",
3740 RowBox[{
3741 RowBox[{"\[ImaginaryI]", " ",
3742 SubsuperscriptBox["g", "s", "2"], " ",
3743 SubscriptBox["f",
3744 RowBox[{
3745 SubscriptBox["\<\"a\"\>", "1"], ",",
3746 SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$1"}]], " ",
3747 SubscriptBox["f",
3748 RowBox[{
3749 SubscriptBox["\<\"a\"\>", "2"], ",",
3750 SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$1"}]], " ",
3751 SubscriptBox["\[Eta]",
3752 RowBox[{
3753 SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3754 SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "+",
3755 RowBox[{"\[ImaginaryI]", " ",
3756 SubsuperscriptBox["g", "s", "2"], " ",
3757 SubscriptBox["f",
3758 RowBox[{
3759 SubscriptBox["\<\"a\"\>", "1"], ",",
3760 SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$1"}]], " ",
3761 SubscriptBox["f",
3762 RowBox[{
3763 SubscriptBox["\<\"a\"\>", "2"], ",",
3764 SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$1"}]], " ",
3765 SubscriptBox["\[Eta]",
3766 RowBox[{
3767 SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3768 SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}]}]}], "}"}], ",",
3769 RowBox[{"{",
3770 RowBox[{
3771 RowBox[{"{",
3772 RowBox[{
3773 RowBox[{"{",
3774 RowBox[{
3775 OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
3776 RowBox[{"{",
3777 RowBox[{"t", ",", "2"}], "}"}], ",",
3778 RowBox[{"{",
3779 RowBox[{"sig8", ",", "3"}], "}"}]}], "}"}], ",",
3780 RowBox[{
3781 RowBox[{"-", "2"}], " ",
3782 RowBox[{"Subsuperscript", "[",
3783 RowBox[{"y", ",", "\<\"8PS\"\>"}], "]"}], " ",
3784 TemplateBox[{
3785 SubscriptBox["\[Gamma]",
3786 RowBox[{
3787 SubscriptBox["\"s\"", "1"], ",",
3788 SubscriptBox["\"s\"", "2"]}]], "5"},
3789 "Superscript"], " ",
3790 SubsuperscriptBox["T",
3791 RowBox[{
3792 SubscriptBox["\<\"m\"\>", "1"], ",",
3793 SubscriptBox["\<\"m\"\>", "2"]}],
3794 SubscriptBox["\<\"a\"\>", "3"]]}]}], "}"}]}], "}"}]], "Output",
3795 CellChangeTimes->{
3796 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
3797 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
3798 3.780202405050234*^9, 3.780645515932193*^9, 3.780645554707588*^9,
3799 3.780646021907053*^9, 3.780646121004187*^9, 3.782633360340663*^9,
3800 3.821442533480537*^9, 3.823318443005598*^9, 3.823320759289268*^9},
3801 CellLabel->"Out[9]=",ExpressionUUID->"a52809ba-4270-4e35-a3cc-5f38fde4af95"],
3802
3803Cell[CellGroupData[{
3804
3805Cell[BoxData[
3806 InterpretationBox[
3807 RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
3808 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
3809 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3810 "\[InvisibleSpace]", "3"}],
3811 SequenceForm["Flavor expansion of the vertices: ",
3812 Dynamic[FeynRules`FR$Count1], " / ", 3],
3813 Editable->False]], "Print",
3814 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3815 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3816 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3817 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3818 3.821442533390011*^9, 3.82331844290725*^9, 3.823320759344524*^9},
3819 CellLabel->
3820 "During evaluation of \
3821In[7]:=",ExpressionUUID->"2fea827d-ddfb-4a0a-85dd-dbe1af9d0a81"],
3822
3823Cell[BoxData[
3824 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
3825decays: \"\>",
3826 StripOnInput->False,
3827 LineColor->RGBColor[1, 0.5, 0],
3828 FrontFaceColor->RGBColor[1, 0.5, 0],
3829 BackFaceColor->RGBColor[1, 0.5, 0],
3830 GraphicsColor->RGBColor[1, 0.5, 0],
3831 FontWeight->Bold,
3832 FontColor->RGBColor[1, 0.5, 0]]], "Print",
3833 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3834 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3835 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3836 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3837 3.821442533390011*^9, 3.82331844290725*^9, 3.823320759373089*^9},
3838 CellLabel->
3839 "During evaluation of \
3840In[7]:=",ExpressionUUID->"6a49dc8b-af55-432d-8c08-b80e8937b93f"],
3841
3842Cell[BoxData[
3843 InterpretationBox[
3844 RowBox[{
3845 DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
3846 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3847 "\[InvisibleSpace]", "1"}],
3848 SequenceForm[
3849 Dynamic[FeynRules`FR$DecayCounter], " / ", 1],
3850 Editable->False]], "Print",
3851 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3852 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3853 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3854 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3855 3.821442533390011*^9, 3.82331844290725*^9, 3.823320759376279*^9},
3856 CellLabel->
3857 "During evaluation of \
3858In[7]:=",ExpressionUUID->"da2fbada-cc27-449b-87bd-9e9a372d9926"],
3859
3860Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
3861"Print",
3862 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3863 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3864 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3865 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3866 3.821442533390011*^9, 3.82331844290725*^9, 3.823320761255028*^9},
3867 CellLabel->
3868 "During evaluation of \
3869In[7]:=",ExpressionUUID->"f283eed3-4b6d-422c-8fc5-ae14efeffc24"],
3870
3871Cell[BoxData[
3872 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
3873 StripOnInput->False,
3874 LineColor->RGBColor[1, 0.5, 0],
3875 FrontFaceColor->RGBColor[1, 0.5, 0],
3876 BackFaceColor->RGBColor[1, 0.5, 0],
3877 GraphicsColor->RGBColor[1, 0.5, 0],
3878 FontWeight->Bold,
3879 FontColor->RGBColor[1, 0.5, 0]]], "Print",
3880 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3881 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3882 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3883 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3884 3.821442533390011*^9, 3.82331844290725*^9, 3.823320761658428*^9},
3885 CellLabel->
3886 "During evaluation of \
3887In[7]:=",ExpressionUUID->"8b25f81b-4b38-4158-8054-07a1beb00cd2"],
3888
3889Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
3890 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3891 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3892 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3893 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3894 3.821442533390011*^9, 3.82331844290725*^9, 3.82332076166003*^9},
3895 CellLabel->
3896 "During evaluation of \
3897In[7]:=",ExpressionUUID->"1620d859-20c3-4e20-bd1d-185357078695"],
3898
3899Cell[BoxData[
3900 InterpretationBox[
3901 RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
3902 "\[InvisibleSpace]", "\<\" cores\"\>"}],
3903 SequenceForm["Expanding the indices over ", 2, " cores"],
3904 Editable->False]], "Print",
3905 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3906 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3907 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3908 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3909 3.821442533390011*^9, 3.82331844290725*^9, 3.823320761661182*^9},
3910 CellLabel->
3911 "During evaluation of \
3912In[7]:=",ExpressionUUID->"4f99bd57-453a-4fff-a4e2-a66f9058d37e"],
3913
3914Cell[BoxData["\<\"Collecting the different structures that enter the \
3915vertex.\"\>"], "Print",
3916 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3917 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3918 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3919 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3920 3.821442533390011*^9, 3.82331844290725*^9, 3.823320768455463*^9},
3921 CellLabel->
3922 "During evaluation of \
3923In[7]:=",ExpressionUUID->"997496c1-a1db-4546-8048-e06fdc7187d6"],
3924
3925Cell[BoxData[
3926 InterpretationBox[
3927 RowBox[{
3928 "101", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
3929found -> starting the computation: \"\>", "\[InvisibleSpace]",
3930 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
3931 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3932 "\[InvisibleSpace]", "101", "\[InvisibleSpace]", "\<\".\"\>"}],
3933 SequenceForm[
3934 101, " possible non-zero vertices have been found -> starting the \
3935computation: ",
3936 Dynamic[FeynRules`FR$FeynmanRules], " / ", 101, "."],
3937 Editable->False]], "Print",
3938 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3939 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3940 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3941 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3942 3.821442533390011*^9, 3.82331844290725*^9, 3.8233207684944983`*^9},
3943 CellLabel->
3944 "During evaluation of \
3945In[7]:=",ExpressionUUID->"2bfabd8e-280e-403a-bfd9-adc8f0717657"],
3946
3947Cell[BoxData[
3948 InterpretationBox[
3949 RowBox[{"96", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3950 SequenceForm[96, " vertices obtained."],
3951 Editable->False]], "Print",
3952 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3953 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3954 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3955 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3956 3.821442533390011*^9, 3.82331844290725*^9, 3.8233207722824297`*^9},
3957 CellLabel->
3958 "During evaluation of \
3959In[7]:=",ExpressionUUID->"ea80373f-3619-4f86-940f-1df639bd703b"],
3960
3961Cell[BoxData[
3962 InterpretationBox[
3963 RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
3964 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
3965 "\[InvisibleSpace]",
3966 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
3967 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3968 "\[InvisibleSpace]", "96"}],
3969 SequenceForm[
3970 "Flavor expansion of the vertices distributed over ", 2, " cores: ",
3971 Dynamic[FeynRules`FR$Count1], " / ", 96],
3972 Editable->False]], "Print",
3973 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3974 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3975 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3976 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3977 3.821442533390011*^9, 3.82331844290725*^9, 3.823320774326942*^9},
3978 CellLabel->
3979 "During evaluation of \
3980In[7]:=",ExpressionUUID->"60e82b16-2758-4065-b257-a2e65e6c20db"],
3981
3982Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
3983 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
3984 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
3985 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
3986 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
3987 3.821442533390011*^9, 3.82331844290725*^9, 3.823320780953712*^9},
3988 CellLabel->
3989 "During evaluation of \
3990In[7]:=",ExpressionUUID->"90aa9899-c5f7-4a21-9d35-0f7a62ab8f63"],
3991
3992Cell[BoxData[
3993 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
3994decays: \"\>",
3995 StripOnInput->False,
3996 LineColor->RGBColor[1, 0.5, 0],
3997 FrontFaceColor->RGBColor[1, 0.5, 0],
3998 BackFaceColor->RGBColor[1, 0.5, 0],
3999 GraphicsColor->RGBColor[1, 0.5, 0],
4000 FontWeight->Bold,
4001 FontColor->RGBColor[1, 0.5, 0]]], "Print",
4002 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4003 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4004 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
4005 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
4006 3.821442533390011*^9, 3.82331844290725*^9, 3.8233207809843807`*^9},
4007 CellLabel->
4008 "During evaluation of \
4009In[7]:=",ExpressionUUID->"698468a1-534f-4b1a-89d4-24ba90ac7713"],
4010
4011Cell[BoxData[
4012 InterpretationBox[
4013 RowBox[{
4014 DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
4015 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4016 "\[InvisibleSpace]", "41"}],
4017 SequenceForm[
4018 Dynamic[PRIVATE`mycounter], " / ", 41],
4019 Editable->False]], "Print",
4020 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4021 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4022 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
4023 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
4024 3.821442533390011*^9, 3.82331844290725*^9, 3.823320781027752*^9},
4025 CellLabel->
4026 "During evaluation of \
4027In[7]:=",ExpressionUUID->"bd4b3c03-3277-4b0b-bd16-8b466f1a0a01"],
4028
4029Cell[BoxData[
4030 InterpretationBox[
4031 RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
4032 "1.676407`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
4033 SequenceForm["Squared matrix elent compute in ", 1.676407, " seconds."],
4034 Editable->False]], "Print",
4035 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4036 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4037 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
4038 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
4039 3.821442533390011*^9, 3.82331844290725*^9, 3.823320788070784*^9},
4040 CellLabel->
4041 "During evaluation of \
4042In[7]:=",ExpressionUUID->"05898876-a6fd-43a7-8b49-0b2dce18366e"]
4043}, Open ]],
4044
4045Cell[BoxData[
4046 TemplateBox[{
4047 "Decay", "Overwrite", "\"Warning: Previous results will be overwritten.\"",
4048 2, 11, 3, 32130049324730186892, "Local", "FeynRules`Decay"},
4049 "MessageTemplate2"]], "Message", "MSG",
4050 ShowCellLabel->True,
4051 CellChangeTimes->{3.759472574381403*^9, 3.759473066224372*^9,
4052 3.759473329756282*^9, 3.7594734356524353`*^9, 3.780202427044709*^9,
4053 3.780645516104279*^9, 3.780645572802278*^9, 3.7806460222695017`*^9,
4054 3.780646140058599*^9, 3.782633379694639*^9, 3.821442552010544*^9,
4055 3.8233184721343193`*^9, 3.823320788107954*^9},
4056 CellLabel->
4057 "During evaluation of \
4058In[7]:=",ExpressionUUID->"21bf7a21-9823-443a-b022-31540b909b28"],
4059
4060Cell[CellGroupData[{
4061
4062Cell[BoxData[
4063 InterpretationBox[
4064 RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
4065 "0.014025`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
4066 SequenceForm["Decay widths computed in ", 0.014025, " seconds."],
4067 Editable->False]], "Print",
4068 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4069 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4070 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
4071 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
4072 3.821442533390011*^9, 3.82331844290725*^9, 3.82332078811574*^9},
4073 CellLabel->
4074 "During evaluation of \
4075In[7]:=",ExpressionUUID->"b3edc095-8a3b-4ef0-bd94-cb1bcf4aac72"],
4076
4077Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
4078 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4079 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4080 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
4081 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
4082 3.821442533390011*^9, 3.82331844290725*^9, 3.823320788118113*^9},
4083 CellLabel->
4084 "During evaluation of \
4085In[7]:=",ExpressionUUID->"92b2b3d5-1c58-4bdc-a406-690024bedb41"],
4086
4087Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
4088"Print",
4089 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4090 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4091 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
4092 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
4093 3.821442533390011*^9, 3.82331844290725*^9, 3.8233207882099667`*^9},
4094 CellLabel->
4095 "During evaluation of \
4096In[7]:=",ExpressionUUID->"05538667-f3ff-48af-b094-f00b91f51147"],
4097
4098Cell[BoxData[
4099 InterpretationBox[
4100 RowBox[{"\<\"Splitting of vertices distributed over \"\>",
4101 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
4102 SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
4103 Editable->False]], "Print",
4104 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4105 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4106 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
4107 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
4108 3.821442533390011*^9, 3.82331844290725*^9, 3.823320788228907*^9},
4109 CellLabel->
4110 "During evaluation of \
4111In[7]:=",ExpressionUUID->"90dec379-d508-4e09-ab1e-412fdd45384a"],
4112
4113Cell[BoxData["\<\"before\"\>"], "Print",
4114 ShowCellLabel->True,
4115 CellChangeTimes->{3.823320789979574*^9},
4116 CellLabel->
4117 "(kernel 2)",ExpressionUUID->"704260e3-1ec2-49b6-a643-713e8a9fce36"],
4118
4119Cell[BoxData["\<\"before\"\>"], "Print",
4120 ShowCellLabel->True,
4121 CellChangeTimes->{3.8233207900054626`*^9},
4122 CellLabel->
4123 "(kernel 1)",ExpressionUUID->"e8c194b2-211f-40df-8087-f0fe423e425d"],
4124
4125Cell[BoxData["\<\"true\"\>"], "Print",
4126 ShowCellLabel->True,
4127 CellChangeTimes->{3.8233207900510902`*^9},
4128 CellLabel->
4129 "(kernel 2)",ExpressionUUID->"184bfe92-3645-4471-bac2-bb2764f5e8ce"],
4130
4131Cell[BoxData["\<\"true\"\>"], "Print",
4132 ShowCellLabel->True,
4133 CellChangeTimes->{3.823320790069148*^9},
4134 CellLabel->
4135 "(kernel 1)",ExpressionUUID->"70dd4c4c-e53e-4ca0-ba7b-743131f985a2"],
4136
4137Cell[BoxData[
4138 InterpretationBox[
4139 RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
4140 DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
4141 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
4142 "\[InvisibleSpace]", "122", "\[InvisibleSpace]", "\<\" .\"\>"}],
4143 SequenceForm[" - Optimizing: ",
4144 Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 122, " ."],
4145 Editable->False]], "Print",
4146 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4147 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4148 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
4149 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
4150 3.821442533390011*^9, 3.82331844290725*^9, 3.823320790218923*^9},
4151 CellLabel->
4152 "During evaluation of \
4153In[7]:=",ExpressionUUID->"b377661b-f05d-4e05-9609-56a71dcdfd9d"],
4154
4155Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
4156 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4157 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4158 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
4159 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
4160 3.821442533390011*^9, 3.82331844290725*^9, 3.823320790319848*^9},
4161 CellLabel->
4162 "During evaluation of \
4163In[7]:=",ExpressionUUID->"d4be457c-0375-4e07-8ee9-aaedf27ad8cc"],
4164
4165Cell[BoxData["\<\"Done!\"\>"], "Print",
4166 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4167 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4168 3.780202404701612*^9, 3.7806455158382893`*^9, 3.780645554620697*^9,
4169 3.7806460218107843`*^9, 3.780646120910939*^9, 3.7826333602489347`*^9,
4170 3.821442533390011*^9, 3.82331844290725*^9, 3.823320790494546*^9},
4171 CellLabel->
4172 "During evaluation of \
4173In[7]:=",ExpressionUUID->"462f8e51-c476-44b3-808f-9fe6d2f61929"]
4174}, Open ]]
4175}, Open ]]
4176}, Closed]],
4177
4178Cell[CellGroupData[{
4179
4180Cell["Scalar Singlet", "Section",
4181 CellChangeTimes->{{3.759472462715425*^9, 3.7594724703715563`*^9}, {
4182 3.7594740772772512`*^9,
4183 3.759474077869609*^9}},ExpressionUUID->"819f672c-5d2b-4ffa-a0ab-\
4184b460c645b2e9"],
4185
4186Cell[CellGroupData[{
4187
4188Cell[BoxData[
4189 RowBox[{"\[IndentingNewLine]",
4190 RowBox[{
4191 RowBox[{
4192 RowBox[{"SetDirectory", "[", "here", "]"}], ";"}], "\[IndentingNewLine]",
4193
4194 RowBox[{
4195 RowBox[{"LoadModel", "[", " ",
4196 RowBox[{
4197 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
4198 "\"\<ScalarSinglet.fr\>\""}], "]"}], ";"}], "\[IndentingNewLine]",
4199 RowBox[{
4200 RowBox[{"LoadRestriction", "[",
4201 RowBox[{"\"\<DiagonalNP.rst\>\"", ",",
4202 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/DiagonalCKM.rst\>\""}],
4203 ",",
4204 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/Massless.rst\>\""}],
4205 ",", "\"\<NozRzL.rst\>\""}], "]"}], ";"}]}]}]], "Input",
4206 CellChangeTimes->{{3.759473357442108*^9, 3.759473357661347*^9}, {
4207 3.7594740850493803`*^9, 3.759474085611158*^9}, {3.7802024273856564`*^9,
4208 3.7802024409768972`*^9}},
4209 CellLabel->"In[4]:=",ExpressionUUID->"705fcdbb-0c8b-494d-a2c9-28d07f4c5c34"],
4210
4211Cell[CellGroupData[{
4212
4213Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
4214 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4215 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4216 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4217 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4218 3.823318635302229*^9, 3.823578972398633*^9},
4219 CellLabel->
4220 "During evaluation of \
4221In[4]:=",ExpressionUUID->"06db0bad-5d1b-48ca-9682-8ebc09331567"],
4222
4223Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
4224 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4225 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4226 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4227 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4228 3.823318635302229*^9, 3.823578972404636*^9},
4229 CellLabel->
4230 "During evaluation of \
4231In[4]:=",ExpressionUUID->"90a7d998-d214-4de6-96b5-3cb7cc11c5c0"],
4232
4233Cell[BoxData["\<\"Luc Darme\"\>"], "Print",
4234 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4235 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4236 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4237 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4238 3.823318635302229*^9, 3.823578972406855*^9},
4239 CellLabel->
4240 "During evaluation of \
4241In[4]:=",ExpressionUUID->"b48bc65d-8dca-49c2-b39c-45715f1f392f"],
4242
4243Cell[BoxData["\<\"Benjamin Fuks\"\>"], "Print",
4244 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4245 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4246 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4247 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4248 3.823318635302229*^9, 3.823578972408255*^9},
4249 CellLabel->
4250 "During evaluation of \
4251In[4]:=",ExpressionUUID->"e0c53747-96ea-473c-bffc-183ff8b10354"],
4252
4253Cell[BoxData[
4254 InterpretationBox[
4255 RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1\"\>"}],
4256 SequenceForm["Model Version: ", "1"],
4257 Editable->False]], "Print",
4258 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4259 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4260 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4261 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4262 3.823318635302229*^9, 3.823578972409422*^9},
4263 CellLabel->
4264 "During evaluation of \
4265In[4]:=",ExpressionUUID->"bc2d4d66-48b7-48b5-9634-4ea11b7683ca"],
4266
4267Cell[BoxData["\<\"Please cite\"\>"], "Print",
4268 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4269 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4270 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4271 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4272 3.823318635302229*^9, 3.8235789724106207`*^9},
4273 CellLabel->
4274 "During evaluation of \
4275In[4]:=",ExpressionUUID->"7bd53cfe-ee29-4413-967e-399fdc624069"],
4276
4277Cell[BoxData["\<\"xxx\"\>"], "Print",
4278 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4279 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4280 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4281 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4282 3.823318635302229*^9, 3.8235789724119062`*^9},
4283 CellLabel->
4284 "During evaluation of \
4285In[4]:=",ExpressionUUID->"a668c6e1-d75a-4b55-8c84-32bf3c946f34"],
4286
4287Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
4288"Print",
4289 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4290 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4291 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4292 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4293 3.823318635302229*^9, 3.8235789724130583`*^9},
4294 CellLabel->
4295 "During evaluation of \
4296In[4]:=",ExpressionUUID->"bbc71d9b-d5ec-4bfe-94f1-e6852b464bdc"],
4297
4298Cell[BoxData["\<\"\"\>"], "Print",
4299 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4300 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4301 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4302 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4303 3.823318635302229*^9, 3.823578972414249*^9},
4304 CellLabel->
4305 "During evaluation of \
4306In[4]:=",ExpressionUUID->"fe6d26d3-dc5d-4c27-854d-36630dbeaafb"],
4307
4308Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
4309 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4310 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4311 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4312 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4313 3.823318635302229*^9, 3.823578972415349*^9},
4314 CellLabel->
4315 "During evaluation of \
4316In[4]:=",ExpressionUUID->"c352f096-2036-4205-9df7-d6f02308c3d9"],
4317
4318Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
4319 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4320 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4321 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4322 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4323 3.823318635302229*^9, 3.823578972507433*^9},
4324 CellLabel->
4325 "During evaluation of \
4326In[4]:=",ExpressionUUID->"d392c500-932f-457c-b0c9-1f674566e421"],
4327
4328Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
4329 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4330 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4331 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4332 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4333 3.823318635302229*^9, 3.823578972511628*^9},
4334 CellLabel->
4335 "During evaluation of \
4336In[4]:=",ExpressionUUID->"53d84af9-19bd-4b0d-b6ad-b4d6c5136d02"],
4337
4338Cell[BoxData[
4339 InterpretationBox[
4340 RowBox[{"\<\"\\nModel \"\>",
4341 "\[InvisibleSpace]", "\<\"SingletTopPhilicScalar\"\>",
4342 "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
4343 SequenceForm["\nModel ", "SingletTopPhilicScalar", " loaded."],
4344 Editable->False]], "Print",
4345 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4346 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4347 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4348 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4349 3.823318635302229*^9, 3.823578972567519*^9},
4350 CellLabel->
4351 "During evaluation of \
4352In[4]:=",ExpressionUUID->"a0ea598e-f4cf-4055-bef3-221aed8df7f9"]
4353}, Open ]],
4354
4355Cell[BoxData[
4356 TemplateBox[{
4357 "Get","noopen",
4358 "\"Cannot open \
4359\\!\\(\\*RowBox[{\\\"\\\\\\\"DiagonalNP.rst\\\\\\\"\\\"}]\\).\"",2,6,1,
4360 32131741531682137609,"Local"},
4361 "MessageTemplate"]], "Message", "MSG",
4362 CellChangeTimes->{3.823318584312607*^9, 3.8233186354951878`*^9,
4363 3.82357897259284*^9},
4364 CellLabel->
4365 "During evaluation of \
4366In[4]:=",ExpressionUUID->"5ebd036c-14bd-453f-8902-fe24ccba0dc2"],
4367
4368Cell[CellGroupData[{
4369
4370Cell[BoxData[
4371 InterpretationBox[
4372 RowBox[{"\<\"Loading restrictions from \"\>",
4373 "\[InvisibleSpace]", "\<\"DiagonalNP.rst\"\>",
4374 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
4375 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
4376 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4377 "\[InvisibleSpace]", "0"}],
4378 SequenceForm["Loading restrictions from ", "DiagonalNP.rst", " : ",
4379 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 0],
4380 Editable->False]], "Print",
4381 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4382 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4383 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4384 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4385 3.823318635302229*^9, 3.823578973321041*^9},
4386 CellLabel->
4387 "During evaluation of \
4388In[4]:=",ExpressionUUID->"2b015653-fbeb-4a9e-8619-3cee8ab8fa80"],
4389
4390Cell[BoxData[
4391 InterpretationBox[
4392 RowBox[{"\<\"Loading restrictions from \"\>",
4393 "\[InvisibleSpace]", \
4394"\<\"/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst\"\>",
4395 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
4396 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
4397 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4398 "\[InvisibleSpace]", "3"}],
4399 SequenceForm[
4400 "Loading restrictions from ",
4401 "/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst", " : ",
4402
4403 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
4404 Editable->False]], "Print",
4405 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4406 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4407 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4408 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4409 3.823318635302229*^9, 3.823578973511758*^9},
4410 CellLabel->
4411 "During evaluation of \
4412In[4]:=",ExpressionUUID->"18f856e8-763a-42a4-b816-9f6f14a84193"],
4413
4414Cell[BoxData[
4415 InterpretationBox[
4416 RowBox[{"\<\"Loading restrictions from \"\>",
4417 "\[InvisibleSpace]", \
4418"\<\"/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst\"\>",
4419 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
4420 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
4421 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4422 "\[InvisibleSpace]", "18"}],
4423 SequenceForm[
4424 "Loading restrictions from ",
4425 "/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst", " : ",
4426 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
4427 Editable->False]], "Print",
4428 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4429 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4430 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4431 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4432 3.823318635302229*^9, 3.823578973715878*^9},
4433 CellLabel->
4434 "During evaluation of \
4435In[4]:=",ExpressionUUID->"f29b17e3-5ef9-49da-bcfb-21ceb4cb1282"]
4436}, Open ]],
4437
4438Cell[BoxData[
4439 TemplateBox[{
4440 "Get", "noopen",
4441 "\"Cannot open \
4442\\!\\(\\*RowBox[{\\\"\\\\\\\"NozRzL.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 2,
4443 32131741531682137609, "Local"},
4444 "MessageTemplate"]], "Message", "MSG",
4445 CellChangeTimes->{3.823318584312607*^9, 3.8233186354951878`*^9,
4446 3.823578973851389*^9},
4447 CellLabel->
4448 "During evaluation of \
4449In[4]:=",ExpressionUUID->"3e99a600-32b5-404f-8115-5dd813b3a8ce"],
4450
4451Cell[CellGroupData[{
4452
4453Cell[BoxData[
4454 InterpretationBox[
4455 RowBox[{"\<\"Loading restrictions from \"\>",
4456 "\[InvisibleSpace]", "\<\"NozRzL.rst\"\>",
4457 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
4458 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
4459 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4460 "\[InvisibleSpace]", "18"}],
4461 SequenceForm["Loading restrictions from ", "NozRzL.rst", " : ",
4462 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
4463 Editable->False]], "Print",
4464 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4465 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4466 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4467 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4468 3.823318635302229*^9, 3.823578973949757*^9},
4469 CellLabel->
4470 "During evaluation of \
4471In[4]:=",ExpressionUUID->"23bdd89d-461f-4c69-abc6-98f0337c6f06"],
4472
4473Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
4474 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
4475 3.7594744883064213`*^9, 3.780202524142974*^9, 3.780202932516862*^9,
4476 3.780646442612776*^9, 3.782633310667122*^9, 3.803976831713336*^9,
4477 3.803977004440071*^9, 3.8214417500952272`*^9, 3.82331858409059*^9,
4478 3.823318635302229*^9, 3.823578974077059*^9},
4479 CellLabel->
4480 "During evaluation of \
4481In[4]:=",ExpressionUUID->"3057b7aa-a578-49d6-a894-ecd0b12d2534"]
4482}, Open ]]
4483}, Open ]],
4484
4485Cell[CellGroupData[{
4486
4487Cell[BoxData[
4488 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
4489
4490 RowBox[{"(*",
4491 RowBox[{
4492 "Checking", " ", "the", " ", "hermiticity", " ", "of", " ", "the", " ",
4493 "model"}], "*)"}], "\[IndentingNewLine]",
4494 RowBox[{
4495 RowBox[{"CheckMassSpectrum", "[", "LagNP", "]"}], "\[IndentingNewLine]",
4496 RowBox[{"CheckHermiticity", "[", "LagNP", "]"}], "\[IndentingNewLine]",
4497 RowBox[{"(*",
4498 RowBox[{"Feynman", " ", "rules"}], "*)"}], "\[IndentingNewLine]",
4499 RowBox[{"vertices", "=",
4500 RowBox[{"FeynmanRules", "[", "LagNP", "]"}]}], "\[IndentingNewLine]",
4501 RowBox[{"(*",
4502 RowBox[{"Getting", " ", "decays"}], "*)"}], "\[IndentingNewLine]",
4503 RowBox[{
4504 RowBox[{"decays", "=",
4505 RowBox[{"ComputeWidths", "[", "vertices", "]"}]}], ";"}],
4506 "\[IndentingNewLine]",
4507 RowBox[{"(*",
4508 RowBox[{"Getting", " ", "UFO"}], "*)"}], "\[IndentingNewLine]",
4509 RowBox[{"WriteUFO", "[",
4510 RowBox[{
4511 RowBox[{"LSM", "+", "LagNP"}], ",",
4512 RowBox[{"Output", "\[Rule]", "\"\<ScalarSinglet_UFO\>\""}]}],
4513 "]"}]}]}]], "Input",
4514 CellChangeTimes->{{3.7594723247858057`*^9, 3.7594724349408712`*^9},
4515 3.759472503253831*^9, {3.75947256827782*^9, 3.759472569743855*^9}, {
4516 3.759472916998436*^9, 3.7594729172534723`*^9}, {3.7594732513207397`*^9,
4517 3.759473276459257*^9}, {3.759473397881085*^9, 3.759473420215959*^9}, {
4518 3.75947351737363*^9, 3.759473518066074*^9}, {3.759474092352673*^9,
4519 3.7594740929439583`*^9}, {3.7806464535613337`*^9, 3.780646462604203*^9}},
4520 CellLabel->"In[7]:=",ExpressionUUID->"d088ecf6-7071-4e1a-abb2-2ae357bb4163"],
4521
4522Cell[CellGroupData[{
4523
4524Cell[BoxData[
4525 InterpretationBox[
4526 RowBox[{"\<\"Neglecting all terms with more than \"\>",
4527 "\[InvisibleSpace]", "\<\"2\"\>",
4528 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
4529 SequenceForm["Neglecting all terms with more than ", "2", " particles."],
4530 Editable->False]], "Print",
4531 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4532 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4533 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4534 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4535 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4536 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4537 3.823578978048177*^9},
4538 CellLabel->
4539 "During evaluation of \
4540In[7]:=",ExpressionUUID->"4e624a7e-5165-4d91-b2a9-c32654ae5b23"],
4541
4542Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
4543 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4544 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4545 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4546 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4547 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4548 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4549 3.82357897805079*^9},
4550 CellLabel->
4551 "During evaluation of \
4552In[7]:=",ExpressionUUID->"e0359b01-3bbf-4674-95fc-1da4d15a5a75"],
4553
4554Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
4555 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4556 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4557 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4558 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4559 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4560 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4561 3.8235789780759583`*^9},
4562 CellLabel->
4563 "During evaluation of \
4564In[7]:=",ExpressionUUID->"2bd53418-eafb-47c0-a6f1-3078fff250a8"],
4565
4566Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
4567values.\"\>"], "Print",
4568 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4569 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4570 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4571 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4572 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4573 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4574 3.823578978077476*^9},
4575 CellLabel->
4576 "During evaluation of \
4577In[7]:=",ExpressionUUID->"80524763-4589-4473-a856-ef892e4a0a00"]
4578}, Open ]],
4579
4580Cell[BoxData[
4581 TagBox[GridBox[{
4582 {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
4583"\<\"Model-file value\"\>"},
4584 {"sig1",
4585 SqrtBox[
4586 SuperscriptBox["msig1", "2"]], "400.`", "400.`"}
4587 },
4588 GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
4589 GridBoxSpacings->{"Columns" -> {
4590 Offset[0.27999999999999997`], {
4591 Offset[2.0999999999999996`]},
4592 Offset[0.27999999999999997`]}, "Rows" -> {
4593 Offset[0.2], {
4594 Offset[0.4]},
4595 Offset[0.2]}}],
4596 Function[BoxForm`e$,
4597 TableForm[BoxForm`e$]]]], "Output",
4598 CellChangeTimes->{
4599 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
4600 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
4601 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
4602 3.7802025258771276`*^9, 3.7802029377210407`*^9, 3.7806464635278683`*^9,
4603 3.782633315501286*^9, 3.803976835373971*^9, 3.8039770074282713`*^9,
4604 3.821441754403936*^9, 3.823318587129444*^9, 3.8233186371458197`*^9,
4605 3.8235789780791187`*^9},
4606 CellLabel->
4607 "Out[7]//TableForm=",ExpressionUUID->"1ea121f5-3b08-4cee-8fe9-f2da83f31ea0"],
4608
4609Cell[CellGroupData[{
4610
4611Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
4612contained in L-HC[L].\"\>"], "Print",
4613 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4614 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4615 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4616 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4617 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4618 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4619 3.82357897808136*^9},
4620 CellLabel->
4621 "During evaluation of \
4622In[7]:=",ExpressionUUID->"f703df68-c566-493c-aeae-ab03f1caec86"],
4623
4624Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
4625should be zero.\"\>"], "Print",
4626 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4627 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4628 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4629 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4630 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4631 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4632 3.823578978083063*^9},
4633 CellLabel->
4634 "During evaluation of \
4635In[7]:=",ExpressionUUID->"5bbc6466-fda1-4ede-bf71-bb20067abc78"],
4636
4637Cell[BoxData[
4638 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
4639 StripOnInput->False,
4640 LineColor->RGBColor[1, 0.5, 0],
4641 FrontFaceColor->RGBColor[1, 0.5, 0],
4642 BackFaceColor->RGBColor[1, 0.5, 0],
4643 GraphicsColor->RGBColor[1, 0.5, 0],
4644 FontWeight->Bold,
4645 FontColor->RGBColor[1, 0.5, 0]]], "Print",
4646 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4647 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4648 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4649 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4650 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4651 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4652 3.823578978132738*^9},
4653 CellLabel->
4654 "During evaluation of \
4655In[7]:=",ExpressionUUID->"ab920366-f85a-4a3a-9670-cda552a3dd91"],
4656
4657Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
4658 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4659 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4660 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4661 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4662 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4663 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4664 3.823578978134118*^9},
4665 CellLabel->
4666 "During evaluation of \
4667In[7]:=",ExpressionUUID->"51bb41c9-4c26-49cb-9dbd-04af77f9dab6"],
4668
4669Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
4670 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4671 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4672 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4673 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4674 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4675 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4676 3.823578978135357*^9},
4677 CellLabel->
4678 "During evaluation of \
4679In[7]:=",ExpressionUUID->"05a72088-2e96-47d6-97ab-b86b92c2168a"],
4680
4681Cell[BoxData[
4682 InterpretationBox[
4683 RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
4684 SequenceForm[0, " vertices obtained."],
4685 Editable->False]], "Print",
4686 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4687 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4688 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4689 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4690 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4691 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4692 3.823578978136722*^9},
4693 CellLabel->
4694 "During evaluation of \
4695In[7]:=",ExpressionUUID->"32cc7401-0882-4cb9-a828-0d1ff90c28c4"],
4696
4697Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
4698 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4699 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4700 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4701 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4702 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4703 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4704 3.8235789781381207`*^9},
4705 CellLabel->
4706 "During evaluation of \
4707In[7]:=",ExpressionUUID->"de95df15-5a72-4af7-a5cb-1dfd6a600ee8"]
4708}, Open ]],
4709
4710Cell[BoxData[
4711 RowBox[{"{", "}"}]], "Output",
4712 CellChangeTimes->{
4713 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
4714 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
4715 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
4716 3.7802025258771276`*^9, 3.7802029377210407`*^9, 3.7806464635278683`*^9,
4717 3.782633315501286*^9, 3.803976835373971*^9, 3.8039770074282713`*^9,
4718 3.821441754403936*^9, 3.823318587129444*^9, 3.8233186371458197`*^9,
4719 3.823578978139345*^9},
4720 CellLabel->"Out[8]=",ExpressionUUID->"da96624f-bcdd-4c8d-a30e-cf17b2c1dcb3"],
4721
4722Cell[CellGroupData[{
4723
4724Cell[BoxData[
4725 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
4726 StripOnInput->False,
4727 LineColor->RGBColor[1, 0.5, 0],
4728 FrontFaceColor->RGBColor[1, 0.5, 0],
4729 BackFaceColor->RGBColor[1, 0.5, 0],
4730 GraphicsColor->RGBColor[1, 0.5, 0],
4731 FontWeight->Bold,
4732 FontColor->RGBColor[1, 0.5, 0]]], "Print",
4733 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4734 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4735 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4736 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4737 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4738 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4739 3.823578978161216*^9},
4740 CellLabel->
4741 "During evaluation of \
4742In[7]:=",ExpressionUUID->"2aca0c48-9ea6-4452-ae42-0f43a80c44d6"],
4743
4744Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
4745 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4746 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4747 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4748 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4749 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4750 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4751 3.8235789781632347`*^9},
4752 CellLabel->
4753 "During evaluation of \
4754In[7]:=",ExpressionUUID->"254310d7-a9a9-4e74-82fc-8f238be10232"],
4755
4756Cell[BoxData["\<\"Collecting the different structures that enter the \
4757vertex.\"\>"], "Print",
4758 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4759 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4760 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4761 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4762 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4763 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4764 3.8235789781658*^9},
4765 CellLabel->
4766 "During evaluation of \
4767In[7]:=",ExpressionUUID->"5ffceceb-af6f-44a9-93df-4963e6a5c822"],
4768
4769Cell[BoxData[
4770 InterpretationBox[
4771 RowBox[{
4772 "1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
4773-> starting the computation: \"\>", "\[InvisibleSpace]",
4774 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
4775 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4776 "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
4777 SequenceForm[
4778 1, " possible non-zero vertices have been found -> starting the \
4779computation: ",
4780 Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
4781 Editable->False]], "Print",
4782 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4783 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4784 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4785 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4786 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4787 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4788 3.823578978167076*^9},
4789 CellLabel->
4790 "During evaluation of \
4791In[7]:=",ExpressionUUID->"d12c0252-9a14-46f5-8022-70e814a15740"],
4792
4793Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
4794 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4795 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4796 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4797 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4798 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4799 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4800 3.8235789781906767`*^9},
4801 CellLabel->
4802 "During evaluation of \
4803In[7]:=",ExpressionUUID->"64e2436f-fe3e-4d67-8735-ff97912b221c"]
4804}, Open ]],
4805
4806Cell[BoxData[
4807 RowBox[{"{",
4808 RowBox[{"{",
4809 RowBox[{
4810 RowBox[{"{",
4811 RowBox[{
4812 RowBox[{"{",
4813 RowBox[{
4814 OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
4815 RowBox[{"{",
4816 RowBox[{"t", ",", "2"}], "}"}], ",",
4817 RowBox[{"{",
4818 RowBox[{"sig1", ",", "3"}], "}"}]}], "}"}], ",",
4819 RowBox[{"\[ImaginaryI]", " ",
4820 RowBox[{"Subsuperscript", "[",
4821 RowBox[{"y", ",", "\<\"1S\"\>"}], "]"}], " ",
4822 SubscriptBox["\[Delta]",
4823 RowBox[{
4824 SubscriptBox["\<\"m\"\>", "1"], ",",
4825 SubscriptBox["\<\"m\"\>", "2"]}]], " ",
4826 SubscriptBox["\[Delta]",
4827 RowBox[{
4828 SubscriptBox["\<\"s\"\>", "1"], ",",
4829 SubscriptBox["\<\"s\"\>", "2"]}]]}]}], "}"}], "}"}]], "Output",
4830 CellChangeTimes->{
4831 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
4832 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
4833 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
4834 3.7802025258771276`*^9, 3.7802029377210407`*^9, 3.7806464635278683`*^9,
4835 3.782633315501286*^9, 3.803976835373971*^9, 3.8039770074282713`*^9,
4836 3.821441754403936*^9, 3.823318587129444*^9, 3.8233186371458197`*^9,
4837 3.823578978192122*^9},
4838 CellLabel->"Out[9]=",ExpressionUUID->"63b69d02-6643-4d45-9fb3-22f3aae2fd4a"],
4839
4840Cell[CellGroupData[{
4841
4842Cell[BoxData[
4843 InterpretationBox[
4844 RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
4845 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
4846 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4847 "\[InvisibleSpace]", "1"}],
4848 SequenceForm["Flavor expansion of the vertices: ",
4849 Dynamic[FeynRules`FR$Count1], " / ", 1],
4850 Editable->False]], "Print",
4851 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4852 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4853 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4854 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4855 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4856 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4857 3.82357897822294*^9},
4858 CellLabel->
4859 "During evaluation of \
4860In[7]:=",ExpressionUUID->"da326263-69f9-46c2-8ca4-fff4424cf60b"],
4861
4862Cell[BoxData[
4863 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
4864decays: \"\>",
4865 StripOnInput->False,
4866 LineColor->RGBColor[1, 0.5, 0],
4867 FrontFaceColor->RGBColor[1, 0.5, 0],
4868 BackFaceColor->RGBColor[1, 0.5, 0],
4869 GraphicsColor->RGBColor[1, 0.5, 0],
4870 FontWeight->Bold,
4871 FontColor->RGBColor[1, 0.5, 0]]], "Print",
4872 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4873 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4874 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4875 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4876 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4877 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4878 3.823578978230035*^9},
4879 CellLabel->
4880 "During evaluation of \
4881In[7]:=",ExpressionUUID->"aafa66b4-b80a-43c2-ba7a-54f92bb611d4"],
4882
4883Cell[BoxData[
4884 InterpretationBox[
4885 RowBox[{
4886 DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
4887 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4888 "\[InvisibleSpace]", "1"}],
4889 SequenceForm[
4890 Dynamic[FeynRules`FR$DecayCounter], " / ", 1],
4891 Editable->False]], "Print",
4892 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4893 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4894 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4895 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4896 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4897 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4898 3.8235789782324133`*^9},
4899 CellLabel->
4900 "During evaluation of \
4901In[7]:=",ExpressionUUID->"c9a24680-0877-4504-92f1-3305481fcb2e"],
4902
4903Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
4904"Print",
4905 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4906 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4907 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4908 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4909 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4910 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4911 3.823578979996889*^9},
4912 CellLabel->
4913 "During evaluation of \
4914In[7]:=",ExpressionUUID->"ea2a99c7-c4d9-4abc-9216-eb9a6f168382"],
4915
4916Cell[BoxData[
4917 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
4918 StripOnInput->False,
4919 LineColor->RGBColor[1, 0.5, 0],
4920 FrontFaceColor->RGBColor[1, 0.5, 0],
4921 BackFaceColor->RGBColor[1, 0.5, 0],
4922 GraphicsColor->RGBColor[1, 0.5, 0],
4923 FontWeight->Bold,
4924 FontColor->RGBColor[1, 0.5, 0]]], "Print",
4925 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4926 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4927 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4928 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4929 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4930 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4931 3.82357898040137*^9},
4932 CellLabel->
4933 "During evaluation of \
4934In[7]:=",ExpressionUUID->"68c5cd5b-1acb-433e-bb8e-89dbc903da30"],
4935
4936Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
4937 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4938 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4939 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4940 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4941 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4942 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4943 3.82357898040272*^9},
4944 CellLabel->
4945 "During evaluation of \
4946In[7]:=",ExpressionUUID->"2ea860fa-2151-4045-ad10-7be2cc710c45"],
4947
4948Cell[BoxData[
4949 InterpretationBox[
4950 RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
4951 "\[InvisibleSpace]", "\<\" cores\"\>"}],
4952 SequenceForm["Expanding the indices over ", 2, " cores"],
4953 Editable->False]], "Print",
4954 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4955 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4956 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4957 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4958 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4959 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4960 3.823578980403811*^9},
4961 CellLabel->
4962 "During evaluation of \
4963In[7]:=",ExpressionUUID->"81a3b0aa-7476-4a13-9e1c-426a86d3550a"],
4964
4965Cell[BoxData["\<\"Collecting the different structures that enter the \
4966vertex.\"\>"], "Print",
4967 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4968 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4969 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4970 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4971 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4972 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4973 3.823578987297676*^9},
4974 CellLabel->
4975 "During evaluation of \
4976In[7]:=",ExpressionUUID->"e0f7e6cd-1012-4426-ab7f-b8c2e72da608"],
4977
4978Cell[BoxData[
4979 InterpretationBox[
4980 RowBox[{
4981 "99", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
4982-> starting the computation: \"\>", "\[InvisibleSpace]",
4983 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
4984 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4985 "\[InvisibleSpace]", "99", "\[InvisibleSpace]", "\<\".\"\>"}],
4986 SequenceForm[
4987 99, " possible non-zero vertices have been found -> starting the \
4988computation: ",
4989 Dynamic[FeynRules`FR$FeynmanRules], " / ", 99, "."],
4990 Editable->False]], "Print",
4991 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
4992 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
4993 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
4994 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
4995 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
4996 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
4997 3.8235789873387623`*^9},
4998 CellLabel->
4999 "During evaluation of \
5000In[7]:=",ExpressionUUID->"a3808508-8318-41f7-ae02-382bc1051e6b"],
5001
5002Cell[BoxData[
5003 InterpretationBox[
5004 RowBox[{"94", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
5005 SequenceForm[94, " vertices obtained."],
5006 Editable->False]], "Print",
5007 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5008 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5009 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5010 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5011 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5012 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5013 3.823578991052312*^9},
5014 CellLabel->
5015 "During evaluation of \
5016In[7]:=",ExpressionUUID->"af159158-b690-44eb-8811-4367866cfd5c"],
5017
5018Cell[BoxData[
5019 InterpretationBox[
5020 RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
5021 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
5022 "\[InvisibleSpace]",
5023 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
5024 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5025 "\[InvisibleSpace]", "94"}],
5026 SequenceForm[
5027 "Flavor expansion of the vertices distributed over ", 2, " cores: ",
5028 Dynamic[FeynRules`FR$Count1], " / ", 94],
5029 Editable->False]], "Print",
5030 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5031 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5032 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5033 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5034 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5035 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5036 3.8235789930369368`*^9},
5037 CellLabel->
5038 "During evaluation of \
5039In[7]:=",ExpressionUUID->"d9b61900-da7b-43d6-ac7d-7b2513af042f"],
5040
5041Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
5042 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5043 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5044 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5045 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5046 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5047 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5048 3.8235789992059193`*^9},
5049 CellLabel->
5050 "During evaluation of \
5051In[7]:=",ExpressionUUID->"fab9ee39-0b86-4e62-b5f5-90257a1d1d4a"],
5052
5053Cell[BoxData[
5054 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
5055decays: \"\>",
5056 StripOnInput->False,
5057 LineColor->RGBColor[1, 0.5, 0],
5058 FrontFaceColor->RGBColor[1, 0.5, 0],
5059 BackFaceColor->RGBColor[1, 0.5, 0],
5060 GraphicsColor->RGBColor[1, 0.5, 0],
5061 FontWeight->Bold,
5062 FontColor->RGBColor[1, 0.5, 0]]], "Print",
5063 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5064 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5065 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5066 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5067 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5068 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5069 3.823578999223147*^9},
5070 CellLabel->
5071 "During evaluation of \
5072In[7]:=",ExpressionUUID->"6fdf4842-4eb7-46a5-9fed-97f24fa187ba"],
5073
5074Cell[BoxData[
5075 InterpretationBox[
5076 RowBox[{
5077 DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
5078 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5079 "\[InvisibleSpace]", "41"}],
5080 SequenceForm[
5081 Dynamic[PRIVATE`mycounter], " / ", 41],
5082 Editable->False]], "Print",
5083 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5084 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5085 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5086 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5087 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5088 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5089 3.823578999270791*^9},
5090 CellLabel->
5091 "During evaluation of \
5092In[7]:=",ExpressionUUID->"b35c0842-80bc-4db8-b611-2c4b97affdf7"],
5093
5094Cell[BoxData[
5095 InterpretationBox[
5096 RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
5097 "1.642562`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
5098 SequenceForm["Squared matrix elent compute in ", 1.642562, " seconds."],
5099 Editable->False]], "Print",
5100 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5101 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5102 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5103 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5104 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5105 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5106 3.823579006144389*^9},
5107 CellLabel->
5108 "During evaluation of \
5109In[7]:=",ExpressionUUID->"7a779bae-d46e-4d29-8e9b-f5113fe82211"]
5110}, Open ]],
5111
5112Cell[BoxData[
5113 TemplateBox[{
5114 "Decay", "Overwrite", "\"Warning: Previous results will be overwritten.\"",
5115 2, 11, 3, 32131741531682137609, "Local", "FeynRules`Decay"},
5116 "MessageTemplate2"]], "Message", "MSG",
5117 ShowCellLabel->True,
5118 CellChangeTimes->{3.759472574381403*^9, 3.759473066224372*^9,
5119 3.759473329756282*^9, 3.7594734356524353`*^9, 3.759474183591339*^9,
5120 3.759474308801608*^9, 3.7594745283499393`*^9, 3.780202525926607*^9,
5121 3.780202958515935*^9, 3.780646481999653*^9, 3.782633334344795*^9,
5122 3.803976853263113*^9, 3.803977025377245*^9, 3.821441772736952*^9,
5123 3.823318615183913*^9, 3.823318663577112*^9, 3.823579006165017*^9},
5124 CellLabel->
5125 "During evaluation of \
5126In[7]:=",ExpressionUUID->"9cb408cf-d05d-4bd8-9faa-bf3c2b19b899"],
5127
5128Cell[CellGroupData[{
5129
5130Cell[BoxData[
5131 InterpretationBox[
5132 RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
5133 "0.015081`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
5134 SequenceForm["Decay widths computed in ", 0.015081, " seconds."],
5135 Editable->False]], "Print",
5136 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5137 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5138 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5139 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5140 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5141 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5142 3.823579006177326*^9},
5143 CellLabel->
5144 "During evaluation of \
5145In[7]:=",ExpressionUUID->"8b4983dc-0c7b-4e01-aa08-a5917e60e9c9"],
5146
5147Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
5148 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5149 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5150 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5151 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5152 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5153 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5154 3.823579006180895*^9},
5155 CellLabel->
5156 "During evaluation of \
5157In[7]:=",ExpressionUUID->"373a514d-4025-402a-9695-2a2c8a40b516"],
5158
5159Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
5160"Print",
5161 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5162 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5163 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5164 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5165 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5166 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5167 3.823579006279673*^9},
5168 CellLabel->
5169 "During evaluation of \
5170In[7]:=",ExpressionUUID->"4d81d7e7-da47-4d21-a9b4-87bec47741a2"],
5171
5172Cell[BoxData[
5173 InterpretationBox[
5174 RowBox[{"\<\"Splitting of vertices distributed over \"\>",
5175 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
5176 SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
5177 Editable->False]], "Print",
5178 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5179 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5180 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5181 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5182 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5183 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5184 3.8235790062971983`*^9},
5185 CellLabel->
5186 "During evaluation of \
5187In[7]:=",ExpressionUUID->"54bbe6ab-a23b-4582-aed0-abce46c9961e"],
5188
5189Cell[BoxData["\<\"before\"\>"], "Print",
5190 ShowCellLabel->True,
5191 CellChangeTimes->{3.823579007978004*^9},
5192 CellLabel->
5193 "(kernel 2)",ExpressionUUID->"bbd738f4-910f-4a6d-9cdd-bc577f4ca313"],
5194
5195Cell[BoxData["\<\"before\"\>"], "Print",
5196 ShowCellLabel->True,
5197 CellChangeTimes->{3.823579008001918*^9},
5198 CellLabel->
5199 "(kernel 1)",ExpressionUUID->"55b89a52-997e-4aab-a32d-2324c6375348"],
5200
5201Cell[BoxData["\<\"true\"\>"], "Print",
5202 ShowCellLabel->True,
5203 CellChangeTimes->{3.823579008036851*^9},
5204 CellLabel->
5205 "(kernel 2)",ExpressionUUID->"61113892-0799-438f-9afb-e9a1b05cc48b"],
5206
5207Cell[BoxData["\<\"true\"\>"], "Print",
5208 ShowCellLabel->True,
5209 CellChangeTimes->{3.823579008055234*^9},
5210 CellLabel->
5211 "(kernel 1)",ExpressionUUID->"327214f9-b03b-4afc-817d-1d9c75c69823"],
5212
5213Cell[BoxData[
5214 InterpretationBox[
5215 RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
5216 DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
5217 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
5218 "\[InvisibleSpace]", "120", "\[InvisibleSpace]", "\<\" .\"\>"}],
5219 SequenceForm[" - Optimizing: ",
5220 Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 120, " ."],
5221 Editable->False]], "Print",
5222 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5223 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5224 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5225 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5226 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5227 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5228 3.823579008214522*^9},
5229 CellLabel->
5230 "During evaluation of \
5231In[7]:=",ExpressionUUID->"cf848ccc-73f4-4cd3-a3bc-3c4d7f448e86"],
5232
5233Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
5234 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5235 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5236 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5237 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5238 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5239 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5240 3.82357900832656*^9},
5241 CellLabel->
5242 "During evaluation of \
5243In[7]:=",ExpressionUUID->"cc258e59-f651-40ff-a7ca-353fef5396a9"],
5244
5245Cell[BoxData["\<\"Done!\"\>"], "Print",
5246 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5247 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5248 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5249 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5250 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5251 3.8214417543518753`*^9, 3.823318587104298*^9, 3.823318637117969*^9,
5252 3.823579008437755*^9},
5253 CellLabel->
5254 "During evaluation of \
5255In[7]:=",ExpressionUUID->"8991f406-eaea-45eb-ad83-5180f2fdd853"]
5256}, Open ]]
5257}, Open ]]
5258}, Closed]],
5259
5260Cell[CellGroupData[{
5261
5262Cell["Pseudo-Scalar Singlet", "Section",
5263 CellChangeTimes->{{3.759472462715425*^9, 3.7594724703715563`*^9}, {
5264 3.7594740772772512`*^9, 3.759474077869609*^9}, {3.8214424079572372`*^9,
5265 3.821442408884788*^9}},ExpressionUUID->"1812bef9-f936-48ad-b64b-\
5266c123c124db88"],
5267
5268Cell[CellGroupData[{
5269
5270Cell[BoxData[
5271 RowBox[{"\[IndentingNewLine]",
5272 RowBox[{
5273 RowBox[{
5274 RowBox[{"SetDirectory", "[", "here", "]"}], ";"}], "\[IndentingNewLine]",
5275
5276 RowBox[{
5277 RowBox[{"LoadModel", "[", " ",
5278 RowBox[{
5279 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
5280 "\"\<PseudoScalarSinglet.fr\>\""}], "]"}], ";"}], "\[IndentingNewLine]",
5281 RowBox[{
5282 RowBox[{"LoadRestriction", "[",
5283 RowBox[{"\"\<DiagonalNP.rst\>\"", ",",
5284 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/DiagonalCKM.rst\>\""}],
5285 ",",
5286 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/Massless.rst\>\""}],
5287 ",", "\"\<NozRzL.rst\>\""}], "]"}], ";"}]}]}]], "Input",
5288 CellChangeTimes->{{3.759473357442108*^9, 3.759473357661347*^9}, {
5289 3.7594740850493803`*^9, 3.759474085611158*^9}, {3.7802024273856564`*^9,
5290 3.7802024409768972`*^9}, {3.8214424520615873`*^9, 3.82144245266854*^9}},
5291 CellLabel->"In[4]:=",ExpressionUUID->"0f606d4d-e1b4-4fcd-9ac1-159c2a8d2bea"],
5292
5293Cell[CellGroupData[{
5294
5295Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
5296 CellChangeTimes->{3.8214424702668037`*^9, 3.823318701016069*^9},
5297 CellLabel->
5298 "During evaluation of \
5299In[4]:=",ExpressionUUID->"449fa94b-e3e9-41b4-9d3c-bfa41f938e55"],
5300
5301Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
5302 CellChangeTimes->{3.8214424702668037`*^9, 3.8233187010221157`*^9},
5303 CellLabel->
5304 "During evaluation of \
5305In[4]:=",ExpressionUUID->"b0c36fdd-2671-4e31-84d5-2247cbc3c099"],
5306
5307Cell[BoxData["\<\"Luc Darme\"\>"], "Print",
5308 CellChangeTimes->{3.8214424702668037`*^9, 3.823318701024301*^9},
5309 CellLabel->
5310 "During evaluation of \
5311In[4]:=",ExpressionUUID->"a115476f-3318-4d90-a1f3-7ebfebe6428d"],
5312
5313Cell[BoxData["\<\"Benjamin Fuks\"\>"], "Print",
5314 CellChangeTimes->{3.8214424702668037`*^9, 3.8233187010258923`*^9},
5315 CellLabel->
5316 "During evaluation of \
5317In[4]:=",ExpressionUUID->"b4cde2ef-155d-4847-beb6-91aba70b372b"],
5318
5319Cell[BoxData[
5320 InterpretationBox[
5321 RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1\"\>"}],
5322 SequenceForm["Model Version: ", "1"],
5323 Editable->False]], "Print",
5324 CellChangeTimes->{3.8214424702668037`*^9, 3.8233187010274277`*^9},
5325 CellLabel->
5326 "During evaluation of \
5327In[4]:=",ExpressionUUID->"3afa8fa0-f483-4d92-a57d-751e7c795ba0"],
5328
5329Cell[BoxData["\<\"Please cite\"\>"], "Print",
5330 CellChangeTimes->{3.8214424702668037`*^9, 3.823318701028738*^9},
5331 CellLabel->
5332 "During evaluation of \
5333In[4]:=",ExpressionUUID->"0704ac07-c220-4ce9-95bc-166f79effaf5"],
5334
5335Cell[BoxData["\<\"xxx\"\>"], "Print",
5336 CellChangeTimes->{3.8214424702668037`*^9, 3.8233187010299473`*^9},
5337 CellLabel->
5338 "During evaluation of \
5339In[4]:=",ExpressionUUID->"50b4e075-98fe-4be1-9609-5831c25c7811"],
5340
5341Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
5342"Print",
5343 CellChangeTimes->{3.8214424702668037`*^9, 3.823318701031109*^9},
5344 CellLabel->
5345 "During evaluation of \
5346In[4]:=",ExpressionUUID->"480f511b-7374-4777-bc0c-9a0ca8cb1f0a"],
5347
5348Cell[BoxData["\<\"\"\>"], "Print",
5349 CellChangeTimes->{3.8214424702668037`*^9, 3.8233187010322742`*^9},
5350 CellLabel->
5351 "During evaluation of \
5352In[4]:=",ExpressionUUID->"3f3c4dd7-e86f-4be3-b3a0-3862bd6bd6af"],
5353
5354Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
5355 CellChangeTimes->{3.8214424702668037`*^9, 3.823318701033444*^9},
5356 CellLabel->
5357 "During evaluation of \
5358In[4]:=",ExpressionUUID->"9f6078a0-acf4-4145-a532-31167690d432"],
5359
5360Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
5361 CellChangeTimes->{3.8214424702668037`*^9, 3.823318701125287*^9},
5362 CellLabel->
5363 "During evaluation of \
5364In[4]:=",ExpressionUUID->"d0231ebc-0003-48ec-904a-4e31ccb642f2"],
5365
5366Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
5367 CellChangeTimes->{3.8214424702668037`*^9, 3.8233187011294727`*^9},
5368 CellLabel->
5369 "During evaluation of \
5370In[4]:=",ExpressionUUID->"ad32a3ed-e7bc-4c11-92c9-6a4ad71b72d8"],
5371
5372Cell[BoxData[
5373 InterpretationBox[
5374 RowBox[{"\<\"\\nModel \"\>",
5375 "\[InvisibleSpace]", "\<\"PseudoScalarSingletTopPhilic\"\>",
5376 "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
5377 SequenceForm["\nModel ", "PseudoScalarSingletTopPhilic", " loaded."],
5378 Editable->False]], "Print",
5379 CellChangeTimes->{3.8214424702668037`*^9, 3.823318701185701*^9},
5380 CellLabel->
5381 "During evaluation of \
5382In[4]:=",ExpressionUUID->"9c6afc6f-dd18-4366-96a1-761ba9153a9f"]
5383}, Open ]],
5384
5385Cell[BoxData[
5386 TemplateBox[{
5387 "Get", "noopen",
5388 "\"Cannot open \
5389\\!\\(\\*RowBox[{\\\"\\\\\\\"DiagonalNP.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 1,
5390 32130035856794954629, "Local"},
5391 "MessageTemplate"]], "Message", "MSG",
5392 CellChangeTimes->{3.8233187012089157`*^9},
5393 CellLabel->
5394 "During evaluation of \
5395In[4]:=",ExpressionUUID->"942aa00c-e167-4c3c-9f10-e4994a3c82e5"],
5396
5397Cell[CellGroupData[{
5398
5399Cell[BoxData[
5400 InterpretationBox[
5401 RowBox[{"\<\"Loading restrictions from \"\>",
5402 "\[InvisibleSpace]", "\<\"DiagonalNP.rst\"\>",
5403 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
5404 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
5405 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5406 "\[InvisibleSpace]", "0"}],
5407 SequenceForm["Loading restrictions from ", "DiagonalNP.rst", " : ",
5408 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 0],
5409 Editable->False]], "Print",
5410 CellChangeTimes->{3.8214424702668037`*^9, 3.823318701926551*^9},
5411 CellLabel->
5412 "During evaluation of \
5413In[4]:=",ExpressionUUID->"c7f9c926-26ad-4e7a-8ee2-8db3e70d6628"],
5414
5415Cell[BoxData[
5416 InterpretationBox[
5417 RowBox[{"\<\"Loading restrictions from \"\>",
5418 "\[InvisibleSpace]", \
5419"\<\"/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst\"\>",
5420 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
5421 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
5422 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5423 "\[InvisibleSpace]", "3"}],
5424 SequenceForm[
5425 "Loading restrictions from ",
5426 "/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst", " : ",
5427
5428 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
5429 Editable->False]], "Print",
5430 CellChangeTimes->{3.8214424702668037`*^9, 3.823318702117577*^9},
5431 CellLabel->
5432 "During evaluation of \
5433In[4]:=",ExpressionUUID->"617f0884-15ca-4ea0-aa97-1e434db0b45d"],
5434
5435Cell[BoxData[
5436 InterpretationBox[
5437 RowBox[{"\<\"Loading restrictions from \"\>",
5438 "\[InvisibleSpace]", \
5439"\<\"/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst\"\>",
5440 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
5441 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
5442 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5443 "\[InvisibleSpace]", "18"}],
5444 SequenceForm[
5445 "Loading restrictions from ",
5446 "/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst", " : ",
5447 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
5448 Editable->False]], "Print",
5449 CellChangeTimes->{3.8214424702668037`*^9, 3.823318702323023*^9},
5450 CellLabel->
5451 "During evaluation of \
5452In[4]:=",ExpressionUUID->"95785b3a-8458-4863-90c5-a6a1abc5bf17"]
5453}, Open ]],
5454
5455Cell[BoxData[
5456 TemplateBox[{
5457 "Get", "noopen",
5458 "\"Cannot open \
5459\\!\\(\\*RowBox[{\\\"\\\\\\\"NozRzL.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 2,
5460 32130035856794954629, "Local"},
5461 "MessageTemplate"]], "Message", "MSG",
5462 CellChangeTimes->{3.823318702458466*^9},
5463 CellLabel->
5464 "During evaluation of \
5465In[4]:=",ExpressionUUID->"3e7fe991-e737-4dc3-a48c-507c60daa44a"],
5466
5467Cell[CellGroupData[{
5468
5469Cell[BoxData[
5470 InterpretationBox[
5471 RowBox[{"\<\"Loading restrictions from \"\>",
5472 "\[InvisibleSpace]", "\<\"NozRzL.rst\"\>",
5473 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
5474 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
5475 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5476 "\[InvisibleSpace]", "18"}],
5477 SequenceForm["Loading restrictions from ", "NozRzL.rst", " : ",
5478 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
5479 Editable->False]], "Print",
5480 CellChangeTimes->{3.8214424702668037`*^9, 3.823318702553987*^9},
5481 CellLabel->
5482 "During evaluation of \
5483In[4]:=",ExpressionUUID->"00d55980-5771-4a46-a41b-2800544c6fb5"],
5484
5485Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
5486 CellChangeTimes->{3.8214424702668037`*^9, 3.823318702678584*^9},
5487 CellLabel->
5488 "During evaluation of \
5489In[4]:=",ExpressionUUID->"af9e9d44-e78d-45c3-9450-63acb2e26912"]
5490}, Open ]]
5491}, Open ]],
5492
5493Cell[CellGroupData[{
5494
5495Cell[BoxData[
5496 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
5497
5498 RowBox[{"(*",
5499 RowBox[{
5500 "Checking", " ", "the", " ", "hermiticity", " ", "of", " ", "the", " ",
5501 "model"}], "*)"}], "\[IndentingNewLine]",
5502 RowBox[{
5503 RowBox[{"CheckMassSpectrum", "[", "LagNP", "]"}], "\[IndentingNewLine]",
5504 RowBox[{"CheckHermiticity", "[", "LagNP", "]"}], "\[IndentingNewLine]",
5505 RowBox[{"(*",
5506 RowBox[{"Feynman", " ", "rules"}], "*)"}], "\[IndentingNewLine]",
5507 RowBox[{"vertices", "=",
5508 RowBox[{"FeynmanRules", "[", "LagNP", "]"}]}], "\[IndentingNewLine]",
5509 RowBox[{"(*",
5510 RowBox[{"Getting", " ", "decays"}], "*)"}], "\[IndentingNewLine]",
5511 RowBox[{
5512 RowBox[{"decays", "=",
5513 RowBox[{"ComputeWidths", "[", "vertices", "]"}]}], ";"}],
5514 "\[IndentingNewLine]",
5515 RowBox[{"(*",
5516 RowBox[{"Getting", " ", "UFO"}], "*)"}], "\[IndentingNewLine]",
5517 RowBox[{"WriteUFO", "[",
5518 RowBox[{
5519 RowBox[{"LSM", "+", "LagNP"}], ",",
5520 RowBox[{"Output", "\[Rule]", "\"\<PseudoScalarSinglet_UFO\>\""}]}],
5521 "]"}]}]}]], "Input",
5522 CellChangeTimes->{{3.7594723247858057`*^9, 3.7594724349408712`*^9},
5523 3.759472503253831*^9, {3.75947256827782*^9, 3.759472569743855*^9}, {
5524 3.759472916998436*^9, 3.7594729172534723`*^9}, {3.7594732513207397`*^9,
5525 3.759473276459257*^9}, {3.759473397881085*^9, 3.759473420215959*^9}, {
5526 3.75947351737363*^9, 3.759473518066074*^9}, {3.759474092352673*^9,
5527 3.7594740929439583`*^9}, {3.7806464535613337`*^9, 3.780646462604203*^9},
5528 3.821442473877527*^9},
5529 CellLabel->"In[7]:=",ExpressionUUID->"60e7446f-a673-4fb9-9240-656f65e9e705"],
5530
5531Cell[CellGroupData[{
5532
5533Cell[BoxData[
5534 InterpretationBox[
5535 RowBox[{"\<\"Neglecting all terms with more than \"\>",
5536 "\[InvisibleSpace]", "\<\"2\"\>",
5537 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
5538 SequenceForm["Neglecting all terms with more than ", "2", " particles."],
5539 Editable->False]], "Print",
5540 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5541 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5542 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5543 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5544 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5545 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187047438507`*^9},
5546 CellLabel->
5547 "During evaluation of \
5548In[7]:=",ExpressionUUID->"559eef55-f904-44ef-9d00-565db771c842"],
5549
5550Cell[BoxData["\<\"No Mass terms found.\"\>"], "Print",
5551 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5552 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5553 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5554 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5555 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5556 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318704745811*^9},
5557 CellLabel->
5558 "During evaluation of \
5559In[7]:=",ExpressionUUID->"fcbe7e4e-79a6-488c-932f-01203a9dbe3e"],
5560
5561Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
5562contained in L-HC[L].\"\>"], "Print",
5563 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5564 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5565 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5566 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5567 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5568 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318704768508*^9},
5569 CellLabel->
5570 "During evaluation of \
5571In[7]:=",ExpressionUUID->"9deb0eb6-d954-4056-92b4-7ccc1e375364"],
5572
5573Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
5574should be zero.\"\>"], "Print",
5575 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5576 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5577 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5578 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5579 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5580 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318704769829*^9},
5581 CellLabel->
5582 "During evaluation of \
5583In[7]:=",ExpressionUUID->"d9d01ad4-efaa-4f60-97b4-8c1d69501299"],
5584
5585Cell[BoxData[
5586 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
5587 StripOnInput->False,
5588 LineColor->RGBColor[1, 0.5, 0],
5589 FrontFaceColor->RGBColor[1, 0.5, 0],
5590 BackFaceColor->RGBColor[1, 0.5, 0],
5591 GraphicsColor->RGBColor[1, 0.5, 0],
5592 FontWeight->Bold,
5593 FontColor->RGBColor[1, 0.5, 0]]], "Print",
5594 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5595 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5596 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5597 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5598 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5599 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318704852964*^9},
5600 CellLabel->
5601 "During evaluation of \
5602In[7]:=",ExpressionUUID->"8b8cc6a4-d116-404f-9170-1ea44ff3a053"],
5603
5604Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
5605 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5606 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5607 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5608 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5609 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5610 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187048542128`*^9},
5611 CellLabel->
5612 "During evaluation of \
5613In[7]:=",ExpressionUUID->"f474176e-131f-4124-b015-8d6ce9648309"],
5614
5615Cell[BoxData["\<\"Collecting the different structures that enter the \
5616vertex.\"\>"], "Print",
5617 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5618 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5619 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5620 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5621 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5622 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.82331870487468*^9},
5623 CellLabel->
5624 "During evaluation of \
5625In[7]:=",ExpressionUUID->"645a0fb6-ec52-4abb-92c7-e4dfe654bc92"],
5626
5627Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
5628 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5629 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5630 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5631 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5632 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5633 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318704875931*^9},
5634 CellLabel->
5635 "During evaluation of \
5636In[7]:=",ExpressionUUID->"691515ae-9beb-4518-9c0c-0865f2183b0e"],
5637
5638Cell[BoxData[
5639 InterpretationBox[
5640 RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
5641 SequenceForm[0, " vertices obtained."],
5642 Editable->False]], "Print",
5643 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5644 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5645 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5646 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5647 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5648 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187048769913`*^9},
5649 CellLabel->
5650 "During evaluation of \
5651In[7]:=",ExpressionUUID->"969ac467-ba99-4e45-9e39-beef65cc3fe2"],
5652
5653Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
5654 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5655 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5656 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5657 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5658 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5659 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187048779793`*^9},
5660 CellLabel->
5661 "During evaluation of \
5662In[7]:=",ExpressionUUID->"7f59fd82-c065-4b3e-ba22-997ab53f1e3b"]
5663}, Open ]],
5664
5665Cell[BoxData[
5666 RowBox[{"{", "}"}]], "Output",
5667 CellChangeTimes->{
5668 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
5669 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
5670 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
5671 3.7802025258771276`*^9, 3.7802029377210407`*^9, 3.7806464635278683`*^9,
5672 3.782633315501286*^9, 3.803976835373971*^9, 3.8039770074282713`*^9,
5673 3.821441754403936*^9, 3.821442475547104*^9, 3.823318704879018*^9},
5674 CellLabel->"Out[8]=",ExpressionUUID->"3c9c0ecd-aaca-41c2-83c4-fd6840ad74d5"],
5675
5676Cell[CellGroupData[{
5677
5678Cell[BoxData[
5679 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
5680 StripOnInput->False,
5681 LineColor->RGBColor[1, 0.5, 0],
5682 FrontFaceColor->RGBColor[1, 0.5, 0],
5683 BackFaceColor->RGBColor[1, 0.5, 0],
5684 GraphicsColor->RGBColor[1, 0.5, 0],
5685 FontWeight->Bold,
5686 FontColor->RGBColor[1, 0.5, 0]]], "Print",
5687 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5688 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5689 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5690 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5691 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5692 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.82331870490263*^9},
5693 CellLabel->
5694 "During evaluation of \
5695In[7]:=",ExpressionUUID->"a1775cd9-0b8c-447f-b31e-c7632a4eec7b"],
5696
5697Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
5698 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5699 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5700 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5701 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5702 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5703 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318704904049*^9},
5704 CellLabel->
5705 "During evaluation of \
5706In[7]:=",ExpressionUUID->"2aa172ec-2045-4b8d-a8bd-1e0677205791"],
5707
5708Cell[BoxData["\<\"Collecting the different structures that enter the \
5709vertex.\"\>"], "Print",
5710 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5711 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5712 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5713 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5714 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5715 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318704934844*^9},
5716 CellLabel->
5717 "During evaluation of \
5718In[7]:=",ExpressionUUID->"e832a92d-b63b-4192-aeb4-61e5355824c2"],
5719
5720Cell[BoxData[
5721 InterpretationBox[
5722 RowBox[{
5723 "1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
5724-> starting the computation: \"\>", "\[InvisibleSpace]",
5725 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
5726 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5727 "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
5728 SequenceForm[
5729 1, " possible non-zero vertices have been found -> starting the \
5730computation: ",
5731 Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
5732 Editable->False]], "Print",
5733 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5734 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5735 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5736 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5737 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5738 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318704937367*^9},
5739 CellLabel->
5740 "During evaluation of \
5741In[7]:=",ExpressionUUID->"a8444e98-ea2c-463f-95fa-a6ee0e1e945a"],
5742
5743Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
5744 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5745 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5746 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5747 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5748 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5749 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187049538937`*^9},
5750 CellLabel->
5751 "During evaluation of \
5752In[7]:=",ExpressionUUID->"f944c31f-38f7-40e6-8d16-00f6b4c76622"]
5753}, Open ]],
5754
5755Cell[BoxData[
5756 RowBox[{"{",
5757 RowBox[{"{",
5758 RowBox[{
5759 RowBox[{"{",
5760 RowBox[{
5761 RowBox[{"{",
5762 RowBox[{
5763 OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
5764 RowBox[{"{",
5765 RowBox[{"t", ",", "2"}], "}"}], ",",
5766 RowBox[{"{",
5767 RowBox[{"PS1", ",", "3"}], "}"}]}], "}"}], ",",
5768 RowBox[{
5769 RowBox[{"-",
5770 RowBox[{"Subsuperscript", "[",
5771 RowBox[{"y", ",", "\<\"1P\"\>"}], "]"}]}], " ",
5772 TemplateBox[{
5773 SubscriptBox["\[Gamma]",
5774 RowBox[{
5775 SubscriptBox["\"s\"", "1"], ",",
5776 SubscriptBox["\"s\"", "2"]}]], "5"},
5777 "Superscript"], " ",
5778 SubscriptBox["\[Delta]",
5779 RowBox[{
5780 SubscriptBox["\<\"m\"\>", "1"], ",",
5781 SubscriptBox["\<\"m\"\>", "2"]}]]}]}], "}"}], "}"}]], "Output",
5782 CellChangeTimes->{
5783 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
5784 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
5785 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
5786 3.7802025258771276`*^9, 3.7802029377210407`*^9, 3.7806464635278683`*^9,
5787 3.782633315501286*^9, 3.803976835373971*^9, 3.8039770074282713`*^9,
5788 3.821441754403936*^9, 3.821442475547104*^9, 3.823318704955471*^9},
5789 CellLabel->"Out[9]=",ExpressionUUID->"e8efb411-9496-49f4-85ae-cd0cad8cfaf4"],
5790
5791Cell[CellGroupData[{
5792
5793Cell[BoxData[
5794 InterpretationBox[
5795 RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
5796 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
5797 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5798 "\[InvisibleSpace]", "1"}],
5799 SequenceForm["Flavor expansion of the vertices: ",
5800 Dynamic[FeynRules`FR$Count1], " / ", 1],
5801 Editable->False]], "Print",
5802 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5803 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5804 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5805 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5806 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5807 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318704985004*^9},
5808 CellLabel->
5809 "During evaluation of \
5810In[7]:=",ExpressionUUID->"d6b7f6a5-d9ff-43b2-a8b3-3bb8c36062f4"],
5811
5812Cell[BoxData[
5813 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
5814decays: \"\>",
5815 StripOnInput->False,
5816 LineColor->RGBColor[1, 0.5, 0],
5817 FrontFaceColor->RGBColor[1, 0.5, 0],
5818 BackFaceColor->RGBColor[1, 0.5, 0],
5819 GraphicsColor->RGBColor[1, 0.5, 0],
5820 FontWeight->Bold,
5821 FontColor->RGBColor[1, 0.5, 0]]], "Print",
5822 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5823 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5824 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5825 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5826 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5827 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187050063*^9},
5828 CellLabel->
5829 "During evaluation of \
5830In[7]:=",ExpressionUUID->"3d0b1b1e-d0ec-4128-90de-4c8c8702ac6b"],
5831
5832Cell[BoxData[
5833 InterpretationBox[
5834 RowBox[{
5835 DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
5836 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5837 "\[InvisibleSpace]", "1"}],
5838 SequenceForm[
5839 Dynamic[FeynRules`FR$DecayCounter], " / ", 1],
5840 Editable->False]], "Print",
5841 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5842 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5843 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5844 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5845 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5846 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318705008767*^9},
5847 CellLabel->
5848 "During evaluation of \
5849In[7]:=",ExpressionUUID->"f6331983-2452-4508-9aac-366b6a5d2c30"],
5850
5851Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
5852"Print",
5853 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5854 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5855 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5856 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5857 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5858 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318706833499*^9},
5859 CellLabel->
5860 "During evaluation of \
5861In[7]:=",ExpressionUUID->"a8cb0655-b06d-431d-aab2-9c6c11b85c1a"],
5862
5863Cell[BoxData[
5864 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
5865 StripOnInput->False,
5866 LineColor->RGBColor[1, 0.5, 0],
5867 FrontFaceColor->RGBColor[1, 0.5, 0],
5868 BackFaceColor->RGBColor[1, 0.5, 0],
5869 GraphicsColor->RGBColor[1, 0.5, 0],
5870 FontWeight->Bold,
5871 FontColor->RGBColor[1, 0.5, 0]]], "Print",
5872 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5873 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5874 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5875 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5876 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5877 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318707214533*^9},
5878 CellLabel->
5879 "During evaluation of \
5880In[7]:=",ExpressionUUID->"5b65b2fc-e2bc-4f24-b207-f006146b6adb"],
5881
5882Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
5883 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5884 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5885 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5886 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5887 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5888 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187072158747`*^9},
5889 CellLabel->
5890 "During evaluation of \
5891In[7]:=",ExpressionUUID->"75cbd0e0-a49d-47a6-8268-1e1930a8344b"],
5892
5893Cell[BoxData[
5894 InterpretationBox[
5895 RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
5896 "\[InvisibleSpace]", "\<\" cores\"\>"}],
5897 SequenceForm["Expanding the indices over ", 2, " cores"],
5898 Editable->False]], "Print",
5899 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5900 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5901 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5902 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5903 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5904 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318707216951*^9},
5905 CellLabel->
5906 "During evaluation of \
5907In[7]:=",ExpressionUUID->"d5994477-eb29-4962-8756-c1ad07f72d65"],
5908
5909Cell[BoxData["\<\"Collecting the different structures that enter the \
5910vertex.\"\>"], "Print",
5911 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5912 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5913 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5914 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5915 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5916 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187140395937`*^9},
5917 CellLabel->
5918 "During evaluation of \
5919In[7]:=",ExpressionUUID->"7ee3bd7e-d15e-4077-a17d-8259fe9719c6"],
5920
5921Cell[BoxData[
5922 InterpretationBox[
5923 RowBox[{
5924 "99", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
5925-> starting the computation: \"\>", "\[InvisibleSpace]",
5926 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
5927 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5928 "\[InvisibleSpace]", "99", "\[InvisibleSpace]", "\<\".\"\>"}],
5929 SequenceForm[
5930 99, " possible non-zero vertices have been found -> starting the \
5931computation: ",
5932 Dynamic[FeynRules`FR$FeynmanRules], " / ", 99, "."],
5933 Editable->False]], "Print",
5934 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5935 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5936 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5937 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5938 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5939 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318714078253*^9},
5940 CellLabel->
5941 "During evaluation of \
5942In[7]:=",ExpressionUUID->"24adf13b-7bd1-44aa-ad10-00c594f793c1"],
5943
5944Cell[BoxData[
5945 InterpretationBox[
5946 RowBox[{"94", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
5947 SequenceForm[94, " vertices obtained."],
5948 Editable->False]], "Print",
5949 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5950 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5951 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5952 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5953 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5954 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187177297564`*^9},
5955 CellLabel->
5956 "During evaluation of \
5957In[7]:=",ExpressionUUID->"460c2438-8cc8-4376-b1be-4f412b73532c"],
5958
5959Cell[BoxData[
5960 InterpretationBox[
5961 RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
5962 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
5963 "\[InvisibleSpace]",
5964 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
5965 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5966 "\[InvisibleSpace]", "94"}],
5967 SequenceForm[
5968 "Flavor expansion of the vertices distributed over ", 2, " cores: ",
5969 Dynamic[FeynRules`FR$Count1], " / ", 94],
5970 Editable->False]], "Print",
5971 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5972 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5973 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5974 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5975 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5976 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.82331871967074*^9},
5977 CellLabel->
5978 "During evaluation of \
5979In[7]:=",ExpressionUUID->"f5e683a6-fdc2-48b2-9da3-08c5f8639f39"],
5980
5981Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
5982 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
5983 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
5984 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
5985 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
5986 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
5987 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318726011697*^9},
5988 CellLabel->
5989 "During evaluation of \
5990In[7]:=",ExpressionUUID->"4ea9e8ef-9ffb-4ee1-a4cd-d1c0c54e3e7d"],
5991
5992Cell[BoxData[
5993 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
5994decays: \"\>",
5995 StripOnInput->False,
5996 LineColor->RGBColor[1, 0.5, 0],
5997 FrontFaceColor->RGBColor[1, 0.5, 0],
5998 BackFaceColor->RGBColor[1, 0.5, 0],
5999 GraphicsColor->RGBColor[1, 0.5, 0],
6000 FontWeight->Bold,
6001 FontColor->RGBColor[1, 0.5, 0]]], "Print",
6002 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6003 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6004 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6005 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
6006 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
6007 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187260297213`*^9},
6008 CellLabel->
6009 "During evaluation of \
6010In[7]:=",ExpressionUUID->"57257e10-952a-42f1-9b10-2f363452722f"],
6011
6012Cell[BoxData[
6013 InterpretationBox[
6014 RowBox[{
6015 DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
6016 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6017 "\[InvisibleSpace]", "41"}],
6018 SequenceForm[
6019 Dynamic[PRIVATE`mycounter], " / ", 41],
6020 Editable->False]], "Print",
6021 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6022 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6023 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6024 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
6025 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
6026 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318726075139*^9},
6027 CellLabel->
6028 "During evaluation of \
6029In[7]:=",ExpressionUUID->"eb4bc61d-2b53-416d-ad62-15bc50080b5a"],
6030
6031Cell[BoxData[
6032 InterpretationBox[
6033 RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
6034 "1.615462`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
6035 SequenceForm["Squared matrix elent compute in ", 1.615462, " seconds."],
6036 Editable->False]], "Print",
6037 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6038 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6039 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6040 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
6041 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
6042 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318732918529*^9},
6043 CellLabel->
6044 "During evaluation of \
6045In[7]:=",ExpressionUUID->"b36d66e2-4b61-43f1-95b6-cbe3701e97f3"]
6046}, Open ]],
6047
6048Cell[BoxData[
6049 TemplateBox[{
6050 "Decay", "Overwrite", "\"Warning: Previous results will be overwritten.\"",
6051 2, 11, 3, 32130035856794954629, "Local", "FeynRules`Decay"},
6052 "MessageTemplate2"]], "Message", "MSG",
6053 ShowCellLabel->True,
6054 CellChangeTimes->{3.759472574381403*^9, 3.759473066224372*^9,
6055 3.759473329756282*^9, 3.7594734356524353`*^9, 3.759474183591339*^9,
6056 3.759474308801608*^9, 3.7594745283499393`*^9, 3.780202525926607*^9,
6057 3.780202958515935*^9, 3.780646481999653*^9, 3.782633334344795*^9,
6058 3.803976853263113*^9, 3.803977025377245*^9, 3.821441772736952*^9,
6059 3.821442493358333*^9, 3.823318732938633*^9},
6060 CellLabel->
6061 "During evaluation of \
6062In[7]:=",ExpressionUUID->"9e8fc71c-abc7-46e6-913e-c883220e2812"],
6063
6064Cell[CellGroupData[{
6065
6066Cell[BoxData[
6067 InterpretationBox[
6068 RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
6069 "0.014505`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
6070 SequenceForm["Decay widths computed in ", 0.014505, " seconds."],
6071 Editable->False]], "Print",
6072 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6073 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6074 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6075 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
6076 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
6077 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318732946306*^9},
6078 CellLabel->
6079 "During evaluation of \
6080In[7]:=",ExpressionUUID->"f1aeb60d-e5aa-4a5e-9ee0-6414aee323b8"],
6081
6082Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
6083 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6084 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6085 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6086 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
6087 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
6088 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187329479837`*^9},
6089 CellLabel->
6090 "During evaluation of \
6091In[7]:=",ExpressionUUID->"e58e2cc1-e88e-40c0-a3e6-e357798dfea0"],
6092
6093Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
6094"Print",
6095 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6096 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6097 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6098 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
6099 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
6100 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187330321493`*^9},
6101 CellLabel->
6102 "During evaluation of \
6103In[7]:=",ExpressionUUID->"7f208292-e319-4953-824a-34358f8d4951"],
6104
6105Cell[BoxData[
6106 InterpretationBox[
6107 RowBox[{"\<\"Splitting of vertices distributed over \"\>",
6108 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
6109 SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
6110 Editable->False]], "Print",
6111 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6112 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6113 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6114 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
6115 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
6116 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.8233187330504837`*^9},
6117 CellLabel->
6118 "During evaluation of \
6119In[7]:=",ExpressionUUID->"4418c541-eddd-496e-8dfa-3b4517d1c7fa"],
6120
6121Cell[BoxData["\<\"before\"\>"], "Print",
6122 ShowCellLabel->True,
6123 CellChangeTimes->{3.8233187347457457`*^9},
6124 CellLabel->
6125 "(kernel 2)",ExpressionUUID->"c4750bef-68a0-4d20-82ac-c1dccb931539"],
6126
6127Cell[BoxData["\<\"before\"\>"], "Print",
6128 ShowCellLabel->True,
6129 CellChangeTimes->{3.823318734782517*^9},
6130 CellLabel->
6131 "(kernel 1)",ExpressionUUID->"92f8dfb5-0f47-4f5d-ac6f-7517882d9330"],
6132
6133Cell[BoxData["\<\"true\"\>"], "Print",
6134 ShowCellLabel->True,
6135 CellChangeTimes->{3.823318734797558*^9},
6136 CellLabel->
6137 "(kernel 2)",ExpressionUUID->"59f9c090-a5f4-4e42-9c55-50bd415d3be3"],
6138
6139Cell[BoxData["\<\"true\"\>"], "Print",
6140 ShowCellLabel->True,
6141 CellChangeTimes->{3.823318734826511*^9},
6142 CellLabel->
6143 "(kernel 1)",ExpressionUUID->"0b952620-c3e1-413e-a525-822c8b4b94e7"],
6144
6145Cell[BoxData[
6146 InterpretationBox[
6147 RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
6148 DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
6149 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
6150 "\[InvisibleSpace]", "120", "\[InvisibleSpace]", "\<\" .\"\>"}],
6151 SequenceForm[" - Optimizing: ",
6152 Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 120, " ."],
6153 Editable->False]], "Print",
6154 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6155 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6156 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6157 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
6158 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
6159 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318734960473*^9},
6160 CellLabel->
6161 "During evaluation of \
6162In[7]:=",ExpressionUUID->"0ee8688f-0eb6-46cc-ace6-2640771b36f1"],
6163
6164Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
6165 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6166 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6167 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6168 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
6169 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
6170 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318735045947*^9},
6171 CellLabel->
6172 "During evaluation of \
6173In[7]:=",ExpressionUUID->"f3226bc3-db02-4b6f-85ca-e94bf7f74c7c"],
6174
6175Cell[BoxData["\<\"Done!\"\>"], "Print",
6176 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6177 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6178 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6179 3.780202525738758*^9, 3.780202937508922*^9, 3.7806464634598827`*^9,
6180 3.782633315427339*^9, 3.8039768353082542`*^9, 3.803977007396261*^9,
6181 3.8214417543518753`*^9, 3.8214424754918528`*^9, 3.823318735153034*^9},
6182 CellLabel->
6183 "During evaluation of \
6184In[7]:=",ExpressionUUID->"7952b3e4-aeba-4f1c-b963-0cb45edc06d0"]
6185}, Open ]]
6186}, Open ]]
6187}, Closed]],
6188
6189Cell[CellGroupData[{
6190
6191Cell["Vector Singlet", "Section",
6192 CellChangeTimes->{{3.759472462715425*^9, 3.7594724703715563`*^9}, {
6193 3.7594740772772512`*^9, 3.759474077869609*^9}, {3.7802024533288593`*^9,
6194 3.780202454160181*^9}},ExpressionUUID->"fd0d9fc1-1118-42d7-b6c7-\
6195d3c25301fc25"],
6196
6197Cell[CellGroupData[{
6198
6199Cell[BoxData[
6200 RowBox[{"\[IndentingNewLine]",
6201 RowBox[{
6202 RowBox[{
6203 RowBox[{"SetDirectory", "[", "here", "]"}], ";"}], "\[IndentingNewLine]",
6204
6205 RowBox[{
6206 RowBox[{"LoadModel", "[", " ",
6207 RowBox[{
6208 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
6209 "\"\<VectorSinglet.fr\>\""}], "]"}], ";"}], "\[IndentingNewLine]",
6210 RowBox[{
6211 RowBox[{"LoadRestriction", "[",
6212 RowBox[{"\"\<DiagonalNP.rst\>\"", ",",
6213 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/DiagonalCKM.rst\>\""}],
6214 ",",
6215 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/Massless.rst\>\""}],
6216 ",", "\"\<NozRzL.rst\>\""}], "]"}], ";"}]}]}]], "Input",
6217 CellChangeTimes->{{3.759473357442108*^9, 3.759473357661347*^9}, {
6218 3.7594740850493803`*^9, 3.759474085611158*^9}, {3.7802024273856564`*^9,
6219 3.7802024409768972`*^9}, {3.780202496120973*^9, 3.780202498504401*^9}},
6220 CellLabel->"In[4]:=",ExpressionUUID->"5365947e-825e-4504-a80b-af158120802b"],
6221
6222Cell[CellGroupData[{
6223
6224Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
6225 CellChangeTimes->{3.823318753282078*^9},
6226 CellLabel->
6227 "During evaluation of \
6228In[4]:=",ExpressionUUID->"ebd0e264-ef9a-4bdb-97e9-dc160b9701e7"],
6229
6230Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
6231 CellChangeTimes->{3.823318753288423*^9},
6232 CellLabel->
6233 "During evaluation of \
6234In[4]:=",ExpressionUUID->"9b61e05c-84e3-48f4-8be8-90d43ca68188"],
6235
6236Cell[BoxData["\<\"Luc Darme\"\>"], "Print",
6237 CellChangeTimes->{3.823318753290635*^9},
6238 CellLabel->
6239 "During evaluation of \
6240In[4]:=",ExpressionUUID->"bdc9d978-1637-457d-928e-7dcd03117355"],
6241
6242Cell[BoxData["\<\"Benjamin Fuks\"\>"], "Print",
6243 CellChangeTimes->{3.823318753291913*^9},
6244 CellLabel->
6245 "During evaluation of \
6246In[4]:=",ExpressionUUID->"3a35dc99-07e8-4e70-8196-99793c79dfb6"],
6247
6248Cell[BoxData[
6249 InterpretationBox[
6250 RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1\"\>"}],
6251 SequenceForm["Model Version: ", "1"],
6252 Editable->False]], "Print",
6253 CellChangeTimes->{3.823318753293131*^9},
6254 CellLabel->
6255 "During evaluation of \
6256In[4]:=",ExpressionUUID->"effe9432-1828-445b-9f46-ab1b0047af43"],
6257
6258Cell[BoxData["\<\"Please cite\"\>"], "Print",
6259 CellChangeTimes->{3.823318753294714*^9},
6260 CellLabel->
6261 "During evaluation of \
6262In[4]:=",ExpressionUUID->"e921a149-0d4d-4576-8722-9717b76e2dd5"],
6263
6264Cell[BoxData["\<\"xxx\"\>"], "Print",
6265 CellChangeTimes->{3.8233187532960777`*^9},
6266 CellLabel->
6267 "During evaluation of \
6268In[4]:=",ExpressionUUID->"ee853602-e349-476a-bb34-0269ba8b4a54"],
6269
6270Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
6271"Print",
6272 CellChangeTimes->{3.823318753297255*^9},
6273 CellLabel->
6274 "During evaluation of \
6275In[4]:=",ExpressionUUID->"97f70ebb-f080-4fb2-b6ab-5fba47af0327"],
6276
6277Cell[BoxData["\<\"\"\>"], "Print",
6278 CellChangeTimes->{3.8233187532985764`*^9},
6279 CellLabel->
6280 "During evaluation of \
6281In[4]:=",ExpressionUUID->"9b4efad1-b6b2-4bd2-877b-802329901dec"],
6282
6283Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
6284 CellChangeTimes->{3.8233187532997723`*^9},
6285 CellLabel->
6286 "During evaluation of \
6287In[4]:=",ExpressionUUID->"6a73b97f-2164-4108-87ef-f0be9fe866c7"],
6288
6289Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
6290 CellChangeTimes->{3.8233187533896627`*^9},
6291 CellLabel->
6292 "During evaluation of \
6293In[4]:=",ExpressionUUID->"8e6a8f66-eb72-4892-bcaf-f4949e2b0fba"],
6294
6295Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
6296 CellChangeTimes->{3.823318753393568*^9},
6297 CellLabel->
6298 "During evaluation of \
6299In[4]:=",ExpressionUUID->"b65509b4-e0c6-4e19-8408-366bbee101c3"],
6300
6301Cell[BoxData[
6302 InterpretationBox[
6303 RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SingletVector\"\>",
6304 "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
6305 SequenceForm["\nModel ", "SingletVector", " loaded."],
6306 Editable->False]], "Print",
6307 CellChangeTimes->{3.82331875345014*^9},
6308 CellLabel->
6309 "During evaluation of \
6310In[4]:=",ExpressionUUID->"59504c84-5166-4fd7-8e26-fb4980a7cf4b"]
6311}, Open ]],
6312
6313Cell[BoxData[
6314 TemplateBox[{
6315 "Get", "noopen",
6316 "\"Cannot open \
6317\\!\\(\\*RowBox[{\\\"\\\\\\\"DiagonalNP.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 1,
6318 32130036197582639269, "Local"},
6319 "MessageTemplate"]], "Message", "MSG",
6320 CellChangeTimes->{{3.782570274223468*^9, 3.7825702827362947`*^9},
6321 3.823318753472458*^9},
6322 CellLabel->
6323 "During evaluation of \
6324In[4]:=",ExpressionUUID->"920488ac-3ec0-41cf-aea0-9ab4aeb2b594"],
6325
6326Cell[CellGroupData[{
6327
6328Cell[BoxData[
6329 InterpretationBox[
6330 RowBox[{"\<\"Loading restrictions from \"\>",
6331 "\[InvisibleSpace]", "\<\"DiagonalNP.rst\"\>",
6332 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
6333 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
6334 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6335 "\[InvisibleSpace]", "0"}],
6336 SequenceForm["Loading restrictions from ", "DiagonalNP.rst", " : ",
6337 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 0],
6338 Editable->False]], "Print",
6339 CellChangeTimes->{3.8233187541986732`*^9},
6340 CellLabel->
6341 "During evaluation of \
6342In[4]:=",ExpressionUUID->"0a896c7c-9245-459a-a4e5-f23846270ba2"],
6343
6344Cell[BoxData[
6345 InterpretationBox[
6346 RowBox[{"\<\"Loading restrictions from \"\>",
6347 "\[InvisibleSpace]", \
6348"\<\"/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst\"\>",
6349 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
6350 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
6351 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6352 "\[InvisibleSpace]", "3"}],
6353 SequenceForm[
6354 "Loading restrictions from ",
6355 "/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst", " : ",
6356
6357 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
6358 Editable->False]], "Print",
6359 CellChangeTimes->{3.823318754405246*^9},
6360 CellLabel->
6361 "During evaluation of \
6362In[4]:=",ExpressionUUID->"1e7c0822-fbe5-49f3-a792-c96388f50de3"],
6363
6364Cell[BoxData[
6365 InterpretationBox[
6366 RowBox[{"\<\"Loading restrictions from \"\>",
6367 "\[InvisibleSpace]", \
6368"\<\"/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst\"\>",
6369 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
6370 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
6371 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6372 "\[InvisibleSpace]", "18"}],
6373 SequenceForm[
6374 "Loading restrictions from ",
6375 "/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst", " : ",
6376 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
6377 Editable->False]], "Print",
6378 CellChangeTimes->{3.823318754664527*^9},
6379 CellLabel->
6380 "During evaluation of \
6381In[4]:=",ExpressionUUID->"35826a8f-3d39-427f-904a-7af3999037cc"]
6382}, Open ]],
6383
6384Cell[BoxData[
6385 TemplateBox[{
6386 "Get", "noopen",
6387 "\"Cannot open \
6388\\!\\(\\*RowBox[{\\\"\\\\\\\"NozRzL.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 2,
6389 32130036197582639269, "Local"},
6390 "MessageTemplate"]], "Message", "MSG",
6391 CellChangeTimes->{{3.782570274223468*^9, 3.7825702827362947`*^9},
6392 3.823318754818907*^9},
6393 CellLabel->
6394 "During evaluation of \
6395In[4]:=",ExpressionUUID->"21346090-5053-42a9-bfb6-8607529bb55a"],
6396
6397Cell[CellGroupData[{
6398
6399Cell[BoxData[
6400 InterpretationBox[
6401 RowBox[{"\<\"Loading restrictions from \"\>",
6402 "\[InvisibleSpace]", "\<\"NozRzL.rst\"\>",
6403 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
6404 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
6405 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6406 "\[InvisibleSpace]", "18"}],
6407 SequenceForm["Loading restrictions from ", "NozRzL.rst", " : ",
6408 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
6409 Editable->False]], "Print",
6410 CellChangeTimes->{3.823318754932173*^9},
6411 CellLabel->
6412 "During evaluation of \
6413In[4]:=",ExpressionUUID->"5f086361-18cc-46ca-a7a1-fd8ce633dde7"],
6414
6415Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
6416 CellChangeTimes->{3.823318755068775*^9},
6417 CellLabel->
6418 "During evaluation of \
6419In[4]:=",ExpressionUUID->"c3e57168-e6a7-42e9-96a1-b2a9d6cf1233"]
6420}, Open ]]
6421}, Open ]],
6422
6423Cell[CellGroupData[{
6424
6425Cell[BoxData[
6426 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
6427
6428 RowBox[{"(*",
6429 RowBox[{
6430 "Checking", " ", "the", " ", "hermiticity", " ", "of", " ", "the", " ",
6431 "model"}], "*)"}], "\[IndentingNewLine]",
6432 RowBox[{
6433 RowBox[{"CheckMassSpectrum", "[", "LagNP", "]"}], "\[IndentingNewLine]",
6434 RowBox[{"CheckHermiticity", "[", "LagNP", "]"}], "\[IndentingNewLine]",
6435 RowBox[{"(*",
6436 RowBox[{"Feynman", " ", "rules"}], "*)"}], "\[IndentingNewLine]",
6437 RowBox[{"vertices", "=",
6438 RowBox[{"FeynmanRules", "[", "LagNP", "]"}]}], "\[IndentingNewLine]",
6439 RowBox[{"(*",
6440 RowBox[{"Getting", " ", "decays"}], "*)"}], "\[IndentingNewLine]",
6441 RowBox[{
6442 RowBox[{"decays", "=",
6443 RowBox[{"ComputeWidths", "[", "vertices", "]"}]}], ";"}],
6444 "\[IndentingNewLine]",
6445 RowBox[{"(*",
6446 RowBox[{"Getting", " ", "UFO"}], "*)"}], "\[IndentingNewLine]",
6447 RowBox[{"WriteUFO", "[",
6448 RowBox[{
6449 RowBox[{"LSM", "+", "LagNP"}], ",",
6450 RowBox[{"Output", "\[Rule]", "\"\<VectorSinglet_UFO\>\""}]}],
6451 "]"}]}]}]], "Input",
6452 CellChangeTimes->{{3.7594723247858057`*^9, 3.7594724349408712`*^9},
6453 3.759472503253831*^9, {3.75947256827782*^9, 3.759472569743855*^9}, {
6454 3.759472916998436*^9, 3.7594729172534723`*^9}, {3.7594732513207397`*^9,
6455 3.759473276459257*^9}, {3.759473397881085*^9, 3.759473420215959*^9}, {
6456 3.75947351737363*^9, 3.759473518066074*^9}, {3.759474092352673*^9,
6457 3.7594740929439583`*^9}, {3.780202504792794*^9, 3.780202505712256*^9}, {
6458 3.7806465148732557`*^9, 3.7806465184432364`*^9}},
6459 CellLabel->"In[7]:=",ExpressionUUID->"5dbe612a-8462-40c9-ab92-916fc215482e"],
6460
6461Cell[CellGroupData[{
6462
6463Cell[BoxData[
6464 InterpretationBox[
6465 RowBox[{"\<\"Neglecting all terms with more than \"\>",
6466 "\[InvisibleSpace]", "\<\"2\"\>",
6467 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
6468 SequenceForm["Neglecting all terms with more than ", "2", " particles."],
6469 Editable->False]], "Print",
6470 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6471 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6472 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6473 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6474 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6475 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6476 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318758794973*^9},
6477 CellLabel->
6478 "During evaluation of \
6479In[7]:=",ExpressionUUID->"39210ba9-d89e-4815-a26a-ed7e1e412f41"],
6480
6481Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
6482 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6483 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6484 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6485 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6486 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6487 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6488 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318758797369*^9},
6489 CellLabel->
6490 "During evaluation of \
6491In[7]:=",ExpressionUUID->"77d62e4d-bd29-44b1-9e6b-b91e8c505287"],
6492
6493Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
6494 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6495 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6496 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6497 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6498 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6499 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6500 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318758844398*^9},
6501 CellLabel->
6502 "During evaluation of \
6503In[7]:=",ExpressionUUID->"6c9d2813-f14f-4a0b-846a-6eae8ec18507"],
6504
6505Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
6506values.\"\>"], "Print",
6507 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6508 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6509 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6510 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6511 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6512 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6513 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318758845882*^9},
6514 CellLabel->
6515 "During evaluation of \
6516In[7]:=",ExpressionUUID->"959f8d84-ef60-4add-b3d3-b7792e026df2"]
6517}, Open ]],
6518
6519Cell[BoxData[
6520 TagBox[GridBox[{
6521 {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
6522"\<\"Model-file value\"\>"},
6523 {"Zp",
6524 SqrtBox[
6525 SuperscriptBox["MZp", "2"]], "3000.`", "3000.`"}
6526 },
6527 GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
6528 GridBoxSpacings->{"Columns" -> {
6529 Offset[0.27999999999999997`], {
6530 Offset[2.0999999999999996`]},
6531 Offset[0.27999999999999997`]}, "Rows" -> {
6532 Offset[0.2], {
6533 Offset[0.4]},
6534 Offset[0.2]}}],
6535 Function[BoxForm`e$,
6536 TableForm[BoxForm`e$]]]], "Output",
6537 CellChangeTimes->{
6538 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
6539 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
6540 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
6541 3.7802025475917587`*^9, 3.780203020575611*^9, 3.780203104590867*^9,
6542 3.780203178957118*^9, 3.780203213156974*^9, 3.78020343582698*^9, {
6543 3.780203596562427*^9, 3.7802036066410933`*^9}, 3.780203689605217*^9,
6544 3.780204018145047*^9, 3.780646519446307*^9, 3.823318758847343*^9},
6545 CellLabel->
6546 "Out[7]//TableForm=",ExpressionUUID->"ff9e73fe-d346-4b98-ab49-98d17b50a72b"],
6547
6548Cell[CellGroupData[{
6549
6550Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
6551contained in L-HC[L].\"\>"], "Print",
6552 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6553 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6554 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6555 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6556 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6557 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6558 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318758901207*^9},
6559 CellLabel->
6560 "During evaluation of \
6561In[7]:=",ExpressionUUID->"3b8620f4-adcc-4d1a-a217-506ef5eb28be"],
6562
6563Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
6564should be zero.\"\>"], "Print",
6565 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6566 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6567 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6568 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6569 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6570 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6571 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187589027348`*^9},
6572 CellLabel->
6573 "During evaluation of \
6574In[7]:=",ExpressionUUID->"77e15359-6fe7-4165-a675-34d308c2e261"],
6575
6576Cell[BoxData[
6577 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
6578 StripOnInput->False,
6579 LineColor->RGBColor[1, 0.5, 0],
6580 FrontFaceColor->RGBColor[1, 0.5, 0],
6581 BackFaceColor->RGBColor[1, 0.5, 0],
6582 GraphicsColor->RGBColor[1, 0.5, 0],
6583 FontWeight->Bold,
6584 FontColor->RGBColor[1, 0.5, 0]]], "Print",
6585 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6586 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6587 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6588 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6589 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6590 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6591 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187590200853`*^9},
6592 CellLabel->
6593 "During evaluation of \
6594In[7]:=",ExpressionUUID->"138c10c7-dd03-454c-98ce-1265df2b0c77"],
6595
6596Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
6597 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6598 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6599 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6600 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6601 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6602 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6603 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318759021366*^9},
6604 CellLabel->
6605 "During evaluation of \
6606In[7]:=",ExpressionUUID->"9993a713-0c7e-4272-bcd2-d46b75f8222e"],
6607
6608Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
6609 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6610 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6611 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6612 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6613 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6614 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6615 3.780204017936602*^9, 3.7806465193651333`*^9, 3.82331875902241*^9},
6616 CellLabel->
6617 "During evaluation of \
6618In[7]:=",ExpressionUUID->"ff351633-7b8a-4e11-aabd-33f2c9460b4b"],
6619
6620Cell[BoxData[
6621 InterpretationBox[
6622 RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
6623 SequenceForm[0, " vertices obtained."],
6624 Editable->False]], "Print",
6625 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6626 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6627 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6628 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6629 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6630 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6631 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318759023431*^9},
6632 CellLabel->
6633 "During evaluation of \
6634In[7]:=",ExpressionUUID->"7ffb5f54-048f-4efa-ba47-7c11e83784fa"],
6635
6636Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
6637 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6638 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6639 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6640 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6641 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6642 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6643 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187590244007`*^9},
6644 CellLabel->
6645 "During evaluation of \
6646In[7]:=",ExpressionUUID->"edb50ec4-4339-4e21-a641-42086c822d5e"]
6647}, Open ]],
6648
6649Cell[BoxData[
6650 RowBox[{"{", "}"}]], "Output",
6651 CellChangeTimes->{
6652 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
6653 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
6654 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
6655 3.7802025475917587`*^9, 3.780203020575611*^9, 3.780203104590867*^9,
6656 3.780203178957118*^9, 3.780203213156974*^9, 3.78020343582698*^9, {
6657 3.780203596562427*^9, 3.7802036066410933`*^9}, 3.780203689605217*^9,
6658 3.780204018145047*^9, 3.780646519446307*^9, 3.8233187590253572`*^9},
6659 CellLabel->"Out[8]=",ExpressionUUID->"e8c0cc40-7a8d-4cea-a2c5-cad210711539"],
6660
6661Cell[CellGroupData[{
6662
6663Cell[BoxData[
6664 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
6665 StripOnInput->False,
6666 LineColor->RGBColor[1, 0.5, 0],
6667 FrontFaceColor->RGBColor[1, 0.5, 0],
6668 BackFaceColor->RGBColor[1, 0.5, 0],
6669 GraphicsColor->RGBColor[1, 0.5, 0],
6670 FontWeight->Bold,
6671 FontColor->RGBColor[1, 0.5, 0]]], "Print",
6672 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6673 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6674 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6675 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6676 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6677 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6678 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318759070047*^9},
6679 CellLabel->
6680 "During evaluation of \
6681In[7]:=",ExpressionUUID->"b000172d-47c8-4104-bdfe-62cf65390419"],
6682
6683Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
6684 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6685 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6686 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6687 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6688 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6689 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6690 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187590718327`*^9},
6691 CellLabel->
6692 "During evaluation of \
6693In[7]:=",ExpressionUUID->"67d1b322-8cf7-47c7-8c98-199936cd083d"],
6694
6695Cell[BoxData["\<\"Collecting the different structures that enter the \
6696vertex.\"\>"], "Print",
6697 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6698 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6699 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6700 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6701 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6702 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6703 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187591214037`*^9},
6704 CellLabel->
6705 "During evaluation of \
6706In[7]:=",ExpressionUUID->"9c0de740-76b8-4f85-ad11-9c2c5e40e9ea"],
6707
6708Cell[BoxData[
6709 InterpretationBox[
6710 RowBox[{
6711 "1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
6712-> starting the computation: \"\>", "\[InvisibleSpace]",
6713 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
6714 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6715 "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
6716 SequenceForm[
6717 1, " possible non-zero vertices have been found -> starting the \
6718computation: ",
6719 Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
6720 Editable->False]], "Print",
6721 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6722 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6723 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6724 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6725 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6726 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6727 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318759123135*^9},
6728 CellLabel->
6729 "During evaluation of \
6730In[7]:=",ExpressionUUID->"3344a3ff-9fb5-40d3-84c2-0edeb8f86925"],
6731
6732Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
6733 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6734 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6735 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6736 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6737 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6738 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6739 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318759150732*^9},
6740 CellLabel->
6741 "During evaluation of \
6742In[7]:=",ExpressionUUID->"fa46ce77-08fc-4d22-9fff-b3f3ec85fb1b"]
6743}, Open ]],
6744
6745Cell[BoxData[
6746 RowBox[{"{",
6747 RowBox[{"{",
6748 RowBox[{
6749 RowBox[{"{",
6750 RowBox[{
6751 RowBox[{"{",
6752 RowBox[{
6753 OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
6754 RowBox[{"{",
6755 RowBox[{"t", ",", "2"}], "}"}], ",",
6756 RowBox[{"{",
6757 RowBox[{"Zp", ",", "3"}], "}"}]}], "}"}], ",",
6758 RowBox[{
6759 RowBox[{"\[ImaginaryI]", " ",
6760 SubscriptBox["g", "\<\"1L\"\>"], " ",
6761 SubscriptBox["\[Delta]",
6762 RowBox[{
6763 SubscriptBox["\<\"m\"\>", "1"], ",",
6764 SubscriptBox["\<\"m\"\>", "2"]}]], " ",
6765 SubscriptBox[
6766 RowBox[{
6767 TemplateBox[{"\[Gamma]",
6768 SubscriptBox["\"\[Mu]\"", "3"]},
6769 "Superscript"], ".",
6770 SubscriptBox["P", "\<\"-\"\>"]}],
6771 RowBox[{
6772 SubscriptBox["\<\"s\"\>", "1"], ",",
6773 SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
6774 RowBox[{"\[ImaginaryI]", " ",
6775 SubscriptBox["g", "\<\"1R\"\>"], " ",
6776 SubscriptBox["\[Delta]",
6777 RowBox[{
6778 SubscriptBox["\<\"m\"\>", "1"], ",",
6779 SubscriptBox["\<\"m\"\>", "2"]}]], " ",
6780 SubscriptBox[
6781 RowBox[{
6782 TemplateBox[{"\[Gamma]",
6783 SubscriptBox["\"\[Mu]\"", "3"]},
6784 "Superscript"], ".",
6785 SubscriptBox["P", "\<\"+\"\>"]}],
6786 RowBox[{
6787 SubscriptBox["\<\"s\"\>", "1"], ",",
6788 SubscriptBox["\<\"s\"\>", "2"]}]]}]}]}], "}"}], "}"}]], "Output",
6789 CellChangeTimes->{
6790 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
6791 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
6792 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
6793 3.7802025475917587`*^9, 3.780203020575611*^9, 3.780203104590867*^9,
6794 3.780203178957118*^9, 3.780203213156974*^9, 3.78020343582698*^9, {
6795 3.780203596562427*^9, 3.7802036066410933`*^9}, 3.780203689605217*^9,
6796 3.780204018145047*^9, 3.780646519446307*^9, 3.823318759152367*^9},
6797 CellLabel->"Out[9]=",ExpressionUUID->"7c55b269-3f25-4f6c-9a0b-4717617b43fd"],
6798
6799Cell[CellGroupData[{
6800
6801Cell[BoxData[
6802 InterpretationBox[
6803 RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
6804 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
6805 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6806 "\[InvisibleSpace]", "1"}],
6807 SequenceForm["Flavor expansion of the vertices: ",
6808 Dynamic[FeynRules`FR$Count1], " / ", 1],
6809 Editable->False]], "Print",
6810 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6811 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6812 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6813 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6814 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6815 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6816 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318759182558*^9},
6817 CellLabel->
6818 "During evaluation of \
6819In[7]:=",ExpressionUUID->"783047b1-fff5-494f-9d41-f090a109f592"],
6820
6821Cell[BoxData[
6822 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
6823decays: \"\>",
6824 StripOnInput->False,
6825 LineColor->RGBColor[1, 0.5, 0],
6826 FrontFaceColor->RGBColor[1, 0.5, 0],
6827 BackFaceColor->RGBColor[1, 0.5, 0],
6828 GraphicsColor->RGBColor[1, 0.5, 0],
6829 FontWeight->Bold,
6830 FontColor->RGBColor[1, 0.5, 0]]], "Print",
6831 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6832 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6833 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6834 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6835 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6836 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6837 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318759206167*^9},
6838 CellLabel->
6839 "During evaluation of \
6840In[7]:=",ExpressionUUID->"cb5be894-4642-4781-9a1f-b294dd49ff6b"],
6841
6842Cell[BoxData[
6843 InterpretationBox[
6844 RowBox[{
6845 DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
6846 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6847 "\[InvisibleSpace]", "1"}],
6848 SequenceForm[
6849 Dynamic[FeynRules`FR$DecayCounter], " / ", 1],
6850 Editable->False]], "Print",
6851 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6852 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6853 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6854 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6855 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6856 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6857 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318759208599*^9},
6858 CellLabel->
6859 "During evaluation of \
6860In[7]:=",ExpressionUUID->"e6f2f1b6-2aa2-4af2-ace7-8286ef2d1967"],
6861
6862Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
6863"Print",
6864 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6865 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6866 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6867 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6868 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6869 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6870 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318761141741*^9},
6871 CellLabel->
6872 "During evaluation of \
6873In[7]:=",ExpressionUUID->"b47b1a94-5615-4965-996d-aa583162cda0"],
6874
6875Cell[BoxData[
6876 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
6877 StripOnInput->False,
6878 LineColor->RGBColor[1, 0.5, 0],
6879 FrontFaceColor->RGBColor[1, 0.5, 0],
6880 BackFaceColor->RGBColor[1, 0.5, 0],
6881 GraphicsColor->RGBColor[1, 0.5, 0],
6882 FontWeight->Bold,
6883 FontColor->RGBColor[1, 0.5, 0]]], "Print",
6884 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6885 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6886 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6887 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6888 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6889 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6890 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187615082006`*^9},
6891 CellLabel->
6892 "During evaluation of \
6893In[7]:=",ExpressionUUID->"761afdb2-5f54-4eff-afcd-3f7019da0fad"],
6894
6895Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
6896 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6897 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6898 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6899 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6900 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6901 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6902 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318761509591*^9},
6903 CellLabel->
6904 "During evaluation of \
6905In[7]:=",ExpressionUUID->"fece93d6-7302-40f8-b032-e80dc1f2ff05"],
6906
6907Cell[BoxData[
6908 InterpretationBox[
6909 RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
6910 "\[InvisibleSpace]", "\<\" cores\"\>"}],
6911 SequenceForm["Expanding the indices over ", 2, " cores"],
6912 Editable->False]], "Print",
6913 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6914 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6915 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6916 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6917 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6918 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6919 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187615105457`*^9},
6920 CellLabel->
6921 "During evaluation of \
6922In[7]:=",ExpressionUUID->"4932919d-bb95-4fe3-9ef6-089a5570c005"],
6923
6924Cell[BoxData["\<\"Collecting the different structures that enter the \
6925vertex.\"\>"], "Print",
6926 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6927 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6928 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6929 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6930 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6931 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6932 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318768330495*^9},
6933 CellLabel->
6934 "During evaluation of \
6935In[7]:=",ExpressionUUID->"c9762aed-a7e3-4046-948e-c20448fbd33e"],
6936
6937Cell[BoxData[
6938 InterpretationBox[
6939 RowBox[{
6940 "99", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
6941-> starting the computation: \"\>", "\[InvisibleSpace]",
6942 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
6943 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6944 "\[InvisibleSpace]", "99", "\[InvisibleSpace]", "\<\".\"\>"}],
6945 SequenceForm[
6946 99, " possible non-zero vertices have been found -> starting the \
6947computation: ",
6948 Dynamic[FeynRules`FR$FeynmanRules], " / ", 99, "."],
6949 Editable->False]], "Print",
6950 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6951 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6952 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6953 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6954 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6955 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6956 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318768368683*^9},
6957 CellLabel->
6958 "During evaluation of \
6959In[7]:=",ExpressionUUID->"516e01c3-f29a-4623-b031-def23e5c8107"],
6960
6961Cell[BoxData[
6962 InterpretationBox[
6963 RowBox[{"94", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
6964 SequenceForm[94, " vertices obtained."],
6965 Editable->False]], "Print",
6966 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6967 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6968 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6969 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6970 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6971 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6972 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318772067853*^9},
6973 CellLabel->
6974 "During evaluation of \
6975In[7]:=",ExpressionUUID->"c7a25ab4-fe9f-4e0f-af1a-c1a835a9632d"],
6976
6977Cell[BoxData[
6978 InterpretationBox[
6979 RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
6980 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
6981 "\[InvisibleSpace]",
6982 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
6983 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6984 "\[InvisibleSpace]", "94"}],
6985 SequenceForm[
6986 "Flavor expansion of the vertices distributed over ", 2, " cores: ",
6987 Dynamic[FeynRules`FR$Count1], " / ", 94],
6988 Editable->False]], "Print",
6989 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
6990 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
6991 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
6992 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
6993 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
6994 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
6995 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187741506453`*^9},
6996 CellLabel->
6997 "During evaluation of \
6998In[7]:=",ExpressionUUID->"dafcdc3a-8d6a-4879-85a9-08466b0fdd7c"],
6999
7000Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
7001 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7002 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7003 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7004 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7005 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7006 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7007 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187808042383`*^9},
7008 CellLabel->
7009 "During evaluation of \
7010In[7]:=",ExpressionUUID->"5482cd84-d081-44a4-9f4a-12938115be80"],
7011
7012Cell[BoxData[
7013 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
7014decays: \"\>",
7015 StripOnInput->False,
7016 LineColor->RGBColor[1, 0.5, 0],
7017 FrontFaceColor->RGBColor[1, 0.5, 0],
7018 BackFaceColor->RGBColor[1, 0.5, 0],
7019 GraphicsColor->RGBColor[1, 0.5, 0],
7020 FontWeight->Bold,
7021 FontColor->RGBColor[1, 0.5, 0]]], "Print",
7022 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7023 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7024 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7025 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7026 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7027 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7028 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318780823444*^9},
7029 CellLabel->
7030 "During evaluation of \
7031In[7]:=",ExpressionUUID->"9e3fe13f-1ca4-4f05-a0be-08c5019f9898"],
7032
7033Cell[BoxData[
7034 InterpretationBox[
7035 RowBox[{
7036 DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
7037 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7038 "\[InvisibleSpace]", "41"}],
7039 SequenceForm[
7040 Dynamic[PRIVATE`mycounter], " / ", 41],
7041 Editable->False]], "Print",
7042 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7043 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7044 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7045 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7046 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7047 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7048 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318780868264*^9},
7049 CellLabel->
7050 "During evaluation of \
7051In[7]:=",ExpressionUUID->"9262a527-4e61-40b0-bf43-be3fa77f967e"],
7052
7053Cell[BoxData[
7054 InterpretationBox[
7055 RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
7056 "1.633519`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
7057 SequenceForm["Squared matrix elent compute in ", 1.633519, " seconds."],
7058 Editable->False]], "Print",
7059 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7060 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7061 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7062 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7063 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7064 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7065 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318787602674*^9},
7066 CellLabel->
7067 "During evaluation of \
7068In[7]:=",ExpressionUUID->"a476ecbf-97b5-4ef1-bac1-dd6c24d90b09"]
7069}, Open ]],
7070
7071Cell[BoxData[
7072 TemplateBox[{
7073 "Decay", "Overwrite", "\"Warning: Previous results will be overwritten.\"",
7074 2, 11, 3, 32130036197582639269, "Local", "FeynRules`Decay"},
7075 "MessageTemplate2"]], "Message", "MSG",
7076 ShowCellLabel->True,
7077 CellChangeTimes->{
7078 3.759472574381403*^9, 3.759473066224372*^9, 3.759473329756282*^9,
7079 3.7594734356524353`*^9, 3.759474183591339*^9, 3.759474308801608*^9,
7080 3.7594745283499393`*^9, 3.7802025478581247`*^9, 3.7802030373072643`*^9,
7081 3.7802031213484364`*^9, 3.7802031958430347`*^9, 3.7802032296914053`*^9,
7082 3.780203436433041*^9, {3.7802035964643373`*^9, 3.780203607241201*^9},
7083 3.780203690202548*^9, 3.780204039595866*^9, 3.780646537987451*^9,
7084 3.823318787621656*^9},
7085 CellLabel->
7086 "During evaluation of \
7087In[7]:=",ExpressionUUID->"3c976cd1-a65f-4f95-affb-cd5eb7f2c7c5"],
7088
7089Cell[CellGroupData[{
7090
7091Cell[BoxData[
7092 InterpretationBox[
7093 RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
7094 "0.014955`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
7095 SequenceForm["Decay widths computed in ", 0.014955, " seconds."],
7096 Editable->False]], "Print",
7097 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7098 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7099 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7100 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7101 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7102 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7103 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187876330442`*^9},
7104 CellLabel->
7105 "During evaluation of \
7106In[7]:=",ExpressionUUID->"154b17dc-f380-4a51-9360-6b9f213ce8c8"],
7107
7108Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
7109 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7110 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7111 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7112 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7113 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7114 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7115 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187876356916`*^9},
7116 CellLabel->
7117 "During evaluation of \
7118In[7]:=",ExpressionUUID->"6017ed2f-2f7d-404b-afb5-644a16d424ed"],
7119
7120Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
7121"Print",
7122 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7123 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7124 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7125 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7126 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7127 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7128 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318787723412*^9},
7129 CellLabel->
7130 "During evaluation of \
7131In[7]:=",ExpressionUUID->"e5c02566-af88-45ec-ba71-a61d23e352e7"],
7132
7133Cell[BoxData[
7134 InterpretationBox[
7135 RowBox[{"\<\"Splitting of vertices distributed over \"\>",
7136 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
7137 SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
7138 Editable->False]], "Print",
7139 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7140 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7141 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7142 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7143 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7144 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7145 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187877448673`*^9},
7146 CellLabel->
7147 "During evaluation of \
7148In[7]:=",ExpressionUUID->"39fe8f78-6f48-4b01-b3df-d89a404649d1"],
7149
7150Cell[BoxData["\<\"before\"\>"], "Print",
7151 ShowCellLabel->True,
7152 CellChangeTimes->{3.823318789458531*^9},
7153 CellLabel->
7154 "(kernel 2)",ExpressionUUID->"9a4959a4-ea21-4fdc-9cbf-588f6cb99cf1"],
7155
7156Cell[BoxData["\<\"before\"\>"], "Print",
7157 ShowCellLabel->True,
7158 CellChangeTimes->{3.823318789481365*^9},
7159 CellLabel->
7160 "(kernel 1)",ExpressionUUID->"787c8cac-09a0-4628-a16c-9bd97e5d71d4"],
7161
7162Cell[BoxData["\<\"true\"\>"], "Print",
7163 ShowCellLabel->True,
7164 CellChangeTimes->{3.823318789511547*^9},
7165 CellLabel->
7166 "(kernel 2)",ExpressionUUID->"0dde040a-41ff-4822-8078-cba3cee60ada"],
7167
7168Cell[BoxData["\<\"true\"\>"], "Print",
7169 ShowCellLabel->True,
7170 CellChangeTimes->{3.823318789528576*^9},
7171 CellLabel->
7172 "(kernel 1)",ExpressionUUID->"b90a6596-5bd1-49a9-ba53-4c274fbdf25b"],
7173
7174Cell[BoxData[
7175 InterpretationBox[
7176 RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
7177 DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
7178 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
7179 "\[InvisibleSpace]", "120", "\[InvisibleSpace]", "\<\" .\"\>"}],
7180 SequenceForm[" - Optimizing: ",
7181 Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 120, " ."],
7182 Editable->False]], "Print",
7183 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7184 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7185 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7186 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7187 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7188 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7189 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187896710873`*^9},
7190 CellLabel->
7191 "During evaluation of \
7192In[7]:=",ExpressionUUID->"cb0c68b8-5dce-4df2-aec1-625eba3e071c"],
7193
7194Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
7195 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7196 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7197 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7198 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7199 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7200 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7201 3.780204017936602*^9, 3.7806465193651333`*^9, 3.8233187897591057`*^9},
7202 CellLabel->
7203 "During evaluation of \
7204In[7]:=",ExpressionUUID->"62433847-18d4-4946-9e0c-31f09dfb2fd2"],
7205
7206Cell[BoxData["\<\"Done!\"\>"], "Print",
7207 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7208 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7209 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7210 3.780202547332205*^9, 3.780203020335136*^9, 3.780203104354333*^9,
7211 3.780203178720705*^9, 3.780203212913603*^9, 3.780203435632289*^9, {
7212 3.780203596456085*^9, 3.780203606446967*^9}, 3.7802036894220057`*^9,
7213 3.780204017936602*^9, 3.7806465193651333`*^9, 3.823318789862146*^9},
7214 CellLabel->
7215 "During evaluation of \
7216In[7]:=",ExpressionUUID->"5a4e4df2-5945-4a6a-96c5-16ae8c2195b7"]
7217}, Open ]]
7218}, Open ]]
7219}, Closed]],
7220
7221Cell[CellGroupData[{
7222
7223Cell["Vector Octet ", "Section",
7224 CellChangeTimes->{{3.759472462715425*^9, 3.7594724703715563`*^9}, {
7225 3.7594740772772512`*^9, 3.759474077869609*^9}, {3.7802024575047398`*^9,
7226 3.780202461391922*^9}},ExpressionUUID->"53ecbd33-5272-492c-852c-\
7227e5bf1a0b7721"],
7228
7229Cell[CellGroupData[{
7230
7231Cell[BoxData[
7232 RowBox[{"\[IndentingNewLine]",
7233 RowBox[{
7234 RowBox[{
7235 RowBox[{"SetDirectory", "[", "here", "]"}], ";"}], "\[IndentingNewLine]",
7236
7237 RowBox[{
7238 RowBox[{"LoadModel", "[", " ",
7239 RowBox[{
7240 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
7241 "\"\<VectorOctet.fr\>\""}], "]"}], ";"}], "\[IndentingNewLine]",
7242 RowBox[{
7243 RowBox[{"LoadRestriction", "[",
7244 RowBox[{"\"\<DiagonalNP.rst\>\"", ",",
7245 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/DiagonalCKM.rst\>\""}],
7246 ",",
7247 RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/Massless.rst\>\""}],
7248 ",", "\"\<NozRzL.rst\>\""}], "]"}], ";"}]}]}]], "Input",
7249 CellChangeTimes->{{3.759473357442108*^9, 3.759473357661347*^9}, {
7250 3.7594740850493803`*^9, 3.759474085611158*^9}, {3.7802024273856564`*^9,
7251 3.7802024409768972`*^9}, {3.780202523193082*^9, 3.780202527072501*^9}},
7252 CellLabel->"In[4]:=",ExpressionUUID->"28c116c0-1f9f-4f2c-8abc-26a8e636817b"],
7253
7254Cell[CellGroupData[{
7255
7256Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
7257 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7258 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7259 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7260 3.79354898730926*^9, 3.823318813850049*^9, 3.823321172166622*^9},
7261 CellLabel->
7262 "During evaluation of \
7263In[4]:=",ExpressionUUID->"85797c99-afef-436b-b980-1d6f6a594d8f"],
7264
7265Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
7266 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7267 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7268 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7269 3.79354898730926*^9, 3.823318813850049*^9, 3.823321172173015*^9},
7270 CellLabel->
7271 "During evaluation of \
7272In[4]:=",ExpressionUUID->"95e243a0-ab98-4f77-ae85-d1ec030c90ed"],
7273
7274Cell[BoxData["\<\"Luc Darme\"\>"], "Print",
7275 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7276 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7277 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7278 3.79354898730926*^9, 3.823318813850049*^9, 3.823321172175037*^9},
7279 CellLabel->
7280 "During evaluation of \
7281In[4]:=",ExpressionUUID->"ee1b636b-3469-4f35-8c6c-c47bc9007959"],
7282
7283Cell[BoxData["\<\"Benjamin Fuks\"\>"], "Print",
7284 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7285 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7286 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7287 3.79354898730926*^9, 3.823318813850049*^9, 3.8233211721762333`*^9},
7288 CellLabel->
7289 "During evaluation of \
7290In[4]:=",ExpressionUUID->"3ccf1f11-8901-4292-8204-4898f76a63e4"],
7291
7292Cell[BoxData[
7293 InterpretationBox[
7294 RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1\"\>"}],
7295 SequenceForm["Model Version: ", "1"],
7296 Editable->False]], "Print",
7297 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7298 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7299 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7300 3.79354898730926*^9, 3.823318813850049*^9, 3.8233211721776876`*^9},
7301 CellLabel->
7302 "During evaluation of \
7303In[4]:=",ExpressionUUID->"29770907-bc6b-4e2a-a929-b058506d1eec"],
7304
7305Cell[BoxData["\<\"Please cite\"\>"], "Print",
7306 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7307 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7308 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7309 3.79354898730926*^9, 3.823318813850049*^9, 3.8233211721788607`*^9},
7310 CellLabel->
7311 "During evaluation of \
7312In[4]:=",ExpressionUUID->"52282be9-1018-4d84-b5e0-671859252ced"],
7313
7314Cell[BoxData["\<\"xxx\"\>"], "Print",
7315 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7316 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7317 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7318 3.79354898730926*^9, 3.823318813850049*^9, 3.823321172179901*^9},
7319 CellLabel->
7320 "During evaluation of \
7321In[4]:=",ExpressionUUID->"a11677c5-6678-4f99-b636-3e4e863f12ed"],
7322
7323Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
7324"Print",
7325 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7326 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7327 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7328 3.79354898730926*^9, 3.823318813850049*^9, 3.8233211721808863`*^9},
7329 CellLabel->
7330 "During evaluation of \
7331In[4]:=",ExpressionUUID->"1933dce5-a6ee-4b76-a991-4c7f8ea22886"],
7332
7333Cell[BoxData["\<\"\"\>"], "Print",
7334 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7335 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7336 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7337 3.79354898730926*^9, 3.823318813850049*^9, 3.82332117218188*^9},
7338 CellLabel->
7339 "During evaluation of \
7340In[4]:=",ExpressionUUID->"12956392-089e-4615-8579-1d1a092afe02"],
7341
7342Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
7343 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7344 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7345 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7346 3.79354898730926*^9, 3.823318813850049*^9, 3.8233211721829147`*^9},
7347 CellLabel->
7348 "During evaluation of \
7349In[4]:=",ExpressionUUID->"546ac6e8-7e23-44b4-a649-b393fb1210d6"],
7350
7351Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
7352 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7353 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7354 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7355 3.79354898730926*^9, 3.823318813850049*^9, 3.823321172272314*^9},
7356 CellLabel->
7357 "During evaluation of \
7358In[4]:=",ExpressionUUID->"75241964-576a-4faf-a857-0c011bdba2d2"],
7359
7360Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
7361 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7362 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7363 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7364 3.79354898730926*^9, 3.823318813850049*^9, 3.823321172276301*^9},
7365 CellLabel->
7366 "During evaluation of \
7367In[4]:=",ExpressionUUID->"e971b67c-8225-49ba-b191-dfa45392d032"],
7368
7369Cell[BoxData[
7370 InterpretationBox[
7371 RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"ColoredVector\"\>",
7372 "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
7373 SequenceForm["\nModel ", "ColoredVector", " loaded."],
7374 Editable->False]], "Print",
7375 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7376 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7377 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7378 3.79354898730926*^9, 3.823318813850049*^9, 3.823321172333736*^9},
7379 CellLabel->
7380 "During evaluation of \
7381In[4]:=",ExpressionUUID->"18664c6b-357d-4342-9104-8bb454361735"]
7382}, Open ]],
7383
7384Cell[BoxData[
7385 TemplateBox[{
7386 "Get", "noopen",
7387 "\"Cannot open \
7388\\!\\(\\*RowBox[{\\\"\\\\\\\"DiagonalNP.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 1,
7389 32130052057607472547, "Local"},
7390 "MessageTemplate"]], "Message", "MSG",
7391 CellChangeTimes->{3.823318814044794*^9, 3.823321172360506*^9},
7392 CellLabel->
7393 "During evaluation of \
7394In[4]:=",ExpressionUUID->"43500c43-05bd-4774-a154-19ea36644ac2"],
7395
7396Cell[CellGroupData[{
7397
7398Cell[BoxData[
7399 InterpretationBox[
7400 RowBox[{"\<\"Loading restrictions from \"\>",
7401 "\[InvisibleSpace]", "\<\"DiagonalNP.rst\"\>",
7402 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
7403 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
7404 ImageSizeCache->{209., {2., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7405 "\[InvisibleSpace]", "0"}],
7406 SequenceForm["Loading restrictions from ", "DiagonalNP.rst", " : ",
7407 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 0],
7408 Editable->False]], "Print",
7409 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7410 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7411 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7412 3.79354898730926*^9, 3.823318813850049*^9, 3.8233211730730658`*^9},
7413 CellLabel->
7414 "During evaluation of \
7415In[4]:=",ExpressionUUID->"1bac0ca5-6dea-4116-88f0-e8ebf4cbd88f"],
7416
7417Cell[BoxData[
7418 InterpretationBox[
7419 RowBox[{"\<\"Loading restrictions from \"\>",
7420 "\[InvisibleSpace]", \
7421"\<\"/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst\"\>",
7422 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
7423 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
7424 ImageSizeCache->{209., {2., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7425 "\[InvisibleSpace]", "3"}],
7426 SequenceForm[
7427 "Loading restrictions from ",
7428 "/Users/luc/Computing/feynrules-current/Models/SM/DiagonalCKM.rst", " : ",
7429
7430 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
7431 Editable->False]], "Print",
7432 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7433 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7434 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7435 3.79354898730926*^9, 3.823318813850049*^9, 3.823321173268299*^9},
7436 CellLabel->
7437 "During evaluation of \
7438In[4]:=",ExpressionUUID->"23772da3-20bb-49a3-9791-c8e46321efca"],
7439
7440Cell[BoxData[
7441 InterpretationBox[
7442 RowBox[{"\<\"Loading restrictions from \"\>",
7443 "\[InvisibleSpace]", \
7444"\<\"/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst\"\>",
7445 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
7446 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
7447 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7448 "\[InvisibleSpace]", "18"}],
7449 SequenceForm[
7450 "Loading restrictions from ",
7451 "/Users/luc/Computing/feynrules-current/Models/SM/Massless.rst", " : ",
7452 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
7453 Editable->False]], "Print",
7454 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7455 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7456 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7457 3.79354898730926*^9, 3.823318813850049*^9, 3.823321173480298*^9},
7458 CellLabel->
7459 "During evaluation of \
7460In[4]:=",ExpressionUUID->"535ff223-c7c1-47a2-a6fb-1c9ae3c88d71"]
7461}, Open ]],
7462
7463Cell[BoxData[
7464 TemplateBox[{
7465 "Get", "noopen",
7466 "\"Cannot open \
7467\\!\\(\\*RowBox[{\\\"\\\\\\\"NozRzL.rst\\\\\\\"\\\"}]\\).\"", 2, 6, 2,
7468 32130052057607472547, "Local"},
7469 "MessageTemplate"]], "Message", "MSG",
7470 CellChangeTimes->{3.823318814044794*^9, 3.82332117363945*^9},
7471 CellLabel->
7472 "During evaluation of \
7473In[4]:=",ExpressionUUID->"c7107f3f-28a6-4663-98b0-84bfeae00026"],
7474
7475Cell[CellGroupData[{
7476
7477Cell[BoxData[
7478 InterpretationBox[
7479 RowBox[{"\<\"Loading restrictions from \"\>",
7480 "\[InvisibleSpace]", "\<\"NozRzL.rst\"\>",
7481 "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
7482 DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
7483 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7484 "\[InvisibleSpace]", "18"}],
7485 SequenceForm["Loading restrictions from ", "NozRzL.rst", " : ",
7486 Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
7487 Editable->False]], "Print",
7488 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7489 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7490 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7491 3.79354898730926*^9, 3.823318813850049*^9, 3.823321173730371*^9},
7492 CellLabel->
7493 "During evaluation of \
7494In[4]:=",ExpressionUUID->"38865933-390c-4507-856c-a5e8e928536f"],
7495
7496Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
7497 CellChangeTimes->{3.759474176281584*^9, 3.759474304634947*^9,
7498 3.7594744883064213`*^9, 3.7802041450711203`*^9, 3.780641324784424*^9,
7499 3.780641466131731*^9, 3.7806462133788767`*^9, 3.7806462901581*^9,
7500 3.79354898730926*^9, 3.823318813850049*^9, 3.823321173861953*^9},
7501 CellLabel->
7502 "During evaluation of \
7503In[4]:=",ExpressionUUID->"863cf9a0-ab96-4358-b0d0-9c6d8eec3648"]
7504}, Open ]]
7505}, Open ]],
7506
7507Cell[CellGroupData[{
7508
7509Cell[BoxData[
7510 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
7511
7512 RowBox[{"(*",
7513 RowBox[{
7514 "Checking", " ", "the", " ", "hermiticity", " ", "of", " ", "the", " ",
7515 "model"}], "*)"}], "\[IndentingNewLine]",
7516 RowBox[{
7517 RowBox[{"CheckMassSpectrum", "[", "LagNP", "]"}], "\[IndentingNewLine]",
7518 RowBox[{"CheckHermiticity", "[", "LagNP", "]"}], "\[IndentingNewLine]",
7519 RowBox[{"(*",
7520 RowBox[{"Feynman", " ", "rules"}], "*)"}], "\[IndentingNewLine]",
7521 RowBox[{"vertices", "=",
7522 RowBox[{"FeynmanRules", "[", "LagNP", "]"}]}], "\[IndentingNewLine]",
7523 RowBox[{"(*",
7524 RowBox[{"Getting", " ", "decays"}], "*)"}], "\[IndentingNewLine]",
7525 RowBox[{
7526 RowBox[{"decays", "=",
7527 RowBox[{"ComputeWidths", "[", "vertices", "]"}]}], ";"}],
7528 "\[IndentingNewLine]",
7529 RowBox[{"(*",
7530 RowBox[{"Getting", " ", "UFO"}], "*)"}], "\[IndentingNewLine]",
7531 RowBox[{"WriteUFO", "[",
7532 RowBox[{
7533 RowBox[{"LSM", "+", "LagNP"}], ",",
7534 RowBox[{"Output", "\[Rule]", "\"\<VectorOctet_UFO\>\""}]}],
7535 "]"}]}]}]], "Input",
7536 CellChangeTimes->{{3.7594723247858057`*^9, 3.7594724349408712`*^9},
7537 3.759472503253831*^9, {3.75947256827782*^9, 3.759472569743855*^9}, {
7538 3.759472916998436*^9, 3.7594729172534723`*^9}, {3.7594732513207397`*^9,
7539 3.759473276459257*^9}, {3.759473397881085*^9, 3.759473420215959*^9}, {
7540 3.75947351737363*^9, 3.759473518066074*^9}, {3.759474092352673*^9,
7541 3.7594740929439583`*^9}, {3.7802025333695717`*^9, 3.780202535680215*^9}, {
7542 3.7806461838178673`*^9, 3.780646183997946*^9}},
7543 CellLabel->"In[7]:=",ExpressionUUID->"ada2b80e-48de-4ea4-8904-96bb6ce4269d"],
7544
7545Cell[CellGroupData[{
7546
7547Cell[BoxData[
7548 InterpretationBox[
7549 RowBox[{"\<\"Neglecting all terms with more than \"\>",
7550 "\[InvisibleSpace]", "\<\"2\"\>",
7551 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
7552 SequenceForm["Neglecting all terms with more than ", "2", " particles."],
7553 Editable->False]], "Print",
7554 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7555 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7556 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7557 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7558 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7559 3.823318816238668*^9, 3.823321182661729*^9},
7560 CellLabel->
7561 "During evaluation of \
7562In[7]:=",ExpressionUUID->"60ca7edb-f541-45d3-a4f4-a0581683fe01"],
7563
7564Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
7565 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7566 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7567 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7568 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7569 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7570 3.823318816238668*^9, 3.823321182663863*^9},
7571 CellLabel->
7572 "During evaluation of \
7573In[7]:=",ExpressionUUID->"30eff751-e4cb-4753-b127-3bf15542108f"],
7574
7575Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
7576 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7577 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7578 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7579 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7580 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7581 3.823318816238668*^9, 3.823321182784452*^9},
7582 CellLabel->
7583 "During evaluation of \
7584In[7]:=",ExpressionUUID->"17fc9198-c2a4-42ed-8bef-afd924385c55"],
7585
7586Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
7587values.\"\>"], "Print",
7588 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7589 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7590 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7591 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7592 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7593 3.823318816238668*^9, 3.823321182786417*^9},
7594 CellLabel->
7595 "During evaluation of \
7596In[7]:=",ExpressionUUID->"3a069a5b-10fe-427f-b76e-e78784455ab5"]
7597}, Open ]],
7598
7599Cell[BoxData[
7600 TagBox[GridBox[{
7601 {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
7602"\<\"Model-file value\"\>"},
7603 {"Vo",
7604 SqrtBox[
7605 SuperscriptBox["MVo", "2"]], "3000.`", "3000.`"}
7606 },
7607 GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
7608 GridBoxSpacings->{"Columns" -> {
7609 Offset[0.27999999999999997`], {
7610 Offset[2.0999999999999996`]},
7611 Offset[0.27999999999999997`]}, "Rows" -> {
7612 Offset[0.2], {
7613 Offset[0.4]},
7614 Offset[0.2]}}],
7615 Function[BoxForm`e$,
7616 TableForm[BoxForm`e$]]]], "Output",
7617 CellChangeTimes->{
7618 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
7619 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
7620 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
7621 3.7802041490401077`*^9, 3.780641330330078*^9, 3.7806414692896547`*^9,
7622 3.780646222071496*^9, 3.7806462971590147`*^9, 3.793548992324049*^9,
7623 3.823318816364933*^9, 3.823321182788642*^9},
7624 CellLabel->
7625 "Out[7]//TableForm=",ExpressionUUID->"8ef8e7a9-56ee-4427-b0df-d5abfd004bab"],
7626
7627Cell[CellGroupData[{
7628
7629Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
7630contained in L-HC[L].\"\>"], "Print",
7631 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7632 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7633 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7634 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7635 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7636 3.823318816238668*^9, 3.823321182921542*^9},
7637 CellLabel->
7638 "During evaluation of \
7639In[7]:=",ExpressionUUID->"3abcec94-6ea2-49a7-8449-0bafb455cce5"],
7640
7641Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
7642should be zero.\"\>"], "Print",
7643 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7644 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7645 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7646 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7647 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7648 3.823318816238668*^9, 3.823321182923235*^9},
7649 CellLabel->
7650 "During evaluation of \
7651In[7]:=",ExpressionUUID->"af6a461b-3939-492b-8b91-ade91cf6bf9c"],
7652
7653Cell[BoxData[
7654 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
7655 StripOnInput->False,
7656 LineColor->RGBColor[1, 0.5, 0],
7657 FrontFaceColor->RGBColor[1, 0.5, 0],
7658 BackFaceColor->RGBColor[1, 0.5, 0],
7659 GraphicsColor->RGBColor[1, 0.5, 0],
7660 FontWeight->Bold,
7661 FontColor->RGBColor[1, 0.5, 0]]], "Print",
7662 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7663 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7664 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7665 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7666 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7667 3.823318816238668*^9, 3.823321183262361*^9},
7668 CellLabel->
7669 "During evaluation of \
7670In[7]:=",ExpressionUUID->"e26c5907-a82f-4fc8-b164-a63b2efb9bc1"],
7671
7672Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
7673 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7674 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7675 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7676 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7677 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7678 3.823318816238668*^9, 3.823321183263968*^9},
7679 CellLabel->
7680 "During evaluation of \
7681In[7]:=",ExpressionUUID->"3e56152b-e697-49fe-8e43-6a8d9a48a0d5"],
7682
7683Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
7684 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7685 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7686 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7687 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7688 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7689 3.823318816238668*^9, 3.823321183265332*^9},
7690 CellLabel->
7691 "During evaluation of \
7692In[7]:=",ExpressionUUID->"25f78555-40ab-475f-991a-727683732769"],
7693
7694Cell[BoxData[
7695 InterpretationBox[
7696 RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
7697 SequenceForm[0, " vertices obtained."],
7698 Editable->False]], "Print",
7699 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7700 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7701 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7702 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7703 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7704 3.823318816238668*^9, 3.823321183266581*^9},
7705 CellLabel->
7706 "During evaluation of \
7707In[7]:=",ExpressionUUID->"9009ffd9-f7dc-4d7c-9e73-fa271e58ef90"],
7708
7709Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
7710 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7711 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7712 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7713 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7714 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7715 3.823318816238668*^9, 3.82332118326779*^9},
7716 CellLabel->
7717 "During evaluation of \
7718In[7]:=",ExpressionUUID->"fa5e68f8-6e71-43d4-9a2b-a3092966ad9a"]
7719}, Open ]],
7720
7721Cell[BoxData[
7722 RowBox[{"{", "}"}]], "Output",
7723 CellChangeTimes->{
7724 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
7725 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
7726 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
7727 3.7802041490401077`*^9, 3.780641330330078*^9, 3.7806414692896547`*^9,
7728 3.780646222071496*^9, 3.7806462971590147`*^9, 3.793548992324049*^9,
7729 3.823318816364933*^9, 3.82332118326898*^9},
7730 CellLabel->"Out[8]=",ExpressionUUID->"fe6c443d-05c2-478f-9468-2e0003df89fd"],
7731
7732Cell[CellGroupData[{
7733
7734Cell[BoxData[
7735 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
7736 StripOnInput->False,
7737 LineColor->RGBColor[1, 0.5, 0],
7738 FrontFaceColor->RGBColor[1, 0.5, 0],
7739 BackFaceColor->RGBColor[1, 0.5, 0],
7740 GraphicsColor->RGBColor[1, 0.5, 0],
7741 FontWeight->Bold,
7742 FontColor->RGBColor[1, 0.5, 0]]], "Print",
7743 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7744 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7745 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7746 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7747 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7748 3.823318816238668*^9, 3.823321183396948*^9},
7749 CellLabel->
7750 "During evaluation of \
7751In[7]:=",ExpressionUUID->"00a6be77-ac2a-47ff-90b5-81595f769e8d"],
7752
7753Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
7754 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7755 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7756 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7757 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7758 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7759 3.823318816238668*^9, 3.8233211833984957`*^9},
7760 CellLabel->
7761 "During evaluation of \
7762In[7]:=",ExpressionUUID->"7544f856-0d3a-4483-851c-08669063a7c8"],
7763
7764Cell[BoxData["\<\"Collecting the different structures that enter the \
7765vertex.\"\>"], "Print",
7766 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7767 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7768 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7769 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7770 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7771 3.823318816238668*^9, 3.823321183533587*^9},
7772 CellLabel->
7773 "During evaluation of \
7774In[7]:=",ExpressionUUID->"9af6e530-e70c-4fbd-9772-fdd9ba2d37d9"],
7775
7776Cell[BoxData[
7777 InterpretationBox[
7778 RowBox[{
7779 "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
7780-> starting the computation: \"\>", "\[InvisibleSpace]",
7781 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
7782 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7783 "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
7784 SequenceForm[
7785 3, " possible non-zero vertices have been found -> starting the \
7786computation: ",
7787 Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
7788 Editable->False]], "Print",
7789 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7790 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7791 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7792 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7793 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7794 3.823318816238668*^9, 3.8233211835375853`*^9},
7795 CellLabel->
7796 "During evaluation of \
7797In[7]:=",ExpressionUUID->"2694cb2b-8fc5-4b8b-93c4-64ed18de3872"],
7798
7799Cell[BoxData[
7800 InterpretationBox[
7801 RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
7802 SequenceForm[3, " vertices obtained."],
7803 Editable->False]], "Print",
7804 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
7805 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
7806 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
7807 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
7808 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
7809 3.823318816238668*^9, 3.8233211837594748`*^9},
7810 CellLabel->
7811 "During evaluation of \
7812In[7]:=",ExpressionUUID->"2572328d-4c0d-4324-8812-05d0205bafd3"]
7813}, Open ]],
7814
7815Cell[BoxData[
7816 RowBox[{"{",
7817 RowBox[{
7818 RowBox[{"{",
7819 RowBox[{
7820 RowBox[{"{",
7821 RowBox[{
7822 RowBox[{"{",
7823 RowBox[{"G", ",", "1"}], "}"}], ",",
7824 RowBox[{"{",
7825 RowBox[{"Vo", ",", "2"}], "}"}], ",",
7826 RowBox[{"{",
7827 RowBox[{"Vo", ",", "3"}], "}"}]}], "}"}], ",",
7828 RowBox[{
7829 RowBox[{
7830 SubscriptBox["g", "s"], " ",
7831 SubscriptBox["f",
7832 RowBox[{
7833 SubscriptBox["\<\"a\"\>", "2"], ",",
7834 SubscriptBox["\<\"a\"\>", "1"], ",",
7835 SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7836 SubsuperscriptBox["\<\"p\"\>", "2",
7837 SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
7838 SubscriptBox["\[Eta]",
7839 RowBox[{
7840 SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7841 SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
7842 RowBox[{
7843 SubscriptBox["g", "s"], " ",
7844 SubscriptBox["f",
7845 RowBox[{
7846 SubscriptBox["\<\"a\"\>", "2"], ",",
7847 SubscriptBox["\<\"a\"\>", "1"], ",",
7848 SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7849 SubsuperscriptBox["\<\"p\"\>", "3",
7850 SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
7851 SubscriptBox["\[Eta]",
7852 RowBox[{
7853 SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7854 SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
7855 RowBox[{
7856 SubscriptBox["g", "s"], " ",
7857 SubscriptBox["f",
7858 RowBox[{
7859 SubscriptBox["\<\"a\"\>", "2"], ",",
7860 SubscriptBox["\<\"a\"\>", "1"], ",",
7861 SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7862 SubsuperscriptBox["\<\"p\"\>", "2",
7863 SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
7864 SubscriptBox["\[Eta]",
7865 RowBox[{
7866 SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7867 SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
7868 RowBox[{
7869 SubscriptBox["g", "s"], " ",
7870 SubscriptBox["f",
7871 RowBox[{
7872 SubscriptBox["\<\"a\"\>", "2"], ",",
7873 SubscriptBox["\<\"a\"\>", "1"], ",",
7874 SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7875 SubsuperscriptBox["\<\"p\"\>", "3",
7876 SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
7877 SubscriptBox["\[Eta]",
7878 RowBox[{
7879 SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7880 SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]}], "}"}], ",",
7881 RowBox[{"{",
7882 RowBox[{
7883 RowBox[{"{",
7884 RowBox[{
7885 RowBox[{"{",
7886 RowBox[{"G", ",", "1"}], "}"}], ",",
7887 RowBox[{"{",
7888 RowBox[{"G", ",", "2"}], "}"}], ",",
7889 RowBox[{"{",
7890 RowBox[{"Vo", ",", "3"}], "}"}], ",",
7891 RowBox[{"{",
7892 RowBox[{"Vo", ",", "4"}], "}"}]}], "}"}], ",",
7893 RowBox[{
7894 RowBox[{"\[ImaginaryI]", " ",
7895 SubsuperscriptBox["g", "s", "2"], " ",
7896 SubscriptBox["f",
7897 RowBox[{
7898 SubscriptBox["\<\"a\"\>", "1"], ",",
7899 SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$1"}]], " ",
7900 SubscriptBox["f",
7901 RowBox[{
7902 SubscriptBox["\<\"a\"\>", "2"], ",",
7903 SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$1"}]], " ",
7904 SubscriptBox["\[Eta]",
7905 RowBox[{
7906 SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7907 SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
7908 SubscriptBox["\[Eta]",
7909 RowBox[{
7910 SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7911 SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
7912 RowBox[{"\[ImaginaryI]", " ",
7913 SubsuperscriptBox["g", "s", "2"], " ",
7914 SubscriptBox["f",
7915 RowBox[{
7916 SubscriptBox["\<\"a\"\>", "1"], ",",
7917 SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$1"}]], " ",
7918 SubscriptBox["f",
7919 RowBox[{
7920 SubscriptBox["\<\"a\"\>", "2"], ",",
7921 SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$1"}]], " ",
7922 SubscriptBox["\[Eta]",
7923 RowBox[{
7924 SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7925 SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
7926 SubscriptBox["\[Eta]",
7927 RowBox[{
7928 SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7929 SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
7930 RowBox[{"\[ImaginaryI]", " ",
7931 SubsuperscriptBox["g", "s", "2"], " ",
7932 SubscriptBox["f",
7933 RowBox[{
7934 SubscriptBox["\<\"a\"\>", "1"], ",",
7935 SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$1"}]], " ",
7936 SubscriptBox["f",
7937 RowBox[{
7938 SubscriptBox["\<\"a\"\>", "2"], ",",
7939 SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$1"}]], " ",
7940 SubscriptBox["\[Eta]",
7941 RowBox[{
7942 SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7943 SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
7944 SubscriptBox["\[Eta]",
7945 RowBox[{
7946 SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7947 SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
7948 RowBox[{"\[ImaginaryI]", " ",
7949 SubsuperscriptBox["g", "s", "2"], " ",
7950 SubscriptBox["f",
7951 RowBox[{
7952 SubscriptBox["\<\"a\"\>", "1"], ",",
7953 SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$1"}]], " ",
7954 SubscriptBox["f",
7955 RowBox[{
7956 SubscriptBox["\<\"a\"\>", "2"], ",",
7957 SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$1"}]], " ",
7958 SubscriptBox["\[Eta]",
7959 RowBox[{
7960 SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7961 SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
7962 SubscriptBox["\[Eta]",
7963 RowBox[{
7964 SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7965 SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}]}]}], "}"}], ",",
7966 RowBox[{"{",
7967 RowBox[{
7968 RowBox[{"{",
7969 RowBox[{
7970 RowBox[{"{",
7971 RowBox[{
7972 OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
7973 RowBox[{"{",
7974 RowBox[{"t", ",", "2"}], "}"}], ",",
7975 RowBox[{"{",
7976 RowBox[{"Vo", ",", "3"}], "}"}]}], "}"}], ",",
7977 RowBox[{
7978 RowBox[{"\[ImaginaryI]", " ",
7979 SubscriptBox["g", "\<\"8L\"\>"], " ",
7980 SubsuperscriptBox["T",
7981 RowBox[{
7982 SubscriptBox["\<\"m\"\>", "1"], ",",
7983 SubscriptBox["\<\"m\"\>", "2"]}],
7984 SubscriptBox["\<\"a\"\>", "3"]], " ",
7985 SubscriptBox[
7986 RowBox[{
7987 TemplateBox[{"\[Gamma]",
7988 SubscriptBox["\"\[Mu]\"", "3"]},
7989 "Superscript"], ".",
7990 SubscriptBox["P", "\<\"-\"\>"]}],
7991 RowBox[{
7992 SubscriptBox["\<\"s\"\>", "1"], ",",
7993 SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
7994 RowBox[{"\[ImaginaryI]", " ",
7995 SubscriptBox["g", "\<\"8R\"\>"], " ",
7996 SubsuperscriptBox["T",
7997 RowBox[{
7998 SubscriptBox["\<\"m\"\>", "1"], ",",
7999 SubscriptBox["\<\"m\"\>", "2"]}],
8000 SubscriptBox["\<\"a\"\>", "3"]], " ",
8001 SubscriptBox[
8002 RowBox[{
8003 TemplateBox[{"\[Gamma]",
8004 SubscriptBox["\"\[Mu]\"", "3"]},
8005 "Superscript"], ".",
8006 SubscriptBox["P", "\<\"+\"\>"]}],
8007 RowBox[{
8008 SubscriptBox["\<\"s\"\>", "1"], ",",
8009 SubscriptBox["\<\"s\"\>", "2"]}]]}]}]}], "}"}]}], "}"}]], "Output",
8010 CellChangeTimes->{
8011 3.759472487149548*^9, {3.759472548279285*^9, 3.759472575800432*^9},
8012 3.75947307066348*^9, 3.759473286055393*^9, 3.7594734306190653`*^9,
8013 3.759474184074905*^9, 3.759474309300272*^9, 3.759474496372921*^9,
8014 3.7802041490401077`*^9, 3.780641330330078*^9, 3.7806414692896547`*^9,
8015 3.780646222071496*^9, 3.7806462971590147`*^9, 3.793548992324049*^9,
8016 3.823318816364933*^9, 3.823321183762224*^9},
8017 CellLabel->"Out[9]=",ExpressionUUID->"0ce58716-9b82-46fd-a390-5f3c300753aa"],
8018
8019Cell[CellGroupData[{
8020
8021Cell[BoxData[
8022 InterpretationBox[
8023 RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
8024 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
8025 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8026 "\[InvisibleSpace]", "3"}],
8027 SequenceForm["Flavor expansion of the vertices: ",
8028 Dynamic[FeynRules`FR$Count1], " / ", 3],
8029 Editable->False]], "Print",
8030 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8031 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8032 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8033 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8034 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8035 3.823318816238668*^9, 3.823321183838229*^9},
8036 CellLabel->
8037 "During evaluation of \
8038In[7]:=",ExpressionUUID->"20b95ae6-9032-4b09-892b-67594c12dd2c"],
8039
8040Cell[BoxData[
8041 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
8042decays: \"\>",
8043 StripOnInput->False,
8044 LineColor->RGBColor[1, 0.5, 0],
8045 FrontFaceColor->RGBColor[1, 0.5, 0],
8046 BackFaceColor->RGBColor[1, 0.5, 0],
8047 GraphicsColor->RGBColor[1, 0.5, 0],
8048 FontWeight->Bold,
8049 FontColor->RGBColor[1, 0.5, 0]]], "Print",
8050 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8051 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8052 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8053 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8054 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8055 3.823318816238668*^9, 3.8233211838848352`*^9},
8056 CellLabel->
8057 "During evaluation of \
8058In[7]:=",ExpressionUUID->"a465d649-d0f3-4ce3-a1f6-1645bd2262b2"],
8059
8060Cell[BoxData[
8061 InterpretationBox[
8062 RowBox[{
8063 DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
8064 ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8065 "\[InvisibleSpace]", "1"}],
8066 SequenceForm[
8067 Dynamic[FeynRules`FR$DecayCounter], " / ", 1],
8068 Editable->False]], "Print",
8069 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8070 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8071 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8072 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8073 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8074 3.823318816238668*^9, 3.823321183888386*^9},
8075 CellLabel->
8076 "During evaluation of \
8077In[7]:=",ExpressionUUID->"f0cf56c5-404c-4ef0-93b4-e21f43c83d44"],
8078
8079Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
8080"Print",
8081 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8082 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8083 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8084 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8085 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8086 3.823318816238668*^9, 3.823321185801382*^9},
8087 CellLabel->
8088 "During evaluation of \
8089In[7]:=",ExpressionUUID->"6c7ec2e9-43a8-4cce-8726-5d51e9cb5d16"],
8090
8091Cell[BoxData[
8092 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
8093 StripOnInput->False,
8094 LineColor->RGBColor[1, 0.5, 0],
8095 FrontFaceColor->RGBColor[1, 0.5, 0],
8096 BackFaceColor->RGBColor[1, 0.5, 0],
8097 GraphicsColor->RGBColor[1, 0.5, 0],
8098 FontWeight->Bold,
8099 FontColor->RGBColor[1, 0.5, 0]]], "Print",
8100 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8101 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8102 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8103 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8104 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8105 3.823318816238668*^9, 3.823321186216734*^9},
8106 CellLabel->
8107 "During evaluation of \
8108In[7]:=",ExpressionUUID->"68559266-de35-46c3-8d2b-4c214867b292"],
8109
8110Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
8111 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8112 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8113 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8114 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8115 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8116 3.823318816238668*^9, 3.823321186218287*^9},
8117 CellLabel->
8118 "During evaluation of \
8119In[7]:=",ExpressionUUID->"04e965aa-3cb8-47ac-a1c1-f38179f5ccad"],
8120
8121Cell[BoxData[
8122 InterpretationBox[
8123 RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
8124 "\[InvisibleSpace]", "\<\" cores\"\>"}],
8125 SequenceForm["Expanding the indices over ", 2, " cores"],
8126 Editable->False]], "Print",
8127 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8128 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8129 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8130 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8131 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8132 3.823318816238668*^9, 3.8233211862193203`*^9},
8133 CellLabel->
8134 "During evaluation of \
8135In[7]:=",ExpressionUUID->"b58c3a8f-7910-4ce4-81d4-33bca008bd1c"],
8136
8137Cell[BoxData["\<\"Collecting the different structures that enter the \
8138vertex.\"\>"], "Print",
8139 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8140 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8141 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8142 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8143 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8144 3.823318816238668*^9, 3.8233211933572083`*^9},
8145 CellLabel->
8146 "During evaluation of \
8147In[7]:=",ExpressionUUID->"f29867e0-e4c0-4e87-9f46-e8961c88a775"],
8148
8149Cell[BoxData[
8150 InterpretationBox[
8151 RowBox[{
8152 "101", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
8153found -> starting the computation: \"\>", "\[InvisibleSpace]",
8154 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
8155 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8156 "\[InvisibleSpace]", "101", "\[InvisibleSpace]", "\<\".\"\>"}],
8157 SequenceForm[
8158 101, " possible non-zero vertices have been found -> starting the \
8159computation: ",
8160 Dynamic[FeynRules`FR$FeynmanRules], " / ", 101, "."],
8161 Editable->False]], "Print",
8162 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8163 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8164 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8165 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8166 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8167 3.823318816238668*^9, 3.823321193408105*^9},
8168 CellLabel->
8169 "During evaluation of \
8170In[7]:=",ExpressionUUID->"36a20ce5-bb81-4082-ae00-06115a9ff8cf"],
8171
8172Cell[BoxData[
8173 InterpretationBox[
8174 RowBox[{"96", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
8175 SequenceForm[96, " vertices obtained."],
8176 Editable->False]], "Print",
8177 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8178 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8179 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8180 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8181 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8182 3.823318816238668*^9, 3.823321197413999*^9},
8183 CellLabel->
8184 "During evaluation of \
8185In[7]:=",ExpressionUUID->"45f3035d-3f4e-4487-9929-d78b7a382970"],
8186
8187Cell[BoxData[
8188 InterpretationBox[
8189 RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
8190 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
8191 "\[InvisibleSpace]",
8192 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
8193 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8194 "\[InvisibleSpace]", "96"}],
8195 SequenceForm[
8196 "Flavor expansion of the vertices distributed over ", 2, " cores: ",
8197 Dynamic[FeynRules`FR$Count1], " / ", 96],
8198 Editable->False]], "Print",
8199 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8200 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8201 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8202 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8203 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8204 3.823318816238668*^9, 3.823321199498555*^9},
8205 CellLabel->
8206 "During evaluation of \
8207In[7]:=",ExpressionUUID->"1d19f595-890e-4127-84e6-1f17a16894fd"],
8208
8209Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
8210 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8211 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8212 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8213 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8214 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8215 3.823318816238668*^9, 3.8233212059408703`*^9},
8216 CellLabel->
8217 "During evaluation of \
8218In[7]:=",ExpressionUUID->"0e9481d3-3a08-4256-a0fa-0e22c1877880"],
8219
8220Cell[BoxData[
8221 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
8222decays: \"\>",
8223 StripOnInput->False,
8224 LineColor->RGBColor[1, 0.5, 0],
8225 FrontFaceColor->RGBColor[1, 0.5, 0],
8226 BackFaceColor->RGBColor[1, 0.5, 0],
8227 GraphicsColor->RGBColor[1, 0.5, 0],
8228 FontWeight->Bold,
8229 FontColor->RGBColor[1, 0.5, 0]]], "Print",
8230 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8231 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8232 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8233 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8234 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8235 3.823318816238668*^9, 3.823321205961521*^9},
8236 CellLabel->
8237 "During evaluation of \
8238In[7]:=",ExpressionUUID->"17810a74-f64f-4a52-904d-d99b6aa08c29"],
8239
8240Cell[BoxData[
8241 InterpretationBox[
8242 RowBox[{
8243 DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
8244 ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8245 "\[InvisibleSpace]", "41"}],
8246 SequenceForm[
8247 Dynamic[PRIVATE`mycounter], " / ", 41],
8248 Editable->False]], "Print",
8249 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8250 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8251 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8252 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8253 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8254 3.823318816238668*^9, 3.823321206012177*^9},
8255 CellLabel->
8256 "During evaluation of \
8257In[7]:=",ExpressionUUID->"6bfc4ad6-449c-470d-97d7-3ae3b5c764ce"],
8258
8259Cell[BoxData[
8260 InterpretationBox[
8261 RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
8262 "1.623191`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
8263 SequenceForm["Squared matrix elent compute in ", 1.623191, " seconds."],
8264 Editable->False]], "Print",
8265 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8266 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8267 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8268 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8269 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8270 3.823318816238668*^9, 3.823321212786232*^9},
8271 CellLabel->
8272 "During evaluation of \
8273In[7]:=",ExpressionUUID->"957a7ba8-f247-4691-8d68-9ebca5704951"]
8274}, Open ]],
8275
8276Cell[BoxData[
8277 TemplateBox[{
8278 "Decay", "Overwrite", "\"Warning: Previous results will be overwritten.\"",
8279 2, 11, 3, 32130052057607472547, "Local", "FeynRules`Decay"},
8280 "MessageTemplate2"]], "Message", "MSG",
8281 CellChangeTimes->{3.780646315519334*^9, 3.793549024417037*^9,
8282 3.82331884623835*^9, 3.823321212812614*^9},
8283 CellLabel->
8284 "During evaluation of \
8285In[7]:=",ExpressionUUID->"777d77dc-1a04-48ff-a6a8-957a4d701dc4"],
8286
8287Cell[CellGroupData[{
8288
8289Cell[BoxData[
8290 InterpretationBox[
8291 RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
8292 "0.015368`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
8293 SequenceForm["Decay widths computed in ", 0.015368, " seconds."],
8294 Editable->False]], "Print",
8295 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8296 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8297 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8298 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8299 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8300 3.823318816238668*^9, 3.8233212128204737`*^9},
8301 CellLabel->
8302 "During evaluation of \
8303In[7]:=",ExpressionUUID->"c0670a75-1122-4f99-aa7c-bd0371916922"],
8304
8305Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
8306 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8307 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8308 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8309 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8310 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8311 3.823318816238668*^9, 3.823321212821978*^9},
8312 CellLabel->
8313 "During evaluation of \
8314In[7]:=",ExpressionUUID->"b75e6f93-b37b-4276-b1a9-1bf0e585de78"],
8315
8316Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
8317"Print",
8318 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8319 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8320 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8321 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8322 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8323 3.823318816238668*^9, 3.823321212913818*^9},
8324 CellLabel->
8325 "During evaluation of \
8326In[7]:=",ExpressionUUID->"c4bab9a9-1432-4b17-afad-b3e0bed156c9"],
8327
8328Cell[BoxData[
8329 InterpretationBox[
8330 RowBox[{"\<\"Splitting of vertices distributed over \"\>",
8331 "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
8332 SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
8333 Editable->False]], "Print",
8334 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8335 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8336 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8337 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8338 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8339 3.823318816238668*^9, 3.8233212129441557`*^9},
8340 CellLabel->
8341 "During evaluation of \
8342In[7]:=",ExpressionUUID->"26e020ab-ef72-4338-8d2e-73588791c498"],
8343
8344Cell[BoxData["\<\"before\"\>"], "Print",
8345 ShowCellLabel->True,
8346 CellChangeTimes->{3.823321214692285*^9},
8347 CellLabel->
8348 "(kernel 2)",ExpressionUUID->"dd277b44-ee19-4bd8-96b8-7649e477f036"],
8349
8350Cell[BoxData["\<\"before\"\>"], "Print",
8351 ShowCellLabel->True,
8352 CellChangeTimes->{3.823321214717079*^9},
8353 CellLabel->
8354 "(kernel 1)",ExpressionUUID->"e9d6d0ed-0bd0-42dd-bcc7-fafc6931bbe7"],
8355
8356Cell[BoxData["\<\"true\"\>"], "Print",
8357 ShowCellLabel->True,
8358 CellChangeTimes->{3.823321214775916*^9},
8359 CellLabel->
8360 "(kernel 2)",ExpressionUUID->"2719f187-7768-4195-8b59-abb64ddb2a94"],
8361
8362Cell[BoxData["\<\"true\"\>"], "Print",
8363 ShowCellLabel->True,
8364 CellChangeTimes->{3.823321214795871*^9},
8365 CellLabel->
8366 "(kernel 1)",ExpressionUUID->"d62e7e14-fbd0-426d-b901-44367b6f5b01"],
8367
8368Cell[BoxData[
8369 InterpretationBox[
8370 RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
8371 DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
8372 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
8373 "\[InvisibleSpace]", "122", "\[InvisibleSpace]", "\<\" .\"\>"}],
8374 SequenceForm[" - Optimizing: ",
8375 Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 122, " ."],
8376 Editable->False]], "Print",
8377 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8378 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8379 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8380 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8381 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8382 3.823318816238668*^9, 3.823321214980999*^9},
8383 CellLabel->
8384 "During evaluation of \
8385In[7]:=",ExpressionUUID->"3be7425b-beb9-44e3-a5ed-80013c789199"],
8386
8387Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
8388 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8389 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8390 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8391 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8392 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8393 3.823318816238668*^9, 3.823321215087007*^9},
8394 CellLabel->
8395 "During evaluation of \
8396In[7]:=",ExpressionUUID->"c6a34b83-8ccf-492b-b7ab-3d297e88f6c7"],
8397
8398Cell[BoxData["\<\"Done!\"\>"], "Print",
8399 CellChangeTimes->{{3.759472546860662*^9, 3.7594725758553143`*^9},
8400 3.7594730661954308`*^9, 3.759473284825961*^9, 3.759473429361281*^9,
8401 3.759474183804118*^9, 3.759474309011127*^9, 3.759474496097642*^9,
8402 3.7802041488040752`*^9, 3.7806413302733603`*^9, 3.78064146921642*^9,
8403 3.780646222005781*^9, 3.780646297080798*^9, 3.793548992182836*^9,
8404 3.823318816238668*^9, 3.8233212152049103`*^9},
8405 CellLabel->
8406 "During evaluation of \
8407In[7]:=",ExpressionUUID->"cd04bdb0-a386-40ac-9f77-a4305dc68aef"]
8408}, Open ]]
8409}, Open ]],
8410
8411Cell[CellGroupData[{
8412
8413Cell[BoxData[
8414 RowBox[{"2", "*",
8415 RowBox[{"Pi", "/", "180."}]}]], "Input",
8416 CellChangeTimes->{{3.793610307845633*^9, 3.793610320673718*^9}},
8417 CellLabel->"In[13]:=",ExpressionUUID->"9b3e8b3f-1e6b-480c-8d31-b0341a561a01"],
8418
8419Cell[BoxData[
8420 FormBox["0.03490658503988659`", TraditionalForm]], "Output",
8421 CellChangeTimes->{{3.7936103177433167`*^9, 3.7936103210591993`*^9}},
8422 CellLabel->"Out[13]=",ExpressionUUID->"11883441-ee12-4ae9-93a9-33ef38fea381"]
8423}, Open ]]
8424}, Closed]]
8425},
8426WindowSize->{1220, 650},
8427WindowMargins->{{Automatic, 97}, {Automatic, 51}},
8428PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> True}},
8429ShowSelection->True,
8430FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
84312018)",
8432StyleDefinitions->"Default.nb"
8433]
8434(* End of Notebook Content *)
8435
8436(* Internal cache information *)
8437(*CellTagsOutline
8438CellTagsIndex->{}
8439*)
8440(*CellTagsIndex
8441CellTagsIndex->{}
8442*)
8443(*NotebookFileOutline
8444Notebook[{
8445Cell[400, 13, 135, 3, 31, "Input",ExpressionUUID->"fdccdbba-01c0-464f-bb10-b61e7821bc9f"],
8446Cell[CellGroupData[{
8447Cell[560, 20, 849, 15, 70, "Input",ExpressionUUID->"da06996d-8dd9-43cf-ab0a-fc63da679325"],
8448Cell[CellGroupData[{
8449Cell[1434, 39, 426, 7, 24, "Print",ExpressionUUID->"f0055f3c-041e-4825-8498-2737d1944f4d"],
8450Cell[1863, 48, 707, 14, 24, "Print",ExpressionUUID->"ac6f7fea-8ea2-4ea5-ae9b-bf6b2b587650"],
8451Cell[2573, 64, 474, 8, 24, "Print",ExpressionUUID->"6ccaee93-bfde-4434-b058-69b44b14d86a"],
8452Cell[3050, 74, 412, 7, 24, "Print",ExpressionUUID->"a3b907c5-3e6d-4d6b-a4fc-eba5daebf7ad"],
8453Cell[3465, 83, 421, 7, 24, "Print",ExpressionUUID->"7f0cefcb-a6fe-46a9-96e5-a0e46d7126f6"],
8454Cell[3889, 92, 472, 8, 24, "Print",ExpressionUUID->"5ab7995d-5400-4b6a-8bb8-ae2afbe76837"],
8455Cell[4364, 102, 475, 8, 24, "Print",ExpressionUUID->"f326405f-85f9-4ebc-9d5d-aa6de9562eff"],
8456Cell[4842, 112, 410, 7, 24, "Print",ExpressionUUID->"f755f5d8-5ddd-425d-9e53-d1bde84e61cd"],
8457Cell[5255, 121, 442, 7, 24, "Print",ExpressionUUID->"4a147ace-87fc-471f-9a46-041aa04f5e4e"],
8458Cell[5700, 130, 412, 7, 24, "Print",ExpressionUUID->"59f64a11-e010-4a52-9c4d-417844273108"],
8459Cell[6115, 139, 479, 8, 24, "Print",ExpressionUUID->"254490e2-2258-4a76-a9f0-3cf65f285cc0"]
8460}, Open ]]
8461}, Open ]],
8462Cell[CellGroupData[{
8463Cell[6643, 153, 310, 5, 68, "Section",ExpressionUUID->"b3481f82-8d60-422a-96f3-b2a3114db2fa"],
8464Cell[CellGroupData[{
8465Cell[6978, 162, 1224, 25, 89, "Input",ExpressionUUID->"a151022a-73a9-4c71-aefa-0f58c7755135"],
8466Cell[CellGroupData[{
8467Cell[8227, 191, 797, 12, 24, "Print",ExpressionUUID->"95778f43-7167-45e5-9140-e7dd5e9ee053"],
8468Cell[9027, 205, 813, 12, 24, "Print",ExpressionUUID->"01c4a01b-c595-4038-94ce-b141928d71b3"],
8469Cell[9843, 219, 782, 12, 24, "Print",ExpressionUUID->"0752f219-72bb-4993-8c87-006bcdce98e2"],
8470Cell[10628, 233, 919, 16, 24, "Print",ExpressionUUID->"0912417c-4b5d-43b1-b755-a8df303586c7"],
8471Cell[11550, 251, 821, 13, 24, "Print",ExpressionUUID->"4dd1bbb4-d053-48e9-983c-008093dcd906"],
8472Cell[12374, 266, 775, 12, 24, "Print",ExpressionUUID->"33b664d7-1b54-4d25-8491-d28c523061ae"],
8473Cell[13152, 280, 805, 12, 24, "Print",ExpressionUUID->"54564307-24e5-41dc-a375-0182d87750fa"],
8474Cell[13960, 294, 806, 12, 24, "Print",ExpressionUUID->"0ce0f80b-f338-4ee4-8fb1-dfd032c7311e"],
8475Cell[14769, 308, 804, 12, 24, "Print",ExpressionUUID->"ddfdffd8-df1f-4fc9-9f98-cca03cd8d3f1"],
8476Cell[15576, 322, 973, 17, 44, "Print",ExpressionUUID->"95846e63-1a81-4ed5-8268-490959a8b65a"]
8477}, Open ]],
8478Cell[16564, 342, 366, 10, 24, "Message",ExpressionUUID->"c6cd31cb-9d7b-4b45-868e-9a40799a2971"],
8479Cell[CellGroupData[{
8480Cell[16955, 356, 1262, 22, 24, "Print",ExpressionUUID->"d6ef5676-e193-492b-9d0c-aa5b755d815f"],
8481Cell[18220, 380, 1375, 26, 24, "Print",ExpressionUUID->"f99c06cd-5ebb-4c9c-9457-e0cb39f2274c"],
8482Cell[19598, 408, 1367, 25, 24, "Print",ExpressionUUID->"2e7659b5-e10e-4951-b1c4-9d633d0b5ee0"]
8483}, Open ]],
8484Cell[20980, 436, 362, 10, 24, "Message",ExpressionUUID->"0f0c88f7-1899-436d-afc2-0fa249eeba3c"],
8485Cell[CellGroupData[{
8486Cell[21367, 450, 1257, 22, 24, "Print",ExpressionUUID->"64395f5b-2afb-4ea0-b9b8-7cc3eb24ff1f"],
8487Cell[22627, 474, 793, 12, 24, "Print",ExpressionUUID->"9ff08b4b-8cbe-49e5-afba-15e4ac071b2b"]
8488}, Open ]]
8489}, Open ]],
8490Cell[CellGroupData[{
8491Cell[23469, 492, 1921, 38, 241, "Input",ExpressionUUID->"03056f62-69bb-4c71-aee4-bbee43698579"],
8492Cell[CellGroupData[{
8493Cell[25415, 534, 1336, 23, 24, "Print",ExpressionUUID->"fbb8926c-b7bb-4fc9-b48c-75bef0b55969"],
8494Cell[26754, 559, 1105, 17, 24, "Print",ExpressionUUID->"34b5ea81-1d48-4051-8e98-ac97560398af"],
8495Cell[27862, 578, 1168, 18, 24, "Print",ExpressionUUID->"523f8146-21c0-4137-946a-4ddbddce8a40"],
8496Cell[29033, 598, 1161, 18, 24, "Print",ExpressionUUID->"aeeb5020-77c8-4f2f-81a5-47b829f22d5b"],
8497Cell[30197, 618, 1357, 25, 24, "Print",ExpressionUUID->"b3bf5f67-ab7c-4320-befd-1fd1f2179d04"],
8498Cell[31557, 645, 1112, 17, 24, "Print",ExpressionUUID->"0627a51a-82ed-421e-9566-988135b78710"],
8499Cell[32672, 664, 1103, 17, 24, "Print",ExpressionUUID->"1ee17a3b-2080-45e6-9e59-70313e158549"],
8500Cell[33778, 683, 1225, 21, 24, "Print",ExpressionUUID->"ffc68ecd-9948-4b2b-9216-2018aa78063c"],
8501Cell[35006, 706, 1113, 17, 24, "Print",ExpressionUUID->"eb622903-ca0e-43fe-a842-9dda1637d536"]
8502}, Open ]],
8503Cell[36134, 726, 1101, 17, 31, "Output",ExpressionUUID->"69b546e8-797c-4853-9f69-3d9cb3d0b809"],
8504Cell[CellGroupData[{
8505Cell[37260, 747, 1357, 25, 24, "Print",ExpressionUUID->"93979763-f709-4c8d-a3d5-000bf40c282b"],
8506Cell[38620, 774, 1112, 17, 24, "Print",ExpressionUUID->"3f2cdcdb-23a8-4a71-a107-fd4dee71a386"],
8507Cell[39735, 793, 1147, 18, 24, "Print",ExpressionUUID->"a6cfe812-a410-4164-a0ba-828ee81ccd3c"],
8508Cell[40885, 813, 1621, 29, 24, "Print",ExpressionUUID->"6d2b45b5-a06a-477d-9a57-ac8c3d104165"],
8509Cell[42509, 844, 1103, 17, 24, "Print",ExpressionUUID->"c7cfa345-0f45-4172-a9de-13798cd87cb8"]
8510}, Open ]],
8511Cell[43627, 864, 20922, 581, 354, "Output",ExpressionUUID->"cee74966-eddc-4886-b341-a830beb25fff"],
8512Cell[CellGroupData[{
8513Cell[64574, 1449, 1454, 25, 24, "Print",ExpressionUUID->"6709e98f-b023-4100-812a-03fbdbcb992c"],
8514Cell[66031, 1476, 1393, 26, 24, "Print",ExpressionUUID->"57b3a797-0742-4593-96e3-8704eb937ef4"],
8515Cell[67427, 1504, 1363, 25, 24, "Print",ExpressionUUID->"7fcdf6bc-b740-4e1c-9198-555afb6674cc"],
8516Cell[68793, 1531, 1134, 18, 24, "Print",ExpressionUUID->"cd8b1073-26d3-430c-97bd-bfbffd6359f3"],
8517Cell[69930, 1551, 1357, 25, 24, "Print",ExpressionUUID->"2246c720-879a-4ea9-a2f3-6ba5703bb56c"],
8518Cell[71290, 1578, 1112, 17, 24, "Print",ExpressionUUID->"39955d8f-c7e7-4d4d-9700-e78881dbd766"],
8519Cell[72405, 1597, 1293, 22, 24, "Print",ExpressionUUID->"ba2eaa1a-d79c-4c6a-96c5-c9b13bd4291a"],
8520Cell[73701, 1621, 1145, 18, 24, "Print",ExpressionUUID->"370169cf-defd-498d-9f3c-6633d1da92d8"],
8521Cell[74849, 1641, 1626, 29, 24, "Print",ExpressionUUID->"51fd19c8-77c4-4e69-90ca-153ad9b091e3"],
8522Cell[76478, 1672, 1227, 21, 24, "Print",ExpressionUUID->"5905b044-a0cf-403f-8151-3e2482819230"],
8523Cell[77708, 1695, 1581, 28, 24, "Print",ExpressionUUID->"fbfd73d5-0968-4bdd-9f20-dee58fd0c4a5"],
8524Cell[79292, 1725, 1128, 17, 24, "Print",ExpressionUUID->"dc6a1bc6-6003-4aa0-bac0-50dd9bfdf533"],
8525Cell[80423, 1744, 1393, 26, 24, "Print",ExpressionUUID->"121561c0-5b80-44e1-adf9-b7eaeca71fc3"],
8526Cell[81819, 1772, 1365, 25, 24, "Print",ExpressionUUID->"58a10044-15f6-4fcc-8f05-faa783703f08"],
8527Cell[83187, 1799, 1325, 22, 24, "Print",ExpressionUUID->"1caf2511-dec0-42f3-a2d9-1d29ed9905f3"],
8528Cell[84515, 1823, 1311, 22, 24, "Print",ExpressionUUID->"a926d3f6-8cfd-4612-b804-177ef44a9be1"],
8529Cell[85829, 1847, 1109, 17, 24, "Print",ExpressionUUID->"577f54a4-10e4-4b0f-ba72-31472ba4a06d"],
8530Cell[86941, 1866, 1358, 25, 24, "Print",ExpressionUUID->"5b5b12ba-4425-40fb-9951-a9eefbae5243"],
8531Cell[88302, 1893, 1133, 18, 24, "Print",ExpressionUUID->"c20995c8-071d-4699-bf20-cc0849b4ac0f"],
8532Cell[89438, 1913, 1324, 22, 24, "Print",ExpressionUUID->"e5fe8269-b8f2-4df4-878e-a9ecd9d30a70"],
8533Cell[90765, 1937, 188, 4, 24, "Print",ExpressionUUID->"b3f05a75-ea77-41e2-9a6b-8686e706ff06"],
8534Cell[90956, 1943, 188, 4, 24, "Print",ExpressionUUID->"85cce018-9fb0-46b4-8547-d0ac350f18a8"],
8535Cell[91147, 1949, 186, 4, 24, "Print",ExpressionUUID->"dadf5961-a6db-467e-b163-0cc795cbedc7"],
8536Cell[91336, 1955, 186, 4, 24, "Print",ExpressionUUID->"f2292f9e-2463-4a5c-9a60-666e9a3a52af"],
8537Cell[91525, 1961, 1484, 25, 24, "Print",ExpressionUUID->"4f196665-b484-4d78-8b24-847440bccc97"],
8538Cell[93012, 1988, 1105, 17, 24, "Print",ExpressionUUID->"0eea4daf-4fb9-4129-8161-8e5e6e1ceb73"],
8539Cell[94120, 2007, 1090, 17, 24, "Print",ExpressionUUID->"2b220bdb-5764-4793-bf68-8514128ebe99"]
8540}, Open ]]
8541}, Open ]]
8542}, Closed]],
8543Cell[CellGroupData[{
8544Cell[95271, 2031, 159, 3, 38, "Section",ExpressionUUID->"2336ad77-5f71-45d3-aa04-279489ef8eca"],
8545Cell[CellGroupData[{
8546Cell[95455, 2038, 928, 21, 89, "Input",ExpressionUUID->"6e6925aa-c8eb-43ad-abc2-dacc15d02aaf"],
8547Cell[CellGroupData[{
8548Cell[96408, 2063, 444, 8, 24, "Print",ExpressionUUID->"9a62a909-12f2-44a3-8773-93d18c5c2b1d"],
8549Cell[96855, 2073, 462, 8, 24, "Print",ExpressionUUID->"9ee8e020-a295-44ad-bc6f-d583c01555ce"],
8550Cell[97320, 2083, 431, 8, 24, "Print",ExpressionUUID->"0442bb81-4467-4c21-ab2f-a336184b17fa"],
8551Cell[97754, 2093, 437, 8, 24, "Print",ExpressionUUID->"805612bf-1fab-4a52-b88a-e0d6808b0a0d"],
8552Cell[98194, 2103, 564, 12, 24, "Print",ExpressionUUID->"e6c034fd-bad3-41ac-b676-02e85b74c603"],
8553Cell[98761, 2117, 433, 8, 24, "Print",ExpressionUUID->"99b5201b-6085-4655-9e01-cad45555542d"],
8554Cell[99197, 2127, 424, 8, 24, "Print",ExpressionUUID->"c491350f-1df3-4b74-ab28-358cd86c5201"],
8555Cell[99624, 2137, 470, 9, 24, "Print",ExpressionUUID->"214cbacc-e444-4b72-a7de-425d51690ec8"],
8556Cell[100097, 2148, 422, 8, 24, "Print",ExpressionUUID->"d7e9ded2-258f-4b20-ba47-aa8275111db1"],
8557Cell[100522, 2158, 452, 8, 24, "Print",ExpressionUUID->"ea277507-89e8-4bb9-a699-7eee48ce6e92"],
8558Cell[100977, 2168, 455, 8, 24, "Print",ExpressionUUID->"88730290-de5d-4ed0-9381-e16d63b5ac3a"],
8559Cell[101435, 2178, 453, 8, 24, "Print",ExpressionUUID->"d0cf44ca-4d37-45c8-abce-19a1ba878421"],
8560Cell[101891, 2188, 660, 14, 44, "Print",ExpressionUUID->"fbbcf15b-f544-490e-a55c-29942c64c954"]
8561}, Open ]],
8562Cell[102566, 2205, 412, 11, 35, "Message",ExpressionUUID->"2e49b92b-b29f-4f45-ab5a-8d3cc408e5c6"],
8563Cell[CellGroupData[{
8564Cell[103003, 2220, 911, 18, 24, "Print",ExpressionUUID->"d8866ed9-a360-4675-b24c-f27a059dbf18"],
8565Cell[103917, 2240, 1024, 22, 24, "Print",ExpressionUUID->"a7f775eb-8369-4c90-b394-f90b71bb3dbb"],
8566Cell[104944, 2264, 1015, 21, 24, "Print",ExpressionUUID->"11a70b88-498c-499b-bae9-94ddbb43af81"]
8567}, Open ]],
8568Cell[105974, 2288, 408, 11, 35, "Message",ExpressionUUID->"d76313b5-3a41-4f63-bed5-32fed241325e"],
8569Cell[CellGroupData[{
8570Cell[106407, 2303, 905, 18, 24, "Print",ExpressionUUID->"2963a4b9-5579-4ef4-ba60-6261b133f279"],
8571Cell[107315, 2323, 442, 8, 24, "Print",ExpressionUUID->"fa91b802-425e-4ead-b7b4-2618a11fc037"]
8572}, Open ]]
8573}, Open ]],
8574Cell[CellGroupData[{
8575Cell[107806, 2337, 1551, 32, 222, "Input",ExpressionUUID->"f035415b-5280-438a-b376-e7fcaafbf63b"],
8576Cell[CellGroupData[{
8577Cell[109382, 2373, 701, 14, 24, "Print",ExpressionUUID->"50267ecd-6913-4322-97e9-6c181ee62a96"],
8578Cell[110086, 2389, 478, 8, 24, "Print",ExpressionUUID->"a2917d31-c659-454a-8b60-e33dc1af4bef"],
8579Cell[110567, 2399, 472, 8, 24, "Print",ExpressionUUID->"493be979-5bcf-4e6b-908c-9fe6ed32d553"],
8580Cell[111042, 2409, 513, 9, 24, "Print",ExpressionUUID->"666fcd66-bf82-4c9a-851c-eaf4742466ad"]
8581}, Open ]],
8582Cell[111570, 2421, 1011, 25, 62, "Output",ExpressionUUID->"f275f380-9faa-4d3d-b1a5-a98603e7d45e"],
8583Cell[CellGroupData[{
8584Cell[112606, 2450, 531, 9, 24, "Print",ExpressionUUID->"c6df1072-941a-4bdd-b231-d81e56aa235c"],
8585Cell[113140, 2461, 527, 9, 24, "Print",ExpressionUUID->"93dca42b-7f46-41cd-9e60-56b9c569d800"],
8586Cell[113670, 2472, 722, 16, 24, "Print",ExpressionUUID->"1ee14561-dec5-49b9-b234-a71a75e75b71"],
8587Cell[114395, 2490, 477, 8, 24, "Print",ExpressionUUID->"1c240cbd-1f6a-4245-bae0-1d4df34ab7d8"],
8588Cell[114875, 2500, 466, 8, 24, "Print",ExpressionUUID->"a2bb2c75-0e75-4a76-86a4-6056799cfbd1"],
8589Cell[115344, 2510, 590, 12, 24, "Print",ExpressionUUID->"f4db4e38-1ae7-4a7c-b70f-d43590e5fbf4"],
8590Cell[115937, 2524, 480, 8, 24, "Print",ExpressionUUID->"ebe543cf-04e5-4720-9783-423ccff11c04"]
8591}, Open ]],
8592Cell[116432, 2535, 453, 8, 31, "Output",ExpressionUUID->"98f2ab3f-e450-4b0c-a260-1c9b17046a89"],
8593Cell[CellGroupData[{
8594Cell[116910, 2547, 722, 16, 24, "Print",ExpressionUUID->"c169dcec-be52-4e29-b52d-671062145d39"],
8595Cell[117635, 2565, 476, 8, 24, "Print",ExpressionUUID->"eba6af1e-9194-4afb-aa0d-a7a1b0dd3eb7"],
8596Cell[118114, 2575, 512, 9, 24, "Print",ExpressionUUID->"84e71260-d554-4b8b-9c7d-b99619688bce"],
8597Cell[118629, 2586, 987, 20, 24, "Print",ExpressionUUID->"b7968fce-dd9e-4ece-92b3-844fcf99d86e"],
8598Cell[119619, 2608, 590, 12, 24, "Print",ExpressionUUID->"a6170b27-85a6-4cf7-a821-33e9142547cd"]
8599}, Open ]],
8600Cell[120224, 2623, 3698, 102, 92, "Output",ExpressionUUID->"6e6c1a4e-c279-4277-a9d1-91c7157d0e2e"],
8601Cell[CellGroupData[{
8602Cell[123947, 2729, 819, 16, 24, "Print",ExpressionUUID->"986c162f-5402-48de-afa0-1e6377ed236c"],
8603Cell[124769, 2747, 758, 17, 24, "Print",ExpressionUUID->"1d472b15-ef67-4c32-8dae-f52e4f6670ad"],
8604Cell[125530, 2766, 725, 16, 24, "Print",ExpressionUUID->"3e303b0f-2f80-4317-84a5-c4bbd71d160b"],
8605Cell[126258, 2784, 499, 9, 24, "Print",ExpressionUUID->"8d0beeec-2b91-4d4e-84d3-b4b09c9c8ca2"],
8606Cell[126760, 2795, 724, 16, 24, "Print",ExpressionUUID->"f92b69e5-ab87-4349-bf99-8fea2fdae10f"],
8607Cell[127487, 2813, 477, 8, 24, "Print",ExpressionUUID->"ece745cb-a380-431f-90db-96a589b22a06"],
8608Cell[127967, 2823, 658, 13, 24, "Print",ExpressionUUID->"51d7e541-75f4-4591-9cb9-71d229b9c350"],
8609Cell[128628, 2838, 510, 9, 24, "Print",ExpressionUUID->"3f480a38-b754-4f5e-8d05-b24223753f8e"],
8610Cell[129141, 2849, 995, 20, 24, "Print",ExpressionUUID->"d8bd1a9d-e4b2-4f54-8fbc-d1337745b88b"],
8611Cell[130139, 2871, 594, 12, 24, "Print",ExpressionUUID->"2937c92b-8610-4fca-b31e-d595a69097a9"],
8612Cell[130736, 2885, 946, 19, 24, "Print",ExpressionUUID->"76eb7127-e5c7-497c-8647-e2cb501bb1e3"],
8613Cell[131685, 2906, 493, 8, 24, "Print",ExpressionUUID->"244fe208-f5ff-46d3-b3d8-4da7573b3464"],
8614Cell[132181, 2916, 758, 17, 24, "Print",ExpressionUUID->"502dda80-32a3-49ef-8567-0b6b85741db6"],
8615Cell[132942, 2935, 712, 16, 24, "Print",ExpressionUUID->"c4876ec1-ec96-48b8-a927-4be1b34adc3f"],
8616Cell[133657, 2953, 690, 13, 24, "Print",ExpressionUUID->"ef452471-3a09-41fa-8d27-e9e2f6643cda"]
8617}, Open ]],
8618Cell[134362, 2969, 616, 12, 35, "Message",ExpressionUUID->"64778cc8-b14c-4c61-8f80-6804cbce89fe"],
8619Cell[CellGroupData[{
8620Cell[135003, 2985, 676, 13, 24, "Print",ExpressionUUID->"39f5c45f-6b82-4c34-a94d-97211a4bda10"],
8621Cell[135682, 3000, 476, 8, 24, "Print",ExpressionUUID->"0f5efd8d-249d-41bb-8f51-880fab31fb5c"],
8622Cell[136161, 3010, 498, 9, 24, "Print",ExpressionUUID->"2e7fdd31-e342-412c-bf21-a83474bab44e"],
8623Cell[136662, 3021, 689, 13, 24, "Print",ExpressionUUID->"3473018e-241a-4d6c-907c-c156387d3207"],
8624Cell[137354, 3036, 188, 4, 24, "Print",ExpressionUUID->"ff5dddcd-7396-4679-834b-1b26d6111967"],
8625Cell[137545, 3042, 188, 4, 24, "Print",ExpressionUUID->"44ce3ca8-fcef-48ab-89ee-8462b96d39f7"],
8626Cell[137736, 3048, 186, 4, 24, "Print",ExpressionUUID->"65cf8d85-2a68-4a78-b1eb-3ccedb0aacf8"],
8627Cell[137925, 3054, 186, 4, 24, "Print",ExpressionUUID->"ec919153-4ce9-41a5-aa26-c60f9ba963fc"],
8628Cell[138114, 3060, 848, 16, 24, "Print",ExpressionUUID->"05c0166b-487d-4d94-a079-f1e3fc64d8d3"],
8629Cell[138965, 3078, 470, 8, 24, "Print",ExpressionUUID->"6d2e18aa-5efa-447c-a152-969504353aa6"],
8630Cell[139438, 3088, 455, 8, 24, "Print",ExpressionUUID->"bd9a66bb-dc32-42ac-b42d-cd4fbb6774f1"]
8631}, Open ]]
8632}, Open ]]
8633}, Closed]],
8634Cell[CellGroupData[{
8635Cell[139954, 3103, 217, 4, 38, "Section",ExpressionUUID->"e31bbc3c-8fc8-463e-b845-29a34070e85b"],
8636Cell[CellGroupData[{
8637Cell[140196, 3111, 979, 21, 89, "Input",ExpressionUUID->"26825268-e6e9-43f4-9716-9772fb26478f"],
8638Cell[CellGroupData[{
8639Cell[141200, 3136, 463, 8, 24, "Print",ExpressionUUID->"781b7e65-4692-4606-b59d-d85a9f591da3"],
8640Cell[141666, 3146, 482, 8, 24, "Print",ExpressionUUID->"ae29c7f8-b072-414d-8e02-752d3b6e8a4f"],
8641Cell[142151, 3156, 453, 8, 24, "Print",ExpressionUUID->"f927c658-8ee9-40fa-94c0-ddbbecb6ce08"],
8642Cell[142607, 3166, 455, 8, 24, "Print",ExpressionUUID->"57d46524-e823-4b81-9dd9-970accc12130"],
8643Cell[143065, 3176, 584, 12, 24, "Print",ExpressionUUID->"87adc8b3-d4ec-4de4-b5a0-a0bb3e113201"],
8644Cell[143652, 3190, 455, 8, 24, "Print",ExpressionUUID->"28e6ce1f-ecb3-4840-8246-688479933b63"],
8645Cell[144110, 3200, 445, 8, 24, "Print",ExpressionUUID->"9a247eb1-487d-4b9a-8919-15d16b78e103"],
8646Cell[144558, 3210, 490, 9, 24, "Print",ExpressionUUID->"cc8ef3bd-9ade-40a9-9653-aba820294ac8"],
8647Cell[145051, 3221, 442, 8, 24, "Print",ExpressionUUID->"6e8aac98-da2a-4c99-a8f3-4755d513d62a"],
8648Cell[145496, 3231, 472, 8, 24, "Print",ExpressionUUID->"e7601e88-fb01-492d-bdb6-15cf96e70b48"],
8649Cell[145971, 3241, 475, 8, 24, "Print",ExpressionUUID->"729c9581-a31e-4ebc-923e-a3fe97c60343"],
8650Cell[146449, 3251, 473, 8, 24, "Print",ExpressionUUID->"7f40bb84-b6d2-4c6d-8e01-ad413b54670c"],
8651Cell[146925, 3261, 679, 14, 44, "Print",ExpressionUUID->"2dfb2810-a498-4677-9335-d267ca382006"]
8652}, Open ]],
8653Cell[147619, 3278, 392, 10, 24, "Message",ExpressionUUID->"33738be6-83a4-4172-b4f6-85005cc90a39"],
8654Cell[CellGroupData[{
8655Cell[148036, 3292, 933, 18, 24, "Print",ExpressionUUID->"a133ed18-0b7c-48af-8cde-030514a7b786"],
8656Cell[148972, 3312, 1044, 22, 24, "Print",ExpressionUUID->"dd287bfb-626e-4e87-8d47-c7352d2efda3"],
8657Cell[150019, 3336, 1036, 21, 24, "Print",ExpressionUUID->"da353c1f-8b99-4c18-bbfc-044bc3546eeb"]
8658}, Open ]],
8659Cell[151070, 3360, 386, 10, 24, "Message",ExpressionUUID->"9a0caf35-1bb3-4279-8ad1-967e5cc138cf"],
8660Cell[CellGroupData[{
8661Cell[151481, 3374, 927, 18, 24, "Print",ExpressionUUID->"2d6897a1-2ce9-469d-9055-6990a632073a"],
8662Cell[152411, 3394, 462, 8, 24, "Print",ExpressionUUID->"a2421e22-ae06-4cc7-9360-00734641cc95"]
8663}, Open ]]
8664}, Open ]],
8665Cell[CellGroupData[{
8666Cell[152922, 3408, 1607, 33, 222, "Input",ExpressionUUID->"7e0dd744-d8cc-4c5d-9e79-7a3c170f227e"],
8667Cell[CellGroupData[{
8668Cell[154554, 3445, 746, 14, 24, "Print",ExpressionUUID->"cee3a073-baa3-4f1e-8ab7-2bc180d6b6fc"],
8669Cell[155303, 3461, 521, 8, 24, "Print",ExpressionUUID->"9aa76ae7-fec0-41c3-adc1-3b0c510e5d48"],
8670Cell[155827, 3471, 515, 8, 24, "Print",ExpressionUUID->"1642a574-b840-4fb8-a6e4-49360feb28d9"],
8671Cell[156345, 3481, 556, 9, 24, "Print",ExpressionUUID->"625f8528-2315-4396-8fac-79dcd903f0aa"]
8672}, Open ]],
8673Cell[156916, 3493, 1057, 25, 62, "Output",ExpressionUUID->"e11c1c6f-5465-4dbf-8c75-afe91c9b272f"],
8674Cell[CellGroupData[{
8675Cell[157998, 3522, 572, 9, 24, "Print",ExpressionUUID->"d9ebd4bb-ceec-4ea8-a49d-8e2dc84a32c3"],
8676Cell[158573, 3533, 570, 9, 24, "Print",ExpressionUUID->"2f106143-f545-48fe-a875-1768a1908753"],
8677Cell[159146, 3544, 764, 16, 24, "Print",ExpressionUUID->"7b502949-46b9-418e-b341-584f1435324a"],
8678Cell[159913, 3562, 520, 8, 24, "Print",ExpressionUUID->"fd7b139f-5eda-4a7c-ae7e-9e0ba1831a73"],
8679Cell[160436, 3572, 513, 8, 24, "Print",ExpressionUUID->"65aae85c-c356-47e4-8b7a-6393c7a35258"],
8680Cell[160952, 3582, 633, 12, 24, "Print",ExpressionUUID->"cede2168-7f48-4317-b50c-57ed58238004"],
8681Cell[161588, 3596, 521, 8, 24, "Print",ExpressionUUID->"1dc4dd1f-dd86-4802-95af-1227b83c9a30"]
8682}, Open ]],
8683Cell[162124, 3607, 497, 8, 31, "Output",ExpressionUUID->"b8d82e83-8c9a-4fae-ba3a-88e97421b82d"],
8684Cell[CellGroupData[{
8685Cell[162646, 3619, 765, 16, 24, "Print",ExpressionUUID->"4de05185-b15d-4b2c-9034-fec340711174"],
8686Cell[163414, 3637, 520, 8, 24, "Print",ExpressionUUID->"9eea7f55-45ae-475e-bd69-6ec43a9c344a"],
8687Cell[163937, 3647, 553, 9, 24, "Print",ExpressionUUID->"3f8d8f08-b122-4988-9a31-c3526d32f648"],
8688Cell[164493, 3658, 1031, 20, 24, "Print",ExpressionUUID->"fc1e849c-5d7b-4005-a3dd-914039e169c6"],
8689Cell[165527, 3680, 633, 12, 24, "Print",ExpressionUUID->"b0cc2838-b0ed-4006-ab40-cd2daaa2cbc8"]
8690}, Open ]],
8691Cell[166175, 3695, 3794, 105, 92, "Output",ExpressionUUID->"a52809ba-4270-4e35-a3cc-5f38fde4af95"],
8692Cell[CellGroupData[{
8693Cell[169994, 3804, 861, 16, 24, "Print",ExpressionUUID->"2fea827d-ddfb-4a0a-85dd-dbe1af9d0a81"],
8694Cell[170858, 3822, 801, 17, 24, "Print",ExpressionUUID->"6a49dc8b-af55-432d-8c08-b80e8937b93f"],
8695Cell[171662, 3841, 768, 16, 24, "Print",ExpressionUUID->"da2fbada-cc27-449b-87bd-9e9a372d9926"],
8696Cell[172433, 3859, 542, 9, 24, "Print",ExpressionUUID->"f283eed3-4b6d-422c-8fc5-ae14efeffc24"],
8697Cell[172978, 3870, 765, 16, 24, "Print",ExpressionUUID->"8b25f81b-4b38-4158-8054-07a1beb00cd2"],
8698Cell[173746, 3888, 519, 8, 24, "Print",ExpressionUUID->"1620d859-20c3-4e20-bd1d-185357078695"],
8699Cell[174268, 3898, 702, 13, 24, "Print",ExpressionUUID->"4f99bd57-453a-4fff-a4e2-a66f9058d37e"],
8700Cell[174973, 3913, 553, 9, 24, "Print",ExpressionUUID->"997496c1-a1db-4546-8048-e06fdc7187d6"],
8701Cell[175529, 3924, 1040, 20, 24, "Print",ExpressionUUID->"2bfabd8e-280e-403a-bfd9-adc8f0717657"],
8702Cell[176572, 3946, 637, 12, 24, "Print",ExpressionUUID->"ea80373f-3619-4f86-940f-1df639bd703b"],
8703Cell[177212, 3960, 989, 19, 24, "Print",ExpressionUUID->"60e82b16-2758-4065-b257-a2e65e6c20db"],
8704Cell[178204, 3981, 534, 8, 24, "Print",ExpressionUUID->"90aa9899-c5f7-4a21-9d35-0f7a62ab8f63"],
8705Cell[178741, 3991, 803, 17, 24, "Print",ExpressionUUID->"698468a1-534f-4b1a-89d4-24ba90ac7713"],
8706Cell[179547, 4010, 755, 16, 24, "Print",ExpressionUUID->"bd4b3c03-3277-4b0b-bd16-8b466f1a0a01"],
8707Cell[180305, 4028, 733, 13, 24, "Print",ExpressionUUID->"05898876-a6fd-43a7-8b49-0b2dce18366e"]
8708}, Open ]],
8709Cell[181053, 4044, 663, 13, 35, "Message",ExpressionUUID->"21bf7a21-9823-443a-b022-31540b909b28"],
8710Cell[CellGroupData[{
8711Cell[181741, 4061, 718, 13, 24, "Print",ExpressionUUID->"b3edc095-8a3b-4ef0-bd94-cb1bcf4aac72"],
8712Cell[182462, 4076, 517, 8, 24, "Print",ExpressionUUID->"92b2b3d5-1c58-4bdc-a406-690024bedb41"],
8713Cell[182982, 4086, 543, 9, 24, "Print",ExpressionUUID->"05538667-f3ff-48af-b094-f00b91f51147"],
8714Cell[183528, 4097, 732, 13, 24, "Print",ExpressionUUID->"90dec379-d508-4e09-ab1e-412fdd45384a"],
8715Cell[184263, 4112, 188, 4, 24, "Print",ExpressionUUID->"704260e3-1ec2-49b6-a643-713e8a9fce36"],
8716Cell[184454, 4118, 190, 4, 24, "Print",ExpressionUUID->"e8c194b2-211f-40df-8087-f0fe423e425d"],
8717Cell[184647, 4124, 188, 4, 24, "Print",ExpressionUUID->"184bfe92-3645-4471-bac2-bb2764f5e8ce"],
8718Cell[184838, 4130, 186, 4, 24, "Print",ExpressionUUID->"70dd4c4c-e53e-4ca0-ba7b-743131f985a2"],
8719Cell[185027, 4136, 891, 16, 24, "Print",ExpressionUUID->"b377661b-f05d-4e05-9609-56a71dcdfd9d"],
8720Cell[185921, 4154, 513, 8, 24, "Print",ExpressionUUID->"d4be457c-0375-4e07-8ee9-aaedf27ad8cc"],
8721Cell[186437, 4164, 498, 8, 24, "Print",ExpressionUUID->"462f8e51-c476-44b3-808f-9fe6d2f61929"]
8722}, Open ]]
8723}, Open ]]
8724}, Closed]],
8725Cell[CellGroupData[{
8726Cell[186996, 4179, 212, 4, 38, "Section",ExpressionUUID->"819f672c-5d2b-4ffa-a0ab-b460c645b2e9"],
8727Cell[CellGroupData[{
8728Cell[187233, 4187, 934, 21, 89, "Input",ExpressionUUID->"705fcdbb-0c8b-494d-a2c9-28d07f4c5c34"],
8729Cell[CellGroupData[{
8730Cell[188192, 4212, 481, 8, 24, "Print",ExpressionUUID->"06db0bad-5d1b-48ca-9682-8ebc09331567"],
8731Cell[188676, 4222, 499, 8, 24, "Print",ExpressionUUID->"90a7d998-d214-4de6-96b5-3cb7cc11c5c0"],
8732Cell[189178, 4232, 468, 8, 24, "Print",ExpressionUUID->"b48bc65d-8dca-49c2-b39c-45715f1f392f"],
8733Cell[189649, 4242, 472, 8, 24, "Print",ExpressionUUID->"e0c53747-96ea-473c-bffc-183ff8b10354"],
8734Cell[190124, 4252, 601, 12, 24, "Print",ExpressionUUID->"bc2d4d66-48b7-48b5-9634-4ea11b7683ca"],
8735Cell[190728, 4266, 472, 8, 24, "Print",ExpressionUUID->"7bd53cfe-ee29-4413-967e-399fdc624069"],
8736Cell[191203, 4276, 464, 8, 24, "Print",ExpressionUUID->"a668c6e1-d75a-4b55-8c84-32bf3c946f34"],
8737Cell[191670, 4286, 509, 9, 24, "Print",ExpressionUUID->"bbc71d9b-d5ec-4bfe-94f1-e6852b464bdc"],
8738Cell[192182, 4297, 459, 8, 24, "Print",ExpressionUUID->"fe6d26d3-dc5d-4c27-854d-36630dbeaafb"],
8739Cell[192644, 4307, 489, 8, 24, "Print",ExpressionUUID->"c352f096-2036-4205-9df7-d6f02308c3d9"],
8740Cell[193136, 4317, 492, 8, 24, "Print",ExpressionUUID->"d392c500-932f-457c-b0c9-1f674566e421"],
8741Cell[193631, 4327, 490, 8, 24, "Print",ExpressionUUID->"53d84af9-19bd-4b0d-b6ad-b4d6c5136d02"],
8742Cell[194124, 4337, 691, 14, 44, "Print",ExpressionUUID->"a0ea598e-f4cf-4055-bef3-221aed8df7f9"]
8743}, Open ]],
8744Cell[194830, 4354, 407, 11, 24, "Message",ExpressionUUID->"5ebd036c-14bd-453f-8902-fe24ccba0dc2"],
8745Cell[CellGroupData[{
8746Cell[195262, 4369, 948, 18, 24, "Print",ExpressionUUID->"2b015653-fbeb-4a9e-8619-3cee8ab8fa80"],
8747Cell[196213, 4389, 1061, 22, 24, "Print",ExpressionUUID->"18f856e8-763a-42a4-b816-9f6f14a84193"],
8748Cell[197277, 4413, 1053, 21, 24, "Print",ExpressionUUID->"f29b17e3-5ef9-49da-bcfb-21ceb4cb1282"]
8749}, Open ]],
8750Cell[198345, 4437, 411, 11, 24, "Message",ExpressionUUID->"3e99a600-32b5-404f-8115-5dd813b3a8ce"],
8751Cell[CellGroupData[{
8752Cell[198781, 4452, 942, 18, 24, "Print",ExpressionUUID->"23bdd89d-461f-4c69-abc6-98f0337c6f06"],
8753Cell[199726, 4472, 479, 8, 24, "Print",ExpressionUUID->"3057b7aa-a578-49d6-a894-ecd0b12d2534"]
8754}, Open ]]
8755}, Open ]],
8756Cell[CellGroupData[{
8757Cell[200254, 4486, 1607, 33, 241, "Input",ExpressionUUID->"d088ecf6-7071-4e1a-abb2-2ae357bb4163"],
8758Cell[CellGroupData[{
8759Cell[201886, 4523, 841, 16, 24, "Print",ExpressionUUID->"4e624a7e-5165-4d91-b2a9-c32654ae5b23"],
8760Cell[202730, 4541, 617, 10, 24, "Print",ExpressionUUID->"e0359b01-3bbf-4674-95fc-1da4d15a5a75"],
8761Cell[203350, 4553, 614, 10, 24, "Print",ExpressionUUID->"2bd53418-eafb-47c0-a6f1-3078fff250a8"],
8762Cell[203967, 4565, 653, 11, 24, "Print",ExpressionUUID->"80524763-4589-4473-a856-ef892e4a0a00"]
8763}, Open ]],
8764Cell[204635, 4579, 1166, 27, 62, "Output",ExpressionUUID->"1ea121f5-3b08-4cee-8fe9-f2da83f31ea0"],
8765Cell[CellGroupData[{
8766Cell[205826, 4610, 670, 11, 24, "Print",ExpressionUUID->"f703df68-c566-493c-aeae-ab03f1caec86"],
8767Cell[206499, 4623, 667, 11, 24, "Print",ExpressionUUID->"5bbc6466-fda1-4ede-bf71-bb20067abc78"],
8768Cell[207169, 4636, 862, 18, 24, "Print",ExpressionUUID->"ab920366-f85a-4a3a-9670-cda552a3dd91"],
8769Cell[208034, 4656, 617, 10, 24, "Print",ExpressionUUID->"51bb41c9-4c26-49cb-9dbd-04af77f9dab6"],
8770Cell[208654, 4668, 608, 10, 24, "Print",ExpressionUUID->"05a72088-2e96-47d6-97ab-b86b92c2168a"],
8771Cell[209265, 4680, 730, 14, 24, "Print",ExpressionUUID->"32cc7401-0882-4cb9-a828-0d1ff90c28c4"],
8772Cell[209998, 4696, 620, 10, 24, "Print",ExpressionUUID->"de95df15-5a72-4af7-a5cb-1dfd6a600ee8"]
8773}, Open ]],
8774Cell[210633, 4709, 601, 10, 31, "Output",ExpressionUUID->"da96624f-bcdd-4c8d-a30e-cf17b2c1dcb3"],
8775Cell[CellGroupData[{
8776Cell[211259, 4723, 862, 18, 24, "Print",ExpressionUUID->"2aca0c48-9ea6-4452-ae42-0f43a80c44d6"],
8777Cell[212124, 4743, 619, 10, 24, "Print",ExpressionUUID->"254310d7-a9a9-4e74-82fc-8f238be10232"],
8778Cell[212746, 4755, 648, 11, 24, "Print",ExpressionUUID->"5ffceceb-af6f-44a9-93df-4963e6a5c822"],
8779Cell[213397, 4768, 1126, 22, 24, "Print",ExpressionUUID->"d12c0252-9a14-46f5-8022-70e814a15740"],
8780Cell[214526, 4792, 610, 10, 24, "Print",ExpressionUUID->"64e2436f-fe3e-4d67-8735-ff97912b221c"]
8781}, Open ]],
8782Cell[215151, 4805, 1314, 32, 42, "Output",ExpressionUUID->"63b69d02-6643-4d45-9fb3-22f3aae2fd4a"],
8783Cell[CellGroupData[{
8784Cell[216490, 4841, 957, 18, 24, "Print",ExpressionUUID->"da326263-69f9-46c2-8ca4-fff4424cf60b"],
8785Cell[217450, 4861, 898, 19, 24, "Print",ExpressionUUID->"aafa66b4-b80a-43c2-ba7a-54f92bb611d4"],
8786Cell[218351, 4882, 867, 18, 24, "Print",ExpressionUUID->"c9a24680-0877-4504-92f1-3305481fcb2e"],
8787Cell[219221, 4902, 639, 11, 24, "Print",ExpressionUUID->"ea2a99c7-c4d9-4abc-9216-eb9a6f168382"],
8788Cell[219863, 4915, 861, 18, 24, "Print",ExpressionUUID->"68c5cd5b-1acb-433e-bb8e-89dbc903da30"],
8789Cell[220727, 4935, 616, 10, 24, "Print",ExpressionUUID->"2ea860fa-2151-4045-ad10-7be2cc710c45"],
8790Cell[221346, 4947, 799, 15, 24, "Print",ExpressionUUID->"81a3b0aa-7476-4a13-9e1c-426a86d3550a"],
8791Cell[222148, 4964, 650, 11, 24, "Print",ExpressionUUID->"e0f7e6cd-1012-4426-ab7f-b8c2e72da608"],
8792Cell[222801, 4977, 1133, 22, 24, "Print",ExpressionUUID->"a3808508-8318-41f7-ae02-382bc1051e6b"],
8793Cell[223937, 5001, 732, 14, 24, "Print",ExpressionUUID->"af159158-b690-44eb-8811-4367866cfd5c"],
8794Cell[224672, 5017, 1088, 21, 24, "Print",ExpressionUUID->"d9b61900-da7b-43d6-ac7d-7b2513af042f"],
8795Cell[225763, 5040, 633, 10, 24, "Print",ExpressionUUID->"fab9ee39-0b86-4e62-b5f5-90257a1d1d4a"],
8796Cell[226399, 5052, 898, 19, 24, "Print",ExpressionUUID->"6fdf4842-4eb7-46a5-9fed-97f24fa187ba"],
8797Cell[227300, 5073, 852, 18, 24, "Print",ExpressionUUID->"b35c0842-80bc-4db8-b611-2c4b97affdf7"],
8798Cell[228155, 5093, 830, 15, 24, "Print",ExpressionUUID->"7a779bae-d46e-4d29-8e9b-f5113fe82211"]
8799}, Open ]],
8800Cell[229000, 5111, 752, 14, 35, "Message",ExpressionUUID->"9cb408cf-d05d-4bd8-9faa-bf3c2b19b899"],
8801Cell[CellGroupData[{
8802Cell[229777, 5129, 816, 15, 24, "Print",ExpressionUUID->"8b4983dc-0c7b-4e01-aa08-a5917e60e9c9"],
8803Cell[230596, 5146, 614, 10, 24, "Print",ExpressionUUID->"373a514d-4025-402a-9695-2a2c8a40b516"],
8804Cell[231213, 5158, 638, 11, 24, "Print",ExpressionUUID->"4d81d7e7-da47-4d21-a9b4-87bec47741a2"],
8805Cell[231854, 5171, 831, 15, 24, "Print",ExpressionUUID->"54bbe6ab-a23b-4582-aed0-abce46c9961e"],
8806Cell[232688, 5188, 188, 4, 24, "Print",ExpressionUUID->"bbd738f4-910f-4a6d-9cdd-bc577f4ca313"],
8807Cell[232879, 5194, 188, 4, 24, "Print",ExpressionUUID->"55b89a52-997e-4aab-a32d-2324c6375348"],
8808Cell[233070, 5200, 186, 4, 24, "Print",ExpressionUUID->"61113892-0799-438f-9afb-e9a1b05cc48b"],
8809Cell[233259, 5206, 186, 4, 24, "Print",ExpressionUUID->"327214f9-b03b-4afc-817d-1d9c75c69823"],
8810Cell[233448, 5212, 988, 18, 24, "Print",ExpressionUUID->"cf848ccc-73f4-4cd3-a3bc-3c4d7f448e86"],
8811Cell[234439, 5232, 609, 10, 24, "Print",ExpressionUUID->"cc258e59-f651-40ff-a7ca-353fef5396a9"],
8812Cell[235051, 5244, 595, 10, 24, "Print",ExpressionUUID->"8991f406-eaea-45eb-ad83-5180f2fdd853"]
8813}, Open ]]
8814}, Open ]]
8815}, Closed]],
8816Cell[CellGroupData[{
8817Cell[235707, 5261, 267, 4, 38, "Section",ExpressionUUID->"1812bef9-f936-48ad-b64b-c123c124db88"],
8818Cell[CellGroupData[{
8819Cell[235999, 5269, 987, 21, 89, "Input",ExpressionUUID->"0f606d4d-e1b4-4fcd-9ac1-159c2a8d2bea"],
8820Cell[CellGroupData[{
8821Cell[237011, 5294, 226, 4, 24, "Print",ExpressionUUID->"449fa94b-e3e9-41b4-9d3c-bfa41f938e55"],
8822Cell[237240, 5300, 246, 4, 24, "Print",ExpressionUUID->"b0c36fdd-2671-4e31-84d5-2247cbc3c099"],
8823Cell[237489, 5306, 213, 4, 24, "Print",ExpressionUUID->"a115476f-3318-4d90-a1f3-7ebfebe6428d"],
8824Cell[237705, 5312, 219, 4, 24, "Print",ExpressionUUID->"b4cde2ef-155d-4847-beb6-91aba70b372b"],
8825Cell[237927, 5318, 348, 8, 24, "Print",ExpressionUUID->"3afa8fa0-f483-4d92-a57d-751e7c795ba0"],
8826Cell[238278, 5328, 215, 4, 24, "Print",ExpressionUUID->"0704ac07-c220-4ce9-95bc-166f79effaf5"],
8827Cell[238496, 5334, 209, 4, 24, "Print",ExpressionUUID->"50b4e075-98fe-4be1-9609-5831c25c7811"],
8828Cell[238708, 5340, 252, 5, 24, "Print",ExpressionUUID->"480f511b-7374-4777-bc0c-9a0ca8cb1f0a"],
8829Cell[238963, 5347, 206, 4, 24, "Print",ExpressionUUID->"3f3c4dd7-e86f-4be3-b3a0-3862bd6bd6af"],
8830Cell[239172, 5353, 234, 4, 24, "Print",ExpressionUUID->"9f6078a0-acf4-4145-a532-31167690d432"],
8831Cell[239409, 5359, 237, 4, 24, "Print",ExpressionUUID->"d0231ebc-0003-48ec-904a-4e31ccb642f2"],
8832Cell[239649, 5365, 237, 4, 24, "Print",ExpressionUUID->"ad32a3ed-e7bc-4c11-92c9-6a4ad71b72d8"],
8833Cell[239889, 5371, 448, 10, 44, "Print",ExpressionUUID->"9c6afc6f-dd18-4366-96a1-761ba9153a9f"]
8834}, Open ]],
8835Cell[240352, 5384, 368, 10, 24, "Message",ExpressionUUID->"942aa00c-e167-4c3c-9f10-e4994a3c82e5"],
8836Cell[CellGroupData[{
8837Cell[240745, 5398, 693, 14, 24, "Print",ExpressionUUID->"c7f9c926-26ad-4e7a-8ee2-8db3e70d6628"],
8838Cell[241441, 5414, 806, 18, 24, "Print",ExpressionUUID->"617f0884-15ca-4ea0-aa97-1e434db0b45d"],
8839Cell[242250, 5434, 798, 17, 24, "Print",ExpressionUUID->"95785b3a-8458-4863-90c5-a6a1abc5bf17"]
8840}, Open ]],
8841Cell[243063, 5454, 362, 10, 24, "Message",ExpressionUUID->"3e7fe991-e737-4dc3-a48c-507c60daa44a"],
8842Cell[CellGroupData[{
8843Cell[243450, 5468, 687, 14, 24, "Print",ExpressionUUID->"00d55980-5771-4a46-a41b-2800544c6fb5"],
8844Cell[244140, 5484, 224, 4, 24, "Print",ExpressionUUID->"af9e9d44-e78d-45c3-9450-63acb2e26912"]
8845}, Open ]]
8846}, Open ]],
8847Cell[CellGroupData[{
8848Cell[244413, 5494, 1639, 34, 241, "Input",ExpressionUUID->"60e7446f-a673-4fb9-9240-656f65e9e705"],
8849Cell[CellGroupData[{
8850Cell[246077, 5532, 819, 15, 24, "Print",ExpressionUUID->"559eef55-f904-44ef-9d00-565db771c842"],
8851Cell[246899, 5549, 586, 9, 24, "Print",ExpressionUUID->"fcbe7e4e-79a6-488c-932f-01203a9dbe3e"],
8852Cell[247488, 5560, 647, 10, 24, "Print",ExpressionUUID->"9deb0eb6-d954-4056-92b4-7ccc1e375364"],
8853Cell[248138, 5572, 643, 10, 24, "Print",ExpressionUUID->"d9d01ad4-efaa-4f60-97b4-8c1d69501299"],
8854Cell[248784, 5584, 838, 17, 24, "Print",ExpressionUUID->"8b8cc6a4-d116-404f-9170-1ea44ff3a053"],
8855Cell[249625, 5603, 595, 9, 24, "Print",ExpressionUUID->"f474176e-131f-4124-b015-8d6ce9648309"],
8856Cell[250223, 5614, 625, 10, 24, "Print",ExpressionUUID->"645a0fb6-ec52-4abb-92c7-e4dfe654bc92"],
8857Cell[250851, 5626, 584, 9, 24, "Print",ExpressionUUID->"691515ae-9beb-4518-9c0c-0865f2183b0e"],
8858Cell[251438, 5637, 708, 13, 24, "Print",ExpressionUUID->"969ac467-ba99-4e45-9e39-beef65cc3fe2"],
8859Cell[252149, 5652, 596, 9, 24, "Print",ExpressionUUID->"7f59fd82-c065-4b3e-ba22-997ab53f1e3b"]
8860}, Open ]],
8861Cell[252760, 5664, 573, 9, 31, "Output",ExpressionUUID->"3c9c0ecd-aaca-41c2-83c4-fd6840ad74d5"],
8862Cell[CellGroupData[{
8863Cell[253358, 5677, 837, 17, 24, "Print",ExpressionUUID->"a1775cd9-0b8c-447f-b31e-c7632a4eec7b"],
8864Cell[254198, 5696, 593, 9, 24, "Print",ExpressionUUID->"2aa172ec-2045-4b8d-a8bd-1e0677205791"],
8865Cell[254794, 5707, 626, 10, 24, "Print",ExpressionUUID->"e832a92d-b63b-4192-aeb4-61e5355824c2"],
8866Cell[255423, 5719, 1103, 21, 24, "Print",ExpressionUUID->"a8444e98-ea2c-463f-95fa-a6ee0e1e945a"],
8867Cell[256529, 5742, 586, 9, 24, "Print",ExpressionUUID->"f944c31f-38f7-40e6-8d16-00f6b4c76622"]
8868}, Open ]],
8869Cell[257130, 5754, 1335, 34, 42, "Output",ExpressionUUID->"e8efb411-9496-49f4-85ae-cd0cad8cfaf4"],
8870Cell[CellGroupData[{
8871Cell[258490, 5792, 935, 17, 24, "Print",ExpressionUUID->"d6b7f6a5-d9ff-43b2-a8b3-3bb8c36062f4"],
8872Cell[259428, 5811, 872, 18, 24, "Print",ExpressionUUID->"3d0b1b1e-d0ec-4128-90de-4c8c8702ac6b"],
8873Cell[260303, 5831, 841, 17, 24, "Print",ExpressionUUID->"f6331983-2452-4508-9aac-366b6a5d2c30"],
8874Cell[261147, 5850, 615, 10, 24, "Print",ExpressionUUID->"a8cb0655-b06d-431d-aab2-9c6c11b85c1a"],
8875Cell[261765, 5862, 838, 17, 24, "Print",ExpressionUUID->"5b65b2fc-e2bc-4f24-b207-f006146b6adb"],
8876Cell[262606, 5881, 595, 9, 24, "Print",ExpressionUUID->"75cbd0e0-a49d-47a6-8268-1e1930a8344b"],
8877Cell[263204, 5892, 775, 14, 24, "Print",ExpressionUUID->"d5994477-eb29-4962-8756-c1ad07f72d65"],
8878Cell[263982, 5908, 628, 10, 24, "Print",ExpressionUUID->"7ee3bd7e-d15e-4077-a17d-8259fe9719c6"],
8879Cell[264613, 5920, 1107, 21, 24, "Print",ExpressionUUID->"24adf13b-7bd1-44aa-ad10-00c594f793c1"],
8880Cell[265723, 5943, 710, 13, 24, "Print",ExpressionUUID->"460c2438-8cc8-4376-b1be-4f412b73532c"],
8881Cell[266436, 5958, 1061, 20, 24, "Print",ExpressionUUID->"f5e683a6-fdc2-48b2-9da3-08c5f8639f39"],
8882Cell[267500, 5980, 607, 9, 24, "Print",ExpressionUUID->"4ea9e8ef-9ffb-4ee1-a4cd-d1c0c54e3e7d"],
8883Cell[268110, 5991, 876, 18, 24, "Print",ExpressionUUID->"57257e10-952a-42f1-9b10-2f363452722f"],
8884Cell[268989, 6011, 828, 17, 24, "Print",ExpressionUUID->"eb4bc61d-2b53-416d-ad62-15bc50080b5a"],
8885Cell[269820, 6030, 806, 14, 24, "Print",ExpressionUUID->"b36d66e2-4b61-43f1-95b6-cbe3701e97f3"]
8886}, Open ]],
8887Cell[270641, 6047, 730, 14, 35, "Message",ExpressionUUID->"9e8fc71c-abc7-46e6-913e-c883220e2812"],
8888Cell[CellGroupData[{
8889Cell[271396, 6065, 792, 14, 24, "Print",ExpressionUUID->"f1aeb60d-e5aa-4a5e-9ee0-6414aee323b8"],
8890Cell[272191, 6081, 592, 9, 24, "Print",ExpressionUUID->"e58e2cc1-e88e-40c0-a3e6-e357798dfea0"],
8891Cell[272786, 6092, 616, 10, 24, "Print",ExpressionUUID->"7f208292-e319-4953-824a-34358f8d4951"],
8892Cell[273405, 6104, 807, 14, 24, "Print",ExpressionUUID->"4418c541-eddd-496e-8dfa-3b4517d1c7fa"],
8893Cell[274215, 6120, 190, 4, 24, "Print",ExpressionUUID->"c4750bef-68a0-4d20-82ac-c1dccb931539"],
8894Cell[274408, 6126, 188, 4, 24, "Print",ExpressionUUID->"92f8dfb5-0f47-4f5d-ac6f-7517882d9330"],
8895Cell[274599, 6132, 186, 4, 24, "Print",ExpressionUUID->"59f9c090-a5f4-4e42-9c55-50bd415d3be3"],
8896Cell[274788, 6138, 186, 4, 24, "Print",ExpressionUUID->"0b952620-c3e1-413e-a525-822c8b4b94e7"],
8897Cell[274977, 6144, 964, 17, 24, "Print",ExpressionUUID->"0ee8688f-0eb6-46cc-ace6-2640771b36f1"],
8898Cell[275944, 6163, 586, 9, 24, "Print",ExpressionUUID->"f3226bc3-db02-4b6f-85ca-e94bf7f74c7c"],
8899Cell[276533, 6174, 571, 9, 24, "Print",ExpressionUUID->"7952b3e4-aeba-4f1c-b963-0cb45edc06d0"]
8900}, Open ]]
8901}, Open ]]
8902}, Closed]],
8903Cell[CellGroupData[{
8904Cell[277165, 6190, 260, 4, 38, "Section",ExpressionUUID->"fd0d9fc1-1118-42d7-b6c7-d3c25301fc25"],
8905Cell[CellGroupData[{
8906Cell[277450, 6198, 980, 21, 89, "Input",ExpressionUUID->"5365947e-825e-4504-a80b-af158120802b"],
8907Cell[CellGroupData[{
8908Cell[278455, 6223, 202, 4, 24, "Print",ExpressionUUID->"ebd0e264-ef9a-4bdb-97e9-dc160b9701e7"],
8909Cell[278660, 6229, 220, 4, 24, "Print",ExpressionUUID->"9b61e05c-84e3-48f4-8be8-90d43ca68188"],
8910Cell[278883, 6235, 189, 4, 24, "Print",ExpressionUUID->"bdc9d978-1637-457d-928e-7dcd03117355"],
8911Cell[279075, 6241, 193, 4, 24, "Print",ExpressionUUID->"3a35dc99-07e8-4e70-8196-99793c79dfb6"],
8912Cell[279271, 6247, 322, 8, 24, "Print",ExpressionUUID->"effe9432-1828-445b-9f46-ab1b0047af43"],
8913Cell[279596, 6257, 191, 4, 24, "Print",ExpressionUUID->"e921a149-0d4d-4576-8722-9717b76e2dd5"],
8914Cell[279790, 6263, 185, 4, 24, "Print",ExpressionUUID->"ee853602-e349-476a-bb34-0269ba8b4a54"],
8915Cell[279978, 6269, 228, 5, 24, "Print",ExpressionUUID->"97f70ebb-f080-4fb2-b6ab-5fba47af0327"],
8916Cell[280209, 6276, 182, 4, 24, "Print",ExpressionUUID->"9b4efad1-b6b2-4bd2-877b-802329901dec"],
8917Cell[280394, 6282, 212, 4, 24, "Print",ExpressionUUID->"6a73b97f-2164-4108-87ef-f0be9fe866c7"],
8918Cell[280609, 6288, 215, 4, 24, "Print",ExpressionUUID->"8e6a8f66-eb72-4892-bcaf-f4949e2b0fba"],
8919Cell[280827, 6294, 211, 4, 24, "Print",ExpressionUUID->"b65509b4-e0c6-4e19-8408-366bbee101c3"],
8920Cell[281041, 6300, 389, 9, 44, "Print",ExpressionUUID->"59504c84-5166-4fd7-8e26-fb4980a7cf4b"]
8921}, Open ]],
8922Cell[281445, 6312, 418, 11, 24, "Message",ExpressionUUID->"920488ac-3ec0-41cf-aea0-9ab4aeb2b594"],
8923Cell[CellGroupData[{
8924Cell[281888, 6327, 671, 14, 24, "Print",ExpressionUUID->"0a896c7c-9245-459a-a4e5-f23846270ba2"],
8925Cell[282562, 6343, 782, 18, 24, "Print",ExpressionUUID->"1e7c0822-fbe5-49f3-a792-c96388f50de3"],
8926Cell[283347, 6363, 774, 17, 24, "Print",ExpressionUUID->"35826a8f-3d39-427f-904a-7af3999037cc"]
8927}, Open ]],
8928Cell[284136, 6383, 414, 11, 24, "Message",ExpressionUUID->"21346090-5053-42a9-bfb6-8607529bb55a"],
8929Cell[CellGroupData[{
8930Cell[284575, 6398, 663, 14, 24, "Print",ExpressionUUID->"5f086361-18cc-46ca-a7a1-fd8ce633dde7"],
8931Cell[285241, 6414, 200, 4, 24, "Print",ExpressionUUID->"c3e57168-e6a7-42e9-96a1-b2a9d6cf1233"]
8932}, Open ]]
8933}, Open ]],
8934Cell[CellGroupData[{
8935Cell[285490, 6424, 1659, 34, 241, "Input",ExpressionUUID->"5dbe612a-8462-40c9-ab92-916fc215482e"],
8936Cell[CellGroupData[{
8937Cell[287174, 6462, 885, 16, 24, "Print",ExpressionUUID->"39210ba9-d89e-4815-a26a-ed7e1e412f41"],
8938Cell[288062, 6480, 662, 10, 24, "Print",ExpressionUUID->"77d62e4d-bd29-44b1-9e6b-b91e8c505287"],
8939Cell[288727, 6492, 656, 10, 24, "Print",ExpressionUUID->"6c9d2813-f14f-4a0b-846a-6eae8ec18507"],
8940Cell[289386, 6504, 697, 11, 24, "Print",ExpressionUUID->"959f8d84-ef60-4add-b3d3-b7792e026df2"]
8941}, Open ]],
8942Cell[290098, 6518, 1201, 27, 62, "Output",ExpressionUUID->"ff9e73fe-d346-4b98-ab49-98d17b50a72b"],
8943Cell[CellGroupData[{
8944Cell[291324, 6549, 715, 11, 24, "Print",ExpressionUUID->"3b8620f4-adcc-4d1a-a217-506ef5eb28be"],
8945Cell[292042, 6562, 713, 11, 24, "Print",ExpressionUUID->"77e15359-6fe7-4165-a675-34d308c2e261"],
8946Cell[292758, 6575, 908, 18, 24, "Print",ExpressionUUID->"138c10c7-dd03-454c-98ce-1265df2b0c77"],
8947Cell[293669, 6595, 661, 10, 24, "Print",ExpressionUUID->"9993a713-0c7e-4272-bcd2-d46b75f8222e"],
8948Cell[294333, 6607, 651, 10, 24, "Print",ExpressionUUID->"ff351633-7b8a-4e11-aabd-33f2c9460b4b"],
8949Cell[294987, 6619, 774, 14, 24, "Print",ExpressionUUID->"7ffb5f54-048f-4efa-ba47-7c11e83784fa"],
8950Cell[295764, 6635, 664, 10, 24, "Print",ExpressionUUID->"edb50ec4-4339-4e21-a641-42086c822d5e"]
8951}, Open ]],
8952Cell[296443, 6648, 642, 10, 31, "Output",ExpressionUUID->"e8c0cc40-7a8d-4cea-a2c5-cad210711539"],
8953Cell[CellGroupData[{
8954Cell[297110, 6662, 906, 18, 24, "Print",ExpressionUUID->"b000172d-47c8-4104-bdfe-62cf65390419"],
8955Cell[298019, 6682, 663, 10, 24, "Print",ExpressionUUID->"67d1b322-8cf7-47c7-8c98-199936cd083d"],
8956Cell[298685, 6694, 696, 11, 24, "Print",ExpressionUUID->"9c0de740-76b8-4f85-ad11-9c2c5e40e9ea"],
8957Cell[299384, 6707, 1171, 22, 24, "Print",ExpressionUUID->"3344a3ff-9fb5-40d3-84c2-0edeb8f86925"],
8958Cell[300558, 6731, 652, 10, 24, "Print",ExpressionUUID->"fa46ce77-08fc-4d22-9fff-b3f3ec85fb1b"]
8959}, Open ]],
8960Cell[301225, 6744, 2009, 52, 42, "Output",ExpressionUUID->"7c55b269-3f25-4f6c-9a0b-4717617b43fd"],
8961Cell[CellGroupData[{
8962Cell[303259, 6800, 1003, 18, 24, "Print",ExpressionUUID->"783047b1-fff5-494f-9d41-f090a109f592"],
8963Cell[304265, 6820, 942, 19, 24, "Print",ExpressionUUID->"cb5be894-4642-4781-9a1f-b294dd49ff6b"],
8964Cell[305210, 6841, 909, 18, 24, "Print",ExpressionUUID->"e6f2f1b6-2aa2-4af2-ace7-8286ef2d1967"],
8965Cell[306122, 6861, 683, 11, 24, "Print",ExpressionUUID->"b47b1a94-5615-4965-996d-aa583162cda0"],
8966Cell[306808, 6874, 908, 18, 24, "Print",ExpressionUUID->"761afdb2-5f54-4eff-afcd-3f7019da0fad"],
8967Cell[307719, 6894, 661, 10, 24, "Print",ExpressionUUID->"fece93d6-7302-40f8-b032-e80dc1f2ff05"],
8968Cell[308383, 6906, 845, 15, 24, "Print",ExpressionUUID->"4932919d-bb95-4fe3-9ef6-089a5570c005"],
8969Cell[309231, 6923, 694, 11, 24, "Print",ExpressionUUID->"c9762aed-a7e3-4046-948e-c20448fbd33e"],
8970Cell[309928, 6936, 1175, 22, 24, "Print",ExpressionUUID->"516e01c3-f29a-4623-b031-def23e5c8107"],
8971Cell[311106, 6960, 776, 14, 24, "Print",ExpressionUUID->"c7a25ab4-fe9f-4e0f-af1a-c1a835a9632d"],
8972Cell[311885, 6976, 1132, 21, 24, "Print",ExpressionUUID->"dafcdc3a-8d6a-4879-85a9-08466b0fdd7c"],
8973Cell[313020, 6999, 677, 10, 24, "Print",ExpressionUUID->"5482cd84-d081-44a4-9f4a-12938115be80"],
8974Cell[313700, 7011, 942, 19, 24, "Print",ExpressionUUID->"9e3fe13f-1ca4-4f05-a0be-08c5019f9898"],
8975Cell[314645, 7032, 896, 18, 24, "Print",ExpressionUUID->"9262a527-4e61-40b0-bf43-be3fa77f967e"],
8976Cell[315544, 7052, 874, 15, 24, "Print",ExpressionUUID->"a476ecbf-97b5-4ef1-bac1-dd6c24d90b09"]
8977}, Open ]],
8978Cell[316433, 7070, 822, 16, 35, "Message",ExpressionUUID->"3c976cd1-a65f-4f95-affb-cd5eb7f2c7c5"],
8979Cell[CellGroupData[{
8980Cell[317280, 7090, 862, 15, 24, "Print",ExpressionUUID->"154b17dc-f380-4a51-9360-6b9f213ce8c8"],
8981Cell[318145, 7107, 660, 10, 24, "Print",ExpressionUUID->"6017ed2f-2f7d-404b-afb5-644a16d424ed"],
8982Cell[318808, 7119, 682, 11, 24, "Print",ExpressionUUID->"e5c02566-af88-45ec-ba71-a61d23e352e7"],
8983Cell[319493, 7132, 875, 15, 24, "Print",ExpressionUUID->"39fe8f78-6f48-4b01-b3df-d89a404649d1"],
8984Cell[320371, 7149, 188, 4, 24, "Print",ExpressionUUID->"9a4959a4-ea21-4fdc-9cbf-588f6cb99cf1"],
8985Cell[320562, 7155, 188, 4, 24, "Print",ExpressionUUID->"787c8cac-09a0-4628-a16c-9bd97e5d71d4"],
8986Cell[320753, 7161, 186, 4, 24, "Print",ExpressionUUID->"0dde040a-41ff-4822-8078-cba3cee60ada"],
8987Cell[320942, 7167, 186, 4, 24, "Print",ExpressionUUID->"b90a6596-5bd1-49a9-ba53-4c274fbdf25b"],
8988Cell[321131, 7173, 1034, 18, 24, "Print",ExpressionUUID->"cb0c68b8-5dce-4df2-aec1-625eba3e071c"],
8989Cell[322168, 7193, 656, 10, 24, "Print",ExpressionUUID->"62433847-18d4-4946-9e0c-31f09dfb2fd2"],
8990Cell[322827, 7205, 639, 10, 24, "Print",ExpressionUUID->"5a4e4df2-5945-4a6a-96c5-16ae8c2195b7"]
8991}, Open ]]
8992}, Open ]]
8993}, Closed]],
8994Cell[CellGroupData[{
8995Cell[323527, 7222, 259, 4, 38, "Section",ExpressionUUID->"53ecbd33-5272-492c-852c-e5bf1a0b7721"],
8996Cell[CellGroupData[{
8997Cell[323811, 7230, 978, 21, 89, "Input",ExpressionUUID->"28c116c0-1f9f-4f2c-8abc-26a8e636817b"],
8998Cell[CellGroupData[{
8999Cell[324814, 7255, 434, 7, 24, "Print",ExpressionUUID->"85797c99-afef-436b-b980-1d6f6a594d8f"],
9000Cell[325251, 7264, 452, 7, 24, "Print",ExpressionUUID->"95e243a0-ab98-4f77-ae85-d1ec030c90ed"],
9001Cell[325706, 7273, 421, 7, 24, "Print",ExpressionUUID->"ee1b636b-3469-4f35-8c6c-c47bc9007959"],
9002Cell[326130, 7282, 427, 7, 24, "Print",ExpressionUUID->"3ccf1f11-8901-4292-8204-4898f76a63e4"],
9003Cell[326560, 7291, 556, 11, 24, "Print",ExpressionUUID->"29770907-bc6b-4e2a-a929-b058506d1eec"],
9004Cell[327119, 7304, 425, 7, 24, "Print",ExpressionUUID->"52282be9-1018-4d84-b5e0-671859252ced"],
9005Cell[327547, 7313, 415, 7, 24, "Print",ExpressionUUID->"a11677c5-6678-4f99-b636-3e4e863f12ed"],
9006Cell[327965, 7322, 462, 8, 24, "Print",ExpressionUUID->"1933dce5-a6ee-4b76-a991-4c7f8ea22886"],
9007Cell[328430, 7332, 411, 7, 24, "Print",ExpressionUUID->"12956392-089e-4615-8579-1d1a092afe02"],
9008Cell[328844, 7341, 444, 7, 24, "Print",ExpressionUUID->"546ac6e8-7e23-44b4-a649-b393fb1210d6"],
9009Cell[329291, 7350, 445, 7, 24, "Print",ExpressionUUID->"75241964-576a-4faf-a857-0c011bdba2d2"],
9010Cell[329739, 7359, 443, 7, 24, "Print",ExpressionUUID->"e971b67c-8225-49ba-b191-dfa45392d032"],
9011Cell[330185, 7368, 622, 12, 44, "Print",ExpressionUUID->"18664c6b-357d-4342-9104-8bb454361735"]
9012}, Open ]],
9013Cell[330822, 7383, 388, 10, 24, "Message",ExpressionUUID->"43500c43-05bd-4774-a154-19ea36644ac2"],
9014Cell[CellGroupData[{
9015Cell[331235, 7397, 904, 17, 24, "Print",ExpressionUUID->"1bac0ca5-6dea-4116-88f0-e8ebf4cbd88f"],
9016Cell[332142, 7416, 1015, 21, 24, "Print",ExpressionUUID->"23772da3-20bb-49a3-9791-c8e46321efca"],
9017Cell[333160, 7439, 1006, 20, 24, "Print",ExpressionUUID->"535ff223-c7c1-47a2-a6fb-1c9ae3c88d71"]
9018}, Open ]],
9019Cell[334181, 7462, 383, 10, 24, "Message",ExpressionUUID->"c7107f3f-28a6-4663-98b0-84bfeae00026"],
9020Cell[CellGroupData[{
9021Cell[334589, 7476, 895, 17, 24, "Print",ExpressionUUID->"38865933-390c-4507-856c-a5e8e928536f"],
9022Cell[335487, 7495, 432, 7, 24, "Print",ExpressionUUID->"863cf9a0-ab96-4358-b0d0-9c6d8eec3648"]
9023}, Open ]]
9024}, Open ]],
9025Cell[CellGroupData[{
9026Cell[335968, 7508, 1657, 34, 241, "Input",ExpressionUUID->"ada2b80e-48de-4ea4-8904-96bb6ce4269d"],
9027Cell[CellGroupData[{
9028Cell[337650, 7546, 790, 15, 24, "Print",ExpressionUUID->"60ca7edb-f541-45d3-a4f4-a0581683fe01"],
9029Cell[338443, 7563, 567, 9, 24, "Print",ExpressionUUID->"30eff751-e4cb-4753-b127-3bf15542108f"],
9030Cell[339013, 7574, 561, 9, 24, "Print",ExpressionUUID->"17fc9198-c2a4-42ed-8bef-afd924385c55"],
9031Cell[339577, 7585, 602, 10, 24, "Print",ExpressionUUID->"3a069a5b-10fe-427f-b76e-e78784455ab5"]
9032}, Open ]],
9033Cell[340194, 7598, 1110, 26, 62, "Output",ExpressionUUID->"8ef8e7a9-56ee-4427-b0df-d5abfd004bab"],
9034Cell[CellGroupData[{
9035Cell[341329, 7628, 620, 10, 24, "Print",ExpressionUUID->"3abcec94-6ea2-49a7-8449-0bafb455cce5"],
9036Cell[341952, 7640, 616, 10, 24, "Print",ExpressionUUID->"af6a461b-3939-492b-8b91-ade91cf6bf9c"],
9037Cell[342571, 7652, 811, 17, 24, "Print",ExpressionUUID->"e26c5907-a82f-4fc8-b164-a63b2efb9bc1"],
9038Cell[343385, 7671, 566, 9, 24, "Print",ExpressionUUID->"3e56152b-e697-49fe-8e43-6a8d9a48a0d5"],
9039Cell[343954, 7682, 557, 9, 24, "Print",ExpressionUUID->"25f78555-40ab-475f-991a-727683732769"],
9040Cell[344514, 7693, 679, 13, 24, "Print",ExpressionUUID->"9009ffd9-f7dc-4d7c-9e73-fa271e58ef90"],
9041Cell[345196, 7708, 566, 9, 24, "Print",ExpressionUUID->"fa5e68f8-6e71-43d4-9a2b-a3092966ad9a"]
9042}, Open ]],
9043Cell[345777, 7720, 548, 9, 31, "Output",ExpressionUUID->"fe6c443d-05c2-478f-9468-2e0003df89fd"],
9044Cell[CellGroupData[{
9045Cell[346350, 7733, 811, 17, 24, "Print",ExpressionUUID->"00a6be77-ac2a-47ff-90b5-81595f769e8d"],
9046Cell[347164, 7752, 568, 9, 24, "Print",ExpressionUUID->"7544f856-0d3a-4483-851c-08669063a7c8"],
9047Cell[347735, 7763, 599, 10, 24, "Print",ExpressionUUID->"9af6e530-e70c-4fbd-9772-fdd9ba2d37d9"],
9048Cell[348337, 7775, 1078, 21, 24, "Print",ExpressionUUID->"2694cb2b-8fc5-4b8b-93c4-64ed18de3872"],
9049Cell[349418, 7798, 681, 13, 24, "Print",ExpressionUUID->"2572328d-4c0d-4324-8812-05d0205bafd3"]
9050}, Open ]],
9051Cell[350114, 7814, 7492, 202, 92, "Output",ExpressionUUID->"0ce58716-9b82-46fd-a390-5f3c300753aa"],
9052Cell[CellGroupData[{
9053Cell[357631, 8020, 907, 17, 24, "Print",ExpressionUUID->"20b95ae6-9032-4b09-892b-67594c12dd2c"],
9054Cell[358541, 8039, 849, 18, 24, "Print",ExpressionUUID->"a465d649-d0f3-4ce3-a1f6-1645bd2262b2"],
9055Cell[359393, 8059, 814, 17, 24, "Print",ExpressionUUID->"f0cf56c5-404c-4ef0-93b4-e21f43c83d44"],
9056Cell[360210, 8078, 588, 10, 24, "Print",ExpressionUUID->"6c7ec2e9-43a8-4cce-8726-5d51e9cb5d16"],
9057Cell[360801, 8090, 811, 17, 24, "Print",ExpressionUUID->"68559266-de35-46c3-8d2b-4c214867b292"],
9058Cell[361615, 8109, 566, 9, 24, "Print",ExpressionUUID->"04e965aa-3cb8-47ac-a1c1-f38179f5ccad"],
9059Cell[362184, 8120, 750, 14, 24, "Print",ExpressionUUID->"b58c3a8f-7910-4ce4-81d4-33bca008bd1c"],
9060Cell[362937, 8136, 601, 10, 24, "Print",ExpressionUUID->"f29867e0-e4c0-4e87-9f46-e8961c88a775"],
9061Cell[363541, 8148, 1084, 21, 24, "Print",ExpressionUUID->"36a20ce5-bb81-4082-ae00-06115a9ff8cf"],
9062Cell[364628, 8171, 681, 13, 24, "Print",ExpressionUUID->"45f3035d-3f4e-4487-9929-d78b7a382970"],
9063Cell[365312, 8186, 1035, 20, 24, "Print",ExpressionUUID->"1d19f595-890e-4127-84e6-1f17a16894fd"],
9064Cell[366350, 8208, 582, 9, 24, "Print",ExpressionUUID->"0e9481d3-3a08-4256-a0fa-0e22c1877880"],
9065Cell[366935, 8219, 847, 18, 24, "Print",ExpressionUUID->"17810a74-f64f-4a52-904d-d99b6aa08c29"],
9066Cell[367785, 8239, 801, 17, 24, "Print",ExpressionUUID->"6bfc4ad6-449c-470d-97d7-3ae3b5c764ce"],
9067Cell[368589, 8258, 779, 14, 24, "Print",ExpressionUUID->"957a7ba8-f247-4691-8d68-9ebca5704951"]
9068}, Open ]],
9069Cell[369383, 8275, 427, 9, 24, "Message",ExpressionUUID->"777d77dc-1a04-48ff-a6a8-957a4d701dc4"],
9070Cell[CellGroupData[{
9071Cell[369835, 8288, 767, 14, 24, "Print",ExpressionUUID->"c0670a75-1122-4f99-aa7c-bd0371916922"],
9072Cell[370605, 8304, 563, 9, 24, "Print",ExpressionUUID->"b75e6f93-b37b-4276-b1a9-1bf0e585de78"],
9073Cell[371171, 8315, 587, 10, 24, "Print",ExpressionUUID->"c4bab9a9-1432-4b17-afad-b3e0bed156c9"],
9074Cell[371761, 8327, 780, 14, 24, "Print",ExpressionUUID->"26e020ab-ef72-4338-8d2e-73588791c498"],
9075Cell[372544, 8343, 188, 4, 24, "Print",ExpressionUUID->"dd277b44-ee19-4bd8-96b8-7649e477f036"],
9076Cell[372735, 8349, 188, 4, 24, "Print",ExpressionUUID->"e9d6d0ed-0bd0-42dd-bcc7-fafc6931bbe7"],
9077Cell[372926, 8355, 186, 4, 24, "Print",ExpressionUUID->"2719f187-7768-4195-8b59-abb64ddb2a94"],
9078Cell[373115, 8361, 186, 4, 24, "Print",ExpressionUUID->"d62e7e14-fbd0-426d-b901-44367b6f5b01"],
9079Cell[373304, 8367, 937, 17, 24, "Print",ExpressionUUID->"3be7425b-beb9-44e3-a5ed-80013c789199"],
9080Cell[374244, 8386, 559, 9, 24, "Print",ExpressionUUID->"c6a34b83-8ccf-492b-b7ab-3d297e88f6c7"],
9081Cell[374806, 8397, 546, 9, 24, "Print",ExpressionUUID->"cd04bdb0-a386-40ac-9f77-a4305dc68aef"]
9082}, Open ]]
9083}, Open ]],
9084Cell[CellGroupData[{
9085Cell[375401, 8412, 221, 4, 31, "Input",ExpressionUUID->"9b3e8b3f-1e6b-480c-8d31-b0341a561a01"],
9086Cell[375625, 8418, 224, 3, 27, "Output",ExpressionUUID->"11883441-ee12-4ae9-93a9-33ef38fea381"]
9087}, Open ]]
9088}, Closed]]
9089}
9090]
9091*)
9092