Context Navigation

Back to Lund2014

Lund2014: Tutorial.nb

File Tutorial.nb, 255.0 KB (added by Degrande, 10 years ago)
notebook for FR tutorial

Line
1	(CacheID: 234)
2	(* Internal cache information:
3	NotebookFileLineBreakTest
4	NotebookFileLineBreakTest
5	NotebookDataPosition[ 0, 0]
6	NotebookDataLength[ 261141, 6979]
7	NotebookOptionsPosition[ 234178, 6249]
8	NotebookOutlinePosition[ 234730, 6269]
9	CellTagsIndexPosition[ 234687, 6266]
10	WindowFrame->Normal*)
11
12	(* Beginning of Notebook Content *)
13	Notebook[{
14
15	Cell[CellGroupData[{
16	Cell[" Tutorial", "Title",
17	CellChangeTimes->{{3.539317450114971^9, 3.5393174577917767`^9},
18	3.5559442666324883`*^9}],
19
20	Cell[BoxData[
21	RowBox[{"Quit", "[", "]"}]], "Input",
22	CellChangeTimes->{{3.5393174647226133`^9, 3.5393174655928297`^9}}],
23
24	Cell[CellGroupData[{
25
26	Cell["Loading FeynRules", "Section",
27	CellChangeTimes->{{3.539317474608481^9, 3.5393174784154987`^9}}],
28
29	Cell[CellGroupData[{
30
31	Cell[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
43	Cell[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
59	Cell[CellGroupData[{
60
61	Cell[BoxData[
62	RowBox[{"<<", "FeynRules`"}]], "Input",
63	CellChangeTimes->{{3.5393175083150997`^9, 3.5393175100537786`^9}}],
64
65	Cell[CellGroupData[{
66
67	Cell[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
82	Cell[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
104	Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
105	B. 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
120	Cell[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
135	Cell[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
150	Cell[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
165	Cell[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
181	Cell[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
196	Cell[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
211	Cell[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
226	Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
227	FRPalette[].\"\>"], "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
245	Cell[CellGroupData[{
246
247	Cell["Loading the model", "Section",
248	CellChangeTimes->{{3.539317514565621^9, 3.539317517827942^9}}],
249
250	Cell[CellGroupData[{
251
252	Cell[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
265	Cell[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
281	Cell[CellGroupData[{
282
283	Cell[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
292	Cell[CellGroupData[{
293
294	Cell[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
308	Cell[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
322	Cell[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
336	Cell[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
354	Cell[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
369	Cell[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
383	Cell[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
397	Cell[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
411	Cell[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
425	Cell[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
446	Cell["\<\
447	\[LineSeparator]Restriction files, to make the quarks massless, and the CKM \
448	matrix diagonal:\
449	\>", "Text",
450	CellChangeTimes->{{3.539317826891835^9, 3.539317839321149^9},
451	3.539318861815209*^9}],
452
453	Cell[CellGroupData[{
454
455	Cell[BoxData[
456	RowBox[{"LoadRestriction", "[",
457	RowBox[{"\"\<DiagonalCKM.rst\>\"", ",", "\"\<Massless.rst\>\""}],
458	"]"}]], "Input",
459	CellChangeTimes->{{3.539317840243554^9, 3.53931785155518^9}}],
460
461	Cell[CellGroupData[{
462
463	Cell[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
485	Cell[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
507	Cell[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
522	Cell[CellGroupData[{
523
524	Cell["The Lagrangian", "Section",
525	CellChangeTimes->{{3.539317863455777^9, 3.5393178650954237`^9}}],
526
527	Cell[CellGroupData[{
528
529	Cell[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
558	Cell[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
596	Cell[CellGroupData[{
597
598	Cell[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
617	Cell[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
669	Cell[CellGroupData[{
670
671	Cell[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
712	Cell[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
763	Cell[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
853	Cell[CellGroupData[{
854
855	Cell[BoxData[
856	RowBox[{"LNew", "=",
857	RowBox[{"LScalarKin", "+", "LFermionKin", "+", "LDecays"}]}]], "Input",
858	CellChangeTimes->{{3.5393180928264513`^9, 3.539318101951029^9}}],
859
860	Cell[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
1011	Cell[CellGroupData[{
1012
1013	Cell["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
1018	Cell[CellGroupData[{
1019
1020	Cell[BoxData[
1021	RowBox[{"CheckMassSpectrum", "[", "LNew", "]"}]], "Input",
1022	CellChangeTimes->{{3.579350411293748^9, 3.579350415283794^9}}],
1023
1024	Cell[CellGroupData[{
1025
1026	Cell[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
1040	Cell[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
1048	Cell[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
1056	Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
1057	values.\"\>"], "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
1066	Cell[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
1131	Cell[CellGroupData[{
1132
1133	Cell["The Feynman rules", "Section",
1134	CellChangeTimes->{{3.5393189582943993`^9, 3.5393189603102827`^9},
1135	3.577374302527355^9, 3.614226983421431^9}],
1136
1137	Cell[CellGroupData[{
1138
1139	Cell[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
1145	Cell[CellGroupData[{
1146
1147	Cell[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
1162	Cell[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
1169	Cell[BoxData["\<\"Collecting the different structures that enter the \
1170	vertex.\"\>"], "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
1177	Cell[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 \
1187	computation: ",
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
1197	Cell[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
1208	Cell[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
1228	Cell[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
1239	Cell[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
1259	Cell[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
1270	Cell[BoxData[
1271	RowBox[{
1272	StyleBox[
1273	RowBox[{"General", "::", "stop"}], "MessageName"],
1274	RowBox[{
1275	":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
1276	NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
1277	this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
1278	ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
1279	ButtonData:>\\\"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
1285	Cell[CellGroupData[{
1286
1287	Cell[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
1307	Cell[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
1327	Cell[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
1347	Cell[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
1367	Cell[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
1387	Cell[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
1407	Cell[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
1427	Cell[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
1447	Cell[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
1467	Cell[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
1487	Cell[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
1499	Cell[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
1859	Cell[CellGroupData[{
1860
1861	Cell["Computing decays", "Section",
1862	CellChangeTimes->{{3.5781006310351267`^9, 3.578100633256648^9}}],
1863
1864	Cell[CellGroupData[{
1865
1866	Cell[BoxData[
1867	RowBox[{
1868	RowBox[{"decays", "=",
1869	RowBox[{"ComputeWidths", "[", "vertices", "]"}]}], ";"}]], "Input",
1870	CellChangeTimes->{{3.578100182561545^9, 3.57810020224467^9},
1871	3.5781019603591213`*^9}],
1872
1873	Cell[CellGroupData[{
1874
1875	Cell[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
1887	Cell[BoxData[
1888	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
1889	decays: \"\>",
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
1900	Cell[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
1914	Cell[CellGroupData[{
1915
1916	Cell[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
1942	Cell[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
1983	Cell[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
2024	Cell[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
2052	Cell[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
2080	Cell[CellGroupData[{
2081
2082	Cell[BoxData[
2083	RowBox[{"%16", "//", "InputForm"}]], "Input",
2084	CellChangeTimes->{{3.6204849920353603`^9, 3.620485001418481^9}, {
2085	3.620485063146112^9, 3.6204850666128397`^9}}],
2086
2087	Cell["\<\
2088	((Mev - MPe1)^2(Mev + MPe1)^2
2089	(lam2pCos[th] - lam1pSin[th])^
2090	2)/(32PiAbs[Mev]^3)\
2091	\>", "Output",
2092	CellChangeTimes->{3.6204850027051353`^9, 3.620485067195485^9}]
2093	}, Open ]],
2094
2095	Cell[CellGroupData[{
2096
2097	Cell[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
2106	Cell[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
2111	Cell[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
2116	Cell[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
2121	Cell[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
2128	Cell[CellGroupData[{
2129
2130	Cell["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
2135	Cell[CellGroupData[{
2136
2137	Cell[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
2149	Cell[BoxData["\<\"/Users/degrande/mg5amcnlo/models\"\>"], "Output",
2150	CellChangeTimes->{3.6142270562894497`^9, 3.614227255614313^9}],
2151
2152	Cell[CellGroupData[{
2153
2154	Cell[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
2162	Cell[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
2177	Cell[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
2184	Cell[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
2196	Cell[BoxData["\<\"Collecting the different structures that enter the \
2197	vertex.\"\>"], "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
2204	Cell[BoxData[
2205	InterpretationBox[
2206	RowBox[{
2207	"111", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
2208	found -> 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 \
2214	computation: ",
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
2223	Cell[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
2234	Cell[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
2252	Cell[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
2260	Cell[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
2271	Cell[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
2291	Cell[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
2302	Cell[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
2322	Cell[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
2333	Cell[BoxData[
2334	RowBox[{
2335	StyleBox[
2336	RowBox[{"General", "::", "stop"}], "MessageName"],
2337	RowBox[{
2338	":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
2339	NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
2340	this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
2341	ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
2342	ButtonData:>\\\"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
2348	Cell[CellGroupData[{
2349
2350	Cell[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
2370	Cell[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
2390	Cell[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
2410	Cell[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
2430	Cell[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
2450	Cell[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
2470	Cell[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
2490	Cell[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
2510	Cell[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
2530	Cell[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
2550	Cell[BoxData[
2551	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
2552	decays: \"\>",
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
2566	Cell[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
2581	Cell[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
2596	Cell[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
2611	Cell[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
2626	Cell[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
2633	Cell[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
2641	Cell[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
2653	Cell[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
2668	Cell[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
2675	Cell[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
2685	Cell[CellGroupData[{
2686
2687	Cell["NLO", "Subtitle",
2688	CellChangeTimes->{{3.620532141194763^9, 3.620532141504681^9}}],
2689
2690	Cell[CellGroupData[{
2691
2692	Cell["\<\
2693	Renormalization and output to FeynArts\
2694	\>", "Section",
2695	CellChangeTimes->{{3.620533137124589^9, 3.620533153042384^9}}],
2696
2697	Cell[CellGroupData[{
2698
2699	Cell[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
2713	Cell[CellGroupData[{
2714
2715	Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
2716	them\"\>"], "Print",
2717	CellChangeTimes->{3.620532197393807^9, 3.620532307232245^9,
2718	3.620532412956456^9, 3.620532716105023^9}],
2719
2720	Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
2721	CellChangeTimes->{3.620532197393807^9, 3.620532307232245^9,
2722	3.620532412956456^9, 3.620532725131181^9}],
2723
2724	Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
2725	CellChangeTimes->{3.620532197393807^9, 3.620532307232245^9,
2726	3.620532412956456^9, 3.620532725230619^9}],
2727
2728	Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
2729	CellChangeTimes->{3.620532197393807^9, 3.620532307232245^9,
2730	3.620532412956456^9, 3.620532725264434^9}],
2731
2732	Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
2733	CellChangeTimes->{3.620532197393807^9, 3.620532307232245^9,
2734	3.620532412956456^9, 3.620532725266629^9}],
2735
2736	Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
2737	CellChangeTimes->{3.620532197393807^9, 3.620532307232245^9,
2738	3.620532412956456^9, 3.620532725269038^9}],
2739
2740	Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
2741	CellChangeTimes->{3.620532197393807^9, 3.620532307232245^9,
2742	3.620532412956456^9, 3.620532725271412^9}],
2743
2744	Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
2745	CellChangeTimes->{3.620532197393807^9, 3.620532307232245^9,
2746	3.620532412956456^9, 3.620532954156363^9}],
2747
2748	Cell[BoxData["\<\"with the parameters\"\>"], "Print",
2749	CellChangeTimes->{3.620532197393807^9, 3.620532307232245^9,
2750	3.620532412956456^9, 3.620532954177005^9}],
2751
2752	Cell[BoxData["\<\"with the fields\"\>"], "Print",
2753	CellChangeTimes->{3.620532197393807^9, 3.620532307232245^9,
2754	3.620532412956456^9, 3.6205329552884617`^9}]
2755	}, Closed]],
2756
2757	Cell[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
2766	Cell[CellGroupData[{
2767
2768	Cell[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
2776	Cell[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
2787	Cell[CellGroupData[{
2788
2789	Cell[BoxData[
2790	RowBox[{"Union", "[",
2791	RowBox[{"Cases", "[",
2792	RowBox[{"Lren", ",", "_FR$deltaZ", ",", "\[Infinity]"}], "]"}],
2793	"]"}]], "Input",
2794	CellChangeTimes->{3.620532671015769*^9}],
2795
2796	Cell[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
2877	Cell[CellGroupData[{
2878
2879	Cell[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
2894	Cell[CellGroupData[{
2895
2896	Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
2897	CellChangeTimes->{3.6205330591520033`*^9}],
2898
2899	Cell[BoxData["\<\" C. Degrande C. Duhr, 2013\"\>"], "Print",
2900	CellChangeTimes->{3.620533059152956*^9}],
2901
2902	Cell[BoxData["\<\" Counterterms: B. Fuks, 2012\"\>"], "Print",
2903	CellChangeTimes->{3.62053305915477*^9}],
2904
2905	Cell[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
2913	Cell[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
2921	Cell[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
2932	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2933	CellChangeTimes->{3.620533062242281*^9}],
2934
2935	Cell[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
2943	Cell[BoxData["\<\"Collecting the different structures that enter the \
2944	vertex.\"\>"], "Print",
2945	CellChangeTimes->{3.6205330759580393`*^9}],
2946
2947	Cell[BoxData[
2948	StyleBox["\<\"Warning: Class members in the Lagrangian! Not supported by \
2949	FeynArts.\"\>",
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
2959	Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
2960	CellChangeTimes->{3.62053307611152*^9}],
2961
2962	Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
2963	separate FeynArts class.\"\>"], "Print",
2964	CellChangeTimes->{3.620533076112297*^9}],
2965
2966	Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
2967	classes\"\>"], "Print",
2968	CellChangeTimes->{3.6205330761129513`*^9}],
2969
2970	Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
2971	-> True.\"\>"], "Print",
2972	CellChangeTimes->{3.6205330761135883`*^9}],
2973
2974	Cell[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
2982	Cell[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
2993	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2994	CellChangeTimes->{3.620533079220386*^9}],
2995
2996	Cell[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
3004	Cell[BoxData["\<\"Collecting the different structures that enter the \
3005	vertex.\"\>"], "Print",
3006	CellChangeTimes->{3.6205330932557783`*^9}],
3007
3008	Cell[BoxData[
3009	InterpretationBox[
3010	RowBox[{
3011	"182", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
3012	found -> 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 \
3018	computation: ",
3019	Dynamic[FeynRules`FR$FeynmanRules], " / ", 182, "."],
3020	Editable->False]], "Print",
3021	CellChangeTimes->{3.62053309340466*^9}]
3022	}, Closed]],
3023
3024	Cell[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
3033	Cell[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
3049	Cell[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
3058	Cell[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
3074	Cell[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
3083	Cell[BoxData[
3084	RowBox[{
3085	StyleBox[
3086	RowBox[{"General", "::", "stop"}], "MessageName"],
3087	RowBox[{
3088	":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
3089	NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
3090	this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
3091	ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
3092	ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
3093	\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
3094	CellChangeTimes->{3.620533104426856*^9}],
3095
3096	Cell[CellGroupData[{
3097
3098	Cell[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
3114	Cell[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
3130	Cell[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
3146	Cell[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
3162	Cell[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
3178	Cell[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
3194	Cell[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
3210	Cell[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
3226	Cell[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
3242	Cell[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
3258	Cell[BoxData[
3259	InterpretationBox[
3260	RowBox[{"167", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3261	SequenceForm[167, " vertices obtained."],
3262	Editable->False]], "Print",
3263	CellChangeTimes->{3.6205331044379263`*^9}],
3264
3265	Cell[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
3274	Cell[BoxData[
3275	RowBox[{"{",
3276	RowBox[{
3277	"44.99032700000000062345861806534230709076`7.6737190630084156", ",",
3278	"Null"}], "}"}]], "Output",
3279	CellChangeTimes->{3.620533108102291*^9}]
3280	}, Closed]]
3281	}, Closed]],
3282
3283	Cell[CellGroupData[{
3284
3285	Cell["Computation of the vertices", "Section",
3286	CellChangeTimes->{{3.620533176529969^9, 3.6205331847695503`^9}}],
3287
3288	Cell[BoxData[
3289	RowBox[{"Quit", "[", "]"}]], "Input",
3290	CellChangeTimes->{{3.620533308839384^9, 3.620533310452351^9}}],
3291
3292	Cell[CellGroupData[{
3293
3294	Cell[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
3305	Cell[CellGroupData[{
3306
3307	Cell[BoxData["\<\"\"\>"], "Print",
3308	CellChangeTimes->{{3.6205333026810293`^9, 3.620533324687025^9},
3309	3.620535149510318*^9}],
3310
3311	Cell[BoxData["\<\"FeynArts 3.8\"\>"], "Print",
3312	CellChangeTimes->{{3.6205333026810293`^9, 3.620533324687025^9},
3313	3.6205351495176487`*^9}],
3314
3315	Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
3316	CellChangeTimes->{{3.6205333026810293`^9, 3.620533324687025^9},
3317	3.620535149523645*^9}],
3318
3319	Cell[BoxData["\<\"last revised 9 Jul 13\"\>"], "Print",
3320	CellChangeTimes->{{3.6205333026810293`^9, 3.620533324687025^9},
3321	3.62053514952705*^9}]
3322	}, Open ]],
3323
3324	Cell[BoxData["\<\"/Users/degrande/feynrules/tags/feynrules-2.1\"\>"], "Output",
3325	CellChangeTimes->{{3.620533305146145^9, 3.620533324772601^9},
3326	3.620535149617305*^9}],
3327
3328	Cell[CellGroupData[{
3329
3330	Cell[BoxData["\<\" - NLOCT - \"\>"], "Print",
3331	CellChangeTimes->{{3.6205333026810293`^9, 3.620533324687025^9},
3332	3.620535149637269*^9}],
3333
3334	Cell[BoxData["\<\"Version: 1.0\"\>"], "Print",
3335	CellChangeTimes->{{3.6205333026810293`^9, 3.620533324687025^9},
3336	3.620535149638682*^9}],
3337
3338	Cell[BoxData["\<\"Authors: C. Degrande\"\>"], "Print",
3339	CellChangeTimes->{{3.6205333026810293`^9, 3.620533324687025^9},
3340	3.620535149640574*^9}]
3341	}, Open ]]
3342	}, Open ]],
3343
3344	Cell[CellGroupData[{
3345
3346	Cell[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
3369	Cell[BoxData["\<\"/Users/degrande/Talks/TASI2013\"\>"], "Output",
3370	CellChangeTimes->{3.620533498289444*^9}],
3371
3372	Cell[CellGroupData[{
3373
3374	Cell[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
3384	Cell[BoxData["\<\"\"\>"], "Print",
3385	CellChangeTimes->{3.6205334982923594`*^9}],
3386
3387	Cell[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
3400	Cell[BoxData["\<\"> $GenericMixing is OFF\"\>"], "Print",
3401	CellChangeTimes->{3.6205334983376493`*^9}],
3402
3403	Cell[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
3412	Cell[BoxData["\<\"\"\>"], "Print",
3413	CellChangeTimes->{3.620533498340768*^9}],
3414
3415	Cell[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
3428	Cell[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
3438	Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
3439	CellChangeTimes->{3.620533498377083*^9}],
3440
3441	Cell[BoxData[
3442	InterpretationBox[
3443	RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "132",
3444	"\[InvisibleSpace]", "\<\" vertices\"\>"}],
3445	SequenceForm["> ", 132, " vertices"],
3446	Editable->False]], "Print",
3447	CellChangeTimes->{3.620533498377994*^9}],
3448
3449	Cell[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
3457	Cell[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
3466	Cell[BoxData["\<\"\"\>"], "Print",
3467	CellChangeTimes->{3.620533498405909*^9}],
3468
3469	Cell[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
3478	Cell[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
3487	Cell[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
3495	Cell[BoxData["\<\"\"\>"], "Print",
3496	CellChangeTimes->{3.620533498438951*^9}],
3497
3498	Cell[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
3508	Cell[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
3516	Cell[BoxData["\<\"Writing amplitude finished after 0.162638\"\>"], "Print",
3517	CellChangeTimes->{3.620533498440873*^9}],
3518
3519	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3520	after 0.162799\"\>"], "Print",
3521	CellChangeTimes->{3.620533498441503*^9}],
3522
3523	Cell[BoxData["\<\"\"\>"], "Print",
3524	CellChangeTimes->{3.620533498442174*^9}],
3525
3526	Cell[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
3535	Cell[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
3544	Cell[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
3552	Cell[BoxData["\<\"\"\>"], "Print",
3553	CellChangeTimes->{3.620533498446512*^9}],
3554
3555	Cell[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
3565	Cell[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
3573	Cell[BoxData["\<\"Writing the symbolic CT finished after 0.164821\"\>"], \
3574	"Print",
3575	CellChangeTimes->{3.620533498449912*^9}],
3576
3577	Cell[BoxData["\<\"SU3 algebra finished after 0.165098\"\>"], "Print",
3578	CellChangeTimes->{3.620533498451009*^9}],
3579
3580	Cell[BoxData["\<\"Simpliication of the vertices finished after \
3581	0.165139\"\>"], "Print",
3582	CellChangeTimes->{3.620533498452078*^9}],
3583
3584	Cell[BoxData["\<\"Vertices {S} finished after 0.165181\"\>"], "Print",
3585	CellChangeTimes->{3.620533498453163*^9}],
3586
3587	Cell[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
3597	Cell[BoxData["\<\"\"\>"], "Print",
3598	CellChangeTimes->{3.620533498455441*^9}],
3599
3600	Cell[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
3609	Cell[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
3618	Cell[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
3627	Cell[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
3635	Cell[BoxData["\<\"\"\>"], "Print",
3636	CellChangeTimes->{3.620533498707855*^9}],
3637
3638	Cell[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
3648	Cell[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
3657	Cell[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
3665	Cell[BoxData["\<\"Writing amplitude finished after 0.474052\"\>"], "Print",
3666	CellChangeTimes->{3.620533498738719*^9}],
3667
3668	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3669	after 1.151059\"\>"], "Print",
3670	CellChangeTimes->{3.620533499409218*^9}],
3671
3672	Cell[BoxData["\<\"\"\>"], "Print",
3673	CellChangeTimes->{3.620533499474893*^9}],
3674
3675	Cell[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
3684	Cell[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
3693	Cell[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
3701	Cell[BoxData["\<\"\"\>"], "Print",
3702	CellChangeTimes->{3.620533499503642*^9}],
3703
3704	Cell[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
3714	Cell[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
3723	Cell[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
3731	Cell[BoxData["\<\"Writing the symbolic CT finished after 1.266844\"\>"], \
3732	"Print",
3733	CellChangeTimes->{3.620533499534739*^9}],
3734
3735	Cell[BoxData["\<\"SU3 algebra finished after 2.201579\"\>"], "Print",
3736	CellChangeTimes->{3.6205335004597397`*^9}],
3737
3738	Cell[BoxData["\<\"before CTSol close\"\>"], "Print",
3739	CellChangeTimes->{3.620533500527563*^9}],
3740
3741	Cell[BoxData["\<\"Simpliication of the vertices finished after \
3742	2.795827\"\>"], "Print",
3743	CellChangeTimes->{3.620533501080803*^9}],
3744
3745	Cell[BoxData["\<\"Vertices {F, F} finished after 2.796093\"\>"], "Print",
3746	CellChangeTimes->{3.620533501082033*^9}],
3747
3748	Cell[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
3758	Cell[BoxData["\<\"\"\>"], "Print",
3759	CellChangeTimes->{3.620533501084587*^9}],
3760
3761	Cell[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
3770	Cell[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
3779	Cell[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
3788	Cell[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
3796	Cell[BoxData["\<\"\"\>"], "Print",
3797	CellChangeTimes->{3.620533501233451*^9}],
3798
3799	Cell[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
3809	Cell[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
3817	Cell[BoxData["\<\"Writing amplitude finished after 2.976225\"\>"], "Print",
3818	CellChangeTimes->{3.620533501237166*^9}],
3819
3820	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3821	after 2.976356\"\>"], "Print",
3822	CellChangeTimes->{3.620533501238275*^9}],
3823
3824	Cell[BoxData["\<\"\"\>"], "Print",
3825	CellChangeTimes->{3.620533501239415*^9}],
3826
3827	Cell[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
3836	Cell[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
3845	Cell[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
3853	Cell[BoxData["\<\"\"\>"], "Print",
3854	CellChangeTimes->{3.620533501245863*^9}],
3855
3856	Cell[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
3866	Cell[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
3874	Cell[BoxData["\<\"Writing the symbolic CT finished after 2.980470\"\>"], \
3875	"Print",
3876	CellChangeTimes->{3.620533501249374*^9}],
3877
3878	Cell[BoxData["\<\"SU3 algebra finished after 2.980764\"\>"], "Print",
3879	CellChangeTimes->{3.620533501250476*^9}],
3880
3881	Cell[BoxData["\<\"Simpliication of the vertices finished after \
3882	2.980817\"\>"], "Print",
3883	CellChangeTimes->{3.6205335012512217`*^9}],
3884
3885	Cell[BoxData["\<\"Vertices {S, S} finished after 2.980941\"\>"], "Print",
3886	CellChangeTimes->{3.620533501251872*^9}],
3887
3888	Cell[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
3898	Cell[BoxData["\<\"\"\>"], "Print",
3899	CellChangeTimes->{3.6205335012532377`*^9}],
3900
3901	Cell[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
3910	Cell[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
3919	Cell[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
3928	Cell[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
3936	Cell[BoxData["\<\"\"\>"], "Print",
3937	CellChangeTimes->{3.620533501546298*^9}],
3938
3939	Cell[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
3949	Cell[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
3958	Cell[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
3967	Cell[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
3975	Cell[BoxData["\<\"Writing amplitude finished after 3.327242\"\>"], "Print",
3976	CellChangeTimes->{3.6205335016162643`*^9}],
3977
3978	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3979	after 4.082443\"\>"], "Print",
3980	CellChangeTimes->{3.620533502361013*^9}],
3981
3982	Cell[BoxData["\<\"\"\>"], "Print",
3983	CellChangeTimes->{3.620533502460844*^9}],
3984
3985	Cell[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
3994	Cell[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
4003	Cell[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
4011	Cell[BoxData["\<\"\"\>"], "Print",
4012	CellChangeTimes->{3.620533502465609*^9}],
4013
4014	Cell[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
4024	Cell[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
4033	Cell[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
4041	Cell[BoxData["\<\"Writing the symbolic CT finished after 4.176326\"\>"], \
4042	"Print",
4043	CellChangeTimes->{3.6205335024700947`*^9}],
4044
4045	Cell[BoxData["\<\"SU3 algebra finished after 4.871199\"\>"], "Print",
4046	CellChangeTimes->{3.620533503129443*^9}],
4047
4048	Cell[BoxData["\<\"before CTSol close\"\>"], "Print",
4049	CellChangeTimes->{3.620533503243033*^9}],
4050
4051	Cell[BoxData["\<\"Simpliication of the vertices finished after \
4052	5.315607\"\>"], "Print",
4053	CellChangeTimes->{3.620533503591157*^9}],
4054
4055	Cell[BoxData["\<\"Vertices {V, V} finished after 5.315780\"\>"], "Print",
4056	CellChangeTimes->{3.620533503592045*^9}],
4057
4058	Cell[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
4068	Cell[BoxData["\<\"\"\>"], "Print",
4069	CellChangeTimes->{3.620533503593501*^9}],
4070
4071	Cell[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
4080	Cell[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
4089	Cell[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
4098	Cell[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
4107	Cell[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
4116	Cell[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
4124	Cell[BoxData["\<\"\"\>"], "Print",
4125	CellChangeTimes->{3.620533509913639*^9}],
4126
4127	Cell[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
4137	Cell[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
4146	Cell[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
4154	Cell[BoxData["\<\"Writing amplitude finished after 11.700716\"\>"], "Print",
4155	CellChangeTimes->{3.620533509976571*^9}],
4156
4157	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4158	after 11.758448\"\>"], "Print",
4159	CellChangeTimes->{3.620533510016708*^9}],
4160
4161	Cell[BoxData["\<\"\"\>"], "Print",
4162	CellChangeTimes->{3.620533510066162*^9}],
4163
4164	Cell[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
4173	Cell[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
4182	Cell[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
4190	Cell[BoxData["\<\"\"\>"], "Print",
4191	CellChangeTimes->{3.620533510094182*^9}],
4192
4193	Cell[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
4203	Cell[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
4212	Cell[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
4220	Cell[BoxData["\<\"Writing the symbolic CT finished after 11.871598\"\>"], \
4221	"Print",
4222	CellChangeTimes->{3.620533510143949*^9}],
4223
4224	Cell[BoxData["\<\"SU3 algebra finished after 12.373353\"\>"], "Print",
4225	CellChangeTimes->{3.62053351063166*^9}],
4226
4227	Cell[BoxData["\<\"Simpliication of the vertices finished after \
4228	12.819795\"\>"], "Print",
4229	CellChangeTimes->{3.620533511077936*^9}],
4230
4231	Cell[BoxData["\<\"Vertices {F, F, S} finished after 12.820026\"\>"], "Print",
4232	CellChangeTimes->{3.620533511078874*^9}],
4233
4234	Cell[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
4244	Cell[BoxData["\<\"\"\>"], "Print",
4245	CellChangeTimes->{3.620533511080554*^9}],
4246
4247	Cell[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
4256	Cell[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
4265	Cell[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
4274	Cell[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
4283	Cell[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
4292	Cell[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
4300	Cell[BoxData["\<\"\"\>"], "Print",
4301	CellChangeTimes->{3.620533518060442*^9}],
4302
4303	Cell[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
4313	Cell[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
4322	Cell[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
4330	Cell[BoxData["\<\"Writing amplitude finished after 20.032111\"\>"], "Print",
4331	CellChangeTimes->{3.6205335183069677`*^9}],
4332
4333	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4334	after 20.285192\"\>"], "Print",
4335	CellChangeTimes->{3.620533518543437*^9}],
4336
4337	Cell[BoxData["\<\"\"\>"], "Print",
4338	CellChangeTimes->{3.620533518765388*^9}],
4339
4340	Cell[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
4349	Cell[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
4358	Cell[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
4366	Cell[BoxData["\<\"\"\>"], "Print",
4367	CellChangeTimes->{3.6205335188052692`*^9}],
4368
4369	Cell[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
4379	Cell[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
4388	Cell[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
4396	Cell[BoxData["\<\"Writing the symbolic CT finished after 20.665658\"\>"], \
4397	"Print",
4398	CellChangeTimes->{3.620533518923821*^9}],
4399
4400	Cell[BoxData["\<\"SU3 algebra finished after 22.685373\"\>"], "Print",
4401	CellChangeTimes->{3.620533520943645*^9}],
4402
4403	Cell[BoxData["\<\"Simpliication of the vertices finished after \
4404	23.313367\"\>"], "Print",
4405	CellChangeTimes->{3.6205335215715637`*^9}],
4406
4407	Cell[BoxData["\<\"Vertices {F, F, V} finished after 23.314003\"\>"], "Print",
4408	CellChangeTimes->{3.620533521573031*^9}],
4409
4410	Cell[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
4420	Cell[BoxData["\<\"\"\>"], "Print",
4421	CellChangeTimes->{3.6205335215755053`*^9}],
4422
4423	Cell[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
4432	Cell[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
4441	Cell[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
4450	Cell[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
4459	Cell[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
4468	Cell[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
4476	Cell[BoxData["\<\"\"\>"], "Print",
4477	CellChangeTimes->{3.620533524267242*^9}],
4478
4479	Cell[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
4489	Cell[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
4498	Cell[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
4507	Cell[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
4516	Cell[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
4525	Cell[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
4533	Cell[BoxData["\<\"Writing amplitude finished after 26.589317\"\>"], "Print",
4534	CellChangeTimes->{3.620533524847513*^9}],
4535
4536	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4537	after 161.622532\"\>"], "Print",
4538	CellChangeTimes->{3.620533659880814*^9}],
4539
4540	Cell[BoxData["\<\"\"\>"], "Print",
4541	CellChangeTimes->{3.620533659927597*^9}],
4542
4543	Cell[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
4552	Cell[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
4561	Cell[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
4569	Cell[BoxData["\<\"\"\>"], "Print",
4570	CellChangeTimes->{3.6205336599308033`*^9}],
4571
4572	Cell[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
4582	Cell[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
4591	Cell[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
4599	Cell[BoxData["\<\"Writing the symbolic CT finished after 161.697041\"\>"], \
4600	"Print",
4601	CellChangeTimes->{3.62053365995516*^9}],
4602
4603	Cell[BoxData["\<\"SU3 algebra finished after 163.982307\"\>"], "Print",
4604	CellChangeTimes->{3.620533662240662*^9}],
4605
4606	Cell[BoxData["\<\"Simpliication of the vertices finished after \
4607	164.690988\"\>"], "Print",
4608	CellChangeTimes->{3.620533662949236*^9}],
4609
4610	Cell[BoxData["\<\"Vertices {V, V, V} finished after 164.691384\"\>"], "Print",
4611	CellChangeTimes->{3.620533662950366*^9}],
4612
4613	Cell[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
4623	Cell[BoxData["\<\"\"\>"], "Print",
4624	CellChangeTimes->{3.62053366295234*^9}],
4625
4626	Cell[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
4635	Cell[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
4644	Cell[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
4653	Cell[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
4662	Cell[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
4671	Cell[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
4679	Cell[BoxData["\<\"\"\>"], "Print",
4680	CellChangeTimes->{3.620533664918003*^9}],
4681
4682	Cell[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
4692	Cell[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
4701	Cell[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
4709	Cell[BoxData["\<\"Writing amplitude finished after 166.750130\"\>"], "Print",
4710	CellChangeTimes->{3.620533665011059*^9}],
4711
4712	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4713	after 166.923604\"\>"], "Print",
4714	CellChangeTimes->{3.620533665181818*^9}],
4715
4716	Cell[BoxData["\<\"\"\>"], "Print",
4717	CellChangeTimes->{3.6205336651891203`*^9}],
4718
4719	Cell[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
4728	Cell[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
4737	Cell[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
4745	Cell[BoxData["\<\"\"\>"], "Print",
4746	CellChangeTimes->{3.620533665192706*^9}],
4747
4748	Cell[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
4758	Cell[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
4766	Cell[BoxData["\<\"Writing the symbolic CT finished after 166.931694\"\>"], \
4767	"Print",
4768	CellChangeTimes->{3.620533665195076*^9}],
4769
4770	Cell[BoxData["\<\"SU3 algebra finished after 166.957321\"\>"], "Print",
4771	CellChangeTimes->{3.62053366521546*^9}],
4772
4773	Cell[BoxData["\<\"Simpliication of the vertices finished after \
4774	166.972779\"\>"], "Print",
4775	CellChangeTimes->{3.620533665231039*^9}],
4776
4777	Cell[BoxData["\<\"Vertices {V, V, S} finished after 166.972978\"\>"], "Print",
4778	CellChangeTimes->{3.6205336652325583`*^9}],
4779
4780	Cell[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
4790	Cell[BoxData["\<\"\"\>"], "Print",
4791	CellChangeTimes->{3.620533665234436*^9}],
4792
4793	Cell[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
4802	Cell[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
4811	Cell[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
4820	Cell[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
4829	Cell[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
4838	Cell[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
4846	Cell[BoxData["\<\"\"\>"], "Print",
4847	CellChangeTimes->{3.620533666880512*^9}],
4848
4849	Cell[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
4859	Cell[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
4868	Cell[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
4876	Cell[BoxData["\<\"Writing amplitude finished after 168.689521\"\>"], "Print",
4877	CellChangeTimes->{3.620533666953887*^9}],
4878
4879	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4880	after 183.577527\"\>"], "Print",
4881	CellChangeTimes->{3.620533681835874*^9}],
4882
4883	Cell[BoxData["\<\"\"\>"], "Print",
4884	CellChangeTimes->{3.62053368183749*^9}],
4885
4886	Cell[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
4895	Cell[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
4904	Cell[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
4912	Cell[BoxData["\<\"\"\>"], "Print",
4913	CellChangeTimes->{3.620533681842359*^9}],
4914
4915	Cell[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
4925	Cell[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
4933	Cell[BoxData["\<\"Writing the symbolic CT finished after 183.582008\"\>"], \
4934	"Print",
4935	CellChangeTimes->{3.620533681846642*^9}],
4936
4937	Cell[BoxData["\<\"SU3 algebra finished after 183.582377\"\>"], "Print",
4938	CellChangeTimes->{3.620533681847885*^9}],
4939
4940	Cell[BoxData["\<\"Simpliication of the vertices finished after \
4941	183.582448\"\>"], "Print",
4942	CellChangeTimes->{3.6205336818493156`*^9}],
4943
4944	Cell[BoxData["\<\"Vertices {V, S, S} finished after 183.582613\"\>"], "Print",
4945	CellChangeTimes->{3.620533681850109*^9}],
4946
4947	Cell[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
4957	Cell[BoxData["\<\"\"\>"], "Print",
4958	CellChangeTimes->{3.6205336818517017`*^9}],
4959
4960	Cell[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
4969	Cell[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
4978	Cell[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
4987	Cell[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
4996	Cell[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
5005	Cell[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
5013	Cell[BoxData["\<\"\"\>"], "Print",
5014	CellChangeTimes->{3.6205336835082817`*^9}],
5015
5016	Cell[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
5026	Cell[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
5034	Cell[BoxData["\<\"Writing amplitude finished after 185.251175\"\>"], "Print",
5035	CellChangeTimes->{3.6205336835124683`*^9}],
5036
5037	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
5038	after 185.251303\"\>"], "Print",
5039	CellChangeTimes->{3.6205336835136223`*^9}],
5040
5041	Cell[BoxData["\<\"\"\>"], "Print",
5042	CellChangeTimes->{3.620533683514435*^9}],
5043
5044	Cell[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
5053	Cell[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
5062	Cell[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
5070	Cell[BoxData["\<\"\"\>"], "Print",
5071	CellChangeTimes->{3.6205336835176077`*^9}],
5072
5073	Cell[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
5083	Cell[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
5091	Cell[BoxData["\<\"Writing the symbolic CT finished after 185.255393\"\>"], \
5092	"Print",
5093	CellChangeTimes->{3.620533683520059*^9}],
5094
5095	Cell[BoxData["\<\"SU3 algebra finished after 185.255637\"\>"], "Print",
5096	CellChangeTimes->{3.620533683521029*^9}],
5097
5098	Cell[BoxData["\<\"Simpliication of the vertices finished after \
5099	185.255681\"\>"], "Print",
5100	CellChangeTimes->{3.620533683521985*^9}],
5101
5102	Cell[BoxData["\<\"Vertices {S, S, S} finished after 185.255792\"\>"], "Print",
5103	CellChangeTimes->{3.620533683522743*^9}],
5104
5105	Cell[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
5115	Cell[BoxData["\<\"\"\>"], "Print",
5116	CellChangeTimes->{3.620533683579533*^9}],
5117
5118	Cell[BoxData[
5119	InterpretationBox[
5120	RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "11",
5121	"\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
5122	ones)\"\>"}],
5123	SequenceForm[
5124	"Excluding ", 11, " field point(s) (incl. charge-conjugate ones)"],
5125	Editable->False]], "Print",
5126	CellChangeTimes->{3.620533683580632*^9}],
5127
5128	Cell[BoxData["\<\"\"\>"], "Print",
5129	CellChangeTimes->{3.6205336835815687`*^9}],
5130
5131	Cell[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
5140	Cell[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
5149	Cell[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
5158	Cell[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
5167	Cell[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
5176	Cell[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
5185	Cell[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
5194	Cell[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
5203	Cell[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
5212	Cell[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
5221	Cell[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
5230	Cell[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
5239	Cell[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
5248	Cell[BoxData["\<\"\"\>"], "Print",
5249	CellChangeTimes->{3.620533714776513*^9}],
5250
5251	Cell[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
5259	Cell[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
5267	Cell[BoxData["\<\"\"\>"], "Print",
5268	CellChangeTimes->{3.6205337192773027`*^9}],
5269
5270	Cell[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
5280	Cell[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
5289	Cell[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
5298	Cell[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
5307	Cell[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
5316	Cell[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
5325	Cell[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
5334	Cell[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
5343	Cell[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
5352	Cell[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
5361	Cell[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
5370	Cell[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
5379	Cell[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
5388	Cell[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
5396	Cell[BoxData["\<\"Writing amplitude finished after 229.819788\"\>"], "Print",
5397	CellChangeTimes->{3.62053372807804*^9}],
5398
5399	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
5400	after 240.748117\"\>"], "Print",
5401	CellChangeTimes->{3.620533739006413*^9}],
5402
5403	Cell[BoxData["\<\"\"\>"], "Print",
5404	CellChangeTimes->{3.620533739517323*^9}],
5405
5406	Cell[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
5415	Cell[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
5424	Cell[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
5432	Cell[BoxData["\<\"\"\>"], "Print",
5433	CellChangeTimes->{3.6205337395207043`*^9}],
5434
5435	Cell[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
5445	Cell[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
5454	Cell[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
5462	Cell[BoxData["\<\"Writing the symbolic CT finished after 241.280124\"\>"], \
5463	"Print",
5464	CellChangeTimes->{3.620533739542612*^9}],
5465
5466	Cell[BoxData["\<\"SU3 algebra finished after 272.564270\"\>"], "Print",
5467	CellChangeTimes->{3.6205337708225117`*^9}],
5468
5469	Cell[BoxData["\<\"Simpliication of the vertices finished after \
5470	276.355951\"\>"], "Print",
5471	CellChangeTimes->{3.620533774614233*^9}],
5472
5473	Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 276.356227\"\>"], \
5474	"Print",
5475	CellChangeTimes->{3.620533774615472*^9}],
5476
5477	Cell[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
5487	Cell[BoxData["\<\"\"\>"], "Print",
5488	CellChangeTimes->{3.620533774633222*^9}],
5489
5490	Cell[BoxData[
5491	InterpretationBox[
5492	RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "11",
5493	"\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
5494	ones)\"\>"}],
5495	SequenceForm[
5496	"Excluding ", 11, " field point(s) (incl. charge-conjugate ones)"],
5497	Editable->False]], "Print",
5498	CellChangeTimes->{3.620533774634218*^9}],
5499
5500	Cell[BoxData["\<\"\"\>"], "Print",
5501	CellChangeTimes->{3.6205337746350603`*^9}],
5502
5503	Cell[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
5512	Cell[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
5521	Cell[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
5530	Cell[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
5539	Cell[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
5548	Cell[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
5557	Cell[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
5566	Cell[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
5575	Cell[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
5584	Cell[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
5593	Cell[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
5602	Cell[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
5611	Cell[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
5620	Cell[BoxData["\<\"\"\>"], "Print",
5621	CellChangeTimes->{3.620533796176793*^9}],
5622
5623	Cell[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
5631	Cell[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
5639	Cell[BoxData["\<\"\"\>"], "Print",
5640	CellChangeTimes->{3.620533798344635*^9}],
5641
5642	Cell[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
5652	Cell[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
5661	Cell[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
5670	Cell[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
5679	Cell[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
5687	Cell[BoxData["\<\"Writing amplitude finished after 301.456067\"\>"], "Print",
5688	CellChangeTimes->{3.6205337997143917`*^9}],
5689
5690	Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
5691	after 301.845155\"\>"], "Print",
5692	CellChangeTimes->{3.620533800103403*^9}],
5693
5694	Cell[BoxData["\<\"\"\>"], "Print",
5695	CellChangeTimes->{3.620533800131535*^9}],
5696
5697	Cell[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
5706	Cell[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
5715	Cell[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
5723	Cell[BoxData["\<\"\"\>"], "Print",
5724	CellChangeTimes->{3.6205338001350307`*^9}],
5725
5726	Cell[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
5736	Cell[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
5744	Cell[BoxData["\<\"Writing the symbolic CT finished after 301.875579\"\>"], \
5745	"Print",
5746	CellChangeTimes->{3.620533800137289*^9}],
5747
5748	Cell[BoxData["\<\"SU3 algebra finished after 302.006212\"\>"], "Print",
5749	CellChangeTimes->{3.620533800264456*^9}],
5750
5751	Cell[BoxData["\<\"Simpliication of the vertices finished after \
5752	302.111518\"\>"], "Print",
5753	CellChangeTimes->{3.620533800369741*^9}],
5754
5755	Cell[BoxData["\<\"Vertices {V, V, S, S} finished after 302.111719\"\>"], \
5756	"Print",
5757	CellChangeTimes->{3.6205338003707733`*^9}],
5758
5759	Cell[BoxData["\<\"before merge 302.113002 temp=175.721392\"\>"], "Print",
5760	CellChangeTimes->{3.6205338003715487`*^9}],
5761
5762	Cell[BoxData["\<\"merging done 302.139319\"\>"], "Print",
5763	CellChangeTimes->{3.6205338003975058`*^9}],
5764
5765	Cell[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
5776	Cell[BoxData[
5777	RowBox[{"{",
5778	RowBox[{"FR$delta", "[",
5779	RowBox[{
5780	RowBox[{"{", "aS", "}"}], ",",
5781	RowBox[{"{", "}"}]}], "]"}], "}"}]], "Print",
5782	CellChangeTimes->{3.620533800400016*^9}],
5783
5784	Cell[BoxData["\<\"Writing R2 and UV counterterms from Tutorial/Tutorial and \
5785	<>gen<> in Tutorial.nlo\"\>"], "Print",
5786	CellChangeTimes->{3.620533800518791*^9}],
5787
5788	Cell[BoxData["\<\"done\"\>"], "Print",
5789	CellChangeTimes->{3.620533800575181*^9}]
5790	}, Closed]],
5791
5792	Cell[BoxData[
5793	RowBox[{"{",
5794	RowBox[{
5795	"303.1719630000000051950337365269660949707`8.502288949034503", ",",
5796	"Null"}], "}"}]], "Output",
5797	CellChangeTimes->{3.620533800584907*^9}]
5798	}, Open ]]
5799	}, Open ]],
5800
5801	Cell[CellGroupData[{
5802
5803	Cell["UFO at NLO", "Section",
5804	CellChangeTimes->{{3.620533176529969^9, 3.6205331847695503`^9}, {
5805	3.620534280759412^9, 3.620534283350081^9}}],
5806
5807	Cell[BoxData[
5808	RowBox[{"Quit", "[", "]"}]], "Input",
5809	CellChangeTimes->{{3.620533308839384^9, 3.620533310452351^9}}],
5810
5811	Cell[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
5819	Cell[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
5828	Cell[CellGroupData[{
5829
5830	Cell[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
5841	Cell[CellGroupData[{
5842
5843	Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
5844	"Print",
5845	CellChangeTimes->{3.6205344646208677`*^9}],
5846
5847	Cell[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
5858	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
5859	CellChangeTimes->{3.620534465047619*^9}],
5860
5861	Cell[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
5869	Cell[BoxData["\<\"Collecting the different structures that enter the \
5870	vertex.\"\>"], "Print",
5871	CellChangeTimes->{3.620534469878598*^9}],
5872
5873	Cell[BoxData[
5874	InterpretationBox[
5875	RowBox[{
5876	"111", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
5877	found -> 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 \
5883	computation: ",
5884	Dynamic[FeynRules`FR$FeynmanRules], " / ", 111, "."],
5885	Editable->False]], "Print",
5886	CellChangeTimes->{3.620534469937046*^9}],
5887
5888	Cell[BoxData[
5889	InterpretationBox[
5890	RowBox[{"106", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
5891	SequenceForm[106, " vertices obtained."],
5892	Editable->False]], "Print",
5893	CellChangeTimes->{3.6205344735966053`*^9}],
5894
5895	Cell[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
5909	Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
5910	CellChangeTimes->{3.620534494595025*^9}]
5911	}, Open ]],
5912
5913	Cell[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
5922	Cell[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
5938	Cell[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
5947	Cell[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
5963	Cell[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
5972	Cell[BoxData[
5973	RowBox[{
5974	StyleBox[
5975	RowBox[{"General", "::", "stop"}], "MessageName"],
5976	RowBox[{
5977	":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
5978	NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
5979	this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
5980	ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
5981	ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
5982	\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
5983	CellChangeTimes->{3.620534495017672*^9}],
5984
5985	Cell[CellGroupData[{
5986
5987	Cell[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
6003	Cell[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
6019	Cell[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
6035	Cell[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
6051	Cell[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
6067	Cell[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
6083	Cell[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
6099	Cell[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
6115	Cell[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
6131	Cell[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
6147	Cell[BoxData["True"], "Print",
6148	CellChangeTimes->{3.620534495029829*^9}],
6149
6150	Cell[BoxData[
6151	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
6152	decays: \"\>",
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
6162	Cell[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
6173	Cell[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
6184	Cell[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
6195	Cell[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
6206	Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
6207	CellChangeTimes->{3.620534500400313*^9}],
6208
6209	Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
6210	"Print",
6211	CellChangeTimes->{3.620534501404196*^9}],
6212
6213	Cell[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
6221	Cell[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
6232	Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
6233	CellChangeTimes->{3.620534511389001*^9}],
6234
6235	Cell[BoxData["\<\"Done!\"\>"], "Print",
6236	CellChangeTimes->{3.620534511865128*^9}]
6237	}, Open ]],
6238
6239	Cell[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	},
6250	WindowSize->{800, 552},
6251	WindowMargins->{{0, Automatic}, {Automatic, 0}},
6252	PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
6253	ShowSelection->True,
6254	Magnification:>FEPrivate`If[
6255	FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
6256	FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
6257	2013)",
6258	StyleDefinitions->"Default.nb"
6259	]
6260	(* End of Notebook Content *)
6261
6262	(* Internal cache information *)
6263	(*CellTagsOutline
6264	CellTagsIndex->{}
6265	*)
6266	(*CellTagsIndex
6267	CellTagsIndex->{}
6268	*)
6269	(*NotebookFileOutline
6270	Notebook[{
6271	Cell[CellGroupData[{
6272	Cell[422, 15, 122, 2, 137, "Title"],
6273	Cell[547, 19, 122, 2, 43, "Input"],
6274	Cell[CellGroupData[{
6275	Cell[694, 25, 104, 1, 119, "Section"],
6276	Cell[CellGroupData[{
6277	Cell[823, 30, 566, 10, 69, "Input"],
6278	Cell[1392, 42, 910, 13, 43, "Output"]
6279	}, Open ]],
6280	Cell[CellGroupData[{
6281	Cell[2339, 60, 124, 2, 43, "Input"],
6282	Cell[CellGroupData[{
6283	Cell[2488, 66, 911, 13, 30, "Print"],
6284	Cell[3402, 81, 1182, 20, 30, "Print"],
6285	Cell[4587, 103, 963, 14, 54, "Print"],
6286	Cell[5553, 119, 897, 13, 30, "Print"],
6287	Cell[6453, 134, 908, 13, 30, "Print"],
6288	Cell[7364, 149, 918, 13, 30, "Print"],
6289	Cell[8285, 164, 960, 14, 54, "Print"],
6290	Cell[9248, 180, 899, 13, 30, "Print"],
6291	Cell[10150, 195, 929, 13, 30, "Print"],
6292	Cell[11082, 210, 897, 13, 30, "Print"],
6293	Cell[11982, 225, 964, 14, 54, "Print"]
6294	}, Open ]]
6295	}, Open ]]
6296	}, Open ]],
6297	Cell[CellGroupData[{
6298	Cell[13007, 246, 102, 1, 119, "Section"],
6299	Cell[CellGroupData[{
6300	Cell[13134, 251, 722, 11, 43, "Input"],
6301	Cell[13859, 264, 906, 13, 43, "Output"]
6302	}, Open ]],
6303	Cell[CellGroupData[{
6304	Cell[14802, 282, 397, 7, 43, "Input"],
6305	Cell[CellGroupData[{
6306	Cell[15224, 293, 856, 12, 30, "Print"],
6307	Cell[16083, 307, 874, 12, 30, "Print"],
6308	Cell[16960, 321, 841, 12, 30, "Print"],
6309	Cell[17804, 335, 980, 16, 30, "Print"],
6310	Cell[18787, 353, 882, 13, 30, "Print"],
6311	Cell[19672, 368, 834, 12, 30, "Print"],
6312	Cell[20509, 382, 866, 12, 30, "Print"],
6313	Cell[21378, 396, 867, 12, 30, "Print"],
6314	Cell[22248, 410, 867, 12, 30, "Print"],
6315	Cell[23118, 424, 1034, 17, 54, "Print"]
6316	}, Open ]]
6317	}, Open ]],
6318	Cell[24179, 445, 210, 5, 105, "Text"],
6319	Cell[CellGroupData[{
6320	Cell[24414, 454, 200, 4, 43, "Input"],
6321	Cell[CellGroupData[{
6322	Cell[24639, 462, 1202, 20, 30, "Print"],
6323	Cell[25844, 484, 1198, 20, 30, "Print"],
6324	Cell[27045, 506, 730, 10, 30, "Print"]
6325	}, Open ]]
6326	}, Open ]]
6327	}, Open ]],
6328	Cell[CellGroupData[{
6329	Cell[27836, 523, 101, 1, 119, "Section"],
6330	Cell[CellGroupData[{
6331	Cell[27962, 528, 930, 27, 94, "Input"],
6332	Cell[28895, 557, 1391, 35, 119, "Output"]
6333	}, Open ]],
6334	Cell[CellGroupData[{
6335	Cell[30323, 597, 593, 17, 69, "Input"],
6336	Cell[30919, 616, 1958, 49, 101, "Output"]
6337	}, Open ]],
6338	Cell[CellGroupData[{
6339	Cell[32914, 670, 1492, 39, 194, "Input"],
6340	Cell[34409, 711, 1869, 49, 166, "Output"],
6341	Cell[36281, 762, 3117, 87, 323, "Output"]
6342	}, Open ]],
6343	Cell[CellGroupData[{
6344	Cell[39435, 854, 178, 3, 43, "Input"],
6345	Cell[39616, 859, 5066, 147, 514, "Output"]
6346	}, Open ]]
6347	}, Open ]],
6348	Cell[CellGroupData[{
6349	Cell[44731, 1012, 203, 3, 119, "Section"],
6350	Cell[CellGroupData[{
6351	Cell[44959, 1019, 139, 2, 43, "Input"],
6352	Cell[CellGroupData[{
6353	Cell[45123, 1025, 641, 12, 30, "Print"],
6354	Cell[45767, 1039, 418, 6, 30, "Print"],
6355	Cell[46188, 1047, 412, 6, 30, "Print"],
6356	Cell[46603, 1055, 455, 7, 54, "Print"]
6357	}, Open ]],
6358	Cell[47073, 1065, 2199, 61, 223, "Output"]
6359	}, Open ]]
6360	}, Closed]],
6361	Cell[CellGroupData[{
6362	Cell[49321, 1132, 154, 2, 72, "Section"],
6363	Cell[CellGroupData[{
6364	Cell[49500, 1138, 215, 4, 43, "Input"],
6365	Cell[CellGroupData[{
6366	Cell[49740, 1146, 610, 13, 30, "Print"],
6367	Cell[50353, 1161, 363, 5, 30, "Print"],
6368	Cell[50719, 1168, 397, 6, 30, "Print"],
6369	Cell[51119, 1176, 880, 17, 54, "Print"]
6370	}, Open ]],
6371	Cell[52014, 1196, 409, 9, 59, "Message"],
6372	Cell[52426, 1207, 828, 18, 69, "Print"],
6373	Cell[53257, 1227, 409, 9, 59, "Message"],
6374	Cell[53669, 1238, 803, 18, 46, "Print"],
6375	Cell[54475, 1258, 411, 9, 59, "Message"],
6376	Cell[54889, 1269, 689, 13, 59, "Message"],
6377	Cell[CellGroupData[{
6378	Cell[55603, 1286, 828, 18, 69, "Print"],
6379	Cell[56434, 1306, 803, 18, 46, "Print"],
6380	Cell[57240, 1326, 805, 18, 48, "Print"],
6381	Cell[58048, 1346, 803, 18, 48, "Print"],
6382	Cell[58854, 1366, 828, 18, 69, "Print"],
6383	Cell[59685, 1386, 803, 18, 46, "Print"],
6384	Cell[60491, 1406, 828, 18, 69, "Print"],
6385	Cell[61322, 1426, 803, 18, 46, "Print"],
6386	Cell[62128, 1446, 805, 18, 46, "Print"],
6387	Cell[62936, 1466, 805, 18, 46, "Print"],
6388	Cell[63744, 1486, 480, 9, 30, "Print"]
6389	}, Open ]],
6390	Cell[64239, 1498, 12259, 356, 976, "Output"]
6391	}, Closed]]
6392	}, Closed]],
6393	Cell[CellGroupData[{
6394	Cell[76547, 1860, 103, 1, 72, "Section"],
6395	Cell[CellGroupData[{
6396	Cell[76675, 1865, 213, 5, 43, "Input"],
6397	Cell[CellGroupData[{
6398	Cell[76913, 1874, 501, 10, 30, "Print"],
6399	Cell[77417, 1886, 435, 11, 54, "Print"],
6400	Cell[77855, 1899, 406, 10, 30, "Print"]
6401	}, Open ]]
6402	}, Open ]],
6403	Cell[CellGroupData[{
6404	Cell[78310, 1915, 930, 24, 119, "Input"],
6405	Cell[79243, 1941, 1467, 39, 143, "Output"],
6406	Cell[80713, 1982, 1465, 39, 143, "Output"],
6407	Cell[82181, 2023, 1026, 26, 82, "Output"],
6408	Cell[83210, 2051, 981, 25, 102, "Output"]
6409	}, Open ]],
6410	Cell[CellGroupData[{
6411	Cell[84228, 2081, 179, 3, 43, "Input"],
6412	Cell[84410, 2086, 183, 5, 102, "Output"]
6413	}, Open ]],
6414	Cell[CellGroupData[{
6415	Cell[84630, 2096, 446, 7, 119, "Input"],
6416	Cell[85079, 2105, 251, 3, 43, "Output"],
6417	Cell[85333, 2110, 251, 3, 43, "Output"],
6418	Cell[85587, 2115, 250, 3, 43, "Output"],
6419	Cell[85840, 2120, 253, 3, 43, "Output"]
6420	}, Open ]]
6421	}, Closed]],
6422	Cell[CellGroupData[{
6423	Cell[86142, 2129, 185, 3, 72, "Section"],
6424	Cell[CellGroupData[{
6425	Cell[86352, 2136, 570, 10, 69, "Input"],
6426	Cell[86925, 2148, 133, 1, 43, "Output"],
6427	Cell[CellGroupData[{
6428	Cell[87083, 2153, 380, 6, 30, "Print"],
6429	Cell[87466, 2161, 603, 13, 30, "Print"],
6430	Cell[88072, 2176, 358, 5, 30, "Print"],
6431	Cell[88433, 2183, 534, 10, 30, "Print"],
6432	Cell[88970, 2195, 390, 6, 30, "Print"],
6433	Cell[89363, 2203, 877, 17, 54, "Print"],
6434	Cell[90243, 2222, 475, 9, 30, "Print"],
6435	Cell[90721, 2233, 830, 16, 54, "Print"],
6436	Cell[91554, 2251, 372, 5, 30, "Print"]
6437	}, Open ]],
6438	Cell[91941, 2259, 393, 9, 59, "Message"],
6439	Cell[92337, 2270, 821, 18, 69, "Print"],
6440	Cell[93161, 2290, 391, 9, 59, "Message"],
6441	Cell[93555, 2301, 798, 18, 46, "Print"],
6442	Cell[94356, 2321, 391, 9, 59, "Message"],
6443	Cell[94750, 2332, 671, 13, 59, "Message"],
6444	Cell[CellGroupData[{
6445	Cell[95446, 2349, 821, 18, 69, "Print"],
6446	Cell[96270, 2369, 796, 18, 46, "Print"],
6447	Cell[97069, 2389, 796, 18, 48, "Print"],
6448	Cell[97868, 2409, 796, 18, 48, "Print"],
6449	Cell[98667, 2429, 821, 18, 69, "Print"],
6450	Cell[99491, 2449, 796, 18, 46, "Print"],
6451	Cell[100290, 2469, 821, 18, 69, "Print"],
6452	Cell[101114, 2489, 795, 18, 46, "Print"],
6453	Cell[101912, 2509, 796, 18, 46, "Print"],
6454	Cell[102711, 2529, 798, 18, 46, "Print"],
6455	Cell[103512, 2549, 639, 14, 54, "Print"],
6456	Cell[104154, 2565, 595, 13, 30, "Print"],
6457	Cell[104752, 2580, 681, 13, 30, "Print"],
6458	Cell[105436, 2595, 595, 13, 30, "Print"],
6459	Cell[106034, 2610, 667, 13, 30, "Print"],
6460	Cell[106704, 2625, 355, 5, 30, "Print"],
6461	Cell[107062, 2632, 379, 6, 30, "Print"],
6462	Cell[107444, 2640, 570, 10, 30, "Print"],
6463	Cell[108017, 2652, 731, 13, 30, "Print"],
6464	Cell[108751, 2667, 351, 5, 30, "Print"],
6465	Cell[109105, 2674, 336, 5, 30, "Print"]
6466	}, Open ]]
6467	}, Open ]]
6468	}, Closed]],
6469	Cell[CellGroupData[{
6470	Cell[109502, 2686, 89, 1, 76, "Subtitle"],
6471	Cell[CellGroupData[{
6472	Cell[109616, 2691, 131, 3, 119, "Section"],
6473	Cell[CellGroupData[{
6474	Cell[109772, 2698, 484, 12, 94, "Input"],
6475	Cell[CellGroupData[{
6476	Cell[110281, 2714, 201, 3, 30, "Print"],
6477	Cell[110485, 2719, 169, 2, 30, "Print"],
6478	Cell[110657, 2723, 186, 2, 30, "Print"],
6479	Cell[110846, 2727, 173, 2, 30, "Print"],
6480	Cell[111022, 2731, 169, 2, 30, "Print"],
6481	Cell[111194, 2735, 188, 2, 30, "Print"],
6482	Cell[111385, 2739, 179, 2, 30, "Print"],
6483	Cell[111567, 2743, 173, 2, 30, "Print"],
6484	Cell[111743, 2747, 164, 2, 30, "Print"],
6485	Cell[111910, 2751, 162, 2, 30, "Print"]
6486	}, Closed]],
6487	Cell[112087, 2756, 233, 6, 40, "Output"]
6488	}, Open ]],
6489	Cell[CellGroupData[{
6490	Cell[112357, 2767, 263, 6, 44, "Input"],
6491	Cell[112623, 2775, 344, 8, 49, "Output"]
6492	}, Open ]],
6493	Cell[CellGroupData[{
6494	Cell[113004, 2788, 191, 5, 44, "Input"],
6495	Cell[113198, 2795, 2633, 78, 111, "Output"]
6496	}, Open ]],
6497	Cell[CellGroupData[{
6498	Cell[115868, 2878, 592, 13, 94, "Input"],
6499	Cell[CellGroupData[{
6500	Cell[116485, 2895, 122, 1, 30, "Print"],
6501	Cell[116610, 2898, 107, 1, 30, "Print"],
6502	Cell[116720, 2901, 108, 1, 30, "Print"],
6503	Cell[116831, 2904, 262, 6, 30, "Print"],
6504	Cell[117096, 2912, 256, 6, 30, "Print"],
6505	Cell[117355, 2920, 356, 9, 30, "Print"],
6506	Cell[117714, 2931, 103, 1, 30, "Print"],
6507	Cell[117820, 2934, 285, 6, 30, "Print"],
6508	Cell[118108, 2942, 138, 2, 30, "Print"],
6509	Cell[118249, 2946, 384, 10, 54, "Print"],
6510	Cell[118636, 2958, 93, 1, 30, "Print"],
6511	Cell[118732, 2961, 162, 2, 54, "Print"],
6512	Cell[118897, 2965, 144, 2, 54, "Print"],
6513	Cell[119044, 2969, 146, 2, 54, "Print"],
6514	Cell[119193, 2973, 254, 6, 30, "Print"],
6515	Cell[119450, 2981, 356, 9, 30, "Print"],
6516	Cell[119809, 2992, 103, 1, 30, "Print"],
6517	Cell[119915, 2995, 285, 6, 30, "Print"],
6518	Cell[120203, 3003, 138, 2, 30, "Print"],
6519	Cell[120344, 3007, 621, 13, 54, "Print"]
6520	}, Closed]],
6521	Cell[120980, 3023, 251, 7, 57, "Message"],
6522	Cell[121234, 3032, 566, 14, 69, "Print"],
6523	Cell[121803, 3048, 251, 7, 59, "Message"],
6524	Cell[122057, 3057, 541, 14, 46, "Print"],
6525	Cell[122601, 3073, 251, 7, 59, "Message"],
6526	Cell[122855, 3082, 531, 11, 59, "Message"],
6527	Cell[CellGroupData[{
6528	Cell[123411, 3097, 566, 14, 69, "Print"],
6529	Cell[123980, 3113, 541, 14, 46, "Print"],
6530	Cell[124524, 3129, 543, 14, 48, "Print"],
6531	Cell[125070, 3145, 541, 14, 48, "Print"],
6532	Cell[125614, 3161, 541, 14, 46, "Print"],
6533	Cell[126158, 3177, 543, 14, 46, "Print"],
6534	Cell[126704, 3193, 568, 14, 69, "Print"],
6535	Cell[127275, 3209, 541, 14, 46, "Print"],
6536	Cell[127819, 3225, 565, 14, 69, "Print"],
6537	Cell[128387, 3241, 541, 14, 46, "Print"],
6538	Cell[128931, 3257, 222, 5, 30, "Print"],
6539	Cell[129156, 3264, 292, 6, 30, "Print"]
6540	}, Open ]],
6541	Cell[129463, 3273, 184, 5, 43, "Output"]
6542	}, Closed]]
6543	}, Closed]],
6544	Cell[CellGroupData[{
6545	Cell[129696, 3284, 114, 1, 72, "Section"],
6546	Cell[129813, 3287, 118, 2, 43, "Input"],
6547	Cell[CellGroupData[{
6548	Cell[129956, 3293, 439, 9, 119, "Input"],
6549	Cell[CellGroupData[{
6550	Cell[130420, 3306, 128, 2, 30, "Print"],
6551	Cell[130551, 3310, 142, 2, 30, "Print"],
6552	Cell[130696, 3314, 173, 2, 30, "Print"],
6553	Cell[130872, 3318, 148, 2, 30, "Print"]
6554	}, Open ]],
6555	Cell[131035, 3323, 171, 2, 43, "Output"],
6556	Cell[CellGroupData[{
6557	Cell[131231, 3329, 139, 2, 30, "Print"],
6558	Cell[131373, 3333, 140, 2, 30, "Print"],
6559	Cell[131516, 3337, 148, 2, 30, "Print"]
6560	}, Open ]]
6561	}, Open ]],
6562	Cell[CellGroupData[{
6563	Cell[131713, 3345, 913, 21, 144, "Input"],
6564	Cell[132629, 3368, 107, 1, 43, "Output"],
6565	Cell[CellGroupData[{
6566	Cell[132761, 3373, 318, 8, 30, "Print"],
6567	Cell[133082, 3383, 78, 1, 30, "Print"],
6568	Cell[133163, 3386, 466, 11, 54, "Print"],
6569	Cell[133632, 3399, 101, 1, 30, "Print"],
6570	Cell[133736, 3402, 321, 7, 30, "Print"],
6571	Cell[134060, 3411, 76, 1, 30, "Print"],
6572	Cell[134139, 3414, 485, 11, 54, "Print"],
6573	Cell[134627, 3427, 388, 8, 30, "Print"],
6574	Cell[135018, 3437, 98, 1, 30, "Print"],
6575	Cell[135119, 3440, 245, 6, 30, "Print"],
6576	Cell[135367, 3448, 277, 6, 30, "Print"],
6577	Cell[135647, 3456, 339, 7, 30, "Print"],
6578	Cell[135989, 3465, 76, 1, 30, "Print"],
6579	Cell[136068, 3468, 308, 7, 30, "Print"],
6580	Cell[136379, 3477, 340, 7, 30, "Print"],
6581	Cell[136722, 3486, 274, 6, 30, "Print"],
6582	Cell[136999, 3494, 76, 1, 30, "Print"],
6583	Cell[137078, 3497, 332, 8, 30, "Print"],
6584	Cell[137413, 3507, 272, 6, 30, "Print"],
6585	Cell[137688, 3515, 117, 1, 30, "Print"],
6586	Cell[137808, 3518, 148, 2, 54, "Print"],
6587	Cell[137959, 3522, 76, 1, 30, "Print"],
6588	Cell[138038, 3525, 309, 7, 30, "Print"],
6589	Cell[138350, 3534, 342, 7, 30, "Print"],
6590	Cell[138695, 3543, 272, 6, 30, "Print"],
6591	Cell[138970, 3551, 76, 1, 30, "Print"],
6592	Cell[139049, 3554, 334, 8, 30, "Print"],
6593	Cell[139386, 3564, 272, 6, 30, "Print"],
6594	Cell[139661, 3572, 125, 2, 30, "Print"],
6595	Cell[139789, 3576, 111, 1, 30, "Print"],
6596	Cell[139903, 3579, 131, 2, 30, "Print"],
6597	Cell[140037, 3583, 112, 1, 30, "Print"],
6598	Cell[140152, 3586, 321, 8, 30, "Print"],
6599	Cell[140476, 3596, 76, 1, 30, "Print"],
6600	Cell[140555, 3599, 309, 7, 30, "Print"],
6601	Cell[140867, 3608, 340, 7, 30, "Print"],
6602	Cell[141210, 3617, 344, 7, 30, "Print"],
6603	Cell[141557, 3626, 276, 6, 30, "Print"],
6604	Cell[141836, 3634, 76, 1, 30, "Print"],
6605	Cell[141915, 3637, 332, 8, 30, "Print"],
6606	Cell[142250, 3647, 342, 7, 30, "Print"],
6607	Cell[142595, 3656, 276, 6, 30, "Print"],
6608	Cell[142874, 3664, 117, 1, 30, "Print"],
6609	Cell[142994, 3667, 148, 2, 54, "Print"],
6610	Cell[143145, 3671, 76, 1, 30, "Print"],
6611	Cell[143224, 3674, 309, 7, 30, "Print"],
6612	Cell[143536, 3683, 342, 7, 30, "Print"],
6613	Cell[143881, 3692, 274, 6, 30, "Print"],
6614	Cell[144158, 3700, 76, 1, 30, "Print"],
6615	Cell[144237, 3703, 332, 8, 30, "Print"],
6616	Cell[144572, 3713, 344, 7, 30, "Print"],
6617	Cell[144919, 3722, 274, 6, 30, "Print"],
6618	Cell[145196, 3730, 125, 2, 30, "Print"],
6619	Cell[145324, 3734, 113, 1, 30, "Print"],
6620	Cell[145440, 3737, 94, 1, 30, "Print"],
6621	Cell[145537, 3740, 131, 2, 30, "Print"],
6622	Cell[145671, 3744, 115, 1, 30, "Print"],
6623	Cell[145789, 3747, 321, 8, 30, "Print"],
6624	Cell[146113, 3757, 76, 1, 30, "Print"],
6625	Cell[146192, 3760, 309, 7, 30, "Print"],
6626	Cell[146504, 3769, 341, 7, 30, "Print"],
6627	Cell[146848, 3778, 342, 7, 30, "Print"],
6628	Cell[147193, 3787, 274, 6, 30, "Print"],
6629	Cell[147470, 3795, 76, 1, 30, "Print"],
6630	Cell[147549, 3798, 332, 8, 30, "Print"],
6631	Cell[147884, 3808, 272, 6, 30, "Print"],
6632	Cell[148159, 3816, 117, 1, 30, "Print"],
6633	Cell[148279, 3819, 148, 2, 54, "Print"],
6634	Cell[148430, 3823, 76, 1, 30, "Print"],
6635	Cell[148509, 3826, 309, 7, 30, "Print"],
6636	Cell[148821, 3835, 342, 7, 30, "Print"],
6637	Cell[149166, 3844, 274, 6, 30, "Print"],
6638	Cell[149443, 3852, 76, 1, 30, "Print"],
6639	Cell[149522, 3855, 334, 8, 30, "Print"],
6640	Cell[149859, 3865, 274, 6, 30, "Print"],
6641	Cell[150136, 3873, 125, 2, 30, "Print"],
6642	Cell[150264, 3877, 111, 1, 30, "Print"],
6643	Cell[150378, 3880, 133, 2, 30, "Print"],
6644	Cell[150514, 3884, 115, 1, 30, "Print"],
6645	Cell[150632, 3887, 321, 8, 30, "Print"],
6646	Cell[150956, 3897, 78, 1, 30, "Print"],
6647	Cell[151037, 3900, 309, 7, 30, "Print"],
6648	Cell[151349, 3909, 342, 7, 30, "Print"],
6649	Cell[151694, 3918, 344, 7, 30, "Print"],
6650	Cell[152041, 3927, 276, 6, 30, "Print"],
6651	Cell[152320, 3935, 76, 1, 30, "Print"],
6652	Cell[152399, 3938, 332, 8, 30, "Print"],
6653	Cell[152734, 3948, 340, 7, 30, "Print"],
6654	Cell[153077, 3957, 342, 7, 30, "Print"],
6655	Cell[153422, 3966, 274, 6, 30, "Print"],
6656	Cell[153699, 3974, 119, 1, 30, "Print"],
6657	Cell[153821, 3977, 148, 2, 54, "Print"],
6658	Cell[153972, 3981, 76, 1, 30, "Print"],
6659	Cell[154051, 3984, 311, 7, 30, "Print"],
6660	Cell[154365, 3993, 340, 7, 30, "Print"],
6661	Cell[154708, 4002, 271, 6, 30, "Print"],
6662	Cell[154982, 4010, 76, 1, 30, "Print"],
6663	Cell[155061, 4013, 332, 8, 30, "Print"],
6664	Cell[155396, 4023, 340, 7, 30, "Print"],
6665	Cell[155739, 4032, 272, 6, 30, "Print"],
6666	Cell[156014, 4040, 127, 2, 30, "Print"],
6667	Cell[156144, 4044, 111, 1, 30, "Print"],
6668	Cell[156258, 4047, 94, 1, 30, "Print"],
6669	Cell[156355, 4050, 131, 2, 30, "Print"],
6670	Cell[156489, 4054, 115, 1, 30, "Print"],
6671	Cell[156607, 4057, 324, 8, 30, "Print"],
6672	Cell[156934, 4067, 76, 1, 30, "Print"],
6673	Cell[157013, 4070, 311, 7, 30, "Print"],
6674	Cell[157327, 4079, 343, 7, 30, "Print"],
6675	Cell[157673, 4088, 340, 7, 30, "Print"],
6676	Cell[158016, 4097, 340, 7, 30, "Print"],
6677	Cell[158359, 4106, 340, 7, 30, "Print"],
6678	Cell[158702, 4115, 276, 6, 30, "Print"],
6679	Cell[158981, 4123, 76, 1, 30, "Print"],
6680	Cell[159060, 4126, 332, 8, 30, "Print"],
6681	Cell[159395, 4136, 341, 7, 30, "Print"],
6682	Cell[159739, 4145, 274, 6, 30, "Print"],
6683	Cell[160016, 4153, 118, 1, 30, "Print"],
6684	Cell[160137, 4156, 149, 2, 54, "Print"],
6685	Cell[160289, 4160, 76, 1, 30, "Print"],
6686	Cell[160368, 4163, 309, 7, 30, "Print"],
6687	Cell[160680, 4172, 344, 7, 30, "Print"],
6688	Cell[161027, 4181, 274, 6, 30, "Print"],
6689	Cell[161304, 4189, 76, 1, 30, "Print"],
6690	Cell[161383, 4192, 332, 8, 30, "Print"],
6691	Cell[161718, 4202, 344, 7, 30, "Print"],
6692	Cell[162065, 4211, 276, 6, 30, "Print"],
6693	Cell[162344, 4219, 126, 2, 30, "Print"],
6694	Cell[162473, 4223, 111, 1, 30, "Print"],
6695	Cell[162587, 4226, 132, 2, 30, "Print"],
6696	Cell[162722, 4230, 119, 1, 30, "Print"],
6697	Cell[162844, 4233, 324, 8, 30, "Print"],
6698	Cell[163171, 4243, 76, 1, 30, "Print"],
6699	Cell[163250, 4246, 309, 7, 30, "Print"],
6700	Cell[163562, 4255, 344, 7, 30, "Print"],
6701	Cell[163909, 4264, 342, 7, 30, "Print"],
6702	Cell[164254, 4273, 340, 7, 30, "Print"],
6703	Cell[164597, 4282, 342, 7, 30, "Print"],
6704	Cell[164942, 4291, 276, 6, 30, "Print"],
6705	Cell[165221, 4299, 76, 1, 30, "Print"],
6706	Cell[165300, 4302, 332, 8, 30, "Print"],
6707	Cell[165635, 4312, 344, 7, 30, "Print"],
6708	Cell[165982, 4321, 276, 6, 30, "Print"],
6709	Cell[166261, 4329, 120, 1, 30, "Print"],
6710	Cell[166384, 4332, 149, 2, 54, "Print"],
6711	Cell[166536, 4336, 76, 1, 30, "Print"],
6712	Cell[166615, 4339, 311, 7, 30, "Print"],
6713	Cell[166929, 4348, 342, 7, 30, "Print"],
6714	Cell[167274, 4357, 276, 6, 30, "Print"],
6715	Cell[167553, 4365, 78, 1, 30, "Print"],
6716	Cell[167634, 4368, 334, 8, 30, "Print"],
6717	Cell[167971, 4378, 342, 7, 30, "Print"],
6718	Cell[168316, 4387, 276, 6, 30, "Print"],
6719	Cell[168595, 4395, 126, 2, 30, "Print"],
6720	Cell[168724, 4399, 112, 1, 30, "Print"],
6721	Cell[168839, 4402, 134, 2, 30, "Print"],
6722	Cell[168976, 4406, 119, 1, 30, "Print"],
6723	Cell[169098, 4409, 324, 8, 30, "Print"],
6724	Cell[169425, 4419, 78, 1, 30, "Print"],
6725	Cell[169506, 4422, 309, 7, 30, "Print"],
6726	Cell[169818, 4431, 350, 7, 30, "Print"],
6727	Cell[170171, 4440, 342, 7, 30, "Print"],
6728	Cell[170516, 4449, 342, 7, 30, "Print"],
6729	Cell[170861, 4458, 342, 7, 30, "Print"],
6730	Cell[171206, 4467, 280, 6, 30, "Print"],
6731	Cell[171489, 4475, 76, 1, 30, "Print"],
6732	Cell[171568, 4478, 332, 8, 30, "Print"],
6733	Cell[171903, 4488, 346, 7, 30, "Print"],
6734	Cell[172252, 4497, 339, 7, 30, "Print"],
6735	Cell[172594, 4506, 342, 7, 30, "Print"],
6736	Cell[172939, 4515, 340, 7, 30, "Print"],
6737	Cell[173282, 4524, 276, 6, 30, "Print"],
6738	Cell[173561, 4532, 118, 1, 30, "Print"],
6739	Cell[173682, 4535, 150, 2, 54, "Print"],
6740	Cell[173835, 4539, 76, 1, 30, "Print"],
6741	Cell[173914, 4542, 311, 7, 30, "Print"],
6742	Cell[174228, 4551, 342, 7, 30, "Print"],
6743	Cell[174573, 4560, 274, 6, 30, "Print"],
6744	Cell[174850, 4568, 78, 1, 30, "Print"],
6745	Cell[174931, 4571, 332, 8, 30, "Print"],
6746	Cell[175266, 4581, 340, 7, 30, "Print"],
6747	Cell[175609, 4590, 274, 6, 30, "Print"],
6748	Cell[175886, 4598, 126, 2, 30, "Print"],
6749	Cell[176015, 4602, 113, 1, 30, "Print"],
6750	Cell[176131, 4605, 133, 2, 30, "Print"],
6751	Cell[176267, 4609, 120, 1, 30, "Print"],
6752	Cell[176390, 4612, 324, 8, 30, "Print"],
6753	Cell[176717, 4622, 75, 1, 30, "Print"],
6754	Cell[176795, 4625, 309, 7, 30, "Print"],
6755	Cell[177107, 4634, 346, 7, 30, "Print"],
6756	Cell[177456, 4643, 344, 7, 30, "Print"],
6757	Cell[177803, 4652, 342, 7, 30, "Print"],
6758	Cell[178148, 4661, 342, 7, 30, "Print"],
6759	Cell[178493, 4670, 280, 6, 30, "Print"],
6760	Cell[178776, 4678, 76, 1, 30, "Print"],
6761	Cell[178855, 4681, 332, 8, 30, "Print"],
6762	Cell[179190, 4691, 342, 7, 30, "Print"],
6763	Cell[179535, 4700, 274, 6, 30, "Print"],
6764	Cell[179812, 4708, 119, 1, 30, "Print"],
6765	Cell[179934, 4711, 150, 2, 54, "Print"],
6766	Cell[180087, 4715, 78, 1, 30, "Print"],
6767	Cell[180168, 4718, 309, 7, 30, "Print"],
6768	Cell[180480, 4727, 340, 7, 30, "Print"],
6769	Cell[180823, 4736, 274, 6, 30, "Print"],
6770	Cell[181100, 4744, 76, 1, 30, "Print"],
6771	Cell[181179, 4747, 334, 8, 30, "Print"],
6772	Cell[181516, 4757, 272, 6, 30, "Print"],
6773	Cell[181791, 4765, 127, 2, 30, "Print"],
6774	Cell[181921, 4769, 112, 1, 30, "Print"],
6775	Cell[182036, 4772, 133, 2, 30, "Print"],
6776	Cell[182172, 4776, 122, 1, 30, "Print"],
6777	Cell[182297, 4779, 324, 8, 30, "Print"],
6778	Cell[182624, 4789, 76, 1, 30, "Print"],
6779	Cell[182703, 4792, 309, 7, 30, "Print"],
6780	Cell[183015, 4801, 346, 7, 30, "Print"],
6781	Cell[183364, 4810, 342, 7, 30, "Print"],
6782	Cell[183709, 4819, 342, 7, 30, "Print"],
6783	Cell[184054, 4828, 342, 7, 30, "Print"],
6784	Cell[184399, 4837, 278, 6, 30, "Print"],
6785	Cell[184680, 4845, 76, 1, 30, "Print"],
6786	Cell[184759, 4848, 332, 8, 30, "Print"],
6787	Cell[185094, 4858, 342, 7, 30, "Print"],
6788	Cell[185439, 4867, 276, 6, 30, "Print"],
6789	Cell[185718, 4875, 119, 1, 30, "Print"],
6790	Cell[185840, 4878, 150, 2, 54, "Print"],
6791	Cell[185993, 4882, 75, 1, 30, "Print"],
6792	Cell[186071, 4885, 309, 7, 30, "Print"],
6793	Cell[186383, 4894, 340, 7, 30, "Print"],
6794	Cell[186726, 4903, 272, 6, 30, "Print"],
6795	Cell[187001, 4911, 76, 1, 30, "Print"],
6796	Cell[187080, 4914, 332, 8, 30, "Print"],
6797	Cell[187415, 4924, 272, 6, 30, "Print"],
6798	Cell[187690, 4932, 127, 2, 30, "Print"],
6799	Cell[187820, 4936, 113, 1, 30, "Print"],
6800	Cell[187936, 4939, 135, 2, 30, "Print"],
6801	Cell[188074, 4943, 120, 1, 30, "Print"],
6802	Cell[188197, 4946, 326, 8, 30, "Print"],
6803	Cell[188526, 4956, 78, 1, 30, "Print"],
6804	Cell[188607, 4959, 309, 7, 30, "Print"],
6805	Cell[188919, 4968, 346, 7, 30, "Print"],
6806	Cell[189268, 4977, 342, 7, 30, "Print"],
6807	Cell[189613, 4986, 342, 7, 30, "Print"],
6808	Cell[189958, 4995, 344, 7, 30, "Print"],
6809	Cell[190305, 5004, 278, 6, 30, "Print"],
6810	Cell[190586, 5012, 78, 1, 30, "Print"],
6811	Cell[190667, 5015, 332, 8, 30, "Print"],
6812	Cell[191002, 5025, 272, 6, 30, "Print"],
6813	Cell[191277, 5033, 121, 1, 30, "Print"],
6814	Cell[191401, 5036, 152, 2, 54, "Print"],
6815	Cell[191556, 5040, 76, 1, 30, "Print"],
6816	Cell[191635, 5043, 309, 7, 30, "Print"],
6817	Cell[191947, 5052, 340, 7, 30, "Print"],
6818	Cell[192290, 5061, 271, 6, 30, "Print"],
6819	Cell[192564, 5069, 78, 1, 30, "Print"],
6820	Cell[192645, 5072, 332, 8, 30, "Print"],
6821	Cell[192980, 5082, 272, 6, 30, "Print"],
6822	Cell[193255, 5090, 127, 2, 30, "Print"],
6823	Cell[193385, 5094, 113, 1, 30, "Print"],
6824	Cell[193501, 5097, 133, 2, 30, "Print"],
6825	Cell[193637, 5101, 120, 1, 30, "Print"],
6826	Cell[193760, 5104, 327, 8, 30, "Print"],
6827	Cell[194090, 5114, 76, 1, 30, "Print"],
6828	Cell[194169, 5117, 336, 8, 30, "Print"],
6829	Cell[194508, 5127, 78, 1, 30, "Print"],
6830	Cell[194589, 5130, 309, 7, 30, "Print"],
6831	Cell[194901, 5139, 344, 7, 30, "Print"],
6832	Cell[195248, 5148, 344, 7, 30, "Print"],
6833	Cell[195595, 5157, 344, 7, 30, "Print"],
6834	Cell[195942, 5166, 346, 7, 30, "Print"],
6835	Cell[196291, 5175, 344, 7, 30, "Print"],
6836	Cell[196638, 5184, 346, 7, 30, "Print"],
6837	Cell[196987, 5193, 348, 7, 30, "Print"],
6838	Cell[197338, 5202, 346, 7, 30, "Print"],
6839	Cell[197687, 5211, 345, 7, 30, "Print"],
6840	Cell[198035, 5220, 348, 7, 30, "Print"],
6841	Cell[198386, 5229, 346, 7, 30, "Print"],
6842	Cell[198735, 5238, 346, 7, 30, "Print"],
6843	Cell[199084, 5247, 76, 1, 30, "Print"],
6844	Cell[199163, 5250, 273, 6, 30, "Print"],
6845	Cell[199439, 5258, 284, 6, 30, "Print"],
6846	Cell[199726, 5266, 78, 1, 30, "Print"],
6847	Cell[199807, 5269, 332, 8, 30, "Print"],
6848	Cell[200142, 5279, 339, 7, 30, "Print"],
6849	Cell[200484, 5288, 340, 7, 30, "Print"],
6850	Cell[200827, 5297, 342, 7, 30, "Print"],
6851	Cell[201172, 5306, 340, 7, 30, "Print"],
6852	Cell[201515, 5315, 340, 7, 30, "Print"],
6853	Cell[201858, 5324, 340, 7, 30, "Print"],
6854	Cell[202201, 5333, 346, 7, 30, "Print"],
6855	Cell[202550, 5342, 345, 7, 30, "Print"],
6856	Cell[202898, 5351, 346, 7, 30, "Print"],
6857	Cell[203247, 5360, 342, 7, 30, "Print"],
6858	Cell[203592, 5369, 344, 7, 30, "Print"],
6859	Cell[203939, 5378, 342, 7, 30, "Print"],
6860	Cell[204284, 5387, 282, 6, 30, "Print"],
6861	Cell[204569, 5395, 118, 1, 30, "Print"],
6862	Cell[204690, 5398, 150, 2, 54, "Print"],
6863	Cell[204843, 5402, 76, 1, 30, "Print"],
6864	Cell[204922, 5405, 311, 7, 30, "Print"],
6865	Cell[205236, 5414, 340, 7, 30, "Print"],
6866	Cell[205579, 5423, 274, 6, 30, "Print"],
6867	Cell[205856, 5431, 78, 1, 30, "Print"],
6868	Cell[205937, 5434, 334, 8, 30, "Print"],
6869	Cell[206274, 5444, 340, 7, 30, "Print"],
6870	Cell[206617, 5453, 274, 6, 30, "Print"],
6871	Cell[206894, 5461, 127, 2, 30, "Print"],
6872	Cell[207024, 5465, 115, 1, 30, "Print"],
6873	Cell[207142, 5468, 133, 2, 30, "Print"],
6874	Cell[207278, 5472, 125, 2, 30, "Print"],
6875	Cell[207406, 5476, 326, 8, 30, "Print"],
6876	Cell[207735, 5486, 76, 1, 30, "Print"],
6877	Cell[207814, 5489, 336, 8, 30, "Print"],
6878	Cell[208153, 5499, 78, 1, 30, "Print"],
6879	Cell[208234, 5502, 309, 7, 30, "Print"],
6880	Cell[208546, 5511, 344, 7, 30, "Print"],
6881	Cell[208893, 5520, 344, 7, 30, "Print"],
6882	Cell[209240, 5529, 346, 7, 30, "Print"],
6883	Cell[209589, 5538, 344, 7, 30, "Print"],
6884	Cell[209936, 5547, 346, 7, 30, "Print"],
6885	Cell[210285, 5556, 344, 7, 30, "Print"],
6886	Cell[210632, 5565, 348, 7, 30, "Print"],
6887	Cell[210983, 5574, 346, 7, 30, "Print"],
6888	Cell[211332, 5583, 346, 7, 30, "Print"],
6889	Cell[211681, 5592, 348, 7, 30, "Print"],
6890	Cell[212032, 5601, 346, 7, 30, "Print"],
6891	Cell[212381, 5610, 346, 7, 30, "Print"],
6892	Cell[212730, 5619, 76, 1, 30, "Print"],
6893	Cell[212809, 5622, 271, 6, 30, "Print"],
6894	Cell[213083, 5630, 280, 6, 30, "Print"],
6895	Cell[213366, 5638, 76, 1, 30, "Print"],
6896	Cell[213445, 5641, 334, 8, 30, "Print"],
6897	Cell[213782, 5651, 343, 7, 30, "Print"],
6898	Cell[214128, 5660, 344, 7, 30, "Print"],
6899	Cell[214475, 5669, 342, 7, 30, "Print"],
6900	Cell[214820, 5678, 278, 6, 30, "Print"],
6901	Cell[215101, 5686, 121, 1, 30, "Print"],
6902	Cell[215225, 5689, 150, 2, 54, "Print"],
6903	Cell[215378, 5693, 76, 1, 30, "Print"],
6904	Cell[215457, 5696, 309, 7, 30, "Print"],
6905	Cell[215769, 5705, 342, 7, 30, "Print"],
6906	Cell[216114, 5714, 271, 6, 30, "Print"],
6907	Cell[216388, 5722, 78, 1, 30, "Print"],
6908	Cell[216469, 5725, 332, 8, 30, "Print"],
6909	Cell[216804, 5735, 272, 6, 30, "Print"],
6910	Cell[217079, 5743, 127, 2, 30, "Print"],
6911	Cell[217209, 5747, 113, 1, 30, "Print"],
6912	Cell[217325, 5750, 133, 2, 30, "Print"],
6913	Cell[217461, 5754, 127, 2, 30, "Print"],
6914	Cell[217591, 5758, 117, 1, 30, "Print"],
6915	Cell[217711, 5761, 101, 1, 30, "Print"],
6916	Cell[217815, 5764, 354, 9, 30, "Print"],
6917	Cell[218172, 5775, 196, 6, 30, "Print"],
6918	Cell[218371, 5783, 159, 2, 54, "Print"],
6919	Cell[218533, 5787, 80, 1, 30, "Print"]
6920	}, Closed]],
6921	Cell[218628, 5791, 183, 5, 40, "Output"]
6922	}, Open ]]
6923	}, Open ]],
6924	Cell[CellGroupData[{
6925	Cell[218860, 5802, 146, 2, 119, "Section"],
6926	Cell[219009, 5806, 118, 2, 43, "Input"],
6927	Cell[219130, 5810, 252, 6, 43, "Input"],
6928	Cell[219385, 5818, 377, 7, 69, "Input"],
6929	Cell[CellGroupData[{
6930	Cell[219787, 5829, 392, 9, 94, "Input"],
6931	Cell[CellGroupData[{
6932	Cell[220204, 5842, 127, 2, 30, "Print"],
6933	Cell[220334, 5846, 348, 9, 30, "Print"],
6934	Cell[220685, 5857, 103, 1, 30, "Print"],
6935	Cell[220791, 5860, 285, 6, 30, "Print"],
6936	Cell[221079, 5868, 136, 2, 30, "Print"],
6937	Cell[221218, 5872, 622, 13, 54, "Print"],
6938	Cell[221843, 5887, 222, 5, 30, "Print"],
6939	Cell[222068, 5894, 575, 12, 54, "Print"],
6940	Cell[222646, 5908, 117, 1, 30, "Print"]
6941	}, Open ]],
6942	Cell[222778, 5912, 253, 7, 59, "Message"],
6943	Cell[223034, 5921, 566, 14, 69, "Print"],
6944	Cell[223603, 5937, 251, 7, 59, "Message"],
6945	Cell[223857, 5946, 543, 14, 46, "Print"],
6946	Cell[224403, 5962, 251, 7, 59, "Message"],
6947	Cell[224657, 5971, 531, 11, 59, "Message"],
6948	Cell[CellGroupData[{
6949	Cell[225213, 5986, 565, 14, 69, "Print"],
6950	Cell[225781, 6002, 543, 14, 46, "Print"],
6951	Cell[226327, 6018, 541, 14, 48, "Print"],
6952	Cell[226871, 6034, 543, 14, 48, "Print"],
6953	Cell[227417, 6050, 566, 14, 69, "Print"],
6954	Cell[227986, 6066, 541, 14, 46, "Print"],
6955	Cell[228530, 6082, 566, 14, 69, "Print"],
6956	Cell[229099, 6098, 540, 14, 46, "Print"],
6957	Cell[229642, 6114, 543, 14, 46, "Print"],
6958	Cell[230188, 6130, 541, 14, 46, "Print"],
6959	Cell[230732, 6146, 72, 1, 30, "Print"],
6960	Cell[230807, 6149, 384, 10, 54, "Print"],
6961	Cell[231194, 6161, 339, 9, 30, "Print"],
6962	Cell[231536, 6172, 425, 9, 30, "Print"],
6963	Cell[231964, 6183, 341, 9, 30, "Print"],
6964	Cell[232308, 6194, 411, 9, 30, "Print"],
6965	Cell[232722, 6205, 100, 1, 30, "Print"],
6966	Cell[232825, 6208, 124, 2, 30, "Print"],
6967	Cell[232952, 6212, 317, 6, 30, "Print"],
6968	Cell[233272, 6220, 475, 9, 30, "Print"],
6969	Cell[233750, 6231, 96, 1, 30, "Print"],
6970	Cell[233849, 6234, 81, 1, 30, "Print"]
6971	}, Open ]],
6972	Cell[233945, 6238, 181, 5, 43, "Output"]
6973	}, Open ]]
6974	}, Closed]]
6975	}, Open ]]
6976	}, Open ]]
6977	}
6978	]
6979	*)
6980

Download in other formats:

Original Format