ChernSimonsPortal: ChernSimons.nb

File ChernSimons.nb, 54.6 KB (added by MaksymOvchynnikov, 5 months ago)
Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 6.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[     55795,       1206]
14NotebookOptionsPosition[     48595,       1046]
15NotebookOutlinePosition[     48990,       1063]
16CellTagsIndexPosition[     48947,       1060]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell[BoxData[{
24 RowBox[{"$FeynRulesPath", "=",
25  RowBox[{
26  "SetDirectory", "[",
27   "\"\</Users/miksi/AppData/Roaming/Mathematica/Applications/feynrules-\
28current\>\"", "]"}]}], "\[IndentingNewLine]",
29 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
30 RowBox[{
31  RowBox[{"SetDirectory", "[",
32   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM\>\""}], "]"}],
33  ";"}]}], "Input",
34 CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
35  3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
36  3.4234163227881193`*^9}, {3.7699296857950644`*^9, 3.7699297151216035`*^9}, {
37  3.770018677814289*^9, 3.770018683516034*^9}, {3.7700188623105717`*^9,
38  3.770018876381921*^9}},ExpressionUUID->"0708a221-1e85-4914-afcc-\
390affdce87cfe"],
40
41Cell[BoxData["\<\"C:\\\\Users\\\\miksi\\\\AppData\\\\Roaming\\\\Mathematica\\\
42\\Applications\\\\feynrules-current\"\>"], "Output",
43 CellChangeTimes->{
44  3.770018884618884*^9, 3.770026366290766*^9, 3.7700287207027664`*^9,
45   3.7700318797155466`*^9, {3.770032088753557*^9, 3.7700321405882206`*^9},
46   3.7700322130020423`*^9, 3.7700338985417213`*^9, 3.7700349092303057`*^9,
47   3.770035774463673*^9, 3.77004599543388*^9, 3.7700492085244484`*^9,
48   3.770050202229926*^9, 3.770050489826527*^9, 3.7700505460397234`*^9,
49   3.770050932569648*^9, {3.7700509999504623`*^9, 3.7700510231042695`*^9}, {
50   3.770963419780664*^9, 3.7709634469725323`*^9}, {3.7716584358604617`*^9,
51   3.7716584474280634`*^9},
52   3.771659067508607*^9},ExpressionUUID->"2584ad75-06bf-4691-b51e-\
531e6145c4c1db"],
54
55Cell[CellGroupData[{
56
57Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
58 CellChangeTimes->{
59  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
60   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
61   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
62   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
63   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
64   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
65   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
66   3.771658447472066*^9},
67   3.7716590675463657`*^9},ExpressionUUID->"fbb2b292-6508-4b62-a62f-\
687849e472af4b"],
69
70Cell[BoxData[
71 InterpretationBox[
72  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.34\"\>",
73   "\[InvisibleSpace]",
74   RowBox[{"\<\" (\"\>", " ", "\<\"22 May 2019\"\>"}],
75   "\[InvisibleSpace]", "\<\").\"\>"}],
76  SequenceForm["Version: ", "2.3.34", " (" "22 May 2019", ")."],
77  Editable->False]], "Print",
78 CellChangeTimes->{
79  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
80   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
81   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
82   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
83   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
84   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
85   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
86   3.771658447472066*^9},
87   3.7716590675463657`*^9},ExpressionUUID->"b1c445e5-76bc-44c3-a9a8-\
88c53ef3e0b398"],
89
90Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
91B. Fuks\"\>"], "Print",
92 CellChangeTimes->{
93  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
94   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
95   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
96   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
97   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
98   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
99   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
100   3.771658447472066*^9},
101   3.7716590675463657`*^9},ExpressionUUID->"abd080cc-78f1-4323-9885-\
1023cd53809e107"],
103
104Cell[BoxData["\<\" \"\>"], "Print",
105 CellChangeTimes->{
106  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
107   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
108   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
109   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
110   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
111   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
112   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
113   3.771658447472066*^9},
114   3.771659067561984*^9},ExpressionUUID->"e6976d9c-7595-4662-a518-\
115ff63617d3e89"],
116
117Cell[BoxData["\<\"Please cite:\"\>"], "Print",
118 CellChangeTimes->{
119  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
120   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
121   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
122   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
123   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
124   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
125   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
126   3.771658447472066*^9},
127   3.7716590675677357`*^9},ExpressionUUID->"ecc02e49-3c43-4649-9b7f-\
1287d1edb300262"],
129
130Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
131(arXiv:1310.1921);\"\>"], "Print",
132 CellChangeTimes->{
133  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
134   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
135   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
136   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
137   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
138   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
139   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
140   3.771658447472066*^9},
141   3.7716590675677357`*^9},ExpressionUUID->"c0b12cd2-290e-4015-a85b-\
142d7d05706126d"],
143
144Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
145(arXiv:0806.4194).\"\>"], "Print",
146 CellChangeTimes->{
147  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
148   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
149   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
150   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
151   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
152   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
153   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
154   3.771658447472066*^9},
155   3.7716590675677357`*^9},ExpressionUUID->"475c5d4b-f8ab-4a19-b5e2-\
156e0362a422827"],
157
158Cell[BoxData["\<\" \"\>"], "Print",
159 CellChangeTimes->{
160  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
161   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
162   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
163   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
164   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
165   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
166   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
167   3.771658447472066*^9},
168   3.7716590675677357`*^9},ExpressionUUID->"5d9bd842-40de-439c-a3fd-\
169d07a1f27eb27"],
170
171Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
172 CellChangeTimes->{
173  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
174   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
175   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
176   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
177   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
178   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
179   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
180   3.771658447472066*^9},
181   3.7716590675677357`*^9},ExpressionUUID->"e0a95798-9b3f-4f46-a5df-\
182afae4905a0e2"],
183
184Cell[BoxData["\<\" \"\>"], "Print",
185 CellChangeTimes->{
186  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
187   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
188   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
189   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
190   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
191   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
192   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
193   3.771658447472066*^9},
194   3.771659067583359*^9},ExpressionUUID->"5cac65c4-c76a-4765-af9d-\
195949300ab637b"],
196
197Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
198FRPalette[].\"\>"], "Print",
199 CellChangeTimes->{
200  3.7700188846498003`*^9, 3.7700263662977495`*^9, 3.770028720707753*^9,
201   3.770031879724521*^9, {3.770032088814395*^9, 3.770032140643078*^9},
202   3.770032213009056*^9, 3.7700338985546937`*^9, 3.770034909239296*^9,
203   3.7700357744716625`*^9, 3.770045995439863*^9, 3.77004920857232*^9,
204   3.770050202282785*^9, 3.770050489830517*^9, 3.7700505460796175`*^9,
205   3.7700509326005745`*^9, {3.7700509999544525`*^9, 3.770051023111249*^9}, {
206   3.770963419801607*^9, 3.7709634469805126`*^9}, {3.7716584359364696`*^9,
207   3.771658447472066*^9},
208   3.771659067583359*^9},ExpressionUUID->"4816d7d1-74ba-4154-824b-\
20933bd2fbc4a88"]
210}, Open  ]]
211}, Open  ]],
212
213Cell[CellGroupData[{
214
215Cell["Chern-Simons Lagrangian", "Section",
216 CellChangeTimes->{{3.770018943147238*^9, 3.7700189488479867`*^9}, {
217  3.7709633802581882`*^9, 3.7709633806382055`*^9}, {3.771660160478606*^9,
218  3.771660160748828*^9}},ExpressionUUID->"8b2944ed-22b5-4602-a003-\
2192dadb1cf0b3d"],
220
221Cell[CellGroupData[{
222
223Cell[BoxData[{
224 RowBox[{"LoadModel", "[",
225  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<Chern-Simons-Portal.fr\>\""}],
226  "]"}], "\[IndentingNewLine]",
227 RowBox[{"LoadRestriction", "[",
228  RowBox[{"\"\<Massless.rst\>\"", ",", "\"\<DiagonalCKM.rst\>\""}],
229  "]"}], "\[IndentingNewLine]",
230 RowBox[{"LCS", ":=",
231  RowBox[{
232   RowBox[{"cW", " ",
233    RowBox[{"Eps", "[",
234     RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}],
235   
236    RowBox[{"W", "[", "\[Mu]", "]"}], " ",
237    RowBox[{"xb", "[", "\[Nu]", "]"}],
238    RowBox[{"del", "[",
239     RowBox[{
240      RowBox[{"HC", "[",
241       RowBox[{"W", "[", "\[Alpha]", "]"}], "]"}], ",", "\[Beta]"}], "]"}]}],
242   "+",
243   RowBox[{"cW", " ",
244    RowBox[{"Eps", "[",
245     RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}],
246   
247    RowBox[{"HC", "[",
248     RowBox[{"W", "[", "\[Mu]", "]"}], "]"}], " ",
249    RowBox[{"xb", "[", "\[Nu]", "]"}],
250    RowBox[{"del", "[",
251     RowBox[{
252      RowBox[{"W", "[", "\[Alpha]", "]"}], ",", "\[Beta]"}], "]"}]}], "+",
253   RowBox[{"cZ", " ",
254    RowBox[{"Eps", "[",
255     RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}],
256   
257    RowBox[{"Z", "[", "\[Mu]", "]"}], " ",
258    RowBox[{"xb", "[", "\[Nu]", "]"}],
259    RowBox[{"del", "[",
260     RowBox[{
261      RowBox[{"Z", "[", "\[Alpha]", "]"}], ",", "\[Beta]"}], "]"}]}], "+",
262   RowBox[{"cZgamma", " ",
263    RowBox[{"Eps", "[",
264     RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}],
265   
266    RowBox[{"Z", "[", "\[Mu]", "]"}], " ",
267    RowBox[{"xb", "[", "\[Nu]", "]"}],
268    RowBox[{"del", "[",
269     RowBox[{
270      RowBox[{"Z", "[", "\[Alpha]", "]"}], ",", "\[Beta]"}], "]"}]}], "+",
271   RowBox[{"Cmu", " ",
272    RowBox[{"xb", "[", "\[Nu]", "]"}],
273    RowBox[{"mubar", ".",
274     RowBox[{"Ga", "[", "\[Nu]", "]"}], ".",
275     RowBox[{"Ga", "[", "5", "]"}], ".", "mu"}]}], "+",
276   RowBox[{
277    FractionBox[
278     SuperscriptBox["Mxb", "2"], "2"],
279    RowBox[{"xb", "[", "\[Nu]", "]"}],
280    RowBox[{"xb", "[", "\[Nu]", "]"}]}], "-",
281   RowBox[{
282    FractionBox["1", "4"],
283    RowBox[{"(",
284     RowBox[{
285      RowBox[{"del", "[",
286       RowBox[{
287        RowBox[{"xb", "[", "\[Mu]", "]"}], ",", "\[Nu]"}], "]"}], "-",
288      RowBox[{"del", "[",
289       RowBox[{
290        RowBox[{"xb", "[", "\[Nu]", "]"}], ",", "\[Mu]"}], "]"}]}], ")"}],
291    RowBox[{"(",
292     RowBox[{
293      RowBox[{"del", "[",
294       RowBox[{
295        RowBox[{"xb", "[", "\[Mu]", "]"}], ",", "\[Nu]"}], "]"}], "-",
296      RowBox[{"del", "[",
297       RowBox[{
298        RowBox[{"xb", "[", "\[Nu]", "]"}], ",", "\[Mu]"}], "]"}]}],
299     ")"}]}]}]}], "\[IndentingNewLine]",
300 RowBox[{"CheckHermiticity", "[", "LCS", "]"}], "\[IndentingNewLine]",
301 RowBox[{
302  RowBox[{"FeynmanGauge", "\[Rule]", "False"}],
303  ";"}], "\[IndentingNewLine]",
304 RowBox[{
305  RowBox[{"WriteUFO", "[",
306   RowBox[{"LSM", "+", "LCS"}], "]"}], ";"}], "\[IndentingNewLine]",
307 RowBox[{"FeynmanRules", "[", "LCS", "]"}], "\[IndentingNewLine]",
308 RowBox[{"CheckMassSpectrum", "[", "LCS", "]"}]}], "Input",
309 CellChangeTimes->{{3.7700189562442236`*^9, 3.7700191587633967`*^9}, {
310  3.770019247701813*^9, 3.7700193086497188`*^9}, {3.7700193567779555`*^9,
311  3.770019394678585*^9}, {3.770020411712239*^9, 3.77002042281653*^9}, {
312  3.770020549244278*^9, 3.770020552564395*^9}, {3.770020609944874*^9,
313  3.770020617893608*^9}, {3.7700207091119576`*^9, 3.7700208667985945`*^9}, {
314  3.7700213240982018`*^9, 3.7700213566351824`*^9}, {3.77002140374516*^9,
315  3.7700214779929557`*^9}, {3.7700216056020727`*^9, 3.7700216517685575`*^9}, {
316  3.770050483069606*^9, 3.7700504845586214`*^9}, {3.7709633478498116`*^9,
317  3.770963362999318*^9}, {3.771658539438449*^9, 3.7716585448172464`*^9}, {
318  3.7716585865161314`*^9,
319  3.7716586059277987`*^9}},ExpressionUUID->"900d4461-aeba-47bc-8179-\
32081878652e795"],
321
322Cell[CellGroupData[{
323
324Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
325 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
326  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
327  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
328  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
329  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
330  3.771659071600277*^9},ExpressionUUID->"1d6fc101-fb15-4463-b37a-\
331916e2517a433"],
332
333Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
334 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
335  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
336  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
337  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
338  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
339  3.7716590716362786`*^9},ExpressionUUID->"3e165d0c-4210-4060-afaa-\
3400edb4381bf37"],
341
342Cell[BoxData["\<\"M.Ovchynnikov\"\>"], "Print",
343 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
344  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
345  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
346  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
347  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
348  3.771659071640274*^9},ExpressionUUID->"9b60cd0e-adb7-437d-8a62-\
349b88afd43f10a"],
350
351Cell[BoxData[
352 InterpretationBox[
353  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
354  SequenceForm["Model Version: ", "1.0"],
355  Editable->False]], "Print",
356 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
357  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
358  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
359  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
360  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
361  3.771659071644276*^9},ExpressionUUID->"bbae8cd4-92fc-497b-8654-\
362ab2ea17fa74b"],
363
364Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
365"Print",
366 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
367  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
368  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
369  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
370  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
371  3.7716590716482787`*^9},ExpressionUUID->"7108e137-3426-4e3c-b8c9-\
3729cd03a5da0a4"],
373
374Cell[BoxData["\<\"\"\>"], "Print",
375 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
376  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
377  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
378  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
379  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
380  3.7716590716562967`*^9},ExpressionUUID->"5d90bb4f-c4c3-48e2-b3fd-\
3817c3eb66846e3"],
382
383Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
384 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
385  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
386  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
387  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
388  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
389  3.7716590716602755`*^9},ExpressionUUID->"882f7885-0842-46c5-9ad5-\
3905deb7ddda685"],
391
392Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
393 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
394  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
395  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
396  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
397  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
398  3.771659071792019*^9},ExpressionUUID->"07ae89bb-6288-4cd5-aba6-\
399f3fecfae20d7"],
400
401Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
402 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
403  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
404  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
405  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
406  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
407  3.7716590717960157`*^9},ExpressionUUID->"ae3d7c99-9d23-47fb-95cf-\
408914510f3b122"],
409
410Cell[BoxData[
411 InterpretationBox[
412  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"ChernSimons\"\>",
413   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
414  SequenceForm["\nModel ", "ChernSimons", " loaded."],
415  Editable->False]], "Print",
416 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
417  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
418  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
419  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
420  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
421  3.771659071900015*^9},ExpressionUUID->"f594271d-f11d-4078-8323-\
422087810f853c5"],
423
424Cell[BoxData[
425 InterpretationBox[
426  RowBox[{"\<\"Loading restrictions from \"\>",
427   "\[InvisibleSpace]", "\<\"Massless.rst\"\>",
428   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
429   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
430    ImageSizeCache->{10., {0., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
431   "\[InvisibleSpace]", "18"}],
432  SequenceForm["Loading restrictions from ", "Massless.rst", " : ",
433   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
434  Editable->False]], "Print",
435 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
436  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
437  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
438  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
439  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
440  3.771659072841994*^9},ExpressionUUID->"23f840b4-1fac-49d7-902a-\
441de61c1fe5bae"],
442
443Cell[BoxData[
444 InterpretationBox[
445  RowBox[{"\<\"Loading restrictions from \"\>",
446   "\[InvisibleSpace]", "\<\"DiagonalCKM.rst\"\>",
447   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
448   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
449    ImageSizeCache->{10., {0., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
450   "\[InvisibleSpace]", "3"}],
451  SequenceForm["Loading restrictions from ", "DiagonalCKM.rst", " : ",
452   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
453  Editable->False]], "Print",
454 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
455  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
456  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
457  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
458  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
459  3.7716590730281677`*^9},ExpressionUUID->"babc7bb3-8a84-4ecb-a061-\
46032b66cce0eca"],
461
462Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
463 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
464  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
465  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
466  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
467  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
468  3.7716590731561704`*^9},ExpressionUUID->"67aa327e-1799-4879-b2cb-\
46907003dcc3658"],
470
471Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
472contained in L-HC[L].\"\>"], "Print",
473 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
474  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
475  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
476  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
477  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
478  3.771659073196169*^9},ExpressionUUID->"1a6335fb-3326-4b68-a7e1-\
479d1c7a24dba72"],
480
481Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
482should be zero.\"\>"], "Print",
483 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
484  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
485  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
486  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
487  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
488  3.771659073204173*^9},ExpressionUUID->"c6adb990-5f52-4ffa-b96c-\
489fe67a27c0651"],
490
491Cell[BoxData[
492 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
493  StripOnInput->False,
494  LineColor->RGBColor[1, 0.5, 0],
495  FrontFaceColor->RGBColor[1, 0.5, 0],
496  BackFaceColor->RGBColor[1, 0.5, 0],
497  GraphicsColor->RGBColor[1, 0.5, 0],
498  FontWeight->Bold,
499  FontColor->RGBColor[1, 0.5, 0]]], "Print",
500 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
501  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
502  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
503  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
504  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
505  3.7716590735241704`*^9},ExpressionUUID->"63cf4728-d6fa-44cf-9cbe-\
506e9e289be8458"],
507
508Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
509 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
510  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
511  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
512  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
513  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
514  3.7716590735281687`*^9},ExpressionUUID->"11cbe5f2-952d-4ade-a132-\
51571db5214f9ad"],
516
517Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
518 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
519  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
520  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
521  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
522  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
523  3.7716590735321712`*^9},ExpressionUUID->"acaab19b-eafe-40dd-81e2-\
524354003693d40"],
525
526Cell[BoxData[
527 InterpretationBox[
528  RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
529  SequenceForm[0, " vertices obtained."],
530  Editable->False]], "Print",
531 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
532  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
533  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
534  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
535  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
536  3.7716590735401692`*^9},ExpressionUUID->"ba35ddb3-2d7a-4db3-994d-\
537f42f49201704"],
538
539Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
540 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
541  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
542  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
543  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
544  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
545  3.7716590735441685`*^9},ExpressionUUID->"0b93fd14-080f-430c-b70d-\
546fb0271972095"]
547}, Open  ]],
548
549Cell[BoxData[
550 RowBox[{"{", "}"}]], "Output",
551 CellChangeTimes->{3.771658987677289*^9,
552  3.771659073548171*^9},ExpressionUUID->"b896ecd7-5873-4fdc-98ea-\
5532443412e2b2b"],
554
555Cell[CellGroupData[{
556
557Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
558"Print",
559 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
560  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
561  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
562  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
563  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
564  3.771659076296605*^9},ExpressionUUID->"d8eb7552-1fe8-424b-9fd4-\
56592181578a500"],
566
567Cell[BoxData[
568 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
569  StripOnInput->False,
570  LineColor->RGBColor[1, 0.5, 0],
571  FrontFaceColor->RGBColor[1, 0.5, 0],
572  BackFaceColor->RGBColor[1, 0.5, 0],
573  GraphicsColor->RGBColor[1, 0.5, 0],
574  FontWeight->Bold,
575  FontColor->RGBColor[1, 0.5, 0]]], "Print",
576 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
577  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
578  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
579  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
580  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
581  3.7716590766674204`*^9},ExpressionUUID->"2b7d686d-88cc-4c4f-a362-\
582792d5be7ec7a"],
583
584Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
585 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
586  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
587  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
588  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
589  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
590  3.771659076669442*^9},ExpressionUUID->"bb1038a7-14a7-4708-b066-\
59124b9dbcb38cd"],
592
593Cell[BoxData[
594 InterpretationBox[
595  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
596   "\[InvisibleSpace]", "\<\" cores\"\>"}],
597  SequenceForm["Expanding the indices over ", 2, " cores"],
598  Editable->False]], "Print",
599 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
600  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
601  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
602  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
603  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
604  3.7716590766795483`*^9},ExpressionUUID->"1b1e6491-0e8b-4c07-b337-\
60561bee43fd3f0"],
606
607Cell[BoxData["\<\"Collecting the different structures that enter the \
608vertex.\"\>"], "Print",
609 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
610  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
611  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
612  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
613  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
614  3.7716590857077036`*^9},ExpressionUUID->"71efb46d-0ca1-4729-896c-\
615b6eec9d71cb4"],
616
617Cell[BoxData[
618 InterpretationBox[
619  RowBox[{
620  "101", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
621found -> starting the computation: \"\>", "\[InvisibleSpace]",
622   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
623    ImageSizeCache->{10., {0., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
624   "\[InvisibleSpace]", "101", "\[InvisibleSpace]", "\<\".\"\>"}],
625  SequenceForm[
626  101, " possible non-zero vertices have been found -> starting the \
627computation: ",
628   Dynamic[FeynRules`FR$FeynmanRules], " / ", 101, "."],
629  Editable->False]], "Print",
630 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
631  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
632  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
633  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
634  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
635  3.771659085801607*^9},ExpressionUUID->"36d5d78b-1444-415e-b73e-\
636e9a8fbc60454"],
637
638Cell[BoxData[
639 InterpretationBox[
640  RowBox[{"96", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
641  SequenceForm[96, " vertices obtained."],
642  Editable->False]], "Print",
643 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
644  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
645  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
646  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
647  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
648  3.7716590914926147`*^9},ExpressionUUID->"e7595139-4e1e-46fb-aa71-\
6497a380fa7fd92"],
650
651Cell[BoxData[
652 InterpretationBox[
653  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
654   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
655   "\[InvisibleSpace]",
656   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
657    ImageSizeCache->{20., {0., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
658   "\[InvisibleSpace]", "96"}],
659  SequenceForm[
660  "Flavor expansion of the vertices distributed over ", 2, " cores: ",
661   Dynamic[FeynRules`FR$Count1], " / ", 96],
662  Editable->False]], "Print",
663 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
664  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
665  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
666  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
667  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
668  3.7716590950037527`*^9},ExpressionUUID->"f6b736b6-4348-4a9e-99d8-\
669d5c429a08c06"],
670
671Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
672 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
673  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
674  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
675  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
676  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
677  3.7716591009803276`*^9},ExpressionUUID->"06d5d6ff-da08-4fd0-9652-\
6784f1f96b9ef8a"],
679
680Cell[BoxData[
681 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
682decays: \"\>",
683  StripOnInput->False,
684  LineColor->RGBColor[1, 0.5, 0],
685  FrontFaceColor->RGBColor[1, 0.5, 0],
686  BackFaceColor->RGBColor[1, 0.5, 0],
687  GraphicsColor->RGBColor[1, 0.5, 0],
688  FontWeight->Bold,
689  FontColor->RGBColor[1, 0.5, 0]]], "Print",
690 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
691  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
692  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
693  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
694  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
695  3.7716591010283084`*^9},ExpressionUUID->"0f5a82ed-e028-453f-82ad-\
696b00ab757e1b7"],
697
698Cell[BoxData[
699 InterpretationBox[
700  RowBox[{
701   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
702    ImageSizeCache->{20., {0., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
703   "\[InvisibleSpace]", "43"}],
704  SequenceForm[
705   Dynamic[PRIVATE`mycounter], " / ", 43],
706  Editable->False]], "Print",
707 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
708  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
709  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
710  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
711  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
712  3.7716591010718985`*^9},ExpressionUUID->"2fe75a04-7a61-476b-b361-\
71342f329f0a19b"],
714
715Cell[BoxData[
716 InterpretationBox[
717  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
718   "2.21875`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
719  SequenceForm["Squared matrix elent compute in ", 2.21875, " seconds."],
720  Editable->False]], "Print",
721 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
722  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
723  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
724  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
725  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
726  3.77165911251306*^9},ExpressionUUID->"cce4b2a1-cbb4-4639-8e0e-211b868445b4"],
727
728Cell[BoxData[
729 InterpretationBox[
730  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
731   "0.015625`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
732  SequenceForm["Decay widths computed in ", 0.015625, " seconds."],
733  Editable->False]], "Print",
734 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
735  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
736  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
737  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
738  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
739  3.7716591125530577`*^9},ExpressionUUID->"8d31a23f-6be0-45c4-b5ab-\
740932f117fa391"],
741
742Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
743 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
744  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
745  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
746  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
747  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
748  3.7716591125634604`*^9},ExpressionUUID->"ace19c51-aa18-44d2-9966-\
749e0e662dd2361"],
750
751Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
752"Print",
753 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
754  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
755  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
756  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
757  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
758  3.771659112701269*^9},ExpressionUUID->"da24c3fd-4359-4c59-aca7-\
759834c6e9fa023"],
760
761Cell[BoxData[
762 InterpretationBox[
763  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
764   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
765  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
766  Editable->False]], "Print",
767 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
768  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
769  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
770  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
771  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
772  3.7716591127372704`*^9},ExpressionUUID->"fb3cf851-00fb-4bbf-9a20-\
773d9d8f71de672"],
774
775Cell[BoxData[
776 InterpretationBox[
777  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
778   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
779    ImageSizeCache->{30., {0., 12.}}], "\[InvisibleSpace]", "\<\"/\"\>",
780   "\[InvisibleSpace]", "122", "\[InvisibleSpace]", "\<\" .\"\>"}],
781  SequenceForm["    - Optimizing: ",
782   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 122, " ."],
783  Editable->False]], "Print",
784 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
785  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
786  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
787  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
788  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
789  3.771659114801661*^9},ExpressionUUID->"2c126e44-5b10-471a-ae7e-\
790bd4c251dafbb"],
791
792Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
793 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
794  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
795  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
796  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
797  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
798  3.771659114948775*^9},ExpressionUUID->"dff2f723-4f9a-4d4c-ac9c-\
79961cf03c66c1e"],
800
801Cell[BoxData["\<\"Done!\"\>"], "Print",
802 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
803  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
804  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
805  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
806  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
807  3.7716591152495604`*^9},ExpressionUUID->"3c1e0bea-2f75-493e-ae4f-\
808aaa025ce6b40"],
809
810Cell[BoxData[
811 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
812  StripOnInput->False,
813  LineColor->RGBColor[1, 0.5, 0],
814  FrontFaceColor->RGBColor[1, 0.5, 0],
815  BackFaceColor->RGBColor[1, 0.5, 0],
816  GraphicsColor->RGBColor[1, 0.5, 0],
817  FontWeight->Bold,
818  FontColor->RGBColor[1, 0.5, 0]]], "Print",
819 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
820  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
821  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
822  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
823  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
824  3.7716591152575617`*^9},ExpressionUUID->"11e8e8e7-3852-4fa2-96a6-\
825fba49a3b5fef"],
826
827Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
828 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
829  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
830  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
831  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
832  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
833  3.77165911526156*^9},ExpressionUUID->"6aaeee7e-f6f6-4ccb-883f-bd8cd41622c0"],
834
835Cell[BoxData["\<\"Collecting the different structures that enter the \
836vertex.\"\>"], "Print",
837 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
838  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
839  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
840  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
841  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
842  3.771659115413562*^9},ExpressionUUID->"b732fd47-918a-40c8-85dd-\
843bfe85508b742"],
844
845Cell[BoxData[
846 InterpretationBox[
847  RowBox[{
848  "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
849-> starting the computation: \"\>", "\[InvisibleSpace]",
850   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
851    ImageSizeCache->{10., {0., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
852   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
853  SequenceForm[
854  3, " possible non-zero vertices have been found -> starting the \
855computation: ",
856   Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
857  Editable->False]], "Print",
858 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
859  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
860  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
861  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
862  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
863  3.7716591154215603`*^9},ExpressionUUID->"deec0945-3fbf-4c87-823a-\
864f89ecce2ccfe"],
865
866Cell[BoxData[
867 InterpretationBox[
868  RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
869  SequenceForm[3, " vertices obtained."],
870  Editable->False]], "Print",
871 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
872  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
873  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
874  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
875  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
876  3.771659115569034*^9},ExpressionUUID->"cd88433b-9c5b-454f-b473-\
8775c97f05a5a4c"]
878}, Open  ]],
879
880Cell[BoxData[
881 RowBox[{"{",
882  RowBox[{
883   RowBox[{"{",
884    RowBox[{
885     RowBox[{"{",
886      RowBox[{
887       RowBox[{"{",
888        RowBox[{"W", ",", "1"}], "}"}], ",",
889       RowBox[{"{",
890        RowBox[{
891         SuperscriptBox["W", "\[Dagger]"], ",", "2"}], "}"}], ",",
892       RowBox[{"{",
893        RowBox[{"xb", ",", "3"}], "}"}]}], "}"}], ",",
894     RowBox[{
895      RowBox[{
896       RowBox[{"-", "cW"}], " ",
897       SubscriptBox["\[Epsilon]",
898        RowBox[{
899         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
900         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
901         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$1"}]], " ",
902       SubsuperscriptBox["\<\"p\"\>", "1", "mu$1"]}], "+",
903      RowBox[{"cW", " ",
904       SubscriptBox["\[Epsilon]",
905        RowBox[{
906         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
907         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
908         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$1"}]], " ",
909       SubsuperscriptBox["\<\"p\"\>", "2", "mu$1"]}]}]}], "}"}], ",",
910   RowBox[{"{",
911    RowBox[{
912     RowBox[{"{",
913      RowBox[{
914       RowBox[{"{",
915        RowBox[{"xb", ",", "1"}], "}"}], ",",
916       RowBox[{"{",
917        RowBox[{"Z", ",", "2"}], "}"}], ",",
918       RowBox[{"{",
919        RowBox[{"Z", ",", "3"}], "}"}]}], "}"}], ",",
920     RowBox[{
921      RowBox[{
922       RowBox[{"-", "cZ"}], " ",
923       SubscriptBox["\[Epsilon]",
924        RowBox[{
925         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
926         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
927         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$1"}]], " ",
928       SubsuperscriptBox["\<\"p\"\>", "2", "mu$1"]}], "-",
929      RowBox[{"cZgamma", " ",
930       SubscriptBox["\[Epsilon]",
931        RowBox[{
932         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
933         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
934         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$1"}]], " ",
935       SubsuperscriptBox["\<\"p\"\>", "2", "mu$1"]}], "+",
936      RowBox[{"cZ", " ",
937       SubscriptBox["\[Epsilon]",
938        RowBox[{
939         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
940         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
941         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$1"}]], " ",
942       SubsuperscriptBox["\<\"p\"\>", "3", "mu$1"]}], "+",
943      RowBox[{"cZgamma", " ",
944       SubscriptBox["\[Epsilon]",
945        RowBox[{
946         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
947         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
948         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$1"}]], " ",
949       SubsuperscriptBox["\<\"p\"\>", "3", "mu$1"]}]}]}], "}"}], ",",
950   RowBox[{"{",
951    RowBox[{
952     RowBox[{"{",
953      RowBox[{
954       RowBox[{"{",
955        RowBox[{
956         OverscriptBox["mu", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
957       RowBox[{"{",
958        RowBox[{"mu", ",", "2"}], "}"}], ",",
959       RowBox[{"{",
960        RowBox[{"xb", ",", "3"}], "}"}]}], "}"}], ",",
961     RowBox[{"\[ImaginaryI]", " ", "Cmu", " ",
962      SubscriptBox[
963       RowBox[{
964        TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
965         "Superscript"], ".",
966        TemplateBox[{"\[Gamma]","5"},
967         "Superscript"]}],
968       RowBox[{
969        SubscriptBox["\<\"s\"\>", "1"], ",",
970        SubscriptBox["\<\"s\"\>", "2"]}]]}]}], "}"}]}], "}"}]], "Output",
971 CellChangeTimes->{3.771658987677289*^9,
972  3.771659115581035*^9},ExpressionUUID->"699a56d5-5009-4353-9332-\
9734e50d024f36f"],
974
975Cell[CellGroupData[{
976
977Cell[BoxData[
978 InterpretationBox[
979  RowBox[{"\<\"Neglecting all terms with more than \"\>",
980   "\[InvisibleSpace]", "\<\"2\"\>",
981   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
982  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
983  Editable->False]], "Print",
984 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
985  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
986  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
987  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
988  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
989  3.771659115717035*^9},ExpressionUUID->"17f9ab24-e34d-43d4-9bff-\
9903d495d7eccf6"],
991
992Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
993 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
994  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
995  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
996  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
997  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
998  3.771659115717035*^9},ExpressionUUID->"9f6517e6-241f-40e4-a8e4-\
9993fdb18484161"],
1000
1001Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
1002 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
1003  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
1004  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
1005  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
1006  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
1007  3.7716591158570366`*^9},ExpressionUUID->"df2ea49e-9d88-41b7-a89d-\
100861afbffd5131"],
1009
1010Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
1011values.\"\>"], "Print",
1012 CellChangeTimes->{3.7700216522841816`*^9, 3.770026399829214*^9,
1013  3.7700287621778016`*^9, 3.770031899874612*^9, 3.7700322352874136`*^9,
1014  3.7700339211592064`*^9, 3.7700349207445*^9, 3.7700357877112317`*^9,
1015  3.770046004513585*^9, 3.770049223728769*^9, 3.770050221265997*^9,
1016  3.77005055587042*^9, 3.770051053461372*^9, 3.771658985795362*^9,
1017  3.771659115865037*^9},ExpressionUUID->"a2ae73b0-ca49-45ae-919c-\
10186d24d9883195"]
1019}, Open  ]],
1020
1021Cell[BoxData[
1022 TagBox[GridBox[{
1023    {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
1024"\<\"Model-file value\"\>"},
1025    {"xb",
1026     SqrtBox[
1027      SuperscriptBox["Mxb", "2"]], "1.`", "1.`"}
1028   },
1029   GridBoxAlignment->{
1030    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1031     "RowsIndexed" -> {}},
1032   GridBoxSpacings->{"Columns" -> {
1033       Offset[0.27999999999999997`], {
1034        Offset[2.0999999999999996`]},
1035       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1036       Offset[0.2], {
1037        Offset[0.4]},
1038       Offset[0.2]}, "RowsIndexed" -> {}}],
1039  Function[BoxForm`e$,
1040   TableForm[BoxForm`e$]]]], "Output",
1041 CellChangeTimes->{3.771658987677289*^9,
1042  3.7716591158690357`*^9},ExpressionUUID->"7942bc2c-61fb-4553-87ca-\
10432fc151605884"]
1044}, Open  ]]
1045}, Open  ]]
1046},
1047WindowSize->{1500, 917},
1048WindowMargins->{{-8, Automatic}, {Automatic, -8}},
1049ShowSelection->True,
1050Magnification:>1.6 Inherited,
1051FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (March 13, 2017)",
1052StyleDefinitions->"Default.nb"
1053]
1054(* End of Notebook Content *)
1055
1056(* Internal cache information *)
1057(*CellTagsOutline
1058CellTagsIndex->{}
1059*)
1060(*CellTagsIndex
1061CellTagsIndex->{}
1062*)
1063(*NotebookFileOutline
1064Notebook[{
1065Cell[CellGroupData[{
1066Cell[567, 22, 761, 16, 109, "Input", "ExpressionUUID" -> \
1067"0708a221-1e85-4914-afcc-0affdce87cfe"],
1068Cell[1331, 40, 782, 12, 48, "Output", "ExpressionUUID" -> \
1069"2584ad75-06bf-4691-b51e-1e6145c4c1db"],
1070Cell[CellGroupData[{
1071Cell[2138, 56, 694, 11, 34, "Print", "ExpressionUUID" -> \
1072"fbb2b292-6508-4b62-a62f-7849e472af4b"],
1073Cell[2835, 69, 965, 18, 34, "Print", "ExpressionUUID" -> \
1074"b1c445e5-76bc-44c3-a9a8-c53ef3e0b398"],
1075Cell[3803, 89, 746, 12, 34, "Print", "ExpressionUUID" -> \
1076"abd080cc-78f1-4323-9885-3cd53809e107"],
1077Cell[4552, 103, 678, 11, 34, "Print", "ExpressionUUID" -> \
1078"e6976d9c-7595-4662-a518-ff63617d3e89"],
1079Cell[5233, 116, 691, 11, 34, "Print", "ExpressionUUID" -> \
1080"ecc02e49-3c43-4649-9b7f-7d1edb300262"],
1081Cell[5927, 129, 743, 12, 34, "Print", "ExpressionUUID" -> \
1082"c0b12cd2-290e-4015-a85b-d7d05706126d"],
1083Cell[6673, 143, 743, 12, 34, "Print", "ExpressionUUID" -> \
1084"475c5d4b-f8ab-4a19-b5e2-e0362a422827"],
1085Cell[7419, 157, 680, 11, 34, "Print", "ExpressionUUID" -> \
1086"5d9bd842-40de-439c-a3fd-d07a1f27eb27"],
1087Cell[8102, 170, 710, 11, 34, "Print", "ExpressionUUID" -> \
1088"e0a95798-9b3f-4f46-a5df-afae4905a0e2"],
1089Cell[8815, 183, 678, 11, 34, "Print", "ExpressionUUID" -> \
1090"5cac65c4-c76a-4765-af9d-949300ab637b"],
1091Cell[9496, 196, 745, 12, 34, "Print", "ExpressionUUID" -> \
1092"4816d7d1-74ba-4154-824b-33bd2fbc4a88"]
1093}, Open  ]]
1094}, Open  ]],
1095Cell[CellGroupData[{
1096Cell[10290, 214, 269, 4, 113, "Section", "ExpressionUUID" -> \
1097"8b2944ed-22b5-4602-a003-2dadb1cf0b3d"],
1098Cell[CellGroupData[{
1099Cell[10584, 222, 3851, 97, 435, "Input", "ExpressionUUID" -> \
1100"900d4461-aeba-47bc-8179-81878652e795"],
1101Cell[CellGroupData[{
1102Cell[14460, 323, 485, 7, 34, "Print", "ExpressionUUID" -> \
1103"1d6fc101-fb15-4463-b37a-916e2517a433"],
1104Cell[14948, 332, 505, 7, 34, "Print", "ExpressionUUID" -> \
1105"3e165d0c-4210-4060-afaa-0edb4381bf37"],
1106Cell[15456, 341, 476, 7, 34, "Print", "ExpressionUUID" -> \
1107"9b60cd0e-adb7-437d-8a62-b88afd43f10a"],
1108Cell[15935, 350, 609, 11, 34, "Print", "ExpressionUUID" -> \
1109"bbae8cd4-92fc-497b-8654-ab2ea17fa74b"],
1110Cell[16547, 363, 513, 8, 34, "Print", "ExpressionUUID" -> \
1111"7108e137-3426-4e3c-b8c9-9cd03a5da0a4"],
1112Cell[17063, 373, 465, 7, 34, "Print", "ExpressionUUID" -> \
1113"5d90bb4f-c4c3-48e2-b3fd-7c3eb66846e3"],
1114Cell[17531, 382, 495, 7, 34, "Print", "ExpressionUUID" -> \
1115"882f7885-0842-46c5-9ad5-5deb7ddda685"],
1116Cell[18029, 391, 496, 7, 34, "Print", "ExpressionUUID" -> \
1117"07ae89bb-6288-4cd5-aba6-f3fecfae20d7"],
1118Cell[18528, 400, 496, 7, 34, "Print", "ExpressionUUID" -> \
1119"ae3d7c99-9d23-47fb-95cf-914510f3b122"],
1120Cell[19027, 409, 669, 12, 63, "Print", "ExpressionUUID" -> \
1121"f594271d-f11d-4078-8323-087810f853c5"],
1122Cell[19699, 423, 951, 17, 34, "Print", "ExpressionUUID" -> \
1123"23f840b4-1fac-49d7-902a-de61c1fe5bae"],
1124Cell[20653, 442, 957, 17, 34, "Print", "ExpressionUUID" -> \
1125"babc7bb3-8a84-4ecb-a061-32b66cce0eca"],
1126Cell[21613, 461, 485, 7, 34, "Print", "ExpressionUUID" -> \
1127"67aa327e-1799-4879-b2cb-07003dcc3658"],
1128Cell[22101, 470, 544, 8, 34, "Print", "ExpressionUUID" -> \
1129"1a6335fb-3326-4b68-a7e1-d1c7a24dba72"],
1130Cell[22648, 480, 540, 8, 34, "Print", "ExpressionUUID" -> \
1131"c6adb990-5f52-4ffa-b96c-fe67a27c0651"],
1132Cell[23191, 490, 737, 15, 34, "Print", "ExpressionUUID" -> \
1133"63cf4728-d6fa-44cf-9cbe-e9e289be8458"],
1134Cell[23931, 507, 492, 7, 34, "Print", "ExpressionUUID" -> \
1135"11cbe5f2-952d-4ade-a132-71db5214f9ad"],
1136Cell[24426, 516, 483, 7, 34, "Print", "ExpressionUUID" -> \
1137"acaab19b-eafe-40dd-81e2-354003693d40"],
1138Cell[24912, 525, 605, 11, 34, "Print", "ExpressionUUID" -> \
1139"ba35ddb3-2d7a-4db3-994d-f42f49201704"],
1140Cell[25520, 538, 493, 7, 34, "Print", "ExpressionUUID" -> \
1141"0b93fd14-080f-430c-b70d-fb0271972095"]
1142}, Open  ]],
1143Cell[26028, 548, 169, 4, 48, "Output", "ExpressionUUID" -> \
1144"b896ecd7-5873-4fdc-98ea-2443412e2b2b"],
1145Cell[CellGroupData[{
1146Cell[26222, 556, 512, 8, 34, "Print", "ExpressionUUID" -> \
1147"d8eb7552-1fe8-424b-9fd4-92181578a500"],
1148Cell[26737, 566, 737, 15, 34, "Print", "ExpressionUUID" -> \
1149"2b7d686d-88cc-4c4f-a362-792d5be7ec7a"],
1150Cell[27477, 583, 490, 7, 34, "Print", "ExpressionUUID" -> \
1151"bb1038a7-14a7-4708-b066-24b9dbcb38cd"],
1152Cell[27970, 592, 674, 12, 34, "Print", "ExpressionUUID" -> \
1153"1b1e6491-0e8b-4c07-b337-61bee43fd3f0"],
1154Cell[28647, 606, 525, 8, 34, "Print", "ExpressionUUID" -> \
1155"71efb46d-0ca1-4729-896c-b6eec9d71cb4"],
1156Cell[29175, 616, 1009, 19, 34, "Print", "ExpressionUUID" -> \
1157"36d5d78b-1444-415e-b73e-e9a8fbc60454"],
1158Cell[30187, 637, 607, 11, 34, "Print", "ExpressionUUID" -> \
1159"e7595139-4e1e-46fb-aa71-7a380fa7fd92"],
1160Cell[30797, 650, 962, 18, 34, "Print", "ExpressionUUID" -> \
1161"f6b736b6-4348-4a9e-99d8-d5c429a08c06"],
1162Cell[31762, 670, 506, 7, 34, "Print", "ExpressionUUID" -> \
1163"06d5d6ff-da08-4fd0-9652-4f1f96b9ef8a"],
1164Cell[32271, 679, 773, 16, 34, "Print", "ExpressionUUID" -> \
1165"0f5a82ed-e028-453f-82ad-b00ab757e1b7"],
1166Cell[33047, 697, 728, 15, 34, "Print", "ExpressionUUID" -> \
1167"2fe75a04-7a61-476b-b361-42f329f0a19b"],
1168Cell[33778, 714, 698, 11, 34, "Print", "ExpressionUUID" -> \
1169"cce4b2a1-cbb4-4639-8e0e-211b868445b4"],
1170Cell[34479, 727, 691, 12, 34, "Print", "ExpressionUUID" -> \
1171"8d31a23f-6be0-45c4-b5ab-932f117fa391"],
1172Cell[35173, 741, 489, 7, 34, "Print", "ExpressionUUID" -> \
1173"ace19c51-aa18-44d2-9966-e0e662dd2361"],
1174Cell[35665, 750, 511, 8, 34, "Print", "ExpressionUUID" -> \
1175"da24c3fd-4359-4c59-aca7-834c6e9fa023"],
1176Cell[36179, 760, 704, 12, 34, "Print", "ExpressionUUID" -> \
1177"fb3cf851-00fb-4bbf-9a20-d9d8f71de672"],
1178Cell[36886, 774, 862, 15, 34, "Print", "ExpressionUUID" -> \
1179"2c126e44-5b10-471a-ae7e-bd4c251dafbb"],
1180Cell[37751, 791, 483, 7, 34, "Print", "ExpressionUUID" -> \
1181"dff2f723-4f9a-4d4c-ac9c-61cf03c66c1e"],
1182Cell[38237, 800, 470, 7, 34, "Print", "ExpressionUUID" -> \
1183"3c1e0bea-2f75-493e-ae4f-aaa025ce6b40"],
1184Cell[38710, 809, 737, 15, 34, "Print", "ExpressionUUID" -> \
1185"11e8e8e7-3852-4fa2-96a6-fba49a3b5fef"],
1186Cell[39450, 826, 487, 6, 34, "Print", "ExpressionUUID" -> \
1187"6aaeee7e-f6f6-4ccb-883f-bd8cd41622c0"],
1188Cell[39940, 834, 523, 8, 34, "Print", "ExpressionUUID" -> \
1189"b732fd47-918a-40c8-85dd-bfe85508b742"],
1190Cell[40466, 844, 1003, 19, 34, "Print", "ExpressionUUID" -> \
1191"deec0945-3fbf-4c87-823a-f89ecce2ccfe"],
1192Cell[41472, 865, 603, 11, 34, "Print", "ExpressionUUID" -> \
1193"cd88433b-9c5b-454f-b473-5c97f05a5a4c"]
1194}, Open  ]],
1195Cell[42090, 879, 3397, 93, 137, "Output", "ExpressionUUID" -> \
1196"699a56d5-5009-4353-9332-4e50d024f36f"],
1197Cell[CellGroupData[{
1198Cell[45512, 976, 714, 13, 34, "Print", "ExpressionUUID" -> \
1199"17f9ab24-e34d-43d4-9bff-3d495d7eccf6"],
1200Cell[46229, 991, 491, 7, 34, "Print", "ExpressionUUID" -> \
1201"9f6517e6-241f-40e4-a8e4-3fdb18484161"],
1202Cell[46723, 1000, 487, 7, 34, "Print", "ExpressionUUID" -> \
1203"df2ea49e-9d88-41b7-a89d-61afbffd5131"],
1204Cell[47213, 1009, 526, 8, 34, "Print", "ExpressionUUID" -> \
1205"a2ae73b0-ca49-45ae-919c-6d24d9883195"]
1206}, Open  ]],
1207Cell[47754, 1020, 813, 22, 102, "Output", "ExpressionUUID" -> \
1208"7942bc2c-61fb-4553-87ca-2fc151605884"]
1209}, Open  ]]
1210}, Open  ]]
1211}
1212]
1213*)
1214