Lund2014: Tutorial.nb

File Tutorial.nb, 255.0 KB (added by degrande, 5 years ago)

notebook for FR tutorial

Line 
1(*CacheID: 234*)
2(* Internal cache information:
3NotebookFileLineBreakTest
4NotebookFileLineBreakTest
5NotebookDataPosition[         0,          0]
6NotebookDataLength[    261141,       6979]
7NotebookOptionsPosition[    234178,       6249]
8NotebookOutlinePosition[    234730,       6269]
9CellTagsIndexPosition[    234687,       6266]
10WindowFrame->Normal*)
11
12(* Beginning of Notebook Content *)
13Notebook[{
14
15Cell[CellGroupData[{
16Cell[" Tutorial", "Title",
17 CellChangeTimes->{{3.539317450114971*^9, 3.5393174577917767`*^9},
18   3.5559442666324883`*^9}],
19
20Cell[BoxData[
21 RowBox[{"Quit", "[", "]"}]], "Input",
22 CellChangeTimes->{{3.5393174647226133`*^9, 3.5393174655928297`*^9}}],
23
24Cell[CellGroupData[{
25
26Cell["Loading FeynRules", "Section",
27 CellChangeTimes->{{3.539317474608481*^9, 3.5393174784154987`*^9}}],
28
29Cell[CellGroupData[{
30
31Cell[BoxData[
32 RowBox[{"$FeynRulesPath", " ", "=", " ",
33  RowBox[{
34  "SetDirectory", "[", "\"\<~/feynrules/tags/feynrules-2.1\>\"",
35   "]"}]}]], "Input",
36 CellChangeTimes->{{3.5393174792335243`*^9, 3.539317505486512*^9}, {
37  3.5780999932057743`*^9, 3.578099993939001*^9}, {3.578100105316533*^9,
38  3.5781001104184732`*^9}, {3.579349162263041*^9, 3.5793491976568537`*^9}, {
39  3.579349302055018*^9, 3.57934930213306*^9}, {3.614226881066931*^9,
40  3.614226898369299*^9}, {3.620531946341423*^9, 3.6205319483171577`*^9}, {
41  3.62053209799714*^9, 3.620532101899506*^9}}],
42
43Cell[BoxData["\<\"/Users/degrande/feynrules/tags/feynrules-2.1\"\>"], "Output",
44 CellChangeTimes->{
45  3.5393175059082603`*^9, 3.539317637249185*^9, 3.539317710216969*^9,
46   3.53931836320551*^9, 3.539318857008144*^9, {3.555944274657331*^9,
47   3.5559442982248707`*^9}, 3.5559443774661837`*^9, 3.5559446049920673`*^9,
48   3.555944681188205*^9, 3.577373428262697*^9, 3.577374281796172*^9, {
49   3.578100112630537*^9, 3.5781001499397497`*^9}, 3.57934927304145*^9,
50   3.579349304490674*^9, 3.579350283582839*^9, 3.579350512924067*^9,
51   3.579350634423061*^9, 3.579358789644754*^9, {3.57935921014121*^9,
52   3.5793592370286303`*^9}, 3.579359528417985*^9, 3.57936106637228*^9,
53   3.579361288219393*^9, 3.579882686241864*^9, 3.579882984714159*^9,
54   3.579955782353389*^9, 3.614226900065674*^9, 3.614227196689986*^9,
55   3.6204847826240187`*^9, 3.620532113772676*^9, 3.620532277632306*^9,
56   3.620534355531006*^9}]
57}, Open  ]],
58
59Cell[CellGroupData[{
60
61Cell[BoxData[
62 RowBox[{"<<", "FeynRules`"}]], "Input",
63 CellChangeTimes->{{3.5393175083150997`*^9, 3.5393175100537786`*^9}}],
64
65Cell[CellGroupData[{
66
67Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
68 CellChangeTimes->{
69  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
70   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
71   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
72   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
73   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
74   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
75   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
76   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
77   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
78   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
79   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
80   3.620532277797534*^9, 3.620534356366291*^9}],
81
82Cell[BoxData[
83 InterpretationBox[
84  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"=.2.2\"\>",
85   "\[InvisibleSpace]",
86   RowBox[{"\<\" (\"\>", " ", "\<\"08 July 2014\"\>"}],
87   "\[InvisibleSpace]", "\<\").\"\>"}],
88  SequenceForm["Version: ", "=.2.2", " (" "08 July 2014", ")."],
89  Editable->False]], "Print",
90 CellChangeTimes->{
91  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
92   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
93   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
94   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
95   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
96   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
97   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
98   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
99   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
100   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
101   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
102   3.620532277797534*^9, 3.620534356369363*^9}],
103
104Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
105B. Fuks\"\>"], "Print",
106 CellChangeTimes->{
107  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
108   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
109   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
110   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
111   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
112   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
113   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
114   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
115   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
116   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
117   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
118   3.620532277797534*^9, 3.620534356371933*^9}],
119
120Cell[BoxData["\<\" \"\>"], "Print",
121 CellChangeTimes->{
122  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
123   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
124   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
125   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
126   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
127   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
128   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
129   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
130   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
131   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
132   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
133   3.620532277797534*^9, 3.620534356374524*^9}],
134
135Cell[BoxData["\<\"Please cite:\"\>"], "Print",
136 CellChangeTimes->{
137  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
138   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
139   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
140   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
141   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
142   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
143   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
144   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
145   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
146   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
147   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
148   3.620532277797534*^9, 3.620534356377061*^9}],
149
150Cell[BoxData["\<\"    - arXiv:1310.1921;\"\>"], "Print",
151 CellChangeTimes->{
152  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
153   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
154   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
155   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
156   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
157   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
158   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
159   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
160   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
161   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
162   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
163   3.620532277797534*^9, 3.620534356379595*^9}],
164
165Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
166(arXiv:0806.4194).\"\>"], "Print",
167 CellChangeTimes->{
168  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
169   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
170   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
171   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
172   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
173   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
174   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
175   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
176   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
177   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
178   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
179   3.620532277797534*^9, 3.620534356381975*^9}],
180
181Cell[BoxData["\<\" \"\>"], "Print",
182 CellChangeTimes->{
183  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
184   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
185   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
186   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
187   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
188   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
189   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
190   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
191   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
192   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
193   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
194   3.620532277797534*^9, 3.6205343563845863`*^9}],
195
196Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
197 CellChangeTimes->{
198  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
199   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
200   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
201   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
202   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
203   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
204   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
205   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
206   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
207   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
208   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
209   3.620532277797534*^9, 3.6205343563869963`*^9}],
210
211Cell[BoxData["\<\" \"\>"], "Print",
212 CellChangeTimes->{
213  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
214   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
215   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
216   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
217   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
218   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
219   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
220   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
221   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
222   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
223   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
224   3.620532277797534*^9, 3.620534356389428*^9}],
225
226Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
227FRPalette[].\"\>"], "Print",
228 CellChangeTimes->{
229  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9,
230   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9,
231   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9,
232   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9,
233   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9,
234   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9,
235   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
236   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9,
237   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9,
238   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9,
239   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9,
240   3.620532277797534*^9, 3.620534356391774*^9}]
241}, Open  ]]
242}, Open  ]]
243}, Open  ]],
244
245Cell[CellGroupData[{
246
247Cell["Loading the model", "Section",
248 CellChangeTimes->{{3.539317514565621*^9, 3.539317517827942*^9}}],
249
250Cell[CellGroupData[{
251
252Cell[BoxData[
253 RowBox[{"SetDirectory", "[",
254  RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM\>\""}], "]"}]], "Input",
255 CellChangeTimes->{{3.5393175793604097`*^9, 3.539317604969696*^9}, {
256  3.5559442808384323`*^9, 3.5559442817000427`*^9}, {3.5773734202527857`*^9,
257  3.577373422619042*^9}, {3.579349331911512*^9, 3.579349394474436*^9}, {
258  3.579361615574547*^9, 3.5793616313979177`*^9}, {3.579882727446802*^9,
259  3.5798827505288*^9}, {3.579883380265169*^9, 3.579883386157868*^9}, {
260  3.579955791202548*^9, 3.579955816296172*^9}, {3.579958189936842*^9,
261  3.579958196374*^9}, {3.614226921305686*^9, 3.614226934448045*^9}, {
262  3.614227154675522*^9, 3.614227186038155*^9}, {3.620532229753017*^9,
263  3.6205322513797207`*^9}}],
264
265Cell[BoxData["\<\"/Users/degrande/feynrules/tags/feynrules-2.1/Models/SM\"\>"]\
266, "Output",
267 CellChangeTimes->{
268  3.539317605382585*^9, 3.5393176390688963`*^9, 3.539317711322501*^9,
269   3.539318369381093*^9, 3.539318860145067*^9, {3.555944282499632*^9,
270   3.5559443001776247`*^9}, 3.555944378775016*^9, 3.5559446066309633`*^9,
271   3.555944683120018*^9, 3.577373454442539*^9, 3.5773742914690447`*^9,
272   3.578100155167124*^9, {3.579349388978545*^9, 3.579349395200293*^9},
273   3.579350289156604*^9, 3.5793505173865347`*^9, 3.5793506389325314`*^9,
274   3.5793587910217247`*^9, 3.579359242533073*^9, 3.579359532748375*^9,
275   3.579361072123502*^9, 3.579361293397084*^9, 3.579882754989637*^9,
276   3.579882990732761*^9, 3.5799558183623962`*^9, 3.614226935661278*^9, {
277   3.614227187078137*^9, 3.614227211205055*^9}, 3.6204847912022753`*^9,
278   3.620532124644866*^9, 3.620532280016633*^9, 3.6205343608009577`*^9}]
279}, Open  ]],
280
281Cell[CellGroupData[{
282
283Cell[BoxData[
284 RowBox[{"LoadModel", "[",
285  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<~/Talks/TASI2013/Tutorial.fr\>\""}],
286  "]"}]], "Input",
287 CellChangeTimes->{{3.539317608005052*^9, 3.539317616212493*^9}, {
288  3.555944290574006*^9, 3.555944292699313*^9}, {3.57737340515932*^9,
289  3.577373409019948*^9}, {3.579349400449449*^9, 3.579349402253819*^9}, {
290  3.6142271566600933`*^9, 3.6142271794397287`*^9}}],
291
292Cell[CellGroupData[{
293
294Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
295 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9},
296   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
297   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9,
298   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
299   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9,
300   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9,
301   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9,
302   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9,
303   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9,
304   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9,
305   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9,
306   3.620534362386828*^9}],
307
308Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
309 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9},
310   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
311   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9,
312   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
313   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9,
314   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9,
315   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9,
316   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9,
317   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9,
318   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9,
319   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9,
320   3.620534362413682*^9}],
321
322Cell[BoxData["\<\"C. Duhr\"\>"], "Print",
323 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9},
324   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
325   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9,
326   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
327   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9,
328   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9,
329   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9,
330   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9,
331   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9,
332   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9,
333   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9,
334   3.620534362416098*^9}],
335
336Cell[BoxData[
337 InterpretationBox[
338  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
339  SequenceForm["Model Version: ", "1.0"],
340  Editable->False]], "Print",
341 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9},
342   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
343   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9,
344   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
345   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9,
346   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9,
347   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9,
348   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9,
349   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9,
350   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9,
351   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9,
352   3.620534362418599*^9}],
353
354Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
355"Print",
356 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9},
357   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
358   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9,
359   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
360   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9,
361   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9,
362   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9,
363   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9,
364   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9,
365   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9,
366   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9,
367   3.620534362421133*^9}],
368
369Cell[BoxData["\<\"\"\>"], "Print",
370 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9},
371   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
372   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9,
373   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
374   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9,
375   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9,
376   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9,
377   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9,
378   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9,
379   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9,
380   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9,
381   3.620534362423609*^9}],
382
383Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
384 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9},
385   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
386   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9,
387   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
388   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9,
389   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9,
390   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9,
391   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9,
392   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9,
393   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9,
394   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9,
395   3.6205343624260473`*^9}],
396
397Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
398 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9},
399   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
400   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9,
401   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
402   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9,
403   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9,
404   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9,
405   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9,
406   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9,
407   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9,
408   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9,
409   3.620534362571432*^9}],
410
411Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
412 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9},
413   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
414   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9,
415   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
416   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9,
417   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9,
418   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9,
419   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9,
420   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9,
421   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9,
422   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9,
423   3.6205343625972843`*^9}],
424
425Cell[BoxData[
426 InterpretationBox[
427  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"Tutorial\"\>",
428   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
429  SequenceForm["\nModel ", "Tutorial", " loaded."],
430  Editable->False]], "Print",
431 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9},
432   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
433   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9,
434   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
435   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9,
436   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9,
437   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9,
438   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9,
439   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9,
440   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9,
441   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9,
442   3.620534362649466*^9}]
443}, Open  ]]
444}, Open  ]],
445
446Cell["\<\
447\[LineSeparator]Restriction files, to make the quarks massless, and the CKM \
448matrix diagonal:\
449\>", "Text",
450 CellChangeTimes->{{3.539317826891835*^9, 3.539317839321149*^9},
451   3.539318861815209*^9}],
452
453Cell[CellGroupData[{
454
455Cell[BoxData[
456 RowBox[{"LoadRestriction", "[",
457  RowBox[{"\"\<DiagonalCKM.rst\>\"", ",", "\"\<Massless.rst\>\""}],
458  "]"}]], "Input",
459 CellChangeTimes->{{3.539317840243554*^9, 3.53931785155518*^9}}],
460
461Cell[CellGroupData[{
462
463Cell[BoxData[
464 InterpretationBox[
465  RowBox[{"\<\"Loading restrictions from \"\>",
466   "\[InvisibleSpace]", "\<\"DiagonalCKM.rst\"\>",
467   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
468   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
469    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
470   "\[InvisibleSpace]", "3"}],
471  SequenceForm["Loading restrictions from ", "DiagonalCKM.rst", " : ",
472   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
473  Editable->False]], "Print",
474 CellChangeTimes->{3.539317852149496*^9, 3.5393183725017023`*^9,
475  3.5393188635676622`*^9, 3.555944382559485*^9, 3.5559446108120213`*^9,
476  3.5559446867107964`*^9, 3.57737345755239*^9, 3.577374294631625*^9,
477  3.578100158857573*^9, 3.579349409804182*^9, 3.579350295931012*^9,
478  3.5793505209064093`*^9, 3.5793506425014772`*^9, 3.579358794923716*^9,
479  3.579359214019527*^9, 3.57935924743237*^9, 3.5793595386756287`*^9,
480  3.579361075960133*^9, 3.579361297098818*^9, 3.579882761262206*^9,
481  3.579882994106968*^9, 3.579955824463958*^9, 3.61422695186008*^9,
482  3.614227219473942*^9, 3.620484799757265*^9, 3.620532132716523*^9,
483  3.6205322850684032`*^9, 3.620534365715355*^9}],
484
485Cell[BoxData[
486 InterpretationBox[
487  RowBox[{"\<\"Loading restrictions from \"\>",
488   "\[InvisibleSpace]", "\<\"Massless.rst\"\>",
489   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
490   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
491    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
492   "\[InvisibleSpace]", "18"}],
493  SequenceForm["Loading restrictions from ", "Massless.rst", " : ",
494   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
495  Editable->False]], "Print",
496 CellChangeTimes->{3.539317852149496*^9, 3.5393183725017023`*^9,
497  3.5393188635676622`*^9, 3.555944382559485*^9, 3.5559446108120213`*^9,
498  3.5559446867107964`*^9, 3.57737345755239*^9, 3.577374294631625*^9,
499  3.578100158857573*^9, 3.579349409804182*^9, 3.579350295931012*^9,
500  3.5793505209064093`*^9, 3.5793506425014772`*^9, 3.579358794923716*^9,
501  3.579359214019527*^9, 3.57935924743237*^9, 3.5793595386756287`*^9,
502  3.579361075960133*^9, 3.579361297098818*^9, 3.579882761262206*^9,
503  3.579882994106968*^9, 3.579955824463958*^9, 3.61422695186008*^9,
504  3.614227219473942*^9, 3.620484799757265*^9, 3.620532132716523*^9,
505  3.6205322850684032`*^9, 3.620534365828209*^9}],
506
507Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
508 CellChangeTimes->{3.539317852149496*^9, 3.5393183725017023`*^9,
509  3.5393188635676622`*^9, 3.555944382559485*^9, 3.5559446108120213`*^9,
510  3.5559446867107964`*^9, 3.57737345755239*^9, 3.577374294631625*^9,
511  3.578100158857573*^9, 3.579349409804182*^9, 3.579350295931012*^9,
512  3.5793505209064093`*^9, 3.5793506425014772`*^9, 3.579358794923716*^9,
513  3.579359214019527*^9, 3.57935924743237*^9, 3.5793595386756287`*^9,
514  3.579361075960133*^9, 3.579361297098818*^9, 3.579882761262206*^9,
515  3.579882994106968*^9, 3.579955824463958*^9, 3.61422695186008*^9,
516  3.614227219473942*^9, 3.620484799757265*^9, 3.620532132716523*^9,
517  3.6205322850684032`*^9, 3.620534365916108*^9}]
518}, Open  ]]
519}, Open  ]]
520}, Open  ]],
521
522Cell[CellGroupData[{
523
524Cell["The Lagrangian", "Section",
525 CellChangeTimes->{{3.539317863455777*^9, 3.5393178650954237`*^9}}],
526
527Cell[CellGroupData[{
528
529Cell[BoxData[
530 RowBox[{"LScalarKin", "=",
531  RowBox[{
532   RowBox[{
533    RowBox[{"1", "/", "2"}],
534    RowBox[{"del", "[",
535     RowBox[{"pi1", ",", "mu"}], "]"}],
536    RowBox[{"del", "[",
537     RowBox[{"pi1", ",", "mu"}], "]"}]}], "+",
538   RowBox[{
539    RowBox[{"1", "/", "2"}],
540    RowBox[{"del", "[",
541     RowBox[{"pi2", ",", "mu"}], "]"}],
542    RowBox[{"del", "[",
543     RowBox[{"pi2", ",", "mu"}], "]"}]}], "-",
544   RowBox[{
545    RowBox[{
546     RowBox[{"MM1", "^", "2"}], "/", "2"}],
547    RowBox[{"pi1", "^", "2"}]}], "-",
548   RowBox[{
549    RowBox[{
550     RowBox[{"MM2", "^", "2"}], "/", "2"}],
551    RowBox[{"pi2", "^", "2"}]}], "-",
552   RowBox[{
553    RowBox[{"MM12", "^", "2"}], "pi1", " ", "pi2"}]}]}]], "Input",
554 CellChangeTimes->{{3.5393178657972727`*^9, 3.539317921175536*^9}, {
555  3.539318477867846*^9, 3.539318481606659*^9}, {3.5393189015055037`*^9,
556  3.539318908479196*^9}, {3.5793591059670963`*^9, 3.5793591107344847`*^9}}],
557
558Cell[BoxData[
559 RowBox[{
560  RowBox[{
561   RowBox[{"-",
562    FractionBox["1", "2"]}], " ",
563   SuperscriptBox["MM1", "2"], " ",
564   SuperscriptBox["pi1", "2"]}], "-",
565  RowBox[{
566   SuperscriptBox["MM12", "2"], " ", "pi1", " ", "pi2"}], "-",
567  FractionBox[
568   RowBox[{
569    SuperscriptBox["MM2", "2"], " ",
570    SuperscriptBox["pi2", "2"]}], "2"], "+",
571  RowBox[{
572   FractionBox["1", "2"], " ",
573   SuperscriptBox[
574    RowBox[{
575     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "pi1", "]"}], "2"]}],
576  "+",
577  RowBox[{
578   FractionBox["1", "2"], " ",
579   SuperscriptBox[
580    RowBox[{
581     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "pi2", "]"}],
582    "2"]}]}]], "Output",
583 CellChangeTimes->{3.539317921603055*^9, 3.539318374039912*^9,
584  3.53931848187812*^9, 3.539318864769656*^9, 3.539318909041028*^9,
585  3.555944385931329*^9, 3.555944612372089*^9, 3.555944688216881*^9,
586  3.577373459175234*^9, 3.5773742965846777`*^9, 3.578100162546414*^9,
587  3.5793494145868607`*^9, 3.57935029915375*^9, 3.579350524477511*^9,
588  3.5793506450603523`*^9, 3.579358798361402*^9, 3.5793591128689413`*^9,
589  3.5793592513840733`*^9, 3.579359541815214*^9, 3.579361078567272*^9,
590  3.579361300753628*^9, 3.579882765103462*^9, 3.579882999682539*^9,
591  3.579955826749527*^9, 3.61422696297958*^9, 3.614227223957199*^9,
592  3.62048480259227*^9, 3.620532174175105*^9, 3.620532289820366*^9,
593  3.620534370128654*^9}]
594}, Open  ]],
595
596Cell[CellGroupData[{
597
598Cell[BoxData[
599 RowBox[{"LFermionKin", "=",
600  RowBox[{
601   RowBox[{"I", " ",
602    RowBox[{"uvbar", ".",
603     RowBox[{"Ga", "[", "mu", "]"}], ".",
604     RowBox[{"DC", "[",
605      RowBox[{"uv", ",", "mu"}], "]"}]}]}], "-",
606   RowBox[{"Muv", " ",
607    RowBox[{"uvbar", ".", "uv"}]}], "+",
608   RowBox[{"I", " ",
609    RowBox[{"evbar", ".",
610     RowBox[{"Ga", "[", "mu", "]"}], ".",
611     RowBox[{"DC", "[",
612      RowBox[{"ev", ",", "mu"}], "]"}]}]}], "-",
613   RowBox[{"Mev", " ",
614    RowBox[{"evbar", ".", "ev"}]}]}]}]], "Input",
615 CellChangeTimes->{{3.53931793307228*^9, 3.539317979893841*^9}}],
616
617Cell[BoxData[
618 RowBox[{
619  RowBox[{
620   RowBox[{"-", "Mev"}], " ",
621   RowBox[{
622    OverscriptBox["ev", "\<\"-\"\>"], ".", "ev"}]}], "-",
623  RowBox[{"Muv", " ",
624   RowBox[{
625    OverscriptBox["uv", "\<\"-\"\>"], ".", "uv"}]}], "+",
626  RowBox[{"\[ImaginaryI]", " ",
627   RowBox[{
628    OverscriptBox["ev", "\<\"-\"\>"], ".",
629    SuperscriptBox["\[Gamma]", "mu"], ".",
630    RowBox[{"(",
631     RowBox[{
632      RowBox[{"\[ImaginaryI]", " ", "ev", " ",
633       SubscriptBox["g", "1"], " ",
634       SubscriptBox["B", "mu"]}], "+",
635      RowBox[{
636       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "ev", "]"}]}],
637     ")"}]}]}], "+",
638  RowBox[{"\[ImaginaryI]", " ",
639   RowBox[{
640    OverscriptBox["uv", "\<\"-\"\>"], ".",
641    SuperscriptBox["\[Gamma]", "mu"], ".",
642    RowBox[{"(",
643     RowBox[{
644      RowBox[{
645       RowBox[{"-",
646        FractionBox["2", "3"]}], " ", "\[ImaginaryI]", " ",
647       SubscriptBox["g", "1"], " ", "uv", " ",
648       SubscriptBox["B", "mu"]}], "+",
649      RowBox[{
650       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "uv", "]"}], "-",
651      RowBox[{"\[ImaginaryI]", " ",
652       SubscriptBox["g", "s"], " ",
653       RowBox[{
654        SuperscriptBox["T", "a$3667"], ".", "uv"}], " ",
655       SubscriptBox["G",
656        RowBox[{"mu", ",", "a$3667"}]]}]}], ")"}]}]}]}]], "Output",
657 CellChangeTimes->{3.539317980933099*^9, 3.539318374673298*^9,
658  3.5393188655258207`*^9, 3.55594438840161*^9, 3.555944613159431*^9,
659  3.555944688946253*^9, 3.577373459938418*^9, 3.577374297687181*^9,
660  3.578100163601769*^9, 3.579349419437807*^9, 3.579350300083214*^9,
661  3.5793505254085903`*^9, 3.579350646554434*^9, 3.5793588007912607`*^9,
662  3.579359255802463*^9, 3.579359542895461*^9, 3.579361079781403*^9,
663  3.5793613017508173`*^9, 3.579882767926231*^9, 3.579883001062243*^9,
664  3.579955830269313*^9, 3.614226964940504*^9, 3.614227225237988*^9,
665  3.6204848032902927`*^9, 3.620532174776319*^9, 3.62053229051711*^9,
666  3.620534371276582*^9}]
667}, Open  ]],
668
669Cell[CellGroupData[{
670
671Cell[BoxData[{
672 RowBox[{"LDecays", "=",
673  RowBox[{
674   RowBox[{"lam1", " ", "pi1", " ",
675    RowBox[{
676     RowBox[{"uvbar", "[",
677      RowBox[{"ss1", ",", "ii"}], "]"}], ".",
678     RowBox[{"uq", "[",
679      RowBox[{"ss2", ",", "3", ",", "ii"}], "]"}]}],
680    RowBox[{"ProjP", "[",
681     RowBox[{"ss1", ",", "ss2"}], "]"}]}], "+",
682   RowBox[{"lam2", " ", "pi2", " ",
683    RowBox[{
684     RowBox[{"uvbar", "[",
685      RowBox[{"ss1", ",", "ii"}], "]"}], ".",
686     RowBox[{"uq", "[",
687      RowBox[{"ss2", ",", "3", ",", "ii"}], "]"}]}],
688    RowBox[{"ProjP", "[",
689     RowBox[{"ss1", ",", "ss2"}], "]"}]}], "+",
690   RowBox[{"lam1p", " ", "pi1", " ",
691    RowBox[{
692     RowBox[{"evbar", "[", "ss1", "]"}], ".",
693     RowBox[{"l", "[",
694      RowBox[{"ss2", ",", "1"}], "]"}]}],
695    RowBox[{"ProjP", "[",
696     RowBox[{"ss1", ",", "ss2"}], "]"}]}], "+",
697   RowBox[{"lam2p", " ", "pi2", " ",
698    RowBox[{
699     RowBox[{"evbar", "[", "ss1", "]"}], ".",
700     RowBox[{"l", "[",
701      RowBox[{"ss2", ",", "1"}], "]"}]}],
702    RowBox[{"ProjP", "[",
703     RowBox[{"ss1", ",", "ss2"}], "]"}]}]}]}], "\[IndentingNewLine]",
704 RowBox[{"LDecays", "=",
705  RowBox[{"LDecays", "+",
706   RowBox[{"HC", "[", "LDecays", "]"}]}]}]}], "Input",
707 CellChangeTimes->{{3.5393179924355803`*^9, 3.5393180812160053`*^9}, {
708  3.539318112141931*^9, 3.5393181200908337`*^9}, {3.555944392672977*^9,
709  3.555944544909051*^9}, {3.5798827743589373`*^9, 3.5798828027591953`*^9}, {
710  3.579955834704596*^9, 3.579955838470811*^9}}],
711
712Cell[BoxData[
713 RowBox[{
714  RowBox[{"lam1p", " ", "pi1", " ",
715   RowBox[{
716    SubscriptBox[
717     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".",
718    SubscriptBox["l",
719     RowBox[{"ss2", ",", "1"}]]}], " ",
720   SubscriptBox[
721    SubscriptBox["P", "\<\"+\"\>"],
722    RowBox[{"ss1", ",", "ss2"}]]}], "+",
723  RowBox[{"lam2p", " ", "pi2", " ",
724   RowBox[{
725    SubscriptBox[
726     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".",
727    SubscriptBox["l",
728     RowBox[{"ss2", ",", "1"}]]}], " ",
729   SubscriptBox[
730    SubscriptBox["P", "\<\"+\"\>"],
731    RowBox[{"ss1", ",", "ss2"}]]}], "+",
732  RowBox[{"lam1", " ", "pi1", " ",
733   RowBox[{
734    SubscriptBox[
735     OverscriptBox["uv", "\<\"-\"\>"],
736     RowBox[{"ss1", ",", "ii"}]], ".",
737    SubscriptBox["uq",
738     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ",
739   SubscriptBox[
740    SubscriptBox["P", "\<\"+\"\>"],
741    RowBox[{"ss1", ",", "ss2"}]]}], "+",
742  RowBox[{"lam2", " ", "pi2", " ",
743   RowBox[{
744    SubscriptBox[
745     OverscriptBox["uv", "\<\"-\"\>"],
746     RowBox[{"ss1", ",", "ii"}]], ".",
747    SubscriptBox["uq",
748     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ",
749   SubscriptBox[
750    SubscriptBox["P", "\<\"+\"\>"],
751    RowBox[{"ss1", ",", "ss2"}]]}]}]], "Output",
752 CellChangeTimes->{3.539318081693873*^9, 3.53931812063649*^9,
753  3.53931837527557*^9, 3.539318866186824*^9, 3.555944615341813*^9,
754  3.555944690785212*^9, 3.577373460709169*^9, 3.5773742984859943`*^9,
755  3.578100164435671*^9, 3.579349420510026*^9, 3.579350301178184*^9,
756  3.5793505263540382`*^9, 3.579350647449521*^9, 3.579358801648719*^9,
757  3.579359257144423*^9, 3.579359544057259*^9, 3.579361081206567*^9,
758  3.579361302645125*^9, 3.579882813206955*^9, 3.579883002139476*^9,
759  3.579955869220771*^9, 3.614226966320546*^9, 3.614227226617613*^9,
760  3.6204848039385433`*^9, 3.620532175840642*^9, 3.620532291366743*^9,
761  3.6205343726902*^9}],
762
763Cell[BoxData[
764 RowBox[{
765  RowBox[{"lam1p", " ", "pi1", " ",
766   RowBox[{
767    SubscriptBox[
768     OverscriptBox["l", "\<\"-\"\>"],
769     RowBox[{"r$3706", ",", "1"}]], ".",
770    SubscriptBox["ev", "r$3707"]}], " ",
771   SubscriptBox[
772    SubscriptBox["P", "\<\"-\"\>"],
773    RowBox[{"r$3706", ",", "r$3707"}]]}], "+",
774  RowBox[{"lam2p", " ", "pi2", " ",
775   RowBox[{
776    SubscriptBox[
777     OverscriptBox["l", "\<\"-\"\>"],
778     RowBox[{"r$3708", ",", "1"}]], ".",
779    SubscriptBox["ev", "r$3709"]}], " ",
780   SubscriptBox[
781    SubscriptBox["P", "\<\"-\"\>"],
782    RowBox[{"r$3708", ",", "r$3709"}]]}], "+",
783  RowBox[{"lam1", " ", "pi1", " ",
784   RowBox[{
785    SubscriptBox[
786     OverscriptBox["uq", "\<\"-\"\>"],
787     RowBox[{"r$3710", ",", "3", ",", "ii"}]], ".",
788    SubscriptBox["uv",
789     RowBox[{"r$3711", ",", "ii"}]]}], " ",
790   SubscriptBox[
791    SubscriptBox["P", "\<\"-\"\>"],
792    RowBox[{"r$3710", ",", "r$3711"}]]}], "+",
793  RowBox[{"lam2", " ", "pi2", " ",
794   RowBox[{
795    SubscriptBox[
796     OverscriptBox["uq", "\<\"-\"\>"],
797     RowBox[{"r$3712", ",", "3", ",", "ii"}]], ".",
798    SubscriptBox["uv",
799     RowBox[{"r$3713", ",", "ii"}]]}], " ",
800   SubscriptBox[
801    SubscriptBox["P", "\<\"-\"\>"],
802    RowBox[{"r$3712", ",", "r$3713"}]]}], "+",
803  RowBox[{"lam1p", " ", "pi1", " ",
804   RowBox[{
805    SubscriptBox[
806     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".",
807    SubscriptBox["l",
808     RowBox[{"ss2", ",", "1"}]]}], " ",
809   SubscriptBox[
810    SubscriptBox["P", "\<\"+\"\>"],
811    RowBox[{"ss1", ",", "ss2"}]]}], "+",
812  RowBox[{"lam2p", " ", "pi2", " ",
813   RowBox[{
814    SubscriptBox[
815     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".",
816    SubscriptBox["l",
817     RowBox[{"ss2", ",", "1"}]]}], " ",
818   SubscriptBox[
819    SubscriptBox["P", "\<\"+\"\>"],
820    RowBox[{"ss1", ",", "ss2"}]]}], "+",
821  RowBox[{"lam1", " ", "pi1", " ",
822   RowBox[{
823    SubscriptBox[
824     OverscriptBox["uv", "\<\"-\"\>"],
825     RowBox[{"ss1", ",", "ii"}]], ".",
826    SubscriptBox["uq",
827     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ",
828   SubscriptBox[
829    SubscriptBox["P", "\<\"+\"\>"],
830    RowBox[{"ss1", ",", "ss2"}]]}], "+",
831  RowBox[{"lam2", " ", "pi2", " ",
832   RowBox[{
833    SubscriptBox[
834     OverscriptBox["uv", "\<\"-\"\>"],
835     RowBox[{"ss1", ",", "ii"}]], ".",
836    SubscriptBox["uq",
837     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ",
838   SubscriptBox[
839    SubscriptBox["P", "\<\"+\"\>"],
840    RowBox[{"ss1", ",", "ss2"}]]}]}]], "Output",
841 CellChangeTimes->{3.539318081693873*^9, 3.53931812063649*^9,
842  3.53931837527557*^9, 3.539318866186824*^9, 3.555944615341813*^9,
843  3.555944690785212*^9, 3.577373460709169*^9, 3.5773742984859943`*^9,
844  3.578100164435671*^9, 3.579349420510026*^9, 3.579350301178184*^9,
845  3.5793505263540382`*^9, 3.579350647449521*^9, 3.579358801648719*^9,
846  3.579359257144423*^9, 3.579359544057259*^9, 3.579361081206567*^9,
847  3.579361302645125*^9, 3.579882813206955*^9, 3.579883002139476*^9,
848  3.579955869220771*^9, 3.614226966320546*^9, 3.614227226617613*^9,
849  3.6204848039385433`*^9, 3.620532175840642*^9, 3.620532291366743*^9,
850  3.6205343726948566`*^9}]
851}, Open  ]],
852
853Cell[CellGroupData[{
854
855Cell[BoxData[
856 RowBox[{"LNew", "=",
857  RowBox[{"LScalarKin", "+", "LFermionKin", "+", "LDecays"}]}]], "Input",
858 CellChangeTimes->{{3.5393180928264513`*^9, 3.539318101951029*^9}}],
859
860Cell[BoxData[
861 RowBox[{
862  RowBox[{
863   RowBox[{"-",
864    FractionBox["1", "2"]}], " ",
865   SuperscriptBox["MM1", "2"], " ",
866   SuperscriptBox["pi1", "2"]}], "-",
867  RowBox[{
868   SuperscriptBox["MM12", "2"], " ", "pi1", " ", "pi2"}], "-",
869  FractionBox[
870   RowBox[{
871    SuperscriptBox["MM2", "2"], " ",
872    SuperscriptBox["pi2", "2"]}], "2"], "+",
873  RowBox[{
874   FractionBox["1", "2"], " ",
875   SuperscriptBox[
876    RowBox[{
877     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "pi1", "]"}], "2"]}],
878  "+",
879  RowBox[{
880   FractionBox["1", "2"], " ",
881   SuperscriptBox[
882    RowBox[{
883     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "pi2", "]"}], "2"]}],
884  "-",
885  RowBox[{"Mev", " ",
886   RowBox[{
887    OverscriptBox["ev", "\<\"-\"\>"], ".", "ev"}]}], "-",
888  RowBox[{"Muv", " ",
889   RowBox[{
890    OverscriptBox["uv", "\<\"-\"\>"], ".", "uv"}]}], "+",
891  RowBox[{"\[ImaginaryI]", " ",
892   RowBox[{
893    OverscriptBox["ev", "\<\"-\"\>"], ".",
894    SuperscriptBox["\[Gamma]", "mu"], ".",
895    RowBox[{"(",
896     RowBox[{
897      RowBox[{"\[ImaginaryI]", " ", "ev", " ",
898       SubscriptBox["g", "1"], " ",
899       SubscriptBox["B", "mu"]}], "+",
900      RowBox[{
901       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "ev", "]"}]}],
902     ")"}]}]}], "+",
903  RowBox[{"\[ImaginaryI]", " ",
904   RowBox[{
905    OverscriptBox["uv", "\<\"-\"\>"], ".",
906    SuperscriptBox["\[Gamma]", "mu"], ".",
907    RowBox[{"(",
908     RowBox[{
909      RowBox[{
910       RowBox[{"-",
911        FractionBox["2", "3"]}], " ", "\[ImaginaryI]", " ",
912       SubscriptBox["g", "1"], " ", "uv", " ",
913       SubscriptBox["B", "mu"]}], "+",
914      RowBox[{
915       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "uv", "]"}], "-",
916      RowBox[{"\[ImaginaryI]", " ",
917       SubscriptBox["g", "s"], " ",
918       RowBox[{
919        SuperscriptBox["T", "a$3667"], ".", "uv"}], " ",
920       SubscriptBox["G",
921        RowBox[{"mu", ",", "a$3667"}]]}]}], ")"}]}]}], "+",
922  RowBox[{"lam1p", " ", "pi1", " ",
923   RowBox[{
924    SubscriptBox[
925     OverscriptBox["l", "\<\"-\"\>"],
926     RowBox[{"r$3706", ",", "1"}]], ".",
927    SubscriptBox["ev", "r$3707"]}], " ",
928   SubscriptBox[
929    SubscriptBox["P", "\<\"-\"\>"],
930    RowBox[{"r$3706", ",", "r$3707"}]]}], "+",
931  RowBox[{"lam2p", " ", "pi2", " ",
932   RowBox[{
933    SubscriptBox[
934     OverscriptBox["l", "\<\"-\"\>"],
935     RowBox[{"r$3708", ",", "1"}]], ".",
936    SubscriptBox["ev", "r$3709"]}], " ",
937   SubscriptBox[
938    SubscriptBox["P", "\<\"-\"\>"],
939    RowBox[{"r$3708", ",", "r$3709"}]]}], "+",
940  RowBox[{"lam1", " ", "pi1", " ",
941   RowBox[{
942    SubscriptBox[
943     OverscriptBox["uq", "\<\"-\"\>"],
944     RowBox[{"r$3710", ",", "3", ",", "ii"}]], ".",
945    SubscriptBox["uv",
946     RowBox[{"r$3711", ",", "ii"}]]}], " ",
947   SubscriptBox[
948    SubscriptBox["P", "\<\"-\"\>"],
949    RowBox[{"r$3710", ",", "r$3711"}]]}], "+",
950  RowBox[{"lam2", " ", "pi2", " ",
951   RowBox[{
952    SubscriptBox[
953     OverscriptBox["uq", "\<\"-\"\>"],
954     RowBox[{"r$3712", ",", "3", ",", "ii"}]], ".",
955    SubscriptBox["uv",
956     RowBox[{"r$3713", ",", "ii"}]]}], " ",
957   SubscriptBox[
958    SubscriptBox["P", "\<\"-\"\>"],
959    RowBox[{"r$3712", ",", "r$3713"}]]}], "+",
960  RowBox[{"lam1p", " ", "pi1", " ",
961   RowBox[{
962    SubscriptBox[
963     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".",
964    SubscriptBox["l",
965     RowBox[{"ss2", ",", "1"}]]}], " ",
966   SubscriptBox[
967    SubscriptBox["P", "\<\"+\"\>"],
968    RowBox[{"ss1", ",", "ss2"}]]}], "+",
969  RowBox[{"lam2p", " ", "pi2", " ",
970   RowBox[{
971    SubscriptBox[
972     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".",
973    SubscriptBox["l",
974     RowBox[{"ss2", ",", "1"}]]}], " ",
975   SubscriptBox[
976    SubscriptBox["P", "\<\"+\"\>"],
977    RowBox[{"ss1", ",", "ss2"}]]}], "+",
978  RowBox[{"lam1", " ", "pi1", " ",
979   RowBox[{
980    SubscriptBox[
981     OverscriptBox["uv", "\<\"-\"\>"],
982     RowBox[{"ss1", ",", "ii"}]], ".",
983    SubscriptBox["uq",
984     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ",
985   SubscriptBox[
986    SubscriptBox["P", "\<\"+\"\>"],
987    RowBox[{"ss1", ",", "ss2"}]]}], "+",
988  RowBox[{"lam2", " ", "pi2", " ",
989   RowBox[{
990    SubscriptBox[
991     OverscriptBox["uv", "\<\"-\"\>"],
992     RowBox[{"ss1", ",", "ii"}]], ".",
993    SubscriptBox["uq",
994     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ",
995   SubscriptBox[
996    SubscriptBox["P", "\<\"+\"\>"],
997    RowBox[{"ss1", ",", "ss2"}]]}]}]], "Output",
998 CellChangeTimes->{{3.5393181032144747`*^9, 3.539318124801681*^9},
999   3.539318376704116*^9, 3.539318868615995*^9, 3.5393189114404373`*^9,
1000   3.5559447357518663`*^9, 3.577373461914164*^9, 3.5773742995246153`*^9,
1001   3.5781001665407763`*^9, 3.579349422580274*^9, 3.5793503056076612`*^9,
1002   3.5793505293823853`*^9, 3.579350649975281*^9, 3.5793588066536427`*^9,
1003   3.579359141817561*^9, 3.579359259902369*^9, 3.579359547500091*^9,
1004   3.579361082767495*^9, 3.57936130745341*^9, 3.5798828207523727`*^9,
1005   3.579883006053547*^9, 3.5799558758662443`*^9, 3.614226967884952*^9,
1006   3.614227229262*^9, 3.62048481020807*^9, 3.6205321770548267`*^9,
1007   3.6205322923145733`*^9, 3.620534376464304*^9}]
1008}, Open  ]]
1009}, Open  ]],
1010
1011Cell[CellGroupData[{
1012
1013Cell["Checking the model", "Section",
1014 CellChangeTimes->{{3.5393178553626547`*^9, 3.539317857239614*^9}, {
1015  3.539318951729939*^9, 3.539318953814794*^9}, {3.620484827265339*^9,
1016  3.620484829160314*^9}}],
1017
1018Cell[CellGroupData[{
1019
1020Cell[BoxData[
1021 RowBox[{"CheckMassSpectrum", "[", "LNew", "]"}]], "Input",
1022 CellChangeTimes->{{3.579350411293748*^9, 3.579350415283794*^9}}],
1023
1024Cell[CellGroupData[{
1025
1026Cell[BoxData[
1027 InterpretationBox[
1028  RowBox[{"\<\"Neglecting all terms with more than \"\>",
1029   "\[InvisibleSpace]", "\<\"2\"\>",
1030   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
1031  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
1032  Editable->False]], "Print",
1033 CellChangeTimes->{
1034  3.5793504171576357`*^9, 3.5793505336303453`*^9, 3.57935065439296*^9,
1035   3.579358811124146*^9, {3.579359119161418*^9, 3.579359145870646*^9},
1036   3.5793592657591133`*^9, 3.5793595516192408`*^9, 3.579361091411455*^9,
1037   3.579882864653352*^9, 3.579883010247345*^9, 3.579955882985557*^9,
1038   3.614226974878377*^9, 3.614227237152254*^9}],
1039
1040Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
1041 CellChangeTimes->{
1042  3.5793504171576357`*^9, 3.5793505336303453`*^9, 3.57935065439296*^9,
1043   3.579358811124146*^9, {3.579359119161418*^9, 3.579359145870646*^9},
1044   3.5793592657591133`*^9, 3.5793595516192408`*^9, 3.579361091411455*^9,
1045   3.579882864653352*^9, 3.579883010247345*^9, 3.579955882985557*^9,
1046   3.614226974878377*^9, 3.614227237175366*^9}],
1047
1048Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
1049 CellChangeTimes->{
1050  3.5793504171576357`*^9, 3.5793505336303453`*^9, 3.57935065439296*^9,
1051   3.579358811124146*^9, {3.579359119161418*^9, 3.579359145870646*^9},
1052   3.5793592657591133`*^9, 3.5793595516192408`*^9, 3.579361091411455*^9,
1053   3.579882864653352*^9, 3.579883010247345*^9, 3.579955882985557*^9,
1054   3.614226974878377*^9, 3.614227237425606*^9}],
1055
1056Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
1057values.\"\>"], "Print",
1058 CellChangeTimes->{
1059  3.5793504171576357`*^9, 3.5793505336303453`*^9, 3.57935065439296*^9,
1060   3.579358811124146*^9, {3.579359119161418*^9, 3.579359145870646*^9},
1061   3.5793592657591133`*^9, 3.5793595516192408`*^9, 3.579361091411455*^9,
1062   3.579882864653352*^9, 3.579883010247345*^9, 3.579955882985557*^9,
1063   3.614226974878377*^9, 3.6142272374270678`*^9}]
1064}, Open  ]],
1065
1066Cell[BoxData[
1067 TagBox[GridBox[{
1068    {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
1069"\<\"Model-file value\"\>"},
1070    {"p1",
1071     RowBox[{
1072      SqrtBox["2"], " ",
1073      SqrtBox[
1074       RowBox[{
1075        RowBox[{
1076         FractionBox["1", "2"], " ",
1077         SuperscriptBox["MM2", "2"], " ",
1078         SuperscriptBox[
1079          RowBox[{"Cos", "[", "th", "]"}], "2"]}], "-",
1080        RowBox[{
1081         SuperscriptBox["MM12", "2"], " ",
1082         RowBox[{"Cos", "[", "th", "]"}], " ",
1083         RowBox[{"Sin", "[", "th", "]"}]}], "+",
1084        RowBox[{
1085         FractionBox["1", "2"], " ",
1086         SuperscriptBox["MM1", "2"], " ",
1087         SuperscriptBox[
1088          RowBox[{"Sin", "[", "th", "]"}], "2"]}]}]]}], "0.9999968746825869`",
1089      "0.9999968746825563`"},
1090    {"p2",
1091     RowBox[{
1092      SqrtBox["2"], " ",
1093      SqrtBox[
1094       RowBox[{
1095        RowBox[{
1096         FractionBox["1", "2"], " ",
1097         SuperscriptBox["MM1", "2"], " ",
1098         SuperscriptBox[
1099          RowBox[{"Cos", "[", "th", "]"}], "2"]}], "+",
1100        RowBox[{
1101         SuperscriptBox["MM12", "2"], " ",
1102         RowBox[{"Cos", "[", "th", "]"}], " ",
1103         RowBox[{"Sin", "[", "th", "]"}]}], "+",
1104        RowBox[{
1105         FractionBox["1", "2"], " ",
1106         SuperscriptBox["MM2", "2"], " ",
1107         SuperscriptBox[
1108          RowBox[{"Sin", "[", "th", "]"}], "2"]}]}]]}], "100.00000003125314`",
1109      "100.00000003125312`"},
1110    {"ev", "Mev", "50.`", "50.`"},
1111    {"uv", "Muv", "400.`", "400.`"}
1112   },
1113   GridBoxAlignment->{
1114    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1115     "RowsIndexed" -> {}},
1116   GridBoxSpacings->{"Columns" -> {
1117       Offset[0.27999999999999997`], {
1118        Offset[2.0999999999999996`]},
1119       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1120       Offset[0.2], {
1121        Offset[0.4]},
1122       Offset[0.2]}, "RowsIndexed" -> {}}],
1123  Function[BoxForm`e$,
1124   TableForm[BoxForm`e$]]]], "Output",
1125 CellChangeTimes->{3.579359266696863*^9, 3.579359552626623*^9,
1126  3.5793610923537407`*^9, 3.5798828652033567`*^9, 3.579883010753553*^9,
1127  3.579955883507883*^9, 3.6142269754416637`*^9, 3.614227237429613*^9}]
1128}, Open  ]]
1129}, Closed]],
1130
1131Cell[CellGroupData[{
1132
1133Cell["The Feynman rules", "Section",
1134 CellChangeTimes->{{3.5393189582943993`*^9, 3.5393189603102827`*^9},
1135   3.577374302527355*^9, 3.614226983421431*^9}],
1136
1137Cell[CellGroupData[{
1138
1139Cell[BoxData[
1140 RowBox[{"vertices", "=",
1141  RowBox[{"FeynmanRules", "[", "LNew", "]"}]}]], "Input",
1142 CellChangeTimes->{{3.5393189611068983`*^9, 3.539318966823897*^9}, {
1143  3.578100172014543*^9, 3.578100173567128*^9}}],
1144
1145Cell[CellGroupData[{
1146
1147Cell[BoxData[
1148 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1149  StripOnInput->False,
1150  LineColor->RGBColor[1, 0.5, 0],
1151  FrontFaceColor->RGBColor[1, 0.5, 0],
1152  BackFaceColor->RGBColor[1, 0.5, 0],
1153  GraphicsColor->RGBColor[1, 0.5, 0],
1154  FontWeight->Bold,
1155  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1156 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1157  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1158  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1159  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1160  3.620484837782795*^9}],
1161
1162Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1163 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1164  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1165  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1166  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1167  3.6204848377843*^9}],
1168
1169Cell[BoxData["\<\"Collecting the different structures that enter the \
1170vertex.\"\>"], "Print",
1171 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1172  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1173  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1174  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1175  3.62048483807887*^9}],
1176
1177Cell[BoxData[
1178 InterpretationBox[
1179  RowBox[{
1180  "13", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1181-> starting the computation: \"\>", "\[InvisibleSpace]",
1182   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1183    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1184   "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\".\"\>"}],
1185  SequenceForm[
1186  13, " possible non-zero vertices have been found -> starting the \
1187computation: ",
1188   Dynamic[FeynRules`FR$FeynmanRules], " / ", 13, "."],
1189  Editable->False]], "Print",
1190 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1191  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1192  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1193  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1194  3.620484838120513*^9}]
1195}, Open  ]],
1196
1197Cell[BoxData[
1198 RowBox[{
1199  StyleBox[
1200   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
1201  RowBox[{
1202  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
1203\"\>"}]], "Message", "MSG",
1204 CellChangeTimes->{3.57935967692867*^9, 3.57936109709974*^9,
1205  3.579882876172476*^9, 3.579883015113233*^9, 3.579955925731978*^9,
1206  3.614226990346407*^9, 3.614227244355294*^9, 3.620484838458645*^9}],
1207
1208Cell[BoxData[
1209 InterpretationBox[
1210  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
1211   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1212   "\[InvisibleSpace]",
1213   RowBox[{"{",
1214    RowBox[{
1215     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p2"}], "}"}],
1216   "\[InvisibleSpace]", "\<\".\"\>"}],
1217  SequenceForm[
1218  "Quantum number ", $CellContext`LeptonNumber,
1219   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
1220$CellContext`p2}, "."],
1221  Editable->False]], "Print",
1222 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1223  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1224  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1225  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1226  3.620484838459844*^9}],
1227
1228Cell[BoxData[
1229 RowBox[{
1230  StyleBox[
1231   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
1232  RowBox[{
1233  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
1234\"\>"}]], "Message", "MSG",
1235 CellChangeTimes->{3.57935967692867*^9, 3.57936109709974*^9,
1236  3.579882876172476*^9, 3.579883015113233*^9, 3.579955925731978*^9,
1237  3.614226990346407*^9, 3.614227244355294*^9, 3.620484838555184*^9}],
1238
1239Cell[BoxData[
1240 InterpretationBox[
1241  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
1242   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1243   "\[InvisibleSpace]",
1244   RowBox[{"{",
1245    RowBox[{
1246     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p2"}], "}"}],
1247   "\[InvisibleSpace]", "\<\".\"\>"}],
1248  SequenceForm[
1249  "Quantum number ", FeynRules`Y,
1250   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
1251$CellContext`p2}, "."],
1252  Editable->False]], "Print",
1253 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1254  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1255  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1256  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1257  3.620484838556353*^9}],
1258
1259Cell[BoxData[
1260 RowBox[{
1261  StyleBox[
1262   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
1263  RowBox[{
1264  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
1265\"\>"}]], "Message", "MSG",
1266 CellChangeTimes->{3.57935967692867*^9, 3.57936109709974*^9,
1267  3.579882876172476*^9, 3.579883015113233*^9, 3.579955925731978*^9,
1268  3.614226990346407*^9, 3.614227244355294*^9, 3.6204848386493683`*^9}],
1269
1270Cell[BoxData[
1271 RowBox[{
1272  StyleBox[
1273   RowBox[{"General", "::", "stop"}], "MessageName"],
1274  RowBox[{
1275  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
1276NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
1277this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
1278ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
1279ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
1280\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
1281 CellChangeTimes->{3.57935967692867*^9, 3.57936109709974*^9,
1282  3.579882876172476*^9, 3.579883015113233*^9, 3.579955925731978*^9,
1283  3.614226990346407*^9, 3.614227244355294*^9, 3.620484838672554*^9}],
1284
1285Cell[CellGroupData[{
1286
1287Cell[BoxData[
1288 InterpretationBox[
1289  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
1290   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1291   "\[InvisibleSpace]",
1292   RowBox[{"{",
1293    RowBox[{
1294     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p1"}], "}"}],
1295   "\[InvisibleSpace]", "\<\".\"\>"}],
1296  SequenceForm[
1297  "Quantum number ", $CellContext`LeptonNumber,
1298   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
1299$CellContext`p1}, "."],
1300  Editable->False]], "Print",
1301 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1302  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1303  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1304  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1305  3.620484838673321*^9}],
1306
1307Cell[BoxData[
1308 InterpretationBox[
1309  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
1310   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1311   "\[InvisibleSpace]",
1312   RowBox[{"{",
1313    RowBox[{
1314     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p1"}], "}"}],
1315   "\[InvisibleSpace]", "\<\".\"\>"}],
1316  SequenceForm[
1317  "Quantum number ", FeynRules`Y,
1318   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
1319$CellContext`p1}, "."],
1320  Editable->False]], "Print",
1321 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1322  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1323  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1324  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1325  3.620484838674183*^9}],
1326
1327Cell[BoxData[
1328 InterpretationBox[
1329  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
1330   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1331   "\[InvisibleSpace]",
1332   RowBox[{"{",
1333    RowBox[{
1334     OverscriptBox["t", "\<\"-\"\>"], ",", "uv", ",", "p2"}], "}"}],
1335   "\[InvisibleSpace]", "\<\".\"\>"}],
1336  SequenceForm[
1337  "Quantum number ", FeynRules`Y,
1338   " not conserved in vertex ", {$CellContext`tbar, $CellContext`uv, \
1339$CellContext`p2}, "."],
1340  Editable->False]], "Print",
1341 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1342  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1343  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1344  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1345  3.6204848386754913`*^9}],
1346
1347Cell[BoxData[
1348 InterpretationBox[
1349  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
1350   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1351   "\[InvisibleSpace]",
1352   RowBox[{"{",
1353    RowBox[{
1354     OverscriptBox["t", "\<\"-\"\>"], ",", "uv", ",", "p1"}], "}"}],
1355   "\[InvisibleSpace]", "\<\".\"\>"}],
1356  SequenceForm[
1357  "Quantum number ", FeynRules`Y,
1358   " not conserved in vertex ", {$CellContext`tbar, $CellContext`uv, \
1359$CellContext`p1}, "."],
1360  Editable->False]], "Print",
1361 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1362  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1363  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1364  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1365  3.620484838676784*^9}],
1366
1367Cell[BoxData[
1368 InterpretationBox[
1369  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
1370   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1371   "\[InvisibleSpace]",
1372   RowBox[{"{",
1373    RowBox[{
1374     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p1"}], "}"}],
1375   "\[InvisibleSpace]", "\<\".\"\>"}],
1376  SequenceForm[
1377  "Quantum number ", $CellContext`LeptonNumber,
1378   " not conserved in vertex ", {$CellContext`evbar,
1379    FeynRules`e, $CellContext`p1}, "."],
1380  Editable->False]], "Print",
1381 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1382  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1383  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1384  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1385  3.620484838678142*^9}],
1386
1387Cell[BoxData[
1388 InterpretationBox[
1389  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
1390   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1391   "\[InvisibleSpace]",
1392   RowBox[{"{",
1393    RowBox[{
1394     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p1"}], "}"}],
1395   "\[InvisibleSpace]", "\<\".\"\>"}],
1396  SequenceForm[
1397  "Quantum number ", FeynRules`Y,
1398   " not conserved in vertex ", {$CellContext`evbar,
1399    FeynRules`e, $CellContext`p1}, "."],
1400  Editable->False]], "Print",
1401 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1402  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1403  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1404  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1405  3.620484838679428*^9}],
1406
1407Cell[BoxData[
1408 InterpretationBox[
1409  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
1410   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1411   "\[InvisibleSpace]",
1412   RowBox[{"{",
1413    RowBox[{
1414     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p2"}], "}"}],
1415   "\[InvisibleSpace]", "\<\".\"\>"}],
1416  SequenceForm[
1417  "Quantum number ", $CellContext`LeptonNumber,
1418   " not conserved in vertex ", {$CellContext`evbar,
1419    FeynRules`e, $CellContext`p2}, "."],
1420  Editable->False]], "Print",
1421 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1422  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1423  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1424  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1425  3.620484838680726*^9}],
1426
1427Cell[BoxData[
1428 InterpretationBox[
1429  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
1430   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1431   "\[InvisibleSpace]",
1432   RowBox[{"{",
1433    RowBox[{
1434     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p2"}], "}"}],
1435   "\[InvisibleSpace]", "\<\".\"\>"}],
1436  SequenceForm[
1437  "Quantum number ", FeynRules`Y,
1438   " not conserved in vertex ", {$CellContext`evbar,
1439    FeynRules`e, $CellContext`p2}, "."],
1440  Editable->False]], "Print",
1441 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1442  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1443  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1444  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1445  3.620484838682094*^9}],
1446
1447Cell[BoxData[
1448 InterpretationBox[
1449  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
1450   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1451   "\[InvisibleSpace]",
1452   RowBox[{"{",
1453    RowBox[{
1454     OverscriptBox["uv", "\<\"-\"\>"], ",", "t", ",", "p1"}], "}"}],
1455   "\[InvisibleSpace]", "\<\".\"\>"}],
1456  SequenceForm[
1457  "Quantum number ", FeynRules`Y,
1458   " not conserved in vertex ", {$CellContext`uvbar,
1459    FeynRules`t, $CellContext`p1}, "."],
1460  Editable->False]], "Print",
1461 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1462  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1463  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1464  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1465  3.6204848386834307`*^9}],
1466
1467Cell[BoxData[
1468 InterpretationBox[
1469  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
1470   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
1471   "\[InvisibleSpace]",
1472   RowBox[{"{",
1473    RowBox[{
1474     OverscriptBox["uv", "\<\"-\"\>"], ",", "t", ",", "p2"}], "}"}],
1475   "\[InvisibleSpace]", "\<\".\"\>"}],
1476  SequenceForm[
1477  "Quantum number ", FeynRules`Y,
1478   " not conserved in vertex ", {$CellContext`uvbar,
1479    FeynRules`t, $CellContext`p2}, "."],
1480  Editable->False]], "Print",
1481 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1482  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1483  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1484  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1485  3.6204848386847343`*^9}],
1486
1487Cell[BoxData[
1488 InterpretationBox[
1489  RowBox[{"13", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1490  SequenceForm[13, " vertices obtained."],
1491  Editable->False]], "Print",
1492 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9,
1493  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9,
1494  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9,
1495  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9,
1496  3.620484838686007*^9}]
1497}, Open  ]],
1498
1499Cell[BoxData[
1500 RowBox[{"{",
1501  RowBox[{
1502   RowBox[{"{",
1503    RowBox[{
1504     RowBox[{"{",
1505      RowBox[{
1506       RowBox[{"{",
1507        RowBox[{
1508         OverscriptBox["ev", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1509       RowBox[{"{",
1510        RowBox[{"ev", ",", "2"}], "}"}], ",",
1511       RowBox[{"{",
1512        RowBox[{"A", ",", "3"}], "}"}]}], "}"}], ",",
1513     RowBox[{
1514      RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
1515      SubsuperscriptBox["\[Gamma]",
1516       RowBox[{
1517        SubscriptBox["\<\"s\"\>", "1"], ",",
1518        SubscriptBox["\<\"s\"\>", "2"]}],
1519       SubscriptBox["\<\"\[Mu]\"\>", "3"]]}]}], "}"}], ",",
1520   RowBox[{"{",
1521    RowBox[{
1522     RowBox[{"{",
1523      RowBox[{
1524       RowBox[{"{",
1525        RowBox[{
1526         OverscriptBox["uv", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1527       RowBox[{"{",
1528        RowBox[{"uv", ",", "2"}], "}"}], ",",
1529       RowBox[{"{",
1530        RowBox[{"A", ",", "3"}], "}"}]}], "}"}], ",",
1531     RowBox[{
1532      FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ",
1533      SubsuperscriptBox["\[Gamma]",
1534       RowBox[{
1535        SubscriptBox["\<\"s\"\>", "1"], ",",
1536        SubscriptBox["\<\"s\"\>", "2"]}],
1537       SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1538      SubscriptBox["\[Delta]",
1539       RowBox[{
1540        SubscriptBox["\<\"m\"\>", "1"], ",",
1541        SubscriptBox["\<\"m\"\>", "2"]}]]}]}], "}"}], ",",
1542   RowBox[{"{",
1543    RowBox[{
1544     RowBox[{"{",
1545      RowBox[{
1546       RowBox[{"{",
1547        RowBox[{
1548         OverscriptBox["e", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1549       RowBox[{"{",
1550        RowBox[{"ev", ",", "2"}], "}"}], ",",
1551       RowBox[{"{",
1552        RowBox[{"p2", ",", "3"}], "}"}]}], "}"}], ",",
1553     RowBox[{
1554      RowBox[{"\[ImaginaryI]", " ", "lam1p", " ",
1555       RowBox[{"Cos", "[", "th", "]"}], " ",
1556       SubscriptBox[
1557        SubscriptBox["P", "\<\"-\"\>"],
1558        RowBox[{
1559         SubscriptBox["\<\"s\"\>", "1"], ",",
1560         SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
1561      RowBox[{"\[ImaginaryI]", " ", "lam2p", " ",
1562       SubscriptBox[
1563        SubscriptBox["P", "\<\"-\"\>"],
1564        RowBox[{
1565         SubscriptBox["\<\"s\"\>", "1"], ",",
1566         SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1567       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",",
1568   RowBox[{"{",
1569    RowBox[{
1570     RowBox[{"{",
1571      RowBox[{
1572       RowBox[{"{",
1573        RowBox[{
1574         OverscriptBox["e", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1575       RowBox[{"{",
1576        RowBox[{"ev", ",", "2"}], "}"}], ",",
1577       RowBox[{"{",
1578        RowBox[{"p1", ",", "3"}], "}"}]}], "}"}], ",",
1579     RowBox[{
1580      RowBox[{"\[ImaginaryI]", " ", "lam2p", " ",
1581       RowBox[{"Cos", "[", "th", "]"}], " ",
1582       SubscriptBox[
1583        SubscriptBox["P", "\<\"-\"\>"],
1584        RowBox[{
1585         SubscriptBox["\<\"s\"\>", "1"], ",",
1586         SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
1587      RowBox[{"\[ImaginaryI]", " ", "lam1p", " ",
1588       SubscriptBox[
1589        SubscriptBox["P", "\<\"-\"\>"],
1590        RowBox[{
1591         SubscriptBox["\<\"s\"\>", "1"], ",",
1592         SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1593       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",",
1594   RowBox[{"{",
1595    RowBox[{
1596     RowBox[{"{",
1597      RowBox[{
1598       RowBox[{"{",
1599        RowBox[{
1600         OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1601       RowBox[{"{",
1602        RowBox[{"uv", ",", "2"}], "}"}], ",",
1603       RowBox[{"{",
1604        RowBox[{"p2", ",", "3"}], "}"}]}], "}"}], ",",
1605     RowBox[{
1606      RowBox[{"\[ImaginaryI]", " ", "lam1", " ",
1607       RowBox[{"Cos", "[", "th", "]"}], " ",
1608       SubscriptBox["\[Delta]",
1609        RowBox[{
1610         SubscriptBox["\<\"m\"\>", "1"], ",",
1611         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1612       SubscriptBox[
1613        SubscriptBox["P", "\<\"-\"\>"],
1614        RowBox[{
1615         SubscriptBox["\<\"s\"\>", "1"], ",",
1616         SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
1617      RowBox[{"\[ImaginaryI]", " ", "lam2", " ",
1618       SubscriptBox["\[Delta]",
1619        RowBox[{
1620         SubscriptBox["\<\"m\"\>", "1"], ",",
1621         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1622       SubscriptBox[
1623        SubscriptBox["P", "\<\"-\"\>"],
1624        RowBox[{
1625         SubscriptBox["\<\"s\"\>", "1"], ",",
1626         SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1627       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",",
1628   RowBox[{"{",
1629    RowBox[{
1630     RowBox[{"{",
1631      RowBox[{
1632       RowBox[{"{",
1633        RowBox[{
1634         OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1635       RowBox[{"{",
1636        RowBox[{"uv", ",", "2"}], "}"}], ",",
1637       RowBox[{"{",
1638        RowBox[{"p1", ",", "3"}], "}"}]}], "}"}], ",",
1639     RowBox[{
1640      RowBox[{"\[ImaginaryI]", " ", "lam2", " ",
1641       RowBox[{"Cos", "[", "th", "]"}], " ",
1642       SubscriptBox["\[Delta]",
1643        RowBox[{
1644         SubscriptBox["\<\"m\"\>", "1"], ",",
1645         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1646       SubscriptBox[
1647        SubscriptBox["P", "\<\"-\"\>"],
1648        RowBox[{
1649         SubscriptBox["\<\"s\"\>", "1"], ",",
1650         SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
1651      RowBox[{"\[ImaginaryI]", " ", "lam1", " ",
1652       SubscriptBox["\[Delta]",
1653        RowBox[{
1654         SubscriptBox["\<\"m\"\>", "1"], ",",
1655         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1656       SubscriptBox[
1657        SubscriptBox["P", "\<\"-\"\>"],
1658        RowBox[{
1659         SubscriptBox["\<\"s\"\>", "1"], ",",
1660         SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1661       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",",
1662   RowBox[{"{",
1663    RowBox[{
1664     RowBox[{"{",
1665      RowBox[{
1666       RowBox[{"{",
1667        RowBox[{
1668         OverscriptBox["ev", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1669       RowBox[{"{",
1670        RowBox[{"e", ",", "2"}], "}"}], ",",
1671       RowBox[{"{",
1672        RowBox[{"p1", ",", "3"}], "}"}]}], "}"}], ",",
1673     RowBox[{
1674      RowBox[{"\[ImaginaryI]", " ", "lam2p", " ",
1675       RowBox[{"Cos", "[", "th", "]"}], " ",
1676       SubscriptBox[
1677        SubscriptBox["P", "\<\"+\"\>"],
1678        RowBox[{
1679         SubscriptBox["\<\"s\"\>", "1"], ",",
1680         SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
1681      RowBox[{"\[ImaginaryI]", " ", "lam1p", " ",
1682       SubscriptBox[
1683        SubscriptBox["P", "\<\"+\"\>"],
1684        RowBox[{
1685         SubscriptBox["\<\"s\"\>", "1"], ",",
1686         SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1687       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",",
1688   RowBox[{"{",
1689    RowBox[{
1690     RowBox[{"{",
1691      RowBox[{
1692       RowBox[{"{",
1693        RowBox[{
1694         OverscriptBox["ev", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1695       RowBox[{"{",
1696        RowBox[{"e", ",", "2"}], "}"}], ",",
1697       RowBox[{"{",
1698        RowBox[{"p2", ",", "3"}], "}"}]}], "}"}], ",",
1699     RowBox[{
1700      RowBox[{"\[ImaginaryI]", " ", "lam1p", " ",
1701       RowBox[{"Cos", "[", "th", "]"}], " ",
1702       SubscriptBox[
1703        SubscriptBox["P", "\<\"+\"\>"],
1704        RowBox[{
1705         SubscriptBox["\<\"s\"\>", "1"], ",",
1706         SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
1707      RowBox[{"\[ImaginaryI]", " ", "lam2p", " ",
1708       SubscriptBox[
1709        SubscriptBox["P", "\<\"+\"\>"],
1710        RowBox[{
1711         SubscriptBox["\<\"s\"\>", "1"], ",",
1712         SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1713       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",",
1714   RowBox[{"{",
1715    RowBox[{
1716     RowBox[{"{",
1717      RowBox[{
1718       RowBox[{"{",
1719        RowBox[{
1720         OverscriptBox["uv", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1721       RowBox[{"{",
1722        RowBox[{"t", ",", "2"}], "}"}], ",",
1723       RowBox[{"{",
1724        RowBox[{"p1", ",", "3"}], "}"}]}], "}"}], ",",
1725     RowBox[{
1726      RowBox[{"\[ImaginaryI]", " ", "lam2", " ",
1727       RowBox[{"Cos", "[", "th", "]"}], " ",
1728       SubscriptBox["\[Delta]",
1729        RowBox[{
1730         SubscriptBox["\<\"m\"\>", "1"], ",",
1731         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1732       SubscriptBox[
1733        SubscriptBox["P", "\<\"+\"\>"],
1734        RowBox[{
1735         SubscriptBox["\<\"s\"\>", "1"], ",",
1736         SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
1737      RowBox[{"\[ImaginaryI]", " ", "lam1", " ",
1738       SubscriptBox["\[Delta]",
1739        RowBox[{
1740         SubscriptBox["\<\"m\"\>", "1"], ",",
1741         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1742       SubscriptBox[
1743        SubscriptBox["P", "\<\"+\"\>"],
1744        RowBox[{
1745         SubscriptBox["\<\"s\"\>", "1"], ",",
1746         SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1747       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",",
1748   RowBox[{"{",
1749    RowBox[{
1750     RowBox[{"{",
1751      RowBox[{
1752       RowBox[{"{",
1753        RowBox[{
1754         OverscriptBox["uv", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1755       RowBox[{"{",
1756        RowBox[{"t", ",", "2"}], "}"}], ",",
1757       RowBox[{"{",
1758        RowBox[{"p2", ",", "3"}], "}"}]}], "}"}], ",",
1759     RowBox[{
1760      RowBox[{"\[ImaginaryI]", " ", "lam1", " ",
1761       RowBox[{"Cos", "[", "th", "]"}], " ",
1762       SubscriptBox["\[Delta]",
1763        RowBox[{
1764         SubscriptBox["\<\"m\"\>", "1"], ",",
1765         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1766       SubscriptBox[
1767        SubscriptBox["P", "\<\"+\"\>"],
1768        RowBox[{
1769         SubscriptBox["\<\"s\"\>", "1"], ",",
1770         SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
1771      RowBox[{"\[ImaginaryI]", " ", "lam2", " ",
1772       SubscriptBox["\[Delta]",
1773        RowBox[{
1774         SubscriptBox["\<\"m\"\>", "1"], ",",
1775         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1776       SubscriptBox[
1777        SubscriptBox["P", "\<\"+\"\>"],
1778        RowBox[{
1779         SubscriptBox["\<\"s\"\>", "1"], ",",
1780         SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1781       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",",
1782   RowBox[{"{",
1783    RowBox[{
1784     RowBox[{"{",
1785      RowBox[{
1786       RowBox[{"{",
1787        RowBox[{
1788         OverscriptBox["uv", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1789       RowBox[{"{",
1790        RowBox[{"uv", ",", "2"}], "}"}], ",",
1791       RowBox[{"{",
1792        RowBox[{"G", ",", "3"}], "}"}]}], "}"}], ",",
1793     RowBox[{"\[ImaginaryI]", " ",
1794      SubscriptBox["g", "s"], " ",
1795      SubsuperscriptBox["\[Gamma]",
1796       RowBox[{
1797        SubscriptBox["\<\"s\"\>", "1"], ",",
1798        SubscriptBox["\<\"s\"\>", "2"]}],
1799       SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1800      SubsuperscriptBox["T",
1801       RowBox[{
1802        SubscriptBox["\<\"m\"\>", "1"], ",",
1803        SubscriptBox["\<\"m\"\>", "2"]}],
1804       SubscriptBox["\<\"a\"\>", "3"]]}]}], "}"}], ",",
1805   RowBox[{"{",
1806    RowBox[{
1807     RowBox[{"{",
1808      RowBox[{
1809       RowBox[{"{",
1810        RowBox[{
1811         OverscriptBox["ev", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1812       RowBox[{"{",
1813        RowBox[{"ev", ",", "2"}], "}"}], ",",
1814       RowBox[{"{",
1815        RowBox[{"Z", ",", "3"}], "}"}]}], "}"}], ",",
1816     FractionBox[
1817      RowBox[{"\[ImaginaryI]", " ", "e", " ",
1818       SubscriptBox["s", "w"], " ",
1819       SubsuperscriptBox["\[Gamma]",
1820        RowBox[{
1821         SubscriptBox["\<\"s\"\>", "1"], ",",
1822         SubscriptBox["\<\"s\"\>", "2"]}],
1823        SubscriptBox["\<\"\[Mu]\"\>", "3"]]}],
1824      SubscriptBox["c", "w"]]}], "}"}], ",",
1825   RowBox[{"{",
1826    RowBox[{
1827     RowBox[{"{",
1828      RowBox[{
1829       RowBox[{"{",
1830        RowBox[{
1831         OverscriptBox["uv", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1832       RowBox[{"{",
1833        RowBox[{"uv", ",", "2"}], "}"}], ",",
1834       RowBox[{"{",
1835        RowBox[{"Z", ",", "3"}], "}"}]}], "}"}], ",",
1836     RowBox[{"-",
1837      FractionBox[
1838       RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
1839        SubscriptBox["s", "w"], " ",
1840        SubsuperscriptBox["\[Gamma]",
1841         RowBox[{
1842          SubscriptBox["\<\"s\"\>", "1"], ",",
1843          SubscriptBox["\<\"s\"\>", "2"]}],
1844         SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1845        SubscriptBox["\[Delta]",
1846         RowBox[{
1847          SubscriptBox["\<\"m\"\>", "1"], ",",
1848          SubscriptBox["\<\"m\"\>", "2"]}]]}],
1849       RowBox[{"3", " ",
1850        SubscriptBox["c", "w"]}]]}]}], "}"}]}], "}"}]], "Output",
1851 CellChangeTimes->{3.539318968485745*^9, 3.555944748124181*^9,
1852  3.577373467002137*^9, 3.578100178320201*^9, 3.579359677559607*^9,
1853  3.579361097674306*^9, 3.5798828767189703`*^9, 3.579883015711761*^9,
1854  3.579955926297202*^9, 3.614226990639884*^9, 3.614227244578875*^9,
1855  3.620484838688407*^9}]
1856}, Closed]]
1857}, Closed]],
1858
1859Cell[CellGroupData[{
1860
1861Cell["Computing decays", "Section",
1862 CellChangeTimes->{{3.5781006310351267`*^9, 3.578100633256648*^9}}],
1863
1864Cell[CellGroupData[{
1865
1866Cell[BoxData[
1867 RowBox[{
1868  RowBox[{"decays", "=",
1869   RowBox[{"ComputeWidths", "[", "vertices", "]"}]}], ";"}]], "Input",
1870 CellChangeTimes->{{3.578100182561545*^9, 3.57810020224467*^9},
1871   3.5781019603591213`*^9}],
1872
1873Cell[CellGroupData[{
1874
1875Cell[BoxData[
1876 InterpretationBox[
1877  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
1878   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
1879    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1880   "\[InvisibleSpace]", "13"}],
1881  SequenceForm["Flavor expansion of the vertices: ",
1882   Dynamic[FeynRules`FR$Count1], " / ", 13],
1883  Editable->False]], "Print",
1884 CellChangeTimes->{3.5799559328896837`*^9, 3.6142270008489513`*^9,
1885  3.6204849701379957`*^9}],
1886
1887Cell[BoxData[
1888 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
1889decays: \"\>",
1890  StripOnInput->False,
1891  LineColor->RGBColor[1, 0.5, 0],
1892  FrontFaceColor->RGBColor[1, 0.5, 0],
1893  BackFaceColor->RGBColor[1, 0.5, 0],
1894  GraphicsColor->RGBColor[1, 0.5, 0],
1895  FontWeight->Bold,
1896  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1897 CellChangeTimes->{3.5799559328896837`*^9, 3.6142270008489513`*^9,
1898  3.620484970233635*^9}],
1899
1900Cell[BoxData[
1901 InterpretationBox[
1902  RowBox[{
1903   DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
1904    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1905   "\[InvisibleSpace]", "10"}],
1906  SequenceForm[
1907   Dynamic[FeynRules`FR$DecayCounter], " / ", 10],
1908  Editable->False]], "Print",
1909 CellChangeTimes->{3.5799559328896837`*^9, 3.6142270008489513`*^9,
1910  3.620484970235491*^9}]
1911}, Open  ]]
1912}, Open  ]],
1913
1914Cell[CellGroupData[{
1915
1916Cell[BoxData[{
1917 RowBox[{"x1", "=",
1918  RowBox[{"PartialWidth", "[",
1919   RowBox[{"{",
1920    RowBox[{"uv", ",", "t", ",", "p1"}], "}"}],
1921   "]"}]}], "\[IndentingNewLine]",
1922 RowBox[{"x2", "=",
1923  RowBox[{"PartialWidth", "[",
1924   RowBox[{"{",
1925    RowBox[{"uv", ",", "t", ",", "p2"}], "}"}],
1926   "]"}]}], "\[IndentingNewLine]",
1927 RowBox[{"x3", "=",
1928  RowBox[{"PartialWidth", "[",
1929   RowBox[{"{",
1930    RowBox[{"p2", ",", "e", ",", "evbar"}], "}"}],
1931   "]"}]}], "\[IndentingNewLine]",
1932 RowBox[{"x4", "=",
1933  RowBox[{"PartialWidth", "[",
1934   RowBox[{"{",
1935    RowBox[{"ev", ",", "e", ",", "p1"}], "}"}], "]"}]}]}], "Input",
1936 CellChangeTimes->{{3.578100256478664*^9, 3.578100389458416*^9}, {
1937  3.578100496453477*^9, 3.578100496643045*^9}, {3.5781006406864853`*^9,
1938  3.578100657875001*^9}, {3.578101047163535*^9, 3.578101063202585*^9}, {
1939  3.578101099217561*^9, 3.578101110441593*^9}, {3.579955894464841*^9,
1940  3.579955895661914*^9}}],
1941
1942Cell[BoxData[
1943 RowBox[{"-",
1944  RowBox[{
1945   FractionBox["1",
1946    RowBox[{"32", " ", "\[Pi]", " ",
1947     SuperscriptBox[
1948      RowBox[{"Abs", "[", "Muv", "]"}], "3"]}]],
1949   RowBox[{
1950    RowBox[{"(",
1951     RowBox[{
1952      SuperscriptBox["MPe1", "2"], "-",
1953      SuperscriptBox["MT", "2"], "-",
1954      SuperscriptBox["Muv", "2"]}], ")"}], " ",
1955    SqrtBox[
1956     RowBox[{
1957      SuperscriptBox["MPe1", "4"], "-",
1958      RowBox[{"2", " ",
1959       SuperscriptBox["MPe1", "2"], " ",
1960       SuperscriptBox["MT", "2"]}], "+",
1961      SuperscriptBox["MT", "4"], "-",
1962      RowBox[{"2", " ",
1963       SuperscriptBox["MPe1", "2"], " ",
1964       SuperscriptBox["Muv", "2"]}], "-",
1965      RowBox[{"2", " ",
1966       SuperscriptBox["MT", "2"], " ",
1967       SuperscriptBox["Muv", "2"]}], "+",
1968      SuperscriptBox["Muv", "4"]}]], " ",
1969    SuperscriptBox[
1970     RowBox[{"(",
1971      RowBox[{
1972       RowBox[{"lam2", " ",
1973        RowBox[{"Cos", "[", "th", "]"}]}], "-",
1974       RowBox[{"lam1", " ",
1975        RowBox[{"Sin", "[", "th", "]"}]}]}], ")"}], "2"]}]}]}]], "Output",
1976 CellChangeTimes->{{3.578100267712432*^9, 3.578100306961565*^9}, {
1977   3.578100337491872*^9, 3.578100389938218*^9}, 3.5781004969919157`*^9, {
1978   3.578100649784704*^9, 3.5781006582507563`*^9}, 3.5781010640586987`*^9,
1979   3.578101111331161*^9, 3.5793596917372513`*^9, 3.579882886900486*^9,
1980   3.579883025786955*^9, 3.5799558989419003`*^9, 3.579955935260817*^9,
1981   3.6142270029337683`*^9, 3.6204849723375387`*^9}],
1982
1983Cell[BoxData[
1984 RowBox[{"-",
1985  RowBox[{
1986   FractionBox["1",
1987    RowBox[{"32", " ", "\[Pi]", " ",
1988     SuperscriptBox[
1989      RowBox[{"Abs", "[", "Muv", "]"}], "3"]}]],
1990   RowBox[{
1991    RowBox[{"(",
1992     RowBox[{
1993      SuperscriptBox["MPe2", "2"], "-",
1994      SuperscriptBox["MT", "2"], "-",
1995      SuperscriptBox["Muv", "2"]}], ")"}], " ",
1996    SqrtBox[
1997     RowBox[{
1998      SuperscriptBox["MPe2", "4"], "-",
1999      RowBox[{"2", " ",
2000       SuperscriptBox["MPe2", "2"], " ",
2001       SuperscriptBox["MT", "2"]}], "+",
2002      SuperscriptBox["MT", "4"], "-",
2003      RowBox[{"2", " ",
2004       SuperscriptBox["MPe2", "2"], " ",
2005       SuperscriptBox["Muv", "2"]}], "-",
2006      RowBox[{"2", " ",
2007       SuperscriptBox["MT", "2"], " ",
2008       SuperscriptBox["Muv", "2"]}], "+",
2009      SuperscriptBox["Muv", "4"]}]], " ",
2010    SuperscriptBox[
2011     RowBox[{"(",
2012      RowBox[{
2013       RowBox[{"lam1", " ",
2014        RowBox[{"Cos", "[", "th", "]"}]}], "+",
2015       RowBox[{"lam2", " ",
2016        RowBox[{"Sin", "[", "th", "]"}]}]}], ")"}], "2"]}]}]}]], "Output",
2017 CellChangeTimes->{{3.578100267712432*^9, 3.578100306961565*^9}, {
2018   3.578100337491872*^9, 3.578100389938218*^9}, 3.5781004969919157`*^9, {
2019   3.578100649784704*^9, 3.5781006582507563`*^9}, 3.5781010640586987`*^9,
2020   3.578101111331161*^9, 3.5793596917372513`*^9, 3.579882886900486*^9,
2021   3.579883025786955*^9, 3.5799558989419003`*^9, 3.579955935260817*^9,
2022   3.6142270029337683`*^9, 3.620484972339891*^9}],
2023
2024Cell[BoxData[
2025 RowBox[{
2026  RowBox[{"(",
2027   RowBox[{
2028    SuperscriptBox[
2029     RowBox[{"(",
2030      RowBox[{"Mev", "-", "MPe2"}], ")"}], "2"], " ",
2031    SuperscriptBox[
2032     RowBox[{"(",
2033      RowBox[{"Mev", "+", "MPe2"}], ")"}], "2"], " ",
2034    SuperscriptBox[
2035     RowBox[{"(",
2036      RowBox[{
2037       RowBox[{"lam1p", " ",
2038        RowBox[{"Cos", "[", "th", "]"}]}], "+",
2039       RowBox[{"lam2p", " ",
2040        RowBox[{"Sin", "[", "th", "]"}]}]}], ")"}], "2"]}], ")"}], "/",
2041  RowBox[{"(",
2042   RowBox[{"16", " ", "\[Pi]", " ",
2043    SuperscriptBox[
2044     RowBox[{"Abs", "[", "MPe2", "]"}], "3"]}], ")"}]}]], "Output",
2045 CellChangeTimes->{{3.578100267712432*^9, 3.578100306961565*^9}, {
2046   3.578100337491872*^9, 3.578100389938218*^9}, 3.5781004969919157`*^9, {
2047   3.578100649784704*^9, 3.5781006582507563`*^9}, 3.5781010640586987`*^9,
2048   3.578101111331161*^9, 3.5793596917372513`*^9, 3.579882886900486*^9,
2049   3.579883025786955*^9, 3.5799558989419003`*^9, 3.579955935260817*^9,
2050   3.6142270029337683`*^9, 3.620484972341585*^9}],
2051
2052Cell[BoxData[
2053 RowBox[{
2054  FractionBox["1",
2055   RowBox[{"32", " ", "\[Pi]", " ",
2056    SuperscriptBox[
2057     RowBox[{"Abs", "[", "Mev", "]"}], "3"]}]],
2058  RowBox[{
2059   SuperscriptBox[
2060    RowBox[{"(",
2061     RowBox[{"Mev", "-", "MPe1"}], ")"}], "2"], " ",
2062   SuperscriptBox[
2063    RowBox[{"(",
2064     RowBox[{"Mev", "+", "MPe1"}], ")"}], "2"], " ",
2065   SuperscriptBox[
2066    RowBox[{"(",
2067     RowBox[{
2068      RowBox[{"lam2p", " ",
2069       RowBox[{"Cos", "[", "th", "]"}]}], "-",
2070      RowBox[{"lam1p", " ",
2071       RowBox[{"Sin", "[", "th", "]"}]}]}], ")"}], "2"]}]}]], "Output",
2072 CellChangeTimes->{{3.578100267712432*^9, 3.578100306961565*^9}, {
2073   3.578100337491872*^9, 3.578100389938218*^9}, 3.5781004969919157`*^9, {
2074   3.578100649784704*^9, 3.5781006582507563`*^9}, 3.5781010640586987`*^9,
2075   3.578101111331161*^9, 3.5793596917372513`*^9, 3.579882886900486*^9,
2076   3.579883025786955*^9, 3.5799558989419003`*^9, 3.579955935260817*^9,
2077   3.6142270029337683`*^9, 3.620484972342988*^9}]
2078}, Open  ]],
2079
2080Cell[CellGroupData[{
2081
2082Cell[BoxData[
2083 RowBox[{"%16", "//", "InputForm"}]], "Input",
2084 CellChangeTimes->{{3.6204849920353603`*^9, 3.620485001418481*^9}, {
2085  3.620485063146112*^9, 3.6204850666128397`*^9}}],
2086
2087Cell["\<\
2088((Mev - MPe1)^2*(Mev + MPe1)^2*
2089  (lam2p*Cos[th] - lam1p*Sin[th])^
2090   2)/(32*Pi*Abs[Mev]^3)\
2091\>", "Output",
2092 CellChangeTimes->{3.6204850027051353`*^9, 3.620485067195485*^9}]
2093}, Open  ]],
2094
2095Cell[CellGroupData[{
2096
2097Cell[BoxData[{
2098 RowBox[{"NumericalValue", "[", "x1", "]"}], "\[IndentingNewLine]",
2099 RowBox[{"NumericalValue", "[", "x2", "]"}], "\[IndentingNewLine]",
2100 RowBox[{"NumericalValue", "[", "x3", "]"}], "\[IndentingNewLine]",
2101 RowBox[{"NumericalValue", "[", "x4", "]"}]}], "Input",
2102 CellChangeTimes->{{3.5781006598477917`*^9, 3.5781006665443563`*^9}, {
2103  3.578101066979349*^9, 3.5781010707919703`*^9}, {3.578101188434381*^9,
2104  3.57810118966578*^9}}],
2105
2106Cell[BoxData["0.038425885456201785`"], "Output",
2107 CellChangeTimes->{3.57810066702802*^9, 3.578101071234214*^9,
2108  3.578101189891306*^9, 3.579359698611641*^9, 3.579882889407324*^9,
2109  3.5798830277150307`*^9, 3.579955939561494*^9, 3.614227006142589*^9}],
2110
2111Cell[BoxData["0.032211212617791904`"], "Output",
2112 CellChangeTimes->{3.57810066702802*^9, 3.578101071234214*^9,
2113  3.578101189891306*^9, 3.579359698611641*^9, 3.579882889407324*^9,
2114  3.5798830277150307`*^9, 3.579955939561494*^9, 3.614227006144225*^9}],
2115
2116Cell[BoxData["0.01119114152936453`"], "Output",
2117 CellChangeTimes->{3.57810066702802*^9, 3.578101071234214*^9,
2118  3.578101189891306*^9, 3.579359698611641*^9, 3.579882889407324*^9,
2119  3.5798830277150307`*^9, 3.579955939561494*^9, 3.614227006145389*^9}],
2120
2121Cell[BoxData["0.004969365413133469`"], "Output",
2122 CellChangeTimes->{3.57810066702802*^9, 3.578101071234214*^9,
2123  3.578101189891306*^9, 3.579359698611641*^9, 3.579882889407324*^9,
2124  3.5798830277150307`*^9, 3.579955939561494*^9, 3.6142270061464643`*^9}]
2125}, Open  ]]
2126}, Closed]],
2127
2128Cell[CellGroupData[{
2129
2130Cell["UFO", "Section",
2131 CellChangeTimes->{{3.539319024076879*^9, 3.53931903003391*^9}, {
2132  3.578100803596233*^9, 3.578100804390173*^9}, {3.579359706634882*^9,
2133  3.579359708801149*^9}}],
2134
2135Cell[CellGroupData[{
2136
2137Cell[BoxData[{
2138 RowBox[{"SetDirectory", "[", "\"\<~/mg5amcnlo/models\>\"",
2139  "]"}], "\[IndentingNewLine]",
2140 RowBox[{"WriteUFO", "[",
2141  RowBox[{"LSM", "+", "LNew"}], "]"}]}], "Input",
2142 CellChangeTimes->{{3.539319031354458*^9, 3.53931903608384*^9}, {
2143   3.579359719778757*^9, 3.579359744234468*^9}, {3.579361601368628*^9,
2144   3.579361603527499*^9}, {3.579883038689376*^9, 3.579883070017232*^9}, {
2145   3.5798833617114*^9, 3.5798833680620728`*^9}, {3.579956090474226*^9,
2146   3.5799561181857033`*^9}, {3.614227032838636*^9, 3.614227052300777*^9},
2147   3.614227254605687*^9}],
2148
2149Cell[BoxData["\<\"/Users/degrande/mg5amcnlo/models\"\>"], "Output",
2150 CellChangeTimes->{3.6142270562894497`*^9, 3.614227255614313*^9}],
2151
2152Cell[CellGroupData[{
2153
2154Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
2155"Print",
2156 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2157  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2158  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2159  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2160  3.614227257151779*^9}],
2161
2162Cell[BoxData[
2163 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2164  StripOnInput->False,
2165  LineColor->RGBColor[1, 0.5, 0],
2166  FrontFaceColor->RGBColor[1, 0.5, 0],
2167  BackFaceColor->RGBColor[1, 0.5, 0],
2168  GraphicsColor->RGBColor[1, 0.5, 0],
2169  FontWeight->Bold,
2170  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2171 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2172  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2173  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2174  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2175  3.614227257427157*^9}],
2176
2177Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2178 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2179  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2180  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2181  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2182  3.614227257428244*^9}],
2183
2184Cell[BoxData[
2185 InterpretationBox[
2186  RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "4",
2187   "\[InvisibleSpace]", "\<\" cores\"\>"}],
2188  SequenceForm["Expanding indices over ", 4, " cores"],
2189  Editable->False]], "Print",
2190 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2191  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2192  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2193  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2194  3.6142272574288683`*^9}],
2195
2196Cell[BoxData["\<\"Collecting the different structures that enter the \
2197vertex.\"\>"], "Print",
2198 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2199  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2200  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2201  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2202  3.61422725998386*^9}],
2203
2204Cell[BoxData[
2205 InterpretationBox[
2206  RowBox[{
2207  "111", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
2208found -> starting the computation: \"\>", "\[InvisibleSpace]",
2209   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
2210    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2211   "\[InvisibleSpace]", "111", "\[InvisibleSpace]", "\<\".\"\>"}],
2212  SequenceForm[
2213  111, " possible non-zero vertices have been found -> starting the \
2214computation: ",
2215   Dynamic[FeynRules`FR$FeynmanRules], " / ", 111, "."],
2216  Editable->False]], "Print",
2217 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2218  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2219  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2220  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2221  3.614227260040966*^9}],
2222
2223Cell[BoxData[
2224 InterpretationBox[
2225  RowBox[{"106", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
2226  SequenceForm[106, " vertices obtained."],
2227  Editable->False]], "Print",
2228 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2229  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2230  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2231  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2232  3.614227262633197*^9}],
2233
2234Cell[BoxData[
2235 InterpretationBox[
2236  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
2237   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
2238   "\[InvisibleSpace]",
2239   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
2240    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2241   "\[InvisibleSpace]", "106"}],
2242  SequenceForm[
2243  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
2244   Dynamic[FeynRules`FR$Count1], " / ", 106],
2245  Editable->False]], "Print",
2246 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2247  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2248  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2249  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2250  3.614227264645507*^9}],
2251
2252Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
2253 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2254  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2255  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2256  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2257  3.614227267424863*^9}]
2258}, Open  ]],
2259
2260Cell[BoxData[
2261 RowBox[{
2262  StyleBox[
2263   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
2264  RowBox[{
2265  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
2266\"\>"}]], "Message", "MSG",
2267 CellChangeTimes->{3.579359768176352*^9, 3.579361130076136*^9,
2268  3.5793613334515333`*^9, 3.579883044648332*^9, 3.579956113866609*^9,
2269  3.614227056284987*^9, 3.6142272675257683`*^9}],
2270
2271Cell[BoxData[
2272 InterpretationBox[
2273  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
2274   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2275   "\[InvisibleSpace]",
2276   RowBox[{"{",
2277    RowBox[{"p2", ",",
2278     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}],
2279   "\[InvisibleSpace]", "\<\".\"\>"}],
2280  SequenceForm[
2281  "Quantum number ", $CellContext`LeptonNumber,
2282   " not conserved in vertex ", {$CellContext`p2, $CellContext`ebar, \
2283$CellContext`ev}, "."],
2284  Editable->False]], "Print",
2285 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2286  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2287  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2288  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2289  3.614227267527328*^9}],
2290
2291Cell[BoxData[
2292 RowBox[{
2293  StyleBox[
2294   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
2295  RowBox[{
2296  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
2297\"\>"}]], "Message", "MSG",
2298 CellChangeTimes->{3.579359768176352*^9, 3.579361130076136*^9,
2299  3.5793613334515333`*^9, 3.579883044648332*^9, 3.579956113866609*^9,
2300  3.614227056284987*^9, 3.614227267622766*^9}],
2301
2302Cell[BoxData[
2303 InterpretationBox[
2304  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
2305   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2306   "\[InvisibleSpace]",
2307   RowBox[{"{",
2308    RowBox[{"p2", ",",
2309     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}],
2310   "\[InvisibleSpace]", "\<\".\"\>"}],
2311  SequenceForm[
2312  "Quantum number ", FeynRules`Y,
2313   " not conserved in vertex ", {$CellContext`p2, $CellContext`ebar, \
2314$CellContext`ev}, "."],
2315  Editable->False]], "Print",
2316 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2317  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2318  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2319  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2320  3.6142272676246223`*^9}],
2321
2322Cell[BoxData[
2323 RowBox[{
2324  StyleBox[
2325   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
2326  RowBox[{
2327  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
2328\"\>"}]], "Message", "MSG",
2329 CellChangeTimes->{3.579359768176352*^9, 3.579361130076136*^9,
2330  3.5793613334515333`*^9, 3.579883044648332*^9, 3.579956113866609*^9,
2331  3.614227056284987*^9, 3.614227267721179*^9}],
2332
2333Cell[BoxData[
2334 RowBox[{
2335  StyleBox[
2336   RowBox[{"General", "::", "stop"}], "MessageName"],
2337  RowBox[{
2338  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
2339NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
2340this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
2341ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
2342ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
2343\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
2344 CellChangeTimes->{3.579359768176352*^9, 3.579361130076136*^9,
2345  3.5793613334515333`*^9, 3.579883044648332*^9, 3.579956113866609*^9,
2346  3.614227056284987*^9, 3.614227267736979*^9}],
2347
2348Cell[CellGroupData[{
2349
2350Cell[BoxData[
2351 InterpretationBox[
2352  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
2353   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2354   "\[InvisibleSpace]",
2355   RowBox[{"{",
2356    RowBox[{"p1", ",",
2357     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}],
2358   "\[InvisibleSpace]", "\<\".\"\>"}],
2359  SequenceForm[
2360  "Quantum number ", $CellContext`LeptonNumber,
2361   " not conserved in vertex ", {$CellContext`p1, $CellContext`ebar, \
2362$CellContext`ev}, "."],
2363  Editable->False]], "Print",
2364 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2365  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2366  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2367  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2368  3.614227267738039*^9}],
2369
2370Cell[BoxData[
2371 InterpretationBox[
2372  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
2373   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2374   "\[InvisibleSpace]",
2375   RowBox[{"{",
2376    RowBox[{"p1", ",",
2377     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}],
2378   "\[InvisibleSpace]", "\<\".\"\>"}],
2379  SequenceForm[
2380  "Quantum number ", FeynRules`Y,
2381   " not conserved in vertex ", {$CellContext`p1, $CellContext`ebar, \
2382$CellContext`ev}, "."],
2383  Editable->False]], "Print",
2384 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2385  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2386  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2387  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2388  3.614227267738751*^9}],
2389
2390Cell[BoxData[
2391 InterpretationBox[
2392  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
2393   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2394   "\[InvisibleSpace]",
2395   RowBox[{"{",
2396    RowBox[{"p2", ",",
2397     OverscriptBox["t", "\<\"-\"\>"], ",", "uv"}], "}"}],
2398   "\[InvisibleSpace]", "\<\".\"\>"}],
2399  SequenceForm[
2400  "Quantum number ", FeynRules`Y,
2401   " not conserved in vertex ", {$CellContext`p2, $CellContext`tbar, \
2402$CellContext`uv}, "."],
2403  Editable->False]], "Print",
2404 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2405  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2406  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2407  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2408  3.614227267740045*^9}],
2409
2410Cell[BoxData[
2411 InterpretationBox[
2412  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
2413   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2414   "\[InvisibleSpace]",
2415   RowBox[{"{",
2416    RowBox[{"p1", ",",
2417     OverscriptBox["t", "\<\"-\"\>"], ",", "uv"}], "}"}],
2418   "\[InvisibleSpace]", "\<\".\"\>"}],
2419  SequenceForm[
2420  "Quantum number ", FeynRules`Y,
2421   " not conserved in vertex ", {$CellContext`p1, $CellContext`tbar, \
2422$CellContext`uv}, "."],
2423  Editable->False]], "Print",
2424 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2425  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2426  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2427  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2428  3.614227267740699*^9}],
2429
2430Cell[BoxData[
2431 InterpretationBox[
2432  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
2433   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2434   "\[InvisibleSpace]",
2435   RowBox[{"{",
2436    RowBox[{"p1", ",",
2437     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}],
2438   "\[InvisibleSpace]", "\<\".\"\>"}],
2439  SequenceForm[
2440  "Quantum number ", $CellContext`LeptonNumber,
2441   " not conserved in vertex ", {$CellContext`p1, $CellContext`evbar,
2442    FeynRules`e}, "."],
2443  Editable->False]], "Print",
2444 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2445  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2446  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2447  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2448  3.614227267741377*^9}],
2449
2450Cell[BoxData[
2451 InterpretationBox[
2452  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
2453   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2454   "\[InvisibleSpace]",
2455   RowBox[{"{",
2456    RowBox[{"p1", ",",
2457     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}],
2458   "\[InvisibleSpace]", "\<\".\"\>"}],
2459  SequenceForm[
2460  "Quantum number ", FeynRules`Y,
2461   " not conserved in vertex ", {$CellContext`p1, $CellContext`evbar,
2462    FeynRules`e}, "."],
2463  Editable->False]], "Print",
2464 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2465  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2466  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2467  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2468  3.614227267742029*^9}],
2469
2470Cell[BoxData[
2471 InterpretationBox[
2472  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
2473   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2474   "\[InvisibleSpace]",
2475   RowBox[{"{",
2476    RowBox[{"p2", ",",
2477     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}],
2478   "\[InvisibleSpace]", "\<\".\"\>"}],
2479  SequenceForm[
2480  "Quantum number ", $CellContext`LeptonNumber,
2481   " not conserved in vertex ", {$CellContext`p2, $CellContext`evbar,
2482    FeynRules`e}, "."],
2483  Editable->False]], "Print",
2484 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2485  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2486  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2487  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2488  3.614227267742681*^9}],
2489
2490Cell[BoxData[
2491 InterpretationBox[
2492  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
2493   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2494   "\[InvisibleSpace]",
2495   RowBox[{"{",
2496    RowBox[{"p2", ",",
2497     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}],
2498   "\[InvisibleSpace]", "\<\".\"\>"}],
2499  SequenceForm[
2500  "Quantum number ", FeynRules`Y,
2501   " not conserved in vertex ", {$CellContext`p2, $CellContext`evbar,
2502    FeynRules`e}, "."],
2503  Editable->False]], "Print",
2504 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2505  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2506  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2507  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2508  3.61422726774333*^9}],
2509
2510Cell[BoxData[
2511 InterpretationBox[
2512  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
2513   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2514   "\[InvisibleSpace]",
2515   RowBox[{"{",
2516    RowBox[{"p1", ",",
2517     OverscriptBox["uv", "\<\"-\"\>"], ",", "t"}], "}"}],
2518   "\[InvisibleSpace]", "\<\".\"\>"}],
2519  SequenceForm[
2520  "Quantum number ", FeynRules`Y,
2521   " not conserved in vertex ", {$CellContext`p1, $CellContext`uvbar,
2522    FeynRules`t}, "."],
2523  Editable->False]], "Print",
2524 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2525  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2526  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2527  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2528  3.614227267744012*^9}],
2529
2530Cell[BoxData[
2531 InterpretationBox[
2532  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
2533   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
2534   "\[InvisibleSpace]",
2535   RowBox[{"{",
2536    RowBox[{"p2", ",",
2537     OverscriptBox["uv", "\<\"-\"\>"], ",", "t"}], "}"}],
2538   "\[InvisibleSpace]", "\<\".\"\>"}],
2539  SequenceForm[
2540  "Quantum number ", FeynRules`Y,
2541   " not conserved in vertex ", {$CellContext`p2, $CellContext`uvbar,
2542    FeynRules`t}, "."],
2543  Editable->False]], "Print",
2544 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2545  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2546  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2547  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2548  3.6142272677446747`*^9}],
2549
2550Cell[BoxData[
2551 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
2552decays: \"\>",
2553  StripOnInput->False,
2554  LineColor->RGBColor[1, 0.5, 0],
2555  FrontFaceColor->RGBColor[1, 0.5, 0],
2556  BackFaceColor->RGBColor[1, 0.5, 0],
2557  GraphicsColor->RGBColor[1, 0.5, 0],
2558  FontWeight->Bold,
2559  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2560 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2561  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2562  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2563  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2564  3.614227267770104*^9}],
2565
2566Cell[BoxData[
2567 InterpretationBox[
2568  RowBox[{
2569   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2570    ImageSizeCache->{184., {4., 13.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2571   "\[InvisibleSpace]", "50"}],
2572  SequenceForm[
2573   Dynamic[PRIVATE`mycounter], " / ", 50],
2574  Editable->False]], "Print",
2575 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2576  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2577  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2578  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2579  3.614227267787595*^9}],
2580
2581Cell[BoxData[
2582 InterpretationBox[
2583  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
2584   "0.80327700000000001878674993349704891443`5.925465245391684",
2585   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
2586  SequenceForm[
2587  "Squared matrix elent compute in ",
2588   0.80327700000000001878674993349704891443`5.925465245391684, " seconds."],
2589  Editable->False]], "Print",
2590 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2591  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2592  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2593  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2594  3.614227268923963*^9}],
2595
2596Cell[BoxData[
2597 InterpretationBox[
2598  RowBox[{
2599   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2600    ImageSizeCache->{184., {4., 13.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2601   "\[InvisibleSpace]", "43"}],
2602  SequenceForm[
2603   Dynamic[PRIVATE`mycounter], " / ", 43],
2604  Editable->False]], "Print",
2605 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2606  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2607  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2608  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2609  3.614227268949773*^9}],
2610
2611Cell[BoxData[
2612 InterpretationBox[
2613  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
2614   "0.12919300000000000228084218178992159665`5.131838896414457",
2615   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
2616  SequenceForm[
2617  "Decay widths computed in ",
2618   0.12919300000000000228084218178992159665`5.131838896414457, " seconds."],
2619  Editable->False]], "Print",
2620 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2621  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2622  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2623  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2624  3.614227269102338*^9}],
2625
2626Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
2627 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2628  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2629  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2630  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2631  3.614227269103894*^9}],
2632
2633Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
2634"Print",
2635 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2636  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2637  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2638  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2639  3.614227269200268*^9}],
2640
2641Cell[BoxData[
2642 InterpretationBox[
2643  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
2644   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
2645  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
2646  Editable->False]], "Print",
2647 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2648  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2649  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2650  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2651  3.614227269214905*^9}],
2652
2653Cell[BoxData[
2654 InterpretationBox[
2655  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
2656   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
2657    ImageSizeCache->{313., {4., 13.}}], "\[InvisibleSpace]", "\<\"/\"\>",
2658   "\[InvisibleSpace]", "132", "\[InvisibleSpace]", "\<\" .\"\>"}],
2659  SequenceForm["    - Optimizing: ",
2660   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 132, " ."],
2661  Editable->False]], "Print",
2662 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2663  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2664  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2665  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2666  3.614227269422758*^9}],
2667
2668Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
2669 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2670  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2671  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2672  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2673  3.614227269517147*^9}],
2674
2675Cell[BoxData["\<\"Done!\"\>"], "Print",
2676 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9,
2677  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9,
2678  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9,
2679  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9,
2680  3.614227269656445*^9}]
2681}, Open  ]]
2682}, Open  ]]
2683}, Closed]],
2684
2685Cell[CellGroupData[{
2686
2687Cell["NLO", "Subtitle",
2688 CellChangeTimes->{{3.620532141194763*^9, 3.620532141504681*^9}}],
2689
2690Cell[CellGroupData[{
2691
2692Cell["\<\
2693Renormalization and output to FeynArts\
2694\>", "Section",
2695 CellChangeTimes->{{3.620533137124589*^9, 3.620533153042384*^9}}],
2696
2697Cell[CellGroupData[{
2698
2699Cell[BoxData[
2700 RowBox[{
2701  RowBox[{
2702   RowBox[{"Lren", " ", "=", " ",
2703    RowBox[{"OnShellRenormalization", "[",
2704     RowBox[{
2705      RowBox[{"LSM", "+", "LNew"}], ",",
2706      RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
2707      RowBox[{"FlavorMixing", "\[Rule]", "False"}]}], "]"}]}], ";"}], "//",
2708  "Timing"}]], "Input",
2709 CellChangeTimes->{{3.620532155504299*^9, 3.62053219019786*^9}, {
2710  3.620532347890162*^9, 3.620532355025401*^9}, {3.620532689767404*^9,
2711  3.62053270843248*^9}}],
2712
2713Cell[CellGroupData[{
2714
2715Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
2716them\"\>"], "Print",
2717 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9,
2718  3.620532412956456*^9, 3.620532716105023*^9}],
2719
2720Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
2721 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9,
2722  3.620532412956456*^9, 3.620532725131181*^9}],
2723
2724Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
2725 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9,
2726  3.620532412956456*^9, 3.620532725230619*^9}],
2727
2728Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
2729 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9,
2730  3.620532412956456*^9, 3.620532725264434*^9}],
2731
2732Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
2733 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9,
2734  3.620532412956456*^9, 3.620532725266629*^9}],
2735
2736Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
2737 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9,
2738  3.620532412956456*^9, 3.620532725269038*^9}],
2739
2740Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
2741 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9,
2742  3.620532412956456*^9, 3.620532725271412*^9}],
2743
2744Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
2745 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9,
2746  3.620532412956456*^9, 3.620532954156363*^9}],
2747
2748Cell[BoxData["\<\"with the parameters\"\>"], "Print",
2749 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9,
2750  3.620532412956456*^9, 3.620532954177005*^9}],
2751
2752Cell[BoxData["\<\"with the fields\"\>"], "Print",
2753 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9,
2754  3.620532412956456*^9, 3.6205329552884617`*^9}]
2755}, Closed]],
2756
2757Cell[BoxData[
2758 RowBox[{"{",
2759  RowBox[{
2760  "246.99903100000000222280505113303661346436`8.413295162765289", ",",
2761   "Null"}], "}"}]], "Output",
2762 CellChangeTimes->{3.6205324050946503`*^9, 3.620532657381234*^9,
2763  3.620532958205011*^9}]
2764}, Open  ]],
2765
2766Cell[CellGroupData[{
2767
2768Cell[BoxData[
2769 RowBox[{"Union", "[",
2770  RowBox[{"Cases", "[",
2771   RowBox[{"Lren", ",", "_FR$delta", ",", "\[Infinity]"}], "]"}],
2772  "]"}]], "Input",
2773 CellChangeTimes->{{3.620532500632022*^9, 3.620532515368764*^9}, {
2774  3.620532608401843*^9, 3.620532623761948*^9}}],
2775
2776Cell[BoxData[
2777 RowBox[{"{",
2778  RowBox[{
2779   SubscriptBox["\<\"\[Delta]\"\>",
2780    SubscriptBox["\[Alpha]", "s"]], ",",
2781   SubscriptBox["\<\"\[Delta]\"\>", "MB"], ",",
2782   SubscriptBox["\<\"\[Delta]\"\>", "MT"], ",",
2783   SubscriptBox["\<\"\[Delta]\"\>", "Muv"]}], "}"}]], "Output",
2784 CellChangeTimes->{3.620532660725692*^9, 3.620532958308196*^9}]
2785}, Open  ]],
2786
2787Cell[CellGroupData[{
2788
2789Cell[BoxData[
2790 RowBox[{"Union", "[",
2791  RowBox[{"Cases", "[",
2792   RowBox[{"Lren", ",", "_FR$deltaZ", ",", "\[Infinity]"}], "]"}],
2793  "]"}]], "Input",
2794 CellChangeTimes->{3.620532671015769*^9}],
2795
2796Cell[BoxData[
2797 RowBox[{"{",
2798  RowBox[{
2799   SubscriptBox[
2800    SubscriptBox["\<\"\[Delta]Z\"\>",
2801     RowBox[{"{",
2802      RowBox[{"G", ",", "G"}], "}"}]],
2803    RowBox[{"{", "}"}]], ",",
2804   SubscriptBox[
2805    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2806        RowBox[{"b", ",", "b"}], "}"}],"\"L\""},
2807     "Subsuperscript"],
2808    RowBox[{"{", "}"}]], ",",
2809   SubscriptBox[
2810    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2811        RowBox[{"b", ",", "b"}], "}"}],"\"R\""},
2812     "Subsuperscript"],
2813    RowBox[{"{", "}"}]], ",",
2814   SubscriptBox[
2815    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2816        RowBox[{"c", ",", "c"}], "}"}],"\"L\""},
2817     "Subsuperscript"],
2818    RowBox[{"{", "}"}]], ",",
2819   SubscriptBox[
2820    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2821        RowBox[{"c", ",", "c"}], "}"}],"\"R\""},
2822     "Subsuperscript"],
2823    RowBox[{"{", "}"}]], ",",
2824   SubscriptBox[
2825    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2826        RowBox[{"d", ",", "d"}], "}"}],"\"L\""},
2827     "Subsuperscript"],
2828    RowBox[{"{", "}"}]], ",",
2829   SubscriptBox[
2830    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2831        RowBox[{"d", ",", "d"}], "}"}],"\"R\""},
2832     "Subsuperscript"],
2833    RowBox[{"{", "}"}]], ",",
2834   SubscriptBox[
2835    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2836        RowBox[{"s", ",", "s"}], "}"}],"\"L\""},
2837     "Subsuperscript"],
2838    RowBox[{"{", "}"}]], ",",
2839   SubscriptBox[
2840    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2841        RowBox[{"s", ",", "s"}], "}"}],"\"R\""},
2842     "Subsuperscript"],
2843    RowBox[{"{", "}"}]], ",",
2844   SubscriptBox[
2845    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2846        RowBox[{"t", ",", "t"}], "}"}],"\"L\""},
2847     "Subsuperscript"],
2848    RowBox[{"{", "}"}]], ",",
2849   SubscriptBox[
2850    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2851        RowBox[{"t", ",", "t"}], "}"}],"\"R\""},
2852     "Subsuperscript"],
2853    RowBox[{"{", "}"}]], ",",
2854   SubscriptBox[
2855    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2856        RowBox[{"u", ",", "u"}], "}"}],"\"L\""},
2857     "Subsuperscript"],
2858    RowBox[{"{", "}"}]], ",",
2859   SubscriptBox[
2860    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2861        RowBox[{"u", ",", "u"}], "}"}],"\"R\""},
2862     "Subsuperscript"],
2863    RowBox[{"{", "}"}]], ",",
2864   SubscriptBox[
2865    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2866        RowBox[{"uv", ",", "uv"}], "}"}],"\"L\""},
2867     "Subsuperscript"],
2868    RowBox[{"{", "}"}]], ",",
2869   SubscriptBox[
2870    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{",
2871        RowBox[{"uv", ",", "uv"}], "}"}],"\"R\""},
2872     "Subsuperscript"],
2873    RowBox[{"{", "}"}]]}], "}"}]], "Output",
2874 CellChangeTimes->{3.620532671938519*^9, 3.620532958341405*^9}]
2875}, Open  ]],
2876
2877Cell[CellGroupData[{
2878
2879Cell[BoxData[{
2880 RowBox[{
2881  RowBox[{"SetDirectory", "[", "\"\<~/FeynArts-3.8/Models\>\"", "]"}],
2882  ";"}], "\[IndentingNewLine]",
2883 RowBox[{
2884  RowBox[{
2885   RowBox[{"WriteFeynArtsOutput", "[",
2886    RowBox[{"Lren", ",",
2887     RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
2888     RowBox[{"Output", "\[Rule]", "\"\<Tutorial\>\""}]}], "]"}], ";"}], "//",
2889  "Timing"}]}], "Input",
2890 CellChangeTimes->{{3.6205321978361588`*^9, 3.620532207114043*^9}, {
2891  3.6205323269143953`*^9, 3.620532388011119*^9}, {3.620532455009796*^9,
2892  3.620532483632366*^9}, {3.620532739537777*^9, 3.6205327488884153`*^9}}],
2893
2894Cell[CellGroupData[{
2895
2896Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
2897 CellChangeTimes->{3.6205330591520033`*^9}],
2898
2899Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
2900 CellChangeTimes->{3.620533059152956*^9}],
2901
2902Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
2903 CellChangeTimes->{3.62053305915477*^9}],
2904
2905Cell[BoxData[
2906 InterpretationBox[
2907  RowBox[{"\<\"Creating output directory: \"\>",
2908   "\[InvisibleSpace]", "\<\"Tutorial\"\>"}],
2909  SequenceForm["Creating output directory: ", "Tutorial"],
2910  Editable->False]], "Print",
2911 CellChangeTimes->{3.6205330591558237`*^9}],
2912
2913Cell[BoxData[
2914 InterpretationBox[
2915  RowBox[{"\<\"Calculating Feynman rules for \"\>",
2916   "\[InvisibleSpace]", "\<\"L1\"\>"}],
2917  SequenceForm["Calculating Feynman rules for ", "L1"],
2918  Editable->False]], "Print",
2919 CellChangeTimes->{3.6205330591569233`*^9}],
2920
2921Cell[BoxData[
2922 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
2923  StripOnInput->False,
2924  LineColor->RGBColor[1, 0.5, 0],
2925  FrontFaceColor->RGBColor[1, 0.5, 0],
2926  BackFaceColor->RGBColor[1, 0.5, 0],
2927  GraphicsColor->RGBColor[1, 0.5, 0],
2928  FontWeight->Bold,
2929  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2930 CellChangeTimes->{3.620533062200246*^9}],
2931
2932Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2933 CellChangeTimes->{3.620533062242281*^9}],
2934
2935Cell[BoxData[
2936 InterpretationBox[
2937  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
2938   "\[InvisibleSpace]", "\<\" cores\"\>"}],
2939  SequenceForm["Expanding the indices over ", 4, " cores"],
2940  Editable->False]], "Print",
2941 CellChangeTimes->{3.620533062243113*^9}],
2942
2943Cell[BoxData["\<\"Collecting the different structures that enter the \
2944vertex.\"\>"], "Print",
2945 CellChangeTimes->{3.6205330759580393`*^9}],
2946
2947Cell[BoxData[
2948 StyleBox["\<\"Warning: Class members in the Lagrangian! Not supported by \
2949FeynArts.\"\>",
2950  StripOnInput->False,
2951  LineColor->RGBColor[1, 0.5, 0],
2952  FrontFaceColor->RGBColor[1, 0.5, 0],
2953  BackFaceColor->RGBColor[1, 0.5, 0],
2954  GraphicsColor->RGBColor[1, 0.5, 0],
2955  FontWeight->Bold,
2956  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2957 CellChangeTimes->{3.620533076089198*^9}],
2958
2959Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
2960 CellChangeTimes->{3.62053307611152*^9}],
2961
2962Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
2963separate FeynArts class.\"\>"], "Print",
2964 CellChangeTimes->{3.620533076112297*^9}],
2965
2966Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
2967classes\"\>"], "Print",
2968 CellChangeTimes->{3.6205330761129513`*^9}],
2969
2970Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
2971-> True.\"\>"], "Print",
2972 CellChangeTimes->{3.6205330761135883`*^9}],
2973
2974Cell[BoxData[
2975 InterpretationBox[
2976  RowBox[{"\<\"Calculating Feynman rules for \"\>",
2977   "\[InvisibleSpace]", "\<\"L1\"\>"}],
2978  SequenceForm["Calculating Feynman rules for ", "L1"],
2979  Editable->False]], "Print",
2980 CellChangeTimes->{3.620533076114242*^9}],
2981
2982Cell[BoxData[
2983 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
2984  StripOnInput->False,
2985  LineColor->RGBColor[1, 0.5, 0],
2986  FrontFaceColor->RGBColor[1, 0.5, 0],
2987  BackFaceColor->RGBColor[1, 0.5, 0],
2988  GraphicsColor->RGBColor[1, 0.5, 0],
2989  FontWeight->Bold,
2990  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2991 CellChangeTimes->{3.620533079219558*^9}],
2992
2993Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2994 CellChangeTimes->{3.620533079220386*^9}],
2995
2996Cell[BoxData[
2997 InterpretationBox[
2998  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
2999   "\[InvisibleSpace]", "\<\" cores\"\>"}],
3000  SequenceForm["Expanding the indices over ", 4, " cores"],
3001  Editable->False]], "Print",
3002 CellChangeTimes->{3.620533079221037*^9}],
3003
3004Cell[BoxData["\<\"Collecting the different structures that enter the \
3005vertex.\"\>"], "Print",
3006 CellChangeTimes->{3.6205330932557783`*^9}],
3007
3008Cell[BoxData[
3009 InterpretationBox[
3010  RowBox[{
3011  "182", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
3012found -> starting the computation: \"\>", "\[InvisibleSpace]",
3013   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
3014    ImageSizeCache->{32., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3015   "\[InvisibleSpace]", "182", "\[InvisibleSpace]", "\<\".\"\>"}],
3016  SequenceForm[
3017  182, " possible non-zero vertices have been found -> starting the \
3018computation: ",
3019   Dynamic[FeynRules`FR$FeynmanRules], " / ", 182, "."],
3020  Editable->False]], "Print",
3021 CellChangeTimes->{3.62053309340466*^9}]
3022}, Closed]],
3023
3024Cell[BoxData[
3025 RowBox[{
3026  StyleBox[
3027   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
3028  RowBox[{
3029  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
3030\"\>"}]], "Message", "MSG",
3031 CellChangeTimes->{3.620533104211378*^9}],
3032
3033Cell[BoxData[
3034 InterpretationBox[
3035  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
3036   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3037   "\[InvisibleSpace]",
3038   RowBox[{"{",
3039    RowBox[{
3040     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p2"}], "}"}],
3041   "\[InvisibleSpace]", "\<\".\"\>"}],
3042  SequenceForm[
3043  "Quantum number ", $CellContext`LeptonNumber,
3044   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
3045$CellContext`p2}, "."],
3046  Editable->False]], "Print",
3047 CellChangeTimes->{3.620533104213307*^9}],
3048
3049Cell[BoxData[
3050 RowBox[{
3051  StyleBox[
3052   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
3053  RowBox[{
3054  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
3055\"\>"}]], "Message", "MSG",
3056 CellChangeTimes->{3.620533104309107*^9}],
3057
3058Cell[BoxData[
3059 InterpretationBox[
3060  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
3061   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3062   "\[InvisibleSpace]",
3063   RowBox[{"{",
3064    RowBox[{
3065     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p2"}], "}"}],
3066   "\[InvisibleSpace]", "\<\".\"\>"}],
3067  SequenceForm[
3068  "Quantum number ", FeynRules`Y,
3069   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
3070$CellContext`p2}, "."],
3071  Editable->False]], "Print",
3072 CellChangeTimes->{3.620533104310087*^9}],
3073
3074Cell[BoxData[
3075 RowBox[{
3076  StyleBox[
3077   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
3078  RowBox[{
3079  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
3080\"\>"}]], "Message", "MSG",
3081 CellChangeTimes->{3.620533104405764*^9}],
3082
3083Cell[BoxData[
3084 RowBox[{
3085  StyleBox[
3086   RowBox[{"General", "::", "stop"}], "MessageName"],
3087  RowBox[{
3088  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
3089NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
3090this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
3091ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
3092ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
3093\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
3094 CellChangeTimes->{3.620533104426856*^9}],
3095
3096Cell[CellGroupData[{
3097
3098Cell[BoxData[
3099 InterpretationBox[
3100  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
3101   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3102   "\[InvisibleSpace]",
3103   RowBox[{"{",
3104    RowBox[{
3105     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p1"}], "}"}],
3106   "\[InvisibleSpace]", "\<\".\"\>"}],
3107  SequenceForm[
3108  "Quantum number ", $CellContext`LeptonNumber,
3109   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
3110$CellContext`p1}, "."],
3111  Editable->False]], "Print",
3112 CellChangeTimes->{3.620533104428293*^9}],
3113
3114Cell[BoxData[
3115 InterpretationBox[
3116  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
3117   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3118   "\[InvisibleSpace]",
3119   RowBox[{"{",
3120    RowBox[{
3121     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p1"}], "}"}],
3122   "\[InvisibleSpace]", "\<\".\"\>"}],
3123  SequenceForm[
3124  "Quantum number ", FeynRules`Y,
3125   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
3126$CellContext`p1}, "."],
3127  Editable->False]], "Print",
3128 CellChangeTimes->{3.620533104429101*^9}],
3129
3130Cell[BoxData[
3131 InterpretationBox[
3132  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
3133   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3134   "\[InvisibleSpace]",
3135   RowBox[{"{",
3136    RowBox[{
3137     OverscriptBox["t", "\<\"-\"\>"], ",", "uv", ",", "p2"}], "}"}],
3138   "\[InvisibleSpace]", "\<\".\"\>"}],
3139  SequenceForm[
3140  "Quantum number ", FeynRules`Y,
3141   " not conserved in vertex ", {$CellContext`tbar, $CellContext`uv, \
3142$CellContext`p2}, "."],
3143  Editable->False]], "Print",
3144 CellChangeTimes->{3.6205331044307003`*^9}],
3145
3146Cell[BoxData[
3147 InterpretationBox[
3148  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
3149   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3150   "\[InvisibleSpace]",
3151   RowBox[{"{",
3152    RowBox[{
3153     OverscriptBox["t", "\<\"-\"\>"], ",", "uv", ",", "p1"}], "}"}],
3154   "\[InvisibleSpace]", "\<\".\"\>"}],
3155  SequenceForm[
3156  "Quantum number ", FeynRules`Y,
3157   " not conserved in vertex ", {$CellContext`tbar, $CellContext`uv, \
3158$CellContext`p1}, "."],
3159  Editable->False]], "Print",
3160 CellChangeTimes->{3.620533104431435*^9}],
3161
3162Cell[BoxData[
3163 InterpretationBox[
3164  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
3165   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3166   "\[InvisibleSpace]",
3167   RowBox[{"{",
3168    RowBox[{
3169     OverscriptBox["uv", "\<\"-\"\>"], ",", "t", ",", "p1"}], "}"}],
3170   "\[InvisibleSpace]", "\<\".\"\>"}],
3171  SequenceForm[
3172  "Quantum number ", FeynRules`Y,
3173   " not conserved in vertex ", {$CellContext`uvbar,
3174    FeynRules`t, $CellContext`p1}, "."],
3175  Editable->False]], "Print",
3176 CellChangeTimes->{3.620533104432201*^9}],
3177
3178Cell[BoxData[
3179 InterpretationBox[
3180  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
3181   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3182   "\[InvisibleSpace]",
3183   RowBox[{"{",
3184    RowBox[{
3185     OverscriptBox["uv", "\<\"-\"\>"], ",", "t", ",", "p2"}], "}"}],
3186   "\[InvisibleSpace]", "\<\".\"\>"}],
3187  SequenceForm[
3188  "Quantum number ", FeynRules`Y,
3189   " not conserved in vertex ", {$CellContext`uvbar,
3190    FeynRules`t, $CellContext`p2}, "."],
3191  Editable->False]], "Print",
3192 CellChangeTimes->{3.6205331044329243`*^9}],
3193
3194Cell[BoxData[
3195 InterpretationBox[
3196  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
3197   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3198   "\[InvisibleSpace]",
3199   RowBox[{"{",
3200    RowBox[{
3201     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p1"}], "}"}],
3202   "\[InvisibleSpace]", "\<\".\"\>"}],
3203  SequenceForm[
3204  "Quantum number ", $CellContext`LeptonNumber,
3205   " not conserved in vertex ", {$CellContext`evbar,
3206    FeynRules`e, $CellContext`p1}, "."],
3207  Editable->False]], "Print",
3208 CellChangeTimes->{3.6205331044336433`*^9}],
3209
3210Cell[BoxData[
3211 InterpretationBox[
3212  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
3213   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3214   "\[InvisibleSpace]",
3215   RowBox[{"{",
3216    RowBox[{
3217     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p1"}], "}"}],
3218   "\[InvisibleSpace]", "\<\".\"\>"}],
3219  SequenceForm[
3220  "Quantum number ", FeynRules`Y,
3221   " not conserved in vertex ", {$CellContext`evbar,
3222    FeynRules`e, $CellContext`p1}, "."],
3223  Editable->False]], "Print",
3224 CellChangeTimes->{3.620533104434381*^9}],
3225
3226Cell[BoxData[
3227 InterpretationBox[
3228  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
3229   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3230   "\[InvisibleSpace]",
3231   RowBox[{"{",
3232    RowBox[{
3233     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p2"}], "}"}],
3234   "\[InvisibleSpace]", "\<\".\"\>"}],
3235  SequenceForm[
3236  "Quantum number ", $CellContext`LeptonNumber,
3237   " not conserved in vertex ", {$CellContext`evbar,
3238    FeynRules`e, $CellContext`p2}, "."],
3239  Editable->False]], "Print",
3240 CellChangeTimes->{3.62053310443561*^9}],
3241
3242Cell[BoxData[
3243 InterpretationBox[
3244  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
3245   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
3246   "\[InvisibleSpace]",
3247   RowBox[{"{",
3248    RowBox[{
3249     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p2"}], "}"}],
3250   "\[InvisibleSpace]", "\<\".\"\>"}],
3251  SequenceForm[
3252  "Quantum number ", FeynRules`Y,
3253   " not conserved in vertex ", {$CellContext`evbar,
3254    FeynRules`e, $CellContext`p2}, "."],
3255  Editable->False]], "Print",
3256 CellChangeTimes->{3.620533104436792*^9}],
3257
3258Cell[BoxData[
3259 InterpretationBox[
3260  RowBox[{"167", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3261  SequenceForm[167, " vertices obtained."],
3262  Editable->False]], "Print",
3263 CellChangeTimes->{3.6205331044379263`*^9}],
3264
3265Cell[BoxData[
3266 InterpretationBox[
3267  RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
3268   "\[InvisibleSpace]", "\<\"Tutorial\"\>"}],
3269  SequenceForm["Writing FeynArts model file into directory ", "Tutorial"],
3270  Editable->False]], "Print",
3271 CellChangeTimes->{3.620533108101244*^9}]
3272}, Open  ]],
3273
3274Cell[BoxData[
3275 RowBox[{"{",
3276  RowBox[{
3277  "44.99032700000000062345861806534230709076`7.6737190630084156", ",",
3278   "Null"}], "}"}]], "Output",
3279 CellChangeTimes->{3.620533108102291*^9}]
3280}, Closed]]
3281}, Closed]],
3282
3283Cell[CellGroupData[{
3284
3285Cell["Computation of the vertices", "Section",
3286 CellChangeTimes->{{3.620533176529969*^9, 3.6205331847695503`*^9}}],
3287
3288Cell[BoxData[
3289 RowBox[{"Quit", "[", "]"}]], "Input",
3290 CellChangeTimes->{{3.620533308839384*^9, 3.620533310452351*^9}}],
3291
3292Cell[CellGroupData[{
3293
3294Cell[BoxData[{
3295 RowBox[{
3296  RowBox[{"SetDirectory", "[", "\"\<~/FeynArts-3.8\>\"", "]"}],
3297  ";"}], "\[IndentingNewLine]",
3298 RowBox[{"<<", "FeynArts`"}], "\[IndentingNewLine]",
3299 RowBox[{"SetDirectory", "[", "\"\<~/feynrules/tags/feynrules-2.1\>\"",
3300  "]"}], "\[IndentingNewLine]",
3301 RowBox[{"<<", "NLOCT`"}]}], "Input",
3302 CellChangeTimes->{{3.6205331915021152`*^9, 3.6205333009698067`*^9}, {
3303  3.620535146500984*^9, 3.620535147332876*^9}}],
3304
3305Cell[CellGroupData[{
3306
3307Cell[BoxData["\<\"\"\>"], "Print",
3308 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9},
3309   3.620535149510318*^9}],
3310
3311Cell[BoxData["\<\"FeynArts 3.8\"\>"], "Print",
3312 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9},
3313   3.6205351495176487`*^9}],
3314
3315Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
3316 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9},
3317   3.620535149523645*^9}],
3318
3319Cell[BoxData["\<\"last revised 9 Jul 13\"\>"], "Print",
3320 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9},
3321   3.62053514952705*^9}]
3322}, Open  ]],
3323
3324Cell[BoxData["\<\"/Users/degrande/feynrules/tags/feynrules-2.1\"\>"], "Output",
3325 CellChangeTimes->{{3.620533305146145*^9, 3.620533324772601*^9},
3326   3.620535149617305*^9}],
3327
3328Cell[CellGroupData[{
3329
3330Cell[BoxData["\<\" - NLOCT - \"\>"], "Print",
3331 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9},
3332   3.620535149637269*^9}],
3333
3334Cell[BoxData["\<\"Version: 1.0\"\>"], "Print",
3335 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9},
3336   3.620535149638682*^9}],
3337
3338Cell[BoxData["\<\"Authors: C. Degrande\"\>"], "Print",
3339 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9},
3340   3.620535149640574*^9}]
3341}, Open  ]]
3342}, Open  ]],
3343
3344Cell[CellGroupData[{
3345
3346Cell[BoxData[{
3347 RowBox[{"SetDirectory", "[", "\"\<~/Talks/TASI2013/\>\"",
3348  "]"}], "\[IndentingNewLine]",
3349 RowBox[{
3350  RowBox[{"WriteCT", "[",
3351   RowBox[{"\"\<Tutorial/Tutorial\>\"", ",", "\"\<Lorentz\>\"", ",",
3352    RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", " ",
3353    RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}], ",",
3354    RowBox[{"ZeroMom", "\[Rule]",
3355     RowBox[{"{",
3356      RowBox[{"{",
3357       RowBox[{"aS", ",",
3358        RowBox[{"{",
3359         RowBox[{
3360          RowBox[{"F", "[", "14", "]"}], ",",
3361          RowBox[{"V", "[", "4", "]"}], ",",
3362          RowBox[{"-",
3363           RowBox[{"F", "[", "14", "]"}]}]}], "}"}]}], "}"}], "}"}]}]}],
3364   "]"}], "//", "Timing"}]}], "Input",
3365 CellChangeTimes->{{3.620533328891531*^9, 3.6205334461637373`*^9}, {
3366  3.62053349209654*^9, 3.620533494710122*^9}, {3.620535130278564*^9,
3367  3.6205351573486853`*^9}, {3.620535201950944*^9, 3.620535204971959*^9}}],
3368
3369Cell[BoxData["\<\"/Users/degrande/Talks/TASI2013\"\>"], "Output",
3370 CellChangeTimes->{3.620533498289444*^9}],
3371
3372Cell[CellGroupData[{
3373
3374Cell[BoxData[
3375 StyleBox["\<\"Computing CT for the {S} vertices.\"\>",
3376  StripOnInput->False,
3377  LineColor->RGBColor[0, 0, 1],
3378  FrontFaceColor->RGBColor[0, 0, 1],
3379  BackFaceColor->RGBColor[0, 0, 1],
3380  GraphicsColor->RGBColor[0, 0, 1],
3381  FontColor->RGBColor[0, 0, 1]]], "Print",
3382 CellChangeTimes->{3.620533498290619*^9}],
3383
3384Cell[BoxData["\<\"\"\>"], "Print",
3385 CellChangeTimes->{3.6205334982923594`*^9}],
3386
3387Cell[BoxData[
3388 InterpretationBox[
3389  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
3390   "\[InvisibleSpace]", "\<\"generic\"\>",
3391   "\[InvisibleSpace]", "\<\" model file \"\>",
3392   "\[InvisibleSpace]", \
3393"\<\"/Users/degrande/FeynArts-3.8/Models/Lorentz.gen\"\>"}],
3394  SequenceForm[
3395  "", "loading ", "generic", " model file ",
3396   "/Users/degrande/FeynArts-3.8/Models/Lorentz.gen"],
3397  Editable->False]], "Print",
3398 CellChangeTimes->{3.620533498293841*^9}],
3399
3400Cell[BoxData["\<\"> $GenericMixing is OFF\"\>"], "Print",
3401 CellChangeTimes->{3.6205334983376493`*^9}],
3402
3403Cell[BoxData[
3404 InterpretationBox[
3405  RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]",
3406   RowBox[{"{", "\<\"Lorentz\"\>", "}"}],
3407   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
3408  SequenceForm["generic model ", {"Lorentz"}, " initialized"],
3409  Editable->False]], "Print",
3410 CellChangeTimes->{3.6205334983393517`*^9}],
3411
3412Cell[BoxData["\<\"\"\>"], "Print",
3413 CellChangeTimes->{3.620533498340768*^9}],
3414
3415Cell[BoxData[
3416 InterpretationBox[
3417  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
3418   "\[InvisibleSpace]", "\<\"classes\"\>",
3419   "\[InvisibleSpace]", "\<\" model file \"\>",
3420   "\[InvisibleSpace]", \
3421"\<\"/Users/degrande/FeynArts-3.8/Models/Tutorial/Tutorial.mod\"\>"}],
3422  SequenceForm[
3423  "", "loading ", "classes", " model file ",
3424   "/Users/degrande/FeynArts-3.8/Models/Tutorial/Tutorial.mod"],
3425  Editable->False]], "Print",
3426 CellChangeTimes->{3.62053349834214*^9}],
3427
3428Cell[BoxData[
3429 InterpretationBox[
3430  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "49",
3431   "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>",
3432   "\[InvisibleSpace]", "28", "\[InvisibleSpace]", "\<\" classes\"\>"}],
3433  SequenceForm[
3434  "> ", 49, " particles (incl. antiparticles) in ", 28, " classes"],
3435  Editable->False]], "Print",
3436 CellChangeTimes->{3.620533498343732*^9}],
3437
3438Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
3439 CellChangeTimes->{3.620533498377083*^9}],
3440
3441Cell[BoxData[
3442 InterpretationBox[
3443  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "132",
3444   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
3445  SequenceForm["> ", 132, " vertices"],
3446  Editable->False]], "Print",
3447 CellChangeTimes->{3.620533498377994*^9}],
3448
3449Cell[BoxData[
3450 InterpretationBox[
3451  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "48",
3452   "\[InvisibleSpace]", "\<\" counter terms of order 1\"\>"}],
3453  SequenceForm["> ", 48, " counter terms of order 1"],
3454  Editable->False]], "Print",
3455 CellChangeTimes->{3.6205334984043217`*^9}],
3456
3457Cell[BoxData[
3458 InterpretationBox[
3459  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]",
3460   RowBox[{"{", "\<\"Tutorial/Tutorial\"\>", "}"}],
3461   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
3462  SequenceForm["classes model ", {"Tutorial/Tutorial"}, " initialized"],
3463  Editable->False]], "Print",
3464 CellChangeTimes->{3.620533498405266*^9}],
3465
3466Cell[BoxData["\<\"\"\>"], "Print",
3467 CellChangeTimes->{3.620533498405909*^9}],
3468
3469Cell[BoxData[
3470 InterpretationBox[
3471  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3472   RowBox[{"{",
3473    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3474  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3475  Editable->False]], "Print",
3476 CellChangeTimes->{3.62053349840653*^9}],
3477
3478Cell[BoxData[
3479 InterpretationBox[
3480  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3481   "\[InvisibleSpace]", "\<\": \"\>",
3482   "\[InvisibleSpace]", "\<\"4 Generic, 16 Classes insertions\"\>"}],
3483  SequenceForm["> Top. ", 1, ": ", "4 Generic, 16 Classes insertions"],
3484  Editable->False]], "Print",
3485 CellChangeTimes->{3.6205334984374*^9}],
3486
3487Cell[BoxData[
3488 InterpretationBox[
3489  RowBox[{"\<\"in total: \"\>",
3490   "\[InvisibleSpace]", "\<\"4 Generic, 16 Classes insertions\"\>"}],
3491  SequenceForm["in total: ", "4 Generic, 16 Classes insertions"],
3492  Editable->False]], "Print",
3493 CellChangeTimes->{3.620533498438313*^9}],
3494
3495Cell[BoxData["\<\"\"\>"], "Print",
3496 CellChangeTimes->{3.620533498438951*^9}],
3497
3498Cell[BoxData[
3499 InterpretationBox[
3500  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3501   RowBox[{"{",
3502    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3503  SequenceForm[
3504  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3505  Editable->False]], "Print",
3506 CellChangeTimes->{3.620533498439578*^9}],
3507
3508Cell[BoxData[
3509 InterpretationBox[
3510  RowBox[{"\<\"in total: \"\>",
3511   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
3512  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
3513  Editable->False]], "Print",
3514 CellChangeTimes->{3.620533498440249*^9}],
3515
3516Cell[BoxData["\<\"Writing amplitude finished after 0.162638\"\>"], "Print",
3517 CellChangeTimes->{3.620533498440873*^9}],
3518
3519Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3520after 0.162799\"\>"], "Print",
3521 CellChangeTimes->{3.620533498441503*^9}],
3522
3523Cell[BoxData["\<\"\"\>"], "Print",
3524 CellChangeTimes->{3.620533498442174*^9}],
3525
3526Cell[BoxData[
3527 InterpretationBox[
3528  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3529   RowBox[{"{",
3530    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3531  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3532  Editable->False]], "Print",
3533 CellChangeTimes->{3.620533498443029*^9}],
3534
3535Cell[BoxData[
3536 InterpretationBox[
3537  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3538   "\[InvisibleSpace]", "\<\": \"\>",
3539   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3540  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
3541  Editable->False]], "Print",
3542 CellChangeTimes->{3.6205334984442463`*^9}],
3543
3544Cell[BoxData[
3545 InterpretationBox[
3546  RowBox[{"\<\"in total: \"\>",
3547   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3548  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
3549  Editable->False]], "Print",
3550 CellChangeTimes->{3.620533498445415*^9}],
3551
3552Cell[BoxData["\<\"\"\>"], "Print",
3553 CellChangeTimes->{3.620533498446512*^9}],
3554
3555Cell[BoxData[
3556 InterpretationBox[
3557  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3558   RowBox[{"{",
3559    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3560  SequenceForm[
3561  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3562  Editable->False]], "Print",
3563 CellChangeTimes->{3.6205334984476643`*^9}],
3564
3565Cell[BoxData[
3566 InterpretationBox[
3567  RowBox[{"\<\"in total: \"\>",
3568   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
3569  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
3570  Editable->False]], "Print",
3571 CellChangeTimes->{3.620533498448811*^9}],
3572
3573Cell[BoxData["\<\"Writing the symbolic CT finished after 0.164821\"\>"], \
3574"Print",
3575 CellChangeTimes->{3.620533498449912*^9}],
3576
3577Cell[BoxData["\<\"SU3 algebra finished after 0.165098\"\>"], "Print",
3578 CellChangeTimes->{3.620533498451009*^9}],
3579
3580Cell[BoxData["\<\"Simpliication of the vertices finished after \
35810.165139\"\>"], "Print",
3582 CellChangeTimes->{3.620533498452078*^9}],
3583
3584Cell[BoxData["\<\"Vertices {S} finished after 0.165181\"\>"], "Print",
3585 CellChangeTimes->{3.620533498453163*^9}],
3586
3587Cell[BoxData[
3588 StyleBox["\<\"Computing CT for the {F, F} vertices.\"\>",
3589  StripOnInput->False,
3590  LineColor->RGBColor[0, 0, 1],
3591  FrontFaceColor->RGBColor[0, 0, 1],
3592  BackFaceColor->RGBColor[0, 0, 1],
3593  GraphicsColor->RGBColor[0, 0, 1],
3594  FontColor->RGBColor[0, 0, 1]]], "Print",
3595 CellChangeTimes->{3.620533498454323*^9}],
3596
3597Cell[BoxData["\<\"\"\>"], "Print",
3598 CellChangeTimes->{3.620533498455441*^9}],
3599
3600Cell[BoxData[
3601 InterpretationBox[
3602  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3603   RowBox[{"{",
3604    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3605  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3606  Editable->False]], "Print",
3607 CellChangeTimes->{3.620533498456551*^9}],
3608
3609Cell[BoxData[
3610 InterpretationBox[
3611  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3612   "\[InvisibleSpace]", "\<\": \"\>",
3613   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3614  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
3615  Editable->False]], "Print",
3616 CellChangeTimes->{3.620533498457752*^9}],
3617
3618Cell[BoxData[
3619 InterpretationBox[
3620  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3621   "\[InvisibleSpace]", "\<\": \"\>",
3622   "\[InvisibleSpace]", "\<\"2 Generic, 124 Classes insertions\"\>"}],
3623  SequenceForm["> Top. ", 2, ": ", "2 Generic, 124 Classes insertions"],
3624  Editable->False]], "Print",
3625 CellChangeTimes->{3.620533498676602*^9}],
3626
3627Cell[BoxData[
3628 InterpretationBox[
3629  RowBox[{"\<\"in total: \"\>",
3630   "\[InvisibleSpace]", "\<\"2 Generic, 124 Classes insertions\"\>"}],
3631  SequenceForm["in total: ", "2 Generic, 124 Classes insertions"],
3632  Editable->False]], "Print",
3633 CellChangeTimes->{3.620533498677512*^9}],
3634
3635Cell[BoxData["\<\"\"\>"], "Print",
3636 CellChangeTimes->{3.620533498707855*^9}],
3637
3638Cell[BoxData[
3639 InterpretationBox[
3640  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3641   RowBox[{"{",
3642    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3643  SequenceForm[
3644  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3645  Editable->False]], "Print",
3646 CellChangeTimes->{3.620533498708726*^9}],
3647
3648Cell[BoxData[
3649 InterpretationBox[
3650  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3651   "\[InvisibleSpace]", "\<\": \"\>",
3652   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes amplitudes\"\>"}],
3653  SequenceForm["> Top. ", 1, ": ", "1 Generic, 14 Classes amplitudes"],
3654  Editable->False]], "Print",
3655 CellChangeTimes->{3.620533498737102*^9}],
3656
3657Cell[BoxData[
3658 InterpretationBox[
3659  RowBox[{"\<\"in total: \"\>",
3660   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes amplitudes\"\>"}],
3661  SequenceForm["in total: ", "1 Generic, 14 Classes amplitudes"],
3662  Editable->False]], "Print",
3663 CellChangeTimes->{3.6205334987380543`*^9}],
3664
3665Cell[BoxData["\<\"Writing amplitude finished after 0.474052\"\>"], "Print",
3666 CellChangeTimes->{3.620533498738719*^9}],
3667
3668Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3669after 1.151059\"\>"], "Print",
3670 CellChangeTimes->{3.620533499409218*^9}],
3671
3672Cell[BoxData["\<\"\"\>"], "Print",
3673 CellChangeTimes->{3.620533499474893*^9}],
3674
3675Cell[BoxData[
3676 InterpretationBox[
3677  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3678   RowBox[{"{",
3679    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3680  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3681  Editable->False]], "Print",
3682 CellChangeTimes->{3.620533499475753*^9}],
3683
3684Cell[BoxData[
3685 InterpretationBox[
3686  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3687   "\[InvisibleSpace]", "\<\": \"\>",
3688   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes insertions\"\>"}],
3689  SequenceForm["> Top. ", 1, ": ", "1 Generic, 14 Classes insertions"],
3690  Editable->False]], "Print",
3691 CellChangeTimes->{3.620533499501462*^9}],
3692
3693Cell[BoxData[
3694 InterpretationBox[
3695  RowBox[{"\<\"in total: \"\>",
3696   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes insertions\"\>"}],
3697  SequenceForm["in total: ", "1 Generic, 14 Classes insertions"],
3698  Editable->False]], "Print",
3699 CellChangeTimes->{3.620533499502688*^9}],
3700
3701Cell[BoxData["\<\"\"\>"], "Print",
3702 CellChangeTimes->{3.620533499503642*^9}],
3703
3704Cell[BoxData[
3705 InterpretationBox[
3706  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3707   RowBox[{"{",
3708    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3709  SequenceForm[
3710  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3711  Editable->False]], "Print",
3712 CellChangeTimes->{3.620533499504695*^9}],
3713
3714Cell[BoxData[
3715 InterpretationBox[
3716  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3717   "\[InvisibleSpace]", "\<\": \"\>",
3718   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes amplitudes\"\>"}],
3719  SequenceForm["> Top. ", 1, ": ", "1 Generic, 14 Classes amplitudes"],
3720  Editable->False]], "Print",
3721 CellChangeTimes->{3.6205334995058737`*^9}],
3722
3723Cell[BoxData[
3724 InterpretationBox[
3725  RowBox[{"\<\"in total: \"\>",
3726   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes amplitudes\"\>"}],
3727  SequenceForm["in total: ", "1 Generic, 14 Classes amplitudes"],
3728  Editable->False]], "Print",
3729 CellChangeTimes->{3.620533499507059*^9}],
3730
3731Cell[BoxData["\<\"Writing the symbolic CT finished after 1.266844\"\>"], \
3732"Print",
3733 CellChangeTimes->{3.620533499534739*^9}],
3734
3735Cell[BoxData["\<\"SU3 algebra finished after 2.201579\"\>"], "Print",
3736 CellChangeTimes->{3.6205335004597397`*^9}],
3737
3738Cell[BoxData["\<\"before CTSol close\"\>"], "Print",
3739 CellChangeTimes->{3.620533500527563*^9}],
3740
3741Cell[BoxData["\<\"Simpliication of the vertices finished after \
37422.795827\"\>"], "Print",
3743 CellChangeTimes->{3.620533501080803*^9}],
3744
3745Cell[BoxData["\<\"Vertices {F, F} finished after 2.796093\"\>"], "Print",
3746 CellChangeTimes->{3.620533501082033*^9}],
3747
3748Cell[BoxData[
3749 StyleBox["\<\"Computing CT for the {S, S} vertices.\"\>",
3750  StripOnInput->False,
3751  LineColor->RGBColor[0, 0, 1],
3752  FrontFaceColor->RGBColor[0, 0, 1],
3753  BackFaceColor->RGBColor[0, 0, 1],
3754  GraphicsColor->RGBColor[0, 0, 1],
3755  FontColor->RGBColor[0, 0, 1]]], "Print",
3756 CellChangeTimes->{3.620533501083296*^9}],
3757
3758Cell[BoxData["\<\"\"\>"], "Print",
3759 CellChangeTimes->{3.620533501084587*^9}],
3760
3761Cell[BoxData[
3762 InterpretationBox[
3763  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3764   RowBox[{"{",
3765    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3766  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3767  Editable->False]], "Print",
3768 CellChangeTimes->{3.620533501085987*^9}],
3769
3770Cell[BoxData[
3771 InterpretationBox[
3772  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3773   "\[InvisibleSpace]", "\<\": \"\>",
3774   "\[InvisibleSpace]", "\<\"2 Generic, 22 Classes insertions\"\>"}],
3775  SequenceForm["> Top. ", 1, ": ", "2 Generic, 22 Classes insertions"],
3776  Editable->False]], "Print",
3777 CellChangeTimes->{3.62053350108746*^9}],
3778
3779Cell[BoxData[
3780 InterpretationBox[
3781  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3782   "\[InvisibleSpace]", "\<\": \"\>",
3783   "\[InvisibleSpace]", "\<\"5 Generic, 75 Classes insertions\"\>"}],
3784  SequenceForm["> Top. ", 2, ": ", "5 Generic, 75 Classes insertions"],
3785  Editable->False]], "Print",
3786 CellChangeTimes->{3.620533501213607*^9}],
3787
3788Cell[BoxData[
3789 InterpretationBox[
3790  RowBox[{"\<\"in total: \"\>",
3791   "\[InvisibleSpace]", "\<\"7 Generic, 97 Classes insertions\"\>"}],
3792  SequenceForm["in total: ", "7 Generic, 97 Classes insertions"],
3793  Editable->False]], "Print",
3794 CellChangeTimes->{3.620533501214518*^9}],
3795
3796Cell[BoxData["\<\"\"\>"], "Print",
3797 CellChangeTimes->{3.620533501233451*^9}],
3798
3799Cell[BoxData[
3800 InterpretationBox[
3801  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3802   RowBox[{"{",
3803    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3804  SequenceForm[
3805  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3806  Editable->False]], "Print",
3807 CellChangeTimes->{3.620533501234819*^9}],
3808
3809Cell[BoxData[
3810 InterpretationBox[
3811  RowBox[{"\<\"in total: \"\>",
3812   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
3813  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
3814  Editable->False]], "Print",
3815 CellChangeTimes->{3.620533501236038*^9}],
3816
3817Cell[BoxData["\<\"Writing amplitude finished after 2.976225\"\>"], "Print",
3818 CellChangeTimes->{3.620533501237166*^9}],
3819
3820Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3821after 2.976356\"\>"], "Print",
3822 CellChangeTimes->{3.620533501238275*^9}],
3823
3824Cell[BoxData["\<\"\"\>"], "Print",
3825 CellChangeTimes->{3.620533501239415*^9}],
3826
3827Cell[BoxData[
3828 InterpretationBox[
3829  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3830   RowBox[{"{",
3831    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3832  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3833  Editable->False]], "Print",
3834 CellChangeTimes->{3.620533501240535*^9}],
3835
3836Cell[BoxData[
3837 InterpretationBox[
3838  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3839   "\[InvisibleSpace]", "\<\": \"\>",
3840   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3841  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
3842  Editable->False]], "Print",
3843 CellChangeTimes->{3.6205335012417793`*^9}],
3844
3845Cell[BoxData[
3846 InterpretationBox[
3847  RowBox[{"\<\"in total: \"\>",
3848   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3849  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
3850  Editable->False]], "Print",
3851 CellChangeTimes->{3.6205335012439003`*^9}],
3852
3853Cell[BoxData["\<\"\"\>"], "Print",
3854 CellChangeTimes->{3.620533501245863*^9}],
3855
3856Cell[BoxData[
3857 InterpretationBox[
3858  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3859   RowBox[{"{",
3860    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3861  SequenceForm[
3862  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3863  Editable->False]], "Print",
3864 CellChangeTimes->{3.6205335012470417`*^9}],
3865
3866Cell[BoxData[
3867 InterpretationBox[
3868  RowBox[{"\<\"in total: \"\>",
3869   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
3870  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
3871  Editable->False]], "Print",
3872 CellChangeTimes->{3.6205335012482433`*^9}],
3873
3874Cell[BoxData["\<\"Writing the symbolic CT finished after 2.980470\"\>"], \
3875"Print",
3876 CellChangeTimes->{3.620533501249374*^9}],
3877
3878Cell[BoxData["\<\"SU3 algebra finished after 2.980764\"\>"], "Print",
3879 CellChangeTimes->{3.620533501250476*^9}],
3880
3881Cell[BoxData["\<\"Simpliication of the vertices finished after \
38822.980817\"\>"], "Print",
3883 CellChangeTimes->{3.6205335012512217`*^9}],
3884
3885Cell[BoxData["\<\"Vertices {S, S} finished after 2.980941\"\>"], "Print",
3886 CellChangeTimes->{3.620533501251872*^9}],
3887
3888Cell[BoxData[
3889 StyleBox["\<\"Computing CT for the {V, V} vertices.\"\>",
3890  StripOnInput->False,
3891  LineColor->RGBColor[0, 0, 1],
3892  FrontFaceColor->RGBColor[0, 0, 1],
3893  BackFaceColor->RGBColor[0, 0, 1],
3894  GraphicsColor->RGBColor[0, 0, 1],
3895  FontColor->RGBColor[0, 0, 1]]], "Print",
3896 CellChangeTimes->{3.620533501252552*^9}],
3897
3898Cell[BoxData["\<\"\"\>"], "Print",
3899 CellChangeTimes->{3.6205335012532377`*^9}],
3900
3901Cell[BoxData[
3902 InterpretationBox[
3903  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3904   RowBox[{"{",
3905    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3906  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3907  Editable->False]], "Print",
3908 CellChangeTimes->{3.620533501253882*^9}],
3909
3910Cell[BoxData[
3911 InterpretationBox[
3912  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3913   "\[InvisibleSpace]", "\<\": \"\>",
3914   "\[InvisibleSpace]", "\<\"2 Generic, 23 Classes insertions\"\>"}],
3915  SequenceForm["> Top. ", 1, ": ", "2 Generic, 23 Classes insertions"],
3916  Editable->False]], "Print",
3917 CellChangeTimes->{3.620533501281082*^9}],
3918
3919Cell[BoxData[
3920 InterpretationBox[
3921  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3922   "\[InvisibleSpace]", "\<\": \"\>",
3923   "\[InvisibleSpace]", "\<\"5 Generic, 144 Classes insertions\"\>"}],
3924  SequenceForm["> Top. ", 2, ": ", "5 Generic, 144 Classes insertions"],
3925  Editable->False]], "Print",
3926 CellChangeTimes->{3.620533501486546*^9}],
3927
3928Cell[BoxData[
3929 InterpretationBox[
3930  RowBox[{"\<\"in total: \"\>",
3931   "\[InvisibleSpace]", "\<\"7 Generic, 167 Classes insertions\"\>"}],
3932  SequenceForm["in total: ", "7 Generic, 167 Classes insertions"],
3933  Editable->False]], "Print",
3934 CellChangeTimes->{3.620533501487504*^9}],
3935
3936Cell[BoxData["\<\"\"\>"], "Print",
3937 CellChangeTimes->{3.620533501546298*^9}],
3938
3939Cell[BoxData[
3940 InterpretationBox[
3941  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3942   RowBox[{"{",
3943    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3944  SequenceForm[
3945  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3946  Editable->False]], "Print",
3947 CellChangeTimes->{3.620533501547203*^9}],
3948
3949Cell[BoxData[
3950 InterpretationBox[
3951  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3952   "\[InvisibleSpace]", "\<\": \"\>",
3953   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
3954  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
3955  Editable->False]], "Print",
3956 CellChangeTimes->{3.620533501547926*^9}],
3957
3958Cell[BoxData[
3959 InterpretationBox[
3960  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3961   "\[InvisibleSpace]", "\<\": \"\>",
3962   "\[InvisibleSpace]", "\<\"3 Generic, 37 Classes amplitudes\"\>"}],
3963  SequenceForm["> Top. ", 2, ": ", "3 Generic, 37 Classes amplitudes"],
3964  Editable->False]], "Print",
3965 CellChangeTimes->{3.620533501613675*^9}],
3966
3967Cell[BoxData[
3968 InterpretationBox[
3969  RowBox[{"\<\"in total: \"\>",
3970   "\[InvisibleSpace]", "\<\"4 Generic, 38 Classes amplitudes\"\>"}],
3971  SequenceForm["in total: ", "4 Generic, 38 Classes amplitudes"],
3972  Editable->False]], "Print",
3973 CellChangeTimes->{3.620533501615144*^9}],
3974
3975Cell[BoxData["\<\"Writing amplitude finished after 3.327242\"\>"], "Print",
3976 CellChangeTimes->{3.6205335016162643`*^9}],
3977
3978Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3979after 4.082443\"\>"], "Print",
3980 CellChangeTimes->{3.620533502361013*^9}],
3981
3982Cell[BoxData["\<\"\"\>"], "Print",
3983 CellChangeTimes->{3.620533502460844*^9}],
3984
3985Cell[BoxData[
3986 InterpretationBox[
3987  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3988   RowBox[{"{",
3989    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3990  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3991  Editable->False]], "Print",
3992 CellChangeTimes->{3.6205335024622297`*^9}],
3993
3994Cell[BoxData[
3995 InterpretationBox[
3996  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3997   "\[InvisibleSpace]", "\<\": \"\>",
3998   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
3999  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes insertions"],
4000  Editable->False]], "Print",
4001 CellChangeTimes->{3.620533502463388*^9}],
4002
4003Cell[BoxData[
4004 InterpretationBox[
4005  RowBox[{"\<\"in total: \"\>",
4006   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
4007  SequenceForm["in total: ", "1 Generic, 1 Classes insertions"],
4008  Editable->False]], "Print",
4009 CellChangeTimes->{3.62053350246453*^9}],
4010
4011Cell[BoxData["\<\"\"\>"], "Print",
4012 CellChangeTimes->{3.620533502465609*^9}],
4013
4014Cell[BoxData[
4015 InterpretationBox[
4016  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4017   RowBox[{"{",
4018    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4019  SequenceForm[
4020  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4021  Editable->False]], "Print",
4022 CellChangeTimes->{3.620533502466679*^9}],
4023
4024Cell[BoxData[
4025 InterpretationBox[
4026  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4027   "\[InvisibleSpace]", "\<\": \"\>",
4028   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4029  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
4030  Editable->False]], "Print",
4031 CellChangeTimes->{3.620533502467836*^9}],
4032
4033Cell[BoxData[
4034 InterpretationBox[
4035  RowBox[{"\<\"in total: \"\>",
4036   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4037  SequenceForm["in total: ", "1 Generic, 1 Classes amplitudes"],
4038  Editable->False]], "Print",
4039 CellChangeTimes->{3.620533502469005*^9}],
4040
4041Cell[BoxData["\<\"Writing the symbolic CT finished after 4.176326\"\>"], \
4042"Print",
4043 CellChangeTimes->{3.6205335024700947`*^9}],
4044
4045Cell[BoxData["\<\"SU3 algebra finished after 4.871199\"\>"], "Print",
4046 CellChangeTimes->{3.620533503129443*^9}],
4047
4048Cell[BoxData["\<\"before CTSol close\"\>"], "Print",
4049 CellChangeTimes->{3.620533503243033*^9}],
4050
4051Cell[BoxData["\<\"Simpliication of the vertices finished after \
40525.315607\"\>"], "Print",
4053 CellChangeTimes->{3.620533503591157*^9}],
4054
4055Cell[BoxData["\<\"Vertices {V, V} finished after 5.315780\"\>"], "Print",
4056 CellChangeTimes->{3.620533503592045*^9}],
4057
4058Cell[BoxData[
4059 StyleBox["\<\"Computing CT for the {F, F, S} vertices.\"\>",
4060  StripOnInput->False,
4061  LineColor->RGBColor[0, 0, 1],
4062  FrontFaceColor->RGBColor[0, 0, 1],
4063  BackFaceColor->RGBColor[0, 0, 1],
4064  GraphicsColor->RGBColor[0, 0, 1],
4065  FontColor->RGBColor[0, 0, 1]]], "Print",
4066 CellChangeTimes->{3.620533503592814*^9}],
4067
4068Cell[BoxData["\<\"\"\>"], "Print",
4069 CellChangeTimes->{3.620533503593501*^9}],
4070
4071Cell[BoxData[
4072 InterpretationBox[
4073  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4074   RowBox[{"{",
4075    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4076  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4077  Editable->False]], "Print",
4078 CellChangeTimes->{3.6205335035942698`*^9}],
4079
4080Cell[BoxData[
4081 InterpretationBox[
4082  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4083   "\[InvisibleSpace]", "\<\": \"\>",
4084   "\[InvisibleSpace]", "\<\"6 Generic, 472 Classes insertions\"\>"}],
4085  SequenceForm["> Top. ", 1, ": ", "6 Generic, 472 Classes insertions"],
4086  Editable->False]], "Print",
4087 CellChangeTimes->{3.62053350973956*^9}],
4088
4089Cell[BoxData[
4090 InterpretationBox[
4091  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4092   "\[InvisibleSpace]", "\<\": \"\>",
4093   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4094  SequenceForm["> Top. ", 2, ": ", "0 Generic, 0 Classes insertions"],
4095  Editable->False]], "Print",
4096 CellChangeTimes->{3.620533509741322*^9}],
4097
4098Cell[BoxData[
4099 InterpretationBox[
4100  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4101   "\[InvisibleSpace]", "\<\": \"\>",
4102   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4103  SequenceForm["> Top. ", 3, ": ", "0 Generic, 0 Classes insertions"],
4104  Editable->False]], "Print",
4105 CellChangeTimes->{3.620533509742446*^9}],
4106
4107Cell[BoxData[
4108 InterpretationBox[
4109  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4110   "\[InvisibleSpace]", "\<\": \"\>",
4111   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4112  SequenceForm["> Top. ", 4, ": ", "0 Generic, 0 Classes insertions"],
4113  Editable->False]], "Print",
4114 CellChangeTimes->{3.620533509743408*^9}],
4115
4116Cell[BoxData[
4117 InterpretationBox[
4118  RowBox[{"\<\"in total: \"\>",
4119   "\[InvisibleSpace]", "\<\"6 Generic, 472 Classes insertions\"\>"}],
4120  SequenceForm["in total: ", "6 Generic, 472 Classes insertions"],
4121  Editable->False]], "Print",
4122 CellChangeTimes->{3.620533509744605*^9}],
4123
4124Cell[BoxData["\<\"\"\>"], "Print",
4125 CellChangeTimes->{3.620533509913639*^9}],
4126
4127Cell[BoxData[
4128 InterpretationBox[
4129  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4130   RowBox[{"{",
4131    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4132  SequenceForm[
4133  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4134  Editable->False]], "Print",
4135 CellChangeTimes->{3.620533509914619*^9}],
4136
4137Cell[BoxData[
4138 InterpretationBox[
4139  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4140   "\[InvisibleSpace]", "\<\": \"\>",
4141   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes amplitudes\"\>"}],
4142  SequenceForm["> Top. ", 1, ": ", "1 Generic, 20 Classes amplitudes"],
4143  Editable->False]], "Print",
4144 CellChangeTimes->{3.62053350995545*^9}],
4145
4146Cell[BoxData[
4147 InterpretationBox[
4148  RowBox[{"\<\"in total: \"\>",
4149   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes amplitudes\"\>"}],
4150  SequenceForm["in total: ", "1 Generic, 20 Classes amplitudes"],
4151  Editable->False]], "Print",
4152 CellChangeTimes->{3.620533509956715*^9}],
4153
4154Cell[BoxData["\<\"Writing amplitude finished after 11.700716\"\>"], "Print",
4155 CellChangeTimes->{3.620533509976571*^9}],
4156
4157Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4158after 11.758448\"\>"], "Print",
4159 CellChangeTimes->{3.620533510016708*^9}],
4160
4161Cell[BoxData["\<\"\"\>"], "Print",
4162 CellChangeTimes->{3.620533510066162*^9}],
4163
4164Cell[BoxData[
4165 InterpretationBox[
4166  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4167   RowBox[{"{",
4168    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4169  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4170  Editable->False]], "Print",
4171 CellChangeTimes->{3.620533510067367*^9}],
4172
4173Cell[BoxData[
4174 InterpretationBox[
4175  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4176   "\[InvisibleSpace]", "\<\": \"\>",
4177   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes insertions\"\>"}],
4178  SequenceForm["> Top. ", 1, ": ", "1 Generic, 20 Classes insertions"],
4179  Editable->False]], "Print",
4180 CellChangeTimes->{3.6205335100925198`*^9}],
4181
4182Cell[BoxData[
4183 InterpretationBox[
4184  RowBox[{"\<\"in total: \"\>",
4185   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes insertions\"\>"}],
4186  SequenceForm["in total: ", "1 Generic, 20 Classes insertions"],
4187  Editable->False]], "Print",
4188 CellChangeTimes->{3.620533510093487*^9}],
4189
4190Cell[BoxData["\<\"\"\>"], "Print",
4191 CellChangeTimes->{3.620533510094182*^9}],
4192
4193Cell[BoxData[
4194 InterpretationBox[
4195  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4196   RowBox[{"{",
4197    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4198  SequenceForm[
4199  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4200  Editable->False]], "Print",
4201 CellChangeTimes->{3.620533510094859*^9}],
4202
4203Cell[BoxData[
4204 InterpretationBox[
4205  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4206   "\[InvisibleSpace]", "\<\": \"\>",
4207   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes amplitudes\"\>"}],
4208  SequenceForm["> Top. ", 1, ": ", "1 Generic, 20 Classes amplitudes"],
4209  Editable->False]], "Print",
4210 CellChangeTimes->{3.6205335101094503`*^9}],
4211
4212Cell[BoxData[
4213 InterpretationBox[
4214  RowBox[{"\<\"in total: \"\>",
4215   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes amplitudes\"\>"}],
4216  SequenceForm["in total: ", "1 Generic, 20 Classes amplitudes"],
4217  Editable->False]], "Print",
4218 CellChangeTimes->{3.6205335101104183`*^9}],
4219
4220Cell[BoxData["\<\"Writing the symbolic CT finished after 11.871598\"\>"], \
4221"Print",
4222 CellChangeTimes->{3.620533510143949*^9}],
4223
4224Cell[BoxData["\<\"SU3 algebra finished after 12.373353\"\>"], "Print",
4225 CellChangeTimes->{3.62053351063166*^9}],
4226
4227Cell[BoxData["\<\"Simpliication of the vertices finished after \
422812.819795\"\>"], "Print",
4229 CellChangeTimes->{3.620533511077936*^9}],
4230
4231Cell[BoxData["\<\"Vertices {F, F, S} finished after 12.820026\"\>"], "Print",
4232 CellChangeTimes->{3.620533511078874*^9}],
4233
4234Cell[BoxData[
4235 StyleBox["\<\"Computing CT for the {F, F, V} vertices.\"\>",
4236  StripOnInput->False,
4237  LineColor->RGBColor[0, 0, 1],
4238  FrontFaceColor->RGBColor[0, 0, 1],
4239  BackFaceColor->RGBColor[0, 0, 1],
4240  GraphicsColor->RGBColor[0, 0, 1],
4241  FontColor->RGBColor[0, 0, 1]]], "Print",
4242 CellChangeTimes->{3.620533511079598*^9}],
4243
4244Cell[BoxData["\<\"\"\>"], "Print",
4245 CellChangeTimes->{3.620533511080554*^9}],
4246
4247Cell[BoxData[
4248 InterpretationBox[
4249  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4250   RowBox[{"{",
4251    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4252  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4253  Editable->False]], "Print",
4254 CellChangeTimes->{3.620533511081311*^9}],
4255
4256Cell[BoxData[
4257 InterpretationBox[
4258  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4259   "\[InvisibleSpace]", "\<\": \"\>",
4260   "\[InvisibleSpace]", "\<\"6 Generic, 646 Classes insertions\"\>"}],
4261  SequenceForm["> Top. ", 1, ": ", "6 Generic, 646 Classes insertions"],
4262  Editable->False]], "Print",
4263 CellChangeTimes->{3.620533517833626*^9}],
4264
4265Cell[BoxData[
4266 InterpretationBox[
4267  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4268   "\[InvisibleSpace]", "\<\": \"\>",
4269   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4270  SequenceForm["> Top. ", 2, ": ", "0 Generic, 0 Classes insertions"],
4271  Editable->False]], "Print",
4272 CellChangeTimes->{3.6205335178346033`*^9}],
4273
4274Cell[BoxData[
4275 InterpretationBox[
4276  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4277   "\[InvisibleSpace]", "\<\": \"\>",
4278   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4279  SequenceForm["> Top. ", 3, ": ", "0 Generic, 0 Classes insertions"],
4280  Editable->False]], "Print",
4281 CellChangeTimes->{3.620533517835372*^9}],
4282
4283Cell[BoxData[
4284 InterpretationBox[
4285  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4286   "\[InvisibleSpace]", "\<\": \"\>",
4287   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4288  SequenceForm["> Top. ", 4, ": ", "0 Generic, 0 Classes insertions"],
4289  Editable->False]], "Print",
4290 CellChangeTimes->{3.6205335178361073`*^9}],
4291
4292Cell[BoxData[
4293 InterpretationBox[
4294  RowBox[{"\<\"in total: \"\>",
4295   "\[InvisibleSpace]", "\<\"6 Generic, 646 Classes insertions\"\>"}],
4296  SequenceForm["in total: ", "6 Generic, 646 Classes insertions"],
4297  Editable->False]], "Print",
4298 CellChangeTimes->{3.620533517858026*^9}],
4299
4300Cell[BoxData["\<\"\"\>"], "Print",
4301 CellChangeTimes->{3.620533518060442*^9}],
4302
4303Cell[BoxData[
4304 InterpretationBox[
4305  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4306   RowBox[{"{",
4307    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4308  SequenceForm[
4309  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4310  Editable->False]], "Print",
4311 CellChangeTimes->{3.620533518061414*^9}],
4312
4313Cell[BoxData[
4314 InterpretationBox[
4315  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4316   "\[InvisibleSpace]", "\<\": \"\>",
4317   "\[InvisibleSpace]", "\<\"3 Generic, 128 Classes amplitudes\"\>"}],
4318  SequenceForm["> Top. ", 1, ": ", "3 Generic, 128 Classes amplitudes"],
4319  Editable->False]], "Print",
4320 CellChangeTimes->{3.620533518276401*^9}],
4321
4322Cell[BoxData[
4323 InterpretationBox[
4324  RowBox[{"\<\"in total: \"\>",
4325   "\[InvisibleSpace]", "\<\"3 Generic, 128 Classes amplitudes\"\>"}],
4326  SequenceForm["in total: ", "3 Generic, 128 Classes amplitudes"],
4327  Editable->False]], "Print",
4328 CellChangeTimes->{3.620533518277376*^9}],
4329
4330Cell[BoxData["\<\"Writing amplitude finished after 20.032111\"\>"], "Print",
4331 CellChangeTimes->{3.6205335183069677`*^9}],
4332
4333Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4334after 20.285192\"\>"], "Print",
4335 CellChangeTimes->{3.620533518543437*^9}],
4336
4337Cell[BoxData["\<\"\"\>"], "Print",
4338 CellChangeTimes->{3.620533518765388*^9}],
4339
4340Cell[BoxData[
4341 InterpretationBox[
4342  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4343   RowBox[{"{",
4344    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4345  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4346  Editable->False]], "Print",
4347 CellChangeTimes->{3.6205335187663383`*^9}],
4348
4349Cell[BoxData[
4350 InterpretationBox[
4351  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4352   "\[InvisibleSpace]", "\<\": \"\>",
4353   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes insertions\"\>"}],
4354  SequenceForm["> Top. ", 1, ": ", "1 Generic, 54 Classes insertions"],
4355  Editable->False]], "Print",
4356 CellChangeTimes->{3.620533518788148*^9}],
4357
4358Cell[BoxData[
4359 InterpretationBox[
4360  RowBox[{"\<\"in total: \"\>",
4361   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes insertions\"\>"}],
4362  SequenceForm["in total: ", "1 Generic, 54 Classes insertions"],
4363  Editable->False]], "Print",
4364 CellChangeTimes->{3.6205335187890987`*^9}],
4365
4366Cell[BoxData["\<\"\"\>"], "Print",
4367 CellChangeTimes->{3.6205335188052692`*^9}],
4368
4369Cell[BoxData[
4370 InterpretationBox[
4371  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4372   RowBox[{"{",
4373    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4374  SequenceForm[
4375  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4376  Editable->False]], "Print",
4377 CellChangeTimes->{3.6205335188061943`*^9}],
4378
4379Cell[BoxData[
4380 InterpretationBox[
4381  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4382   "\[InvisibleSpace]", "\<\": \"\>",
4383   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes amplitudes\"\>"}],
4384  SequenceForm["> Top. ", 1, ": ", "1 Generic, 54 Classes amplitudes"],
4385  Editable->False]], "Print",
4386 CellChangeTimes->{3.620533518838957*^9}],
4387
4388Cell[BoxData[
4389 InterpretationBox[
4390  RowBox[{"\<\"in total: \"\>",
4391   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes amplitudes\"\>"}],
4392  SequenceForm["in total: ", "1 Generic, 54 Classes amplitudes"],
4393  Editable->False]], "Print",
4394 CellChangeTimes->{3.6205335188399353`*^9}],
4395
4396Cell[BoxData["\<\"Writing the symbolic CT finished after 20.665658\"\>"], \
4397"Print",
4398 CellChangeTimes->{3.620533518923821*^9}],
4399
4400Cell[BoxData["\<\"SU3 algebra finished after 22.685373\"\>"], "Print",
4401 CellChangeTimes->{3.620533520943645*^9}],
4402
4403Cell[BoxData["\<\"Simpliication of the vertices finished after \
440423.313367\"\>"], "Print",
4405 CellChangeTimes->{3.6205335215715637`*^9}],
4406
4407Cell[BoxData["\<\"Vertices {F, F, V} finished after 23.314003\"\>"], "Print",
4408 CellChangeTimes->{3.620533521573031*^9}],
4409
4410Cell[BoxData[
4411 StyleBox["\<\"Computing CT for the {V, V, V} vertices.\"\>",
4412  StripOnInput->False,
4413  LineColor->RGBColor[0, 0, 1],
4414  FrontFaceColor->RGBColor[0, 0, 1],
4415  BackFaceColor->RGBColor[0, 0, 1],
4416  GraphicsColor->RGBColor[0, 0, 1],
4417  FontColor->RGBColor[0, 0, 1]]], "Print",
4418 CellChangeTimes->{3.620533521574299*^9}],
4419
4420Cell[BoxData["\<\"\"\>"], "Print",
4421 CellChangeTimes->{3.6205335215755053`*^9}],
4422
4423Cell[BoxData[
4424 InterpretationBox[
4425  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4426   RowBox[{"{",
4427    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4428  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4429  Editable->False]], "Print",
4430 CellChangeTimes->{3.620533521576757*^9}],
4431
4432Cell[BoxData[
4433 InterpretationBox[
4434  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4435   "\[InvisibleSpace]", "\<\": \"\>",
4436   "\[InvisibleSpace]", "\<\"10 Generic, 1013 Classes insertions\"\>"}],
4437  SequenceForm["> Top. ", 1, ": ", "10 Generic, 1013 Classes insertions"],
4438  Editable->False]], "Print",
4439 CellChangeTimes->{3.6205335235193787`*^9}],
4440
4441Cell[BoxData[
4442 InterpretationBox[
4443  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4444   "\[InvisibleSpace]", "\<\": \"\>",
4445   "\[InvisibleSpace]", "\<\"2 Generic, 57 Classes insertions\"\>"}],
4446  SequenceForm["> Top. ", 2, ": ", "2 Generic, 57 Classes insertions"],
4447  Editable->False]], "Print",
4448 CellChangeTimes->{3.620533523640192*^9}],
4449
4450Cell[BoxData[
4451 InterpretationBox[
4452  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4453   "\[InvisibleSpace]", "\<\": \"\>",
4454   "\[InvisibleSpace]", "\<\"2 Generic, 57 Classes insertions\"\>"}],
4455  SequenceForm["> Top. ", 3, ": ", "2 Generic, 57 Classes insertions"],
4456  Editable->False]], "Print",
4457 CellChangeTimes->{3.620533523763357*^9}],
4458
4459Cell[BoxData[
4460 InterpretationBox[
4461  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4462   "\[InvisibleSpace]", "\<\": \"\>",
4463   "\[InvisibleSpace]", "\<\"2 Generic, 57 Classes insertions\"\>"}],
4464  SequenceForm["> Top. ", 4, ": ", "2 Generic, 57 Classes insertions"],
4465  Editable->False]], "Print",
4466 CellChangeTimes->{3.620533523895194*^9}],
4467
4468Cell[BoxData[
4469 InterpretationBox[
4470  RowBox[{"\<\"in total: \"\>",
4471   "\[InvisibleSpace]", "\<\"16 Generic, 1184 Classes insertions\"\>"}],
4472  SequenceForm["in total: ", "16 Generic, 1184 Classes insertions"],
4473  Editable->False]], "Print",
4474 CellChangeTimes->{3.620533523902635*^9}],
4475
4476Cell[BoxData["\<\"\"\>"], "Print",
4477 CellChangeTimes->{3.620533524267242*^9}],
4478
4479Cell[BoxData[
4480 InterpretationBox[
4481  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4482   RowBox[{"{",
4483    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4484  SequenceForm[
4485  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4486  Editable->False]], "Print",
4487 CellChangeTimes->{3.620533524268228*^9}],
4488
4489Cell[BoxData[
4490 InterpretationBox[
4491  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4492   "\[InvisibleSpace]", "\<\": \"\>",
4493   "\[InvisibleSpace]", "\<\"3 Generic, 305 Classes amplitudes\"\>"}],
4494  SequenceForm["> Top. ", 1, ": ", "3 Generic, 305 Classes amplitudes"],
4495  Editable->False]], "Print",
4496 CellChangeTimes->{3.6205335247867613`*^9}],
4497
4498Cell[BoxData[
4499 InterpretationBox[
4500  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4501   "\[InvisibleSpace]", "\<\": \"\>",
4502   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4503  SequenceForm["> Top. ", 2, ": ", "1 Generic, 1 Classes amplitudes"],
4504  Editable->False]], "Print",
4505 CellChangeTimes->{3.62053352479771*^9}],
4506
4507Cell[BoxData[
4508 InterpretationBox[
4509  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4510   "\[InvisibleSpace]", "\<\": \"\>",
4511   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4512  SequenceForm["> Top. ", 3, ": ", "1 Generic, 1 Classes amplitudes"],
4513  Editable->False]], "Print",
4514 CellChangeTimes->{3.6205335248119698`*^9}],
4515
4516Cell[BoxData[
4517 InterpretationBox[
4518  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4519   "\[InvisibleSpace]", "\<\": \"\>",
4520   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4521  SequenceForm["> Top. ", 4, ": ", "1 Generic, 1 Classes amplitudes"],
4522  Editable->False]], "Print",
4523 CellChangeTimes->{3.620533524812951*^9}],
4524
4525Cell[BoxData[
4526 InterpretationBox[
4527  RowBox[{"\<\"in total: \"\>",
4528   "\[InvisibleSpace]", "\<\"6 Generic, 308 Classes amplitudes\"\>"}],
4529  SequenceForm["in total: ", "6 Generic, 308 Classes amplitudes"],
4530  Editable->False]], "Print",
4531 CellChangeTimes->{3.620533524813767*^9}],
4532
4533Cell[BoxData["\<\"Writing amplitude finished after 26.589317\"\>"], "Print",
4534 CellChangeTimes->{3.620533524847513*^9}],
4535
4536Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4537after 161.622532\"\>"], "Print",
4538 CellChangeTimes->{3.620533659880814*^9}],
4539
4540Cell[BoxData["\<\"\"\>"], "Print",
4541 CellChangeTimes->{3.620533659927597*^9}],
4542
4543Cell[BoxData[
4544 InterpretationBox[
4545  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4546   RowBox[{"{",
4547    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4548  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4549  Editable->False]], "Print",
4550 CellChangeTimes->{3.6205336599285603`*^9}],
4551
4552Cell[BoxData[
4553 InterpretationBox[
4554  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4555   "\[InvisibleSpace]", "\<\": \"\>",
4556   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
4557  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes insertions"],
4558  Editable->False]], "Print",
4559 CellChangeTimes->{3.6205336599293127`*^9}],
4560
4561Cell[BoxData[
4562 InterpretationBox[
4563  RowBox[{"\<\"in total: \"\>",
4564   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
4565  SequenceForm["in total: ", "1 Generic, 1 Classes insertions"],
4566  Editable->False]], "Print",
4567 CellChangeTimes->{3.6205336599300957`*^9}],
4568
4569Cell[BoxData["\<\"\"\>"], "Print",
4570 CellChangeTimes->{3.6205336599308033`*^9}],
4571
4572Cell[BoxData[
4573 InterpretationBox[
4574  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4575   RowBox[{"{",
4576    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4577  SequenceForm[
4578  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4579  Editable->False]], "Print",
4580 CellChangeTimes->{3.620533659931497*^9}],
4581
4582Cell[BoxData[
4583 InterpretationBox[
4584  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4585   "\[InvisibleSpace]", "\<\": \"\>",
4586   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4587  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
4588  Editable->False]], "Print",
4589 CellChangeTimes->{3.620533659942054*^9}],
4590
4591Cell[BoxData[
4592 InterpretationBox[
4593  RowBox[{"\<\"in total: \"\>",
4594   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4595  SequenceForm["in total: ", "1 Generic, 1 Classes amplitudes"],
4596  Editable->False]], "Print",
4597 CellChangeTimes->{3.6205336599436293`*^9}],
4598
4599Cell[BoxData["\<\"Writing the symbolic CT finished after 161.697041\"\>"], \
4600"Print",
4601 CellChangeTimes->{3.62053365995516*^9}],
4602
4603Cell[BoxData["\<\"SU3 algebra finished after 163.982307\"\>"], "Print",
4604 CellChangeTimes->{3.620533662240662*^9}],
4605
4606Cell[BoxData["\<\"Simpliication of the vertices finished after \
4607164.690988\"\>"], "Print",
4608 CellChangeTimes->{3.620533662949236*^9}],
4609
4610Cell[BoxData["\<\"Vertices {V, V, V} finished after 164.691384\"\>"], "Print",
4611 CellChangeTimes->{3.620533662950366*^9}],
4612
4613Cell[BoxData[
4614 StyleBox["\<\"Computing CT for the {V, V, S} vertices.\"\>",
4615  StripOnInput->False,
4616  LineColor->RGBColor[0, 0, 1],
4617  FrontFaceColor->RGBColor[0, 0, 1],
4618  BackFaceColor->RGBColor[0, 0, 1],
4619  GraphicsColor->RGBColor[0, 0, 1],
4620  FontColor->RGBColor[0, 0, 1]]], "Print",
4621 CellChangeTimes->{3.620533662951377*^9}],
4622
4623Cell[BoxData["\<\"\"\>"], "Print",
4624 CellChangeTimes->{3.62053366295234*^9}],
4625
4626Cell[BoxData[
4627 InterpretationBox[
4628  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4629   RowBox[{"{",
4630    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4631  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4632  Editable->False]], "Print",
4633 CellChangeTimes->{3.620533662953141*^9}],
4634
4635Cell[BoxData[
4636 InterpretationBox[
4637  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4638   "\[InvisibleSpace]", "\<\": \"\>",
4639   "\[InvisibleSpace]", "\<\"10 Generic, 506 Classes insertions\"\>"}],
4640  SequenceForm["> Top. ", 1, ": ", "10 Generic, 506 Classes insertions"],
4641  Editable->False]], "Print",
4642 CellChangeTimes->{3.620533664499103*^9}],
4643
4644Cell[BoxData[
4645 InterpretationBox[
4646  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4647   "\[InvisibleSpace]", "\<\": \"\>",
4648   "\[InvisibleSpace]", "\<\"1 Generic, 45 Classes insertions\"\>"}],
4649  SequenceForm["> Top. ", 2, ": ", "1 Generic, 45 Classes insertions"],
4650  Editable->False]], "Print",
4651 CellChangeTimes->{3.6205336645629663`*^9}],
4652
4653Cell[BoxData[
4654 InterpretationBox[
4655  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4656   "\[InvisibleSpace]", "\<\": \"\>",
4657   "\[InvisibleSpace]", "\<\"1 Generic, 45 Classes insertions\"\>"}],
4658  SequenceForm["> Top. ", 3, ": ", "1 Generic, 45 Classes insertions"],
4659  Editable->False]], "Print",
4660 CellChangeTimes->{3.620533664621202*^9}],
4661
4662Cell[BoxData[
4663 InterpretationBox[
4664  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4665   "\[InvisibleSpace]", "\<\": \"\>",
4666   "\[InvisibleSpace]", "\<\"2 Generic, 44 Classes insertions\"\>"}],
4667  SequenceForm["> Top. ", 4, ": ", "2 Generic, 44 Classes insertions"],
4668  Editable->False]], "Print",
4669 CellChangeTimes->{3.620533664724595*^9}],
4670
4671Cell[BoxData[
4672 InterpretationBox[
4673  RowBox[{"\<\"in total: \"\>",
4674   "\[InvisibleSpace]", "\<\"14 Generic, 640 Classes insertions\"\>"}],
4675  SequenceForm["in total: ", "14 Generic, 640 Classes insertions"],
4676  Editable->False]], "Print",
4677 CellChangeTimes->{3.6205336647368183`*^9}],
4678
4679Cell[BoxData["\<\"\"\>"], "Print",
4680 CellChangeTimes->{3.620533664918003*^9}],
4681
4682Cell[BoxData[
4683 InterpretationBox[
4684  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4685   RowBox[{"{",
4686    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4687  SequenceForm[
4688  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4689  Editable->False]], "Print",
4690 CellChangeTimes->{3.620533664919011*^9}],
4691
4692Cell[BoxData[
4693 InterpretationBox[
4694  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4695   "\[InvisibleSpace]", "\<\": \"\>",
4696   "\[InvisibleSpace]", "\<\"1 Generic, 48 Classes amplitudes\"\>"}],
4697  SequenceForm["> Top. ", 1, ": ", "1 Generic, 48 Classes amplitudes"],
4698  Editable->False]], "Print",
4699 CellChangeTimes->{3.620533665002179*^9}],
4700
4701Cell[BoxData[
4702 InterpretationBox[
4703  RowBox[{"\<\"in total: \"\>",
4704   "\[InvisibleSpace]", "\<\"1 Generic, 48 Classes amplitudes\"\>"}],
4705  SequenceForm["in total: ", "1 Generic, 48 Classes amplitudes"],
4706  Editable->False]], "Print",
4707 CellChangeTimes->{3.620533665003208*^9}],
4708
4709Cell[BoxData["\<\"Writing amplitude finished after 166.750130\"\>"], "Print",
4710 CellChangeTimes->{3.620533665011059*^9}],
4711
4712Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4713after 166.923604\"\>"], "Print",
4714 CellChangeTimes->{3.620533665181818*^9}],
4715
4716Cell[BoxData["\<\"\"\>"], "Print",
4717 CellChangeTimes->{3.6205336651891203`*^9}],
4718
4719Cell[BoxData[
4720 InterpretationBox[
4721  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4722   RowBox[{"{",
4723    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4724  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4725  Editable->False]], "Print",
4726 CellChangeTimes->{3.620533665190075*^9}],
4727
4728Cell[BoxData[
4729 InterpretationBox[
4730  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4731   "\[InvisibleSpace]", "\<\": \"\>",
4732   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4733  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
4734  Editable->False]], "Print",
4735 CellChangeTimes->{3.620533665190857*^9}],
4736
4737Cell[BoxData[
4738 InterpretationBox[
4739  RowBox[{"\<\"in total: \"\>",
4740   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4741  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
4742  Editable->False]], "Print",
4743 CellChangeTimes->{3.6205336651915894`*^9}],
4744
4745Cell[BoxData["\<\"\"\>"], "Print",
4746 CellChangeTimes->{3.620533665192706*^9}],
4747
4748Cell[BoxData[
4749 InterpretationBox[
4750  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4751   RowBox[{"{",
4752    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4753  SequenceForm[
4754  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4755  Editable->False]], "Print",
4756 CellChangeTimes->{3.6205336651934843`*^9}],
4757
4758Cell[BoxData[
4759 InterpretationBox[
4760  RowBox[{"\<\"in total: \"\>",
4761   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
4762  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
4763  Editable->False]], "Print",
4764 CellChangeTimes->{3.620533665194292*^9}],
4765
4766Cell[BoxData["\<\"Writing the symbolic CT finished after 166.931694\"\>"], \
4767"Print",
4768 CellChangeTimes->{3.620533665195076*^9}],
4769
4770Cell[BoxData["\<\"SU3 algebra finished after 166.957321\"\>"], "Print",
4771 CellChangeTimes->{3.62053366521546*^9}],
4772
4773Cell[BoxData["\<\"Simpliication of the vertices finished after \
4774166.972779\"\>"], "Print",
4775 CellChangeTimes->{3.620533665231039*^9}],
4776
4777Cell[BoxData["\<\"Vertices {V, V, S} finished after 166.972978\"\>"], "Print",
4778 CellChangeTimes->{3.6205336652325583`*^9}],
4779
4780Cell[BoxData[
4781 StyleBox["\<\"Computing CT for the {V, S, S} vertices.\"\>",
4782  StripOnInput->False,
4783  LineColor->RGBColor[0, 0, 1],
4784  FrontFaceColor->RGBColor[0, 0, 1],
4785  BackFaceColor->RGBColor[0, 0, 1],
4786  GraphicsColor->RGBColor[0, 0, 1],
4787  FontColor->RGBColor[0, 0, 1]]], "Print",
4788 CellChangeTimes->{3.620533665233675*^9}],
4789
4790Cell[BoxData["\<\"\"\>"], "Print",
4791 CellChangeTimes->{3.620533665234436*^9}],
4792
4793Cell[BoxData[
4794 InterpretationBox[
4795  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4796   RowBox[{"{",
4797    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4798  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4799  Editable->False]], "Print",
4800 CellChangeTimes->{3.620533665235284*^9}],
4801
4802Cell[BoxData[
4803 InterpretationBox[
4804  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4805   "\[InvisibleSpace]", "\<\": \"\>",
4806   "\[InvisibleSpace]", "\<\"10 Generic, 534 Classes insertions\"\>"}],
4807  SequenceForm["> Top. ", 1, ": ", "10 Generic, 534 Classes insertions"],
4808  Editable->False]], "Print",
4809 CellChangeTimes->{3.620533666404846*^9}],
4810
4811Cell[BoxData[
4812 InterpretationBox[
4813  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4814   "\[InvisibleSpace]", "\<\": \"\>",
4815   "\[InvisibleSpace]", "\<\"2 Generic, 42 Classes insertions\"\>"}],
4816  SequenceForm["> Top. ", 2, ": ", "2 Generic, 42 Classes insertions"],
4817  Editable->False]], "Print",
4818 CellChangeTimes->{3.620533666522119*^9}],
4819
4820Cell[BoxData[
4821 InterpretationBox[
4822  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4823   "\[InvisibleSpace]", "\<\": \"\>",
4824   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes insertions\"\>"}],
4825  SequenceForm["> Top. ", 3, ": ", "1 Generic, 54 Classes insertions"],
4826  Editable->False]], "Print",
4827 CellChangeTimes->{3.620533666593855*^9}],
4828
4829Cell[BoxData[
4830 InterpretationBox[
4831  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4832   "\[InvisibleSpace]", "\<\": \"\>",
4833   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes insertions\"\>"}],
4834  SequenceForm["> Top. ", 4, ": ", "1 Generic, 54 Classes insertions"],
4835  Editable->False]], "Print",
4836 CellChangeTimes->{3.620533666668592*^9}],
4837
4838Cell[BoxData[
4839 InterpretationBox[
4840  RowBox[{"\<\"in total: \"\>",
4841   "\[InvisibleSpace]", "\<\"14 Generic, 684 Classes insertions\"\>"}],
4842  SequenceForm["in total: ", "14 Generic, 684 Classes insertions"],
4843  Editable->False]], "Print",
4844 CellChangeTimes->{3.620533666678042*^9}],
4845
4846Cell[BoxData["\<\"\"\>"], "Print",
4847 CellChangeTimes->{3.620533666880512*^9}],
4848
4849Cell[BoxData[
4850 InterpretationBox[
4851  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4852   RowBox[{"{",
4853    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4854  SequenceForm[
4855  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4856  Editable->False]], "Print",
4857 CellChangeTimes->{3.620533666881708*^9}],
4858
4859Cell[BoxData[
4860 InterpretationBox[
4861  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4862   "\[InvisibleSpace]", "\<\": \"\>",
4863   "\[InvisibleSpace]", "\<\"1 Generic, 36 Classes amplitudes\"\>"}],
4864  SequenceForm["> Top. ", 1, ": ", "1 Generic, 36 Classes amplitudes"],
4865  Editable->False]], "Print",
4866 CellChangeTimes->{3.620533666944215*^9}],
4867
4868Cell[BoxData[
4869 InterpretationBox[
4870  RowBox[{"\<\"in total: \"\>",
4871   "\[InvisibleSpace]", "\<\"1 Generic, 36 Classes amplitudes\"\>"}],
4872  SequenceForm["in total: ", "1 Generic, 36 Classes amplitudes"],
4873  Editable->False]], "Print",
4874 CellChangeTimes->{3.6205336669452868`*^9}],
4875
4876Cell[BoxData["\<\"Writing amplitude finished after 168.689521\"\>"], "Print",
4877 CellChangeTimes->{3.620533666953887*^9}],
4878
4879Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4880after 183.577527\"\>"], "Print",
4881 CellChangeTimes->{3.620533681835874*^9}],
4882
4883Cell[BoxData["\<\"\"\>"], "Print",
4884 CellChangeTimes->{3.62053368183749*^9}],
4885
4886Cell[BoxData[
4887 InterpretationBox[
4888  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4889   RowBox[{"{",
4890    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4891  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4892  Editable->False]], "Print",
4893 CellChangeTimes->{3.620533681838736*^9}],
4894
4895Cell[BoxData[
4896 InterpretationBox[
4897  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4898   "\[InvisibleSpace]", "\<\": \"\>",
4899   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4900  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
4901  Editable->False]], "Print",
4902 CellChangeTimes->{3.620533681840024*^9}],
4903
4904Cell[BoxData[
4905 InterpretationBox[
4906  RowBox[{"\<\"in total: \"\>",
4907   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4908  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
4909  Editable->False]], "Print",
4910 CellChangeTimes->{3.620533681841354*^9}],
4911
4912Cell[BoxData["\<\"\"\>"], "Print",
4913 CellChangeTimes->{3.620533681842359*^9}],
4914
4915Cell[BoxData[
4916 InterpretationBox[
4917  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4918   RowBox[{"{",
4919    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4920  SequenceForm[
4921  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4922  Editable->False]], "Print",
4923 CellChangeTimes->{3.620533681843492*^9}],
4924
4925Cell[BoxData[
4926 InterpretationBox[
4927  RowBox[{"\<\"in total: \"\>",
4928   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
4929  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
4930  Editable->False]], "Print",
4931 CellChangeTimes->{3.620533681844942*^9}],
4932
4933Cell[BoxData["\<\"Writing the symbolic CT finished after 183.582008\"\>"], \
4934"Print",
4935 CellChangeTimes->{3.620533681846642*^9}],
4936
4937Cell[BoxData["\<\"SU3 algebra finished after 183.582377\"\>"], "Print",
4938 CellChangeTimes->{3.620533681847885*^9}],
4939
4940Cell[BoxData["\<\"Simpliication of the vertices finished after \
4941183.582448\"\>"], "Print",
4942 CellChangeTimes->{3.6205336818493156`*^9}],
4943
4944Cell[BoxData["\<\"Vertices {V, S, S} finished after 183.582613\"\>"], "Print",
4945 CellChangeTimes->{3.620533681850109*^9}],
4946
4947Cell[BoxData[
4948 StyleBox["\<\"Computing CT for the {S, S, S} vertices.\"\>",
4949  StripOnInput->False,
4950  LineColor->RGBColor[0, 0, 1],
4951  FrontFaceColor->RGBColor[0, 0, 1],
4952  BackFaceColor->RGBColor[0, 0, 1],
4953  GraphicsColor->RGBColor[0, 0, 1],
4954  FontColor->RGBColor[0, 0, 1]]], "Print",
4955 CellChangeTimes->{3.6205336818509703`*^9}],
4956
4957Cell[BoxData["\<\"\"\>"], "Print",
4958 CellChangeTimes->{3.6205336818517017`*^9}],
4959
4960Cell[BoxData[
4961 InterpretationBox[
4962  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4963   RowBox[{"{",
4964    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4965  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4966  Editable->False]], "Print",
4967 CellChangeTimes->{3.620533681852416*^9}],
4968
4969Cell[BoxData[
4970 InterpretationBox[
4971  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4972   "\[InvisibleSpace]", "\<\": \"\>",
4973   "\[InvisibleSpace]", "\<\"10 Generic, 473 Classes insertions\"\>"}],
4974  SequenceForm["> Top. ", 1, ": ", "10 Generic, 473 Classes insertions"],
4975  Editable->False]], "Print",
4976 CellChangeTimes->{3.620533683018244*^9}],
4977
4978Cell[BoxData[
4979 InterpretationBox[
4980  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4981   "\[InvisibleSpace]", "\<\": \"\>",
4982   "\[InvisibleSpace]", "\<\"2 Generic, 42 Classes insertions\"\>"}],
4983  SequenceForm["> Top. ", 2, ": ", "2 Generic, 42 Classes insertions"],
4984  Editable->False]], "Print",
4985 CellChangeTimes->{3.620533683121312*^9}],
4986
4987Cell[BoxData[
4988 InterpretationBox[
4989  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4990   "\[InvisibleSpace]", "\<\": \"\>",
4991   "\[InvisibleSpace]", "\<\"2 Generic, 42 Classes insertions\"\>"}],
4992  SequenceForm["> Top. ", 3, ": ", "2 Generic, 42 Classes insertions"],
4993  Editable->False]], "Print",
4994 CellChangeTimes->{3.620533683223481*^9}],
4995
4996Cell[BoxData[
4997 InterpretationBox[
4998  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4999   "\[InvisibleSpace]", "\<\": \"\>",
5000   "\[InvisibleSpace]", "\<\"2 Generic, 42 Classes insertions\"\>"}],
5001  SequenceForm["> Top. ", 4, ": ", "2 Generic, 42 Classes insertions"],
5002  Editable->False]], "Print",
5003 CellChangeTimes->{3.6205336833223886`*^9}],
5004
5005Cell[BoxData[
5006 InterpretationBox[
5007  RowBox[{"\<\"in total: \"\>",
5008   "\[InvisibleSpace]", "\<\"16 Generic, 599 Classes insertions\"\>"}],
5009  SequenceForm["in total: ", "16 Generic, 599 Classes insertions"],
5010  Editable->False]], "Print",
5011 CellChangeTimes->{3.620533683331945*^9}],
5012
5013Cell[BoxData["\<\"\"\>"], "Print",
5014 CellChangeTimes->{3.6205336835082817`*^9}],
5015
5016Cell[BoxData[
5017 InterpretationBox[
5018  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5019   RowBox[{"{",
5020    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5021  SequenceForm[
5022  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5023  Editable->False]], "Print",
5024 CellChangeTimes->{3.620533683509823*^9}],
5025
5026Cell[BoxData[
5027 InterpretationBox[
5028  RowBox[{"\<\"in total: \"\>",
5029   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
5030  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
5031  Editable->False]], "Print",
5032 CellChangeTimes->{3.620533683511209*^9}],
5033
5034Cell[BoxData["\<\"Writing amplitude finished after 185.251175\"\>"], "Print",
5035 CellChangeTimes->{3.6205336835124683`*^9}],
5036
5037Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
5038after 185.251303\"\>"], "Print",
5039 CellChangeTimes->{3.6205336835136223`*^9}],
5040
5041Cell[BoxData["\<\"\"\>"], "Print",
5042 CellChangeTimes->{3.620533683514435*^9}],
5043
5044Cell[BoxData[
5045 InterpretationBox[
5046  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5047   RowBox[{"{",
5048    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5049  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5050  Editable->False]], "Print",
5051 CellChangeTimes->{3.620533683515275*^9}],
5052
5053Cell[BoxData[
5054 InterpretationBox[
5055  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5056   "\[InvisibleSpace]", "\<\": \"\>",
5057   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
5058  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
5059  Editable->False]], "Print",
5060 CellChangeTimes->{3.620533683516129*^9}],
5061
5062Cell[BoxData[
5063 InterpretationBox[
5064  RowBox[{"\<\"in total: \"\>",
5065   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
5066  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
5067  Editable->False]], "Print",
5068 CellChangeTimes->{3.62053368351689*^9}],
5069
5070Cell[BoxData["\<\"\"\>"], "Print",
5071 CellChangeTimes->{3.6205336835176077`*^9}],
5072
5073Cell[BoxData[
5074 InterpretationBox[
5075  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5076   RowBox[{"{",
5077    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5078  SequenceForm[
5079  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5080  Editable->False]], "Print",
5081 CellChangeTimes->{3.620533683518322*^9}],
5082
5083Cell[BoxData[
5084 InterpretationBox[
5085  RowBox[{"\<\"in total: \"\>",
5086   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
5087  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
5088  Editable->False]], "Print",
5089 CellChangeTimes->{3.620533683519112*^9}],
5090
5091Cell[BoxData["\<\"Writing the symbolic CT finished after 185.255393\"\>"], \
5092"Print",
5093 CellChangeTimes->{3.620533683520059*^9}],
5094
5095Cell[BoxData["\<\"SU3 algebra finished after 185.255637\"\>"], "Print",
5096 CellChangeTimes->{3.620533683521029*^9}],
5097
5098Cell[BoxData["\<\"Simpliication of the vertices finished after \
5099185.255681\"\>"], "Print",
5100 CellChangeTimes->{3.620533683521985*^9}],
5101
5102Cell[BoxData["\<\"Vertices {S, S, S} finished after 185.255792\"\>"], "Print",
5103 CellChangeTimes->{3.620533683522743*^9}],
5104
5105Cell[BoxData[
5106 StyleBox["\<\"Computing CT for the {V, V, V, V} vertices.\"\>",
5107  StripOnInput->False,
5108  LineColor->RGBColor[0, 0, 1],
5109  FrontFaceColor->RGBColor[0, 0, 1],
5110  BackFaceColor->RGBColor[0, 0, 1],
5111  GraphicsColor->RGBColor[0, 0, 1],
5112  FontColor->RGBColor[0, 0, 1]]], "Print",
5113 CellChangeTimes->{3.620533683523828*^9}],
5114
5115Cell[BoxData["\<\"\"\>"], "Print",
5116 CellChangeTimes->{3.620533683579533*^9}],
5117
5118Cell[BoxData[
5119 InterpretationBox[
5120  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "11",
5121   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
5122ones)\"\>"}],
5123  SequenceForm[
5124  "Excluding ", 11, " field point(s) (incl. charge-conjugate ones)"],
5125  Editable->False]], "Print",
5126 CellChangeTimes->{3.620533683580632*^9}],
5127
5128Cell[BoxData["\<\"\"\>"], "Print",
5129 CellChangeTimes->{3.6205336835815687`*^9}],
5130
5131Cell[BoxData[
5132 InterpretationBox[
5133  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5134   RowBox[{"{",
5135    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5136  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5137  Editable->False]], "Print",
5138 CellChangeTimes->{3.620533683582945*^9}],
5139
5140Cell[BoxData[
5141 InterpretationBox[
5142  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5143   "\[InvisibleSpace]", "\<\": \"\>",
5144   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
5145  SequenceForm["> Top. ", 1, ": ", "2 Generic, 343 Classes insertions"],
5146  Editable->False]], "Print",
5147 CellChangeTimes->{3.620533684361886*^9}],
5148
5149Cell[BoxData[
5150 InterpretationBox[
5151  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
5152   "\[InvisibleSpace]", "\<\": \"\>",
5153   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
5154  SequenceForm["> Top. ", 2, ": ", "2 Generic, 343 Classes insertions"],
5155  Editable->False]], "Print",
5156 CellChangeTimes->{3.620533685172385*^9}],
5157
5158Cell[BoxData[
5159 InterpretationBox[
5160  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
5161   "\[InvisibleSpace]", "\<\": \"\>",
5162   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
5163  SequenceForm["> Top. ", 3, ": ", "2 Generic, 343 Classes insertions"],
5164  Editable->False]], "Print",
5165 CellChangeTimes->{3.620533685962914*^9}],
5166
5167Cell[BoxData[
5168 InterpretationBox[
5169  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
5170   "\[InvisibleSpace]", "\<\": \"\>",
5171   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
5172  SequenceForm["> Top. ", 4, ": ", "2 Generic, 343 Classes insertions"],
5173  Editable->False]], "Print",
5174 CellChangeTimes->{3.6205336867526903`*^9}],
5175
5176Cell[BoxData[
5177 InterpretationBox[
5178  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
5179   "\[InvisibleSpace]", "\<\": \"\>",
5180   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
5181  SequenceForm["> Top. ", 5, ": ", "2 Generic, 343 Classes insertions"],
5182  Editable->False]], "Print",
5183 CellChangeTimes->{3.620533687533038*^9}],
5184
5185Cell[BoxData[
5186 InterpretationBox[
5187  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
5188   "\[InvisibleSpace]", "\<\": \"\>",
5189   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
5190  SequenceForm["> Top. ", 6, ": ", "2 Generic, 343 Classes insertions"],
5191  Editable->False]], "Print",
5192 CellChangeTimes->{3.6205336883014507`*^9}],
5193
5194Cell[BoxData[
5195 InterpretationBox[
5196  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
5197   "\[InvisibleSpace]", "\<\": \"\>",
5198   "\[InvisibleSpace]", "\<\"4 Generic, 2673 Classes insertions\"\>"}],
5199  SequenceForm["> Top. ", 7, ": ", "4 Generic, 2673 Classes insertions"],
5200  Editable->False]], "Print",
5201 CellChangeTimes->{3.6205336966366177`*^9}],
5202
5203Cell[BoxData[
5204 InterpretationBox[
5205  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
5206   "\[InvisibleSpace]", "\<\": \"\>",
5207   "\[InvisibleSpace]", "\<\"4 Generic, 2673 Classes insertions\"\>"}],
5208  SequenceForm["> Top. ", 8, ": ", "4 Generic, 2673 Classes insertions"],
5209  Editable->False]], "Print",
5210 CellChangeTimes->{3.620533704438636*^9}],
5211
5212Cell[BoxData[
5213 InterpretationBox[
5214  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
5215   "\[InvisibleSpace]", "\<\": \"\>",
5216   "\[InvisibleSpace]", "\<\"4 Generic, 2673 Classes insertions\"\>"}],
5217  SequenceForm["> Top. ", 9, ": ", "4 Generic, 2673 Classes insertions"],
5218  Editable->False]], "Print",
5219 CellChangeTimes->{3.62053371333604*^9}],
5220
5221Cell[BoxData[
5222 InterpretationBox[
5223  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
5224   "\[InvisibleSpace]", "\<\": \"\>",
5225   "\[InvisibleSpace]", "\<\"2 Generic, 233 Classes insertions\"\>"}],
5226  SequenceForm["> Top. ", 10, ": ", "2 Generic, 233 Classes insertions"],
5227  Editable->False]], "Print",
5228 CellChangeTimes->{3.6205337138134604`*^9}],
5229
5230Cell[BoxData[
5231 InterpretationBox[
5232  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
5233   "\[InvisibleSpace]", "\<\": \"\>",
5234   "\[InvisibleSpace]", "\<\"2 Generic, 233 Classes insertions\"\>"}],
5235  SequenceForm["> Top. ", 11, ": ", "2 Generic, 233 Classes insertions"],
5236  Editable->False]], "Print",
5237 CellChangeTimes->{3.620533714295521*^9}],
5238
5239Cell[BoxData[
5240 InterpretationBox[
5241  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
5242   "\[InvisibleSpace]", "\<\": \"\>",
5243   "\[InvisibleSpace]", "\<\"2 Generic, 233 Classes insertions\"\>"}],
5244  SequenceForm["> Top. ", 12, ": ", "2 Generic, 233 Classes insertions"],
5245  Editable->False]], "Print",
5246 CellChangeTimes->{3.620533714775399*^9}],
5247
5248Cell[BoxData["\<\"\"\>"], "Print",
5249 CellChangeTimes->{3.620533714776513*^9}],
5250
5251Cell[BoxData[
5252 InterpretationBox[
5253  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "11",
5254   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
5255  SequenceForm["Restoring ", 11, " field point(s)"],
5256  Editable->False]], "Print",
5257 CellChangeTimes->{3.6205337147773447`*^9}],
5258
5259Cell[BoxData[
5260 InterpretationBox[
5261  RowBox[{"\<\"in total: \"\>",
5262   "\[InvisibleSpace]", "\<\"30 Generic, 10776 Classes insertions\"\>"}],
5263  SequenceForm["in total: ", "30 Generic, 10776 Classes insertions"],
5264  Editable->False]], "Print",
5265 CellChangeTimes->{3.6205337148257647`*^9}],
5266
5267Cell[BoxData["\<\"\"\>"], "Print",
5268 CellChangeTimes->{3.6205337192773027`*^9}],
5269
5270Cell[BoxData[
5271 InterpretationBox[
5272  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5273   RowBox[{"{",
5274    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5275  SequenceForm[
5276  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5277  Editable->False]], "Print",
5278 CellChangeTimes->{3.620533719279035*^9}],
5279
5280Cell[BoxData[
5281 InterpretationBox[
5282  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5283   "\[InvisibleSpace]", "\<\": \"\>",
5284   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5285  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
5286  Editable->False]], "Print",
5287 CellChangeTimes->{3.62053372023309*^9}],
5288
5289Cell[BoxData[
5290 InterpretationBox[
5291  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
5292   "\[InvisibleSpace]", "\<\": \"\>",
5293   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5294  SequenceForm["> Top. ", 2, ": ", "1 Generic, 1 Classes amplitudes"],
5295  Editable->False]], "Print",
5296 CellChangeTimes->{3.620533720243617*^9}],
5297
5298Cell[BoxData[
5299 InterpretationBox[
5300  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
5301   "\[InvisibleSpace]", "\<\": \"\>",
5302   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5303  SequenceForm["> Top. ", 3, ": ", "1 Generic, 1 Classes amplitudes"],
5304  Editable->False]], "Print",
5305 CellChangeTimes->{3.6205337202526293`*^9}],
5306
5307Cell[BoxData[
5308 InterpretationBox[
5309  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
5310   "\[InvisibleSpace]", "\<\": \"\>",
5311   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5312  SequenceForm["> Top. ", 4, ": ", "1 Generic, 1 Classes amplitudes"],
5313  Editable->False]], "Print",
5314 CellChangeTimes->{3.620533720261359*^9}],
5315
5316Cell[BoxData[
5317 InterpretationBox[
5318  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
5319   "\[InvisibleSpace]", "\<\": \"\>",
5320   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5321  SequenceForm["> Top. ", 5, ": ", "1 Generic, 1 Classes amplitudes"],
5322  Editable->False]], "Print",
5323 CellChangeTimes->{3.620533720262567*^9}],
5324
5325Cell[BoxData[
5326 InterpretationBox[
5327  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
5328   "\[InvisibleSpace]", "\<\": \"\>",
5329   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5330  SequenceForm["> Top. ", 6, ": ", "1 Generic, 1 Classes amplitudes"],
5331  Editable->False]], "Print",
5332 CellChangeTimes->{3.620533720272498*^9}],
5333
5334Cell[BoxData[
5335 InterpretationBox[
5336  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
5337   "\[InvisibleSpace]", "\<\": \"\>",
5338   "\[InvisibleSpace]", "\<\"3 Generic, 1273 Classes amplitudes\"\>"}],
5339  SequenceForm["> Top. ", 7, ": ", "3 Generic, 1273 Classes amplitudes"],
5340  Editable->False]], "Print",
5341 CellChangeTimes->{3.620533722718671*^9}],
5342
5343Cell[BoxData[
5344 InterpretationBox[
5345  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
5346   "\[InvisibleSpace]", "\<\": \"\>",
5347   "\[InvisibleSpace]", "\<\"3 Generic, 1273 Classes amplitudes\"\>"}],
5348  SequenceForm["> Top. ", 8, ": ", "3 Generic, 1273 Classes amplitudes"],
5349  Editable->False]], "Print",
5350 CellChangeTimes->{3.62053372524331*^9}],
5351
5352Cell[BoxData[
5353 InterpretationBox[
5354  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
5355   "\[InvisibleSpace]", "\<\": \"\>",
5356   "\[InvisibleSpace]", "\<\"3 Generic, 1273 Classes amplitudes\"\>"}],
5357  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1273 Classes amplitudes"],
5358  Editable->False]], "Print",
5359 CellChangeTimes->{3.620533727687091*^9}],
5360
5361Cell[BoxData[
5362 InterpretationBox[
5363  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
5364   "\[InvisibleSpace]", "\<\": \"\>",
5365   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5366  SequenceForm["> Top. ", 10, ": ", "1 Generic, 1 Classes amplitudes"],
5367  Editable->False]], "Print",
5368 CellChangeTimes->{3.620533727695869*^9}],
5369
5370Cell[BoxData[
5371 InterpretationBox[
5372  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
5373   "\[InvisibleSpace]", "\<\": \"\>",
5374   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5375  SequenceForm["> Top. ", 11, ": ", "1 Generic, 1 Classes amplitudes"],
5376  Editable->False]], "Print",
5377 CellChangeTimes->{3.6205337277057943`*^9}],
5378
5379Cell[BoxData[
5380 InterpretationBox[
5381  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
5382   "\[InvisibleSpace]", "\<\": \"\>",
5383   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5384  SequenceForm["> Top. ", 12, ": ", "1 Generic, 1 Classes amplitudes"],
5385  Editable->False]], "Print",
5386 CellChangeTimes->{3.620533727716604*^9}],
5387
5388Cell[BoxData[
5389 InterpretationBox[
5390  RowBox[{"\<\"in total: \"\>",
5391   "\[InvisibleSpace]", "\<\"18 Generic, 3828 Classes amplitudes\"\>"}],
5392  SequenceForm["in total: ", "18 Generic, 3828 Classes amplitudes"],
5393  Editable->False]], "Print",
5394 CellChangeTimes->{3.6205337277382708`*^9}],
5395
5396Cell[BoxData["\<\"Writing amplitude finished after 229.819788\"\>"], "Print",
5397 CellChangeTimes->{3.62053372807804*^9}],
5398
5399Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
5400after 240.748117\"\>"], "Print",
5401 CellChangeTimes->{3.620533739006413*^9}],
5402
5403Cell[BoxData["\<\"\"\>"], "Print",
5404 CellChangeTimes->{3.620533739517323*^9}],
5405
5406Cell[BoxData[
5407 InterpretationBox[
5408  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5409   RowBox[{"{",
5410    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5411  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5412  Editable->False]], "Print",
5413 CellChangeTimes->{3.6205337395183372`*^9}],
5414
5415Cell[BoxData[
5416 InterpretationBox[
5417  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5418   "\[InvisibleSpace]", "\<\": \"\>",
5419   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
5420  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes insertions"],
5421  Editable->False]], "Print",
5422 CellChangeTimes->{3.620533739519177*^9}],
5423
5424Cell[BoxData[
5425 InterpretationBox[
5426  RowBox[{"\<\"in total: \"\>",
5427   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
5428  SequenceForm["in total: ", "1 Generic, 1 Classes insertions"],
5429  Editable->False]], "Print",
5430 CellChangeTimes->{3.6205337395199623`*^9}],
5431
5432Cell[BoxData["\<\"\"\>"], "Print",
5433 CellChangeTimes->{3.6205337395207043`*^9}],
5434
5435Cell[BoxData[
5436 InterpretationBox[
5437  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5438   RowBox[{"{",
5439    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5440  SequenceForm[
5441  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5442  Editable->False]], "Print",
5443 CellChangeTimes->{3.6205337395214663`*^9}],
5444
5445Cell[BoxData[
5446 InterpretationBox[
5447  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5448   "\[InvisibleSpace]", "\<\": \"\>",
5449   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5450  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
5451  Editable->False]], "Print",
5452 CellChangeTimes->{3.620533739531476*^9}],
5453
5454Cell[BoxData[
5455 InterpretationBox[
5456  RowBox[{"\<\"in total: \"\>",
5457   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
5458  SequenceForm["in total: ", "1 Generic, 1 Classes amplitudes"],
5459  Editable->False]], "Print",
5460 CellChangeTimes->{3.6205337395331163`*^9}],
5461
5462Cell[BoxData["\<\"Writing the symbolic CT finished after 241.280124\"\>"], \
5463"Print",
5464 CellChangeTimes->{3.620533739542612*^9}],
5465
5466Cell[BoxData["\<\"SU3 algebra finished after 272.564270\"\>"], "Print",
5467 CellChangeTimes->{3.6205337708225117`*^9}],
5468
5469Cell[BoxData["\<\"Simpliication of the vertices finished after \
5470276.355951\"\>"], "Print",
5471 CellChangeTimes->{3.620533774614233*^9}],
5472
5473Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 276.356227\"\>"], \
5474"Print",
5475 CellChangeTimes->{3.620533774615472*^9}],
5476
5477Cell[BoxData[
5478 StyleBox["\<\"Computing CT for the {V, V, S, S} vertices.\"\>",
5479  StripOnInput->False,
5480  LineColor->RGBColor[0, 0, 1],
5481  FrontFaceColor->RGBColor[0, 0, 1],
5482  BackFaceColor->RGBColor[0, 0, 1],
5483  GraphicsColor->RGBColor[0, 0, 1],
5484  FontColor->RGBColor[0, 0, 1]]], "Print",
5485 CellChangeTimes->{3.62053377461658*^9}],
5486
5487Cell[BoxData["\<\"\"\>"], "Print",
5488 CellChangeTimes->{3.620533774633222*^9}],
5489
5490Cell[BoxData[
5491 InterpretationBox[
5492  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "11",
5493   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
5494ones)\"\>"}],
5495  SequenceForm[
5496  "Excluding ", 11, " field point(s) (incl. charge-conjugate ones)"],
5497  Editable->False]], "Print",
5498 CellChangeTimes->{3.620533774634218*^9}],
5499
5500Cell[BoxData["\<\"\"\>"], "Print",
5501 CellChangeTimes->{3.6205337746350603`*^9}],
5502
5503Cell[BoxData[
5504 InterpretationBox[
5505  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5506   RowBox[{"{",
5507    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5508  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5509  Editable->False]], "Print",
5510 CellChangeTimes->{3.620533774636633*^9}],
5511
5512Cell[BoxData[
5513 InterpretationBox[
5514  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5515   "\[InvisibleSpace]", "\<\": \"\>",
5516   "\[InvisibleSpace]", "\<\"2 Generic, 264 Classes insertions\"\>"}],
5517  SequenceForm["> Top. ", 1, ": ", "2 Generic, 264 Classes insertions"],
5518  Editable->False]], "Print",
5519 CellChangeTimes->{3.620533775282461*^9}],
5520
5521Cell[BoxData[
5522 InterpretationBox[
5523  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
5524   "\[InvisibleSpace]", "\<\": \"\>",
5525   "\[InvisibleSpace]", "\<\"2 Generic, 326 Classes insertions\"\>"}],
5526  SequenceForm["> Top. ", 2, ": ", "2 Generic, 326 Classes insertions"],
5527  Editable->False]], "Print",
5528 CellChangeTimes->{3.620533776006898*^9}],
5529
5530Cell[BoxData[
5531 InterpretationBox[
5532  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
5533   "\[InvisibleSpace]", "\<\": \"\>",
5534   "\[InvisibleSpace]", "\<\"2 Generic, 326 Classes insertions\"\>"}],
5535  SequenceForm["> Top. ", 3, ": ", "2 Generic, 326 Classes insertions"],
5536  Editable->False]], "Print",
5537 CellChangeTimes->{3.6205337767844973`*^9}],
5538
5539Cell[BoxData[
5540 InterpretationBox[
5541  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
5542   "\[InvisibleSpace]", "\<\": \"\>",
5543   "\[InvisibleSpace]", "\<\"2 Generic, 326 Classes insertions\"\>"}],
5544  SequenceForm["> Top. ", 4, ": ", "2 Generic, 326 Classes insertions"],
5545  Editable->False]], "Print",
5546 CellChangeTimes->{3.620533777545149*^9}],
5547
5548Cell[BoxData[
5549 InterpretationBox[
5550  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
5551   "\[InvisibleSpace]", "\<\": \"\>",
5552   "\[InvisibleSpace]", "\<\"2 Generic, 326 Classes insertions\"\>"}],
5553  SequenceForm["> Top. ", 5, ": ", "2 Generic, 326 Classes insertions"],
5554  Editable->False]], "Print",
5555 CellChangeTimes->{3.6205337783374434`*^9}],
5556
5557Cell[BoxData[
5558 InterpretationBox[
5559  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
5560   "\[InvisibleSpace]", "\<\": \"\>",
5561   "\[InvisibleSpace]", "\<\"2 Generic, 378 Classes insertions\"\>"}],
5562  SequenceForm["> Top. ", 6, ": ", "2 Generic, 378 Classes insertions"],
5563  Editable->False]], "Print",
5564 CellChangeTimes->{3.620533779233583*^9}],
5565
5566Cell[BoxData[
5567 InterpretationBox[
5568  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
5569   "\[InvisibleSpace]", "\<\": \"\>",
5570   "\[InvisibleSpace]", "\<\"4 Generic, 1140 Classes insertions\"\>"}],
5571  SequenceForm["> Top. ", 7, ": ", "4 Generic, 1140 Classes insertions"],
5572  Editable->False]], "Print",
5573 CellChangeTimes->{3.6205337849771547`*^9}],
5574
5575Cell[BoxData[
5576 InterpretationBox[
5577  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
5578   "\[InvisibleSpace]", "\<\": \"\>",
5579   "\[InvisibleSpace]", "\<\"4 Generic, 1140 Classes insertions\"\>"}],
5580  SequenceForm["> Top. ", 8, ": ", "4 Generic, 1140 Classes insertions"],
5581  Editable->False]], "Print",
5582 CellChangeTimes->{3.620533790722015*^9}],
5583
5584Cell[BoxData[
5585 InterpretationBox[
5586  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
5587   "\[InvisibleSpace]", "\<\": \"\>",
5588   "\[InvisibleSpace]", "\<\"4 Generic, 1116 Classes insertions\"\>"}],
5589  SequenceForm["> Top. ", 9, ": ", "4 Generic, 1116 Classes insertions"],
5590  Editable->False]], "Print",
5591 CellChangeTimes->{3.620533795280583*^9}],
5592
5593Cell[BoxData[
5594 InterpretationBox[
5595  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
5596   "\[InvisibleSpace]", "\<\": \"\>",
5597   "\[InvisibleSpace]", "\<\"2 Generic, 184 Classes insertions\"\>"}],
5598  SequenceForm["> Top. ", 10, ": ", "2 Generic, 184 Classes insertions"],
5599  Editable->False]], "Print",
5600 CellChangeTimes->{3.6205337956993837`*^9}],
5601
5602Cell[BoxData[
5603 InterpretationBox[
5604  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
5605   "\[InvisibleSpace]", "\<\": \"\>",
5606   "\[InvisibleSpace]", "\<\"1 Generic, 178 Classes insertions\"\>"}],
5607  SequenceForm["> Top. ", 11, ": ", "1 Generic, 178 Classes insertions"],
5608  Editable->False]], "Print",
5609 CellChangeTimes->{3.620533795938168*^9}],
5610
5611Cell[BoxData[
5612 InterpretationBox[
5613  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
5614   "\[InvisibleSpace]", "\<\": \"\>",
5615   "\[InvisibleSpace]", "\<\"1 Generic, 178 Classes insertions\"\>"}],
5616  SequenceForm["> Top. ", 12, ": ", "1 Generic, 178 Classes insertions"],
5617  Editable->False]], "Print",
5618 CellChangeTimes->{3.620533796175745*^9}],
5619
5620Cell[BoxData["\<\"\"\>"], "Print",
5621 CellChangeTimes->{3.620533796176793*^9}],
5622
5623Cell[BoxData[
5624 InterpretationBox[
5625  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "11",
5626   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
5627  SequenceForm["Restoring ", 11, " field point(s)"],
5628  Editable->False]], "Print",
5629 CellChangeTimes->{3.620533796177603*^9}],
5630
5631Cell[BoxData[
5632 InterpretationBox[
5633  RowBox[{"\<\"in total: \"\>",
5634   "\[InvisibleSpace]", "\<\"28 Generic, 5882 Classes insertions\"\>"}],
5635  SequenceForm["in total: ", "28 Generic, 5882 Classes insertions"],
5636  Editable->False]], "Print",
5637 CellChangeTimes->{3.620533796199144*^9}],
5638
5639Cell[BoxData["\<\"\"\>"], "Print",
5640 CellChangeTimes->{3.620533798344635*^9}],
5641
5642Cell[BoxData[
5643 InterpretationBox[
5644  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5645   RowBox[{"{",
5646    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5647  SequenceForm[
5648  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5649  Editable->False]], "Print",
5650 CellChangeTimes->{3.6205337983461123`*^9}],
5651
5652Cell[BoxData[
5653 InterpretationBox[
5654  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5655   "\[InvisibleSpace]", "\<\": \"\>",
5656   "\[InvisibleSpace]", "\<\"1 Generic, 212 Classes amplitudes\"\>"}],
5657  SequenceForm["> Top. ", 1, ": ", "1 Generic, 212 Classes amplitudes"],
5658  Editable->False]], "Print",
5659 CellChangeTimes->{3.62053379888757*^9}],
5660
5661Cell[BoxData[
5662 InterpretationBox[
5663  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
5664   "\[InvisibleSpace]", "\<\": \"\>",
5665   "\[InvisibleSpace]", "\<\"1 Generic, 212 Classes amplitudes\"\>"}],
5666  SequenceForm["> Top. ", 2, ": ", "1 Generic, 212 Classes amplitudes"],
5667  Editable->False]], "Print",
5668 CellChangeTimes->{3.620533799268561*^9}],
5669
5670Cell[BoxData[
5671 InterpretationBox[
5672  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
5673   "\[InvisibleSpace]", "\<\": \"\>",
5674   "\[InvisibleSpace]", "\<\"1 Generic, 212 Classes amplitudes\"\>"}],
5675  SequenceForm["> Top. ", 3, ": ", "1 Generic, 212 Classes amplitudes"],
5676  Editable->False]], "Print",
5677 CellChangeTimes->{3.6205337996404*^9}],
5678
5679Cell[BoxData[
5680 InterpretationBox[
5681  RowBox[{"\<\"in total: \"\>",
5682   "\[InvisibleSpace]", "\<\"3 Generic, 636 Classes amplitudes\"\>"}],
5683  SequenceForm["in total: ", "3 Generic, 636 Classes amplitudes"],
5684  Editable->False]], "Print",
5685 CellChangeTimes->{3.6205337996495047`*^9}],
5686
5687Cell[BoxData["\<\"Writing amplitude finished after 301.456067\"\>"], "Print",
5688 CellChangeTimes->{3.6205337997143917`*^9}],
5689
5690Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
5691after 301.845155\"\>"], "Print",
5692 CellChangeTimes->{3.620533800103403*^9}],
5693
5694Cell[BoxData["\<\"\"\>"], "Print",
5695 CellChangeTimes->{3.620533800131535*^9}],
5696
5697Cell[BoxData[
5698 InterpretationBox[
5699  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5700   RowBox[{"{",
5701    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5702  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5703  Editable->False]], "Print",
5704 CellChangeTimes->{3.620533800132568*^9}],
5705
5706Cell[BoxData[
5707 InterpretationBox[
5708  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5709   "\[InvisibleSpace]", "\<\": \"\>",
5710   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
5711  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
5712  Editable->False]], "Print",
5713 CellChangeTimes->{3.6205338001334333`*^9}],
5714
5715Cell[BoxData[
5716 InterpretationBox[
5717  RowBox[{"\<\"in total: \"\>",
5718   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
5719  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
5720  Editable->False]], "Print",
5721 CellChangeTimes->{3.62053380013428*^9}],
5722
5723Cell[BoxData["\<\"\"\>"], "Print",
5724 CellChangeTimes->{3.6205338001350307`*^9}],
5725
5726Cell[BoxData[
5727 InterpretationBox[
5728  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5729   RowBox[{"{",
5730    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5731  SequenceForm[
5732  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5733  Editable->False]], "Print",
5734 CellChangeTimes->{3.620533800135762*^9}],
5735
5736Cell[BoxData[
5737 InterpretationBox[
5738  RowBox[{"\<\"in total: \"\>",
5739   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
5740  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
5741  Editable->False]], "Print",
5742 CellChangeTimes->{3.620533800136541*^9}],
5743
5744Cell[BoxData["\<\"Writing the symbolic CT finished after 301.875579\"\>"], \
5745"Print",
5746 CellChangeTimes->{3.620533800137289*^9}],
5747
5748Cell[BoxData["\<\"SU3 algebra finished after 302.006212\"\>"], "Print",
5749 CellChangeTimes->{3.620533800264456*^9}],
5750
5751Cell[BoxData["\<\"Simpliication of the vertices finished after \
5752302.111518\"\>"], "Print",
5753 CellChangeTimes->{3.620533800369741*^9}],
5754
5755Cell[BoxData["\<\"Vertices {V, V, S, S} finished after 302.111719\"\>"], \
5756"Print",
5757 CellChangeTimes->{3.6205338003707733`*^9}],
5758
5759Cell[BoxData["\<\"before merge 302.113002 temp=175.721392\"\>"], "Print",
5760 CellChangeTimes->{3.6205338003715487`*^9}],
5761
5762Cell[BoxData["\<\"merging done 302.139319\"\>"], "Print",
5763 CellChangeTimes->{3.6205338003975058`*^9}],
5764
5765Cell[BoxData[
5766 StyleBox["\<\"The finite part of those counterterms will be set to zero\"\>",
5767 
5768  StripOnInput->False,
5769  LineColor->RGBColor[1, 0.5, 0],
5770  FrontFaceColor->RGBColor[1, 0.5, 0],
5771  BackFaceColor->RGBColor[1, 0.5, 0],
5772  GraphicsColor->RGBColor[1, 0.5, 0],
5773  FontColor->RGBColor[1, 0.5, 0]]], "Print",
5774 CellChangeTimes->{3.620533800398593*^9}],
5775
5776Cell[BoxData[
5777 RowBox[{"{",
5778  RowBox[{"FR$delta", "[",
5779   RowBox[{
5780    RowBox[{"{", "aS", "}"}], ",",
5781    RowBox[{"{", "}"}]}], "]"}], "}"}]], "Print",
5782 CellChangeTimes->{3.620533800400016*^9}],
5783
5784Cell[BoxData["\<\"Writing R2 and UV counterterms from Tutorial/Tutorial and \
5785<>gen<> in Tutorial.nlo\"\>"], "Print",
5786 CellChangeTimes->{3.620533800518791*^9}],
5787
5788Cell[BoxData["\<\"done\"\>"], "Print",
5789 CellChangeTimes->{3.620533800575181*^9}]
5790}, Closed]],
5791
5792Cell[BoxData[
5793 RowBox[{"{",
5794  RowBox[{
5795  "303.1719630000000051950337365269660949707`8.502288949034503", ",",
5796   "Null"}], "}"}]], "Output",
5797 CellChangeTimes->{3.620533800584907*^9}]
5798}, Open  ]]
5799}, Open  ]],
5800
5801Cell[CellGroupData[{
5802
5803Cell["UFO at NLO", "Section",
5804 CellChangeTimes->{{3.620533176529969*^9, 3.6205331847695503`*^9}, {
5805  3.620534280759412*^9, 3.620534283350081*^9}}],
5806
5807Cell[BoxData[
5808 RowBox[{"Quit", "[", "]"}]], "Input",
5809 CellChangeTimes->{{3.620533308839384*^9, 3.620533310452351*^9}}],
5810
5811Cell[BoxData[
5812 RowBox[{"(*",
5813  RowBox[{
5814  "Reload", " ", "FR", " ", "and", " ", "the", " ", "model", " ", "first"}],
5815  "*)"}]], "Input",
5816 CellChangeTimes->{{3.620534290616774*^9, 3.620534303536079*^9}, {
5817  3.620534341493823*^9, 3.62053434272582*^9}}],
5818
5819Cell[BoxData[{
5820 RowBox[{
5821  RowBox[{"SetDirectory", "[", "\"\<~/Talks/TASI2013/\>\"", "]"}],
5822  ";"}], "\[IndentingNewLine]",
5823 RowBox[{"Get", "[", "\"\<Tutorial.nlo\>\"", "]"}]}], "Input",
5824 CellChangeTimes->{{3.620533328891531*^9, 3.6205334461637373`*^9}, {
5825   3.62053349209654*^9, 3.620533494710122*^9}, {3.620534319382976*^9,
5826   3.620534334806525*^9}, 3.620534389894402*^9}],
5827
5828Cell[CellGroupData[{
5829
5830Cell[BoxData[
5831 RowBox[{
5832  RowBox[{"WriteUFO", "[",
5833   RowBox[{
5834    RowBox[{"LSM", "+", "LNew"}], ",",
5835    RowBox[{"Output", "\[Rule]", "\"\<Tutorial_NLO\>\""}], ",",
5836    RowBox[{"R2Vertices", "->", "R2$vertlist"}], ",", " ",
5837    RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}]}], "]"}], "//",
5838  "Timing"}]], "Input",
5839 CellChangeTimes->{{3.620534394253208*^9, 3.620534454492098*^9}}],
5840
5841Cell[CellGroupData[{
5842
5843Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
5844"Print",
5845 CellChangeTimes->{3.6205344646208677`*^9}],
5846
5847Cell[BoxData[
5848 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
5849  StripOnInput->False,
5850  LineColor->RGBColor[1, 0.5, 0],
5851  FrontFaceColor->RGBColor[1, 0.5, 0],
5852  BackFaceColor->RGBColor[1, 0.5, 0],
5853  GraphicsColor->RGBColor[1, 0.5, 0],
5854  FontWeight->Bold,
5855  FontColor->RGBColor[1, 0.5, 0]]], "Print",
5856 CellChangeTimes->{3.620534465045022*^9}],
5857
5858Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
5859 CellChangeTimes->{3.620534465047619*^9}],
5860
5861Cell[BoxData[
5862 InterpretationBox[
5863  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
5864   "\[InvisibleSpace]", "\<\" cores\"\>"}],
5865  SequenceForm["Expanding the indices over ", 4, " cores"],
5866  Editable->False]], "Print",
5867 CellChangeTimes->{3.620534465048986*^9}],
5868
5869Cell[BoxData["\<\"Collecting the different structures that enter the \
5870vertex.\"\>"], "Print",
5871 CellChangeTimes->{3.620534469878598*^9}],
5872
5873Cell[BoxData[
5874 InterpretationBox[
5875  RowBox[{
5876  "111", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
5877found -> starting the computation: \"\>", "\[InvisibleSpace]",
5878   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
5879    ImageSizeCache->{32., {0., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5880   "\[InvisibleSpace]", "111", "\[InvisibleSpace]", "\<\".\"\>"}],
5881  SequenceForm[
5882  111, " possible non-zero vertices have been found -> starting the \
5883computation: ",
5884   Dynamic[FeynRules`FR$FeynmanRules], " / ", 111, "."],
5885  Editable->False]], "Print",
5886 CellChangeTimes->{3.620534469937046*^9}],
5887
5888Cell[BoxData[
5889 InterpretationBox[
5890  RowBox[{"106", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
5891  SequenceForm[106, " vertices obtained."],
5892  Editable->False]], "Print",
5893 CellChangeTimes->{3.6205344735966053`*^9}],
5894
5895Cell[BoxData[
5896 InterpretationBox[
5897  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
5898   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
5899   "\[InvisibleSpace]",
5900   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
5901    ImageSizeCache->{32., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5902   "\[InvisibleSpace]", "157"}],
5903  SequenceForm[
5904  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
5905   Dynamic[FeynRules`FR$Count1], " / ", 157],
5906  Editable->False]], "Print",
5907 CellChangeTimes->{3.620534482025218*^9}],
5908
5909Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
5910 CellChangeTimes->{3.620534494595025*^9}]
5911}, Open  ]],
5912
5913Cell[BoxData[
5914 RowBox[{
5915  StyleBox[
5916   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
5917  RowBox[{
5918  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
5919\"\>"}]], "Message", "MSG",
5920 CellChangeTimes->{3.6205344948040543`*^9}],
5921
5922Cell[BoxData[
5923 InterpretationBox[
5924  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
5925   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
5926   "\[InvisibleSpace]",
5927   RowBox[{"{",
5928    RowBox[{"p2", ",",
5929     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}],
5930   "\[InvisibleSpace]", "\<\".\"\>"}],
5931  SequenceForm[
5932  "Quantum number ", $CellContext`LeptonNumber,
5933   " not conserved in vertex ", {$CellContext`p2, $CellContext`ebar, \
5934$CellContext`ev}, "."],
5935  Editable->False]], "Print",
5936 CellChangeTimes->{3.620534494806263*^9}],
5937
5938Cell[BoxData[
5939 RowBox[{
5940  StyleBox[
5941   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
5942  RowBox[{
5943  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
5944\"\>"}]], "Message", "MSG",
5945 CellChangeTimes->{3.620534494906015*^9}],
5946
5947Cell[BoxData[
5948 InterpretationBox[
5949  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
5950   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
5951   "\[InvisibleSpace]",
5952   RowBox[{"{",
5953    RowBox[{"p2", ",",
5954     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}],
5955   "\[InvisibleSpace]", "\<\".\"\>"}],
5956  SequenceForm[
5957  "Quantum number ", FeynRules`Y,
5958   " not conserved in vertex ", {$CellContext`p2, $CellContext`ebar, \
5959$CellContext`ev}, "."],
5960  Editable->False]], "Print",
5961 CellChangeTimes->{3.6205344949072657`*^9}],
5962
5963Cell[BoxData[
5964 RowBox[{
5965  StyleBox[
5966   RowBox[{"QN", "::", "NonConserv"}], "MessageName"],
5967  RowBox[{
5968  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
5969\"\>"}]], "Message", "MSG",
5970 CellChangeTimes->{3.620534495001082*^9}],
5971
5972Cell[BoxData[
5973 RowBox[{
5974  StyleBox[
5975   RowBox[{"General", "::", "stop"}], "MessageName"],
5976  RowBox[{
5977  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
5978NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
5979this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
5980ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
5981ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
5982\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
5983 CellChangeTimes->{3.620534495017672*^9}],
5984
5985Cell[CellGroupData[{
5986
5987Cell[BoxData[
5988 InterpretationBox[
5989  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
5990   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
5991   "\[InvisibleSpace]",
5992   RowBox[{"{",
5993    RowBox[{"p1", ",",
5994     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}],
5995   "\[InvisibleSpace]", "\<\".\"\>"}],
5996  SequenceForm[
5997  "Quantum number ", $CellContext`LeptonNumber,
5998   " not conserved in vertex ", {$CellContext`p1, $CellContext`ebar, \
5999$CellContext`ev}, "."],
6000  Editable->False]], "Print",
6001 CellChangeTimes->{3.62053449501998*^9}],
6002
6003Cell[BoxData[
6004 InterpretationBox[
6005  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
6006   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
6007   "\[InvisibleSpace]",
6008   RowBox[{"{",
6009    RowBox[{"p1", ",",
6010     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}],
6011   "\[InvisibleSpace]", "\<\".\"\>"}],
6012  SequenceForm[
6013  "Quantum number ", FeynRules`Y,
6014   " not conserved in vertex ", {$CellContext`p1, $CellContext`ebar, \
6015$CellContext`ev}, "."],
6016  Editable->False]], "Print",
6017 CellChangeTimes->{3.6205344950213614`*^9}],
6018
6019Cell[BoxData[
6020 InterpretationBox[
6021  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
6022   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
6023   "\[InvisibleSpace]",
6024   RowBox[{"{",
6025    RowBox[{"p2", ",",
6026     OverscriptBox["t", "\<\"-\"\>"], ",", "uv"}], "}"}],
6027   "\[InvisibleSpace]", "\<\".\"\>"}],
6028  SequenceForm[
6029  "Quantum number ", FeynRules`Y,
6030   " not conserved in vertex ", {$CellContext`p2, $CellContext`tbar, \
6031$CellContext`uv}, "."],
6032  Editable->False]], "Print",
6033 CellChangeTimes->{3.620534495022952*^9}],
6034
6035Cell[BoxData[
6036 InterpretationBox[
6037  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
6038   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
6039   "\[InvisibleSpace]",
6040   RowBox[{"{",
6041    RowBox[{"p1", ",",
6042     OverscriptBox["t", "\<\"-\"\>"], ",", "uv"}], "}"}],
6043   "\[InvisibleSpace]", "\<\".\"\>"}],
6044  SequenceForm[
6045  "Quantum number ", FeynRules`Y,
6046   " not conserved in vertex ", {$CellContext`p1, $CellContext`tbar, \
6047$CellContext`uv}, "."],
6048  Editable->False]], "Print",
6049 CellChangeTimes->{3.6205344950238113`*^9}],
6050
6051Cell[BoxData[
6052 InterpretationBox[
6053  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
6054   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
6055   "\[InvisibleSpace]",
6056   RowBox[{"{",
6057    RowBox[{"p1", ",",
6058     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}],
6059   "\[InvisibleSpace]", "\<\".\"\>"}],
6060  SequenceForm[
6061  "Quantum number ", $CellContext`LeptonNumber,
6062   " not conserved in vertex ", {$CellContext`p1, $CellContext`evbar,
6063    FeynRules`e}, "."],
6064  Editable->False]], "Print",
6065 CellChangeTimes->{3.620534495024641*^9}],
6066
6067Cell[BoxData[
6068 InterpretationBox[
6069  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
6070   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
6071   "\[InvisibleSpace]",
6072   RowBox[{"{",
6073    RowBox[{"p1", ",",
6074     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}],
6075   "\[InvisibleSpace]", "\<\".\"\>"}],
6076  SequenceForm[
6077  "Quantum number ", FeynRules`Y,
6078   " not conserved in vertex ", {$CellContext`p1, $CellContext`evbar,
6079    FeynRules`e}, "."],
6080  Editable->False]], "Print",
6081 CellChangeTimes->{3.620534495025477*^9}],
6082
6083Cell[BoxData[
6084 InterpretationBox[
6085  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber",
6086   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
6087   "\[InvisibleSpace]",
6088   RowBox[{"{",
6089    RowBox[{"p2", ",",
6090     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}],
6091   "\[InvisibleSpace]", "\<\".\"\>"}],
6092  SequenceForm[
6093  "Quantum number ", $CellContext`LeptonNumber,
6094   " not conserved in vertex ", {$CellContext`p2, $CellContext`evbar,
6095    FeynRules`e}, "."],
6096  Editable->False]], "Print",
6097 CellChangeTimes->{3.620534495026401*^9}],
6098
6099Cell[BoxData[
6100 InterpretationBox[
6101  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
6102   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
6103   "\[InvisibleSpace]",
6104   RowBox[{"{",
6105    RowBox[{"p2", ",",
6106     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}],
6107   "\[InvisibleSpace]", "\<\".\"\>"}],
6108  SequenceForm[
6109  "Quantum number ", FeynRules`Y,
6110   " not conserved in vertex ", {$CellContext`p2, $CellContext`evbar,
6111    FeynRules`e}, "."],
6112  Editable->False]], "Print",
6113 CellChangeTimes->{3.62053449502733*^9}],
6114
6115Cell[BoxData[
6116 InterpretationBox[
6117  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
6118   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
6119   "\[InvisibleSpace]",
6120   RowBox[{"{",
6121    RowBox[{"p1", ",",
6122     OverscriptBox["uv", "\<\"-\"\>"], ",", "t"}], "}"}],
6123   "\[InvisibleSpace]", "\<\".\"\>"}],
6124  SequenceForm[
6125  "Quantum number ", FeynRules`Y,
6126   " not conserved in vertex ", {$CellContext`p1, $CellContext`uvbar,
6127    FeynRules`t}, "."],
6128  Editable->False]], "Print",
6129 CellChangeTimes->{3.6205344950282087`*^9}],
6130
6131Cell[BoxData[
6132 InterpretationBox[
6133  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y",
6134   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>",
6135   "\[InvisibleSpace]",
6136   RowBox[{"{",
6137    RowBox[{"p2", ",",
6138     OverscriptBox["uv", "\<\"-\"\>"], ",", "t"}], "}"}],
6139   "\[InvisibleSpace]", "\<\".\"\>"}],
6140  SequenceForm[
6141  "Quantum number ", FeynRules`Y,
6142   " not conserved in vertex ", {$CellContext`p2, $CellContext`uvbar,
6143    FeynRules`t}, "."],
6144  Editable->False]], "Print",
6145 CellChangeTimes->{3.620534495029035*^9}],
6146
6147Cell[BoxData["True"], "Print",
6148 CellChangeTimes->{3.620534495029829*^9}],
6149
6150Cell[BoxData[
6151 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
6152decays: \"\>",
6153  StripOnInput->False,
6154  LineColor->RGBColor[1, 0.5, 0],
6155  FrontFaceColor->RGBColor[1, 0.5, 0],
6156  BackFaceColor->RGBColor[1, 0.5, 0],
6157  GraphicsColor->RGBColor[1, 0.5, 0],
6158  FontWeight->Bold,
6159  FontColor->RGBColor[1, 0.5, 0]]], "Print",
6160 CellChangeTimes->{3.620534495437851*^9}],
6161
6162Cell[BoxData[
6163 InterpretationBox[
6164  RowBox[{
6165   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
6166    ImageSizeCache->{11., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6167   "\[InvisibleSpace]", "51"}],
6168  SequenceForm[
6169   Dynamic[PRIVATE`mycounter], " / ", 51],
6170  Editable->False]], "Print",
6171 CellChangeTimes->{3.620534495471126*^9}],
6172
6173Cell[BoxData[
6174 InterpretationBox[
6175  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
6176   "3.13619300000000000849809111969079822302`6.517002694414432",
6177   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
6178  SequenceForm[
6179  "Squared matrix elent compute in ",
6180   3.13619300000000000849809111969079822302`6.517002694414432, " seconds."],
6181  Editable->False]], "Print",
6182 CellChangeTimes->{3.62053449997904*^9}],
6183
6184Cell[BoxData[
6185 InterpretationBox[
6186  RowBox[{
6187   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
6188    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6189   "\[InvisibleSpace]", "43"}],
6190  SequenceForm[
6191   Dynamic[PRIVATE`mycounter], " / ", 43],
6192  Editable->False]], "Print",
6193 CellChangeTimes->{3.6205344999816103`*^9}],
6194
6195Cell[BoxData[
6196 InterpretationBox[
6197  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
6198   "0.31818299999999999361222080551669932902`5.523276885562469",
6199   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
6200  SequenceForm[
6201  "Decay widths computed in ",
6202   0.31818299999999999361222080551669932902`5.523276885562469, " seconds."],
6203  Editable->False]], "Print",
6204 CellChangeTimes->{3.62053450039828*^9}],
6205
6206Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
6207 CellChangeTimes->{3.620534500400313*^9}],
6208
6209Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
6210"Print",
6211 CellChangeTimes->{3.620534501404196*^9}],
6212
6213Cell[BoxData[
6214 InterpretationBox[
6215  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
6216   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
6217  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
6218  Editable->False]], "Print",
6219 CellChangeTimes->{3.6205345020248327`*^9}],
6220
6221Cell[BoxData[
6222 InterpretationBox[
6223  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
6224   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
6225    ImageSizeCache->{32., {1., 12.}}], "\[InvisibleSpace]", "\<\"/\"\>",
6226   "\[InvisibleSpace]", "153", "\[InvisibleSpace]", "\<\" .\"\>"}],
6227  SequenceForm["    - Optimizing: ",
6228   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 153, " ."],
6229  Editable->False]], "Print",
6230 CellChangeTimes->{3.620534510106934*^9}],
6231
6232Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
6233 CellChangeTimes->{3.620534511389001*^9}],
6234
6235Cell[BoxData["\<\"Done!\"\>"], "Print",
6236 CellChangeTimes->{3.620534511865128*^9}]
6237}, Open  ]],
6238
6239Cell[BoxData[
6240 RowBox[{"{",
6241  RowBox[{
6242  "42.92346799999999973351805238053202629089`7.653294716797619", ",",
6243   "Null"}], "}"}]], "Output",
6244 CellChangeTimes->{3.6205345118739*^9}]
6245}, Open  ]]
6246}, Closed]]
6247}, Open  ]]
6248}, Open  ]]
6249},
6250WindowSize->{800, 552},
6251WindowMargins->{{0, Automatic}, {Automatic, 0}},
6252PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
6253ShowSelection->True,
6254Magnification:>FEPrivate`If[
6255  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
6256FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
62572013)",
6258StyleDefinitions->"Default.nb"
6259]
6260(* End of Notebook Content *)
6261
6262(* Internal cache information *)
6263(*CellTagsOutline
6264CellTagsIndex->{}
6265*)
6266(*CellTagsIndex
6267CellTagsIndex->{}
6268*)
6269(*NotebookFileOutline
6270Notebook[{
6271Cell[CellGroupData[{
6272Cell[422, 15, 122, 2, 137, "Title"],
6273Cell[547, 19, 122, 2, 43, "Input"],
6274Cell[CellGroupData[{
6275Cell[694, 25, 104, 1, 119, "Section"],
6276Cell[CellGroupData[{
6277Cell[823, 30, 566, 10, 69, "Input"],
6278Cell[1392, 42, 910, 13, 43, "Output"]
6279}, Open  ]],
6280Cell[CellGroupData[{
6281Cell[2339, 60, 124, 2, 43, "Input"],
6282Cell[CellGroupData[{
6283Cell[2488, 66, 911, 13, 30, "Print"],
6284Cell[3402, 81, 1182, 20, 30, "Print"],
6285Cell[4587, 103, 963, 14, 54, "Print"],
6286Cell[5553, 119, 897, 13, 30, "Print"],
6287Cell[6453, 134, 908, 13, 30, "Print"],
6288Cell[7364, 149, 918, 13, 30, "Print"],
6289Cell[8285, 164, 960, 14, 54, "Print"],
6290Cell[9248, 180, 899, 13, 30, "Print"],
6291Cell[10150, 195, 929, 13, 30, "Print"],
6292Cell[11082, 210, 897, 13, 30, "Print"],
6293Cell[11982, 225, 964, 14, 54, "Print"]
6294}, Open  ]]
6295}, Open  ]]
6296}, Open  ]],
6297Cell[CellGroupData[{
6298Cell[13007, 246, 102, 1, 119, "Section"],
6299Cell[CellGroupData[{
6300Cell[13134, 251, 722, 11, 43, "Input"],
6301Cell[13859, 264, 906, 13, 43, "Output"]
6302}, Open  ]],
6303Cell[CellGroupData[{
6304Cell[14802, 282, 397, 7, 43, "Input"],
6305Cell[CellGroupData[{
6306Cell[15224, 293, 856, 12, 30, "Print"],
6307Cell[16083, 307, 874, 12, 30, "Print"],
6308Cell[16960, 321, 841, 12, 30, "Print"],
6309Cell[17804, 335, 980, 16, 30, "Print"],
6310Cell[18787, 353, 882, 13, 30, "Print"],
6311Cell[19672, 368, 834, 12, 30, "Print"],
6312Cell[20509, 382, 866, 12, 30, "Print"],
6313Cell[21378, 396, 867, 12, 30, "Print"],
6314Cell[22248, 410, 867, 12, 30, "Print"],
6315Cell[23118, 424, 1034, 17, 54, "Print"]
6316}, Open  ]]
6317}, Open  ]],
6318Cell[24179, 445, 210, 5, 105, "Text"],
6319Cell[CellGroupData[{
6320Cell[24414, 454, 200, 4, 43, "Input"],
6321Cell[CellGroupData[{
6322Cell[24639, 462, 1202, 20, 30, "Print"],
6323Cell[25844, 484, 1198, 20, 30, "Print"],
6324Cell[27045, 506, 730, 10, 30, "Print"]
6325}, Open  ]]
6326}, Open  ]]
6327}, Open  ]],
6328Cell[CellGroupData[{
6329Cell[27836, 523, 101, 1, 119, "Section"],
6330Cell[CellGroupData[{
6331Cell[27962, 528, 930, 27, 94, "Input"],
6332Cell[28895, 557, 1391, 35, 119, "Output"]
6333}, Open  ]],
6334Cell[CellGroupData[{
6335Cell[30323, 597, 593, 17, 69, "Input"],
6336Cell[30919, 616, 1958, 49, 101, "Output"]
6337}, Open  ]],
6338Cell[CellGroupData[{
6339Cell[32914, 670, 1492, 39, 194, "Input"],
6340Cell[34409, 711, 1869, 49, 166, "Output"],
6341Cell[36281, 762, 3117, 87, 323, "Output"]
6342}, Open  ]],
6343Cell[CellGroupData[{
6344Cell[39435, 854, 178, 3, 43, "Input"],
6345Cell[39616, 859, 5066, 147, 514, "Output"]
6346}, Open  ]]
6347}, Open  ]],
6348Cell[CellGroupData[{
6349Cell[44731, 1012, 203, 3, 119, "Section"],
6350Cell[CellGroupData[{
6351Cell[44959, 1019, 139, 2, 43, "Input"],
6352Cell[CellGroupData[{
6353Cell[45123, 1025, 641, 12, 30, "Print"],
6354Cell[45767, 1039, 418, 6, 30, "Print"],
6355Cell[46188, 1047, 412, 6, 30, "Print"],
6356Cell[46603, 1055, 455, 7, 54, "Print"]
6357}, Open  ]],
6358Cell[47073, 1065, 2199, 61, 223, "Output"]
6359}, Open  ]]
6360}, Closed]],
6361Cell[CellGroupData[{
6362Cell[49321, 1132, 154, 2, 72, "Section"],
6363Cell[CellGroupData[{
6364Cell[49500, 1138, 215, 4, 43, "Input"],
6365Cell[CellGroupData[{
6366Cell[49740, 1146, 610, 13, 30, "Print"],
6367Cell[50353, 1161, 363, 5, 30, "Print"],
6368Cell[50719, 1168, 397, 6, 30, "Print"],
6369Cell[51119, 1176, 880, 17, 54, "Print"]
6370}, Open  ]],
6371Cell[52014, 1196, 409, 9, 59, "Message"],
6372Cell[52426, 1207, 828, 18, 69, "Print"],
6373Cell[53257, 1227, 409, 9, 59, "Message"],
6374Cell[53669, 1238, 803, 18, 46, "Print"],
6375Cell[54475, 1258, 411, 9, 59, "Message"],
6376Cell[54889, 1269, 689, 13, 59, "Message"],
6377Cell[CellGroupData[{
6378Cell[55603, 1286, 828, 18, 69, "Print"],
6379Cell[56434, 1306, 803, 18, 46, "Print"],
6380Cell[57240, 1326, 805, 18, 48, "Print"],
6381Cell[58048, 1346, 803, 18, 48, "Print"],
6382Cell[58854, 1366, 828, 18, 69, "Print"],
6383Cell[59685, 1386, 803, 18, 46, "Print"],
6384Cell[60491, 1406, 828, 18, 69, "Print"],
6385Cell[61322, 1426, 803, 18, 46, "Print"],
6386Cell[62128, 1446, 805, 18, 46, "Print"],
6387Cell[62936, 1466, 805, 18, 46, "Print"],
6388Cell[63744, 1486, 480, 9, 30, "Print"]
6389}, Open  ]],
6390Cell[64239, 1498, 12259, 356, 976, "Output"]
6391}, Closed]]
6392}, Closed]],
6393Cell[CellGroupData[{
6394Cell[76547, 1860, 103, 1, 72, "Section"],
6395Cell[CellGroupData[{
6396Cell[76675, 1865, 213, 5, 43, "Input"],
6397Cell[CellGroupData[{
6398Cell[76913, 1874, 501, 10, 30, "Print"],
6399Cell[77417, 1886, 435, 11, 54, "Print"],
6400Cell[77855, 1899, 406, 10, 30, "Print"]
6401}, Open  ]]
6402}, Open  ]],
6403Cell[CellGroupData[{
6404Cell[78310, 1915, 930, 24, 119, "Input"],
6405Cell[79243, 1941, 1467, 39, 143, "Output"],
6406Cell[80713, 1982, 1465, 39, 143, "Output"],
6407Cell[82181, 2023, 1026, 26, 82, "Output"],
6408Cell[83210, 2051, 981, 25, 102, "Output"]
6409}, Open  ]],
6410Cell[CellGroupData[{
6411Cell[84228, 2081, 179, 3, 43, "Input"],
6412Cell[84410, 2086, 183, 5, 102, "Output"]
6413}, Open  ]],
6414Cell[CellGroupData[{
6415Cell[84630, 2096, 446, 7, 119, "Input"],
6416Cell[85079, 2105, 251, 3, 43, "Output"],
6417Cell[85333, 2110, 251, 3, 43, "Output"],
6418Cell[85587, 2115, 250, 3, 43, "Output"],
6419Cell[85840, 2120, 253, 3, 43, "Output"]
6420}, Open  ]]
6421}, Closed]],
6422Cell[CellGroupData[{
6423Cell[86142, 2129, 185, 3, 72, "Section"],
6424Cell[CellGroupData[{
6425Cell[86352, 2136, 570, 10, 69, "Input"],
6426Cell[86925, 2148, 133, 1, 43, "Output"],
6427Cell[CellGroupData[{
6428Cell[87083, 2153, 380, 6, 30, "Print"],
6429Cell[87466, 2161, 603, 13, 30, "Print"],
6430Cell[88072, 2176, 358, 5, 30, "Print"],
6431Cell[88433, 2183, 534, 10, 30, "Print"],
6432Cell[88970, 2195, 390, 6, 30, "Print"],
6433Cell[89363, 2203, 877, 17, 54, "Print"],
6434Cell[90243, 2222, 475, 9, 30, "Print"],
6435Cell[90721, 2233, 830, 16, 54, "Print"],
6436Cell[91554, 2251, 372, 5, 30, "Print"]
6437}, Open  ]],
6438Cell[91941, 2259, 393, 9, 59, "Message"],
6439Cell[92337, 2270, 821, 18, 69, "Print"],
6440Cell[93161, 2290, 391, 9, 59, "Message"],
6441Cell[93555, 2301, 798, 18, 46, "Print"],
6442Cell[94356, 2321, 391, 9, 59, "Message"],
6443Cell[94750, 2332, 671, 13, 59, "Message"],
6444Cell[CellGroupData[{
6445Cell[95446, 2349, 821, 18, 69, "Print"],
6446Cell[96270, 2369, 796, 18, 46, "Print"],
6447Cell[97069, 2389, 796, 18, 48, "Print"],
6448Cell[97868, 2409, 796, 18, 48, "Print"],
6449Cell[98667, 2429, 821, 18, 69, "Print"],
6450Cell[99491, 2449, 796, 18, 46, "Print"],
6451Cell[100290, 2469, 821, 18, 69, "Print"],
6452Cell[101114, 2489, 795, 18, 46, "Print"],
6453Cell[101912, 2509, 796, 18, 46, "Print"],
6454Cell[102711, 2529, 798, 18, 46, "Print"],
6455Cell[103512, 2549, 639, 14, 54, "Print"],
6456Cell[104154, 2565, 595, 13, 30, "Print"],
6457Cell[104752, 2580, 681, 13, 30, "Print"],
6458Cell[105436, 2595, 595, 13, 30, "Print"],
6459Cell[106034, 2610, 667, 13, 30, "Print"],
6460Cell[106704, 2625, 355, 5, 30, "Print"],
6461Cell[107062, 2632, 379, 6, 30, "Print"],
6462Cell[107444, 2640, 570, 10, 30, "Print"],
6463Cell[108017, 2652, 731, 13, 30, "Print"],
6464Cell[108751, 2667, 351, 5, 30, "Print"],
6465Cell[109105, 2674, 336, 5, 30, "Print"]
6466}, Open  ]]
6467}, Open  ]]
6468}, Closed]],
6469Cell[CellGroupData[{
6470Cell[109502, 2686, 89, 1, 76, "Subtitle"],
6471Cell[CellGroupData[{
6472Cell[109616, 2691, 131, 3, 119, "Section"],
6473Cell[CellGroupData[{
6474Cell[109772, 2698, 484, 12, 94, "Input"],
6475Cell[CellGroupData[{
6476Cell[110281, 2714, 201, 3, 30, "Print"],
6477Cell[110485, 2719, 169, 2, 30, "Print"],
6478Cell[110657, 2723, 186, 2, 30, "Print"],
6479Cell[110846, 2727, 173, 2, 30, "Print"],
6480Cell[111022, 2731, 169, 2, 30, "Print"],
6481Cell[111194, 2735, 188, 2, 30, "Print"],
6482Cell[111385, 2739, 179, 2, 30, "Print"],
6483Cell[111567, 2743, 173, 2, 30, "Print"],
6484Cell[111743, 2747, 164, 2, 30, "Print"],
6485Cell[111910, 2751, 162, 2, 30, "Print"]
6486}, Closed]],
6487Cell[112087, 2756, 233, 6, 40, "Output"]
6488}, Open  ]],
6489Cell[CellGroupData[{
6490Cell[112357, 2767, 263, 6, 44, "Input"],
6491Cell[112623, 2775, 344, 8, 49, "Output"]
6492}, Open  ]],
6493Cell[CellGroupData[{
6494Cell[113004, 2788, 191, 5, 44, "Input"],
6495Cell[113198, 2795, 2633, 78, 111, "Output"]
6496}, Open  ]],
6497Cell[CellGroupData[{
6498Cell[115868, 2878, 592, 13, 94, "Input"],
6499Cell[CellGroupData[{
6500Cell[116485, 2895, 122, 1, 30, "Print"],
6501Cell[116610, 2898, 107, 1, 30, "Print"],
6502Cell[116720, 2901, 108, 1, 30, "Print"],
6503Cell[116831, 2904, 262, 6, 30, "Print"],
6504Cell[117096, 2912, 256, 6, 30, "Print"],
6505Cell[117355, 2920, 356, 9, 30, "Print"],
6506Cell[117714, 2931, 103, 1, 30, "Print"],
6507Cell[117820, 2934, 285, 6, 30, "Print"],
6508Cell[118108, 2942, 138, 2, 30, "Print"],
6509Cell[118249, 2946, 384, 10, 54, "Print"],
6510Cell[118636, 2958, 93, 1, 30, "Print"],
6511Cell[118732, 2961, 162, 2, 54, "Print"],
6512Cell[118897, 2965, 144, 2, 54, "Print"],
6513Cell[119044, 2969, 146, 2, 54, "Print"],
6514Cell[119193, 2973, 254, 6, 30, "Print"],
6515Cell[119450, 2981, 356, 9, 30, "Print"],
6516Cell[119809, 2992, 103, 1, 30, "Print"],
6517Cell[119915, 2995, 285, 6, 30, "Print"],
6518Cell[120203, 3003, 138, 2, 30, "Print"],
6519Cell[120344, 3007, 621, 13, 54, "Print"]
6520}, Closed]],
6521Cell[120980, 3023, 251, 7, 57, "Message"],
6522Cell[121234, 3032, 566, 14, 69, "Print"],
6523Cell[121803, 3048, 251, 7, 59, "Message"],
6524Cell[122057, 3057, 541, 14, 46, "Print"],
6525Cell[122601, 3073, 251, 7, 59, "Message"],
6526Cell[122855, 3082, 531, 11, 59, "Message"],
6527Cell[CellGroupData[{
6528Cell[123411, 3097, 566, 14, 69, "Print"],
6529Cell[123980, 3113, 541, 14, 46, "Print"],
6530Cell[124524, 3129, 543, 14, 48, "Print"],
6531Cell[125070, 3145, 541, 14, 48, "Print"],
6532Cell[125614, 3161, 541, 14, 46, "Print"],
6533Cell[126158, 3177, 543, 14, 46, "Print"],
6534Cell[126704, 3193, 568, 14, 69, "Print"],
6535Cell[127275, 3209, 541, 14, 46, "Print"],
6536Cell[127819, 3225, 565, 14, 69, "Print"],
6537Cell[128387, 3241, 541, 14, 46, "Print"],
6538Cell[128931, 3257, 222, 5, 30, "Print"],
6539Cell[129156, 3264, 292, 6, 30, "Print"]
6540}, Open  ]],
6541Cell[129463, 3273, 184, 5, 43, "Output"]
6542}, Closed]]
6543}, Closed]],
6544Cell[CellGroupData[{
6545Cell[129696, 3284, 114, 1, 72, "Section"],
6546Cell[129813, 3287, 118, 2, 43, "Input"],
6547Cell[CellGroupData[{
6548Cell[129956, 3293, 439, 9, 119, "Input"],
6549Cell[CellGroupData[{
6550Cell[130420, 3306, 128, 2, 30, "Print"],
6551Cell[130551, 3310, 142, 2, 30, "Print"],
6552Cell[130696, 3314, 173, 2, 30, "Print"],
6553Cell[130872, 3318, 148, 2, 30, "Print"]
6554}, Open  ]],
6555Cell[131035, 3323, 171, 2, 43, "Output"],
6556Cell[CellGroupData[{
6557Cell[131231, 3329, 139, 2, 30, "Print"],
6558Cell[131373, 3333, 140, 2, 30, "Print"],
6559Cell[131516, 3337, 148, 2, 30, "Print"]
6560}, Open  ]]
6561}, Open  ]],
6562Cell[CellGroupData[{
6563Cell[131713, 3345, 913, 21, 144, "Input"],
6564Cell[132629, 3368, 107, 1, 43, "Output"],
6565Cell[CellGroupData[{
6566Cell[132761, 3373, 318, 8, 30, "Print"],
6567Cell[133082, 3383, 78, 1, 30, "Print"],
6568Cell[133163, 3386, 466, 11, 54, "Print"],
6569Cell[133632, 3399, 101, 1, 30, "Print"],
6570Cell[133736, 3402, 321, 7, 30, "Print"],
6571Cell[134060, 3411, 76, 1, 30, "Print"],
6572Cell[134139, 3414, 485, 11, 54, "Print"],
6573Cell[134627, 3427, 388, 8, 30, "Print"],
6574Cell[135018, 3437, 98, 1, 30, "Print"],
6575Cell[135119, 3440, 245, 6, 30, "Print"],
6576Cell[135367, 3448, 277, 6, 30, "Print"],
6577Cell[135647, 3456, 339, 7, 30, "Print"],
6578Cell[135989, 3465, 76, 1, 30, "Print"],
6579Cell[136068, 3468, 308, 7, 30, "Print"],
6580Cell[136379, 3477, 340, 7, 30, "Print"],
6581Cell[136722, 3486, 274, 6, 30, "Print"],
6582Cell[136999, 3494, 76, 1, 30, "Print"],
6583Cell[137078, 3497, 332, 8, 30, "Print"],
6584Cell[137413, 3507, 272, 6, 30, "Print"],
6585Cell[137688, 3515, 117, 1, 30, "Print"],
6586Cell[137808, 3518, 148, 2, 54, "Print"],
6587Cell[137959, 3522, 76, 1, 30, "Print"],
6588Cell[138038, 3525, 309, 7, 30, "Print"],
6589Cell[138350, 3534, 342, 7, 30, "Print"],
6590Cell[138695, 3543, 272, 6, 30, "Print"],
6591Cell[138970, 3551, 76, 1, 30, "Print"],
6592Cell[139049, 3554, 334, 8, 30, "Print"],
6593Cell[139386, 3564, 272, 6, 30, "Print"],
6594Cell[139661, 3572, 125, 2, 30, "Print"],
6595Cell[139789, 3576, 111, 1, 30, "Print"],
6596Cell[139903, 3579, 131, 2, 30, "Print"],
6597Cell[140037, 3583, 112, 1, 30, "Print"],
6598Cell[140152, 3586, 321, 8, 30, "Print"],
6599Cell[140476, 3596, 76, 1, 30, "Print"],
6600Cell[140555, 3599, 309, 7, 30, "Print"],
6601Cell[140867, 3608, 340, 7, 30, "Print"],
6602Cell[141210, 3617, 344, 7, 30, "Print"],
6603Cell[141557, 3626, 276, 6, 30, "Print"],
6604Cell[141836, 3634, 76, 1, 30, "Print"],
6605Cell[141915, 3637, 332, 8, 30, "Print"],
6606Cell[142250, 3647, 342, 7, 30, "Print"],
6607Cell[142595, 3656, 276, 6, 30, "Print"],
6608Cell[142874, 3664, 117, 1, 30, "Print"],
6609Cell[142994, 3667, 148, 2, 54, "Print"],
6610Cell[143145, 3671, 76, 1, 30, "Print"],
6611Cell[143224, 3674, 309, 7, 30, "Print"],
6612Cell[143536, 3683, 342, 7, 30, "Print"],
6613Cell[143881, 3692, 274, 6, 30, "Print"],
6614Cell[144158, 3700, 76, 1, 30, "Print"],
6615Cell[144237, 3703, 332, 8, 30, "Print"],
6616Cell[144572, 3713, 344, 7, 30, "Print"],
6617Cell[144919, 3722, 274, 6, 30, "Print"],
6618Cell[145196, 3730, 125, 2, 30, "Print"],
6619Cell[145324, 3734, 113, 1, 30, "Print"],
6620Cell[145440, 3737, 94, 1, 30, "Print"],
6621Cell[145537, 3740, 131, 2, 30, "Print"],
6622Cell[145671, 3744, 115, 1, 30, "Print"],
6623Cell[145789, 3747, 321, 8, 30, "Print"],
6624Cell[146113, 3757, 76, 1, 30, "Print"],
6625Cell[146192, 3760, 309, 7, 30, "Print"],
6626Cell[146504, 3769, 341, 7, 30, "Print"],
6627Cell[146848, 3778, 342, 7, 30, "Print"],
6628Cell[147193, 3787, 274, 6, 30, "Print"],
6629Cell[147470, 3795, 76, 1, 30, "Print"],
6630Cell[147549, 3798, 332, 8, 30, "Print"],
6631Cell[147884, 3808, 272, 6, 30, "Print"],
6632Cell[148159, 3816, 117, 1, 30, "Print"],
6633Cell[148279, 3819, 148, 2, 54, "Print"],
6634Cell[148430, 3823, 76, 1, 30, "Print"],
6635Cell[148509, 3826, 309, 7, 30, "Print"],
6636Cell[148821, 3835, 342, 7, 30, "Print"],
6637Cell[149166, 3844, 274, 6, 30, "Print"],
6638Cell[149443, 3852, 76, 1, 30, "Print"],
6639Cell[149522, 3855, 334, 8, 30, "Print"],
6640Cell[149859, 3865, 274, 6, 30, "Print"],
6641Cell[150136, 3873, 125, 2, 30, "Print"],
6642Cell[150264, 3877, 111, 1, 30, "Print"],
6643Cell[150378, 3880, 133, 2, 30, "Print"],
6644Cell[150514, 3884, 115, 1, 30, "Print"],
6645Cell[150632, 3887, 321, 8, 30, "Print"],
6646Cell[150956, 3897, 78, 1, 30, "Print"],
6647Cell[151037, 3900, 309, 7, 30, "Print"],
6648Cell[151349, 3909, 342, 7, 30, "Print"],
6649Cell[151694, 3918, 344, 7, 30, "Print"],
6650Cell[152041, 3927, 276, 6, 30, "Print"],
6651Cell[152320, 3935, 76, 1, 30, "Print"],
6652Cell[152399, 3938, 332, 8, 30, "Print"],
6653Cell[152734, 3948, 340, 7, 30, "Print"],
6654Cell[153077, 3957, 342, 7, 30, "Print"],
6655Cell[153422, 3966, 274, 6, 30, "Print"],
6656Cell[153699, 3974, 119, 1, 30, "Print"],
6657Cell[153821, 3977, 148, 2, 54, "Print"],
6658Cell[153972, 3981, 76, 1, 30, "Print"],
6659Cell[154051, 3984, 311, 7, 30, "Print"],
6660Cell[154365, 3993, 340, 7, 30, "Print"],
6661Cell[154708, 4002, 271, 6, 30, "Print"],
6662Cell[154982, 4010, 76, 1, 30, "Print"],
6663Cell[155061, 4013, 332, 8, 30, "Print"],
6664Cell[155396, 4023, 340, 7, 30, "Print"],
6665Cell[155739, 4032, 272, 6, 30, "Print"],
6666Cell[156014, 4040, 127, 2, 30, "Print"],
6667Cell[156144, 4044, 111, 1, 30, "Print"],
6668Cell[156258, 4047, 94, 1, 30, "Print"],
6669Cell[156355, 4050, 131, 2, 30, "Print"],
6670Cell[156489, 4054, 115, 1, 30, "Print"],
6671Cell[156607, 4057, 324, 8, 30, "Print"],
6672Cell[156934, 4067, 76, 1, 30, "Print"],
6673Cell[157013, 4070, 311, 7, 30, "Print"],
6674Cell[157327, 4079, 343, 7, 30, "Print"],
6675Cell[157673, 4088, 340, 7, 30, "Print"],
6676Cell[158016, 4097, 340, 7, 30, "Print"],
6677Cell[158359, 4106, 340, 7, 30, "Print"],
6678Cell[158702, 4115, 276, 6, 30, "Print"],
6679Cell[158981, 4123, 76, 1, 30, "Print"],
6680Cell[159060, 4126, 332, 8, 30, "Print"],
6681Cell[159395, 4136, 341, 7, 30, "Print"],
6682Cell[159739, 4145, 274, 6, 30, "Print"],
6683Cell[160016, 4153, 118, 1, 30, "Print"],
6684Cell[160137, 4156, 149, 2, 54, "Print"],
6685Cell[160289, 4160, 76, 1, 30, "Print"],
6686Cell[160368, 4163, 309, 7, 30, "Print"],
6687Cell[160680, 4172, 344, 7, 30, "Print"],
6688Cell[161027, 4181, 274, 6, 30, "Print"],
6689Cell[161304, 4189, 76, 1, 30, "Print"],
6690Cell[161383, 4192, 332, 8, 30, "Print"],
6691Cell[161718, 4202, 344, 7, 30, "Print"],
6692Cell[162065, 4211, 276, 6, 30, "Print"],
6693Cell[162344, 4219, 126, 2, 30, "Print"],
6694Cell[162473, 4223, 111, 1, 30, "Print"],
6695Cell[162587, 4226, 132, 2, 30, "Print"],
6696Cell[162722, 4230, 119, 1, 30, "Print"],
6697Cell[162844, 4233, 324, 8, 30, "Print"],
6698Cell[163171, 4243, 76, 1, 30, "Print"],
6699Cell[163250, 4246, 309, 7, 30, "Print"],
6700Cell[163562, 4255, 344, 7, 30, "Print"],
6701Cell[163909, 4264, 342, 7, 30, "Print"],
6702Cell[164254, 4273, 340, 7, 30, "Print"],
6703Cell[164597, 4282, 342, 7, 30, "Print"],
6704Cell[164942, 4291, 276, 6, 30, "Print"],
6705Cell[165221, 4299, 76, 1, 30, "Print"],
6706Cell[165300, 4302, 332, 8, 30, "Print"],
6707Cell[165635, 4312, 344, 7, 30, "Print"],
6708Cell[165982, 4321, 276, 6, 30, "Print"],
6709Cell[166261, 4329, 120, 1, 30, "Print"],
6710Cell[166384, 4332, 149, 2, 54, "Print"],
6711Cell[166536, 4336, 76, 1, 30, "Print"],
6712Cell[166615, 4339, 311, 7, 30, "Print"],
6713Cell[166929, 4348, 342, 7, 30, "Print"],
6714Cell[167274, 4357, 276, 6, 30, "Print"],
6715Cell[167553, 4365, 78, 1, 30, "Print"],
6716Cell[167634, 4368, 334, 8, 30, "Print"],
6717Cell[167971, 4378, 342, 7, 30, "Print"],
6718Cell[168316, 4387, 276, 6, 30, "Print"],
6719Cell[168595, 4395, 126, 2, 30, "Print"],
6720Cell[168724, 4399, 112, 1, 30, "Print"],
6721Cell[168839, 4402, 134, 2, 30, "Print"],
6722Cell[168976, 4406, 119, 1, 30, "Print"],
6723Cell[169098, 4409, 324, 8, 30, "Print"],
6724Cell[169425, 4419, 78, 1, 30, "Print"],
6725Cell[169506, 4422, 309, 7, 30, "Print"],
6726Cell[169818, 4431, 350, 7, 30, "Print"],
6727Cell[170171, 4440, 342, 7, 30, "Print"],
6728Cell[170516, 4449, 342, 7, 30, "Print"],
6729Cell[170861, 4458, 342, 7, 30, "Print"],
6730Cell[171206, 4467, 280, 6, 30, "Print"],
6731Cell[171489, 4475, 76, 1, 30, "Print"],
6732Cell[171568, 4478, 332, 8, 30, "Print"],
6733Cell[171903, 4488, 346, 7, 30, "Print"],
6734Cell[172252, 4497, 339, 7, 30, "Print"],
6735Cell[172594, 4506, 342, 7, 30, "Print"],
6736Cell[172939, 4515, 340, 7, 30, "Print"],
6737Cell[173282, 4524, 276, 6, 30, "Print"],
6738Cell[173561, 4532, 118, 1, 30, "Print"],
6739Cell[173682, 4535, 150, 2, 54, "Print"],
6740Cell[173835, 4539, 76, 1, 30, "Print"],
6741Cell[173914, 4542, 311, 7, 30, "Print"],
6742Cell[174228, 4551, 342, 7, 30, "Print"],
6743Cell[174573, 4560, 274, 6, 30, "Print"],
6744Cell[174850, 4568, 78, 1, 30, "Print"],
6745Cell[174931, 4571, 332, 8, 30, "Print"],
6746Cell[175266, 4581, 340, 7, 30, "Print"],
6747Cell[175609, 4590, 274, 6, 30, "Print"],
6748Cell[175886, 4598, 126, 2, 30, "Print"],
6749Cell[176015, 4602, 113, 1, 30, "Print"],
6750Cell[176131, 4605, 133, 2, 30, "Print"],
6751Cell[176267, 4609, 120, 1, 30, "Print"],
6752Cell[176390, 4612, 324, 8, 30, "Print"],
6753Cell[176717, 4622, 75, 1, 30, "Print"],
6754Cell[176795, 4625, 309, 7, 30, "Print"],
6755Cell[177107, 4634, 346, 7, 30, "Print"],
6756Cell[177456, 4643, 344, 7, 30, "Print"],
6757Cell[177803, 4652, 342, 7, 30, "Print"],
6758Cell[178148, 4661, 342, 7, 30, "Print"],
6759Cell[178493, 4670, 280, 6, 30, "Print"],
6760Cell[178776, 4678, 76, 1, 30, "Print"],
6761Cell[178855, 4681, 332, 8, 30, "Print"],
6762Cell[179190, 4691, 342, 7, 30, "Print"],
6763Cell[179535, 4700, 274, 6, 30, "Print"],
6764Cell[179812, 4708, 119, 1, 30, "Print"],
6765Cell[179934, 4711, 150, 2, 54, "Print"],
6766Cell[180087, 4715, 78, 1, 30, "Print"],
6767Cell[180168, 4718, 309, 7, 30, "Print"],
6768Cell[180480, 4727, 340, 7, 30, "Print"],
6769Cell[180823, 4736, 274, 6, 30, "Print"],
6770Cell[181100, 4744, 76, 1, 30, "Print"],
6771Cell[181179, 4747, 334, 8, 30, "Print"],
6772Cell[181516, 4757, 272, 6, 30, "Print"],
6773Cell[181791, 4765, 127, 2, 30, "Print"],
6774Cell[181921, 4769, 112, 1, 30, "Print"],
6775Cell[182036, 4772, 133, 2, 30, "Print"],
6776Cell[182172, 4776, 122, 1, 30, "Print"],
6777Cell[182297, 4779, 324, 8, 30, "Print"],
6778Cell[182624, 4789, 76, 1, 30, "Print"],
6779Cell[182703, 4792, 309, 7, 30, "Print"],
6780Cell[183015, 4801, 346, 7, 30, "Print"],
6781Cell[183364, 4810, 342, 7, 30, "Print"],
6782Cell[183709, 4819, 342, 7, 30, "Print"],
6783Cell[184054, 4828, 342, 7, 30, "Print"],
6784Cell[184399, 4837, 278, 6, 30, "Print"],
6785Cell[184680, 4845, 76, 1, 30, "Print"],
6786Cell[184759, 4848, 332, 8, 30, "Print"],
6787Cell[185094, 4858, 342, 7, 30, "Print"],
6788Cell[185439, 4867, 276, 6, 30, "Print"],
6789Cell[185718, 4875, 119, 1, 30, "Print"],
6790Cell[185840, 4878, 150, 2, 54, "Print"],
6791Cell[185993, 4882, 75, 1, 30, "Print"],
6792Cell[186071, 4885, 309, 7, 30, "Print"],
6793Cell[186383, 4894, 340, 7, 30, "Print"],
6794Cell[186726, 4903, 272, 6, 30, "Print"],
6795Cell[187001, 4911, 76, 1, 30, "Print"],
6796Cell[187080, 4914, 332, 8, 30, "Print"],
6797Cell[187415, 4924, 272, 6, 30, "Print"],
6798Cell[187690, 4932, 127, 2, 30, "Print"],
6799Cell[187820, 4936, 113, 1, 30, "Print"],
6800Cell[187936, 4939, 135, 2, 30, "Print"],
6801Cell[188074, 4943, 120, 1, 30, "Print"],
6802Cell[188197, 4946, 326, 8, 30, "Print"],
6803Cell[188526, 4956, 78, 1, 30, "Print"],
6804Cell[188607, 4959, 309, 7, 30, "Print"],
6805Cell[188919, 4968, 346, 7, 30, "Print"],
6806Cell[189268, 4977, 342, 7, 30, "Print"],
6807Cell[189613, 4986, 342, 7, 30, "Print"],
6808Cell[189958, 4995, 344, 7, 30, "Print"],
6809Cell[190305, 5004, 278, 6, 30, "Print"],
6810Cell[190586, 5012, 78, 1, 30, "Print"],
6811Cell[190667, 5015, 332, 8, 30, "Print"],
6812Cell[191002, 5025, 272, 6, 30, "Print"],
6813Cell[191277, 5033, 121, 1, 30, "Print"],
6814Cell[191401, 5036, 152, 2, 54, "Print"],
6815Cell[191556, 5040, 76, 1, 30, "Print"],
6816Cell[191635, 5043, 309, 7, 30, "Print"],
6817Cell[191947, 5052, 340, 7, 30, "Print"],
6818Cell[192290, 5061, 271, 6, 30, "Print"],
6819Cell[192564, 5069, 78, 1, 30, "Print"],
6820Cell[192645, 5072, 332, 8, 30, "Print"],
6821Cell[192980, 5082, 272, 6, 30, "Print"],
6822Cell[193255, 5090, 127, 2, 30, "Print"],
6823Cell[193385, 5094, 113, 1, 30, "Print"],
6824Cell[193501, 5097, 133, 2, 30, "Print"],
6825Cell[193637, 5101, 120, 1, 30, "Print"],
6826Cell[193760, 5104, 327, 8, 30, "Print"],
6827Cell[194090, 5114, 76, 1, 30, "Print"],
6828Cell[194169, 5117, 336, 8, 30, "Print"],
6829Cell[194508, 5127, 78, 1, 30, "Print"],
6830Cell[194589, 5130, 309, 7, 30, "Print"],
6831Cell[194901, 5139, 344, 7, 30, "Print"],
6832Cell[195248, 5148, 344, 7, 30, "Print"],
6833Cell[195595, 5157, 344, 7, 30, "Print"],
6834Cell[195942, 5166, 346, 7, 30, "Print"],
6835Cell[196291, 5175, 344, 7, 30, "Print"],
6836Cell[196638, 5184, 346, 7, 30, "Print"],
6837Cell[196987, 5193, 348, 7, 30, "Print"],
6838Cell[197338, 5202, 346, 7, 30, "Print"],
6839Cell[197687, 5211, 345, 7, 30, "Print"],
6840Cell[198035, 5220, 348, 7, 30, "Print"],
6841Cell[198386, 5229, 346, 7, 30, "Print"],
6842Cell[198735, 5238, 346, 7, 30, "Print"],
6843Cell[199084, 5247, 76, 1, 30, "Print"],
6844Cell[199163, 5250, 273, 6, 30, "Print"],
6845Cell[199439, 5258, 284, 6, 30, "Print"],
6846Cell[199726, 5266, 78, 1, 30, "Print"],
6847Cell[199807, 5269, 332, 8, 30, "Print"],
6848Cell[200142, 5279, 339, 7, 30, "Print"],
6849Cell[200484, 5288, 340, 7, 30, "Print"],
6850Cell[200827, 5297, 342, 7, 30, "Print"],
6851Cell[201172, 5306, 340, 7, 30, "Print"],
6852Cell[201515, 5315, 340, 7, 30, "Print"],
6853Cell[201858, 5324, 340, 7, 30, "Print"],
6854Cell[202201, 5333, 346, 7, 30, "Print"],
6855Cell[202550, 5342, 345, 7, 30, "Print"],
6856Cell[202898, 5351, 346, 7, 30, "Print"],
6857Cell[203247, 5360, 342, 7, 30, "Print"],
6858Cell[203592, 5369, 344, 7, 30, "Print"],
6859Cell[203939, 5378, 342, 7, 30, "Print"],
6860Cell[204284, 5387, 282, 6, 30, "Print"],
6861Cell[204569, 5395, 118, 1, 30, "Print"],
6862Cell[204690, 5398, 150, 2, 54, "Print"],
6863Cell[204843, 5402, 76, 1, 30, "Print"],
6864Cell[204922, 5405, 311, 7, 30, "Print"],
6865Cell[205236, 5414, 340, 7, 30, "Print"],
6866Cell[205579, 5423, 274, 6, 30, "Print"],
6867Cell[205856, 5431, 78, 1, 30, "Print"],
6868Cell[205937, 5434, 334, 8, 30, "Print"],
6869Cell[206274, 5444, 340, 7, 30, "Print"],
6870Cell[206617, 5453, 274, 6, 30, "Print"],
6871Cell[206894, 5461, 127, 2, 30, "Print"],
6872Cell[207024, 5465, 115, 1, 30, "Print"],
6873Cell[207142, 5468, 133, 2, 30, "Print"],
6874Cell[207278, 5472, 125, 2, 30, "Print"],
6875Cell[207406, 5476, 326, 8, 30, "Print"],
6876Cell[207735, 5486, 76, 1, 30, "Print"],
6877Cell[207814, 5489, 336, 8, 30, "Print"],
6878Cell[208153, 5499, 78, 1, 30, "Print"],
6879Cell[208234, 5502, 309, 7, 30, "Print"],
6880Cell[208546, 5511, 344, 7, 30, "Print"],
6881Cell[208893, 5520, 344, 7, 30, "Print"],
6882Cell[209240, 5529, 346, 7, 30, "Print"],
6883Cell[209589, 5538, 344, 7, 30, "Print"],
6884Cell[209936, 5547, 346, 7, 30, "Print"],
6885Cell[210285, 5556, 344, 7, 30, "Print"],
6886Cell[210632, 5565, 348, 7, 30, "Print"],
6887Cell[210983, 5574, 346, 7, 30, "Print"],
6888Cell[211332, 5583, 346, 7, 30, "Print"],
6889Cell[211681, 5592, 348, 7, 30, "Print"],
6890Cell[212032, 5601, 346, 7, 30, "Print"],
6891Cell[212381, 5610, 346, 7, 30, "Print"],
6892Cell[212730, 5619, 76, 1, 30, "Print"],
6893Cell[212809, 5622, 271, 6, 30, "Print"],
6894Cell[213083, 5630, 280, 6, 30, "Print"],
6895Cell[213366, 5638, 76, 1, 30, "Print"],
6896Cell[213445, 5641, 334, 8, 30, "Print"],
6897Cell[213782, 5651, 343, 7, 30, "Print"],
6898Cell[214128, 5660, 344, 7, 30, "Print"],
6899Cell[214475, 5669, 342, 7, 30, "Print"],
6900Cell[214820, 5678, 278, 6, 30, "Print"],
6901Cell[215101, 5686, 121, 1, 30, "Print"],
6902Cell[215225, 5689, 150, 2, 54, "Print"],
6903Cell[215378, 5693, 76, 1, 30, "Print"],
6904Cell[215457, 5696, 309, 7, 30, "Print"],
6905Cell[215769, 5705, 342, 7, 30, "Print"],
6906Cell[216114, 5714, 271, 6, 30, "Print"],
6907Cell[216388, 5722, 78, 1, 30, "Print"],
6908Cell[216469, 5725, 332, 8, 30, "Print"],
6909Cell[216804, 5735, 272, 6, 30, "Print"],
6910Cell[217079, 5743, 127, 2, 30, "Print"],
6911Cell[217209, 5747, 113, 1, 30, "Print"],
6912Cell[217325, 5750, 133, 2, 30, "Print"],
6913Cell[217461, 5754, 127, 2, 30, "Print"],
6914Cell[217591, 5758, 117, 1, 30, "Print"],
6915Cell[217711, 5761, 101, 1, 30, "Print"],
6916Cell[217815, 5764, 354, 9, 30, "Print"],
6917Cell[218172, 5775, 196, 6, 30, "Print"],
6918Cell[218371, 5783, 159, 2, 54, "Print"],
6919Cell[218533, 5787, 80, 1, 30, "Print"]
6920}, Closed]],
6921Cell[218628, 5791, 183, 5, 40, "Output"]
6922}, Open  ]]
6923}, Open  ]],
6924Cell[CellGroupData[{
6925Cell[218860, 5802, 146, 2, 119, "Section"],
6926Cell[219009, 5806, 118, 2, 43, "Input"],
6927Cell[219130, 5810, 252, 6, 43, "Input"],
6928Cell[219385, 5818, 377, 7, 69, "Input"],
6929Cell[CellGroupData[{
6930Cell[219787, 5829, 392, 9, 94, "Input"],
6931Cell[CellGroupData[{
6932Cell[220204, 5842, 127, 2, 30, "Print"],
6933Cell[220334, 5846, 348, 9, 30, "Print"],
6934Cell[220685, 5857, 103, 1, 30, "Print"],
6935Cell[220791, 5860, 285, 6, 30, "Print"],
6936Cell[221079, 5868, 136, 2, 30, "Print"],
6937Cell[221218, 5872, 622, 13, 54, "Print"],
6938Cell[221843, 5887, 222, 5, 30, "Print"],
6939Cell[222068, 5894, 575, 12, 54, "Print"],
6940Cell[222646, 5908, 117, 1, 30, "Print"]
6941}, Open  ]],
6942Cell[222778, 5912, 253, 7, 59, "Message"],
6943Cell[223034, 5921, 566, 14, 69, "Print"],
6944Cell[223603, 5937, 251, 7, 59, "Message"],
6945Cell[223857, 5946, 543, 14, 46, "Print"],
6946Cell[224403, 5962, 251, 7, 59, "Message"],
6947Cell[224657, 5971, 531, 11, 59, "Message"],
6948Cell[CellGroupData[{
6949Cell[225213, 5986, 565, 14, 69, "Print"],
6950Cell[225781, 6002, 543, 14, 46, "Print"],
6951Cell[226327, 6018, 541, 14, 48, "Print"],
6952Cell[226871, 6034, 543, 14, 48, "Print"],
6953Cell[227417, 6050, 566, 14, 69, "Print"],
6954Cell[227986, 6066, 541, 14, 46, "Print"],
6955Cell[228530, 6082, 566, 14, 69, "Print"],
6956Cell[229099, 6098, 540, 14, 46, "Print"],
6957Cell[229642, 6114, 543, 14, 46, "Print"],
6958Cell[230188, 6130, 541, 14, 46, "Print"],
6959Cell[230732, 6146, 72, 1, 30, "Print"],
6960Cell[230807, 6149, 384, 10, 54, "Print"],
6961Cell[231194, 6161, 339, 9, 30, "Print"],
6962Cell[231536, 6172, 425, 9, 30, "Print"],
6963Cell[231964, 6183, 341, 9, 30, "Print"],
6964Cell[232308, 6194, 411, 9, 30, "Print"],
6965Cell[232722, 6205, 100, 1, 30, "Print"],
6966Cell[232825, 6208, 124, 2, 30, "Print"],
6967Cell[232952, 6212, 317, 6, 30, "Print"],
6968Cell[233272, 6220, 475, 9, 30, "Print"],
6969Cell[233750, 6231, 96, 1, 30, "Print"],
6970Cell[233849, 6234, 81, 1, 30, "Print"]
6971}, Open  ]],
6972Cell[233945, 6238, 181, 5, 43, "Output"]
6973}, Open  ]]
6974}, Closed]]
6975}, Open  ]]
6976}, Open  ]]
6977}
6978]
6979*)
6980