2HDM: THDM.nb

File THDM.nb, 437.6 KB (added by degrande, 3 years ago)
Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 6.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[    437648,      10263]
14NotebookOptionsPosition[    397813,       9244]
15NotebookOutlinePosition[    398188,       9261]
16CellTagsIndexPosition[    398145,       9258]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["The generic two higgs doublet model", "Title",
24 CellChangeTimes->{{3.6065656931486387`*^9, 3.606565712926631*^9}}],
25
26Cell[BoxData[
27 RowBox[{"Quit", "[", "]"}]], "Input",
28 CellChangeTimes->{{3.4921467751527157`*^9, 3.492146812657303*^9}, {
29  3.539492578139636*^9, 3.539492578833693*^9}, {3.5394960574052753`*^9,
30  3.5394960582979517`*^9}, {3.56467554373663*^9, 3.564675544646311*^9}, {
31  3.569085556441617*^9, 3.5690855574068832`*^9}}],
32
33Cell[CellGroupData[{
34
35Cell["Load", "Subtitle",
36 CellChangeTimes->{{3.569240724009398*^9, 3.569240725028233*^9}}],
37
38Cell[CellGroupData[{
39
40Cell[BoxData[{
41 RowBox[{
42  RowBox[{"$FeynRulesPath", "=",
43   RowBox[{
44   "SetDirectory", "[", "\"\<~/feynrules/branch/feynrules-current\>\"",
45    RowBox[{"(*", "\"\<< FeynRules directory >\>\"", "*)"}], "]"}]}], ";",
46  RowBox[{"<<", "FeynRules`"}]}], "\[IndentingNewLine]",
47 RowBox[{
48  RowBox[{"SetDirectory", "[", "\"\<~/feynrules/trunk/models/2HDM\>\"", "]"}],
49   ";"}], "\[IndentingNewLine]",
50 RowBox[{
51  RowBox[{"LoadModel", "[", "\"\<2HDM.fr\>\"", "]"}], ";"}]}], "Input",
52 CellChangeTimes->{{3.4921612550837307`*^9, 3.4921612558826723`*^9}, {
53   3.564675564049155*^9, 3.56467558391989*^9}, {3.569149902702346*^9,
54   3.569149921105254*^9}, {3.5691499625696*^9, 3.5691499974241467`*^9}, {
55   3.569150063753419*^9, 3.5691500661452637`*^9}, {3.569150117940557*^9,
56   3.56915013702269*^9}, 3.569342628498753*^9, 3.569342676941334*^9, {
57   3.5961118094490843`*^9, 3.596111819502709*^9}, {3.596111966048716*^9,
58   3.596111976438624*^9}, {3.596188097704665*^9, 3.5961881002739973`*^9}, {
59   3.596363223016675*^9, 3.596363225310499*^9}, {3.606025848812273*^9,
60   3.60602585794803*^9}, {3.6065656520325127`*^9, 3.606565661429777*^9}, {
61   3.606635463705255*^9, 3.606635505642956*^9}, {3.6277312289511757`*^9,
62   3.6277313213232*^9}, {3.6538989354241056`*^9, 3.6538989422496967`*^9}}],
63
64Cell[CellGroupData[{
65
66Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
67 CellChangeTimes->{
68  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
69   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
70   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
71   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
72   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
73   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
74   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
75   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
76   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
77   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
78   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
79   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
80   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
81   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
82   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
83   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
84   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
85   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
86   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
87   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
88   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
89   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
90   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
91   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
92   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
93   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
94   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
95   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
96   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
97   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
98   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
99   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
100   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
101   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471688272*^9}],
102
103Cell[BoxData[
104 InterpretationBox[
105  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.13\"\>",
106   "\[InvisibleSpace]",
107   RowBox[{"\<\" (\"\>", " ", "\<\"29 October 2015\"\>"}],
108   "\[InvisibleSpace]", "\<\").\"\>"}],
109  SequenceForm["Version: ", "2.3.13", " (" "29 October 2015", ")."],
110  Editable->False]], "Print",
111 CellChangeTimes->{
112  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
113   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
114   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
115   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
116   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
117   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
118   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
119   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
120   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
121   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
122   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
123   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
124   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
125   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
126   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
127   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
128   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
129   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
130   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
131   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
132   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
133   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
134   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
135   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
136   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
137   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
138   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
139   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
140   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
141   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
142   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
143   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
144   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
145   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904716910543`*^9}],
146
147Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
148B. Fuks\"\>"], "Print",
149 CellChangeTimes->{
150  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
151   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
152   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
153   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
154   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
155   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
156   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
157   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
158   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
159   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
160   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
161   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
162   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
163   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
164   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
165   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
166   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
167   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
168   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
169   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
170   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
171   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
172   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
173   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
174   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
175   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
176   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
177   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
178   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
179   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
180   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
181   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
182   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
183   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904716991777`*^9}],
184
185Cell[BoxData["\<\" \"\>"], "Print",
186 CellChangeTimes->{
187  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
188   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
189   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
190   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
191   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
192   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
193   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
194   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
195   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
196   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
197   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
198   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
199   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
200   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
201   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
202   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
203   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
204   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
205   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
206   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
207   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
208   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
209   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
210   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
211   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
212   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
213   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
214   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
215   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
216   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
217   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
218   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
219   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
220   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471701125*^9}],
221
222Cell[BoxData["\<\"Please cite:\"\>"], "Print",
223 CellChangeTimes->{
224  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
225   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
226   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
227   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
228   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
229   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
230   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
231   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
232   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
233   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
234   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
235   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
236   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
237   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
238   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
239   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
240   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
241   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
242   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
243   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
244   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
245   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
246   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
247   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
248   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
249   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
250   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
251   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
252   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
253   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
254   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
255   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
256   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
257   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904717030497`*^9}],
258
259Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
260(arXiv:1310.1921);\"\>"], "Print",
261 CellChangeTimes->{
262  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
263   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
264   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
265   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
266   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
267   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
268   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
269   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
270   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
271   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
272   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
273   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
274   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
275   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
276   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
277   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
278   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
279   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
280   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
281   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
282   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
283   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
284   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
285   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
286   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
287   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
288   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
289   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
290   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
291   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
292   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
293   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
294   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
295   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904717048817`*^9}],
296
297Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
298(arXiv:0806.4194).\"\>"], "Print",
299 CellChangeTimes->{
300  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
301   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
302   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
303   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
304   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
305   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
306   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
307   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
308   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
309   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
310   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
311   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
312   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
313   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
314   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
315   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
316   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
317   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
318   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
319   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
320   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
321   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
322   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
323   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
324   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
325   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
326   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
327   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
328   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
329   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
330   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
331   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
332   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
333   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471707156*^9}],
334
335Cell[BoxData["\<\" \"\>"], "Print",
336 CellChangeTimes->{
337  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
338   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
339   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
340   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
341   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
342   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
343   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
344   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
345   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
346   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
347   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
348   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
349   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
350   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
351   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
352   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
353   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
354   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
355   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
356   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
357   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
358   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
359   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
360   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
361   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
362   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
363   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
364   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
365   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
366   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
367   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
368   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
369   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
370   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904717096233`*^9}],
371
372Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
373 CellChangeTimes->{
374  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
375   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
376   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
377   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
378   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
379   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
380   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
381   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
382   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
383   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
384   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
385   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
386   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
387   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
388   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
389   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
390   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
391   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
392   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
393   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
394   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
395   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
396   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
397   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
398   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
399   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
400   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
401   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
402   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
403   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
404   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
405   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
406   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
407   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471712204*^9}],
408
409Cell[BoxData["\<\" \"\>"], "Print",
410 CellChangeTimes->{
411  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
412   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
413   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
414   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
415   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
416   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
417   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
418   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
419   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
420   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
421   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
422   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
423   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
424   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
425   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
426   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
427   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
428   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
429   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
430   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
431   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
432   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
433   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
434   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
435   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
436   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
437   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
438   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
439   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
440   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
441   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
442   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
443   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
444   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471714752*^9}],
445
446Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
447FRPalette[].\"\>"], "Print",
448 CellChangeTimes->{
449  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
450   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
451   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
452   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
453   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
454   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
455   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
456   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
457   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
458   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
459   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
460   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
461   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
462   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
463   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
464   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
465   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
466   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
467   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
468   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
469   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
470   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
471   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
472   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
473   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
474   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
475   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
476   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
477   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
478   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
479   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
480   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
481   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
482   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471716756*^9}],
483
484Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
485 CellChangeTimes->{
486  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
487   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
488   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
489   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
490   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
491   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
492   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
493   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
494   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
495   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
496   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
497   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
498   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
499   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
500   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
501   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
502   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
503   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
504   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
505   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
506   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
507   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
508   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
509   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
510   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
511   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
512   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
513   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
514   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
515   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
516   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
517   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
518   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
519   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477755784*^9}],
520
521Cell[BoxData["\<\"C. Duhr\"\>"], "Print",
522 CellChangeTimes->{
523  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
524   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
525   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
526   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
527   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
528   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
529   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
530   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
531   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
532   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
533   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
534   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
535   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
536   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
537   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
538   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
539   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
540   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
541   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
542   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
543   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
544   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
545   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
546   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
547   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
548   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
549   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
550   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
551   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
552   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
553   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
554   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
555   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
556   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477758497*^9}],
557
558Cell[BoxData["\<\"M. Herquet\"\>"], "Print",
559 CellChangeTimes->{
560  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
561   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
562   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
563   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
564   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
565   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
566   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
567   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
568   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
569   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
570   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
571   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
572   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
573   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
574   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
575   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
576   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
577   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
578   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
579   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
580   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
581   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
582   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
583   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
584   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
585   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
586   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
587   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
588   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
589   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
590   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
591   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
592   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
593   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904777609987`*^9}],
594
595Cell[BoxData["\<\"C. Degrande\"\>"], "Print",
596 CellChangeTimes->{
597  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
598   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
599   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
600   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
601   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
602   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
603   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
604   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
605   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
606   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
607   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
608   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
609   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
610   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
611   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
612   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
613   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
614   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
615   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
616   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
617   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
618   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
619   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
620   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
621   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
622   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
623   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
624   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
625   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
626   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
627   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
628   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
629   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
630   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477763521*^9}],
631
632Cell[BoxData[
633 InterpretationBox[
634  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.2\"\>"}],
635  SequenceForm["Model Version: ", "1.2"],
636  Editable->False]], "Print",
637 CellChangeTimes->{
638  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
639   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
640   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
641   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
642   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
643   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
644   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
645   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
646   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
647   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
648   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
649   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
650   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
651   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
652   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
653   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
654   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
655   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
656   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
657   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
658   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
659   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
660   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
661   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
662   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
663   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
664   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
665   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
666   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
667   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
668   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
669   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
670   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
671   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477765869*^9}],
672
673Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be/view/Main/2HDM\"\>"], \
674"Print",
675 CellChangeTimes->{
676  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
677   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
678   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
679   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
680   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
681   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
682   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
683   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
684   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
685   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
686   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
687   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
688   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
689   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
690   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
691   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
692   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
693   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
694   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
695   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
696   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
697   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
698   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
699   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
700   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
701   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
702   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
703   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
704   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
705   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
706   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
707   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
708   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
709   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477767865*^9}],
710
711Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
712"Print",
713 CellChangeTimes->{
714  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
715   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
716   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
717   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
718   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
719   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
720   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
721   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
722   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
723   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
724   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
725   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
726   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
727   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
728   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
729   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
730   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
731   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
732   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
733   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
734   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
735   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
736   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
737   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
738   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
739   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
740   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
741   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
742   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
743   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
744   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
745   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
746   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
747   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477769981*^9}],
748
749Cell[BoxData["\<\"\"\>"], "Print",
750 CellChangeTimes->{
751  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
752   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
753   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
754   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
755   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
756   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
757   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
758   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
759   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
760   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
761   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
762   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
763   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
764   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
765   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
766   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
767   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
768   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
769   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
770   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
771   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
772   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
773   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
774   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
775   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
776   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
777   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
778   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
779   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
780   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
781   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
782   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
783   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
784   3.654953006650334*^9, 3.654953051772233*^9, 3.65519047777192*^9}],
785
786Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
787 CellChangeTimes->{
788  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
789   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
790   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
791   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
792   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
793   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
794   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
795   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
796   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
797   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
798   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
799   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
800   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
801   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
802   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
803   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
804   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
805   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
806   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
807   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
808   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
809   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
810   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
811   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
812   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
813   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
814   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
815   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
816   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
817   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
818   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
819   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
820   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
821   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904777739487`*^9}],
822
823Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
824 CellChangeTimes->{
825  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
826   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
827   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
828   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
829   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
830   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
831   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
832   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
833   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
834   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
835   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
836   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
837   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
838   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
839   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
840   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
841   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
842   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
843   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
844   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
845   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
846   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
847   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
848   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
849   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
850   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
851   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
852   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
853   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
854   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
855   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
856   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
857   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
858   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904779530478`*^9}],
859
860Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
861 CellChangeTimes->{
862  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
863   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
864   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
865   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
866   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
867   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
868   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
869   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
870   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
871   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
872   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
873   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
874   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
875   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
876   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
877   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
878   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
879   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
880   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
881   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
882   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
883   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
884   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
885   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
886   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
887   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
888   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
889   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
890   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
891   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
892   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
893   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
894   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
895   3.654953006650334*^9, 3.654953051772233*^9, 3.655190478003882*^9}],
896
897Cell[BoxData[
898 InterpretationBox[
899  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"2HDM\"\>",
900   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
901  SequenceForm["\nModel ", "2HDM", " loaded."],
902  Editable->False]], "Print",
903 CellChangeTimes->{
904  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9,
905   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9,
906   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9,
907   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9,
908   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9,
909   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
910   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9,
911   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9,
912   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
913   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9,
914   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9},
915   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9,
916   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9},
917   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9,
918   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9,
919   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9,
920   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9,
921   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9,
922   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9,
923   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9,
924   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9,
925   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9,
926   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9,
927   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9,
928   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9,
929   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9,
930   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9,
931   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
932   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9,
933   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9,
934   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9,
935   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9,
936   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9,
937   3.654953006650334*^9, 3.654953051772233*^9, 3.655190478238326*^9}]
938}, Open  ]]
939}, Open  ]],
940
941Cell[CellGroupData[{
942
943Cell[BoxData[
944 RowBox[{"LoadRestriction", "[", "\"\<Masslessbuttb.rst\>\"", "]"}]], "Input",
945 CellChangeTimes->{{3.606631605206788*^9, 3.606631637034782*^9},
946   3.6066355125445433`*^9}],
947
948Cell[CellGroupData[{
949
950Cell[BoxData[
951 InterpretationBox[
952  RowBox[{"\<\"Loading restrictions from \"\>",
953   "\[InvisibleSpace]", "\<\"Masslessbuttb.rst\"\>",
954   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
955   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
956    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
957   "\[InvisibleSpace]", "21"}],
958  SequenceForm["Loading restrictions from ", "Masslessbuttb.rst", " : ",
959   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 21],
960  Editable->False]], "Print",
961 CellChangeTimes->{
962  3.627731363470016*^9, 3.627734790146563*^9, 3.627817579041278*^9,
963   3.627818062977867*^9, 3.627819538768237*^9, 3.627820877224578*^9,
964   3.627821622199861*^9, 3.627825825735676*^9, 3.627826355932469*^9,
965   3.627827264058908*^9, 3.627830020629446*^9, 3.627830319528097*^9,
966   3.6278802556290627`*^9, 3.62788033602254*^9, 3.627883771614822*^9,
967   3.627893989012804*^9, 3.6279100063607607`*^9, 3.627910124324683*^9,
968   3.627911036814773*^9, 3.65389895372441*^9, {3.6539006643240957`*^9,
969   3.653900690325498*^9}, 3.6539007662459583`*^9, 3.65390145549323*^9,
970   3.653903163884425*^9, 3.654842216203476*^9, 3.654849236906515*^9,
971   3.654850336642887*^9, 3.654850498980588*^9, 3.65485736019982*^9,
972   3.6549503164062033`*^9, 3.6549518243813677`*^9, 3.65495231801512*^9,
973   3.6549524427030783`*^9, 3.654952919060877*^9, 3.6549530115095654`*^9,
974   3.6549530564565153`*^9, 3.655190479454441*^9}],
975
976Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
977 CellChangeTimes->{
978  3.627731363470016*^9, 3.627734790146563*^9, 3.627817579041278*^9,
979   3.627818062977867*^9, 3.627819538768237*^9, 3.627820877224578*^9,
980   3.627821622199861*^9, 3.627825825735676*^9, 3.627826355932469*^9,
981   3.627827264058908*^9, 3.627830020629446*^9, 3.627830319528097*^9,
982   3.6278802556290627`*^9, 3.62788033602254*^9, 3.627883771614822*^9,
983   3.627893989012804*^9, 3.6279100063607607`*^9, 3.627910124324683*^9,
984   3.627911036814773*^9, 3.65389895372441*^9, {3.6539006643240957`*^9,
985   3.653900690325498*^9}, 3.6539007662459583`*^9, 3.65390145549323*^9,
986   3.653903163884425*^9, 3.654842216203476*^9, 3.654849236906515*^9,
987   3.654850336642887*^9, 3.654850498980588*^9, 3.65485736019982*^9,
988   3.6549503164062033`*^9, 3.6549518243813677`*^9, 3.65495231801512*^9,
989   3.6549524427030783`*^9, 3.654952919060877*^9, 3.6549530115095654`*^9,
990   3.6549530564565153`*^9, 3.6551904802858686`*^9}]
991}, Open  ]]
992}, Open  ]],
993
994Cell[CellGroupData[{
995
996Cell[BoxData[
997 RowBox[{"LoadRestriction", "[", "\"\<FlavorSym.rst\>\"", "]"}]], "Input",
998 CellChangeTimes->{{3.57642962723387*^9, 3.576429631423997*^9}, {
999   3.5962184038453217`*^9, 3.5962184047858152`*^9}, {3.596437456441763*^9,
1000   3.59643749351665*^9}, 3.606025870993246*^9, {3.606565741659004*^9,
1001   3.6065657430649443`*^9}, 3.6066355175769587`*^9, {3.627893983454527*^9,
1002   3.62789399290574*^9}}],
1003
1004Cell[CellGroupData[{
1005
1006Cell[BoxData[
1007 InterpretationBox[
1008  RowBox[{"\<\"Loading restrictions from \"\>",
1009   "\[InvisibleSpace]", "\<\"FlavorSym.rst\"\>",
1010   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
1011   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
1012    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1013   "\[InvisibleSpace]", "12"}],
1014  SequenceForm["Loading restrictions from ", "FlavorSym.rst", " : ",
1015   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 12],
1016  Editable->False]], "Print",
1017 CellChangeTimes->{
1018  3.6277313642355633`*^9, 3.627734790876503*^9, 3.6278175800391073`*^9,
1019   3.62781806394445*^9, 3.627819539719757*^9, 3.627820878127697*^9,
1020   3.627821623245056*^9, 3.6278258269929132`*^9, 3.627826357277272*^9,
1021   3.627827265135848*^9, 3.627830021719227*^9, 3.627830320577775*^9,
1022   3.627880256632204*^9, 3.627880337068672*^9, 3.6278837725421057`*^9,
1023   3.6278939900187902`*^9, 3.62791000733996*^9, 3.627910125294846*^9,
1024   3.627911037779027*^9, 3.653898954925337*^9, {3.6539006654752617`*^9,
1025   3.653900691364588*^9}, 3.6539007673900537`*^9, 3.654842217227129*^9,
1026   3.654849237856778*^9, 3.654850338008253*^9, 3.654850499972781*^9,
1027   3.654857361307753*^9, 3.654950317568956*^9, 3.65495182554195*^9,
1028   3.654952319182435*^9, 3.654952443857732*^9, 3.654952920279011*^9,
1029   3.65495301281643*^9, 3.654953057613742*^9, 3.655190480642058*^9}],
1030
1031Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
1032 CellChangeTimes->{
1033  3.6277313642355633`*^9, 3.627734790876503*^9, 3.6278175800391073`*^9,
1034   3.62781806394445*^9, 3.627819539719757*^9, 3.627820878127697*^9,
1035   3.627821623245056*^9, 3.6278258269929132`*^9, 3.627826357277272*^9,
1036   3.627827265135848*^9, 3.627830021719227*^9, 3.627830320577775*^9,
1037   3.627880256632204*^9, 3.627880337068672*^9, 3.6278837725421057`*^9,
1038   3.6278939900187902`*^9, 3.62791000733996*^9, 3.627910125294846*^9,
1039   3.627911037779027*^9, 3.653898954925337*^9, {3.6539006654752617`*^9,
1040   3.653900691364588*^9}, 3.6539007673900537`*^9, 3.654842217227129*^9,
1041   3.654849237856778*^9, 3.654850338008253*^9, 3.654850499972781*^9,
1042   3.654857361307753*^9, 3.654950317568956*^9, 3.65495182554195*^9,
1043   3.654952319182435*^9, 3.654952443857732*^9, 3.654952920279011*^9,
1044   3.65495301281643*^9, 3.654953057613742*^9, 3.655190481148137*^9}]
1045}, Open  ]]
1046}, Open  ]],
1047
1048Cell[CellGroupData[{
1049
1050Cell[BoxData[
1051 RowBox[{"LoadRestriction", "[", "\"\<CPconserving.rst\>\"", "]"}]], "Input",
1052 CellChangeTimes->{{3.594732842695395*^9, 3.5947328650290327`*^9}, {
1053   3.599985558037518*^9, 3.5999855616514053`*^9}, 3.6060258770173197`*^9, {
1054   3.606565745872488*^9, 3.606565747144857*^9}, 3.6066355320227957`*^9}],
1055
1056Cell[CellGroupData[{
1057
1058Cell[BoxData[
1059 InterpretationBox[
1060  RowBox[{"\<\"Loading restrictions from \"\>",
1061   "\[InvisibleSpace]", "\<\"CPconserving.rst\"\>",
1062   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
1063   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
1064    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1065   "\[InvisibleSpace]", "13"}],
1066  SequenceForm["Loading restrictions from ", "CPconserving.rst", " : ",
1067   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 13],
1068  Editable->False]], "Print",
1069 CellChangeTimes->{
1070  3.627731364714395*^9, 3.627734791356848*^9, 3.627817580580311*^9,
1071   3.627818064432496*^9, 3.627819540224031*^9, 3.627820878709158*^9,
1072   3.627821624097713*^9, 3.627825827656622*^9, 3.62782635798005*^9,
1073   3.627827265654965*^9, 3.627830022279565*^9, 3.627830321493363*^9,
1074   3.627880257232462*^9, 3.627880337708626*^9, 3.627883773036158*^9,
1075   3.627893995888242*^9, 3.627910007964456*^9, 3.627910125793729*^9,
1076   3.627911038432085*^9, 3.653898955663381*^9, {3.65390066631213*^9,
1077   3.653900692061092*^9}, 3.653900768170933*^9, 3.654842218011307*^9,
1078   3.654849238681135*^9, 3.654850338658656*^9, 3.654850500677692*^9,
1079   3.654857362317774*^9, 3.654950318521212*^9, 3.6549518263808327`*^9,
1080   3.65495232000002*^9, 3.654952444701728*^9, 3.65495292108038*^9,
1081   3.654953013483369*^9, 3.654953058430987*^9, 3.655190481447442*^9}],
1082
1083Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
1084 CellChangeTimes->{
1085  3.627731364714395*^9, 3.627734791356848*^9, 3.627817580580311*^9,
1086   3.627818064432496*^9, 3.627819540224031*^9, 3.627820878709158*^9,
1087   3.627821624097713*^9, 3.627825827656622*^9, 3.62782635798005*^9,
1088   3.627827265654965*^9, 3.627830022279565*^9, 3.627830321493363*^9,
1089   3.627880257232462*^9, 3.627880337708626*^9, 3.627883773036158*^9,
1090   3.627893995888242*^9, 3.627910007964456*^9, 3.627910125793729*^9,
1091   3.627911038432085*^9, 3.653898955663381*^9, {3.65390066631213*^9,
1092   3.653900692061092*^9}, 3.653900768170933*^9, 3.654842218011307*^9,
1093   3.654849238681135*^9, 3.654850338658656*^9, 3.654850500677692*^9,
1094   3.654857362317774*^9, 3.654950318521212*^9, 3.6549518263808327`*^9,
1095   3.65495232000002*^9, 3.654952444701728*^9, 3.65495292108038*^9,
1096   3.654953013483369*^9, 3.654953058430987*^9, 3.655190481810688*^9}]
1097}, Open  ]]
1098}, Open  ]]
1099}, Open  ]],
1100
1101Cell[CellGroupData[{
1102
1103Cell["Checks", "Subtitle",
1104 CellChangeTimes->{{3.56934251627102*^9, 3.569342534875886*^9}}],
1105
1106Cell[CellGroupData[{
1107
1108Cell[BoxData[
1109 RowBox[{"CheckHermiticity", "[",
1110  RowBox[{"L2HDM", ",",
1111   RowBox[{"FlavorExpand", "\[Rule]", "Higgs"}]}], "]"}]], "Input",
1112 CellChangeTimes->{{3.56933242502278*^9, 3.569332481230145*^9}}],
1113
1114Cell[CellGroupData[{
1115
1116Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
1117contained in L-HC[L].\"\>"], "Print",
1118 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9,
1119  3.6066317700760403`*^9, 3.653898968800343*^9}],
1120
1121Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
1122should be zero.\"\>"], "Print",
1123 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9,
1124  3.6066317700760403`*^9, 3.653898968819825*^9}],
1125
1126Cell[BoxData[
1127 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1128  StripOnInput->False,
1129  LineColor->RGBColor[1, 0.5, 0],
1130  FrontFaceColor->RGBColor[1, 0.5, 0],
1131  BackFaceColor->RGBColor[1, 0.5, 0],
1132  GraphicsColor->RGBColor[1, 0.5, 0],
1133  FontWeight->Bold,
1134  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1135 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9,
1136  3.6066317700760403`*^9, 3.653899078017605*^9}],
1137
1138Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1139 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9,
1140  3.6066317700760403`*^9, 3.653899078051853*^9}],
1141
1142Cell[BoxData[
1143 InterpretationBox[
1144  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
1145   "\[InvisibleSpace]", "\<\" cores\"\>"}],
1146  SequenceForm["Expanding the indices over ", 2, " cores"],
1147  Editable->False]], "Print",
1148 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9,
1149  3.6066317700760403`*^9, 3.653899078075037*^9}],
1150
1151Cell[BoxData["\<\"Collecting the different structures that enter the \
1152vertex.\"\>"], "Print",
1153 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9,
1154  3.6066317700760403`*^9, 3.65389907953053*^9}],
1155
1156Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
1157 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9,
1158  3.6066317700760403`*^9, 3.6538990795504837`*^9}],
1159
1160Cell[BoxData[
1161 InterpretationBox[
1162  RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1163  SequenceForm[0, " vertices obtained."],
1164  Editable->False]], "Print",
1165 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9,
1166  3.6066317700760403`*^9, 3.653899079567608*^9}],
1167
1168Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
1169 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9,
1170  3.6066317700760403`*^9, 3.653899079583893*^9}]
1171}, Open  ]],
1172
1173Cell[BoxData[
1174 RowBox[{"{", "}"}]], "Output",
1175 CellChangeTimes->{3.569332499747506*^9, 3.6065659123510447`*^9,
1176  3.606631909001973*^9, 3.6538990796006937`*^9}]
1177}, Open  ]],
1178
1179Cell[CellGroupData[{
1180
1181Cell[BoxData[
1182 RowBox[{"CheckMassSpectrum", "[",
1183  RowBox[{"L2HDM", ",",
1184   RowBox[{"FlavorExpand", "\[Rule]", "Higgs"}]}], "]"}]], "Input",
1185 CellChangeTimes->{{3.569330855977614*^9, 3.569330859368457*^9},
1186   3.56933116102186*^9, {3.569332303316351*^9, 3.5693323069294987`*^9}}],
1187
1188Cell[CellGroupData[{
1189
1190Cell[BoxData[
1191 InterpretationBox[
1192  RowBox[{"\<\"Neglecting all terms with more than \"\>",
1193   "\[InvisibleSpace]", "\<\"2\"\>",
1194   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
1195  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
1196  Editable->False]], "Print",
1197 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9,
1198  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9,
1199  3.60663198309888*^9}],
1200
1201Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
1202 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9,
1203  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9,
1204  3.60663198415108*^9}],
1205
1206Cell[BoxData[
1207 InterpretationBox[
1208  RowBox[{"\<\"Warning: mass term for \"\>",
1209   "\[InvisibleSpace]", "\<\"{GP, GPbar}\"\>",
1210   "\[InvisibleSpace]", "\<\"seems not to have the correct sign.\"\>"}],
1211  SequenceForm[
1212  "Warning: mass term for ", "{GP, GPbar}",
1213   "seems not to have the correct sign."],
1214  Editable->False]], "Print",
1215 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9,
1216  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9,
1217  3.606632045926795*^9}],
1218
1219Cell[BoxData[
1220 InterpretationBox[
1221  RowBox[{"\<\"Warning: mass term for \"\>",
1222   "\[InvisibleSpace]", "\<\"{A, A}\"\>",
1223   "\[InvisibleSpace]", "\<\"seems not to have the correct sign.\"\>"}],
1224  SequenceForm[
1225  "Warning: mass term for ", "{A, A}", "seems not to have the correct sign."],
1226  Editable->False]], "Print",
1227 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9,
1228  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9,
1229  3.606632045993162*^9}],
1230
1231Cell[BoxData[
1232 InterpretationBox[
1233  RowBox[{"\<\"Warning: mass term for \"\>",
1234   "\[InvisibleSpace]", "\<\"{ghA, ghAbar}\"\>",
1235   "\[InvisibleSpace]", "\<\"seems not to have the correct sign.\"\>"}],
1236  SequenceForm[
1237  "Warning: mass term for ", "{ghA, ghAbar}",
1238   "seems not to have the correct sign."],
1239  Editable->False]], "Print",
1240 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9,
1241  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9,
1242  3.6066320459999733`*^9}],
1243
1244Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
1245 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9,
1246  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9,
1247  3.606632046034184*^9}],
1248
1249Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
1250values.\"\>"], "Print",
1251 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9,
1252  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9,
1253  3.606632046067045*^9}]
1254}, Open  ]],
1255
1256Cell[BoxData[
1257 InterpretationBox[GridBox[{
1258    {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
1259"\<\"Model-file value\"\>", "\<\"\"\>"},
1260    {"Hc",
1261     SqrtBox[
1262      RowBox[{"mu2", "+",
1263       FractionBox[
1264        RowBox[{
1265         SubscriptBox["\[Lambda]", "3"], " ",
1266         SuperscriptBox["vev", "2"]}], "2"]}]], "150.`", "150.`", "\<\"\"\>"},
1267    {"ghWm",
1268     RowBox[{
1269      FractionBox["1", "2"], " ",
1270      SqrtBox[
1271       RowBox[{
1272        SubsuperscriptBox["g", "w", "2"], " ",
1273        SuperscriptBox["vev", "2"]}]]}], "79.82466003605599`",
1274     "79.82466003605597`", "\<\"\"\>"},
1275    {"ghWp",
1276     RowBox[{
1277      FractionBox["1", "2"], " ",
1278      SqrtBox[
1279       RowBox[{
1280        SubsuperscriptBox["g", "w", "2"], " ",
1281        SuperscriptBox["vev", "2"]}]]}], "79.82466003605599`",
1282     "79.82466003605597`", "\<\"\"\>"},
1283    {"ghZ",
1284     SqrtBox[
1285      RowBox[{
1286       RowBox[{
1287        FractionBox["1", "4"], " ",
1288        SubsuperscriptBox["c", "w", "2"], " ",
1289        SubsuperscriptBox["g", "w", "2"], " ",
1290        SuperscriptBox["vev", "2"]}], "+",
1291       RowBox[{
1292        FractionBox["1", "2"], " ",
1293        SubscriptBox["c", "w"], " ",
1294        SubscriptBox["g", "1"], " ",
1295        SubscriptBox["g", "w"], " ",
1296        SubscriptBox["s", "w"], " ",
1297        SuperscriptBox["vev", "2"]}], "+",
1298       RowBox[{
1299        FractionBox["1", "4"], " ",
1300        SubsuperscriptBox["g", "1", "2"], " ",
1301        SubsuperscriptBox["s", "w", "2"], " ",
1302        SuperscriptBox["vev", "2"]}]}]], "91.1876`", "91.1876`", "\<\"\"\>"},
1303    {"b",
1304     RowBox[{
1305      FractionBox[
1306       RowBox[{"vev", " ",
1307        SubsuperscriptBox[
1308         RowBox[{"(",
1309          TemplateBox[{"y","d"},
1310           "Superscript"], ")"}],
1311         RowBox[{"3", ",", "3"}], "\<\"*\"\>"]}],
1312       RowBox[{"2", " ",
1313        SqrtBox["2"]}]], "+",
1314      FractionBox[
1315       RowBox[{"vev", " ",
1316        SubscriptBox[
1317         TemplateBox[{"y","d"},
1318          "Superscript"],
1319         RowBox[{"3", ",", "3"}]]}],
1320       RowBox[{"2", " ",
1321        SqrtBox["2"]}]]}], "4.700000000000001`", "4.7`", "\<\"\"\>"},
1322    {"ta",
1323     RowBox[{
1324      FractionBox[
1325       RowBox[{"vev", " ",
1326        SubsuperscriptBox[
1327         RowBox[{"(",
1328          TemplateBox[{"y","l"},
1329           "Superscript"], ")"}],
1330         RowBox[{"3", ",", "3"}], "\<\"*\"\>"]}],
1331       RowBox[{"2", " ",
1332        SqrtBox["2"]}]], "+",
1333      FractionBox[
1334       RowBox[{"vev", " ",
1335        SubscriptBox[
1336         TemplateBox[{"y","l"},
1337          "Superscript"],
1338         RowBox[{"3", ",", "3"}]]}],
1339       RowBox[{"2", " ",
1340        SqrtBox["2"]}]]}], "1.7770000000000001`", "0.`",
1341     TagBox[
1342      StyleBox["\<\"Discrepency!\"\>",
1343       FontColor->RGBColor[1, 0, 0]],
1344      StyleForm[#, FontColor -> RGBColor[1, 0, 0]]& ]},
1345    {"t",
1346     RowBox[{
1347      FractionBox[
1348       RowBox[{"vev", " ",
1349        SubsuperscriptBox[
1350         RowBox[{"(",
1351          TemplateBox[{"y","u"},
1352           "Superscript"], ")"}],
1353         RowBox[{"3", ",", "3"}], "\<\"*\"\>"]}],
1354       RowBox[{"2", " ",
1355        SqrtBox["2"]}]], "+",
1356      FractionBox[
1357       RowBox[{"vev", " ",
1358        SubscriptBox[
1359         TemplateBox[{"y","u"},
1360          "Superscript"],
1361         RowBox[{"3", ",", "3"}]]}],
1362       RowBox[{"2", " ",
1363        SqrtBox["2"]}]]}], "172.`", "172.`", "\<\"\"\>"},
1364    {"h1",
1365     RowBox[{
1366      SqrtBox["2"], " ",
1367      SqrtBox[
1368       RowBox[{
1369        RowBox[{
1370         FractionBox["1", "2"], " ", "mu1", " ",
1371         SubsuperscriptBox[
1372          RowBox[{"(",
1373           SubscriptBox["T", "H"], ")"}],
1374          RowBox[{"1", ",", "1"}], "2"]}], "+",
1375        RowBox[{
1376         FractionBox["3", "2"], " ",
1377         SubscriptBox["\[Lambda]", "1"], " ",
1378         SuperscriptBox["vev", "2"], " ",
1379         SubsuperscriptBox[
1380          RowBox[{"(",
1381           SubscriptBox["T", "H"], ")"}],
1382          RowBox[{"1", ",", "1"}], "2"]}], "+",
1383        RowBox[{
1384         FractionBox["1", "2"], " ", "mu3", " ",
1385         SubscriptBox[
1386          SubscriptBox["T", "H"],
1387          RowBox[{"1", ",", "1"}]], " ",
1388         SubscriptBox[
1389          SubscriptBox["T", "H"],
1390          RowBox[{"2", ",", "1"}]]}], "+",
1391        RowBox[{
1392         FractionBox["3", "2"], " ",
1393         SubscriptBox["\[Lambda]", "6"], " ",
1394         SuperscriptBox["vev", "2"], " ",
1395         SubscriptBox[
1396          SubscriptBox["T", "H"],
1397          RowBox[{"1", ",", "1"}]], " ",
1398         SubscriptBox[
1399          SubscriptBox["T", "H"],
1400          RowBox[{"2", ",", "1"}]]}], "+",
1401        RowBox[{
1402         FractionBox["1", "2"], " ",
1403         SuperscriptBox["mu3", "\<\"*\"\>"], " ",
1404         SubscriptBox[
1405          SubscriptBox["T", "H"],
1406          RowBox[{"1", ",", "1"}]], " ",
1407         SubscriptBox[
1408          SubscriptBox["T", "H"],
1409          RowBox[{"2", ",", "1"}]]}], "+",
1410        RowBox[{
1411         FractionBox["1", "2"], " ", "mu2", " ",
1412         SubsuperscriptBox[
1413          RowBox[{"(",
1414           SubscriptBox["T", "H"], ")"}],
1415          RowBox[{"2", ",", "1"}], "2"]}], "+",
1416        RowBox[{
1417         FractionBox["1", "4"], " ",
1418         SubscriptBox["\[Lambda]", "3"], " ",
1419         SuperscriptBox["vev", "2"], " ",
1420         SubsuperscriptBox[
1421          RowBox[{"(",
1422           SubscriptBox["T", "H"], ")"}],
1423          RowBox[{"2", ",", "1"}], "2"]}], "+",
1424        RowBox[{
1425         FractionBox["1", "4"], " ",
1426         SubscriptBox["\[Lambda]", "4"], " ",
1427         SuperscriptBox["vev", "2"], " ",
1428         SubsuperscriptBox[
1429          RowBox[{"(",
1430           SubscriptBox["T", "H"], ")"}],
1431          RowBox[{"2", ",", "1"}], "2"]}], "+",
1432        RowBox[{
1433         FractionBox["1", "2"], " ",
1434         SubscriptBox["\[Lambda]", "5"], " ",
1435         SuperscriptBox["vev", "2"], " ",
1436         SubsuperscriptBox[
1437          RowBox[{"(",
1438           SubscriptBox["T", "H"], ")"}],
1439          RowBox[{"2", ",", "1"}], "2"]}]}]]}], "120.00000000000001`",
1440     "120.`", "\<\"\"\>"},
1441    {"h2",
1442     RowBox[{
1443      SqrtBox["2"], " ",
1444      SqrtBox[
1445       RowBox[{
1446        RowBox[{
1447         FractionBox["1", "2"], " ", "mu1", " ",
1448         SubsuperscriptBox[
1449          RowBox[{"(",
1450           SubscriptBox["T", "H"], ")"}],
1451          RowBox[{"1", ",", "2"}], "2"]}], "+",
1452        RowBox[{
1453         FractionBox["3", "2"], " ",
1454         SubscriptBox["\[Lambda]", "1"], " ",
1455         SuperscriptBox["vev", "2"], " ",
1456         SubsuperscriptBox[
1457          RowBox[{"(",
1458           SubscriptBox["T", "H"], ")"}],
1459          RowBox[{"1", ",", "2"}], "2"]}], "+",
1460        RowBox[{
1461         FractionBox["1", "2"], " ", "mu3", " ",
1462         SubscriptBox[
1463          SubscriptBox["T", "H"],
1464          RowBox[{"1", ",", "2"}]], " ",
1465         SubscriptBox[
1466          SubscriptBox["T", "H"],
1467          RowBox[{"2", ",", "2"}]]}], "+",
1468        RowBox[{
1469         FractionBox["3", "2"], " ",
1470         SubscriptBox["\[Lambda]", "6"], " ",
1471         SuperscriptBox["vev", "2"], " ",
1472         SubscriptBox[
1473          SubscriptBox["T", "H"],
1474          RowBox[{"1", ",", "2"}]], " ",
1475         SubscriptBox[
1476          SubscriptBox["T", "H"],
1477          RowBox[{"2", ",", "2"}]]}], "+",
1478        RowBox[{
1479         FractionBox["1", "2"], " ",
1480         SuperscriptBox["mu3", "\<\"*\"\>"], " ",
1481         SubscriptBox[
1482          SubscriptBox["T", "H"],
1483          RowBox[{"1", ",", "2"}]], " ",
1484         SubscriptBox[
1485          SubscriptBox["T", "H"],
1486          RowBox[{"2", ",", "2"}]]}], "+",
1487        RowBox[{
1488         FractionBox["1", "2"], " ", "mu2", " ",
1489         SubsuperscriptBox[
1490          RowBox[{"(",
1491           SubscriptBox["T", "H"], ")"}],
1492          RowBox[{"2", ",", "2"}], "2"]}], "+",
1493        RowBox[{
1494         FractionBox["1", "4"], " ",
1495         SubscriptBox["\[Lambda]", "3"], " ",
1496         SuperscriptBox["vev", "2"], " ",
1497         SubsuperscriptBox[
1498          RowBox[{"(",
1499           SubscriptBox["T", "H"], ")"}],
1500          RowBox[{"2", ",", "2"}], "2"]}], "+",
1501        RowBox[{
1502         FractionBox["1", "4"], " ",
1503         SubscriptBox["\[Lambda]", "4"], " ",
1504         SuperscriptBox["vev", "2"], " ",
1505         SubsuperscriptBox[
1506          RowBox[{"(",
1507           SubscriptBox["T", "H"], ")"}],
1508          RowBox[{"2", ",", "2"}], "2"]}], "+",
1509        RowBox[{
1510         FractionBox["1", "2"], " ",
1511         SubscriptBox["\[Lambda]", "5"], " ",
1512         SuperscriptBox["vev", "2"], " ",
1513         SubsuperscriptBox[
1514          RowBox[{"(",
1515           SubscriptBox["T", "H"], ")"}],
1516          RowBox[{"2", ",", "2"}], "2"]}]}]]}], "130.`", "130.`", "\<\"\"\>"},
1517    {"h3",
1518     RowBox[{
1519      SqrtBox["2"], " ",
1520      SqrtBox[
1521       RowBox[{
1522        RowBox[{
1523         FractionBox["1", "2"], " ", "mu2", " ",
1524         SubsuperscriptBox[
1525          RowBox[{"(",
1526           SubscriptBox["T", "H"], ")"}],
1527          RowBox[{"3", ",", "3"}], "2"]}], "+",
1528        RowBox[{
1529         FractionBox["1", "4"], " ",
1530         SubscriptBox["\[Lambda]", "3"], " ",
1531         SuperscriptBox["vev", "2"], " ",
1532         SubsuperscriptBox[
1533          RowBox[{"(",
1534           SubscriptBox["T", "H"], ")"}],
1535          RowBox[{"3", ",", "3"}], "2"]}], "+",
1536        RowBox[{
1537         FractionBox["1", "4"], " ",
1538         SubscriptBox["\[Lambda]", "4"], " ",
1539         SuperscriptBox["vev", "2"], " ",
1540         SubsuperscriptBox[
1541          RowBox[{"(",
1542           SubscriptBox["T", "H"], ")"}],
1543          RowBox[{"3", ",", "3"}], "2"]}], "-",
1544        RowBox[{
1545         FractionBox["1", "2"], " ",
1546         SubscriptBox["\[Lambda]", "5"], " ",
1547         SuperscriptBox["vev", "2"], " ",
1548         SubsuperscriptBox[
1549          RowBox[{"(",
1550           SubscriptBox["T", "H"], ")"}],
1551          RowBox[{"3", ",", "3"}], "2"]}]}]]}], "140.00000000000003`",
1552     "140.`", "\<\"\"\>"},
1553    {"W",
1554     RowBox[{
1555      FractionBox["1", "2"], " ",
1556      SqrtBox[
1557       RowBox[{
1558        SubsuperscriptBox["g", "w", "2"], " ",
1559        SuperscriptBox["vev", "2"]}]]}], "79.82466003605599`",
1560     "79.82466003605597`", "\<\"\"\>"},
1561    {"Z",
1562     RowBox[{
1563      SqrtBox["2"], " ",
1564      SqrtBox[
1565       RowBox[{
1566        RowBox[{
1567         FractionBox["1", "8"], " ",
1568         SubsuperscriptBox["c", "w", "2"], " ",
1569         SubsuperscriptBox["g", "w", "2"], " ",
1570         SuperscriptBox["vev", "2"]}], "+",
1571        RowBox[{
1572         FractionBox["1", "4"], " ",
1573         SubscriptBox["c", "w"], " ",
1574         SubscriptBox["g", "1"], " ",
1575         SubscriptBox["g", "w"], " ",
1576         SubscriptBox["s", "w"], " ",
1577         SuperscriptBox["vev", "2"]}], "+",
1578        RowBox[{
1579         FractionBox["1", "8"], " ",
1580         SubsuperscriptBox["g", "1", "2"], " ",
1581         SubsuperscriptBox["s", "w", "2"], " ",
1582         SuperscriptBox["vev", "2"]}]}]]}], "91.1876`", "91.1876`", "\<\"\"\>"}
1583   },
1584   GridBoxAlignment->{
1585    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1586     "RowsIndexed" -> {}},
1587   GridBoxSpacings->{"Columns" -> {
1588       Offset[0.27999999999999997`], {
1589        Offset[2.0999999999999996`]},
1590       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1591       Offset[0.2], {
1592        Offset[0.4]},
1593       Offset[0.2]}, "RowsIndexed" -> {}}],
1594  TableForm[{{
1595    "Particle", "Analytic value", "Numerical value",
1596     "Model-file value"}, {$CellContext`Hc, (
1597      FeynRules`mu2 + (Rational[1, 2] $CellContext`l3) $CellContext`vev^2)^
1598     Rational[1, 2], 150., 150.}, {$CellContext`ghWm,
1599     Rational[1, 2] ($CellContext`gw^2 $CellContext`vev^2)^Rational[1, 2],
1600     79.82466003605599, 79.82466003605597}, {$CellContext`ghWp,
1601     Rational[1, 2] ($CellContext`gw^2 $CellContext`vev^2)^Rational[1, 2],
1602     79.82466003605599,
1603     79.82466003605597}, {$CellContext`ghZ, (((
1604         Rational[
1605          1, 4] $CellContext`cw^2) $CellContext`gw^2) $CellContext`vev^2 + \
1606((((Rational[1, 2] $CellContext`cw)
1607          FeynRules`g1) $CellContext`gw) $CellContext`sw) $CellContext`vev^2 + \
1608((Rational[1, 4] FeynRules`g1^2) $CellContext`sw^2) $CellContext`vev^2)^
1609     Rational[1, 2], 91.1876, 91.1876}, {
1610    FeynRules`b, ((Rational[1, 2] 2^Rational[-1, 2]) $CellContext`vev)
1611      Conjugate[
1612        $CellContext`yd[
1613         FeynRules`Index[$CellContext`Generation, 3],
1614         FeynRules`Index[$CellContext`Generation, 3]]] + ((Rational[1, 2]
1615        2^Rational[-1, 2]) $CellContext`vev) $CellContext`yd[
1616        FeynRules`Index[$CellContext`Generation, 3],
1617        FeynRules`Index[$CellContext`Generation, 3]], 4.700000000000001,
1618     4.7}, {$CellContext`ta, ((Rational[1, 2]
1619        2^Rational[-1, 2]) $CellContext`vev) Conjugate[
1620        $CellContext`yl[
1621         FeynRules`Index[$CellContext`Generation, 3],
1622         FeynRules`Index[$CellContext`Generation, 3]]] + ((Rational[1, 2]
1623        2^Rational[-1, 2]) $CellContext`vev) $CellContext`yl[
1624        FeynRules`Index[$CellContext`Generation, 3],
1625        FeynRules`Index[$CellContext`Generation, 3]], 1.7770000000000001`, 0.,
1626     StyleForm["Discrepency!", FontColor -> RGBColor[1, 0, 0]]}, {
1627    FeynRules`t, ((Rational[1, 2] 2^Rational[-1, 2]) $CellContext`vev)
1628      Conjugate[
1629        $CellContext`yu[
1630         FeynRules`Index[$CellContext`Generation, 3],
1631         FeynRules`Index[$CellContext`Generation, 3]]] + ((Rational[1, 2]
1632        2^Rational[-1, 2]) $CellContext`vev) $CellContext`yu[
1633        FeynRules`Index[$CellContext`Generation, 3],
1634        FeynRules`Index[$CellContext`Generation, 3]], 172.,
1635     172.}, {$CellContext`h1,
1636     2^Rational[1, 2] ((Rational[1, 2] FeynRules`mu1) $CellContext`TH[
1637           FeynRules`Index[$CellContext`Higgs, 1],
1638           FeynRules`Index[$CellContext`Higgs, 1]]^2 + ((Rational[3, 2]
1639          FeynRules`l1) $CellContext`vev^2) $CellContext`TH[
1640           FeynRules`Index[$CellContext`Higgs, 1],
1641           FeynRules`Index[$CellContext`Higgs, 1]]^2 + ((
1642          Rational[1, 2] $CellContext`mu3) $CellContext`TH[
1643           FeynRules`Index[$CellContext`Higgs, 1],
1644           FeynRules`Index[$CellContext`Higgs, 1]]) $CellContext`TH[
1645          FeynRules`Index[$CellContext`Higgs, 2],
1646         
1647          FeynRules`Index[$CellContext`Higgs, 1]] + (((
1648           Rational[3, 2] $CellContext`l6) $CellContext`vev^2) $CellContext`TH[
1649           FeynRules`Index[$CellContext`Higgs, 1],
1650           FeynRules`Index[$CellContext`Higgs, 1]]) $CellContext`TH[
1651          FeynRules`Index[$CellContext`Higgs, 2],
1652          FeynRules`Index[$CellContext`Higgs, 1]] + ((Rational[1, 2]
1653          Conjugate[$CellContext`mu3]) $CellContext`TH[
1654           FeynRules`Index[$CellContext`Higgs, 1],
1655           FeynRules`Index[$CellContext`Higgs, 1]]) $CellContext`TH[
1656          FeynRules`Index[$CellContext`Higgs, 2],
1657          FeynRules`Index[$CellContext`Higgs, 1]] + (Rational[1, 2]
1658         FeynRules`mu2) $CellContext`TH[
1659           FeynRules`Index[$CellContext`Higgs, 2],
1660           FeynRules`Index[$CellContext`Higgs, 1]]^2 + ((
1661          Rational[1, 4] $CellContext`l3) $CellContext`vev^2) $CellContext`TH[
1662           FeynRules`Index[$CellContext`Higgs, 2],
1663           FeynRules`Index[$CellContext`Higgs, 1]]^2 + ((
1664          Rational[1, 4] $CellContext`l4) $CellContext`vev^2) $CellContext`TH[
1665           FeynRules`Index[$CellContext`Higgs, 2],
1666           FeynRules`Index[$CellContext`Higgs, 1]]^2 + ((
1667          Rational[1, 2] $CellContext`l5) $CellContext`vev^2) $CellContext`TH[
1668           FeynRules`Index[$CellContext`Higgs, 2],
1669           FeynRules`Index[$CellContext`Higgs, 1]]^2)^Rational[1, 2],
1670     120.00000000000001`, 120.}, {$CellContext`h2,
1671     2^Rational[1, 2] ((Rational[1, 2] FeynRules`mu1) $CellContext`TH[
1672           FeynRules`Index[$CellContext`Higgs, 1],
1673           FeynRules`Index[$CellContext`Higgs, 2]]^2 + ((Rational[3, 2]
1674          FeynRules`l1) $CellContext`vev^2) $CellContext`TH[
1675           FeynRules`Index[$CellContext`Higgs, 1],
1676           FeynRules`Index[$CellContext`Higgs, 2]]^2 + ((
1677          Rational[1, 2] $CellContext`mu3) $CellContext`TH[
1678           FeynRules`Index[$CellContext`Higgs, 1],
1679           FeynRules`Index[$CellContext`Higgs, 2]]) $CellContext`TH[
1680          FeynRules`Index[$CellContext`Higgs, 2],
1681         
1682          FeynRules`Index[$CellContext`Higgs, 2]] + (((
1683           Rational[3, 2] $CellContext`l6) $CellContext`vev^2) $CellContext`TH[
1684           FeynRules`Index[$CellContext`Higgs, 1],
1685           FeynRules`Index[$CellContext`Higgs, 2]]) $CellContext`TH[
1686          FeynRules`Index[$CellContext`Higgs, 2],
1687          FeynRules`Index[$CellContext`Higgs, 2]] + ((Rational[1, 2]
1688          Conjugate[$CellContext`mu3]) $CellContext`TH[
1689           FeynRules`Index[$CellContext`Higgs, 1],
1690           FeynRules`Index[$CellContext`Higgs, 2]]) $CellContext`TH[
1691          FeynRules`Index[$CellContext`Higgs, 2],
1692          FeynRules`Index[$CellContext`Higgs, 2]] + (Rational[1, 2]
1693         FeynRules`mu2) $CellContext`TH[
1694           FeynRules`Index[$CellContext`Higgs, 2],
1695           FeynRules`Index[$CellContext`Higgs, 2]]^2 + ((
1696          Rational[1, 4] $CellContext`l3) $CellContext`vev^2) $CellContext`TH[
1697           FeynRules`Index[$CellContext`Higgs, 2],
1698           FeynRules`Index[$CellContext`Higgs, 2]]^2 + ((
1699          Rational[1, 4] $CellContext`l4) $CellContext`vev^2) $CellContext`TH[
1700           FeynRules`Index[$CellContext`Higgs, 2],
1701           FeynRules`Index[$CellContext`Higgs, 2]]^2 + ((
1702          Rational[1, 2] $CellContext`l5) $CellContext`vev^2) $CellContext`TH[
1703           FeynRules`Index[$CellContext`Higgs, 2],
1704           FeynRules`Index[$CellContext`Higgs, 2]]^2)^Rational[1, 2], 130.,
1705     130.}, {$CellContext`h3,
1706     2^Rational[1, 2] ((Rational[1, 2] FeynRules`mu2) $CellContext`TH[
1707           FeynRules`Index[$CellContext`Higgs, 3],
1708           FeynRules`Index[$CellContext`Higgs, 3]]^2 + ((
1709          Rational[1, 4] $CellContext`l3) $CellContext`vev^2) $CellContext`TH[
1710           FeynRules`Index[$CellContext`Higgs, 3],
1711           FeynRules`Index[$CellContext`Higgs, 3]]^2 + ((
1712          Rational[1, 4] $CellContext`l4) $CellContext`vev^2) $CellContext`TH[
1713           FeynRules`Index[$CellContext`Higgs, 3],
1714           FeynRules`Index[$CellContext`Higgs, 3]]^2 + ((
1715          Rational[-1, 2] $CellContext`l5) $CellContext`vev^2) $CellContext`TH[
1716           FeynRules`Index[$CellContext`Higgs, 3],
1717           FeynRules`Index[$CellContext`Higgs, 3]]^2)^Rational[1, 2],
1718     140.00000000000003`, 140.}, {
1719    FeynRules`W,
1720     Rational[1, 2] ($CellContext`gw^2 $CellContext`vev^2)^Rational[1, 2],
1721     79.82466003605599, 79.82466003605597}, {$CellContext`Z,
1722     2^Rational[
1723       1, 2] (((
1724          Rational[
1725           1, 8] $CellContext`cw^2) $CellContext`gw^2) $CellContext`vev^2 + \
1726((((Rational[1, 4] $CellContext`cw)
1727           FeynRules`g1) $CellContext`gw) $CellContext`sw) $CellContext`vev^2 + \
1728((Rational[1, 8] FeynRules`g1^2) $CellContext`sw^2) $CellContext`vev^2)^
1729      Rational[1, 2], 91.1876, 91.1876}}]]], "Output",
1730 CellChangeTimes->{3.569331152697446*^9, 3.569331219676342*^9,
1731  3.569332445754335*^9, 3.594386647610293*^9, 3.6066320463511*^9}]
1732}, Open  ]]
1733}, Closed]],
1734
1735Cell[CellGroupData[{
1736
1737Cell["Renormalization and FeynArts output", "Subtitle",
1738 CellChangeTimes->{{3.569240498668885*^9, 3.569240515331468*^9},
1739   3.595236774037018*^9, 3.596180370744793*^9, {3.606025776884673*^9,
1740   3.606025783616241*^9}}],
1741
1742Cell[CellGroupData[{
1743
1744Cell[BoxData[
1745 RowBox[{
1746  RowBox[{"(*",
1747   RowBox[{"Only", " ", "QCD", " ", "corrections"}], "*)"}],
1748  "\[IndentingNewLine]",
1749  RowBox[{
1750   RowBox[{
1751    RowBox[{"Lren", "=",
1752     RowBox[{"OnShellRenormalization", "[",
1753      RowBox[{"L2HDM", ",",
1754       RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
1755       RowBox[{"FlavorMixing", "\[Rule]", "False"}]}], "]"}]}], ";"}], "//",
1756   "Timing"}]}]], "Input",
1757 CellChangeTimes->{{3.597920638474764*^9, 3.597920642824625*^9}, {
1758   3.597920919213044*^9, 3.5979209246604347`*^9}, {3.5979213458204403`*^9,
1759   3.5979213461959553`*^9}, {3.597921906223185*^9, 3.5979219247182903`*^9},
1760   3.59826693283288*^9, {3.599726694548938*^9, 3.599726709332283*^9}, {
1761   3.600073533715087*^9, 3.600073550943606*^9}, {3.600100821847949*^9,
1762   3.600100822078888*^9}, {3.600100905677856*^9, 3.6001009077169743`*^9}, {
1763   3.600101019301407*^9, 3.600101019521409*^9}, {3.6001011061449337`*^9,
1764   3.600101109830374*^9}, {3.60060597893237*^9, 3.600605979456867*^9}, {
1765   3.600606571605412*^9, 3.600606574681816*^9}, {3.600606720461048*^9,
1766   3.600606722538821*^9}, 3.606025620741485*^9, {3.606025706251973*^9,
1767   3.606025727354734*^9}}],
1768
1769Cell[CellGroupData[{
1770
1771Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
1772them\"\>"], "Print",
1773 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1774  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1775  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1776  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1777  3.653901538871557*^9}],
1778
1779Cell[BoxData[
1780 InterpretationBox[
1781  RowBox[{"\<\"Neglecting all terms with more than \"\>",
1782   "\[InvisibleSpace]", "\<\"2\"\>",
1783   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
1784  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
1785  Editable->False]], "Print",
1786 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1787  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1788  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1789  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1790  3.653901603241919*^9}],
1791
1792Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
1793 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1794  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1795  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1796  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1797  3.6539017629238853`*^9}],
1798
1799Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
1800 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1801  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1802  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1803  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1804  3.653901763083969*^9}],
1805
1806Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
1807 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1808  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1809  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1810  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1811  3.65390176311108*^9}],
1812
1813Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
1814 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1815  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1816  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1817  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1818  3.65390176316675*^9}],
1819
1820Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
1821 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1822  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1823  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1824  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1825  3.653901763192334*^9}],
1826
1827Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
1828 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1829  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1830  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1831  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1832  3.6539017632144527`*^9}],
1833
1834Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
1835 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1836  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1837  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1838  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1839  3.653901913692226*^9}],
1840
1841Cell[BoxData["\<\"with the parameters\"\>"], "Print",
1842 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1843  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1844  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1845  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1846  3.653901913923394*^9}],
1847
1848Cell[BoxData["\<\"with the fields\"\>"], "Print",
1849 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9,
1850  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9,
1851  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9,
1852  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9,
1853  3.653901924556141*^9}]
1854}, Open  ]],
1855
1856Cell[BoxData[
1857 RowBox[{"{",
1858  RowBox[{"634.972038`", ",", "Null"}], "}"}]], "Output",
1859 CellChangeTimes->{3.600074084905156*^9, 3.600089516729875*^9,
1860  3.600090538890633*^9, 3.600091497780901*^9, 3.6000926205881147`*^9,
1861  3.6001008248246517`*^9, 3.600101082619677*^9, 3.600101634522843*^9,
1862  3.600606553709322*^9, 3.600606599364315*^9, 3.653899285502495*^9,
1863  3.653902092138749*^9}]
1864}, Closed]],
1865
1866Cell[CellGroupData[{
1867
1868Cell[BoxData[{
1869 RowBox[{
1870  RowBox[{"SetDirectory", "[", "\"\<~/FeynArts-3.9\>\"", "]"}],
1871  ";"}], "\[IndentingNewLine]",
1872 RowBox[{"WriteFeynArtsOutput", "[",
1873  RowBox[{"Lren", ",",
1874   RowBox[{"Output", "\[Rule]", "\"\<2HDM\>\""}], ",",
1875   RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
1876   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], "Input",
1877 CellChangeTimes->{{3.564700372817255*^9, 3.5647004413939466`*^9}, {
1878   3.564700472793775*^9, 3.564700489137748*^9}, {3.56470103135526*^9,
1879   3.564701032144533*^9}, {3.564761878886104*^9, 3.564761883179635*^9}, {
1880   3.564817985983468*^9, 3.564818004973386*^9}, {3.5667493061356773`*^9,
1881   3.5667493090757227`*^9}, {3.566840298580666*^9, 3.5668403021044083`*^9},
1882   3.566840422615706*^9, 3.566842153568747*^9, 3.56684341802089*^9, {
1883   3.5693427292444363`*^9, 3.56934273346803*^9}, {3.595757872443129*^9,
1884   3.595757872990183*^9}, {3.595926997672106*^9, 3.5959269985182056`*^9}, {
1885   3.59592757677836*^9, 3.59592757730344*^9}, {3.596175021700604*^9,
1886   3.596175027780533*^9}, {3.596365794756915*^9, 3.596365796494033*^9}, {
1887   3.596388276838932*^9, 3.596388277581387*^9}, {3.596423057886693*^9,
1888   3.596423064528386*^9}, {3.596423285683466*^9, 3.596423300122218*^9}, {
1889   3.596427653237583*^9, 3.5964276549870377`*^9}, {3.596427914770174*^9,
1890   3.596427946152913*^9}, {3.596428008333082*^9, 3.596428009193137*^9}, {
1891   3.596428193445437*^9, 3.596428194155259*^9}, {3.5964287047105618`*^9,
1892   3.5964287055259647`*^9}, {3.596429864013536*^9, 3.596429864610759*^9}, {
1893   3.596442429316771*^9, 3.596442458111861*^9}, {3.596443083159437*^9,
1894   3.5964430846612377`*^9}, 3.596457217748049*^9, {3.596458198112561*^9,
1895   3.596458198990324*^9}, 3.5964712361531982`*^9, {3.5965448029683027`*^9,
1896   3.596544815873913*^9}, {3.596547719420516*^9, 3.5965477199629097`*^9}, {
1897   3.596553223499798*^9, 3.596553224474061*^9}, 3.596564371263818*^9,
1898   3.599724168493658*^9, 3.5997242009301558`*^9, 3.5997242537940073`*^9, {
1899   3.599744743869116*^9, 3.599744744458776*^9}, {3.600073581637103*^9,
1900   3.600073593918627*^9}, {3.606025626719825*^9, 3.606025647141613*^9}, {
1901   3.606025733359462*^9, 3.6060257343177843`*^9}, {3.6066355442371893`*^9,
1902   3.6066355733960743`*^9}, {3.653899002553916*^9, 3.653899010209284*^9}}],
1903
1904Cell[CellGroupData[{
1905
1906Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
1907 CellChangeTimes->{3.653899285834065*^9}],
1908
1909Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
1910 CellChangeTimes->{3.653899285851737*^9}],
1911
1912Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
1913 CellChangeTimes->{3.653899285874341*^9}],
1914
1915Cell[BoxData[
1916 InterpretationBox[
1917  RowBox[{"\<\"Creating output directory: \"\>",
1918   "\[InvisibleSpace]", "\<\"2HDM\"\>"}],
1919  SequenceForm["Creating output directory: ", "2HDM"],
1920  Editable->False]], "Print",
1921 CellChangeTimes->{3.6538992858981647`*^9}],
1922
1923Cell[BoxData[
1924 InterpretationBox[
1925  RowBox[{"\<\"Calculating Feynman rules for \"\>",
1926   "\[InvisibleSpace]", "\<\"L1\"\>"}],
1927  SequenceForm["Calculating Feynman rules for ", "L1"],
1928  Editable->False]], "Print",
1929 CellChangeTimes->{3.653899285917494*^9}],
1930
1931Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
1932separate FeynArts class.\"\>"], "Print",
1933 CellChangeTimes->{3.653899285938869*^9}],
1934
1935Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
1936classes\"\>"], "Print",
1937 CellChangeTimes->{3.653899285956263*^9}],
1938
1939Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
1940-> True.\"\>"], "Print",
1941 CellChangeTimes->{3.653899285973279*^9}],
1942
1943Cell[BoxData[
1944 InterpretationBox[
1945  RowBox[{"\<\"Calculating Feynman rules for \"\>",
1946   "\[InvisibleSpace]", "\<\"L1\"\>"}],
1947  SequenceForm["Calculating Feynman rules for ", "L1"],
1948  Editable->False]], "Print",
1949 CellChangeTimes->{3.653899285996964*^9}],
1950
1951Cell[BoxData[
1952 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
1953  StripOnInput->False,
1954  LineColor->RGBColor[1, 0.5, 0],
1955  FrontFaceColor->RGBColor[1, 0.5, 0],
1956  BackFaceColor->RGBColor[1, 0.5, 0],
1957  GraphicsColor->RGBColor[1, 0.5, 0],
1958  FontWeight->Bold,
1959  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1960 CellChangeTimes->{3.6538992946207027`*^9}],
1961
1962Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1963 CellChangeTimes->{3.653899294645689*^9}],
1964
1965Cell[BoxData[
1966 InterpretationBox[
1967  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
1968   "\[InvisibleSpace]", "\<\" cores\"\>"}],
1969  SequenceForm["Expanding the indices over ", 2, " cores"],
1970  Editable->False]], "Print",
1971 CellChangeTimes->{3.6538992946705503`*^9}],
1972
1973Cell[BoxData["\<\"Collecting the different structures that enter the \
1974vertex.\"\>"], "Print",
1975 CellChangeTimes->{3.653899341405295*^9}],
1976
1977Cell[BoxData[
1978 InterpretationBox[
1979  RowBox[{
1980  "341", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
1981found -> starting the computation: \"\>", "\[InvisibleSpace]",
1982   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1983    ImageSizeCache->{250., {2., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1984   "\[InvisibleSpace]", "341", "\[InvisibleSpace]", "\<\".\"\>"}],
1985  SequenceForm[
1986  341, " possible non-zero vertices have been found -> starting the \
1987computation: ",
1988   Dynamic[FeynRules`FR$FeynmanRules], " / ", 341, "."],
1989  Editable->False]], "Print",
1990 CellChangeTimes->{3.6538993418072*^9}],
1991
1992Cell[BoxData[
1993 InterpretationBox[
1994  RowBox[{"329", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1995  SequenceForm[329, " vertices obtained."],
1996  Editable->False]], "Print",
1997 CellChangeTimes->{3.653899365876274*^9}],
1998
1999Cell[BoxData[
2000 InterpretationBox[
2001  RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
2002   "\[InvisibleSpace]", "\<\"2HDM\"\>"}],
2003  SequenceForm["Writing FeynArts model file into directory ", "2HDM"],
2004  Editable->False]], "Print",
2005 CellChangeTimes->{3.653899376112002*^9}]
2006}, Open  ]]
2007}, Closed]],
2008
2009Cell[CellGroupData[{
2010
2011Cell[BoxData[
2012 RowBox[{
2013  RowBox[{"(*",
2014   RowBox[{"All", " ", "corrections"}], "*)"}], "\[IndentingNewLine]",
2015  RowBox[{
2016   RowBox[{
2017    RowBox[{"Lren", "=",
2018     RowBox[{"OnShellRenormalization", "[",
2019      RowBox[{"L2HDM", ",",
2020       RowBox[{"QCDOnly", "\[Rule]", "False"}], ",",
2021       RowBox[{"FlavorMixing", "\[Rule]", "True"}], ",",
2022       RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}]}], ";"}], "//",
2023    "Timing"}]}]], "Input",
2024 CellChangeTimes->{{3.564514024973831*^9, 3.5645140757633343`*^9}, {
2025   3.564515251670082*^9, 3.564515259090262*^9}, 3.564743238911811*^9, {
2026   3.564743315761744*^9, 3.56474332285568*^9}, 3.5647433860883627`*^9, {
2027   3.564743451899*^9, 3.564743458934826*^9}, {3.564743489791627*^9,
2028   3.564743522022538*^9}, {3.5647436308689537`*^9, 3.564743633283614*^9}, {
2029   3.564743678005272*^9, 3.564743716912929*^9}, {3.564748539805533*^9,
2030   3.56474854388021*^9}, {3.564749079364633*^9, 3.564749079489629*^9}, {
2031   3.56476087935155*^9, 3.564760883091728*^9}, {3.564761780250856*^9,
2032   3.564761785822854*^9}, 3.5647618316921577`*^9, {3.5647824598755207`*^9,
2033   3.5647824642337523`*^9}, {3.564787157067603*^9, 3.5647871980279827`*^9}, {
2034   3.564787935500413*^9, 3.564787937865177*^9}, {3.5648229420582027`*^9,
2035   3.564822988254724*^9}, 3.5648235376129837`*^9, {3.5648275376516037`*^9,
2036   3.5648275381811237`*^9}, {3.564831518657062*^9, 3.564831521567285*^9}, {
2037   3.564831716351776*^9, 3.5648317171582327`*^9}, {3.564945970385146*^9,
2038   3.564946023871234*^9}, {3.564946086655884*^9, 3.564946086741197*^9}, {
2039   3.566839779463044*^9, 3.566839782596681*^9}, {3.566839867439942*^9,
2040   3.566839919584077*^9}, {3.566840173751217*^9, 3.5668401826466427`*^9}, {
2041   3.566842131895069*^9, 3.566842132470367*^9}, {3.566913838467654*^9,
2042   3.566913895655745*^9}, {3.566914452032465*^9, 3.5669144642775497`*^9}, {
2043   3.568736986853777*^9, 3.568737001903592*^9}, {3.568737085929701*^9,
2044   3.5687370896958647`*^9}, {3.568737281046568*^9, 3.56873728642734*^9}, {
2045   3.568738058212694*^9, 3.568738068322414*^9}, {3.5687481209318953`*^9,
2046   3.5687481248405037`*^9}, {3.5687481570103807`*^9, 3.568748174847719*^9},
2047   3.568748636009015*^9, {3.568749015730638*^9, 3.568749028709589*^9}, {
2048   3.568750836772822*^9, 3.568750841657319*^9}, {3.568751009096486*^9,
2049   3.56875101661443*^9}, {3.568985779944077*^9, 3.568985783653063*^9}, {
2050   3.568986191922492*^9, 3.568986192024469*^9}, {3.5689872137392473`*^9,
2051   3.5689872171358967`*^9}, 3.5689980050726423`*^9, {3.569084669609191*^9,
2052   3.569084672560041*^9}, {3.569086716337036*^9, 3.5690867191321383`*^9}, {
2053   3.5691501723933496`*^9, 3.5691501745326433`*^9}, 3.5693427201730433`*^9, {
2054   3.569348150448511*^9, 3.56934818336827*^9}, {3.569348381991968*^9,
2055   3.569348441908313*^9}, {3.5693492232530193`*^9, 3.569349252648958*^9},
2056   3.56934939813468*^9, {3.569349619377768*^9, 3.569349620191347*^9}, {
2057   3.569349664791795*^9, 3.56934975671489*^9}, {3.5693498562503*^9,
2058   3.569349859448492*^9}, {3.569349925625503*^9, 3.569349929152988*^9}, {
2059   3.56934999726747*^9, 3.569350009235647*^9}, {3.5693504865736933`*^9,
2060   3.569350496793866*^9}, {3.569350664987414*^9, 3.569350678642851*^9}, {
2061   3.569360662188109*^9, 3.569360684192335*^9}, {3.569360958644943*^9,
2062   3.5693609608554564`*^9}, {3.569361624763565*^9, 3.569361626353609*^9},
2063   3.569501633329406*^9, 3.569502110847106*^9, {3.5695022454556828`*^9,
2064   3.569502256253265*^9}, {3.5789078363356237`*^9, 3.5789078470025673`*^9}, {
2065   3.594552175815646*^9, 3.594552227507558*^9}, {3.594553359947174*^9,
2066   3.5945533828260393`*^9}, {3.594555074432263*^9, 3.594555082052123*^9}, {
2067   3.594715586145198*^9, 3.594715593319536*^9}, {3.595333000837369*^9,
2068   3.595333055462247*^9}, {3.59576534024349*^9, 3.5957653428076077`*^9}, {
2069   3.595842713806188*^9, 3.5958427174052753`*^9}, {3.595846156919591*^9,
2070   3.595846192972678*^9}, {3.595848685062187*^9, 3.5958486882026033`*^9}, {
2071   3.595855106131076*^9, 3.595855120656362*^9}, {3.595927609067635*^9,
2072   3.595927612072925*^9}, {3.595938514326168*^9, 3.595938531012648*^9}, {
2073   3.596180555966103*^9, 3.596180556431263*^9}, {3.5961807483646708`*^9,
2074   3.596180753874673*^9}, {3.596255719718598*^9, 3.596255726423046*^9}, {
2075   3.596345700886137*^9, 3.596345702055586*^9}, {3.596361886770438*^9,
2076   3.596361889415525*^9}, {3.596365760142906*^9, 3.5963657757201557`*^9}, {
2077   3.596388244373166*^9, 3.596388249459565*^9}, {3.59642869566556*^9,
2078   3.596428696166581*^9}, {3.596455886672084*^9, 3.596455891366675*^9},
2079   3.598266937137663*^9, {3.6060256764644613`*^9, 3.60602570114121*^9}, {
2080   3.606631989556072*^9, 3.6066320002381067`*^9}, {3.627819870035407*^9,
2081   3.62781987151068*^9}, {3.654951279470537*^9, 3.6549512880441313`*^9}, {
2082   3.654951642673502*^9, 3.654951647312804*^9}, 3.6549518351523848`*^9, {
2083   3.654952121469139*^9, 3.65495212307616*^9}, {3.654953061701249*^9,
2084   3.6549530632922297`*^9}}],
2085
2086Cell[CellGroupData[{
2087
2088Cell[BoxData["\<\"Putting 4 scalars term aside for the renormalization\"\>"], \
2089"Print",
2090 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2091  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2092  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2093  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2094  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2095  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2096  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2097  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2098  3.654952936569571*^9, 3.654953015056675*^9, 3.654953080652999*^9}],
2099
2100Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
2101them\"\>"], "Print",
2102 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2103  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2104  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2105  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2106  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2107  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2108  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2109  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2110  3.654952936569571*^9, 3.654953015056675*^9, 3.654953116863653*^9}],
2111
2112Cell[BoxData[
2113 InterpretationBox[
2114  RowBox[{"\<\"Neglecting all terms with more than \"\>",
2115   "\[InvisibleSpace]", "\<\"2\"\>",
2116   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
2117  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
2118  Editable->False]], "Print",
2119 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2120  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2121  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2122  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2123  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2124  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2125  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2126  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2127  3.654952936569571*^9, 3.654953015056675*^9, 3.654953134466219*^9}],
2128
2129Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
2130 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2131  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2132  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2133  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2134  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2135  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2136  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2137  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2138  3.654952936569571*^9, 3.654953015056675*^9, 3.654953175493515*^9}],
2139
2140Cell[BoxData["\<\"All mixing allowed for the renormalization\"\>"], "Print",
2141 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2142  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2143  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2144  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2145  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2146  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2147  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2148  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2149  3.654952936569571*^9, 3.654953015056675*^9, 3.6549531756307077`*^9}],
2150
2151Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
2152 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2153  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2154  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2155  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2156  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2157  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2158  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2159  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2160  3.654952936569571*^9, 3.654953015056675*^9, 3.6549531756324673`*^9}],
2161
2162Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
2163 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2164  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2165  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2166  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2167  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2168  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2169  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2170  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2171  3.654952936569571*^9, 3.654953015056675*^9, 3.6549531756992617`*^9}],
2172
2173Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
2174 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2175  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2176  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2177  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2178  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2179  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2180  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2181  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2182  3.654952936569571*^9, 3.654953015056675*^9, 3.654953175701283*^9}],
2183
2184Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
2185 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2186  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2187  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2188  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2189  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2190  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2191  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2192  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2193  3.654952936569571*^9, 3.654953015056675*^9, 3.654953175704159*^9}],
2194
2195Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
2196 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2197  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2198  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2199  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2200  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2201  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2202  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2203  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2204  3.654952936569571*^9, 3.654953015056675*^9, 3.654953261807089*^9}],
2205
2206Cell[BoxData["\<\"with the parameters\"\>"], "Print",
2207 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2208  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2209  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2210  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2211  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2212  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2213  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2214  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2215  3.654952936569571*^9, 3.654953015056675*^9, 3.654953261903611*^9}],
2216
2217Cell[BoxData["\<\"with the tadpoles\"\>"], "Print",
2218 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2219  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2220  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2221  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2222  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2223  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2224  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2225  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2226  3.654952936569571*^9, 3.654953015056675*^9, 3.6549532746822367`*^9}],
2227
2228Cell[BoxData["\<\"with the fields\"\>"], "Print",
2229 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9,
2230  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9,
2231  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9,
2232  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9,
2233  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9,
2234  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9,
2235  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9,
2236  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9,
2237  3.654952936569571*^9, 3.654953015056675*^9, 3.65495356958069*^9}]
2238}, Open  ]],
2239
2240Cell[BoxData[
2241 RowBox[{"{",
2242  RowBox[{"1261.814858`", ",", "Null"}], "}"}]], "Output",
2243 CellChangeTimes->{3.627884236423593*^9, 3.627894763848317*^9,
2244  3.6279108936106243`*^9, 3.627912257428281*^9, 3.6548431155289*^9,
2245  3.65485005691616*^9, 3.65485845754136*^9, 3.654951200388493*^9,
2246  3.654951388446023*^9, 3.6549518075990677`*^9, 3.654951906907552*^9,
2247  3.654952129148139*^9, 3.654952339437887*^9, 3.654952459240699*^9,
2248  3.65495294728941*^9, 3.654953025635594*^9, 3.6549543881416597`*^9}]
2249}, Open  ]],
2250
2251Cell[BoxData[
2252 RowBox[{"Lren", ">>", "Lrenfull.reno"}]], "Input",
2253 CellChangeTimes->{{3.6548489936603527`*^9, 3.65484902358394*^9}}],
2254
2255Cell[BoxData[
2256 RowBox[{
2257  RowBox[{"Lren", "=",
2258   RowBox[{"<<", "Lrenfull.reno"}]}], ";"}]], "Input",
2259 CellChangeTimes->{{3.654849110291217*^9, 3.654849148384429*^9}}],
2260
2261Cell[BoxData[{
2262 RowBox[{
2263  RowBox[{"SetDirectory", "[", "\"\<~/FeynArts-3.9\>\"", "]"}],
2264  ";"}], "\[IndentingNewLine]",
2265 RowBox[{
2266  RowBox[{"WriteFeynArtsOutput", "[",
2267   RowBox[{"Lren", ",",
2268    RowBox[{"Output", "\[Rule]", "\"\<2HDMfull\>\""}], ",",
2269    RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
2270    RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}], "//",
2271  "Timing"}]}], "Input",
2272 CellChangeTimes->{{3.6551904163659678`*^9, 3.655190424213563*^9}}]
2273}, Closed]],
2274
2275Cell[CellGroupData[{
2276
2277Cell["Counterterms Computation", "Subtitle",
2278 CellChangeTimes->{{3.6060266792561483`*^9, 3.6060266874455223`*^9}}],
2279
2280Cell[BoxData[
2281 RowBox[{"Quit", "[", "]"}]], "Input",
2282 CellChangeTimes->{{3.606632042677861*^9, 3.6066320448943768`*^9}}],
2283
2284Cell[CellGroupData[{
2285
2286Cell[BoxData[{
2287 RowBox[{
2288  RowBox[{"SetDirectory", "[", "\"\<~/FeynArts-3.9\>\"", "]"}],
2289  ";"}], "\[IndentingNewLine]",
2290 RowBox[{"<<", " ", "FeynArts`"}], "\[IndentingNewLine]",
2291 RowBox[{
2292  RowBox[{
2293  "SetDirectory", "[", "\"\<~/feynrules/branch/feynrules-current\>\"", "]"}],
2294  ";"}], "\[IndentingNewLine]",
2295 RowBox[{"<<", " ", "NLOCT`"}], "\[IndentingNewLine]",
2296 RowBox[{
2297  RowBox[{"SetDirectory", "[", "\"\<~/feynrules/trunk/models/2HDM\>\"", "]"}],
2298   ";"}]}], "Input",
2299 CellChangeTimes->{{3.606635589576776*^9, 3.606635615927095*^9}, {
2300  3.653899652663455*^9, 3.653899721855009*^9}}],
2301
2302Cell[CellGroupData[{
2303
2304Cell[BoxData["\<\"\"\>"], "Print",
2305 CellChangeTimes->{
2306  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9,
2307   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9,
2308   3.655104246992024*^9}}],
2309
2310Cell[BoxData["\<\"FeynArts 3.9 (23 Sep 2015)\"\>"], "Print",
2311 CellChangeTimes->{
2312  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9,
2313   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9,
2314   3.6551042469934883`*^9}}],
2315
2316Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
2317 CellChangeTimes->{
2318  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9,
2319   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9,
2320   3.655104246994882*^9}}],
2321
2322Cell[BoxData["\<\" - NLOCT - \"\>"], "Print",
2323 CellChangeTimes->{
2324  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9,
2325   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9,
2326   3.6551042471768847`*^9}}],
2327
2328Cell[BoxData["\<\"Version: 1.02\"\>"], "Print",
2329 CellChangeTimes->{
2330  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9,
2331   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9,
2332   3.655104247178282*^9}}],
2333
2334Cell[BoxData["\<\"Authors: C. Degrande\"\>"], "Print",
2335 CellChangeTimes->{
2336  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9,
2337   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9,
2338   3.655104247179542*^9}}]
2339}, Open  ]]
2340}, Open  ]],
2341
2342Cell[CellGroupData[{
2343
2344Cell[BoxData[
2345 RowBox[{
2346  RowBox[{"(*",
2347   RowBox[{"QCD", " ", "only"}], "*)"}], "\[IndentingNewLine]",
2348  RowBox[{"WriteCT", "[",
2349   RowBox[{"\"\<2HDM/2HDM\>\"", ",", "\"\<Lorentz\>\"", ",",
2350    RowBox[{"Output", "->", "\"\<2HDM\>\""}], ",",
2351    RowBox[{"LabelInternal", "\[Rule]", "True"}], ",",
2352    RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
2353    RowBox[{"KeptIndices", "\[Rule]",
2354     RowBox[{"{", "}"}]}], ",",
2355    RowBox[{"ZeroMom", "\[Rule]",
2356     RowBox[{"{",
2357      RowBox[{"{",
2358       RowBox[{"aS", ",",
2359        RowBox[{"{",
2360         RowBox[{
2361          RowBox[{"F", "[", "7", "]"}], ",",
2362          RowBox[{"V", "[", "4", "]"}], ",",
2363          RowBox[{"-",
2364           RowBox[{"F", "[", "7", "]"}]}]}], "}"}], ",", "0"}], "}"}],
2365      "}"}]}]}], "]"}]}]], "Input",
2366 CellChangeTimes->{{3.606631812026607*^9, 3.606631844533699*^9}, {
2367  3.653899740083197*^9, 3.65389974397073*^9}, {3.653902965564106*^9,
2368  3.6539029900016127`*^9}}],
2369
2370Cell[CellGroupData[{
2371
2372Cell[BoxData[
2373 StyleBox["\<\"Computing CT for the {S} vertices.\"\>",
2374  StripOnInput->False,
2375  LineColor->RGBColor[0, 0, 1],
2376  FrontFaceColor->RGBColor[0, 0, 1],
2377  BackFaceColor->RGBColor[0, 0, 1],
2378  GraphicsColor->RGBColor[0, 0, 1],
2379  FontColor->RGBColor[0, 0, 1]]], "Print",
2380 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2381  3.653902289454327*^9}],
2382
2383Cell[BoxData["\<\"\"\>"], "Print",
2384 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2385  3.6539022894749727`*^9}],
2386
2387Cell[BoxData[
2388 InterpretationBox[
2389  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
2390   "\[InvisibleSpace]", "\<\"generic\"\>",
2391   "\[InvisibleSpace]", "\<\" model file \"\>",
2392   "\[InvisibleSpace]", \
2393"\<\"/Users/degrande/FeynArts-3.9/Models/Lorentz.gen\"\>"}],
2394  SequenceForm[
2395  "", "loading ", "generic", " model file ",
2396   "/Users/degrande/FeynArts-3.9/Models/Lorentz.gen"],
2397  Editable->False]], "Print",
2398 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2399  3.6539022894973783`*^9}],
2400
2401Cell[BoxData["\<\"> $GenericMixing is OFF\"\>"], "Print",
2402 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2403  3.653902289515464*^9}],
2404
2405Cell[BoxData[
2406 InterpretationBox[
2407  RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]",
2408   RowBox[{"{", "\<\"Lorentz\"\>", "}"}],
2409   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
2410  SequenceForm["generic model ", {"Lorentz"}, " initialized"],
2411  Editable->False]], "Print",
2412 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2413  3.653902289533334*^9}],
2414
2415Cell[BoxData["\<\"\"\>"], "Print",
2416 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2417  3.65390228955223*^9}],
2418
2419Cell[BoxData[
2420 InterpretationBox[
2421  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
2422   "\[InvisibleSpace]", "\<\"classes\"\>",
2423   "\[InvisibleSpace]", "\<\" model file \"\>",
2424   "\[InvisibleSpace]", "\<\"/Users/degrande/FeynArts-3.9/2HDM/2HDM.mod\"\>"}],
2425  SequenceForm[
2426  "", "loading ", "classes", " model file ",
2427   "/Users/degrande/FeynArts-3.9/2HDM/2HDM.mod"],
2428  Editable->False]], "Print",
2429 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2430  3.653902289569743*^9}],
2431
2432Cell[BoxData[
2433 InterpretationBox[
2434  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "47",
2435   "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>",
2436   "\[InvisibleSpace]", "27", "\[InvisibleSpace]", "\<\" classes\"\>"}],
2437  SequenceForm[
2438  "> ", 47, " particles (incl. antiparticles) in ", 27, " classes"],
2439  Editable->False]], "Print",
2440 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2441  3.653902289589074*^9}],
2442
2443Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
2444 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2445  3.653902289609394*^9}],
2446
2447Cell[BoxData[
2448 InterpretationBox[
2449  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "296",
2450   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
2451  SequenceForm["> ", 296, " vertices"],
2452  Editable->False]], "Print",
2453 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2454  3.653902289632277*^9}],
2455
2456Cell[BoxData[
2457 InterpretationBox[
2458  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "62",
2459   "\[InvisibleSpace]", "\<\" counter terms of order 1\"\>"}],
2460  SequenceForm["> ", 62, " counter terms of order 1"],
2461  Editable->False]], "Print",
2462 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2463  3.653902289649496*^9}],
2464
2465Cell[BoxData[
2466 InterpretationBox[
2467  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]",
2468   RowBox[{"{", "\<\"2HDM/2HDM\"\>", "}"}],
2469   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
2470  SequenceForm["classes model ", {"2HDM/2HDM"}, " initialized"],
2471  Editable->False]], "Print",
2472 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2473  3.653902289671197*^9}],
2474
2475Cell[BoxData["\<\"\"\>"], "Print",
2476 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2477  3.653902289690765*^9}],
2478
2479Cell[BoxData[
2480 InterpretationBox[
2481  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
2482   RowBox[{"{",
2483    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2484  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
2485  Editable->False]], "Print",
2486 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2487  3.6539022897089787`*^9}],
2488
2489Cell[BoxData[
2490 InterpretationBox[
2491  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
2492   "\[InvisibleSpace]", "\<\": \"\>",
2493   "\[InvisibleSpace]", "\<\"4 Generic, 57 Classes insertions\"\>"}],
2494  SequenceForm["> Top. ", 1, ": ", "4 Generic, 57 Classes insertions"],
2495  Editable->False]], "Print",
2496 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2497  3.653902289726919*^9}],
2498
2499Cell[BoxData[
2500 InterpretationBox[
2501  RowBox[{"\<\"in total: \"\>",
2502   "\[InvisibleSpace]", "\<\"4 Generic, 57 Classes insertions\"\>"}],
2503  SequenceForm["in total: ", "4 Generic, 57 Classes insertions"],
2504  Editable->False]], "Print",
2505 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2506  3.653902289746147*^9}],
2507
2508Cell[BoxData["\<\"\"\>"], "Print",
2509 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2510  3.653902289764379*^9}],
2511
2512Cell[BoxData[
2513 InterpretationBox[
2514  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
2515   RowBox[{"{",
2516    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2517  SequenceForm[
2518  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
2519  Editable->False]], "Print",
2520 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2521  3.653902289787118*^9}],
2522
2523Cell[BoxData[
2524 InterpretationBox[
2525  RowBox[{"\<\"in total: \"\>",
2526   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
2527  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
2528  Editable->False]], "Print",
2529 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2530  3.65390228980886*^9}],
2531
2532Cell[BoxData["\<\"Writing amplitude finished after 0.291337\"\>"], "Print",
2533 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2534  3.653902289868082*^9}],
2535
2536Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
2537after 0.291446\"\>"], "Print",
2538 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2539  3.6539022898850307`*^9}],
2540
2541Cell[BoxData["\<\"\"\>"], "Print",
2542 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2543  3.653902289905097*^9}],
2544
2545Cell[BoxData[
2546 InterpretationBox[
2547  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
2548   RowBox[{"{",
2549    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2550  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
2551  Editable->False]], "Print",
2552 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2553  3.653902289925486*^9}],
2554
2555Cell[BoxData[
2556 InterpretationBox[
2557  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
2558   "\[InvisibleSpace]", "\<\": \"\>",
2559   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
2560  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
2561  Editable->False]], "Print",
2562 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2563  3.653902289945816*^9}],
2564
2565Cell[BoxData[
2566 InterpretationBox[
2567  RowBox[{"\<\"in total: \"\>",
2568   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
2569  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
2570  Editable->False]], "Print",
2571 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2572  3.6539022899651327`*^9}],
2573
2574Cell[BoxData["\<\"\"\>"], "Print",
2575 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2576  3.653902289982687*^9}],
2577
2578Cell[BoxData[
2579 InterpretationBox[
2580  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
2581   RowBox[{"{",
2582    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2583  SequenceForm[
2584  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
2585  Editable->False]], "Print",
2586 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2587  3.653902290002974*^9}],
2588
2589Cell[BoxData[
2590 InterpretationBox[
2591  RowBox[{"\<\"in total: \"\>",
2592   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
2593  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
2594  Editable->False]], "Print",
2595 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2596  3.6539022900221043`*^9}],
2597
2598Cell[BoxData["\<\"Writing the symbolic CT finished after 0.293331\"\>"], \
2599"Print",
2600 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2601  3.653902290042194*^9}],
2602
2603Cell[BoxData["\<\"SU3 algebra finished after 0.293682\"\>"], "Print",
2604 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2605  3.6539022900621567`*^9}],
2606
2607Cell[BoxData["\<\"Simplification of the vertices finished after \
26080.293728\"\>"], "Print",
2609 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2610  3.6539022900783453`*^9}],
2611
2612Cell[BoxData["\<\"Vertices {S} finished after 0.293776\"\>"], "Print",
2613 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2614  3.6539022900999403`*^9}],
2615
2616Cell[BoxData[
2617 StyleBox["\<\"Computing CT for the {F, F} vertices.\"\>",
2618  StripOnInput->False,
2619  LineColor->RGBColor[0, 0, 1],
2620  FrontFaceColor->RGBColor[0, 0, 1],
2621  BackFaceColor->RGBColor[0, 0, 1],
2622  GraphicsColor->RGBColor[0, 0, 1],
2623  FontColor->RGBColor[0, 0, 1]]], "Print",
2624 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2625  3.653902290121793*^9}],
2626
2627Cell[BoxData["\<\"\"\>"], "Print",
2628 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2629  3.653902290141358*^9}],
2630
2631Cell[BoxData[
2632 InterpretationBox[
2633  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
2634   RowBox[{"{",
2635    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2636  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
2637  Editable->False]], "Print",
2638 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2639  3.653902290159793*^9}],
2640
2641Cell[BoxData[
2642 InterpretationBox[
2643  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
2644   "\[InvisibleSpace]", "\<\": \"\>",
2645   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
2646  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
2647  Editable->False]], "Print",
2648 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2649  3.65390229017689*^9}],
2650
2651Cell[BoxData[
2652 InterpretationBox[
2653  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
2654   "\[InvisibleSpace]", "\<\": \"\>",
2655   "\[InvisibleSpace]", "\<\"2 Generic, 170 Classes insertions\"\>"}],
2656  SequenceForm["> Top. ", 2, ": ", "2 Generic, 170 Classes insertions"],
2657  Editable->False]], "Print",
2658 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2659  3.653902290193686*^9}],
2660
2661Cell[BoxData[
2662 InterpretationBox[
2663  RowBox[{"\<\"in total: \"\>",
2664   "\[InvisibleSpace]", "\<\"2 Generic, 170 Classes insertions\"\>"}],
2665  SequenceForm["in total: ", "2 Generic, 170 Classes insertions"],
2666  Editable->False]], "Print",
2667 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2668  3.6539022902127857`*^9}],
2669
2670Cell[BoxData["\<\"\"\>"], "Print",
2671 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2672  3.6539022902314377`*^9}],
2673
2674Cell[BoxData[
2675 InterpretationBox[
2676  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
2677   RowBox[{"{",
2678    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2679  SequenceForm[
2680  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
2681  Editable->False]], "Print",
2682 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2683  3.653902290284072*^9}],
2684
2685Cell[BoxData[
2686 InterpretationBox[
2687  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
2688   "\[InvisibleSpace]", "\<\": \"\>",
2689   "\[InvisibleSpace]", "\<\"1 Generic, 12 Classes amplitudes\"\>"}],
2690  SequenceForm["> Top. ", 1, ": ", "1 Generic, 12 Classes amplitudes"],
2691  Editable->False]], "Print",
2692 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2693  3.653902290303893*^9}],
2694
2695Cell[BoxData[
2696 InterpretationBox[
2697  RowBox[{"\<\"in total: \"\>",
2698   "\[InvisibleSpace]", "\<\"1 Generic, 12 Classes amplitudes\"\>"}],
2699  SequenceForm["in total: ", "1 Generic, 12 Classes amplitudes"],
2700  Editable->False]], "Print",
2701 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2702  3.6539022903225822`*^9}],
2703
2704Cell[BoxData["\<\"Writing amplitude finished after 0.777195\"\>"], "Print",
2705 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2706  3.653902290339889*^9}],
2707
2708Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
2709after 1.108731\"\>"], "Print",
2710 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2711  3.65390229050878*^9}],
2712
2713Cell[BoxData["\<\"\"\>"], "Print",
2714 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2715  3.653902290585849*^9}],
2716
2717Cell[BoxData[
2718 InterpretationBox[
2719  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
2720   RowBox[{"{",
2721    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2722  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
2723  Editable->False]], "Print",
2724 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2725  3.6539022906056356`*^9}],
2726
2727Cell[BoxData[
2728 InterpretationBox[
2729  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
2730   "\[InvisibleSpace]", "\<\": \"\>",
2731   "\[InvisibleSpace]", "\<\"1 Generic, 12 Classes insertions\"\>"}],
2732  SequenceForm["> Top. ", 1, ": ", "1 Generic, 12 Classes insertions"],
2733  Editable->False]], "Print",
2734 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2735  3.653902290623415*^9}],
2736
2737Cell[BoxData[
2738 InterpretationBox[
2739  RowBox[{"\<\"in total: \"\>",
2740   "\[InvisibleSpace]", "\<\"1 Generic, 12 Classes insertions\"\>"}],
2741  SequenceForm["in total: ", "1 Generic, 12 Classes insertions"],
2742  Editable->False]], "Print",
2743 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2744  3.6539022906441593`*^9}],
2745
2746Cell[BoxData["\<\"\"\>"], "Print",
2747 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2748  3.653902290661268*^9}],
2749
2750Cell[BoxData[
2751 InterpretationBox[
2752  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
2753   RowBox[{"{",
2754    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2755  SequenceForm[
2756  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
2757  Editable->False]], "Print",
2758 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2759  3.653902290682967*^9}],
2760
2761Cell[BoxData[
2762 InterpretationBox[
2763  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
2764   "\[InvisibleSpace]", "\<\": \"\>",
2765   "\[InvisibleSpace]", "\<\"1 Generic, 12 Classes amplitudes\"\>"}],
2766  SequenceForm["> Top. ", 1, ": ", "1 Generic, 12 Classes amplitudes"],
2767  Editable->False]], "Print",
2768 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2769  3.653902290703973*^9}],
2770
2771Cell[BoxData[
2772 InterpretationBox[
2773  RowBox[{"\<\"in total: \"\>",
2774   "\[InvisibleSpace]", "\<\"1 Generic, 12 Classes amplitudes\"\>"}],
2775  SequenceForm["in total: ", "1 Generic, 12 Classes amplitudes"],
2776  Editable->False]], "Print",
2777 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2778  3.6539022907227583`*^9}],
2779
2780Cell[BoxData["\<\"Writing the symbolic CT finished after 1.251376\"\>"], \
2781"Print",
2782 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2783  3.6539022907445602`*^9}],
2784
2785Cell[BoxData["\<\"SU3 algebra finished after 2.093350\"\>"], "Print",
2786 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2787  3.653902291530168*^9}],
2788
2789Cell[BoxData["\<\"Simplification of the vertices finished after \
27902.507370\"\>"], "Print",
2791 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2792  3.653902291928293*^9}],
2793
2794Cell[BoxData["\<\"Vertices {F, F} finished after 2.507596\"\>"], "Print",
2795 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2796  3.6539022919481773`*^9}],
2797
2798Cell[BoxData[
2799 StyleBox["\<\"Computing CT for the {S, S} vertices.\"\>",
2800  StripOnInput->False,
2801  LineColor->RGBColor[0, 0, 1],
2802  FrontFaceColor->RGBColor[0, 0, 1],
2803  BackFaceColor->RGBColor[0, 0, 1],
2804  GraphicsColor->RGBColor[0, 0, 1],
2805  FontColor->RGBColor[0, 0, 1]]], "Print",
2806 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2807  3.653902291970439*^9}],
2808
2809Cell[BoxData["\<\"\"\>"], "Print",
2810 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2811  3.6539022919897327`*^9}],
2812
2813Cell[BoxData[
2814 InterpretationBox[
2815  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
2816   RowBox[{"{",
2817    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2818  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
2819  Editable->False]], "Print",
2820 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2821  3.653902292009995*^9}],
2822
2823Cell[BoxData[
2824 InterpretationBox[
2825  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
2826   "\[InvisibleSpace]", "\<\": \"\>",
2827   "\[InvisibleSpace]", "\<\"2 Generic, 126 Classes insertions\"\>"}],
2828  SequenceForm["> Top. ", 1, ": ", "2 Generic, 126 Classes insertions"],
2829  Editable->False]], "Print",
2830 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2831  3.653902292033045*^9}],
2832
2833Cell[BoxData[
2834 InterpretationBox[
2835  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
2836   "\[InvisibleSpace]", "\<\": \"\>",
2837   "\[InvisibleSpace]", "\<\"5 Generic, 373 Classes insertions\"\>"}],
2838  SequenceForm["> Top. ", 2, ": ", "5 Generic, 373 Classes insertions"],
2839  Editable->False]], "Print",
2840 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2841  3.653902292599572*^9}],
2842
2843Cell[BoxData[
2844 InterpretationBox[
2845  RowBox[{"\<\"in total: \"\>",
2846   "\[InvisibleSpace]", "\<\"7 Generic, 499 Classes insertions\"\>"}],
2847  SequenceForm["in total: ", "7 Generic, 499 Classes insertions"],
2848  Editable->False]], "Print",
2849 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2850  3.653902292622691*^9}],
2851
2852Cell[BoxData["\<\"\"\>"], "Print",
2853 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2854  3.653902292664753*^9}],
2855
2856Cell[BoxData[
2857 InterpretationBox[
2858  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
2859   RowBox[{"{",
2860    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2861  SequenceForm[
2862  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
2863  Editable->False]], "Print",
2864 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2865  3.653902292689378*^9}],
2866
2867Cell[BoxData[
2868 InterpretationBox[
2869  RowBox[{"\<\"in total: \"\>",
2870   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
2871  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
2872  Editable->False]], "Print",
2873 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2874  3.6539022927148533`*^9}],
2875
2876Cell[BoxData["\<\"Writing amplitude finished after 3.257187\"\>"], "Print",
2877 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2878  3.6539022927400637`*^9}],
2879
2880Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
2881after 3.257280\"\>"], "Print",
2882 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2883  3.653902292765237*^9}],
2884
2885Cell[BoxData["\<\"\"\>"], "Print",
2886 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2887  3.653902292790415*^9}],
2888
2889Cell[BoxData[
2890 InterpretationBox[
2891  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
2892   RowBox[{"{",
2893    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2894  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
2895  Editable->False]], "Print",
2896 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2897  3.653902292815873*^9}],
2898
2899Cell[BoxData[
2900 InterpretationBox[
2901  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
2902   "\[InvisibleSpace]", "\<\": \"\>",
2903   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
2904  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
2905  Editable->False]], "Print",
2906 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2907  3.653902292841083*^9}],
2908
2909Cell[BoxData[
2910 InterpretationBox[
2911  RowBox[{"\<\"in total: \"\>",
2912   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
2913  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
2914  Editable->False]], "Print",
2915 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2916  3.653902292866082*^9}],
2917
2918Cell[BoxData["\<\"\"\>"], "Print",
2919 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2920  3.6539022928879147`*^9}],
2921
2922Cell[BoxData[
2923 InterpretationBox[
2924  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
2925   RowBox[{"{",
2926    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2927  SequenceForm[
2928  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
2929  Editable->False]], "Print",
2930 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2931  3.653902292913468*^9}],
2932
2933Cell[BoxData[
2934 InterpretationBox[
2935  RowBox[{"\<\"in total: \"\>",
2936   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
2937  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
2938  Editable->False]], "Print",
2939 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2940  3.653902292938732*^9}],
2941
2942Cell[BoxData["\<\"Writing the symbolic CT finished after 3.262014\"\>"], \
2943"Print",
2944 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2945  3.653902292963791*^9}],
2946
2947Cell[BoxData["\<\"SU3 algebra finished after 3.262367\"\>"], "Print",
2948 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2949  3.653902292986289*^9}],
2950
2951Cell[BoxData["\<\"Simplification of the vertices finished after \
29523.262428\"\>"], "Print",
2953 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2954  3.653902293011773*^9}],
2955
2956Cell[BoxData["\<\"Vertices {S, S} finished after 3.262569\"\>"], "Print",
2957 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2958  3.653902293031931*^9}],
2959
2960Cell[BoxData[
2961 StyleBox["\<\"Computing CT for the {V, V} vertices.\"\>",
2962  StripOnInput->False,
2963  LineColor->RGBColor[0, 0, 1],
2964  FrontFaceColor->RGBColor[0, 0, 1],
2965  BackFaceColor->RGBColor[0, 0, 1],
2966  GraphicsColor->RGBColor[0, 0, 1],
2967  FontColor->RGBColor[0, 0, 1]]], "Print",
2968 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2969  3.6539022930503407`*^9}],
2970
2971Cell[BoxData["\<\"\"\>"], "Print",
2972 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2973  3.653902293070887*^9}],
2974
2975Cell[BoxData[
2976 InterpretationBox[
2977  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
2978   RowBox[{"{",
2979    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
2980  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
2981  Editable->False]], "Print",
2982 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2983  3.653902293127606*^9}],
2984
2985Cell[BoxData[
2986 InterpretationBox[
2987  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
2988   "\[InvisibleSpace]", "\<\": \"\>",
2989   "\[InvisibleSpace]", "\<\"2 Generic, 47 Classes insertions\"\>"}],
2990  SequenceForm["> Top. ", 1, ": ", "2 Generic, 47 Classes insertions"],
2991  Editable->False]], "Print",
2992 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
2993  3.653902293151534*^9}],
2994
2995Cell[BoxData[
2996 InterpretationBox[
2997  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
2998   "\[InvisibleSpace]", "\<\": \"\>",
2999   "\[InvisibleSpace]", "\<\"5 Generic, 184 Classes insertions\"\>"}],
3000  SequenceForm["> Top. ", 2, ": ", "5 Generic, 184 Classes insertions"],
3001  Editable->False]], "Print",
3002 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3003  3.653902293175213*^9}],
3004
3005Cell[BoxData[
3006 InterpretationBox[
3007  RowBox[{"\<\"in total: \"\>",
3008   "\[InvisibleSpace]", "\<\"7 Generic, 231 Classes insertions\"\>"}],
3009  SequenceForm["in total: ", "7 Generic, 231 Classes insertions"],
3010  Editable->False]], "Print",
3011 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3012  3.653902293197405*^9}],
3013
3014Cell[BoxData["\<\"\"\>"], "Print",
3015 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3016  3.653902293218767*^9}],
3017
3018Cell[BoxData[
3019 InterpretationBox[
3020  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3021   RowBox[{"{",
3022    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3023  SequenceForm[
3024  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3025  Editable->False]], "Print",
3026 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3027  3.653902293240498*^9}],
3028
3029Cell[BoxData[
3030 InterpretationBox[
3031  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3032   "\[InvisibleSpace]", "\<\": \"\>",
3033   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
3034  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
3035  Editable->False]], "Print",
3036 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3037  3.6539022932631683`*^9}],
3038
3039Cell[BoxData[
3040 InterpretationBox[
3041  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3042   "\[InvisibleSpace]", "\<\": \"\>",
3043   "\[InvisibleSpace]", "\<\"3 Generic, 32 Classes amplitudes\"\>"}],
3044  SequenceForm["> Top. ", 2, ": ", "3 Generic, 32 Classes amplitudes"],
3045  Editable->False]], "Print",
3046 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3047  3.653902293285453*^9}],
3048
3049Cell[BoxData[
3050 InterpretationBox[
3051  RowBox[{"\<\"in total: \"\>",
3052   "\[InvisibleSpace]", "\<\"4 Generic, 33 Classes amplitudes\"\>"}],
3053  SequenceForm["in total: ", "4 Generic, 33 Classes amplitudes"],
3054  Editable->False]], "Print",
3055 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3056  3.6539022933079367`*^9}],
3057
3058Cell[BoxData["\<\"Writing amplitude finished after 3.774286\"\>"], "Print",
3059 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3060  3.6539022933279533`*^9}],
3061
3062Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3063after 4.781718\"\>"], "Print",
3064 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3065  3.653902294208171*^9}],
3066
3067Cell[BoxData["\<\"\"\>"], "Print",
3068 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3069  3.653902294290916*^9}],
3070
3071Cell[BoxData[
3072 InterpretationBox[
3073  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3074   RowBox[{"{",
3075    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3076  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3077  Editable->False]], "Print",
3078 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3079  3.6539022943138514`*^9}],
3080
3081Cell[BoxData[
3082 InterpretationBox[
3083  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3084   "\[InvisibleSpace]", "\<\": \"\>",
3085   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
3086  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes insertions"],
3087  Editable->False]], "Print",
3088 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3089  3.65390229433416*^9}],
3090
3091Cell[BoxData[
3092 InterpretationBox[
3093  RowBox[{"\<\"in total: \"\>",
3094   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
3095  SequenceForm["in total: ", "1 Generic, 1 Classes insertions"],
3096  Editable->False]], "Print",
3097 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3098  3.653902294355925*^9}],
3099
3100Cell[BoxData["\<\"\"\>"], "Print",
3101 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3102  3.653902294376693*^9}],
3103
3104Cell[BoxData[
3105 InterpretationBox[
3106  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3107   RowBox[{"{",
3108    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3109  SequenceForm[
3110  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3111  Editable->False]], "Print",
3112 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3113  3.653902294402026*^9}],
3114
3115Cell[BoxData[
3116 InterpretationBox[
3117  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3118   "\[InvisibleSpace]", "\<\": \"\>",
3119   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
3120  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
3121  Editable->False]], "Print",
3122 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3123  3.65390229442723*^9}],
3124
3125Cell[BoxData[
3126 InterpretationBox[
3127  RowBox[{"\<\"in total: \"\>",
3128   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
3129  SequenceForm["in total: ", "1 Generic, 1 Classes amplitudes"],
3130  Editable->False]], "Print",
3131 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3132  3.653902294452126*^9}],
3133
3134Cell[BoxData["\<\"Writing the symbolic CT finished after 4.884519\"\>"], \
3135"Print",
3136 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3137  3.6539022944768047`*^9}],
3138
3139Cell[BoxData["\<\"SU3 algebra finished after 5.540863\"\>"], "Print",
3140 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3141  3.653902294940599*^9}],
3142
3143Cell[BoxData["\<\"Simplification of the vertices finished after \
31446.063148\"\>"], "Print",
3145 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3146  3.653902295472583*^9}],
3147
3148Cell[BoxData["\<\"Vertices {V, V} finished after 6.063296\"\>"], "Print",
3149 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3150  3.653902295497939*^9}],
3151
3152Cell[BoxData[
3153 StyleBox["\<\"Computing CT for the {F, F, S} vertices.\"\>",
3154  StripOnInput->False,
3155  LineColor->RGBColor[0, 0, 1],
3156  FrontFaceColor->RGBColor[0, 0, 1],
3157  BackFaceColor->RGBColor[0, 0, 1],
3158  GraphicsColor->RGBColor[0, 0, 1],
3159  FontColor->RGBColor[0, 0, 1]]], "Print",
3160 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3161  3.653902295523147*^9}],
3162
3163Cell[BoxData["\<\"\"\>"], "Print",
3164 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3165  3.653902295547814*^9}],
3166
3167Cell[BoxData[
3168 InterpretationBox[
3169  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3170   RowBox[{"{",
3171    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3172  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3173  Editable->False]], "Print",
3174 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3175  3.653902295570744*^9}],
3176
3177Cell[BoxData[
3178 InterpretationBox[
3179  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3180   "\[InvisibleSpace]", "\<\": \"\>",
3181   "\[InvisibleSpace]", "\<\"6 Generic, 2554 Classes insertions\"\>"}],
3182  SequenceForm["> Top. ", 1, ": ", "6 Generic, 2554 Classes insertions"],
3183  Editable->False]], "Print",
3184 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3185  3.65390231168752*^9}],
3186
3187Cell[BoxData[
3188 InterpretationBox[
3189  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3190   "\[InvisibleSpace]", "\<\": \"\>",
3191   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3192  SequenceForm["> Top. ", 2, ": ", "0 Generic, 0 Classes insertions"],
3193  Editable->False]], "Print",
3194 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3195  3.6539023117092037`*^9}],
3196
3197Cell[BoxData[
3198 InterpretationBox[
3199  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
3200   "\[InvisibleSpace]", "\<\": \"\>",
3201   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3202  SequenceForm["> Top. ", 3, ": ", "0 Generic, 0 Classes insertions"],
3203  Editable->False]], "Print",
3204 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3205  3.65390231172847*^9}],
3206
3207Cell[BoxData[
3208 InterpretationBox[
3209  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
3210   "\[InvisibleSpace]", "\<\": \"\>",
3211   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3212  SequenceForm["> Top. ", 4, ": ", "0 Generic, 0 Classes insertions"],
3213  Editable->False]], "Print",
3214 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3215  3.653902311748126*^9}],
3216
3217Cell[BoxData[
3218 InterpretationBox[
3219  RowBox[{"\<\"in total: \"\>",
3220   "\[InvisibleSpace]", "\<\"6 Generic, 2554 Classes insertions\"\>"}],
3221  SequenceForm["in total: ", "6 Generic, 2554 Classes insertions"],
3222  Editable->False]], "Print",
3223 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3224  3.653902311771778*^9}],
3225
3226Cell[BoxData["\<\"\"\>"], "Print",
3227 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3228  3.653902312155223*^9}],
3229
3230Cell[BoxData[
3231 InterpretationBox[
3232  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3233   RowBox[{"{",
3234    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3235  SequenceForm[
3236  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3237  Editable->False]], "Print",
3238 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3239  3.653902312180252*^9}],
3240
3241Cell[BoxData[
3242 InterpretationBox[
3243  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3244   "\[InvisibleSpace]", "\<\": \"\>",
3245   "\[InvisibleSpace]", "\<\"1 Generic, 56 Classes amplitudes\"\>"}],
3246  SequenceForm["> Top. ", 1, ": ", "1 Generic, 56 Classes amplitudes"],
3247  Editable->False]], "Print",
3248 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3249  3.65390231227913*^9}],
3250
3251Cell[BoxData[
3252 InterpretationBox[
3253  RowBox[{"\<\"in total: \"\>",
3254   "\[InvisibleSpace]", "\<\"1 Generic, 56 Classes amplitudes\"\>"}],
3255  SequenceForm["in total: ", "1 Generic, 56 Classes amplitudes"],
3256  Editable->False]], "Print",
3257 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3258  3.653902312298545*^9}],
3259
3260Cell[BoxData["\<\"Writing amplitude finished after 22.886535\"\>"], "Print",
3261 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3262  3.653902312316649*^9}],
3263
3264Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3265after 23.069428\"\>"], "Print",
3266 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3267  3.653902312470799*^9}],
3268
3269Cell[BoxData["\<\"\"\>"], "Print",
3270 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3271  3.653902312686737*^9}],
3272
3273Cell[BoxData[
3274 InterpretationBox[
3275  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3276   RowBox[{"{",
3277    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3278  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3279  Editable->False]], "Print",
3280 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3281  3.653902312709567*^9}],
3282
3283Cell[BoxData[
3284 InterpretationBox[
3285  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3286   "\[InvisibleSpace]", "\<\": \"\>",
3287   "\[InvisibleSpace]", "\<\"1 Generic, 56 Classes insertions\"\>"}],
3288  SequenceForm["> Top. ", 1, ": ", "1 Generic, 56 Classes insertions"],
3289  Editable->False]], "Print",
3290 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3291  3.6539023127326317`*^9}],
3292
3293Cell[BoxData[
3294 InterpretationBox[
3295  RowBox[{"\<\"in total: \"\>",
3296   "\[InvisibleSpace]", "\<\"1 Generic, 56 Classes insertions\"\>"}],
3297  SequenceForm["in total: ", "1 Generic, 56 Classes insertions"],
3298  Editable->False]], "Print",
3299 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3300  3.653902312752005*^9}],
3301
3302Cell[BoxData["\<\"\"\>"], "Print",
3303 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3304  3.653902312775249*^9}],
3305
3306Cell[BoxData[
3307 InterpretationBox[
3308  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3309   RowBox[{"{",
3310    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3311  SequenceForm[
3312  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3313  Editable->False]], "Print",
3314 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3315  3.653902312792144*^9}],
3316
3317Cell[BoxData[
3318 InterpretationBox[
3319  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3320   "\[InvisibleSpace]", "\<\": \"\>",
3321   "\[InvisibleSpace]", "\<\"1 Generic, 56 Classes amplitudes\"\>"}],
3322  SequenceForm["> Top. ", 1, ": ", "1 Generic, 56 Classes amplitudes"],
3323  Editable->False]], "Print",
3324 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3325  3.653902312814054*^9}],
3326
3327Cell[BoxData[
3328 InterpretationBox[
3329  RowBox[{"\<\"in total: \"\>",
3330   "\[InvisibleSpace]", "\<\"1 Generic, 56 Classes amplitudes\"\>"}],
3331  SequenceForm["in total: ", "1 Generic, 56 Classes amplitudes"],
3332  Editable->False]], "Print",
3333 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3334  3.653902312835547*^9}],
3335
3336Cell[BoxData["\<\"Writing the symbolic CT finished after 23.550144\"\>"], \
3337"Print",
3338 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3339  3.65390231294827*^9}],
3340
3341Cell[BoxData["\<\"SU3 algebra finished after 25.156721\"\>"], "Print",
3342 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3343  3.6539023145562153`*^9}],
3344
3345Cell[BoxData["\<\"Simplification of the vertices finished after \
334626.117973\"\>"], "Print",
3347 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3348  3.653902315515895*^9}],
3349
3350Cell[BoxData["\<\"Vertices {F, F, S} finished after 26.118334\"\>"], "Print",
3351 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3352  3.653902315532372*^9}],
3353
3354Cell[BoxData[
3355 StyleBox["\<\"Computing CT for the {F, F, V} vertices.\"\>",
3356  StripOnInput->False,
3357  LineColor->RGBColor[0, 0, 1],
3358  FrontFaceColor->RGBColor[0, 0, 1],
3359  BackFaceColor->RGBColor[0, 0, 1],
3360  GraphicsColor->RGBColor[0, 0, 1],
3361  FontColor->RGBColor[0, 0, 1]]], "Print",
3362 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3363  3.653902315549739*^9}],
3364
3365Cell[BoxData["\<\"\"\>"], "Print",
3366 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3367  3.653902315568922*^9}],
3368
3369Cell[BoxData[
3370 InterpretationBox[
3371  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3372   RowBox[{"{",
3373    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3374  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3375  Editable->False]], "Print",
3376 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3377  3.653902315592683*^9}],
3378
3379Cell[BoxData[
3380 InterpretationBox[
3381  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3382   "\[InvisibleSpace]", "\<\": \"\>",
3383   "\[InvisibleSpace]", "\<\"6 Generic, 1456 Classes insertions\"\>"}],
3384  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1456 Classes insertions"],
3385  Editable->False]], "Print",
3386 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3387  3.65390232634699*^9}],
3388
3389Cell[BoxData[
3390 InterpretationBox[
3391  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3392   "\[InvisibleSpace]", "\<\": \"\>",
3393   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3394  SequenceForm["> Top. ", 2, ": ", "0 Generic, 0 Classes insertions"],
3395  Editable->False]], "Print",
3396 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3397  3.6539023263690166`*^9}],
3398
3399Cell[BoxData[
3400 InterpretationBox[
3401  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
3402   "\[InvisibleSpace]", "\<\": \"\>",
3403   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3404  SequenceForm["> Top. ", 3, ": ", "0 Generic, 0 Classes insertions"],
3405  Editable->False]], "Print",
3406 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3407  3.653902326391417*^9}],
3408
3409Cell[BoxData[
3410 InterpretationBox[
3411  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
3412   "\[InvisibleSpace]", "\<\": \"\>",
3413   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3414  SequenceForm["> Top. ", 4, ": ", "0 Generic, 0 Classes insertions"],
3415  Editable->False]], "Print",
3416 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3417  3.653902326413886*^9}],
3418
3419Cell[BoxData[
3420 InterpretationBox[
3421  RowBox[{"\<\"in total: \"\>",
3422   "\[InvisibleSpace]", "\<\"6 Generic, 1456 Classes insertions\"\>"}],
3423  SequenceForm["in total: ", "6 Generic, 1456 Classes insertions"],
3424  Editable->False]], "Print",
3425 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3426  3.6539023264348707`*^9}],
3427
3428Cell[BoxData["\<\"\"\>"], "Print",
3429 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3430  3.653902326639786*^9}],
3431
3432Cell[BoxData[
3433 InterpretationBox[
3434  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3435   RowBox[{"{",
3436    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3437  SequenceForm[
3438  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3439  Editable->False]], "Print",
3440 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3441  3.653902326662307*^9}],
3442
3443Cell[BoxData[
3444 InterpretationBox[
3445  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3446   "\[InvisibleSpace]", "\<\": \"\>",
3447   "\[InvisibleSpace]", "\<\"3 Generic, 152 Classes amplitudes\"\>"}],
3448  SequenceForm["> Top. ", 1, ": ", "3 Generic, 152 Classes amplitudes"],
3449  Editable->False]], "Print",
3450 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3451  3.6539023269439907`*^9}],
3452
3453Cell[BoxData[
3454 InterpretationBox[
3455  RowBox[{"\<\"in total: \"\>",
3456   "\[InvisibleSpace]", "\<\"3 Generic, 152 Classes amplitudes\"\>"}],
3457  SequenceForm["in total: ", "3 Generic, 152 Classes amplitudes"],
3458  Editable->False]], "Print",
3459 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3460  3.6539023269637413`*^9}],
3461
3462Cell[BoxData["\<\"Writing amplitude finished after 37.562942\"\>"], "Print",
3463 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3464  3.653902326985931*^9}],
3465
3466Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3467after 38.069918\"\>"], "Print",
3468 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3469  3.653902327469554*^9}],
3470
3471Cell[BoxData["\<\"\"\>"], "Print",
3472 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3473  3.653902327691259*^9}],
3474
3475Cell[BoxData[
3476 InterpretationBox[
3477  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3478   RowBox[{"{",
3479    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3480  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3481  Editable->False]], "Print",
3482 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3483  3.653902327714426*^9}],
3484
3485Cell[BoxData[
3486 InterpretationBox[
3487  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3488   "\[InvisibleSpace]", "\<\": \"\>",
3489   "\[InvisibleSpace]", "\<\"1 Generic, 48 Classes insertions\"\>"}],
3490  SequenceForm["> Top. ", 1, ": ", "1 Generic, 48 Classes insertions"],
3491  Editable->False]], "Print",
3492 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3493  3.653902327732802*^9}],
3494
3495Cell[BoxData[
3496 InterpretationBox[
3497  RowBox[{"\<\"in total: \"\>",
3498   "\[InvisibleSpace]", "\<\"1 Generic, 48 Classes insertions\"\>"}],
3499  SequenceForm["in total: ", "1 Generic, 48 Classes insertions"],
3500  Editable->False]], "Print",
3501 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3502  3.65390232775383*^9}],
3503
3504Cell[BoxData["\<\"\"\>"], "Print",
3505 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3506  3.6539023277728662`*^9}],
3507
3508Cell[BoxData[
3509 InterpretationBox[
3510  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3511   RowBox[{"{",
3512    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3513  SequenceForm[
3514  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3515  Editable->False]], "Print",
3516 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3517  3.6539023277926903`*^9}],
3518
3519Cell[BoxData[
3520 InterpretationBox[
3521  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3522   "\[InvisibleSpace]", "\<\": \"\>",
3523   "\[InvisibleSpace]", "\<\"1 Generic, 48 Classes amplitudes\"\>"}],
3524  SequenceForm["> Top. ", 1, ": ", "1 Generic, 48 Classes amplitudes"],
3525  Editable->False]], "Print",
3526 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3527  3.653902327810649*^9}],
3528
3529Cell[BoxData[
3530 InterpretationBox[
3531  RowBox[{"\<\"in total: \"\>",
3532   "\[InvisibleSpace]", "\<\"1 Generic, 48 Classes amplitudes\"\>"}],
3533  SequenceForm["in total: ", "1 Generic, 48 Classes amplitudes"],
3534  Editable->False]], "Print",
3535 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3536  3.65390232782804*^9}],
3537
3538Cell[BoxData["\<\"Writing the symbolic CT finished after 38.495577\"\>"], \
3539"Print",
3540 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3541  3.653902327894253*^9}],
3542
3543Cell[BoxData["\<\"SU3 algebra finished after 40.351159\"\>"], "Print",
3544 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3545  3.6539023297506323`*^9}],
3546
3547Cell[BoxData["\<\"Simplification of the vertices finished after \
354840.911142\"\>"], "Print",
3549 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3550  3.6539023303101587`*^9}],
3551
3552Cell[BoxData["\<\"Vertices {F, F, V} finished after 40.911719\"\>"], "Print",
3553 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3554  3.653902330330585*^9}],
3555
3556Cell[BoxData[
3557 StyleBox["\<\"Computing CT for the {V, V, V} vertices.\"\>",
3558  StripOnInput->False,
3559  LineColor->RGBColor[0, 0, 1],
3560  FrontFaceColor->RGBColor[0, 0, 1],
3561  BackFaceColor->RGBColor[0, 0, 1],
3562  GraphicsColor->RGBColor[0, 0, 1],
3563  FontColor->RGBColor[0, 0, 1]]], "Print",
3564 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3565  3.653902330350552*^9}],
3566
3567Cell[BoxData["\<\"\"\>"], "Print",
3568 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3569  3.653902330367569*^9}],
3570
3571Cell[BoxData[
3572 InterpretationBox[
3573  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3574   RowBox[{"{",
3575    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3576  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3577  Editable->False]], "Print",
3578 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3579  3.653902330386086*^9}],
3580
3581Cell[BoxData[
3582 InterpretationBox[
3583  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3584   "\[InvisibleSpace]", "\<\": \"\>",
3585   "\[InvisibleSpace]", "\<\"10 Generic, 1355 Classes insertions\"\>"}],
3586  SequenceForm["> Top. ", 1, ": ", "10 Generic, 1355 Classes insertions"],
3587  Editable->False]], "Print",
3588 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3589  3.653902332804579*^9}],
3590
3591Cell[BoxData[
3592 InterpretationBox[
3593  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3594   "\[InvisibleSpace]", "\<\": \"\>",
3595   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes insertions\"\>"}],
3596  SequenceForm["> Top. ", 2, ": ", "2 Generic, 101 Classes insertions"],
3597  Editable->False]], "Print",
3598 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3599  3.653902333017069*^9}],
3600
3601Cell[BoxData[
3602 InterpretationBox[
3603  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
3604   "\[InvisibleSpace]", "\<\": \"\>",
3605   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes insertions\"\>"}],
3606  SequenceForm["> Top. ", 3, ": ", "2 Generic, 101 Classes insertions"],
3607  Editable->False]], "Print",
3608 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3609  3.653902333269009*^9}],
3610
3611Cell[BoxData[
3612 InterpretationBox[
3613  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
3614   "\[InvisibleSpace]", "\<\": \"\>",
3615   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes insertions\"\>"}],
3616  SequenceForm["> Top. ", 4, ": ", "2 Generic, 101 Classes insertions"],
3617  Editable->False]], "Print",
3618 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3619  3.6539023334757843`*^9}],
3620
3621Cell[BoxData[
3622 InterpretationBox[
3623  RowBox[{"\<\"in total: \"\>",
3624   "\[InvisibleSpace]", "\<\"16 Generic, 1658 Classes insertions\"\>"}],
3625  SequenceForm["in total: ", "16 Generic, 1658 Classes insertions"],
3626  Editable->False]], "Print",
3627 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3628  3.6539023334926443`*^9}],
3629
3630Cell[BoxData["\<\"\"\>"], "Print",
3631 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3632  3.65390233372441*^9}],
3633
3634Cell[BoxData[
3635 InterpretationBox[
3636  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3637   RowBox[{"{",
3638    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3639  SequenceForm[
3640  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3641  Editable->False]], "Print",
3642 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3643  3.6539023337459917`*^9}],
3644
3645Cell[BoxData[
3646 InterpretationBox[
3647  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3648   "\[InvisibleSpace]", "\<\": \"\>",
3649   "\[InvisibleSpace]", "\<\"3 Generic, 267 Classes amplitudes\"\>"}],
3650  SequenceForm["> Top. ", 1, ": ", "3 Generic, 267 Classes amplitudes"],
3651  Editable->False]], "Print",
3652 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3653  3.65390233428881*^9}],
3654
3655Cell[BoxData[
3656 InterpretationBox[
3657  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3658   "\[InvisibleSpace]", "\<\": \"\>",
3659   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
3660  SequenceForm["> Top. ", 2, ": ", "1 Generic, 1 Classes amplitudes"],
3661  Editable->False]], "Print",
3662 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3663  3.653902334308909*^9}],
3664
3665Cell[BoxData[
3666 InterpretationBox[
3667  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
3668   "\[InvisibleSpace]", "\<\": \"\>",
3669   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
3670  SequenceForm["> Top. ", 3, ": ", "1 Generic, 1 Classes amplitudes"],
3671  Editable->False]], "Print",
3672 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3673  3.653902334327889*^9}],
3674
3675Cell[BoxData[
3676 InterpretationBox[
3677  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
3678   "\[InvisibleSpace]", "\<\": \"\>",
3679   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
3680  SequenceForm["> Top. ", 4, ": ", "1 Generic, 1 Classes amplitudes"],
3681  Editable->False]], "Print",
3682 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3683  3.6539023343486547`*^9}],
3684
3685Cell[BoxData[
3686 InterpretationBox[
3687  RowBox[{"\<\"in total: \"\>",
3688   "\[InvisibleSpace]", "\<\"6 Generic, 270 Classes amplitudes\"\>"}],
3689  SequenceForm["in total: ", "6 Generic, 270 Classes amplitudes"],
3690  Editable->False]], "Print",
3691 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3692  3.6539023343700047`*^9}],
3693
3694Cell[BoxData["\<\"Writing amplitude finished after 44.938393\"\>"], "Print",
3695 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3696  3.653902334392414*^9}],
3697
3698Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3699after 204.807230\"\>"], "Print",
3700 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3701  3.653902494209972*^9}],
3702
3703Cell[BoxData["\<\"\"\>"], "Print",
3704 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3705  3.653902494305883*^9}],
3706
3707Cell[BoxData[
3708 InterpretationBox[
3709  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3710   RowBox[{"{",
3711    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3712  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3713  Editable->False]], "Print",
3714 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3715  3.653902494328787*^9}],
3716
3717Cell[BoxData[
3718 InterpretationBox[
3719  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3720   "\[InvisibleSpace]", "\<\": \"\>",
3721   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
3722  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes insertions"],
3723  Editable->False]], "Print",
3724 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3725  3.6539024943461237`*^9}],
3726
3727Cell[BoxData[
3728 InterpretationBox[
3729  RowBox[{"\<\"in total: \"\>",
3730   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
3731  SequenceForm["in total: ", "1 Generic, 1 Classes insertions"],
3732  Editable->False]], "Print",
3733 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3734  3.653902494369822*^9}],
3735
3736Cell[BoxData["\<\"\"\>"], "Print",
3737 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3738  3.653902494393978*^9}],
3739
3740Cell[BoxData[
3741 InterpretationBox[
3742  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3743   RowBox[{"{",
3744    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3745  SequenceForm[
3746  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3747  Editable->False]], "Print",
3748 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3749  3.653902494413447*^9}],
3750
3751Cell[BoxData[
3752 InterpretationBox[
3753  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3754   "\[InvisibleSpace]", "\<\": \"\>",
3755   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
3756  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
3757  Editable->False]], "Print",
3758 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3759  3.6539024944329967`*^9}],
3760
3761Cell[BoxData[
3762 InterpretationBox[
3763  RowBox[{"\<\"in total: \"\>",
3764   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
3765  SequenceForm["in total: ", "1 Generic, 1 Classes amplitudes"],
3766  Editable->False]], "Print",
3767 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3768  3.653902494455559*^9}],
3769
3770Cell[BoxData["\<\"Writing the symbolic CT finished after 204.885278\"\>"], \
3771"Print",
3772 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3773  3.653902494481204*^9}],
3774
3775Cell[BoxData["\<\"SU3 algebra finished after 208.116074\"\>"], "Print",
3776 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3777  3.653902497518922*^9}],
3778
3779Cell[BoxData["\<\"Simplification of the vertices finished after \
3780209.215681\"\>"], "Print",
3781 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3782  3.6539024986163054`*^9}],
3783
3784Cell[BoxData["\<\"Vertices {V, V, V} finished after 209.216040\"\>"], "Print",
3785 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3786  3.653902498640654*^9}],
3787
3788Cell[BoxData[
3789 StyleBox["\<\"Computing CT for the {V, V, S} vertices.\"\>",
3790  StripOnInput->False,
3791  LineColor->RGBColor[0, 0, 1],
3792  FrontFaceColor->RGBColor[0, 0, 1],
3793  BackFaceColor->RGBColor[0, 0, 1],
3794  GraphicsColor->RGBColor[0, 0, 1],
3795  FontColor->RGBColor[0, 0, 1]]], "Print",
3796 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3797  3.653902498666757*^9}],
3798
3799Cell[BoxData["\<\"\"\>"], "Print",
3800 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3801  3.653902498693837*^9}],
3802
3803Cell[BoxData[
3804 InterpretationBox[
3805  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3806   RowBox[{"{",
3807    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3808  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3809  Editable->False]], "Print",
3810 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3811  3.653902498717939*^9}],
3812
3813Cell[BoxData[
3814 InterpretationBox[
3815  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3816   "\[InvisibleSpace]", "\<\": \"\>",
3817   "\[InvisibleSpace]", "\<\"10 Generic, 2266 Classes insertions\"\>"}],
3818  SequenceForm["> Top. ", 1, ": ", "10 Generic, 2266 Classes insertions"],
3819  Editable->False]], "Print",
3820 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3821  3.653902502813385*^9}],
3822
3823Cell[BoxData[
3824 InterpretationBox[
3825  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3826   "\[InvisibleSpace]", "\<\": \"\>",
3827   "\[InvisibleSpace]", "\<\"1 Generic, 136 Classes insertions\"\>"}],
3828  SequenceForm["> Top. ", 2, ": ", "1 Generic, 136 Classes insertions"],
3829  Editable->False]], "Print",
3830 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3831  3.6539025029708967`*^9}],
3832
3833Cell[BoxData[
3834 InterpretationBox[
3835  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
3836   "\[InvisibleSpace]", "\<\": \"\>",
3837   "\[InvisibleSpace]", "\<\"1 Generic, 136 Classes insertions\"\>"}],
3838  SequenceForm["> Top. ", 3, ": ", "1 Generic, 136 Classes insertions"],
3839  Editable->False]], "Print",
3840 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3841  3.6539025031340714`*^9}],
3842
3843Cell[BoxData[
3844 InterpretationBox[
3845  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
3846   "\[InvisibleSpace]", "\<\": \"\>",
3847   "\[InvisibleSpace]", "\<\"2 Generic, 196 Classes insertions\"\>"}],
3848  SequenceForm["> Top. ", 4, ": ", "2 Generic, 196 Classes insertions"],
3849  Editable->False]], "Print",
3850 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3851  3.6539025035040283`*^9}],
3852
3853Cell[BoxData[
3854 InterpretationBox[
3855  RowBox[{"\<\"in total: \"\>",
3856   "\[InvisibleSpace]", "\<\"14 Generic, 2734 Classes insertions\"\>"}],
3857  SequenceForm["in total: ", "14 Generic, 2734 Classes insertions"],
3858  Editable->False]], "Print",
3859 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3860  3.653902503527864*^9}],
3861
3862Cell[BoxData["\<\"\"\>"], "Print",
3863 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3864  3.653902503923058*^9}],
3865
3866Cell[BoxData[
3867 InterpretationBox[
3868  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3869   RowBox[{"{",
3870    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3871  SequenceForm[
3872  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3873  Editable->False]], "Print",
3874 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3875  3.653902503948015*^9}],
3876
3877Cell[BoxData[
3878 InterpretationBox[
3879  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3880   "\[InvisibleSpace]", "\<\": \"\>",
3881   "\[InvisibleSpace]", "\<\"1 Generic, 232 Classes amplitudes\"\>"}],
3882  SequenceForm["> Top. ", 1, ": ", "1 Generic, 232 Classes amplitudes"],
3883  Editable->False]], "Print",
3884 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3885  3.6539025043780003`*^9}],
3886
3887Cell[BoxData[
3888 InterpretationBox[
3889  RowBox[{"\<\"in total: \"\>",
3890   "\[InvisibleSpace]", "\<\"1 Generic, 232 Classes amplitudes\"\>"}],
3891  SequenceForm["in total: ", "1 Generic, 232 Classes amplitudes"],
3892  Editable->False]], "Print",
3893 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3894  3.653902504405705*^9}],
3895
3896Cell[BoxData["\<\"Writing amplitude finished after 215.003758\"\>"], "Print",
3897 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3898  3.653902504429309*^9}],
3899
3900Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
3901after 215.693791\"\>"], "Print",
3902 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3903  3.653902505094474*^9}],
3904
3905Cell[BoxData["\<\"\"\>"], "Print",
3906 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3907  3.653902505148953*^9}],
3908
3909Cell[BoxData[
3910 InterpretationBox[
3911  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3912   RowBox[{"{",
3913    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3914  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
3915  Editable->False]], "Print",
3916 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3917  3.653902505166503*^9}],
3918
3919Cell[BoxData[
3920 InterpretationBox[
3921  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3922   "\[InvisibleSpace]", "\<\": \"\>",
3923   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3924  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
3925  Editable->False]], "Print",
3926 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3927  3.653902505185252*^9}],
3928
3929Cell[BoxData[
3930 InterpretationBox[
3931  RowBox[{"\<\"in total: \"\>",
3932   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
3933  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
3934  Editable->False]], "Print",
3935 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3936  3.653902505202094*^9}],
3937
3938Cell[BoxData["\<\"\"\>"], "Print",
3939 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3940  3.65390250522421*^9}],
3941
3942Cell[BoxData[
3943 InterpretationBox[
3944  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
3945   RowBox[{"{",
3946    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
3947  SequenceForm[
3948  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
3949  Editable->False]], "Print",
3950 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3951  3.653902505244823*^9}],
3952
3953Cell[BoxData[
3954 InterpretationBox[
3955  RowBox[{"\<\"in total: \"\>",
3956   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
3957  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
3958  Editable->False]], "Print",
3959 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3960  3.653902505267291*^9}],
3961
3962Cell[BoxData["\<\"Writing the symbolic CT finished after 215.749732\"\>"], \
3963"Print",
3964 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3965  3.6539025052912693`*^9}],
3966
3967Cell[BoxData["\<\"SU3 algebra finished after 215.910436\"\>"], "Print",
3968 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3969  3.653902505311152*^9}],
3970
3971Cell[BoxData["\<\"Simplification of the vertices finished after \
3972216.009346\"\>"], "Print",
3973 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3974  3.653902505408737*^9}],
3975
3976Cell[BoxData["\<\"Vertices {V, V, S} finished after 216.009592\"\>"], "Print",
3977 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3978  3.6539025054297657`*^9}],
3979
3980Cell[BoxData[
3981 StyleBox["\<\"Computing CT for the {V, S, S} vertices.\"\>",
3982  StripOnInput->False,
3983  LineColor->RGBColor[0, 0, 1],
3984  FrontFaceColor->RGBColor[0, 0, 1],
3985  BackFaceColor->RGBColor[0, 0, 1],
3986  GraphicsColor->RGBColor[0, 0, 1],
3987  FontColor->RGBColor[0, 0, 1]]], "Print",
3988 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3989  3.6539025054520817`*^9}],
3990
3991Cell[BoxData["\<\"\"\>"], "Print",
3992 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
3993  3.653902505470027*^9}],
3994
3995Cell[BoxData[
3996 InterpretationBox[
3997  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3998   RowBox[{"{",
3999    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4000  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4001  Editable->False]], "Print",
4002 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4003  3.653902505494072*^9}],
4004
4005Cell[BoxData[
4006 InterpretationBox[
4007  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4008   "\[InvisibleSpace]", "\<\": \"\>",
4009   "\[InvisibleSpace]", "\<\"10 Generic, 3964 Classes insertions\"\>"}],
4010  SequenceForm["> Top. ", 1, ": ", "10 Generic, 3964 Classes insertions"],
4011  Editable->False]], "Print",
4012 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4013  3.6539025119817657`*^9}],
4014
4015Cell[BoxData[
4016 InterpretationBox[
4017  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4018   "\[InvisibleSpace]", "\<\": \"\>",
4019   "\[InvisibleSpace]", "\<\"2 Generic, 372 Classes insertions\"\>"}],
4020  SequenceForm["> Top. ", 2, ": ", "2 Generic, 372 Classes insertions"],
4021  Editable->False]], "Print",
4022 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4023  3.653902512837*^9}],
4024
4025Cell[BoxData[
4026 InterpretationBox[
4027  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4028   "\[InvisibleSpace]", "\<\": \"\>",
4029   "\[InvisibleSpace]", "\<\"1 Generic, 280 Classes insertions\"\>"}],
4030  SequenceForm["> Top. ", 3, ": ", "1 Generic, 280 Classes insertions"],
4031  Editable->False]], "Print",
4032 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4033  3.6539025132244043`*^9}],
4034
4035Cell[BoxData[
4036 InterpretationBox[
4037  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4038   "\[InvisibleSpace]", "\<\": \"\>",
4039   "\[InvisibleSpace]", "\<\"1 Generic, 280 Classes insertions\"\>"}],
4040  SequenceForm["> Top. ", 4, ": ", "1 Generic, 280 Classes insertions"],
4041  Editable->False]], "Print",
4042 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4043  3.6539025136018543`*^9}],
4044
4045Cell[BoxData[
4046 InterpretationBox[
4047  RowBox[{"\<\"in total: \"\>",
4048   "\[InvisibleSpace]", "\<\"14 Generic, 4896 Classes insertions\"\>"}],
4049  SequenceForm["in total: ", "14 Generic, 4896 Classes insertions"],
4050  Editable->False]], "Print",
4051 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4052  3.6539025136234417`*^9}],
4053
4054Cell[BoxData["\<\"\"\>"], "Print",
4055 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4056  3.653902514346775*^9}],
4057
4058Cell[BoxData[
4059 InterpretationBox[
4060  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4061   RowBox[{"{",
4062    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4063  SequenceForm[
4064  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4065  Editable->False]], "Print",
4066 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4067  3.653902514370113*^9}],
4068
4069Cell[BoxData[
4070 InterpretationBox[
4071  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4072   "\[InvisibleSpace]", "\<\": \"\>",
4073   "\[InvisibleSpace]", "\<\"1 Generic, 160 Classes amplitudes\"\>"}],
4074  SequenceForm["> Top. ", 1, ": ", "1 Generic, 160 Classes amplitudes"],
4075  Editable->False]], "Print",
4076 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4077  3.653902514665497*^9}],
4078
4079Cell[BoxData[
4080 InterpretationBox[
4081  RowBox[{"\<\"in total: \"\>",
4082   "\[InvisibleSpace]", "\<\"1 Generic, 160 Classes amplitudes\"\>"}],
4083  SequenceForm["in total: ", "1 Generic, 160 Classes amplitudes"],
4084  Editable->False]], "Print",
4085 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4086  3.653902514688388*^9}],
4087
4088Cell[BoxData["\<\"Writing amplitude finished after 225.283706\"\>"], "Print",
4089 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4090  3.653902514707863*^9}],
4091
4092Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4093after 242.190018\"\>"], "Print",
4094 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4095  3.653902531589632*^9}],
4096
4097Cell[BoxData["\<\"\"\>"], "Print",
4098 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4099  3.653902531609886*^9}],
4100
4101Cell[BoxData[
4102 InterpretationBox[
4103  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4104   RowBox[{"{",
4105    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4106  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4107  Editable->False]], "Print",
4108 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4109  3.65390253163236*^9}],
4110
4111Cell[BoxData[
4112 InterpretationBox[
4113  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4114   "\[InvisibleSpace]", "\<\": \"\>",
4115   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4116  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
4117  Editable->False]], "Print",
4118 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4119  3.653902531653533*^9}],
4120
4121Cell[BoxData[
4122 InterpretationBox[
4123  RowBox[{"\<\"in total: \"\>",
4124   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4125  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
4126  Editable->False]], "Print",
4127 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4128  3.6539025316791677`*^9}],
4129
4130Cell[BoxData["\<\"\"\>"], "Print",
4131 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4132  3.653902531700411*^9}],
4133
4134Cell[BoxData[
4135 InterpretationBox[
4136  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4137   RowBox[{"{",
4138    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4139  SequenceForm[
4140  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4141  Editable->False]], "Print",
4142 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4143  3.653902531721929*^9}],
4144
4145Cell[BoxData[
4146 InterpretationBox[
4147  RowBox[{"\<\"in total: \"\>",
4148   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
4149  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
4150  Editable->False]], "Print",
4151 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4152  3.65390253174135*^9}],
4153
4154Cell[BoxData["\<\"Writing the symbolic CT finished after 242.193172\"\>"], \
4155"Print",
4156 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4157  3.653902531763907*^9}],
4158
4159Cell[BoxData["\<\"SU3 algebra finished after 242.193452\"\>"], "Print",
4160 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4161  3.6539025317820063`*^9}],
4162
4163Cell[BoxData["\<\"Simplification of the vertices finished after \
4164242.193499\"\>"], "Print",
4165 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4166  3.653902531805709*^9}],
4167
4168Cell[BoxData["\<\"Vertices {V, S, S} finished after 242.193640\"\>"], "Print",
4169 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4170  3.6539025318267307`*^9}],
4171
4172Cell[BoxData[
4173 StyleBox["\<\"Computing CT for the {S, S, S} vertices.\"\>",
4174  StripOnInput->False,
4175  LineColor->RGBColor[0, 0, 1],
4176  FrontFaceColor->RGBColor[0, 0, 1],
4177  BackFaceColor->RGBColor[0, 0, 1],
4178  GraphicsColor->RGBColor[0, 0, 1],
4179  FontColor->RGBColor[0, 0, 1]]], "Print",
4180 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4181  3.653902531846912*^9}],
4182
4183Cell[BoxData["\<\"\"\>"], "Print",
4184 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4185  3.6539025318708*^9}],
4186
4187Cell[BoxData[
4188 InterpretationBox[
4189  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4190   RowBox[{"{",
4191    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4192  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4193  Editable->False]], "Print",
4194 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4195  3.653902531888685*^9}],
4196
4197Cell[BoxData[
4198 InterpretationBox[
4199  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4200   "\[InvisibleSpace]", "\<\": \"\>",
4201   "\[InvisibleSpace]", "\<\"10 Generic, 7644 Classes insertions\"\>"}],
4202  SequenceForm["> Top. ", 1, ": ", "10 Generic, 7644 Classes insertions"],
4203  Editable->False]], "Print",
4204 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4205  3.653902543037117*^9}],
4206
4207Cell[BoxData[
4208 InterpretationBox[
4209  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4210   "\[InvisibleSpace]", "\<\": \"\>",
4211   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes insertions\"\>"}],
4212  SequenceForm["> Top. ", 2, ": ", "2 Generic, 864 Classes insertions"],
4213  Editable->False]], "Print",
4214 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4215  3.653902544424285*^9}],
4216
4217Cell[BoxData[
4218 InterpretationBox[
4219  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4220   "\[InvisibleSpace]", "\<\": \"\>",
4221   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes insertions\"\>"}],
4222  SequenceForm["> Top. ", 3, ": ", "2 Generic, 864 Classes insertions"],
4223  Editable->False]], "Print",
4224 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4225  3.653902545802404*^9}],
4226
4227Cell[BoxData[
4228 InterpretationBox[
4229  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4230   "\[InvisibleSpace]", "\<\": \"\>",
4231   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes insertions\"\>"}],
4232  SequenceForm["> Top. ", 4, ": ", "2 Generic, 864 Classes insertions"],
4233  Editable->False]], "Print",
4234 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4235  3.653902547195278*^9}],
4236
4237Cell[BoxData[
4238 InterpretationBox[
4239  RowBox[{"\<\"in total: \"\>",
4240   "\[InvisibleSpace]", "\<\"16 Generic, 10236 Classes insertions\"\>"}],
4241  SequenceForm["in total: ", "16 Generic, 10236 Classes insertions"],
4242  Editable->False]], "Print",
4243 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4244  3.653902547233614*^9}],
4245
4246Cell[BoxData["\<\"\"\>"], "Print",
4247 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4248  3.6539025485413733`*^9}],
4249
4250Cell[BoxData[
4251 InterpretationBox[
4252  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4253   RowBox[{"{",
4254    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4255  SequenceForm[
4256  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4257  Editable->False]], "Print",
4258 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4259  3.65390254856649*^9}],
4260
4261Cell[BoxData[
4262 InterpretationBox[
4263  RowBox[{"\<\"in total: \"\>",
4264   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
4265  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
4266  Editable->False]], "Print",
4267 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4268  3.6539025485885563`*^9}],
4269
4270Cell[BoxData["\<\"Writing amplitude finished after 259.144568\"\>"], "Print",
4271 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4272  3.6539025486132917`*^9}],
4273
4274Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4275after 259.144720\"\>"], "Print",
4276 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4277  3.653902548638206*^9}],
4278
4279Cell[BoxData["\<\"\"\>"], "Print",
4280 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4281  3.653902548660583*^9}],
4282
4283Cell[BoxData[
4284 InterpretationBox[
4285  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4286   RowBox[{"{",
4287    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4288  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4289  Editable->False]], "Print",
4290 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4291  3.653902548680203*^9}],
4292
4293Cell[BoxData[
4294 InterpretationBox[
4295  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4296   "\[InvisibleSpace]", "\<\": \"\>",
4297   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4298  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
4299  Editable->False]], "Print",
4300 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4301  3.653902548704644*^9}],
4302
4303Cell[BoxData[
4304 InterpretationBox[
4305  RowBox[{"\<\"in total: \"\>",
4306   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
4307  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
4308  Editable->False]], "Print",
4309 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4310  3.653902548723716*^9}],
4311
4312Cell[BoxData["\<\"\"\>"], "Print",
4313 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4314  3.6539025487443666`*^9}],
4315
4316Cell[BoxData[
4317 InterpretationBox[
4318  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4319   RowBox[{"{",
4320    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4321  SequenceForm[
4322  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4323  Editable->False]], "Print",
4324 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4325  3.6539025487655773`*^9}],
4326
4327Cell[BoxData[
4328 InterpretationBox[
4329  RowBox[{"\<\"in total: \"\>",
4330   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
4331  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
4332  Editable->False]], "Print",
4333 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4334  3.653902548790184*^9}],
4335
4336Cell[BoxData["\<\"Writing the symbolic CT finished after 259.147750\"\>"], \
4337"Print",
4338 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4339  3.6539025488133173`*^9}],
4340
4341Cell[BoxData["\<\"SU3 algebra finished after 259.148124\"\>"], "Print",
4342 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4343  3.6539025488381243`*^9}],
4344
4345Cell[BoxData["\<\"Simplification of the vertices finished after \
4346259.148192\"\>"], "Print",
4347 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4348  3.653902548862105*^9}],
4349
4350Cell[BoxData["\<\"Vertices {S, S, S} finished after 259.148376\"\>"], "Print",
4351 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4352  3.653902548886385*^9}],
4353
4354Cell[BoxData[
4355 StyleBox["\<\"Computing CT for the {V, V, V, V} vertices.\"\>",
4356  StripOnInput->False,
4357  LineColor->RGBColor[0, 0, 1],
4358  FrontFaceColor->RGBColor[0, 0, 1],
4359  BackFaceColor->RGBColor[0, 0, 1],
4360  GraphicsColor->RGBColor[0, 0, 1],
4361  FontColor->RGBColor[0, 0, 1]]], "Print",
4362 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4363  3.653902548906227*^9}],
4364
4365Cell[BoxData["\<\"\"\>"], "Print",
4366 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4367  3.653902548925982*^9}],
4368
4369Cell[BoxData[
4370 InterpretationBox[
4371  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "34",
4372   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
4373ones)\"\>"}],
4374  SequenceForm[
4375  "Excluding ", 34, " field point(s) (incl. charge-conjugate ones)"],
4376  Editable->False]], "Print",
4377 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4378  3.6539025489608717`*^9}],
4379
4380Cell[BoxData["\<\"\"\>"], "Print",
4381 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4382  3.653902548983284*^9}],
4383
4384Cell[BoxData[
4385 InterpretationBox[
4386  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4387   RowBox[{"{",
4388    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4389  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4390  Editable->False]], "Print",
4391 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4392  3.653902549002308*^9}],
4393
4394Cell[BoxData[
4395 InterpretationBox[
4396  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4397   "\[InvisibleSpace]", "\<\": \"\>",
4398   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
4399  SequenceForm["> Top. ", 1, ": ", "2 Generic, 1181 Classes insertions"],
4400  Editable->False]], "Print",
4401 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4402  3.653902550762446*^9}],
4403
4404Cell[BoxData[
4405 InterpretationBox[
4406  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4407   "\[InvisibleSpace]", "\<\": \"\>",
4408   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
4409  SequenceForm["> Top. ", 2, ": ", "2 Generic, 1181 Classes insertions"],
4410  Editable->False]], "Print",
4411 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4412  3.65390255255411*^9}],
4413
4414Cell[BoxData[
4415 InterpretationBox[
4416  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4417   "\[InvisibleSpace]", "\<\": \"\>",
4418   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
4419  SequenceForm["> Top. ", 3, ": ", "2 Generic, 1181 Classes insertions"],
4420  Editable->False]], "Print",
4421 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4422  3.653902554384778*^9}],
4423
4424Cell[BoxData[
4425 InterpretationBox[
4426  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4427   "\[InvisibleSpace]", "\<\": \"\>",
4428   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
4429  SequenceForm["> Top. ", 4, ": ", "2 Generic, 1181 Classes insertions"],
4430  Editable->False]], "Print",
4431 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4432  3.653902556182168*^9}],
4433
4434Cell[BoxData[
4435 InterpretationBox[
4436  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
4437   "\[InvisibleSpace]", "\<\": \"\>",
4438   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
4439  SequenceForm["> Top. ", 5, ": ", "2 Generic, 1181 Classes insertions"],
4440  Editable->False]], "Print",
4441 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4442  3.653902557950547*^9}],
4443
4444Cell[BoxData[
4445 InterpretationBox[
4446  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
4447   "\[InvisibleSpace]", "\<\": \"\>",
4448   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
4449  SequenceForm["> Top. ", 6, ": ", "2 Generic, 1181 Classes insertions"],
4450  Editable->False]], "Print",
4451 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4452  3.65390255974911*^9}],
4453
4454Cell[BoxData[
4455 InterpretationBox[
4456  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
4457   "\[InvisibleSpace]", "\<\": \"\>",
4458   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes insertions\"\>"}],
4459  SequenceForm["> Top. ", 7, ": ", "4 Generic, 4383 Classes insertions"],
4460  Editable->False]], "Print",
4461 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4462  3.653902570219056*^9}],
4463
4464Cell[BoxData[
4465 InterpretationBox[
4466  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
4467   "\[InvisibleSpace]", "\<\": \"\>",
4468   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes insertions\"\>"}],
4469  SequenceForm["> Top. ", 8, ": ", "4 Generic, 4383 Classes insertions"],
4470  Editable->False]], "Print",
4471 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4472  3.653902580931003*^9}],
4473
4474Cell[BoxData[
4475 InterpretationBox[
4476  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
4477   "\[InvisibleSpace]", "\<\": \"\>",
4478   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes insertions\"\>"}],
4479  SequenceForm["> Top. ", 9, ": ", "4 Generic, 4383 Classes insertions"],
4480  Editable->False]], "Print",
4481 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4482  3.653902595300466*^9}],
4483
4484Cell[BoxData[
4485 InterpretationBox[
4486  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
4487   "\[InvisibleSpace]", "\<\": \"\>",
4488   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes insertions\"\>"}],
4489  SequenceForm["> Top. ", 10, ": ", "2 Generic, 559 Classes insertions"],
4490  Editable->False]], "Print",
4491 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4492  3.653902596224474*^9}],
4493
4494Cell[BoxData[
4495 InterpretationBox[
4496  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
4497   "\[InvisibleSpace]", "\<\": \"\>",
4498   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes insertions\"\>"}],
4499  SequenceForm["> Top. ", 11, ": ", "2 Generic, 559 Classes insertions"],
4500  Editable->False]], "Print",
4501 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4502  3.6539025971257057`*^9}],
4503
4504Cell[BoxData[
4505 InterpretationBox[
4506  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
4507   "\[InvisibleSpace]", "\<\": \"\>",
4508   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes insertions\"\>"}],
4509  SequenceForm["> Top. ", 12, ": ", "2 Generic, 559 Classes insertions"],
4510  Editable->False]], "Print",
4511 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4512  3.653902598008923*^9}],
4513
4514Cell[BoxData["\<\"\"\>"], "Print",
4515 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4516  3.653902598029399*^9}],
4517
4518Cell[BoxData[
4519 InterpretationBox[
4520  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "34",
4521   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
4522  SequenceForm["Restoring ", 34, " field point(s)"],
4523  Editable->False]], "Print",
4524 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4525  3.653902598051523*^9}],
4526
4527Cell[BoxData[
4528 InterpretationBox[
4529  RowBox[{"\<\"in total: \"\>",
4530   "\[InvisibleSpace]", "\<\"30 Generic, 21912 Classes insertions\"\>"}],
4531  SequenceForm["in total: ", "30 Generic, 21912 Classes insertions"],
4532  Editable->False]], "Print",
4533 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4534  3.65390259810496*^9}],
4535
4536Cell[BoxData["\<\"\"\>"], "Print",
4537 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4538  3.653902602101392*^9}],
4539
4540Cell[BoxData[
4541 InterpretationBox[
4542  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4543   RowBox[{"{",
4544    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4545  SequenceForm[
4546  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4547  Editable->False]], "Print",
4548 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4549  3.653902602122822*^9}],
4550
4551Cell[BoxData[
4552 InterpretationBox[
4553  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4554   "\[InvisibleSpace]", "\<\": \"\>",
4555   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4556  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
4557  Editable->False]], "Print",
4558 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4559  3.6539026024439573`*^9}],
4560
4561Cell[BoxData[
4562 InterpretationBox[
4563  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4564   "\[InvisibleSpace]", "\<\": \"\>",
4565   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4566  SequenceForm["> Top. ", 2, ": ", "1 Generic, 1 Classes amplitudes"],
4567  Editable->False]], "Print",
4568 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4569  3.653902602467801*^9}],
4570
4571Cell[BoxData[
4572 InterpretationBox[
4573  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4574   "\[InvisibleSpace]", "\<\": \"\>",
4575   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4576  SequenceForm["> Top. ", 3, ": ", "1 Generic, 1 Classes amplitudes"],
4577  Editable->False]], "Print",
4578 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4579  3.653902602486664*^9}],
4580
4581Cell[BoxData[
4582 InterpretationBox[
4583  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4584   "\[InvisibleSpace]", "\<\": \"\>",
4585   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4586  SequenceForm["> Top. ", 4, ": ", "1 Generic, 1 Classes amplitudes"],
4587  Editable->False]], "Print",
4588 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4589  3.653902602505417*^9}],
4590
4591Cell[BoxData[
4592 InterpretationBox[
4593  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
4594   "\[InvisibleSpace]", "\<\": \"\>",
4595   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4596  SequenceForm["> Top. ", 5, ": ", "1 Generic, 1 Classes amplitudes"],
4597  Editable->False]], "Print",
4598 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4599  3.65390260252877*^9}],
4600
4601Cell[BoxData[
4602 InterpretationBox[
4603  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
4604   "\[InvisibleSpace]", "\<\": \"\>",
4605   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4606  SequenceForm["> Top. ", 6, ": ", "1 Generic, 1 Classes amplitudes"],
4607  Editable->False]], "Print",
4608 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4609  3.6539026025488358`*^9}],
4610
4611Cell[BoxData[
4612 InterpretationBox[
4613  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
4614   "\[InvisibleSpace]", "\<\": \"\>",
4615   "\[InvisibleSpace]", "\<\"3 Generic, 1143 Classes amplitudes\"\>"}],
4616  SequenceForm["> Top. ", 7, ": ", "3 Generic, 1143 Classes amplitudes"],
4617  Editable->False]], "Print",
4618 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4619  3.653902605088566*^9}],
4620
4621Cell[BoxData[
4622 InterpretationBox[
4623  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
4624   "\[InvisibleSpace]", "\<\": \"\>",
4625   "\[InvisibleSpace]", "\<\"3 Generic, 1143 Classes amplitudes\"\>"}],
4626  SequenceForm["> Top. ", 8, ": ", "3 Generic, 1143 Classes amplitudes"],
4627  Editable->False]], "Print",
4628 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4629  3.653902607777905*^9}],
4630
4631Cell[BoxData[
4632 InterpretationBox[
4633  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
4634   "\[InvisibleSpace]", "\<\": \"\>",
4635   "\[InvisibleSpace]", "\<\"3 Generic, 1143 Classes amplitudes\"\>"}],
4636  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1143 Classes amplitudes"],
4637  Editable->False]], "Print",
4638 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4639  3.6539026104891577`*^9}],
4640
4641Cell[BoxData[
4642 InterpretationBox[
4643  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
4644   "\[InvisibleSpace]", "\<\": \"\>",
4645   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4646  SequenceForm["> Top. ", 10, ": ", "1 Generic, 1 Classes amplitudes"],
4647  Editable->False]], "Print",
4648 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4649  3.6539026105142612`*^9}],
4650
4651Cell[BoxData[
4652 InterpretationBox[
4653  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
4654   "\[InvisibleSpace]", "\<\": \"\>",
4655   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4656  SequenceForm["> Top. ", 11, ": ", "1 Generic, 1 Classes amplitudes"],
4657  Editable->False]], "Print",
4658 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4659  3.653902610537921*^9}],
4660
4661Cell[BoxData[
4662 InterpretationBox[
4663  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
4664   "\[InvisibleSpace]", "\<\": \"\>",
4665   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4666  SequenceForm["> Top. ", 12, ": ", "1 Generic, 1 Classes amplitudes"],
4667  Editable->False]], "Print",
4668 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4669  3.653902610558537*^9}],
4670
4671Cell[BoxData[
4672 InterpretationBox[
4673  RowBox[{"\<\"in total: \"\>",
4674   "\[InvisibleSpace]", "\<\"18 Generic, 3438 Classes amplitudes\"\>"}],
4675  SequenceForm["in total: ", "18 Generic, 3438 Classes amplitudes"],
4676  Editable->False]], "Print",
4677 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4678  3.6539026105783987`*^9}],
4679
4680Cell[BoxData["\<\"Writing amplitude finished after 321.595467\"\>"], "Print",
4681 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4682  3.653902610994285*^9}],
4683
4684Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
4685after 336.373184\"\>"], "Print",
4686 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4687  3.6539026257746553`*^9}],
4688
4689Cell[BoxData["\<\"\"\>"], "Print",
4690 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4691  3.653902626468522*^9}],
4692
4693Cell[BoxData[
4694 InterpretationBox[
4695  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4696   RowBox[{"{",
4697    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4698  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4699  Editable->False]], "Print",
4700 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4701  3.653902626492723*^9}],
4702
4703Cell[BoxData[
4704 InterpretationBox[
4705  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4706   "\[InvisibleSpace]", "\<\": \"\>",
4707   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
4708  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes insertions"],
4709  Editable->False]], "Print",
4710 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4711  3.653902626516856*^9}],
4712
4713Cell[BoxData[
4714 InterpretationBox[
4715  RowBox[{"\<\"in total: \"\>",
4716   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
4717  SequenceForm["in total: ", "1 Generic, 1 Classes insertions"],
4718  Editable->False]], "Print",
4719 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4720  3.653902626535207*^9}],
4721
4722Cell[BoxData["\<\"\"\>"], "Print",
4723 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4724  3.653902626557528*^9}],
4725
4726Cell[BoxData[
4727 InterpretationBox[
4728  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4729   RowBox[{"{",
4730    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4731  SequenceForm[
4732  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4733  Editable->False]], "Print",
4734 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4735  3.653902626578865*^9}],
4736
4737Cell[BoxData[
4738 InterpretationBox[
4739  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4740   "\[InvisibleSpace]", "\<\": \"\>",
4741   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4742  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
4743  Editable->False]], "Print",
4744 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4745  3.6539026265984087`*^9}],
4746
4747Cell[BoxData[
4748 InterpretationBox[
4749  RowBox[{"\<\"in total: \"\>",
4750   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
4751  SequenceForm["in total: ", "1 Generic, 1 Classes amplitudes"],
4752  Editable->False]], "Print",
4753 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4754  3.653902626616054*^9}],
4755
4756Cell[BoxData["\<\"Writing the symbolic CT finished after 337.103706\"\>"], \
4757"Print",
4758 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4759  3.653902626640321*^9}],
4760
4761Cell[BoxData["\<\"SU3 algebra finished after 388.658964\"\>"], "Print",
4762 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4763  3.6539026780591087`*^9}],
4764
4765Cell[BoxData["\<\"Simplification of the vertices finished after \
4766395.394563\"\>"], "Print",
4767 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4768  3.6539026847947493`*^9}],
4769
4770Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 395.394905\"\>"], \
4771"Print",
4772 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4773  3.653902684815289*^9}],
4774
4775Cell[BoxData[
4776 StyleBox["\<\"Computing CT for the {V, V, S, S} vertices.\"\>",
4777  StripOnInput->False,
4778  LineColor->RGBColor[0, 0, 1],
4779  FrontFaceColor->RGBColor[0, 0, 1],
4780  BackFaceColor->RGBColor[0, 0, 1],
4781  GraphicsColor->RGBColor[0, 0, 1],
4782  FontColor->RGBColor[0, 0, 1]]], "Print",
4783 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4784  3.6539026848368998`*^9}],
4785
4786Cell[BoxData["\<\"\"\>"], "Print",
4787 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4788  3.6539026848609333`*^9}],
4789
4790Cell[BoxData[
4791 InterpretationBox[
4792  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "34",
4793   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
4794ones)\"\>"}],
4795  SequenceForm[
4796  "Excluding ", 34, " field point(s) (incl. charge-conjugate ones)"],
4797  Editable->False]], "Print",
4798 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4799  3.6539026848822927`*^9}],
4800
4801Cell[BoxData["\<\"\"\>"], "Print",
4802 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4803  3.653902684900145*^9}],
4804
4805Cell[BoxData[
4806 InterpretationBox[
4807  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
4808   RowBox[{"{",
4809    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4810  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
4811  Editable->False]], "Print",
4812 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4813  3.6539026849215393`*^9}],
4814
4815Cell[BoxData[
4816 InterpretationBox[
4817  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4818   "\[InvisibleSpace]", "\<\": \"\>",
4819   "\[InvisibleSpace]", "\<\"2 Generic, 4376 Classes insertions\"\>"}],
4820  SequenceForm["> Top. ", 1, ": ", "2 Generic, 4376 Classes insertions"],
4821  Editable->False]], "Print",
4822 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4823  3.65390269209604*^9}],
4824
4825Cell[BoxData[
4826 InterpretationBox[
4827  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4828   "\[InvisibleSpace]", "\<\": \"\>",
4829   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes insertions\"\>"}],
4830  SequenceForm["> Top. ", 2, ": ", "2 Generic, 2340 Classes insertions"],
4831  Editable->False]], "Print",
4832 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4833  3.653902696624372*^9}],
4834
4835Cell[BoxData[
4836 InterpretationBox[
4837  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4838   "\[InvisibleSpace]", "\<\": \"\>",
4839   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes insertions\"\>"}],
4840  SequenceForm["> Top. ", 3, ": ", "2 Generic, 2340 Classes insertions"],
4841  Editable->False]], "Print",
4842 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4843  3.653902701224086*^9}],
4844
4845Cell[BoxData[
4846 InterpretationBox[
4847  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
4848   "\[InvisibleSpace]", "\<\": \"\>",
4849   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes insertions\"\>"}],
4850  SequenceForm["> Top. ", 4, ": ", "2 Generic, 2340 Classes insertions"],
4851  Editable->False]], "Print",
4852 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4853  3.6539027060884943`*^9}],
4854
4855Cell[BoxData[
4856 InterpretationBox[
4857  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
4858   "\[InvisibleSpace]", "\<\": \"\>",
4859   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes insertions\"\>"}],
4860  SequenceForm["> Top. ", 5, ": ", "2 Generic, 2340 Classes insertions"],
4861  Editable->False]], "Print",
4862 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4863  3.653902711271099*^9}],
4864
4865Cell[BoxData[
4866 InterpretationBox[
4867  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
4868   "\[InvisibleSpace]", "\<\": \"\>",
4869   "\[InvisibleSpace]", "\<\"2 Generic, 2724 Classes insertions\"\>"}],
4870  SequenceForm["> Top. ", 6, ": ", "2 Generic, 2724 Classes insertions"],
4871  Editable->False]], "Print",
4872 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4873  3.653902717564502*^9}],
4874
4875Cell[BoxData[
4876 InterpretationBox[
4877  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
4878   "\[InvisibleSpace]", "\<\": \"\>",
4879   "\[InvisibleSpace]", "\<\"4 Generic, 7190 Classes insertions\"\>"}],
4880  SequenceForm["> Top. ", 7, ": ", "4 Generic, 7190 Classes insertions"],
4881  Editable->False]], "Print",
4882 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4883  3.653902740356469*^9}],
4884
4885Cell[BoxData[
4886 InterpretationBox[
4887  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
4888   "\[InvisibleSpace]", "\<\": \"\>",
4889   "\[InvisibleSpace]", "\<\"4 Generic, 7190 Classes insertions\"\>"}],
4890  SequenceForm["> Top. ", 8, ": ", "4 Generic, 7190 Classes insertions"],
4891  Editable->False]], "Print",
4892 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4893  3.653902762067487*^9}],
4894
4895Cell[BoxData[
4896 InterpretationBox[
4897  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
4898   "\[InvisibleSpace]", "\<\": \"\>",
4899   "\[InvisibleSpace]", "\<\"4 Generic, 6164 Classes insertions\"\>"}],
4900  SequenceForm["> Top. ", 9, ": ", "4 Generic, 6164 Classes insertions"],
4901  Editable->False]], "Print",
4902 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4903  3.6539027824653683`*^9}],
4904
4905Cell[BoxData[
4906 InterpretationBox[
4907  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
4908   "\[InvisibleSpace]", "\<\": \"\>",
4909   "\[InvisibleSpace]", "\<\"2 Generic, 1560 Classes insertions\"\>"}],
4910  SequenceForm["> Top. ", 10, ": ", "2 Generic, 1560 Classes insertions"],
4911  Editable->False]], "Print",
4912 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4913  3.653902785486121*^9}],
4914
4915Cell[BoxData[
4916 InterpretationBox[
4917  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
4918   "\[InvisibleSpace]", "\<\": \"\>",
4919   "\[InvisibleSpace]", "\<\"1 Generic, 900 Classes insertions\"\>"}],
4920  SequenceForm["> Top. ", 11, ": ", "1 Generic, 900 Classes insertions"],
4921  Editable->False]], "Print",
4922 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4923  3.6539027866569033`*^9}],
4924
4925Cell[BoxData[
4926 InterpretationBox[
4927  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
4928   "\[InvisibleSpace]", "\<\": \"\>",
4929   "\[InvisibleSpace]", "\<\"1 Generic, 900 Classes insertions\"\>"}],
4930  SequenceForm["> Top. ", 12, ": ", "1 Generic, 900 Classes insertions"],
4931  Editable->False]], "Print",
4932 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4933  3.65390278780239*^9}],
4934
4935Cell[BoxData["\<\"\"\>"], "Print",
4936 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4937  3.653902787822619*^9}],
4938
4939Cell[BoxData[
4940 InterpretationBox[
4941  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "34",
4942   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
4943  SequenceForm["Restoring ", 34, " field point(s)"],
4944  Editable->False]], "Print",
4945 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4946  3.653902787842349*^9}],
4947
4948Cell[BoxData[
4949 InterpretationBox[
4950  RowBox[{"\<\"in total: \"\>",
4951   "\[InvisibleSpace]", "\<\"28 Generic, 40364 Classes insertions\"\>"}],
4952  SequenceForm["in total: ", "28 Generic, 40364 Classes insertions"],
4953  Editable->False]], "Print",
4954 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4955  3.653902787967085*^9}],
4956
4957Cell[BoxData["\<\"\"\>"], "Print",
4958 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4959  3.653902794869437*^9}],
4960
4961Cell[BoxData[
4962 InterpretationBox[
4963  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4964   RowBox[{"{",
4965    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
4966  SequenceForm[
4967  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
4968  Editable->False]], "Print",
4969 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4970  3.6539027948900146`*^9}],
4971
4972Cell[BoxData[
4973 InterpretationBox[
4974  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4975   "\[InvisibleSpace]", "\<\": \"\>",
4976   "\[InvisibleSpace]", "\<\"1 Generic, 1024 Classes amplitudes\"\>"}],
4977  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1024 Classes amplitudes"],
4978  Editable->False]], "Print",
4979 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4980  3.653902797590384*^9}],
4981
4982Cell[BoxData[
4983 InterpretationBox[
4984  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4985   "\[InvisibleSpace]", "\<\": \"\>",
4986   "\[InvisibleSpace]", "\<\"1 Generic, 1024 Classes amplitudes\"\>"}],
4987  SequenceForm["> Top. ", 2, ": ", "1 Generic, 1024 Classes amplitudes"],
4988  Editable->False]], "Print",
4989 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
4990  3.653902799891592*^9}],
4991
4992Cell[BoxData[
4993 InterpretationBox[
4994  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
4995   "\[InvisibleSpace]", "\<\": \"\>",
4996   "\[InvisibleSpace]", "\<\"1 Generic, 1024 Classes amplitudes\"\>"}],
4997  SequenceForm["> Top. ", 3, ": ", "1 Generic, 1024 Classes amplitudes"],
4998  Editable->False]], "Print",
4999 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5000  3.653902802203464*^9}],
5001
5002Cell[BoxData[
5003 InterpretationBox[
5004  RowBox[{"\<\"in total: \"\>",
5005   "\[InvisibleSpace]", "\<\"3 Generic, 3072 Classes amplitudes\"\>"}],
5006  SequenceForm["in total: ", "3 Generic, 3072 Classes amplitudes"],
5007  Editable->False]], "Print",
5008 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5009  3.653902802221601*^9}],
5010
5011Cell[BoxData["\<\"Writing amplitude finished after 513.070067\"\>"], "Print",
5012 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5013  3.65390280247183*^9}],
5014
5015Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
5016after 516.640166\"\>"], "Print",
5017 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5018  3.653902806040228*^9}],
5019
5020Cell[BoxData["\<\"\"\>"], "Print",
5021 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5022  3.653902806211073*^9}],
5023
5024Cell[BoxData[
5025 InterpretationBox[
5026  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5027   RowBox[{"{",
5028    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5029  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5030  Editable->False]], "Print",
5031 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5032  3.653902806230466*^9}],
5033
5034Cell[BoxData[
5035 InterpretationBox[
5036  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5037   "\[InvisibleSpace]", "\<\": \"\>",
5038   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
5039  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
5040  Editable->False]], "Print",
5041 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5042  3.65390280625113*^9}],
5043
5044Cell[BoxData[
5045 InterpretationBox[
5046  RowBox[{"\<\"in total: \"\>",
5047   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
5048  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
5049  Editable->False]], "Print",
5050 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5051  3.6539028062759647`*^9}],
5052
5053Cell[BoxData["\<\"\"\>"], "Print",
5054 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5055  3.653902806297217*^9}],
5056
5057Cell[BoxData[
5058 InterpretationBox[
5059  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5060   RowBox[{"{",
5061    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5062  SequenceForm[
5063  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5064  Editable->False]], "Print",
5065 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5066  3.6539028063199883`*^9}],
5067
5068Cell[BoxData[
5069 InterpretationBox[
5070  RowBox[{"\<\"in total: \"\>",
5071   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
5072  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
5073  Editable->False]], "Print",
5074 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5075  3.653902806345134*^9}],
5076
5077Cell[BoxData["\<\"Writing the symbolic CT finished after 516.814548\"\>"], \
5078"Print",
5079 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5080  3.653902806369081*^9}],
5081
5082Cell[BoxData["\<\"SU3 algebra finished after 518.315191\"\>"], "Print",
5083 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5084  3.653902807715163*^9}],
5085
5086Cell[BoxData["\<\"Simplification of the vertices finished after \
5087518.611475\"\>"], "Print",
5088 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5089  3.653902808009754*^9}],
5090
5091Cell[BoxData["\<\"Vertices {V, V, S, S} finished after 518.611772\"\>"], \
5092"Print",
5093 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5094  3.653902808029722*^9}],
5095
5096Cell[BoxData[
5097 StyleBox["\<\"Computing CT for the {S, S, S, S} vertices.\"\>",
5098  StripOnInput->False,
5099  LineColor->RGBColor[0, 0, 1],
5100  FrontFaceColor->RGBColor[0, 0, 1],
5101  BackFaceColor->RGBColor[0, 0, 1],
5102  GraphicsColor->RGBColor[0, 0, 1],
5103  FontColor->RGBColor[0, 0, 1]]], "Print",
5104 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5105  3.6539028080526867`*^9}],
5106
5107Cell[BoxData["\<\"\"\>"], "Print",
5108 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5109  3.653902808076219*^9}],
5110
5111Cell[BoxData[
5112 InterpretationBox[
5113  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "1",
5114   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "10",
5115   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "10",
5116   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
5117  SequenceForm[
5118  "Excluding ", 1, " Generic, ", 10, " Classes, and ", 10,
5119   " Particles fields"],
5120  Editable->False]], "Print",
5121 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5122  3.653902808094123*^9}],
5123
5124Cell[BoxData["\<\"\"\>"], "Print",
5125 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5126  3.6539028081199923`*^9}],
5127
5128Cell[BoxData[
5129 InterpretationBox[
5130  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "34",
5131   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
5132ones)\"\>"}],
5133  SequenceForm[
5134  "Excluding ", 34, " field point(s) (incl. charge-conjugate ones)"],
5135  Editable->False]], "Print",
5136 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5137  3.6539028081437063`*^9}],
5138
5139Cell[BoxData["\<\"\"\>"], "Print",
5140 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5141  3.653902808162341*^9}],
5142
5143Cell[BoxData[
5144 InterpretationBox[
5145  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5146   RowBox[{"{",
5147    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5148  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5149  Editable->False]], "Print",
5150 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5151  3.6539028081797447`*^9}],
5152
5153Cell[BoxData[
5154 InterpretationBox[
5155  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5156   "\[InvisibleSpace]", "\<\": \"\>",
5157   "\[InvisibleSpace]", "\<\"2 Generic, 10992 Classes insertions\"\>"}],
5158  SequenceForm["> Top. ", 1, ": ", "2 Generic, 10992 Classes insertions"],
5159  Editable->False]], "Print",
5160 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5161  3.653902825950552*^9}],
5162
5163Cell[BoxData[
5164 InterpretationBox[
5165  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
5166   "\[InvisibleSpace]", "\<\": \"\>",
5167   "\[InvisibleSpace]", "\<\"2 Generic, 10992 Classes insertions\"\>"}],
5168  SequenceForm["> Top. ", 2, ": ", "2 Generic, 10992 Classes insertions"],
5169  Editable->False]], "Print",
5170 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5171  3.653902846123804*^9}],
5172
5173Cell[BoxData[
5174 InterpretationBox[
5175  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
5176   "\[InvisibleSpace]", "\<\": \"\>",
5177   "\[InvisibleSpace]", "\<\"2 Generic, 10992 Classes insertions\"\>"}],
5178  SequenceForm["> Top. ", 3, ": ", "2 Generic, 10992 Classes insertions"],
5179  Editable->False]], "Print",
5180 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5181  3.653902863977806*^9}],
5182
5183Cell[BoxData[
5184 InterpretationBox[
5185  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
5186   "\[InvisibleSpace]", "\<\": \"\>",
5187   "\[InvisibleSpace]", "\<\"2 Generic, 10992 Classes insertions\"\>"}],
5188  SequenceForm["> Top. ", 4, ": ", "2 Generic, 10992 Classes insertions"],
5189  Editable->False]], "Print",
5190 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5191  3.6539028822969923`*^9}],
5192
5193Cell[BoxData[
5194 InterpretationBox[
5195  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
5196   "\[InvisibleSpace]", "\<\": \"\>",
5197   "\[InvisibleSpace]", "\<\"2 Generic, 10992 Classes insertions\"\>"}],
5198  SequenceForm["> Top. ", 5, ": ", "2 Generic, 10992 Classes insertions"],
5199  Editable->False]], "Print",
5200 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5201  3.653902902695421*^9}],
5202
5203Cell[BoxData[
5204 InterpretationBox[
5205  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
5206   "\[InvisibleSpace]", "\<\": \"\>",
5207   "\[InvisibleSpace]", "\<\"2 Generic, 10992 Classes insertions\"\>"}],
5208  SequenceForm["> Top. ", 6, ": ", "2 Generic, 10992 Classes insertions"],
5209  Editable->False]], "Print",
5210 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5211  3.6539029220942297`*^9}],
5212
5213Cell[BoxData[
5214 InterpretationBox[
5215  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
5216   "\[InvisibleSpace]", "\<\": \"\>",
5217   "\[InvisibleSpace]", "\<\"3 Generic, 16346 Classes insertions\"\>"}],
5218  SequenceForm["> Top. ", 7, ": ", "3 Generic, 16346 Classes insertions"],
5219  Editable->False]], "Print",
5220 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5221  3.653902970142941*^9}],
5222
5223Cell[BoxData[
5224 InterpretationBox[
5225  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
5226   "\[InvisibleSpace]", "\<\": \"\>",
5227   "\[InvisibleSpace]", "\<\"3 Generic, 16346 Classes insertions\"\>"}],
5228  SequenceForm["> Top. ", 8, ": ", "3 Generic, 16346 Classes insertions"],
5229  Editable->False]], "Print",
5230 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5231  3.653903019258524*^9}],
5232
5233Cell[BoxData[
5234 InterpretationBox[
5235  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
5236   "\[InvisibleSpace]", "\<\": \"\>",
5237   "\[InvisibleSpace]", "\<\"3 Generic, 16346 Classes insertions\"\>"}],
5238  SequenceForm["> Top. ", 9, ": ", "3 Generic, 16346 Classes insertions"],
5239  Editable->False]], "Print",
5240 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5241  3.65390306791825*^9}],
5242
5243Cell[BoxData[
5244 InterpretationBox[
5245  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
5246   "\[InvisibleSpace]", "\<\": \"\>",
5247   "\[InvisibleSpace]", "\<\"2 Generic, 7152 Classes insertions\"\>"}],
5248  SequenceForm["> Top. ", 10, ": ", "2 Generic, 7152 Classes insertions"],
5249  Editable->False]], "Print",
5250 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5251  3.653903083083894*^9}],
5252
5253Cell[BoxData[
5254 InterpretationBox[
5255  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
5256   "\[InvisibleSpace]", "\<\": \"\>",
5257   "\[InvisibleSpace]", "\<\"2 Generic, 7152 Classes insertions\"\>"}],
5258  SequenceForm["> Top. ", 11, ": ", "2 Generic, 7152 Classes insertions"],
5259  Editable->False]], "Print",
5260 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5261  3.653903096710719*^9}],
5262
5263Cell[BoxData[
5264 InterpretationBox[
5265  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
5266   "\[InvisibleSpace]", "\<\": \"\>",
5267   "\[InvisibleSpace]", "\<\"2 Generic, 7152 Classes insertions\"\>"}],
5268  SequenceForm["> Top. ", 12, ": ", "2 Generic, 7152 Classes insertions"],
5269  Editable->False]], "Print",
5270 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5271  3.6539031100311737`*^9}],
5272
5273Cell[BoxData["\<\"\"\>"], "Print",
5274 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5275  3.6539031100564423`*^9}],
5276
5277Cell[BoxData[
5278 InterpretationBox[
5279  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "1",
5280   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "10",
5281   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "10",
5282   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
5283  SequenceForm[
5284  "Restoring ", 1, " Generic, ", 10, " Classes, and ", 10,
5285   " Particles fields"],
5286  Editable->False]], "Print",
5287 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5288  3.653903110077116*^9}],
5289
5290Cell[BoxData["\<\"\"\>"], "Print",
5291 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5292  3.653903110099938*^9}],
5293
5294Cell[BoxData[
5295 InterpretationBox[
5296  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "34",
5297   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
5298  SequenceForm["Restoring ", 34, " field point(s)"],
5299  Editable->False]], "Print",
5300 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5301  3.6539031101224213`*^9}],
5302
5303Cell[BoxData[
5304 InterpretationBox[
5305  RowBox[{"\<\"in total: \"\>",
5306   "\[InvisibleSpace]", "\<\"27 Generic, 136446 Classes insertions\"\>"}],
5307  SequenceForm["in total: ", "27 Generic, 136446 Classes insertions"],
5308  Editable->False]], "Print",
5309 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5310  3.653903110512759*^9}],
5311
5312Cell[BoxData["\<\"\"\>"], "Print",
5313 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5314  3.653903133184351*^9}],
5315
5316Cell[BoxData[
5317 InterpretationBox[
5318  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5319   RowBox[{"{",
5320    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5321  SequenceForm[
5322  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5323  Editable->False]], "Print",
5324 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5325  3.653903133207246*^9}],
5326
5327Cell[BoxData[
5328 InterpretationBox[
5329  RowBox[{"\<\"in total: \"\>",
5330   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
5331  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
5332  Editable->False]], "Print",
5333 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5334  3.653903133224951*^9}],
5335
5336Cell[BoxData["\<\"Writing amplitude finished after 843.815465\"\>"], "Print",
5337 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5338  3.653903133244523*^9}],
5339
5340Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
5341after 843.815663\"\>"], "Print",
5342 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5343  3.653903133265485*^9}],
5344
5345Cell[BoxData["\<\"\"\>"], "Print",
5346 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5347  3.653903133287169*^9}],
5348
5349Cell[BoxData[
5350 InterpretationBox[
5351  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5352   RowBox[{"{",
5353    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5354  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5355  Editable->False]], "Print",
5356 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5357  3.653903133310523*^9}],
5358
5359Cell[BoxData[
5360 InterpretationBox[
5361  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5362   "\[InvisibleSpace]", "\<\": \"\>",
5363   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
5364  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
5365  Editable->False]], "Print",
5366 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5367  3.653903133332613*^9}],
5368
5369Cell[BoxData[
5370 InterpretationBox[
5371  RowBox[{"\<\"in total: \"\>",
5372   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
5373  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
5374  Editable->False]], "Print",
5375 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5376  3.6539031333555098`*^9}],
5377
5378Cell[BoxData["\<\"\"\>"], "Print",
5379 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5380  3.6539031333748693`*^9}],
5381
5382Cell[BoxData[
5383 InterpretationBox[
5384  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5385   RowBox[{"{",
5386    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5387  SequenceForm[
5388  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5389  Editable->False]], "Print",
5390 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5391  3.653903133396422*^9}],
5392
5393Cell[BoxData[
5394 InterpretationBox[
5395  RowBox[{"\<\"in total: \"\>",
5396   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
5397  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
5398  Editable->False]], "Print",
5399 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5400  3.6539031334192247`*^9}],
5401
5402Cell[BoxData["\<\"Writing the symbolic CT finished after 843.819363\"\>"], \
5403"Print",
5404 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5405  3.653903133441408*^9}],
5406
5407Cell[BoxData["\<\"SU3 algebra finished after 843.819656\"\>"], "Print",
5408 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5409  3.653903133463565*^9}],
5410
5411Cell[BoxData["\<\"Simplification of the vertices finished after \
5412843.819702\"\>"], "Print",
5413 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5414  3.65390313348703*^9}],
5415
5416Cell[BoxData["\<\"Vertices {S, S, S, S} finished after 843.819878\"\>"], \
5417"Print",
5418 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5419  3.653903133508039*^9}],
5420
5421Cell[BoxData["\<\"before merge 843.830284 temp=1.138044\"\>"], "Print",
5422 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5423  3.653903133528922*^9}],
5424
5425Cell[BoxData["\<\"merging done 843.878845\"\>"], "Print",
5426 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5427  3.653903133546526*^9}],
5428
5429Cell[BoxData["\<\"Writing R2 and UV counterterms from 2HDM/2HDM and Lorentz \
5430in 2HDM.nlo\"\>"], "Print",
5431 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5432  3.653903133566532*^9}],
5433
5434Cell[BoxData["\<\"done\"\>"], "Print",
5435 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9,
5436  3.6539031337646923`*^9}]
5437}, Open  ]]
5438}, Closed]],
5439
5440Cell[CellGroupData[{
5441
5442Cell[BoxData[
5443 RowBox[{
5444  RowBox[{"(*",
5445   RowBox[{"All", " ", "Corrections"}], "*)"}], "\[IndentingNewLine]",
5446  RowBox[{
5447   RowBox[{"WriteCT", "[",
5448    RowBox[{"\"\<2HDMfull/2HDMfull\>\"", ",", "\"\<LorentzTadpole\>\"", ",",
5449     RowBox[{"Output", "->", "\"\<2HDMfull\>\""}], ",",
5450     RowBox[{"LabelInternal", "\[Rule]", "False"}], ",",
5451     RowBox[{"QCDOnly", "\[Rule]", "False"}], ",",
5452     RowBox[{"KeptIndices", "\[Rule]",
5453      RowBox[{"{", "}"}]}], ",",
5454     RowBox[{"CTparameters", "\[Rule]", "True"}], ",",
5455     RowBox[{"ComplexMass", "\[Rule]", "True"}], ",",
5456     RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}], ",",
5457     "\[IndentingNewLine]",
5458     RowBox[{"Assumptions", "\[Rule]",
5459      RowBox[{"{",
5460       RowBox[{
5461        RowBox[{"mhc", "!=", "0"}], ",",
5462        RowBox[{"mh1", "!=", "0"}], ",",
5463        RowBox[{"mh2", "!=", "0"}], ",",
5464        RowBox[{"mh3", "!=", "0"}], ",",
5465        RowBox[{"mh3", "\[NotEqual]", "mh2"}], ",",
5466        RowBox[{"mh2", "\[NotEqual]", " ", "mh1"}], ",",
5467        RowBox[{"MT", "!=", "0"}], ",",
5468        RowBox[{"MZ", "!=", "0"}], ",",
5469        RowBox[{"MW", "!=", "0"}], ",",
5470        RowBox[{"mh1", "!=", "MT"}], ",",
5471        RowBox[{"mh2", "!=", "MT"}], ",",
5472        RowBox[{"mh3", "!=", "MT"}], ",",
5473        RowBox[{"mhc", "\[NotEqual]", "MT"}], ",",
5474        RowBox[{"MB", "\[NotEqual]", "MZ"}], ",",
5475        RowBox[{"MB", "\[NotEqual]", "MW"}], ",",
5476        RowBox[{"MT", "\[NotEqual]", "MZ"}], ",",
5477        RowBox[{"MT", "\[NotEqual]", "MW"}], ",",
5478        RowBox[{"mh1", "!=", "MB"}], ",",
5479        RowBox[{"mh2", "!=", "MB"}], ",",
5480        RowBox[{"mh3", "!=", "MB"}], ",",
5481        RowBox[{"mhc", "\[NotEqual]", "MB"}], ",",
5482        RowBox[{"mh1", "!=", "MW"}], ",",
5483        RowBox[{"mh2", "!=", "MW"}], ",",
5484        RowBox[{"mh3", "!=", "MW"}], ",",
5485        RowBox[{"mhc", "\[NotEqual]", "MW"}], ",",
5486        RowBox[{"mh1", "!=", "MZ"}], ",",
5487        RowBox[{"mh2", "!=", "MZ"}], ",",
5488        RowBox[{"mh3", "!=", "MZ"}], ",",
5489        RowBox[{"mhc", "\[NotEqual]", "MZ"}], ",",
5490        RowBox[{"MZ", "\[NotEqual]", "MW"}], ",",
5491        RowBox[{"MB", "\[NotEqual]", "MT"}], ",",
5492        RowBox[{"mh1", "\[NotEqual]", "mhc"}], ",",
5493        RowBox[{"mh1", "\[NotEqual]", "mh3"}], ",",
5494        RowBox[{"mh2", "\[NotEqual]", "mhc"}], ",",
5495        RowBox[{"mh2", "\[NotEqual]", "mh3"}]}], "}"}]}]}], "]"}], "//",
5496   "Timing", " "}]}]], "Input",
5497 CellChangeTimes->{
5498  3.546018039263568*^9, {3.5601098875522738`*^9, 3.560109890790258*^9}, {
5499   3.5601645050049543`*^9, 3.560164515386466*^9}, {3.5601645731365957`*^9,
5500   3.5601645751252623`*^9}, {3.560164930476576*^9, 3.560164939163472*^9}, {
5501   3.560172693395529*^9, 3.560172694233309*^9}, 3.560172732410458*^9, {
5502   3.560621602972011*^9, 3.560621603564934*^9}, 3.563203454652876*^9, {
5503   3.56329268340104*^9, 3.563292688989945*^9}, {3.5649448910258837`*^9,
5504   3.56494490267134*^9}, 3.567255126196335*^9, {3.569597023095971*^9,
5505   3.5695970352850122`*^9}, 3.586791511225779*^9, 3.5912732058391314`*^9, {
5506   3.59264937098359*^9, 3.5926493720957603`*^9}, 3.594388622979652*^9, {
5507   3.595758608728765*^9, 3.5957586271510277`*^9}, {3.59790572042809*^9,
5508   3.59790574406031*^9}, {3.597905775923222*^9, 3.5979057763950787`*^9}, {
5509   3.597906057276328*^9, 3.5979061020281487`*^9}, {3.598078934507669*^9,
5510   3.598078944570553*^9}, {3.5980801884206467`*^9, 3.5980801889955683`*^9}, {
5511   3.598080477878993*^9, 3.598080505622426*^9}, {3.59808062223773*^9,
5512   3.598080634374485*^9}, {3.5980808773492002`*^9, 3.598080959941841*^9}, {
5513   3.598081000733921*^9, 3.598081023430237*^9}, {3.5980812307270823`*^9,
5514   3.59808123126088*^9}, {3.598081376839285*^9, 3.598081379165015*^9}, {
5515   3.598084785272973*^9, 3.598084812080247*^9}, {3.5980990859530373`*^9,
5516   3.598099091230956*^9}, 3.598340950263831*^9, {3.599286411852786*^9,
5517   3.5992865096805763`*^9}, {3.599293710897251*^9, 3.599293714969101*^9}, {
5518   3.599295066837051*^9, 3.599295234551105*^9}, {3.5992952686363153`*^9,
5519   3.5992954193634367`*^9}, {3.599295891554522*^9, 3.599296019016604*^9}, {
5520   3.599302968973659*^9, 3.599303005216393*^9}, {3.599303485018878*^9,
5521   3.599303491655465*^9}, {3.599478249905939*^9, 3.599478268730959*^9}, {
5522   3.599478364546812*^9, 3.5994783827801332`*^9}, {3.599479003569324*^9,
5523   3.599479034455926*^9}, {3.5994791945446367`*^9, 3.599479268017482*^9}, {
5524   3.599804419465233*^9, 3.5998044202469254`*^9}, {3.599807138683332*^9,
5525   3.599807140160709*^9}, {3.600496131706255*^9, 3.600496134911491*^9}, {
5526   3.600839164547018*^9, 3.600839165005457*^9}, {3.6060265573834057`*^9,
5527   3.606026567494478*^9}, {3.606026633105403*^9, 3.6060266598135138`*^9}, {
5528   3.606631849134161*^9, 3.606631856557191*^9}, {3.6066318957732353`*^9,
5529   3.6066319088734913`*^9}, {3.655103808520124*^9, 3.655103843895529*^9}, {
5530   3.655103875959846*^9, 3.655103877702527*^9}, 3.6551042405563707`*^9}],
5531
5532Cell[CellGroupData[{
5533
5534Cell[BoxData[
5535 StyleBox["\<\"Computing CT for the {S} vertices.\"\>",
5536  StripOnInput->False,
5537  LineColor->RGBColor[0, 0, 1],
5538  FrontFaceColor->RGBColor[0, 0, 1],
5539  BackFaceColor->RGBColor[0, 0, 1],
5540  GraphicsColor->RGBColor[0, 0, 1],
5541  FontColor->RGBColor[0, 0, 1]]], "Print",
5542 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
5543  3.6551042290456038`*^9, 3.655104249706235*^9}}],
5544
5545Cell[BoxData["\<\"\"\>"], "Print",
5546 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
5547  3.6551042290456038`*^9, 3.655104249710682*^9}}],
5548
5549Cell[BoxData[
5550 InterpretationBox[
5551  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
5552   "\[InvisibleSpace]", "\<\"generic\"\>",
5553   "\[InvisibleSpace]", "\<\" model file \"\>",
5554   "\[InvisibleSpace]", \
5555"\<\"/mt/home/degrande/FeynArts-3.9/Models/LorentzTadpole.gen\"\>"}],
5556  SequenceForm[
5557  "", "loading ", "generic", " model file ",
5558   "/mt/home/degrande/FeynArts-3.9/Models/LorentzTadpole.gen"],
5559  Editable->False]], "Print",
5560 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
5561  3.6551042290456038`*^9, 3.6551042497120237`*^9}}],
5562
5563Cell[BoxData["\<\"> $GenericMixing is OFF\"\>"], "Print",
5564 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
5565  3.6551042290456038`*^9, 3.655104249713314*^9}}],
5566
5567Cell[BoxData[
5568 InterpretationBox[
5569  RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]",
5570   RowBox[{"{", "\<\"LorentzTadpole\"\>", "}"}],
5571   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
5572  SequenceForm["generic model ", {"LorentzTadpole"}, " initialized"],
5573  Editable->False]], "Print",
5574 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
5575  3.6551042290456038`*^9, 3.655104249714588*^9}}],
5576
5577Cell[BoxData["\<\"\"\>"], "Print",
5578 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
5579  3.6551042290456038`*^9, 3.6551042497158546`*^9}}],
5580
5581Cell[BoxData[
5582 InterpretationBox[
5583  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
5584   "\[InvisibleSpace]", "\<\"classes\"\>",
5585   "\[InvisibleSpace]", "\<\" model file \"\>",
5586   "\[InvisibleSpace]", \
5587"\<\"/mt/home/degrande/FeynArts-3.9/Models/2HDMfull/2HDMfull.mod\"\>"}],
5588  SequenceForm[
5589  "", "loading ", "classes", " model file ",
5590   "/mt/home/degrande/FeynArts-3.9/Models/2HDMfull/2HDMfull.mod"],
5591  Editable->False]], "Print",
5592 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
5593  3.6551042290456038`*^9, 3.655104249717092*^9}}],
5594
5595Cell[BoxData[
5596 InterpretationBox[
5597  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "47",
5598   "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>",
5599   "\[InvisibleSpace]", "27", "\[InvisibleSpace]", "\<\" classes\"\>"}],
5600  SequenceForm[
5601  "> ", 47, " particles (incl. antiparticles) in ", 27, " classes"],
5602  Editable->False]], "Print",
5603 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5604   3.6551042290456038`*^9, 3.6551042607861137`*^9}],
5605
5606Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
5607 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5608   3.6551042290456038`*^9, 3.6551042615220423`*^9}],
5609
5610Cell[BoxData[
5611 InterpretationBox[
5612  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "296",
5613   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
5614  SequenceForm["> ", 296, " vertices"],
5615  Editable->False]], "Print",
5616 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5617   3.6551042290456038`*^9, 3.6551042615332813`*^9}],
5618
5619Cell[BoxData[
5620 InterpretationBox[
5621  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "597",
5622   "\[InvisibleSpace]", "\<\" counter terms of order 1\"\>"}],
5623  SequenceForm["> ", 597, " counter terms of order 1"],
5624  Editable->False]], "Print",
5625 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5626   3.6551042290456038`*^9, 3.655104261614678*^9}],
5627
5628Cell[BoxData[
5629 InterpretationBox[
5630  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]",
5631   RowBox[{"{", "\<\"2HDMfull/2HDMfull\"\>", "}"}],
5632   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
5633  SequenceForm["classes model ", {"2HDMfull/2HDMfull"}, " initialized"],
5634  Editable->False]], "Print",
5635 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5636   3.6551042290456038`*^9, 3.655104261708804*^9}],
5637
5638Cell[BoxData["\<\"\"\>"], "Print",
5639 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5640   3.6551042290456038`*^9, 3.6551042617183*^9}],
5641
5642Cell[BoxData[
5643 InterpretationBox[
5644  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5645   RowBox[{"{",
5646    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5647  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5648  Editable->False]], "Print",
5649 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5650   3.6551042290456038`*^9, 3.6551042617195187`*^9}],
5651
5652Cell[BoxData[
5653 InterpretationBox[
5654  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5655   "\[InvisibleSpace]", "\<\": \"\>",
5656   "\[InvisibleSpace]", "\<\"4 Generic, 57 Classes insertions\"\>"}],
5657  SequenceForm["> Top. ", 1, ": ", "4 Generic, 57 Classes insertions"],
5658  Editable->False]], "Print",
5659 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5660   3.6551042290456038`*^9, 3.655104261804682*^9}],
5661
5662Cell[BoxData[
5663 InterpretationBox[
5664  RowBox[{"\<\"in total: \"\>",
5665   "\[InvisibleSpace]", "\<\"4 Generic, 57 Classes insertions\"\>"}],
5666  SequenceForm["in total: ", "4 Generic, 57 Classes insertions"],
5667  Editable->False]], "Print",
5668 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5669   3.6551042290456038`*^9, 3.655104261807912*^9}],
5670
5671Cell[BoxData["\<\"\"\>"], "Print",
5672 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5673   3.6551042290456038`*^9, 3.6551042618091497`*^9}],
5674
5675Cell[BoxData[
5676 InterpretationBox[
5677  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5678   RowBox[{"{",
5679    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5680  SequenceForm[
5681  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5682  Editable->False]], "Print",
5683 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5684   3.6551042290456038`*^9, 3.655104261810411*^9}],
5685
5686Cell[BoxData[
5687 InterpretationBox[
5688  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5689   "\[InvisibleSpace]", "\<\": \"\>",
5690   "\[InvisibleSpace]", "\<\"4 Generic, 57 Classes amplitudes\"\>"}],
5691  SequenceForm["> Top. ", 1, ": ", "4 Generic, 57 Classes amplitudes"],
5692  Editable->False]], "Print",
5693 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5694   3.6551042290456038`*^9, 3.655104261811701*^9}],
5695
5696Cell[BoxData[
5697 InterpretationBox[
5698  RowBox[{"\<\"in total: \"\>",
5699   "\[InvisibleSpace]", "\<\"4 Generic, 57 Classes amplitudes\"\>"}],
5700  SequenceForm["in total: ", "4 Generic, 57 Classes amplitudes"],
5701  Editable->False]], "Print",
5702 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5703   3.6551042290456038`*^9, 3.655104261813038*^9}],
5704
5705Cell[BoxData["\<\"Writing amplitude finished after 12.152976\"\>"], "Print",
5706 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5707   3.6551042290456038`*^9, 3.655104261814283*^9}],
5708
5709Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
5710after 12.270420\"\>"], "Print",
5711 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5712   3.6551042290456038`*^9, 3.6551042619299717`*^9}],
5713
5714Cell[BoxData["\<\"\"\>"], "Print",
5715 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5716   3.6551042290456038`*^9, 3.655104262011723*^9}],
5717
5718Cell[BoxData[
5719 InterpretationBox[
5720  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5721   RowBox[{"{",
5722    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5723  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5724  Editable->False]], "Print",
5725 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5726   3.6551042290456038`*^9, 3.655104262014886*^9}],
5727
5728Cell[BoxData[
5729 InterpretationBox[
5730  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5731   "\[InvisibleSpace]", "\<\": \"\>",
5732   "\[InvisibleSpace]", "\<\"1 Generic, 2 Classes insertions\"\>"}],
5733  SequenceForm["> Top. ", 1, ": ", "1 Generic, 2 Classes insertions"],
5734  Editable->False]], "Print",
5735 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5736   3.6551042290456038`*^9, 3.6551042620161877`*^9}],
5737
5738Cell[BoxData[
5739 InterpretationBox[
5740  RowBox[{"\<\"in total: \"\>",
5741   "\[InvisibleSpace]", "\<\"1 Generic, 2 Classes insertions\"\>"}],
5742  SequenceForm["in total: ", "1 Generic, 2 Classes insertions"],
5743  Editable->False]], "Print",
5744 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5745   3.6551042290456038`*^9, 3.655104262017527*^9}],
5746
5747Cell[BoxData["\<\"\"\>"], "Print",
5748 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5749   3.6551042290456038`*^9, 3.655104262018754*^9}],
5750
5751Cell[BoxData[
5752 InterpretationBox[
5753  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5754   RowBox[{"{",
5755    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5756  SequenceForm[
5757  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5758  Editable->False]], "Print",
5759 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5760   3.6551042290456038`*^9, 3.655104262019978*^9}],
5761
5762Cell[BoxData[
5763 InterpretationBox[
5764  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5765   "\[InvisibleSpace]", "\<\": \"\>",
5766   "\[InvisibleSpace]", "\<\"1 Generic, 2 Classes amplitudes\"\>"}],
5767  SequenceForm["> Top. ", 1, ": ", "1 Generic, 2 Classes amplitudes"],
5768  Editable->False]], "Print",
5769 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5770   3.6551042290456038`*^9, 3.655104262021261*^9}],
5771
5772Cell[BoxData[
5773 InterpretationBox[
5774  RowBox[{"\<\"in total: \"\>",
5775   "\[InvisibleSpace]", "\<\"1 Generic, 2 Classes amplitudes\"\>"}],
5776  SequenceForm["in total: ", "1 Generic, 2 Classes amplitudes"],
5777  Editable->False]], "Print",
5778 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5779   3.6551042290456038`*^9, 3.655104262022554*^9}],
5780
5781Cell[BoxData["\<\"Writing the symbolic CT finished after 12.331959\"\>"], \
5782"Print",
5783 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5784   3.6551042290456038`*^9, 3.6551042620237827`*^9}],
5785
5786Cell[BoxData["\<\"SU3 algebra finished after 12.494939\"\>"], "Print",
5787 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5788   3.6551042290456038`*^9, 3.655104262157837*^9}],
5789
5790Cell[BoxData["\<\"Remove the following tadpole because it cannot be absorded \
5791in a tadpole counterterm :\"\>"], "Print",
5792 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5793   3.6551042290456038`*^9, 3.6551042622731*^9}],
5794
5795Cell[BoxData[
5796 RowBox[{"{",
5797  RowBox[{
5798   RowBox[{"{",
5799    RowBox[{"{",
5800     RowBox[{
5801      RowBox[{"S", "[", "6", "]"}], ",", "1"}], "}"}], "}"}], ",",
5802   RowBox[{
5803    FractionBox[
5804     RowBox[{"3", " ", "\[ImaginaryI]", " ",
5805      SuperscriptBox["MB", "3"], " ",
5806      RowBox[{"(",
5807       RowBox[{
5808        FractionBox[
5809         RowBox[{"GD3x3", " ", "TH3x3"}],
5810         SqrtBox["2"]], "-",
5811        FractionBox[
5812         RowBox[{"TH3x3", " ",
5813          TemplateBox[{"GD3x3","\"*\""},
5814           "Superscript"]}],
5815         SqrtBox["2"]]}], ")"}], " ",
5816      RowBox[{"(",
5817       RowBox[{"2", "-", "FR$Eps", "+",
5818        RowBox[{"FR$Eps", " ",
5819         RowBox[{"Log", "[",
5820          FractionBox[
5821           SuperscriptBox["MB", "2"],
5822           SuperscriptBox["FR$MU", "2"]], "]"}]}]}], ")"}]}],
5823     RowBox[{"8", " ", "FR$Eps", " ",
5824      SuperscriptBox["\[Pi]", "2"]}]], "+",
5825    FractionBox[
5826     RowBox[{"3", " ", "\[ImaginaryI]", " ",
5827      SuperscriptBox["MT", "3"], " ",
5828      RowBox[{"(",
5829       RowBox[{
5830        RowBox[{"-",
5831         FractionBox[
5832          RowBox[{"GU3x3", " ", "TH3x3"}],
5833          SqrtBox["2"]]}], "+",
5834        FractionBox[
5835         RowBox[{"TH3x3", " ",
5836          TemplateBox[{"GU3x3","\"*\""},
5837           "Superscript"]}],
5838         SqrtBox["2"]]}], ")"}], " ",
5839      RowBox[{"(",
5840       RowBox[{"2", "-", "FR$Eps", "+",
5841        RowBox[{"FR$Eps", " ",
5842         RowBox[{"Log", "[",
5843          FractionBox[
5844           SuperscriptBox["MT", "2"],
5845           SuperscriptBox["FR$MU", "2"]], "]"}]}]}], ")"}]}],
5846     RowBox[{"8", " ", "FR$Eps", " ",
5847      SuperscriptBox["\[Pi]", "2"]}]]}]}], "}"}]], "Print",
5848 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5849   3.6551042290456038`*^9, 3.655104262276703*^9}],
5850
5851Cell[BoxData["\<\"Simplification of the vertices finished after \
585213.002616\"\>"], "Print",
5853 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5854   3.6551042290456038`*^9, 3.6551042626738367`*^9}],
5855
5856Cell[BoxData["\<\"Vertices {S} finished after 13.002768\"\>"], "Print",
5857 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5858   3.6551042290456038`*^9, 3.6551042626752977`*^9}],
5859
5860Cell[BoxData[
5861 StyleBox["\<\"Computing CT for the {F, F} vertices.\"\>",
5862  StripOnInput->False,
5863  LineColor->RGBColor[0, 0, 1],
5864  FrontFaceColor->RGBColor[0, 0, 1],
5865  BackFaceColor->RGBColor[0, 0, 1],
5866  GraphicsColor->RGBColor[0, 0, 1],
5867  FontColor->RGBColor[0, 0, 1]]], "Print",
5868 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5869   3.6551042290456038`*^9, 3.655104262676588*^9}],
5870
5871Cell[BoxData["\<\"\"\>"], "Print",
5872 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5873   3.6551042290456038`*^9, 3.655104262677842*^9}],
5874
5875Cell[BoxData[
5876 InterpretationBox[
5877  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5878   RowBox[{"{",
5879    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5880  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5881  Editable->False]], "Print",
5882 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5883   3.6551042290456038`*^9, 3.655104262679099*^9}],
5884
5885Cell[BoxData[
5886 InterpretationBox[
5887  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5888   "\[InvisibleSpace]", "\<\": \"\>",
5889   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
5890  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
5891  Editable->False]], "Print",
5892 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5893   3.6551042290456038`*^9, 3.655104262680389*^9}],
5894
5895Cell[BoxData[
5896 InterpretationBox[
5897  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
5898   "\[InvisibleSpace]", "\<\": \"\>",
5899   "\[InvisibleSpace]", "\<\"2 Generic, 170 Classes insertions\"\>"}],
5900  SequenceForm["> Top. ", 2, ": ", "2 Generic, 170 Classes insertions"],
5901  Editable->False]], "Print",
5902 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5903   3.6551042290456038`*^9, 3.65510426322898*^9}],
5904
5905Cell[BoxData[
5906 InterpretationBox[
5907  RowBox[{"\<\"in total: \"\>",
5908   "\[InvisibleSpace]", "\<\"2 Generic, 170 Classes insertions\"\>"}],
5909  SequenceForm["in total: ", "2 Generic, 170 Classes insertions"],
5910  Editable->False]], "Print",
5911 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5912   3.6551042290456038`*^9, 3.65510426323809*^9}],
5913
5914Cell[BoxData["\<\"\"\>"], "Print",
5915 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5916   3.6551042290456038`*^9, 3.655104263342146*^9}],
5917
5918Cell[BoxData[
5919 InterpretationBox[
5920  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5921   RowBox[{"{",
5922    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5923  SequenceForm[
5924  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
5925  Editable->False]], "Print",
5926 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5927   3.6551042290456038`*^9, 3.6551042633500423`*^9}],
5928
5929Cell[BoxData[
5930 InterpretationBox[
5931  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5932   "\[InvisibleSpace]", "\<\": \"\>",
5933   "\[InvisibleSpace]", "\<\"2 Generic, 170 Classes amplitudes\"\>"}],
5934  SequenceForm["> Top. ", 1, ": ", "2 Generic, 170 Classes amplitudes"],
5935  Editable->False]], "Print",
5936 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5937   3.6551042290456038`*^9, 3.655104263597952*^9}],
5938
5939Cell[BoxData[
5940 InterpretationBox[
5941  RowBox[{"\<\"in total: \"\>",
5942   "\[InvisibleSpace]", "\<\"2 Generic, 170 Classes amplitudes\"\>"}],
5943  SequenceForm["in total: ", "2 Generic, 170 Classes amplitudes"],
5944  Editable->False]], "Print",
5945 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5946   3.6551042290456038`*^9, 3.655104263599633*^9}],
5947
5948Cell[BoxData["\<\"Writing amplitude finished after 13.940131\"\>"], "Print",
5949 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5950   3.6551042290456038`*^9, 3.655104263600955*^9}],
5951
5952Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
5953after 15.031767\"\>"], "Print",
5954 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5955   3.6551042290456038`*^9, 3.6551042646938457`*^9}],
5956
5957Cell[BoxData["\<\"\"\>"], "Print",
5958 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5959   3.6551042290456038`*^9, 3.655104265321912*^9}],
5960
5961Cell[BoxData[
5962 InterpretationBox[
5963  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
5964   RowBox[{"{",
5965    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5966  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
5967  Editable->False]], "Print",
5968 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5969   3.6551042290456038`*^9, 3.655104265330124*^9}],
5970
5971Cell[BoxData[
5972 InterpretationBox[
5973  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
5974   "\[InvisibleSpace]", "\<\": \"\>",
5975   "\[InvisibleSpace]", "\<\"1 Generic, 72 Classes insertions\"\>"}],
5976  SequenceForm["> Top. ", 1, ": ", "1 Generic, 72 Classes insertions"],
5977  Editable->False]], "Print",
5978 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5979   3.6551042290456038`*^9, 3.6551042654179773`*^9}],
5980
5981Cell[BoxData[
5982 InterpretationBox[
5983  RowBox[{"\<\"in total: \"\>",
5984   "\[InvisibleSpace]", "\<\"1 Generic, 72 Classes insertions\"\>"}],
5985  SequenceForm["in total: ", "1 Generic, 72 Classes insertions"],
5986  Editable->False]], "Print",
5987 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5988   3.6551042290456038`*^9, 3.6551042654222383`*^9}],
5989
5990Cell[BoxData["\<\"\"\>"], "Print",
5991 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
5992   3.6551042290456038`*^9, 3.655104265423543*^9}],
5993
5994Cell[BoxData[
5995 InterpretationBox[
5996  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
5997   RowBox[{"{",
5998    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
5999  SequenceForm[
6000  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
6001  Editable->False]], "Print",
6002 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6003   3.6551042290456038`*^9, 3.655104265424852*^9}],
6004
6005Cell[BoxData[
6006 InterpretationBox[
6007  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6008   "\[InvisibleSpace]", "\<\": \"\>",
6009   "\[InvisibleSpace]", "\<\"1 Generic, 72 Classes amplitudes\"\>"}],
6010  SequenceForm["> Top. ", 1, ": ", "1 Generic, 72 Classes amplitudes"],
6011  Editable->False]], "Print",
6012 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6013   3.6551042290456038`*^9, 3.655104265511443*^9}],
6014
6015Cell[BoxData[
6016 InterpretationBox[
6017  RowBox[{"\<\"in total: \"\>",
6018   "\[InvisibleSpace]", "\<\"1 Generic, 72 Classes amplitudes\"\>"}],
6019  SequenceForm["in total: ", "1 Generic, 72 Classes amplitudes"],
6020  Editable->False]], "Print",
6021 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6022   3.6551042290456038`*^9, 3.655104265515707*^9}],
6023
6024Cell[BoxData["\<\"Writing the symbolic CT finished after 16.065617\"\>"], \
6025"Print",
6026 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6027   3.6551042290456038`*^9, 3.6551042657964087`*^9}],
6028
6029Cell[BoxData["\<\"SU3 algebra finished after 21.428572\"\>"], "Print",
6030 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6031   3.6551042290456038`*^9, 3.6551042710886793`*^9}],
6032
6033Cell[BoxData["\<\"Simplification of the vertices finished after \
603481.500303\"\>"], "Print",
6035 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6036   3.6551042290456038`*^9, 3.655104331170129*^9}],
6037
6038Cell[BoxData["\<\"Vertices {F, F} finished after 81.500590\"\>"], "Print",
6039 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6040   3.6551042290456038`*^9, 3.6551043311718073`*^9}],
6041
6042Cell[BoxData[
6043 StyleBox["\<\"Computing CT for the {S, S} vertices.\"\>",
6044  StripOnInput->False,
6045  LineColor->RGBColor[0, 0, 1],
6046  FrontFaceColor->RGBColor[0, 0, 1],
6047  BackFaceColor->RGBColor[0, 0, 1],
6048  GraphicsColor->RGBColor[0, 0, 1],
6049  FontColor->RGBColor[0, 0, 1]]], "Print",
6050 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6051   3.6551042290456038`*^9, 3.655104331173361*^9}],
6052
6053Cell[BoxData["\<\"\"\>"], "Print",
6054 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6055   3.6551042290456038`*^9, 3.6551043311747103`*^9}],
6056
6057Cell[BoxData[
6058 InterpretationBox[
6059  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
6060   RowBox[{"{",
6061    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6062  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
6063  Editable->False]], "Print",
6064 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6065   3.6551042290456038`*^9, 3.655104331178789*^9}],
6066
6067Cell[BoxData[
6068 InterpretationBox[
6069  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6070   "\[InvisibleSpace]", "\<\": \"\>",
6071   "\[InvisibleSpace]", "\<\"2 Generic, 126 Classes insertions\"\>"}],
6072  SequenceForm["> Top. ", 1, ": ", "2 Generic, 126 Classes insertions"],
6073  Editable->False]], "Print",
6074 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6075   3.6551042290456038`*^9, 3.6551043312935867`*^9}],
6076
6077Cell[BoxData[
6078 InterpretationBox[
6079  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
6080   "\[InvisibleSpace]", "\<\": \"\>",
6081   "\[InvisibleSpace]", "\<\"5 Generic, 373 Classes insertions\"\>"}],
6082  SequenceForm["> Top. ", 2, ": ", "5 Generic, 373 Classes insertions"],
6083  Editable->False]], "Print",
6084 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6085   3.6551042290456038`*^9, 3.655104331985965*^9}],
6086
6087Cell[BoxData[
6088 InterpretationBox[
6089  RowBox[{"\<\"in total: \"\>",
6090   "\[InvisibleSpace]", "\<\"7 Generic, 499 Classes insertions\"\>"}],
6091  SequenceForm["in total: ", "7 Generic, 499 Classes insertions"],
6092  Editable->False]], "Print",
6093 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6094   3.6551042290456038`*^9, 3.6551043319982443`*^9}],
6095
6096Cell[BoxData["\<\"\"\>"], "Print",
6097 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6098   3.6551042290456038`*^9, 3.655104332079919*^9}],
6099
6100Cell[BoxData[
6101 InterpretationBox[
6102  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
6103   RowBox[{"{",
6104    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6105  SequenceForm[
6106  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
6107  Editable->False]], "Print",
6108 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6109   3.6551042290456038`*^9, 3.655104332082402*^9}],
6110
6111Cell[BoxData[
6112 InterpretationBox[
6113  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6114   "\[InvisibleSpace]", "\<\": \"\>",
6115   "\[InvisibleSpace]", "\<\"2 Generic, 126 Classes amplitudes\"\>"}],
6116  SequenceForm["> Top. ", 1, ": ", "2 Generic, 126 Classes amplitudes"],
6117  Editable->False]], "Print",
6118 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6119   3.6551042290456038`*^9, 3.65510433217955*^9}],
6120
6121Cell[BoxData[
6122 InterpretationBox[
6123  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
6124   "\[InvisibleSpace]", "\<\": \"\>",
6125   "\[InvisibleSpace]", "\<\"5 Generic, 373 Classes amplitudes\"\>"}],
6126  SequenceForm["> Top. ", 2, ": ", "5 Generic, 373 Classes amplitudes"],
6127  Editable->False]], "Print",
6128 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6129   3.6551042290456038`*^9, 3.655104332665976*^9}],
6130
6131Cell[BoxData[
6132 InterpretationBox[
6133  RowBox[{"\<\"in total: \"\>",
6134   "\[InvisibleSpace]", "\<\"7 Generic, 499 Classes amplitudes\"\>"}],
6135  SequenceForm["in total: ", "7 Generic, 499 Classes amplitudes"],
6136  Editable->False]], "Print",
6137 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6138   3.6551042290456038`*^9, 3.655104332677916*^9}],
6139
6140Cell[BoxData["\<\"Writing amplitude finished after 83.020505\"\>"], "Print",
6141 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6142   3.6551042290456038`*^9, 3.655104332759913*^9}],
6143
6144Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
6145after 84.966701\"\>"], "Print",
6146 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6147   3.6551042290456038`*^9, 3.655104334629888*^9}],
6148
6149Cell[BoxData["\<\"\"\>"], "Print",
6150 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6151   3.6551042290456038`*^9, 3.655104335378146*^9}],
6152
6153Cell[BoxData[
6154 InterpretationBox[
6155  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
6156   RowBox[{"{",
6157    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6158  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
6159  Editable->False]], "Print",
6160 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6161   3.6551042290456038`*^9, 3.6551043354733877`*^9}],
6162
6163Cell[BoxData[
6164 InterpretationBox[
6165  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6166   "\[InvisibleSpace]", "\<\": \"\>",
6167   "\[InvisibleSpace]", "\<\"1 Generic, 24 Classes insertions\"\>"}],
6168  SequenceForm["> Top. ", 1, ": ", "1 Generic, 24 Classes insertions"],
6169  Editable->False]], "Print",
6170 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6171   3.6551042290456038`*^9, 3.65510433547584*^9}],
6172
6173Cell[BoxData[
6174 InterpretationBox[
6175  RowBox[{"\<\"in total: \"\>",
6176   "\[InvisibleSpace]", "\<\"1 Generic, 24 Classes insertions\"\>"}],
6177  SequenceForm["in total: ", "1 Generic, 24 Classes insertions"],
6178  Editable->False]], "Print",
6179 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6180   3.6551042290456038`*^9, 3.65510433548206*^9}],
6181
6182Cell[BoxData["\<\"\"\>"], "Print",
6183 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6184   3.6551042290456038`*^9, 3.6551043354834833`*^9}],
6185
6186Cell[BoxData[
6187 InterpretationBox[
6188  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
6189   RowBox[{"{",
6190    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6191  SequenceForm[
6192  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
6193  Editable->False]], "Print",
6194 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6195   3.6551042290456038`*^9, 3.6551043354849*^9}],
6196
6197Cell[BoxData[
6198 InterpretationBox[
6199  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6200   "\[InvisibleSpace]", "\<\": \"\>",
6201   "\[InvisibleSpace]", "\<\"1 Generic, 24 Classes amplitudes\"\>"}],
6202  SequenceForm["> Top. ", 1, ": ", "1 Generic, 24 Classes amplitudes"],
6203  Editable->False]], "Print",
6204 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6205   3.6551042290456038`*^9, 3.6551043354863777`*^9}],
6206
6207Cell[BoxData[
6208 InterpretationBox[
6209  RowBox[{"\<\"in total: \"\>",
6210   "\[InvisibleSpace]", "\<\"1 Generic, 24 Classes amplitudes\"\>"}],
6211  SequenceForm["in total: ", "1 Generic, 24 Classes amplitudes"],
6212  Editable->False]], "Print",
6213 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6214   3.6551042290456038`*^9, 3.655104335487859*^9}],
6215
6216Cell[BoxData["\<\"Writing the symbolic CT finished after 85.838572\"\>"], \
6217"Print",
6218 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6219   3.6551042290456038`*^9, 3.6551043355792093`*^9}],
6220
6221Cell[BoxData["\<\"SU3 algebra finished after 93.412105\"\>"], "Print",
6222 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6223   3.6551042290456038`*^9, 3.6551043430717077`*^9}],
6224
6225Cell[BoxData["\<\"Simplification of the vertices finished after \
6226621.020713\"\>"], "Print",
6227 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6228   3.6551042290456038`*^9, 3.655104870680304*^9}],
6229
6230Cell[BoxData["\<\"Vertices {S, S} finished after 621.024003\"\>"], "Print",
6231 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6232   3.6551042290456038`*^9, 3.655104870750292*^9}],
6233
6234Cell[BoxData[
6235 StyleBox["\<\"Computing CT for the {V, V} vertices.\"\>",
6236  StripOnInput->False,
6237  LineColor->RGBColor[0, 0, 1],
6238  FrontFaceColor->RGBColor[0, 0, 1],
6239  BackFaceColor->RGBColor[0, 0, 1],
6240  GraphicsColor->RGBColor[0, 0, 1],
6241  FontColor->RGBColor[0, 0, 1]]], "Print",
6242 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6243   3.6551042290456038`*^9, 3.655104870752182*^9}],
6244
6245Cell[BoxData["\<\"\"\>"], "Print",
6246 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6247   3.6551042290456038`*^9, 3.6551048707537003`*^9}],
6248
6249Cell[BoxData[
6250 InterpretationBox[
6251  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
6252   RowBox[{"{",
6253    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6254  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
6255  Editable->False]], "Print",
6256 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6257   3.6551042290456038`*^9, 3.6551048707551622`*^9}],
6258
6259Cell[BoxData[
6260 InterpretationBox[
6261  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6262   "\[InvisibleSpace]", "\<\": \"\>",
6263   "\[InvisibleSpace]", "\<\"2 Generic, 47 Classes insertions\"\>"}],
6264  SequenceForm["> Top. ", 1, ": ", "2 Generic, 47 Classes insertions"],
6265  Editable->False]], "Print",
6266 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6267   3.6551042290456038`*^9, 3.6551048707566547`*^9}],
6268
6269Cell[BoxData[
6270 InterpretationBox[
6271  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
6272   "\[InvisibleSpace]", "\<\": \"\>",
6273   "\[InvisibleSpace]", "\<\"5 Generic, 184 Classes insertions\"\>"}],
6274  SequenceForm["> Top. ", 2, ": ", "5 Generic, 184 Classes insertions"],
6275  Editable->False]], "Print",
6276 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6277   3.6551042290456038`*^9, 3.6551048710979967`*^9}],
6278
6279Cell[BoxData[
6280 InterpretationBox[
6281  RowBox[{"\<\"in total: \"\>",
6282   "\[InvisibleSpace]", "\<\"7 Generic, 231 Classes insertions\"\>"}],
6283  SequenceForm["in total: ", "7 Generic, 231 Classes insertions"],
6284  Editable->False]], "Print",
6285 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6286   3.6551042290456038`*^9, 3.6551048711103897`*^9}],
6287
6288Cell[BoxData["\<\"\"\>"], "Print",
6289 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6290   3.6551042290456038`*^9, 3.655104871111951*^9}],
6291
6292Cell[BoxData[
6293 InterpretationBox[
6294  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
6295   RowBox[{"{",
6296    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6297  SequenceForm[
6298  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
6299  Editable->False]], "Print",
6300 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6301   3.6551042290456038`*^9, 3.65510487111341*^9}],
6302
6303Cell[BoxData[
6304 InterpretationBox[
6305  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6306   "\[InvisibleSpace]", "\<\": \"\>",
6307   "\[InvisibleSpace]", "\<\"2 Generic, 47 Classes amplitudes\"\>"}],
6308  SequenceForm["> Top. ", 1, ": ", "2 Generic, 47 Classes amplitudes"],
6309  Editable->False]], "Print",
6310 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6311   3.6551042290456038`*^9, 3.655104871189002*^9}],
6312
6313Cell[BoxData[
6314 InterpretationBox[
6315  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
6316   "\[InvisibleSpace]", "\<\": \"\>",
6317   "\[InvisibleSpace]", "\<\"5 Generic, 184 Classes amplitudes\"\>"}],
6318  SequenceForm["> Top. ", 2, ": ", "5 Generic, 184 Classes amplitudes"],
6319  Editable->False]], "Print",
6320 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6321   3.6551042290456038`*^9, 3.655104871394013*^9}],
6322
6323Cell[BoxData[
6324 InterpretationBox[
6325  RowBox[{"\<\"in total: \"\>",
6326   "\[InvisibleSpace]", "\<\"7 Generic, 231 Classes amplitudes\"\>"}],
6327  SequenceForm["in total: ", "7 Generic, 231 Classes amplitudes"],
6328  Editable->False]], "Print",
6329 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6330   3.6551042290456038`*^9, 3.6551048713982277`*^9}],
6331
6332Cell[BoxData["\<\"Writing amplitude finished after 621.743805\"\>"], "Print",
6333 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6334   3.6551042290456038`*^9, 3.655104871484498*^9}],
6335
6336Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
6337after 624.517030\"\>"], "Print",
6338 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6339   3.6551042290456038`*^9, 3.6551048741779547`*^9}],
6340
6341Cell[BoxData["\<\"\"\>"], "Print",
6342 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6343   3.6551042290456038`*^9, 3.6551048753973627`*^9}],
6344
6345Cell[BoxData[
6346 InterpretationBox[
6347  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
6348   RowBox[{"{",
6349    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6350  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
6351  Editable->False]], "Print",
6352 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6353   3.6551042290456038`*^9, 3.655104875399125*^9}],
6354
6355Cell[BoxData[
6356 InterpretationBox[
6357  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6358   "\[InvisibleSpace]", "\<\": \"\>",
6359   "\[InvisibleSpace]", "\<\"1 Generic, 7 Classes insertions\"\>"}],
6360  SequenceForm["> Top. ", 1, ": ", "1 Generic, 7 Classes insertions"],
6361  Editable->False]], "Print",
6362 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6363   3.6551042290456038`*^9, 3.655104875472533*^9}],
6364
6365Cell[BoxData[
6366 InterpretationBox[
6367  RowBox[{"\<\"in total: \"\>",
6368   "\[InvisibleSpace]", "\<\"1 Generic, 7 Classes insertions\"\>"}],
6369  SequenceForm["in total: ", "1 Generic, 7 Classes insertions"],
6370  Editable->False]], "Print",
6371 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6372   3.6551042290456038`*^9, 3.655104875474235*^9}],
6373
6374Cell[BoxData["\<\"\"\>"], "Print",
6375 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6376   3.6551042290456038`*^9, 3.655104875475788*^9}],
6377
6378Cell[BoxData[
6379 InterpretationBox[
6380  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
6381   RowBox[{"{",
6382    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6383  SequenceForm[
6384  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
6385  Editable->False]], "Print",
6386 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6387   3.6551042290456038`*^9, 3.6551048754772577`*^9}],
6388
6389Cell[BoxData[
6390 InterpretationBox[
6391  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6392   "\[InvisibleSpace]", "\<\": \"\>",
6393   "\[InvisibleSpace]", "\<\"1 Generic, 7 Classes amplitudes\"\>"}],
6394  SequenceForm["> Top. ", 1, ": ", "1 Generic, 7 Classes amplitudes"],
6395  Editable->False]], "Print",
6396 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6397   3.6551042290456038`*^9, 3.655104875478792*^9}],
6398
6399Cell[BoxData[
6400 InterpretationBox[
6401  RowBox[{"\<\"in total: \"\>",
6402   "\[InvisibleSpace]", "\<\"1 Generic, 7 Classes amplitudes\"\>"}],
6403  SequenceForm["in total: ", "1 Generic, 7 Classes amplitudes"],
6404  Editable->False]], "Print",
6405 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6406   3.6551042290456038`*^9, 3.6551048754901123`*^9}],
6407
6408Cell[BoxData["\<\"Writing the symbolic CT finished after 625.798933\"\>"], \
6409"Print",
6410 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6411   3.6551042290456038`*^9, 3.655104875491592*^9}],
6412
6413Cell[BoxData["\<\"SU3 algebra finished after 630.888855\"\>"], "Print",
6414 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6415   3.6551042290456038`*^9, 3.655104880548502*^9}],
6416
6417Cell[BoxData["\<\"Simplification of the vertices finished after \
6418801.829287\"\>"], "Print",
6419 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6420   3.6551042290456038`*^9, 3.655105051488925*^9}],
6421
6422Cell[BoxData["\<\"Vertices {V, V} finished after 801.832554\"\>"], "Print",
6423 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6424   3.6551042290456038`*^9, 3.655105051659734*^9}],
6425
6426Cell[BoxData[
6427 StyleBox["\<\"Computing CT for the {F, F, S} vertices.\"\>",
6428  StripOnInput->False,
6429  LineColor->RGBColor[0, 0, 1],
6430  FrontFaceColor->RGBColor[0, 0, 1],
6431  BackFaceColor->RGBColor[0, 0, 1],
6432  GraphicsColor->RGBColor[0, 0, 1],
6433  FontColor->RGBColor[0, 0, 1]]], "Print",
6434 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6435   3.6551042290456038`*^9, 3.65510505166152*^9}],
6436
6437Cell[BoxData["\<\"\"\>"], "Print",
6438 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6439   3.6551042290456038`*^9, 3.6551050516740513`*^9}],
6440
6441Cell[BoxData[
6442 InterpretationBox[
6443  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
6444   RowBox[{"{",
6445    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6446  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
6447  Editable->False]], "Print",
6448 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6449   3.6551042290456038`*^9, 3.655105051675692*^9}],
6450
6451Cell[BoxData[
6452 InterpretationBox[
6453  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6454   "\[InvisibleSpace]", "\<\": \"\>",
6455   "\[InvisibleSpace]", "\<\"6 Generic, 2554 Classes insertions\"\>"}],
6456  SequenceForm["> Top. ", 1, ": ", "6 Generic, 2554 Classes insertions"],
6457  Editable->False]], "Print",
6458 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6459   3.6551042290456038`*^9, 3.655105073378087*^9}],
6460
6461Cell[BoxData[
6462 InterpretationBox[
6463  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
6464   "\[InvisibleSpace]", "\<\": \"\>",
6465   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
6466  SequenceForm["> Top. ", 2, ": ", "0 Generic, 0 Classes insertions"],
6467  Editable->False]], "Print",
6468 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6469   3.6551042290456038`*^9, 3.655105073390253*^9}],
6470
6471Cell[BoxData[
6472 InterpretationBox[
6473  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
6474   "\[InvisibleSpace]", "\<\": \"\>",
6475   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
6476  SequenceForm["> Top. ", 3, ": ", "0 Generic, 0 Classes insertions"],
6477  Editable->False]], "Print",
6478 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6479   3.6551042290456038`*^9, 3.655105073391985*^9}],
6480
6481Cell[BoxData[
6482 InterpretationBox[
6483  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
6484   "\[InvisibleSpace]", "\<\": \"\>",
6485   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
6486  SequenceForm["> Top. ", 4, ": ", "0 Generic, 0 Classes insertions"],
6487  Editable->False]], "Print",
6488 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6489   3.6551042290456038`*^9, 3.655105073398354*^9}],
6490
6491Cell[BoxData[
6492 InterpretationBox[
6493  RowBox[{"\<\"in total: \"\>",
6494   "\[InvisibleSpace]", "\<\"6 Generic, 2554 Classes insertions\"\>"}],
6495  SequenceForm["in total: ", "6 Generic, 2554 Classes insertions"],
6496  Editable->False]], "Print",
6497 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6498   3.6551042290456038`*^9, 3.655105073400037*^9}],
6499
6500Cell[BoxData["\<\"\"\>"], "Print",
6501 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6502   3.6551042290456038`*^9, 3.655105073534009*^9}],
6503
6504Cell[BoxData[
6505 InterpretationBox[
6506  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
6507   RowBox[{"{",
6508    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6509  SequenceForm[
6510  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
6511  Editable->False]], "Print",
6512 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6513   3.6551042290456038`*^9, 3.655105073542077*^9}],
6514
6515Cell[BoxData[
6516 InterpretationBox[
6517  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6518   "\[InvisibleSpace]", "\<\": \"\>",
6519   "\[InvisibleSpace]", "\<\"6 Generic, 2554 Classes amplitudes\"\>"}],
6520  SequenceForm["> Top. ", 1, ": ", "6 Generic, 2554 Classes amplitudes"],
6521  Editable->False]], "Print",
6522 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6523   3.6551042290456038`*^9, 3.655105080412731*^9}],
6524
6525Cell[BoxData[
6526 InterpretationBox[
6527  RowBox[{"\<\"in total: \"\>",
6528   "\[InvisibleSpace]", "\<\"6 Generic, 2554 Classes amplitudes\"\>"}],
6529  SequenceForm["in total: ", "6 Generic, 2554 Classes amplitudes"],
6530  Editable->False]], "Print",
6531 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6532   3.6551042290456038`*^9, 3.655105080690195*^9}],
6533
6534Cell[BoxData["\<\"Writing amplitude finished after 830.951174\"\>"], "Print",
6535 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6536   3.6551042290456038`*^9, 3.655105080692114*^9}],
6537
6538Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
6539after 835.271654\"\>"], "Print",
6540 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6541   3.6551042290456038`*^9, 3.6551050849313173`*^9}],
6542
6543Cell[BoxData["\<\"\"\>"], "Print",
6544 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6545   3.6551042290456038`*^9, 3.65510509478388*^9}],
6546
6547Cell[BoxData[
6548 InterpretationBox[
6549  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
6550   RowBox[{"{",
6551    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6552  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
6553  Editable->False]], "Print",
6554 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6555   3.6551042290456038`*^9, 3.655105094785707*^9}],
6556
6557Cell[BoxData[
6558 InterpretationBox[
6559  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6560   "\[InvisibleSpace]", "\<\": \"\>",
6561   "\[InvisibleSpace]", "\<\"1 Generic, 308 Classes insertions\"\>"}],
6562  SequenceForm["> Top. ", 1, ": ", "1 Generic, 308 Classes insertions"],
6563  Editable->False]], "Print",
6564 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6565   3.6551042290456038`*^9, 3.655105094965378*^9}],
6566
6567Cell[BoxData[
6568 InterpretationBox[
6569  RowBox[{"\<\"in total: \"\>",
6570   "\[InvisibleSpace]", "\<\"1 Generic, 308 Classes insertions\"\>"}],
6571  SequenceForm["in total: ", "1 Generic, 308 Classes insertions"],
6572  Editable->False]], "Print",
6573 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6574   3.6551042290456038`*^9, 3.655105094978488*^9}],
6575
6576Cell[BoxData["\<\"\"\>"], "Print",
6577 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6578   3.6551042290456038`*^9, 3.655105094980134*^9}],
6579
6580Cell[BoxData[
6581 InterpretationBox[
6582  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
6583   RowBox[{"{",
6584    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6585  SequenceForm[
6586  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
6587  Editable->False]], "Print",
6588 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6589   3.6551042290456038`*^9, 3.65510509498168*^9}],
6590
6591Cell[BoxData[
6592 InterpretationBox[
6593  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6594   "\[InvisibleSpace]", "\<\": \"\>",
6595   "\[InvisibleSpace]", "\<\"1 Generic, 308 Classes amplitudes\"\>"}],
6596  SequenceForm["> Top. ", 1, ": ", "1 Generic, 308 Classes amplitudes"],
6597  Editable->False]], "Print",
6598 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6599   3.6551042290456038`*^9, 3.655105095569889*^9}],
6600
6601Cell[BoxData[
6602 InterpretationBox[
6603  RowBox[{"\<\"in total: \"\>",
6604   "\[InvisibleSpace]", "\<\"1 Generic, 308 Classes amplitudes\"\>"}],
6605  SequenceForm["in total: ", "1 Generic, 308 Classes amplitudes"],
6606  Editable->False]], "Print",
6607 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6608   3.6551042290456038`*^9, 3.655105095663302*^9}],
6609
6610Cell[BoxData["\<\"Writing the symbolic CT finished after 849.503667\"\>"], \
6611"Print",
6612 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6613   3.6551042290456038`*^9, 3.655105099163725*^9}],
6614
6615Cell[BoxData["\<\"SU3 algebra finished after 896.162284\"\>"], "Print",
6616 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6617   3.6551042290456038`*^9, 3.655105145821959*^9}],
6618
6619Cell[BoxData["\<\"Simplification of the vertices finished after 8140.094217\"\
6620\>"], "Print",
6621 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6622   3.6551042290456038`*^9, 3.65511238975421*^9}],
6623
6624Cell[BoxData["\<\"Vertices {F, F, S} finished after 8140.095366\"\>"], "Print",
6625 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6626   3.6551042290456038`*^9, 3.655112389756419*^9}],
6627
6628Cell[BoxData[
6629 StyleBox["\<\"Computing CT for the {F, F, V} vertices.\"\>",
6630  StripOnInput->False,
6631  LineColor->RGBColor[0, 0, 1],
6632  FrontFaceColor->RGBColor[0, 0, 1],
6633  BackFaceColor->RGBColor[0, 0, 1],
6634  GraphicsColor->RGBColor[0, 0, 1],
6635  FontColor->RGBColor[0, 0, 1]]], "Print",
6636 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6637   3.6551042290456038`*^9, 3.655112389758395*^9}],
6638
6639Cell[BoxData["\<\"\"\>"], "Print",
6640 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6641   3.6551042290456038`*^9, 3.65511238975998*^9}],
6642
6643Cell[BoxData[
6644 InterpretationBox[
6645  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
6646   RowBox[{"{",
6647    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6648  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
6649  Editable->False]], "Print",
6650 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6651   3.6551042290456038`*^9, 3.6551123897616987`*^9}],
6652
6653Cell[BoxData[
6654 InterpretationBox[
6655  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6656   "\[InvisibleSpace]", "\<\": \"\>",
6657   "\[InvisibleSpace]", "\<\"6 Generic, 1456 Classes insertions\"\>"}],
6658  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1456 Classes insertions"],
6659  Editable->False]], "Print",
6660 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6661   3.6551042290456038`*^9, 3.655112403968974*^9}],
6662
6663Cell[BoxData[
6664 InterpretationBox[
6665  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
6666   "\[InvisibleSpace]", "\<\": \"\>",
6667   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
6668  SequenceForm["> Top. ", 2, ": ", "0 Generic, 0 Classes insertions"],
6669  Editable->False]], "Print",
6670 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6671   3.6551042290456038`*^9, 3.655112403971324*^9}],
6672
6673Cell[BoxData[
6674 InterpretationBox[
6675  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
6676   "\[InvisibleSpace]", "\<\": \"\>",
6677   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
6678  SequenceForm["> Top. ", 3, ": ", "0 Generic, 0 Classes insertions"],
6679  Editable->False]], "Print",
6680 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6681   3.6551042290456038`*^9, 3.655112403973259*^9}],
6682
6683Cell[BoxData[
6684 InterpretationBox[
6685  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
6686   "\[InvisibleSpace]", "\<\": \"\>",
6687   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
6688  SequenceForm["> Top. ", 4, ": ", "0 Generic, 0 Classes insertions"],
6689  Editable->False]], "Print",
6690 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6691   3.6551042290456038`*^9, 3.655112403975576*^9}],
6692
6693Cell[BoxData[
6694 InterpretationBox[
6695  RowBox[{"\<\"in total: \"\>",
6696   "\[InvisibleSpace]", "\<\"6 Generic, 1456 Classes insertions\"\>"}],
6697  SequenceForm["in total: ", "6 Generic, 1456 Classes insertions"],
6698  Editable->False]], "Print",
6699 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6700   3.6551042290456038`*^9, 3.655112404050989*^9}],
6701
6702Cell[BoxData["\<\"\"\>"], "Print",
6703 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6704   3.6551042290456038`*^9, 3.655112404127316*^9}],
6705
6706Cell[BoxData[
6707 InterpretationBox[
6708  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
6709   RowBox[{"{",
6710    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6711  SequenceForm[
6712  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
6713  Editable->False]], "Print",
6714 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6715   3.6551042290456038`*^9, 3.655112404129114*^9}],
6716
6717Cell[BoxData[
6718 InterpretationBox[
6719  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6720   "\[InvisibleSpace]", "\<\": \"\>",
6721   "\[InvisibleSpace]", "\<\"6 Generic, 1456 Classes amplitudes\"\>"}],
6722  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1456 Classes amplitudes"],
6723  Editable->False]], "Print",
6724 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6725   3.6551042290456038`*^9, 3.6551124076607637`*^9}],
6726
6727Cell[BoxData[
6728 InterpretationBox[
6729  RowBox[{"\<\"in total: \"\>",
6730   "\[InvisibleSpace]", "\<\"6 Generic, 1456 Classes amplitudes\"\>"}],
6731  SequenceForm["in total: ", "6 Generic, 1456 Classes amplitudes"],
6732  Editable->False]], "Print",
6733 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6734   3.6551042290456038`*^9, 3.655112407738523*^9}],
6735
6736Cell[BoxData["\<\"Writing amplitude finished after 8158.107269\"\>"], "Print",
6737 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6738   3.6551042290456038`*^9, 3.655112407813909*^9}],
6739
6740Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
6741after 8160.647200\"\>"], "Print",
6742 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6743   3.6551042290456038`*^9, 3.655112410306896*^9}],
6744
6745Cell[BoxData["\<\"\"\>"], "Print",
6746 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6747   3.6551042290456038`*^9, 3.655112413802351*^9}],
6748
6749Cell[BoxData[
6750 InterpretationBox[
6751  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
6752   RowBox[{"{",
6753    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6754  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
6755  Editable->False]], "Print",
6756 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6757   3.6551042290456038`*^9, 3.6551124138048677`*^9}],
6758
6759Cell[BoxData[
6760 InterpretationBox[
6761  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6762   "\[InvisibleSpace]", "\<\": \"\>",
6763   "\[InvisibleSpace]", "\<\"1 Generic, 252 Classes insertions\"\>"}],
6764  SequenceForm["> Top. ", 1, ": ", "1 Generic, 252 Classes insertions"],
6765  Editable->False]], "Print",
6766 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6767   3.6551042290456038`*^9, 3.655112413948172*^9}],
6768
6769Cell[BoxData[
6770 InterpretationBox[
6771  RowBox[{"\<\"in total: \"\>",
6772   "\[InvisibleSpace]", "\<\"1 Generic, 252 Classes insertions\"\>"}],
6773  SequenceForm["in total: ", "1 Generic, 252 Classes insertions"],
6774  Editable->False]], "Print",
6775 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6776   3.6551042290456038`*^9, 3.655112413950717*^9}],
6777
6778Cell[BoxData["\<\"\"\>"], "Print",
6779 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6780   3.6551042290456038`*^9, 3.655112414025957*^9}],
6781
6782Cell[BoxData[
6783 InterpretationBox[
6784  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
6785   RowBox[{"{",
6786    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6787  SequenceForm[
6788  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
6789  Editable->False]], "Print",
6790 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6791   3.6551042290456038`*^9, 3.655112414027697*^9}],
6792
6793Cell[BoxData[
6794 InterpretationBox[
6795  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6796   "\[InvisibleSpace]", "\<\": \"\>",
6797   "\[InvisibleSpace]", "\<\"1 Generic, 252 Classes amplitudes\"\>"}],
6798  SequenceForm["> Top. ", 1, ": ", "1 Generic, 252 Classes amplitudes"],
6799  Editable->False]], "Print",
6800 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6801   3.6551042290456038`*^9, 3.65511241423778*^9}],
6802
6803Cell[BoxData[
6804 InterpretationBox[
6805  RowBox[{"\<\"in total: \"\>",
6806   "\[InvisibleSpace]", "\<\"1 Generic, 252 Classes amplitudes\"\>"}],
6807  SequenceForm["in total: ", "1 Generic, 252 Classes amplitudes"],
6808  Editable->False]], "Print",
6809 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6810   3.6551042290456038`*^9, 3.6551124142402897`*^9}],
6811
6812Cell[BoxData["\<\"Writing the symbolic CT finished after 8165.619256\"\>"], \
6813"Print",
6814 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6815   3.6551042290456038`*^9, 3.6551124152789707`*^9}],
6816
6817Cell[BoxData["\<\"SU3 algebra finished after 8181.761310\"\>"], "Print",
6818 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6819   3.6551042290456038`*^9, 3.6551124314210577`*^9}],
6820
6821Cell[BoxData["\<\"Simplification of the vertices finished after 8211.614418\"\
6822\>"], "Print",
6823 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6824   3.6551042290456038`*^9, 3.655112461274207*^9}],
6825
6826Cell[BoxData["\<\"Vertices {F, F, V} finished after 8211.616148\"\>"], "Print",
6827 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6828   3.6551042290456038`*^9, 3.6551124612766542`*^9}],
6829
6830Cell[BoxData[
6831 StyleBox["\<\"Computing CT for the {V, V, V} vertices.\"\>",
6832  StripOnInput->False,
6833  LineColor->RGBColor[0, 0, 1],
6834  FrontFaceColor->RGBColor[0, 0, 1],
6835  BackFaceColor->RGBColor[0, 0, 1],
6836  GraphicsColor->RGBColor[0, 0, 1],
6837  FontColor->RGBColor[0, 0, 1]]], "Print",
6838 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6839   3.6551042290456038`*^9, 3.655112461278655*^9}],
6840
6841Cell[BoxData["\<\"\"\>"], "Print",
6842 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6843   3.6551042290456038`*^9, 3.65511246128084*^9}],
6844
6845Cell[BoxData[
6846 InterpretationBox[
6847  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
6848   RowBox[{"{",
6849    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6850  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
6851  Editable->False]], "Print",
6852 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6853   3.6551042290456038`*^9, 3.655112461282794*^9}],
6854
6855Cell[BoxData[
6856 InterpretationBox[
6857  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6858   "\[InvisibleSpace]", "\<\": \"\>",
6859   "\[InvisibleSpace]", "\<\"10 Generic, 1355 Classes insertions\"\>"}],
6860  SequenceForm["> Top. ", 1, ": ", "10 Generic, 1355 Classes insertions"],
6861  Editable->False]], "Print",
6862 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6863   3.6551042290456038`*^9, 3.655112464688035*^9}],
6864
6865Cell[BoxData[
6866 InterpretationBox[
6867  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
6868   "\[InvisibleSpace]", "\<\": \"\>",
6869   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes insertions\"\>"}],
6870  SequenceForm["> Top. ", 2, ": ", "2 Generic, 101 Classes insertions"],
6871  Editable->False]], "Print",
6872 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6873   3.6551042290456038`*^9, 3.655112464977639*^9}],
6874
6875Cell[BoxData[
6876 InterpretationBox[
6877  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
6878   "\[InvisibleSpace]", "\<\": \"\>",
6879   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes insertions\"\>"}],
6880  SequenceForm["> Top. ", 3, ": ", "2 Generic, 101 Classes insertions"],
6881  Editable->False]], "Print",
6882 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6883   3.6551042290456038`*^9, 3.65511246526749*^9}],
6884
6885Cell[BoxData[
6886 InterpretationBox[
6887  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
6888   "\[InvisibleSpace]", "\<\": \"\>",
6889   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes insertions\"\>"}],
6890  SequenceForm["> Top. ", 4, ": ", "2 Generic, 101 Classes insertions"],
6891  Editable->False]], "Print",
6892 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6893   3.6551042290456038`*^9, 3.65511246555306*^9}],
6894
6895Cell[BoxData[
6896 InterpretationBox[
6897  RowBox[{"\<\"in total: \"\>",
6898   "\[InvisibleSpace]", "\<\"16 Generic, 1658 Classes insertions\"\>"}],
6899  SequenceForm["in total: ", "16 Generic, 1658 Classes insertions"],
6900  Editable->False]], "Print",
6901 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6902   3.6551042290456038`*^9, 3.655112465631268*^9}],
6903
6904Cell[BoxData["\<\"\"\>"], "Print",
6905 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6906   3.6551042290456038`*^9, 3.655112465707364*^9}],
6907
6908Cell[BoxData[
6909 InterpretationBox[
6910  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
6911   RowBox[{"{",
6912    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6913  SequenceForm[
6914  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
6915  Editable->False]], "Print",
6916 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6917   3.6551042290456038`*^9, 3.655112465709401*^9}],
6918
6919Cell[BoxData[
6920 InterpretationBox[
6921  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6922   "\[InvisibleSpace]", "\<\": \"\>",
6923   "\[InvisibleSpace]", "\<\"10 Generic, 1355 Classes amplitudes\"\>"}],
6924  SequenceForm["> Top. ", 1, ": ", "10 Generic, 1355 Classes amplitudes"],
6925  Editable->False]], "Print",
6926 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6927   3.6551042290456038`*^9, 3.655112468281747*^9}],
6928
6929Cell[BoxData[
6930 InterpretationBox[
6931  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
6932   "\[InvisibleSpace]", "\<\": \"\>",
6933   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes amplitudes\"\>"}],
6934  SequenceForm["> Top. ", 2, ": ", "2 Generic, 101 Classes amplitudes"],
6935  Editable->False]], "Print",
6936 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6937   3.6551042290456038`*^9, 3.6551124683938007`*^9}],
6938
6939Cell[BoxData[
6940 InterpretationBox[
6941  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
6942   "\[InvisibleSpace]", "\<\": \"\>",
6943   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes amplitudes\"\>"}],
6944  SequenceForm["> Top. ", 3, ": ", "2 Generic, 101 Classes amplitudes"],
6945  Editable->False]], "Print",
6946 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6947   3.6551042290456038`*^9, 3.655112468505312*^9}],
6948
6949Cell[BoxData[
6950 InterpretationBox[
6951  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
6952   "\[InvisibleSpace]", "\<\": \"\>",
6953   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes amplitudes\"\>"}],
6954  SequenceForm["> Top. ", 4, ": ", "2 Generic, 101 Classes amplitudes"],
6955  Editable->False]], "Print",
6956 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6957   3.6551042290456038`*^9, 3.655112468617386*^9}],
6958
6959Cell[BoxData[
6960 InterpretationBox[
6961  RowBox[{"\<\"in total: \"\>",
6962   "\[InvisibleSpace]", "\<\"16 Generic, 1658 Classes amplitudes\"\>"}],
6963  SequenceForm["in total: ", "16 Generic, 1658 Classes amplitudes"],
6964  Editable->False]], "Print",
6965 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6966   3.6551042290456038`*^9, 3.655112468692494*^9}],
6967
6968Cell[BoxData["\<\"Writing amplitude finished after 8219.028058\"\>"], "Print",
6969 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6970   3.6551042290456038`*^9, 3.655112468694426*^9}],
6971
6972Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
6973after 8418.446287\"\>"], "Print",
6974 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6975   3.6551042290456038`*^9, 3.6551126681061974`*^9}],
6976
6977Cell[BoxData["\<\"\"\>"], "Print",
6978 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6979   3.6551042290456038`*^9, 3.655112668235626*^9}],
6980
6981Cell[BoxData[
6982 InterpretationBox[
6983  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
6984   RowBox[{"{",
6985    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
6986  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
6987  Editable->False]], "Print",
6988 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6989   3.6551042290456038`*^9, 3.655112668237862*^9}],
6990
6991Cell[BoxData[
6992 InterpretationBox[
6993  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
6994   "\[InvisibleSpace]", "\<\": \"\>",
6995   "\[InvisibleSpace]", "\<\"1 Generic, 13 Classes insertions\"\>"}],
6996  SequenceForm["> Top. ", 1, ": ", "1 Generic, 13 Classes insertions"],
6997  Editable->False]], "Print",
6998 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
6999   3.6551042290456038`*^9, 3.655112668312725*^9}],
7000
7001Cell[BoxData[
7002 InterpretationBox[
7003  RowBox[{"\<\"in total: \"\>",
7004   "\[InvisibleSpace]", "\<\"1 Generic, 13 Classes insertions\"\>"}],
7005  SequenceForm["in total: ", "1 Generic, 13 Classes insertions"],
7006  Editable->False]], "Print",
7007 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7008   3.6551042290456038`*^9, 3.655112668314713*^9}],
7009
7010Cell[BoxData["\<\"\"\>"], "Print",
7011 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7012   3.6551042290456038`*^9, 3.655112668316476*^9}],
7013
7014Cell[BoxData[
7015 InterpretationBox[
7016  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
7017   RowBox[{"{",
7018    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7019  SequenceForm[
7020  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
7021  Editable->False]], "Print",
7022 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7023   3.6551042290456038`*^9, 3.655112668318272*^9}],
7024
7025Cell[BoxData[
7026 InterpretationBox[
7027  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7028   "\[InvisibleSpace]", "\<\": \"\>",
7029   "\[InvisibleSpace]", "\<\"1 Generic, 13 Classes amplitudes\"\>"}],
7030  SequenceForm["> Top. ", 1, ": ", "1 Generic, 13 Classes amplitudes"],
7031  Editable->False]], "Print",
7032 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7033   3.6551042290456038`*^9, 3.6551126683200903`*^9}],
7034
7035Cell[BoxData[
7036 InterpretationBox[
7037  RowBox[{"\<\"in total: \"\>",
7038   "\[InvisibleSpace]", "\<\"1 Generic, 13 Classes amplitudes\"\>"}],
7039  SequenceForm["in total: ", "1 Generic, 13 Classes amplitudes"],
7040  Editable->False]], "Print",
7041 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7042   3.6551042290456038`*^9, 3.6551126683219013`*^9}],
7043
7044Cell[BoxData["\<\"Writing the symbolic CT finished after 8418.631612\"\>"], \
7045"Print",
7046 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7047   3.6551042290456038`*^9, 3.655112668323658*^9}],
7048
7049Cell[BoxData["\<\"SU3 algebra finished after 8423.214302\"\>"], "Print",
7050 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7051   3.6551042290456038`*^9, 3.655112672874083*^9}],
7052
7053Cell[BoxData["\<\"Simplification of the vertices finished after 8431.561376\"\
7054\>"], "Print",
7055 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7056   3.6551042290456038`*^9, 3.6551126812211437`*^9}],
7057
7058Cell[BoxData["\<\"Vertices {V, V, V} finished after 8431.562631\"\>"], "Print",
7059 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7060   3.6551042290456038`*^9, 3.655112681223752*^9}],
7061
7062Cell[BoxData[
7063 StyleBox["\<\"Computing CT for the {V, V, S} vertices.\"\>",
7064  StripOnInput->False,
7065  LineColor->RGBColor[0, 0, 1],
7066  FrontFaceColor->RGBColor[0, 0, 1],
7067  BackFaceColor->RGBColor[0, 0, 1],
7068  GraphicsColor->RGBColor[0, 0, 1],
7069  FontColor->RGBColor[0, 0, 1]]], "Print",
7070 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7071   3.6551042290456038`*^9, 3.65511268122582*^9}],
7072
7073Cell[BoxData["\<\"\"\>"], "Print",
7074 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7075   3.6551042290456038`*^9, 3.655112681227912*^9}],
7076
7077Cell[BoxData[
7078 InterpretationBox[
7079  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
7080   RowBox[{"{",
7081    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7082  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
7083  Editable->False]], "Print",
7084 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7085   3.6551042290456038`*^9, 3.655112681229801*^9}],
7086
7087Cell[BoxData[
7088 InterpretationBox[
7089  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7090   "\[InvisibleSpace]", "\<\": \"\>",
7091   "\[InvisibleSpace]", "\<\"10 Generic, 2266 Classes insertions\"\>"}],
7092  SequenceForm["> Top. ", 1, ": ", "10 Generic, 2266 Classes insertions"],
7093  Editable->False]], "Print",
7094 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7095   3.6551042290456038`*^9, 3.6551126866185513`*^9}],
7096
7097Cell[BoxData[
7098 InterpretationBox[
7099  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
7100   "\[InvisibleSpace]", "\<\": \"\>",
7101   "\[InvisibleSpace]", "\<\"1 Generic, 136 Classes insertions\"\>"}],
7102  SequenceForm["> Top. ", 2, ": ", "1 Generic, 136 Classes insertions"],
7103  Editable->False]], "Print",
7104 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7105   3.6551042290456038`*^9, 3.655112686824238*^9}],
7106
7107Cell[BoxData[
7108 InterpretationBox[
7109  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
7110   "\[InvisibleSpace]", "\<\": \"\>",
7111   "\[InvisibleSpace]", "\<\"1 Generic, 136 Classes insertions\"\>"}],
7112  SequenceForm["> Top. ", 3, ": ", "1 Generic, 136 Classes insertions"],
7113  Editable->False]], "Print",
7114 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7115   3.6551042290456038`*^9, 3.655112687031067*^9}],
7116
7117Cell[BoxData[
7118 InterpretationBox[
7119  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
7120   "\[InvisibleSpace]", "\<\": \"\>",
7121   "\[InvisibleSpace]", "\<\"2 Generic, 196 Classes insertions\"\>"}],
7122  SequenceForm["> Top. ", 4, ": ", "2 Generic, 196 Classes insertions"],
7123  Editable->False]], "Print",
7124 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7125   3.6551042290456038`*^9, 3.6551126874953747`*^9}],
7126
7127Cell[BoxData[
7128 InterpretationBox[
7129  RowBox[{"\<\"in total: \"\>",
7130   "\[InvisibleSpace]", "\<\"14 Generic, 2734 Classes insertions\"\>"}],
7131  SequenceForm["in total: ", "14 Generic, 2734 Classes insertions"],
7132  Editable->False]], "Print",
7133 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7134   3.6551042290456038`*^9, 3.655112687569941*^9}],
7135
7136Cell[BoxData["\<\"\"\>"], "Print",
7137 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7138   3.6551042290456038`*^9, 3.655112687645158*^9}],
7139
7140Cell[BoxData[
7141 InterpretationBox[
7142  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
7143   RowBox[{"{",
7144    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7145  SequenceForm[
7146  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
7147  Editable->False]], "Print",
7148 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7149   3.6551042290456038`*^9, 3.655112687647078*^9}],
7150
7151Cell[BoxData[
7152 InterpretationBox[
7153  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7154   "\[InvisibleSpace]", "\<\": \"\>",
7155   "\[InvisibleSpace]", "\<\"10 Generic, 2266 Classes amplitudes\"\>"}],
7156  SequenceForm["> Top. ", 1, ": ", "10 Generic, 2266 Classes amplitudes"],
7157  Editable->False]], "Print",
7158 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7159   3.6551042290456038`*^9, 3.655112692303677*^9}],
7160
7161Cell[BoxData[
7162 InterpretationBox[
7163  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
7164   "\[InvisibleSpace]", "\<\": \"\>",
7165   "\[InvisibleSpace]", "\<\"1 Generic, 136 Classes amplitudes\"\>"}],
7166  SequenceForm["> Top. ", 2, ": ", "1 Generic, 136 Classes amplitudes"],
7167  Editable->False]], "Print",
7168 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7169   3.6551042290456038`*^9, 3.655112692419772*^9}],
7170
7171Cell[BoxData[
7172 InterpretationBox[
7173  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
7174   "\[InvisibleSpace]", "\<\": \"\>",
7175   "\[InvisibleSpace]", "\<\"1 Generic, 136 Classes amplitudes\"\>"}],
7176  SequenceForm["> Top. ", 3, ": ", "1 Generic, 136 Classes amplitudes"],
7177  Editable->False]], "Print",
7178 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7179   3.6551042290456038`*^9, 3.655112692535335*^9}],
7180
7181Cell[BoxData[
7182 InterpretationBox[
7183  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
7184   "\[InvisibleSpace]", "\<\": \"\>",
7185   "\[InvisibleSpace]", "\<\"2 Generic, 196 Classes amplitudes\"\>"}],
7186  SequenceForm["> Top. ", 4, ": ", "2 Generic, 196 Classes amplitudes"],
7187  Editable->False]], "Print",
7188 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7189   3.6551042290456038`*^9, 3.655112692887383*^9}],
7190
7191Cell[BoxData[
7192 InterpretationBox[
7193  RowBox[{"\<\"in total: \"\>",
7194   "\[InvisibleSpace]", "\<\"14 Generic, 2734 Classes amplitudes\"\>"}],
7195  SequenceForm["in total: ", "14 Generic, 2734 Classes amplitudes"],
7196  Editable->False]], "Print",
7197 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7198   3.6551042290456038`*^9, 3.6551126929623833`*^9}],
7199
7200Cell[BoxData["\<\"Writing amplitude finished after 8443.338264\"\>"], "Print",
7201 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7202   3.6551042290456038`*^9, 3.655112693038144*^9}],
7203
7204Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
7205after 8447.803037\"\>"], "Print",
7206 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7207   3.6551042290456038`*^9, 3.6551126974628363`*^9}],
7208
7209Cell[BoxData["\<\"\"\>"], "Print",
7210 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7211   3.6551042290456038`*^9, 3.6551127002538643`*^9}],
7212
7213Cell[BoxData[
7214 InterpretationBox[
7215  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
7216   RowBox[{"{",
7217    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7218  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
7219  Editable->False]], "Print",
7220 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7221   3.6551042290456038`*^9, 3.6551127002564087`*^9}],
7222
7223Cell[BoxData[
7224 InterpretationBox[
7225  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7226   "\[InvisibleSpace]", "\<\": \"\>",
7227   "\[InvisibleSpace]", "\<\"1 Generic, 40 Classes insertions\"\>"}],
7228  SequenceForm["> Top. ", 1, ": ", "1 Generic, 40 Classes insertions"],
7229  Editable->False]], "Print",
7230 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7231   3.6551042290456038`*^9, 3.655112700330192*^9}],
7232
7233Cell[BoxData[
7234 InterpretationBox[
7235  RowBox[{"\<\"in total: \"\>",
7236   "\[InvisibleSpace]", "\<\"1 Generic, 40 Classes insertions\"\>"}],
7237  SequenceForm["in total: ", "1 Generic, 40 Classes insertions"],
7238  Editable->False]], "Print",
7239 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7240   3.6551042290456038`*^9, 3.655112700332234*^9}],
7241
7242Cell[BoxData["\<\"\"\>"], "Print",
7243 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7244   3.6551042290456038`*^9, 3.655112700334091*^9}],
7245
7246Cell[BoxData[
7247 InterpretationBox[
7248  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
7249   RowBox[{"{",
7250    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7251  SequenceForm[
7252  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
7253  Editable->False]], "Print",
7254 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7255   3.6551042290456038`*^9, 3.655112700335938*^9}],
7256
7257Cell[BoxData[
7258 InterpretationBox[
7259  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7260   "\[InvisibleSpace]", "\<\": \"\>",
7261   "\[InvisibleSpace]", "\<\"1 Generic, 40 Classes amplitudes\"\>"}],
7262  SequenceForm["> Top. ", 1, ": ", "1 Generic, 40 Classes amplitudes"],
7263  Editable->False]], "Print",
7264 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7265   3.6551042290456038`*^9, 3.655112700412732*^9}],
7266
7267Cell[BoxData[
7268 InterpretationBox[
7269  RowBox[{"\<\"in total: \"\>",
7270   "\[InvisibleSpace]", "\<\"1 Generic, 40 Classes amplitudes\"\>"}],
7271  SequenceForm["in total: ", "1 Generic, 40 Classes amplitudes"],
7272  Editable->False]], "Print",
7273 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7274   3.6551042290456038`*^9, 3.655112700414874*^9}],
7275
7276Cell[BoxData["\<\"Writing the symbolic CT finished after 8451.830082\"\>"], \
7277"Print",
7278 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7279   3.6551042290456038`*^9, 3.655112701489894*^9}],
7280
7281Cell[BoxData["\<\"SU3 algebra finished after 8467.149635\"\>"], "Print",
7282 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7283   3.6551042290456038`*^9, 3.6551127168094807`*^9}],
7284
7285Cell[BoxData["\<\"Simplification of the vertices finished after 9019.462922\"\
7286\>"], "Print",
7287 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7288   3.6551042290456038`*^9, 3.6551132691227818`*^9}],
7289
7290Cell[BoxData["\<\"Vertices {V, V, S} finished after 9019.463685\"\>"], "Print",
7291 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7292   3.6551042290456038`*^9, 3.655113269125484*^9}],
7293
7294Cell[BoxData[
7295 StyleBox["\<\"Computing CT for the {V, S, S} vertices.\"\>",
7296  StripOnInput->False,
7297  LineColor->RGBColor[0, 0, 1],
7298  FrontFaceColor->RGBColor[0, 0, 1],
7299  BackFaceColor->RGBColor[0, 0, 1],
7300  GraphicsColor->RGBColor[0, 0, 1],
7301  FontColor->RGBColor[0, 0, 1]]], "Print",
7302 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7303   3.6551042290456038`*^9, 3.6551132691275387`*^9}],
7304
7305Cell[BoxData["\<\"\"\>"], "Print",
7306 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7307   3.6551042290456038`*^9, 3.655113269129496*^9}],
7308
7309Cell[BoxData[
7310 InterpretationBox[
7311  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
7312   RowBox[{"{",
7313    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7314  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
7315  Editable->False]], "Print",
7316 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7317   3.6551042290456038`*^9, 3.655113269131472*^9}],
7318
7319Cell[BoxData[
7320 InterpretationBox[
7321  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7322   "\[InvisibleSpace]", "\<\": \"\>",
7323   "\[InvisibleSpace]", "\<\"10 Generic, 3964 Classes insertions\"\>"}],
7324  SequenceForm["> Top. ", 1, ": ", "10 Generic, 3964 Classes insertions"],
7325  Editable->False]], "Print",
7326 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7327   3.6551042290456038`*^9, 3.6551132779093533`*^9}],
7328
7329Cell[BoxData[
7330 InterpretationBox[
7331  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
7332   "\[InvisibleSpace]", "\<\": \"\>",
7333   "\[InvisibleSpace]", "\<\"2 Generic, 372 Classes insertions\"\>"}],
7334  SequenceForm["> Top. ", 2, ": ", "2 Generic, 372 Classes insertions"],
7335  Editable->False]], "Print",
7336 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7337   3.6551042290456038`*^9, 3.6551132789382677`*^9}],
7338
7339Cell[BoxData[
7340 InterpretationBox[
7341  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
7342   "\[InvisibleSpace]", "\<\": \"\>",
7343   "\[InvisibleSpace]", "\<\"1 Generic, 280 Classes insertions\"\>"}],
7344  SequenceForm["> Top. ", 3, ": ", "1 Generic, 280 Classes insertions"],
7345  Editable->False]], "Print",
7346 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7347   3.6551042290456038`*^9, 3.655113279373341*^9}],
7348
7349Cell[BoxData[
7350 InterpretationBox[
7351  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
7352   "\[InvisibleSpace]", "\<\": \"\>",
7353   "\[InvisibleSpace]", "\<\"1 Generic, 280 Classes insertions\"\>"}],
7354  SequenceForm["> Top. ", 4, ": ", "1 Generic, 280 Classes insertions"],
7355  Editable->False]], "Print",
7356 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7357   3.6551042290456038`*^9, 3.6551132798057613`*^9}],
7358
7359Cell[BoxData[
7360 InterpretationBox[
7361  RowBox[{"\<\"in total: \"\>",
7362   "\[InvisibleSpace]", "\<\"14 Generic, 4896 Classes insertions\"\>"}],
7363  SequenceForm["in total: ", "14 Generic, 4896 Classes insertions"],
7364  Editable->False]], "Print",
7365 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7366   3.6551042290456038`*^9, 3.6551132798827543`*^9}],
7367
7368Cell[BoxData["\<\"\"\>"], "Print",
7369 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7370   3.6551042290456038`*^9, 3.655113280040245*^9}],
7371
7372Cell[BoxData[
7373 InterpretationBox[
7374  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
7375   RowBox[{"{",
7376    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7377  SequenceForm[
7378  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
7379  Editable->False]], "Print",
7380 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7381   3.6551042290456038`*^9, 3.6551132800429897`*^9}],
7382
7383Cell[BoxData[
7384 InterpretationBox[
7385  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7386   "\[InvisibleSpace]", "\<\": \"\>",
7387   "\[InvisibleSpace]", "\<\"10 Generic, 3964 Classes amplitudes\"\>"}],
7388  SequenceForm["> Top. ", 1, ": ", "10 Generic, 3964 Classes amplitudes"],
7389  Editable->False]], "Print",
7390 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7391   3.6551042290456038`*^9, 3.6551132886266747`*^9}],
7392
7393Cell[BoxData[
7394 InterpretationBox[
7395  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
7396   "\[InvisibleSpace]", "\<\": \"\>",
7397   "\[InvisibleSpace]", "\<\"2 Generic, 372 Classes amplitudes\"\>"}],
7398  SequenceForm["> Top. ", 2, ": ", "2 Generic, 372 Classes amplitudes"],
7399  Editable->False]], "Print",
7400 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7401   3.6551042290456038`*^9, 3.655113288955209*^9}],
7402
7403Cell[BoxData[
7404 InterpretationBox[
7405  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
7406   "\[InvisibleSpace]", "\<\": \"\>",
7407   "\[InvisibleSpace]", "\<\"1 Generic, 280 Classes amplitudes\"\>"}],
7408  SequenceForm["> Top. ", 3, ": ", "1 Generic, 280 Classes amplitudes"],
7409  Editable->False]], "Print",
7410 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7411   3.6551042290456038`*^9, 3.655113289205764*^9}],
7412
7413Cell[BoxData[
7414 InterpretationBox[
7415  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
7416   "\[InvisibleSpace]", "\<\": \"\>",
7417   "\[InvisibleSpace]", "\<\"1 Generic, 280 Classes amplitudes\"\>"}],
7418  SequenceForm["> Top. ", 4, ": ", "1 Generic, 280 Classes amplitudes"],
7419  Editable->False]], "Print",
7420 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7421   3.6551042290456038`*^9, 3.6551132894568253`*^9}],
7422
7423Cell[BoxData[
7424 InterpretationBox[
7425  RowBox[{"\<\"in total: \"\>",
7426   "\[InvisibleSpace]", "\<\"14 Generic, 4896 Classes amplitudes\"\>"}],
7427  SequenceForm["in total: ", "14 Generic, 4896 Classes amplitudes"],
7428  Editable->False]], "Print",
7429 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7430   3.6551042290456038`*^9, 3.655113289531365*^9}],
7431
7432Cell[BoxData["\<\"Writing amplitude finished after 9039.971180\"\>"], "Print",
7433 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7434   3.6551042290456038`*^9, 3.655113289631042*^9}],
7435
7436Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
7437after 9079.112338\"\>"], "Print",
7438 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7439   3.6551042290456038`*^9, 3.655113328772172*^9}],
7440
7441Cell[BoxData["\<\"\"\>"], "Print",
7442 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7443   3.6551042290456038`*^9, 3.655113329503747*^9}],
7444
7445Cell[BoxData[
7446 InterpretationBox[
7447  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
7448   RowBox[{"{",
7449    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7450  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
7451  Editable->False]], "Print",
7452 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7453   3.6551042290456038`*^9, 3.655113329506446*^9}],
7454
7455Cell[BoxData[
7456 InterpretationBox[
7457  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7458   "\[InvisibleSpace]", "\<\": \"\>",
7459   "\[InvisibleSpace]", "\<\"1 Generic, 72 Classes insertions\"\>"}],
7460  SequenceForm["> Top. ", 1, ": ", "1 Generic, 72 Classes insertions"],
7461  Editable->False]], "Print",
7462 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7463   3.6551042290456038`*^9, 3.655113329583974*^9}],
7464
7465Cell[BoxData[
7466 InterpretationBox[
7467  RowBox[{"\<\"in total: \"\>",
7468   "\[InvisibleSpace]", "\<\"1 Generic, 72 Classes insertions\"\>"}],
7469  SequenceForm["in total: ", "1 Generic, 72 Classes insertions"],
7470  Editable->False]], "Print",
7471 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7472   3.6551042290456038`*^9, 3.655113329586418*^9}],
7473
7474Cell[BoxData["\<\"\"\>"], "Print",
7475 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7476   3.6551042290456038`*^9, 3.655113329588324*^9}],
7477
7478Cell[BoxData[
7479 InterpretationBox[
7480  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
7481   RowBox[{"{",
7482    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7483  SequenceForm[
7484  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
7485  Editable->False]], "Print",
7486 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7487   3.6551042290456038`*^9, 3.6551133295903053`*^9}],
7488
7489Cell[BoxData[
7490 InterpretationBox[
7491  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7492   "\[InvisibleSpace]", "\<\": \"\>",
7493   "\[InvisibleSpace]", "\<\"1 Generic, 72 Classes amplitudes\"\>"}],
7494  SequenceForm["> Top. ", 1, ": ", "1 Generic, 72 Classes amplitudes"],
7495  Editable->False]], "Print",
7496 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7497   3.6551042290456038`*^9, 3.655113329797326*^9}],
7498
7499Cell[BoxData[
7500 InterpretationBox[
7501  RowBox[{"\<\"in total: \"\>",
7502   "\[InvisibleSpace]", "\<\"1 Generic, 72 Classes amplitudes\"\>"}],
7503  SequenceForm["in total: ", "1 Generic, 72 Classes amplitudes"],
7504  Editable->False]], "Print",
7505 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7506   3.6551042290456038`*^9, 3.655113329872908*^9}],
7507
7508Cell[BoxData["\<\"Writing the symbolic CT finished after 9082.123941\"\>"], \
7509"Print",
7510 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7511   3.6551042290456038`*^9, 3.655113331783801*^9}],
7512
7513Cell[BoxData["\<\"SU3 algebra finished after 9109.530056\"\>"], "Print",
7514 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7515   3.6551042290456038`*^9, 3.655113359190016*^9}],
7516
7517Cell[BoxData["\<\"Simplification of the vertices finished after 9682.245300\"\
7518\>"], "Print",
7519 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7520   3.6551042290456038`*^9, 3.655113931905501*^9}],
7521
7522Cell[BoxData["\<\"Vertices {V, S, S} finished after 9682.246882\"\>"], "Print",
7523 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7524   3.6551042290456038`*^9, 3.655113931907756*^9}],
7525
7526Cell[BoxData[
7527 StyleBox["\<\"Computing CT for the {S, S, S} vertices.\"\>",
7528  StripOnInput->False,
7529  LineColor->RGBColor[0, 0, 1],
7530  FrontFaceColor->RGBColor[0, 0, 1],
7531  BackFaceColor->RGBColor[0, 0, 1],
7532  GraphicsColor->RGBColor[0, 0, 1],
7533  FontColor->RGBColor[0, 0, 1]]], "Print",
7534 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7535   3.6551042290456038`*^9, 3.655113931909935*^9}],
7536
7537Cell[BoxData["\<\"\"\>"], "Print",
7538 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7539   3.6551042290456038`*^9, 3.65511393191188*^9}],
7540
7541Cell[BoxData[
7542 InterpretationBox[
7543  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
7544   RowBox[{"{",
7545    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7546  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
7547  Editable->False]], "Print",
7548 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7549   3.6551042290456038`*^9, 3.655113931914029*^9}],
7550
7551Cell[BoxData[
7552 InterpretationBox[
7553  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7554   "\[InvisibleSpace]", "\<\": \"\>",
7555   "\[InvisibleSpace]", "\<\"10 Generic, 7644 Classes insertions\"\>"}],
7556  SequenceForm["> Top. ", 1, ": ", "10 Generic, 7644 Classes insertions"],
7557  Editable->False]], "Print",
7558 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7559   3.6551042290456038`*^9, 3.655113948039648*^9}],
7560
7561Cell[BoxData[
7562 InterpretationBox[
7563  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
7564   "\[InvisibleSpace]", "\<\": \"\>",
7565   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes insertions\"\>"}],
7566  SequenceForm["> Top. ", 2, ": ", "2 Generic, 864 Classes insertions"],
7567  Editable->False]], "Print",
7568 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7569   3.6551042290456038`*^9, 3.655113949938485*^9}],
7570
7571Cell[BoxData[
7572 InterpretationBox[
7573  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
7574   "\[InvisibleSpace]", "\<\": \"\>",
7575   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes insertions\"\>"}],
7576  SequenceForm["> Top. ", 3, ": ", "2 Generic, 864 Classes insertions"],
7577  Editable->False]], "Print",
7578 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7579   3.6551042290456038`*^9, 3.655113951832192*^9}],
7580
7581Cell[BoxData[
7582 InterpretationBox[
7583  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
7584   "\[InvisibleSpace]", "\<\": \"\>",
7585   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes insertions\"\>"}],
7586  SequenceForm["> Top. ", 4, ": ", "2 Generic, 864 Classes insertions"],
7587  Editable->False]], "Print",
7588 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7589   3.6551042290456038`*^9, 3.655113953716127*^9}],
7590
7591Cell[BoxData[
7592 InterpretationBox[
7593  RowBox[{"\<\"in total: \"\>",
7594   "\[InvisibleSpace]", "\<\"16 Generic, 10236 Classes insertions\"\>"}],
7595  SequenceForm["in total: ", "16 Generic, 10236 Classes insertions"],
7596  Editable->False]], "Print",
7597 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7598   3.6551042290456038`*^9, 3.6551139537966213`*^9}],
7599
7600Cell[BoxData["\<\"\"\>"], "Print",
7601 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7602   3.6551042290456038`*^9, 3.655113954205271*^9}],
7603
7604Cell[BoxData[
7605 InterpretationBox[
7606  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
7607   RowBox[{"{",
7608    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7609  SequenceForm[
7610  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
7611  Editable->False]], "Print",
7612 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7613   3.6551042290456038`*^9, 3.655113954208076*^9}],
7614
7615Cell[BoxData[
7616 InterpretationBox[
7617  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7618   "\[InvisibleSpace]", "\<\": \"\>",
7619   "\[InvisibleSpace]", "\<\"10 Generic, 7644 Classes amplitudes\"\>"}],
7620  SequenceForm["> Top. ", 1, ": ", "10 Generic, 7644 Classes amplitudes"],
7621  Editable->False]], "Print",
7622 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7623   3.6551042290456038`*^9, 3.655113971791572*^9}],
7624
7625Cell[BoxData[
7626 InterpretationBox[
7627  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
7628   "\[InvisibleSpace]", "\<\": \"\>",
7629   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes amplitudes\"\>"}],
7630  SequenceForm["> Top. ", 2, ": ", "2 Generic, 864 Classes amplitudes"],
7631  Editable->False]], "Print",
7632 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7633   3.6551042290456038`*^9, 3.655113973025064*^9}],
7634
7635Cell[BoxData[
7636 InterpretationBox[
7637  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
7638   "\[InvisibleSpace]", "\<\": \"\>",
7639   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes amplitudes\"\>"}],
7640  SequenceForm["> Top. ", 3, ": ", "2 Generic, 864 Classes amplitudes"],
7641  Editable->False]], "Print",
7642 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7643   3.6551042290456038`*^9, 3.6551139742579813`*^9}],
7644
7645Cell[BoxData[
7646 InterpretationBox[
7647  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
7648   "\[InvisibleSpace]", "\<\": \"\>",
7649   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes amplitudes\"\>"}],
7650  SequenceForm["> Top. ", 4, ": ", "2 Generic, 864 Classes amplitudes"],
7651  Editable->False]], "Print",
7652 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7653   3.6551042290456038`*^9, 3.655113975494171*^9}],
7654
7655Cell[BoxData[
7656 InterpretationBox[
7657  RowBox[{"\<\"in total: \"\>",
7658   "\[InvisibleSpace]", "\<\"16 Generic, 10236 Classes amplitudes\"\>"}],
7659  SequenceForm["in total: ", "16 Generic, 10236 Classes amplitudes"],
7660  Editable->False]], "Print",
7661 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7662   3.6551042290456038`*^9, 3.655113975573678*^9}],
7663
7664Cell[BoxData["\<\"Writing amplitude finished after 9726.218504\"\>"], "Print",
7665 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7666   3.6551042290456038`*^9, 3.655113975878409*^9}],
7667
7668Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
7669after 9730.504959\"\>"], "Print",
7670 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7671   3.6551042290456038`*^9, 3.6551139801648407`*^9}],
7672
7673Cell[BoxData["\<\"\"\>"], "Print",
7674 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7675   3.6551042290456038`*^9, 3.65511398195569*^9}],
7676
7677Cell[BoxData[
7678 InterpretationBox[
7679  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
7680   RowBox[{"{",
7681    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7682  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
7683  Editable->False]], "Print",
7684 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7685   3.6551042290456038`*^9, 3.655113981958115*^9}],
7686
7687Cell[BoxData[
7688 InterpretationBox[
7689  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7690   "\[InvisibleSpace]", "\<\": \"\>",
7691   "\[InvisibleSpace]", "\<\"1 Generic, 160 Classes insertions\"\>"}],
7692  SequenceForm["> Top. ", 1, ": ", "1 Generic, 160 Classes insertions"],
7693  Editable->False]], "Print",
7694 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7695   3.6551042290456038`*^9, 3.6551139820358057`*^9}],
7696
7697Cell[BoxData[
7698 InterpretationBox[
7699  RowBox[{"\<\"in total: \"\>",
7700   "\[InvisibleSpace]", "\<\"1 Generic, 160 Classes insertions\"\>"}],
7701  SequenceForm["in total: ", "1 Generic, 160 Classes insertions"],
7702  Editable->False]], "Print",
7703 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7704   3.6551042290456038`*^9, 3.655113982038624*^9}],
7705
7706Cell[BoxData["\<\"\"\>"], "Print",
7707 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7708   3.6551042290456038`*^9, 3.655113982040547*^9}],
7709
7710Cell[BoxData[
7711 InterpretationBox[
7712  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
7713   RowBox[{"{",
7714    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7715  SequenceForm[
7716  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
7717  Editable->False]], "Print",
7718 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7719   3.6551042290456038`*^9, 3.6551139820425663`*^9}],
7720
7721Cell[BoxData[
7722 InterpretationBox[
7723  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7724   "\[InvisibleSpace]", "\<\": \"\>",
7725   "\[InvisibleSpace]", "\<\"1 Generic, 160 Classes amplitudes\"\>"}],
7726  SequenceForm["> Top. ", 1, ": ", "1 Generic, 160 Classes amplitudes"],
7727  Editable->False]], "Print",
7728 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7729   3.6551042290456038`*^9, 3.6551139982056637`*^9}],
7730
7731Cell[BoxData[
7732 InterpretationBox[
7733  RowBox[{"\<\"in total: \"\>",
7734   "\[InvisibleSpace]", "\<\"1 Generic, 160 Classes amplitudes\"\>"}],
7735  SequenceForm["in total: ", "1 Generic, 160 Classes amplitudes"],
7736  Editable->False]], "Print",
7737 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7738   3.6551042290456038`*^9, 3.655113999347802*^9}],
7739
7740Cell[BoxData["\<\"Writing the symbolic CT finished after 9830.704900\"\>"], \
7741"Print",
7742 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7743   3.6551042290456038`*^9, 3.6551140803648357`*^9}],
7744
7745Cell[BoxData["\<\"SU3 algebra finished after 10614.988891\"\>"], "Print",
7746 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7747   3.6551042290456038`*^9, 3.655114864648897*^9}],
7748
7749Cell[BoxData["\<\"Simplification of the vertices finished after \
775045255.745515\"\>"], "Print",
7751 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7752   3.6551042290456038`*^9, 3.6551495054236298`*^9}],
7753
7754Cell[BoxData["\<\"Vertices {S, S, S} finished after 45255.765076\"\>"], \
7755"Print",
7756 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7757   3.6551042290456038`*^9, 3.655149505426402*^9}],
7758
7759Cell[BoxData[
7760 StyleBox["\<\"Computing CT for the {V, V, V, V} vertices.\"\>",
7761  StripOnInput->False,
7762  LineColor->RGBColor[0, 0, 1],
7763  FrontFaceColor->RGBColor[0, 0, 1],
7764  BackFaceColor->RGBColor[0, 0, 1],
7765  GraphicsColor->RGBColor[0, 0, 1],
7766  FontColor->RGBColor[0, 0, 1]]], "Print",
7767 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7768   3.6551042290456038`*^9, 3.655149505428886*^9}],
7769
7770Cell[BoxData["\<\"\"\>"], "Print",
7771 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7772   3.6551042290456038`*^9, 3.6551495055709867`*^9}],
7773
7774Cell[BoxData[
7775 InterpretationBox[
7776  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "94",
7777   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
7778ones)\"\>"}],
7779  SequenceForm[
7780  "Excluding ", 94, " field point(s) (incl. charge-conjugate ones)"],
7781  Editable->False]], "Print",
7782 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7783   3.6551042290456038`*^9, 3.6551495055737867`*^9}],
7784
7785Cell[BoxData["\<\"\"\>"], "Print",
7786 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7787   3.6551042290456038`*^9, 3.655149505575863*^9}],
7788
7789Cell[BoxData[
7790 InterpretationBox[
7791  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
7792   RowBox[{"{",
7793    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7794  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
7795  Editable->False]], "Print",
7796 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7797   3.6551042290456038`*^9, 3.65514950557836*^9}],
7798
7799Cell[BoxData[
7800 InterpretationBox[
7801  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7802   "\[InvisibleSpace]", "\<\": \"\>",
7803   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
7804  SequenceForm["> Top. ", 1, ": ", "2 Generic, 1181 Classes insertions"],
7805  Editable->False]], "Print",
7806 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7807   3.6551042290456038`*^9, 3.655149507982214*^9}],
7808
7809Cell[BoxData[
7810 InterpretationBox[
7811  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
7812   "\[InvisibleSpace]", "\<\": \"\>",
7813   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
7814  SequenceForm["> Top. ", 2, ": ", "2 Generic, 1181 Classes insertions"],
7815  Editable->False]], "Print",
7816 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7817   3.6551042290456038`*^9, 3.6551495104466753`*^9}],
7818
7819Cell[BoxData[
7820 InterpretationBox[
7821  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
7822   "\[InvisibleSpace]", "\<\": \"\>",
7823   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
7824  SequenceForm["> Top. ", 3, ": ", "2 Generic, 1181 Classes insertions"],
7825  Editable->False]], "Print",
7826 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7827   3.6551042290456038`*^9, 3.6551495129088697`*^9}],
7828
7829Cell[BoxData[
7830 InterpretationBox[
7831  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
7832   "\[InvisibleSpace]", "\<\": \"\>",
7833   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
7834  SequenceForm["> Top. ", 4, ": ", "2 Generic, 1181 Classes insertions"],
7835  Editable->False]], "Print",
7836 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7837   3.6551042290456038`*^9, 3.655149515387416*^9}],
7838
7839Cell[BoxData[
7840 InterpretationBox[
7841  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
7842   "\[InvisibleSpace]", "\<\": \"\>",
7843   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
7844  SequenceForm["> Top. ", 5, ": ", "2 Generic, 1181 Classes insertions"],
7845  Editable->False]], "Print",
7846 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7847   3.6551042290456038`*^9, 3.655149517854971*^9}],
7848
7849Cell[BoxData[
7850 InterpretationBox[
7851  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
7852   "\[InvisibleSpace]", "\<\": \"\>",
7853   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes insertions\"\>"}],
7854  SequenceForm["> Top. ", 6, ": ", "2 Generic, 1181 Classes insertions"],
7855  Editable->False]], "Print",
7856 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7857   3.6551042290456038`*^9, 3.655149520320747*^9}],
7858
7859Cell[BoxData[
7860 InterpretationBox[
7861  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
7862   "\[InvisibleSpace]", "\<\": \"\>",
7863   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes insertions\"\>"}],
7864  SequenceForm["> Top. ", 7, ": ", "4 Generic, 4383 Classes insertions"],
7865  Editable->False]], "Print",
7866 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7867   3.6551042290456038`*^9, 3.655149534607531*^9}],
7868
7869Cell[BoxData[
7870 InterpretationBox[
7871  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
7872   "\[InvisibleSpace]", "\<\": \"\>",
7873   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes insertions\"\>"}],
7874  SequenceForm["> Top. ", 8, ": ", "4 Generic, 4383 Classes insertions"],
7875  Editable->False]], "Print",
7876 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7877   3.6551042290456038`*^9, 3.6551495489793453`*^9}],
7878
7879Cell[BoxData[
7880 InterpretationBox[
7881  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
7882   "\[InvisibleSpace]", "\<\": \"\>",
7883   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes insertions\"\>"}],
7884  SequenceForm["> Top. ", 9, ": ", "4 Generic, 4383 Classes insertions"],
7885  Editable->False]], "Print",
7886 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7887   3.6551042290456038`*^9, 3.655149565188553*^9}],
7888
7889Cell[BoxData[
7890 InterpretationBox[
7891  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
7892   "\[InvisibleSpace]", "\<\": \"\>",
7893   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes insertions\"\>"}],
7894  SequenceForm["> Top. ", 10, ": ", "2 Generic, 559 Classes insertions"],
7895  Editable->False]], "Print",
7896 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7897   3.6551042290456038`*^9, 3.655149566404471*^9}],
7898
7899Cell[BoxData[
7900 InterpretationBox[
7901  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
7902   "\[InvisibleSpace]", "\<\": \"\>",
7903   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes insertions\"\>"}],
7904  SequenceForm["> Top. ", 11, ": ", "2 Generic, 559 Classes insertions"],
7905  Editable->False]], "Print",
7906 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7907   3.6551042290456038`*^9, 3.65514956762533*^9}],
7908
7909Cell[BoxData[
7910 InterpretationBox[
7911  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
7912   "\[InvisibleSpace]", "\<\": \"\>",
7913   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes insertions\"\>"}],
7914  SequenceForm["> Top. ", 12, ": ", "2 Generic, 559 Classes insertions"],
7915  Editable->False]], "Print",
7916 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7917   3.6551042290456038`*^9, 3.655149568844359*^9}],
7918
7919Cell[BoxData["\<\"\"\>"], "Print",
7920 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7921   3.6551042290456038`*^9, 3.6551495688474092`*^9}],
7922
7923Cell[BoxData[
7924 InterpretationBox[
7925  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "94",
7926   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
7927  SequenceForm["Restoring ", 94, " field point(s)"],
7928  Editable->False]], "Print",
7929 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7930   3.6551042290456038`*^9, 3.655149568849917*^9}],
7931
7932Cell[BoxData[
7933 InterpretationBox[
7934  RowBox[{"\<\"in total: \"\>",
7935   "\[InvisibleSpace]", "\<\"30 Generic, 21912 Classes insertions\"\>"}],
7936  SequenceForm["in total: ", "30 Generic, 21912 Classes insertions"],
7937  Editable->False]], "Print",
7938 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7939   3.6551042290456038`*^9, 3.655149568979912*^9}],
7940
7941Cell[BoxData["\<\"\"\>"], "Print",
7942 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7943   3.6551042290456038`*^9, 3.6551495701426067`*^9}],
7944
7945Cell[BoxData[
7946 InterpretationBox[
7947  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
7948   RowBox[{"{",
7949    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
7950  SequenceForm[
7951  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
7952  Editable->False]], "Print",
7953 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7954   3.6551042290456038`*^9, 3.655149570145685*^9}],
7955
7956Cell[BoxData[
7957 InterpretationBox[
7958  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
7959   "\[InvisibleSpace]", "\<\": \"\>",
7960   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
7961  SequenceForm["> Top. ", 1, ": ", "2 Generic, 1181 Classes amplitudes"],
7962  Editable->False]], "Print",
7963 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7964   3.6551042290456038`*^9, 3.6551495731933517`*^9}],
7965
7966Cell[BoxData[
7967 InterpretationBox[
7968  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
7969   "\[InvisibleSpace]", "\<\": \"\>",
7970   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
7971  SequenceForm["> Top. ", 2, ": ", "2 Generic, 1181 Classes amplitudes"],
7972  Editable->False]], "Print",
7973 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7974   3.6551042290456038`*^9, 3.655149574800009*^9}],
7975
7976Cell[BoxData[
7977 InterpretationBox[
7978  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
7979   "\[InvisibleSpace]", "\<\": \"\>",
7980   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
7981  SequenceForm["> Top. ", 3, ": ", "2 Generic, 1181 Classes amplitudes"],
7982  Editable->False]], "Print",
7983 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7984   3.6551042290456038`*^9, 3.655149576418223*^9}],
7985
7986Cell[BoxData[
7987 InterpretationBox[
7988  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
7989   "\[InvisibleSpace]", "\<\": \"\>",
7990   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
7991  SequenceForm["> Top. ", 4, ": ", "2 Generic, 1181 Classes amplitudes"],
7992  Editable->False]], "Print",
7993 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
7994   3.6551042290456038`*^9, 3.6551495780540037`*^9}],
7995
7996Cell[BoxData[
7997 InterpretationBox[
7998  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
7999   "\[InvisibleSpace]", "\<\": \"\>",
8000   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
8001  SequenceForm["> Top. ", 5, ": ", "2 Generic, 1181 Classes amplitudes"],
8002  Editable->False]], "Print",
8003 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8004   3.6551042290456038`*^9, 3.6551495796974382`*^9}],
8005
8006Cell[BoxData[
8007 InterpretationBox[
8008  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
8009   "\[InvisibleSpace]", "\<\": \"\>",
8010   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
8011  SequenceForm["> Top. ", 6, ": ", "2 Generic, 1181 Classes amplitudes"],
8012  Editable->False]], "Print",
8013 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8014   3.6551042290456038`*^9, 3.65514958133498*^9}],
8015
8016Cell[BoxData[
8017 InterpretationBox[
8018  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
8019   "\[InvisibleSpace]", "\<\": \"\>",
8020   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes amplitudes\"\>"}],
8021  SequenceForm["> Top. ", 7, ": ", "4 Generic, 4383 Classes amplitudes"],
8022  Editable->False]], "Print",
8023 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8024   3.6551042290456038`*^9, 3.6551495927164917`*^9}],
8025
8026Cell[BoxData[
8027 InterpretationBox[
8028  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
8029   "\[InvisibleSpace]", "\<\": \"\>",
8030   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes amplitudes\"\>"}],
8031  SequenceForm["> Top. ", 8, ": ", "4 Generic, 4383 Classes amplitudes"],
8032  Editable->False]], "Print",
8033 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8034   3.6551042290456038`*^9, 3.655149604334764*^9}],
8035
8036Cell[BoxData[
8037 InterpretationBox[
8038  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
8039   "\[InvisibleSpace]", "\<\": \"\>",
8040   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes amplitudes\"\>"}],
8041  SequenceForm["> Top. ", 9, ": ", "4 Generic, 4383 Classes amplitudes"],
8042  Editable->False]], "Print",
8043 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8044   3.6551042290456038`*^9, 3.655149615783753*^9}],
8045
8046Cell[BoxData[
8047 InterpretationBox[
8048  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
8049   "\[InvisibleSpace]", "\<\": \"\>",
8050   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes amplitudes\"\>"}],
8051  SequenceForm["> Top. ", 10, ": ", "2 Generic, 559 Classes amplitudes"],
8052  Editable->False]], "Print",
8053 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8054   3.6551042290456038`*^9, 3.655149616398129*^9}],
8055
8056Cell[BoxData[
8057 InterpretationBox[
8058  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
8059   "\[InvisibleSpace]", "\<\": \"\>",
8060   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes amplitudes\"\>"}],
8061  SequenceForm["> Top. ", 11, ": ", "2 Generic, 559 Classes amplitudes"],
8062  Editable->False]], "Print",
8063 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8064   3.6551042290456038`*^9, 3.655149617012302*^9}],
8065
8066Cell[BoxData[
8067 InterpretationBox[
8068  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
8069   "\[InvisibleSpace]", "\<\": \"\>",
8070   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes amplitudes\"\>"}],
8071  SequenceForm["> Top. ", 12, ": ", "2 Generic, 559 Classes amplitudes"],
8072  Editable->False]], "Print",
8073 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8074   3.6551042290456038`*^9, 3.6551496176267433`*^9}],
8075
8076Cell[BoxData[
8077 InterpretationBox[
8078  RowBox[{"\<\"in total: \"\>",
8079   "\[InvisibleSpace]", "\<\"30 Generic, 21912 Classes amplitudes\"\>"}],
8080  SequenceForm["in total: ", "30 Generic, 21912 Classes amplitudes"],
8081  Editable->False]], "Print",
8082 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8083   3.6551042290456038`*^9, 3.655149617756374*^9}],
8084
8085Cell[BoxData["\<\"Writing amplitude finished after 45368.938355\"\>"], "Print",
8086 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8087   3.6551042290456038`*^9, 3.65514961859836*^9}],
8088
8089Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
8090after 45399.687906\"\>"], "Print",
8091 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8092   3.6551042290456038`*^9, 3.6551496493479147`*^9}],
8093
8094Cell[BoxData["\<\"\"\>"], "Print",
8095 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8096   3.6551042290456038`*^9, 3.655149650619125*^9}],
8097
8098Cell[BoxData[
8099 InterpretationBox[
8100  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
8101   RowBox[{"{",
8102    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
8103  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
8104  Editable->False]], "Print",
8105 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8106   3.6551042290456038`*^9, 3.6551496506221657`*^9}],
8107
8108Cell[BoxData[
8109 InterpretationBox[
8110  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
8111   "\[InvisibleSpace]", "\<\": \"\>",
8112   "\[InvisibleSpace]", "\<\"1 Generic, 55 Classes insertions\"\>"}],
8113  SequenceForm["> Top. ", 1, ": ", "1 Generic, 55 Classes insertions"],
8114  Editable->False]], "Print",
8115 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8116   3.6551042290456038`*^9, 3.655149650700212*^9}],
8117
8118Cell[BoxData[
8119 InterpretationBox[
8120  RowBox[{"\<\"in total: \"\>",
8121   "\[InvisibleSpace]", "\<\"1 Generic, 55 Classes insertions\"\>"}],
8122  SequenceForm["in total: ", "1 Generic, 55 Classes insertions"],
8123  Editable->False]], "Print",
8124 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8125   3.6551042290456038`*^9, 3.6551496507027607`*^9}],
8126
8127Cell[BoxData["\<\"\"\>"], "Print",
8128 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8129   3.6551042290456038`*^9, 3.6551496507049847`*^9}],
8130
8131Cell[BoxData[
8132 InterpretationBox[
8133  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
8134   RowBox[{"{",
8135    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
8136  SequenceForm[
8137  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
8138  Editable->False]], "Print",
8139 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8140   3.6551042290456038`*^9, 3.655149650707143*^9}],
8141
8142Cell[BoxData[
8143 InterpretationBox[
8144  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
8145   "\[InvisibleSpace]", "\<\": \"\>",
8146   "\[InvisibleSpace]", "\<\"1 Generic, 55 Classes amplitudes\"\>"}],
8147  SequenceForm["> Top. ", 1, ": ", "1 Generic, 55 Classes amplitudes"],
8148  Editable->False]], "Print",
8149 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8150   3.6551042290456038`*^9, 3.655149650760727*^9}],
8151
8152Cell[BoxData[
8153 InterpretationBox[
8154  RowBox[{"\<\"in total: \"\>",
8155   "\[InvisibleSpace]", "\<\"1 Generic, 55 Classes amplitudes\"\>"}],
8156  SequenceForm["in total: ", "1 Generic, 55 Classes amplitudes"],
8157  Editable->False]], "Print",
8158 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8159   3.6551042290456038`*^9, 3.655149650763587*^9}],
8160
8161Cell[BoxData["\<\"Writing the symbolic CT finished after 45401.156140\"\>"], \
8162"Print",
8163 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8164   3.6551042290456038`*^9, 3.655149650841187*^9}],
8165
8166Cell[BoxData["\<\"SU3 algebra finished after 45424.541408\"\>"], "Print",
8167 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8168   3.6551042290456038`*^9, 3.65514967420152*^9}],
8169
8170Cell[BoxData["\<\"Simplification of the vertices finished after \
817145441.803878\"\>"], "Print",
8172 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8173   3.6551042290456038`*^9, 3.6551496914638567`*^9}],
8174
8175Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 45441.805051\"\>"], \
8176"Print",
8177 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8178   3.6551042290456038`*^9, 3.655149691466604*^9}],
8179
8180Cell[BoxData[
8181 StyleBox["\<\"Computing CT for the {V, V, S, S} vertices.\"\>",
8182  StripOnInput->False,
8183  LineColor->RGBColor[0, 0, 1],
8184  FrontFaceColor->RGBColor[0, 0, 1],
8185  BackFaceColor->RGBColor[0, 0, 1],
8186  GraphicsColor->RGBColor[0, 0, 1],
8187  FontColor->RGBColor[0, 0, 1]]], "Print",
8188 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8189   3.6551042290456038`*^9, 3.655149691468948*^9}],
8190
8191Cell[BoxData["\<\"\"\>"], "Print",
8192 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8193   3.6551042290456038`*^9, 3.6551496915953608`*^9}],
8194
8195Cell[BoxData[
8196 InterpretationBox[
8197  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "94",
8198   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
8199ones)\"\>"}],
8200  SequenceForm[
8201  "Excluding ", 94, " field point(s) (incl. charge-conjugate ones)"],
8202  Editable->False]], "Print",
8203 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8204   3.6551042290456038`*^9, 3.655149691598287*^9}],
8205
8206Cell[BoxData["\<\"\"\>"], "Print",
8207 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8208   3.6551042290456038`*^9, 3.655149691600925*^9}],
8209
8210Cell[BoxData[
8211 InterpretationBox[
8212  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
8213   RowBox[{"{",
8214    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
8215  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
8216  Editable->False]], "Print",
8217 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8218   3.6551042290456038`*^9, 3.655149691603375*^9}],
8219
8220Cell[BoxData[
8221 InterpretationBox[
8222  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
8223   "\[InvisibleSpace]", "\<\": \"\>",
8224   "\[InvisibleSpace]", "\<\"2 Generic, 4376 Classes insertions\"\>"}],
8225  SequenceForm["> Top. ", 1, ": ", "2 Generic, 4376 Classes insertions"],
8226  Editable->False]], "Print",
8227 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8228   3.6551042290456038`*^9, 3.6551497011102247`*^9}],
8229
8230Cell[BoxData[
8231 InterpretationBox[
8232  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
8233   "\[InvisibleSpace]", "\<\": \"\>",
8234   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes insertions\"\>"}],
8235  SequenceForm["> Top. ", 2, ": ", "2 Generic, 2340 Classes insertions"],
8236  Editable->False]], "Print",
8237 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8238   3.6551042290456038`*^9, 3.655149707278123*^9}],
8239
8240Cell[BoxData[
8241 InterpretationBox[
8242  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
8243   "\[InvisibleSpace]", "\<\": \"\>",
8244   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes insertions\"\>"}],
8245  SequenceForm["> Top. ", 3, ": ", "2 Generic, 2340 Classes insertions"],
8246  Editable->False]], "Print",
8247 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8248   3.6551042290456038`*^9, 3.655149713462489*^9}],
8249
8250Cell[BoxData[
8251 InterpretationBox[
8252  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
8253   "\[InvisibleSpace]", "\<\": \"\>",
8254   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes insertions\"\>"}],
8255  SequenceForm["> Top. ", 4, ": ", "2 Generic, 2340 Classes insertions"],
8256  Editable->False]], "Print",
8257 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8258   3.6551042290456038`*^9, 3.6551497196308107`*^9}],
8259
8260Cell[BoxData[
8261 InterpretationBox[
8262  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
8263   "\[InvisibleSpace]", "\<\": \"\>",
8264   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes insertions\"\>"}],
8265  SequenceForm["> Top. ", 5, ": ", "2 Generic, 2340 Classes insertions"],
8266  Editable->False]], "Print",
8267 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8268   3.6551042290456038`*^9, 3.6551497257831287`*^9}],
8269
8270Cell[BoxData[
8271 InterpretationBox[
8272  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
8273   "\[InvisibleSpace]", "\<\": \"\>",
8274   "\[InvisibleSpace]", "\<\"2 Generic, 2724 Classes insertions\"\>"}],
8275  SequenceForm["> Top. ", 6, ": ", "2 Generic, 2724 Classes insertions"],
8276  Editable->False]], "Print",
8277 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8278   3.6551042290456038`*^9, 3.655149732425469*^9}],
8279
8280Cell[BoxData[
8281 InterpretationBox[
8282  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
8283   "\[InvisibleSpace]", "\<\": \"\>",
8284   "\[InvisibleSpace]", "\<\"4 Generic, 7190 Classes insertions\"\>"}],
8285  SequenceForm["> Top. ", 7, ": ", "4 Generic, 7190 Classes insertions"],
8286  Editable->False]], "Print",
8287 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8288   3.6551042290456038`*^9, 3.655149761113676*^9}],
8289
8290Cell[BoxData[
8291 InterpretationBox[
8292  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
8293   "\[InvisibleSpace]", "\<\": \"\>",
8294   "\[InvisibleSpace]", "\<\"4 Generic, 7190 Classes insertions\"\>"}],
8295  SequenceForm["> Top. ", 8, ": ", "4 Generic, 7190 Classes insertions"],
8296  Editable->False]], "Print",
8297 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8298   3.6551042290456038`*^9, 3.65514978990795*^9}],
8299
8300Cell[BoxData[
8301 InterpretationBox[
8302  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
8303   "\[InvisibleSpace]", "\<\": \"\>",
8304   "\[InvisibleSpace]", "\<\"4 Generic, 6164 Classes insertions\"\>"}],
8305  SequenceForm["> Top. ", 9, ": ", "4 Generic, 6164 Classes insertions"],
8306  Editable->False]], "Print",
8307 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8308   3.6551042290456038`*^9, 3.655149816771802*^9}],
8309
8310Cell[BoxData[
8311 InterpretationBox[
8312  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
8313   "\[InvisibleSpace]", "\<\": \"\>",
8314   "\[InvisibleSpace]", "\<\"2 Generic, 1560 Classes insertions\"\>"}],
8315  SequenceForm["> Top. ", 10, ": ", "2 Generic, 1560 Classes insertions"],
8316  Editable->False]], "Print",
8317 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8318   3.6551042290456038`*^9, 3.655149820741111*^9}],
8319
8320Cell[BoxData[
8321 InterpretationBox[
8322  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
8323   "\[InvisibleSpace]", "\<\": \"\>",
8324   "\[InvisibleSpace]", "\<\"1 Generic, 900 Classes insertions\"\>"}],
8325  SequenceForm["> Top. ", 11, ": ", "1 Generic, 900 Classes insertions"],
8326  Editable->False]], "Print",
8327 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8328   3.6551042290456038`*^9, 3.6551498222473593`*^9}],
8329
8330Cell[BoxData[
8331 InterpretationBox[
8332  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
8333   "\[InvisibleSpace]", "\<\": \"\>",
8334   "\[InvisibleSpace]", "\<\"1 Generic, 900 Classes insertions\"\>"}],
8335  SequenceForm["> Top. ", 12, ": ", "1 Generic, 900 Classes insertions"],
8336  Editable->False]], "Print",
8337 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8338   3.6551042290456038`*^9, 3.655149823757601*^9}],
8339
8340Cell[BoxData["\<\"\"\>"], "Print",
8341 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8342   3.6551042290456038`*^9, 3.655149823760747*^9}],
8343
8344Cell[BoxData[
8345 InterpretationBox[
8346  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "94",
8347   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
8348  SequenceForm["Restoring ", 94, " field point(s)"],
8349  Editable->False]], "Print",
8350 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8351   3.6551042290456038`*^9, 3.655149823763381*^9}],
8352
8353Cell[BoxData[
8354 InterpretationBox[
8355  RowBox[{"\<\"in total: \"\>",
8356   "\[InvisibleSpace]", "\<\"28 Generic, 40364 Classes insertions\"\>"}],
8357  SequenceForm["in total: ", "28 Generic, 40364 Classes insertions"],
8358  Editable->False]], "Print",
8359 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8360   3.6551042290456038`*^9, 3.6551498239781513`*^9}],
8361
8362Cell[BoxData["\<\"\"\>"], "Print",
8363 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8364   3.6551042290456038`*^9, 3.6551498264124823`*^9}],
8365
8366Cell[BoxData[
8367 InterpretationBox[
8368  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
8369   RowBox[{"{",
8370    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
8371  SequenceForm[
8372  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
8373  Editable->False]], "Print",
8374 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8375   3.6551042290456038`*^9, 3.655149826415572*^9}],
8376
8377Cell[BoxData[
8378 InterpretationBox[
8379  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
8380   "\[InvisibleSpace]", "\<\": \"\>",
8381   "\[InvisibleSpace]", "\<\"2 Generic, 4376 Classes amplitudes\"\>"}],
8382  SequenceForm["> Top. ", 1, ": ", "2 Generic, 4376 Classes amplitudes"],
8383  Editable->False]], "Print",
8384 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8385   3.6551042290456038`*^9, 3.6551498347827463`*^9}],
8386
8387Cell[BoxData[
8388 InterpretationBox[
8389  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
8390   "\[InvisibleSpace]", "\<\": \"\>",
8391   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes amplitudes\"\>"}],
8392  SequenceForm["> Top. ", 2, ": ", "2 Generic, 2340 Classes amplitudes"],
8393  Editable->False]], "Print",
8394 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8395   3.6551042290456038`*^9, 3.655149837880108*^9}],
8396
8397Cell[BoxData[
8398 InterpretationBox[
8399  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
8400   "\[InvisibleSpace]", "\<\": \"\>",
8401   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes amplitudes\"\>"}],
8402  SequenceForm["> Top. ", 3, ": ", "2 Generic, 2340 Classes amplitudes"],
8403  Editable->False]], "Print",
8404 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8405   3.6551042290456038`*^9, 3.655149840903366*^9}],
8406
8407Cell[BoxData[
8408 InterpretationBox[
8409  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
8410   "\[InvisibleSpace]", "\<\": \"\>",
8411   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes amplitudes\"\>"}],
8412  SequenceForm["> Top. ", 4, ": ", "2 Generic, 2340 Classes amplitudes"],
8413  Editable->False]], "Print",
8414 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8415   3.6551042290456038`*^9, 3.6551498439520283`*^9}],
8416
8417Cell[BoxData[
8418 InterpretationBox[
8419  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5",
8420   "\[InvisibleSpace]", "\<\": \"\>",
8421   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes amplitudes\"\>"}],
8422  SequenceForm["> Top. ", 5, ": ", "2 Generic, 2340 Classes amplitudes"],
8423  Editable->False]], "Print",
8424 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8425   3.6551042290456038`*^9, 3.655149847027347*^9}],
8426
8427Cell[BoxData[
8428 InterpretationBox[
8429  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6",
8430   "\[InvisibleSpace]", "\<\": \"\>",
8431   "\[InvisibleSpace]", "\<\"2 Generic, 2724 Classes amplitudes\"\>"}],
8432  SequenceForm["> Top. ", 6, ": ", "2 Generic, 2724 Classes amplitudes"],
8433  Editable->False]], "Print",
8434 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8435   3.6551042290456038`*^9, 3.655149851175487*^9}],
8436
8437Cell[BoxData[
8438 InterpretationBox[
8439  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7",
8440   "\[InvisibleSpace]", "\<\": \"\>",
8441   "\[InvisibleSpace]", "\<\"4 Generic, 7190 Classes amplitudes\"\>"}],
8442  SequenceForm["> Top. ", 7, ": ", "4 Generic, 7190 Classes amplitudes"],
8443  Editable->False]], "Print",
8444 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8445   3.6551042290456038`*^9, 3.655149868920782*^9}],
8446
8447Cell[BoxData[
8448 InterpretationBox[
8449  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8",
8450   "\[InvisibleSpace]", "\<\": \"\>",
8451   "\[InvisibleSpace]", "\<\"4 Generic, 7190 Classes amplitudes\"\>"}],
8452  SequenceForm["> Top. ", 8, ": ", "4 Generic, 7190 Classes amplitudes"],
8453  Editable->False]], "Print",
8454 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8455   3.6551042290456038`*^9, 3.655149886979392*^9}],
8456
8457Cell[BoxData[
8458 InterpretationBox[
8459  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9",
8460   "\[InvisibleSpace]", "\<\": \"\>",
8461   "\[InvisibleSpace]", "\<\"4 Generic, 6164 Classes amplitudes\"\>"}],
8462  SequenceForm["> Top. ", 9, ": ", "4 Generic, 6164 Classes amplitudes"],
8463  Editable->False]], "Print",
8464 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8465   3.6551042290456038`*^9, 3.655149903051091*^9}],
8466
8467Cell[BoxData[
8468 InterpretationBox[
8469  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10",
8470   "\[InvisibleSpace]", "\<\": \"\>",
8471   "\[InvisibleSpace]", "\<\"2 Generic, 1560 Classes amplitudes\"\>"}],
8472  SequenceForm["> Top. ", 10, ": ", "2 Generic, 1560 Classes amplitudes"],
8473  Editable->False]], "Print",
8474 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8475   3.6551042290456038`*^9, 3.655149904569626*^9}],
8476
8477Cell[BoxData[
8478 InterpretationBox[
8479  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11",
8480   "\[InvisibleSpace]", "\<\": \"\>",
8481   "\[InvisibleSpace]", "\<\"1 Generic, 900 Classes amplitudes\"\>"}],
8482  SequenceForm["> Top. ", 11, ": ", "1 Generic, 900 Classes amplitudes"],
8483  Editable->False]], "Print",
8484 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8485   3.6551042290456038`*^9, 3.655149905323784*^9}],
8486
8487Cell[BoxData[
8488 InterpretationBox[
8489  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12",
8490   "\[InvisibleSpace]", "\<\": \"\>",
8491   "\[InvisibleSpace]", "\<\"1 Generic, 900 Classes amplitudes\"\>"}],
8492  SequenceForm["> Top. ", 12, ": ", "1 Generic, 900 Classes amplitudes"],
8493  Editable->False]], "Print",
8494 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8495   3.6551042290456038`*^9, 3.655149906072544*^9}],
8496
8497Cell[BoxData[
8498 InterpretationBox[
8499  RowBox[{"\<\"in total: \"\>",
8500   "\[InvisibleSpace]", "\<\"28 Generic, 40364 Classes amplitudes\"\>"}],
8501  SequenceForm["in total: ", "28 Generic, 40364 Classes amplitudes"],
8502  Editable->False]], "Print",
8503 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8504   3.6551042290456038`*^9, 3.6551499062173986`*^9}],
8505
8506Cell[BoxData["\<\"Writing amplitude finished after 45657.872784\"\>"], "Print",
8507 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8508   3.6551042290456038`*^9, 3.655149907532879*^9}],
8509
8510Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
8511after 45756.806215\"\>"], "Print",
8512 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8513   3.6551042290456038`*^9, 3.6551500064663467`*^9}],
8514
8515Cell[BoxData["\<\"\"\>"], "Print",
8516 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8517   3.6551042290456038`*^9, 3.655150016124667*^9}],
8518
8519Cell[BoxData[
8520 InterpretationBox[
8521  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
8522   RowBox[{"{",
8523    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
8524  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
8525  Editable->False]], "Print",
8526 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8527   3.6551042290456038`*^9, 3.655150016127879*^9}],
8528
8529Cell[BoxData[
8530 InterpretationBox[
8531  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
8532   "\[InvisibleSpace]", "\<\": \"\>",
8533   "\[InvisibleSpace]", "\<\"1 Generic, 272 Classes insertions\"\>"}],
8534  SequenceForm["> Top. ", 1, ": ", "1 Generic, 272 Classes insertions"],
8535  Editable->False]], "Print",
8536 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8537   3.6551042290456038`*^9, 3.655150016271804*^9}],
8538
8539Cell[BoxData[
8540 InterpretationBox[
8541  RowBox[{"\<\"in total: \"\>",
8542   "\[InvisibleSpace]", "\<\"1 Generic, 272 Classes insertions\"\>"}],
8543  SequenceForm["in total: ", "1 Generic, 272 Classes insertions"],
8544  Editable->False]], "Print",
8545 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8546   3.6551042290456038`*^9, 3.655150016274879*^9}],
8547
8548Cell[BoxData["\<\"\"\>"], "Print",
8549 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8550   3.6551042290456038`*^9, 3.655150016353207*^9}],
8551
8552Cell[BoxData[
8553 InterpretationBox[
8554  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
8555   RowBox[{"{",
8556    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
8557  SequenceForm[
8558  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
8559  Editable->False]], "Print",
8560 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8561   3.6551042290456038`*^9, 3.6551500163556223`*^9}],
8562
8563Cell[BoxData[
8564 InterpretationBox[
8565  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
8566   "\[InvisibleSpace]", "\<\": \"\>",
8567   "\[InvisibleSpace]", "\<\"1 Generic, 272 Classes amplitudes\"\>"}],
8568  SequenceForm["> Top. ", 1, ": ", "1 Generic, 272 Classes amplitudes"],
8569  Editable->False]], "Print",
8570 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8571   3.6551042290456038`*^9, 3.655150017280896*^9}],
8572
8573Cell[BoxData[
8574 InterpretationBox[
8575  RowBox[{"\<\"in total: \"\>",
8576   "\[InvisibleSpace]", "\<\"1 Generic, 272 Classes amplitudes\"\>"}],
8577  SequenceForm["in total: ", "1 Generic, 272 Classes amplitudes"],
8578  Editable->False]], "Print",
8579 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8580   3.6551042290456038`*^9, 3.655150017358547*^9}],
8581
8582Cell[BoxData["\<\"Writing the symbolic CT finished after 45772.301761\"\>"], \
8583"Print",
8584 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8585   3.6551042290456038`*^9, 3.655150021962407*^9}],
8586
8587Cell[BoxData["\<\"SU3 algebra finished after 45854.907933\"\>"], "Print",
8588 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8589   3.6551042290456038`*^9, 3.6551501045680513`*^9}],
8590
8591Cell[BoxData["\<\"Simplification of the vertices finished after \
859248301.781554\"\>"], "Print",
8593 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8594   3.6551042290456038`*^9, 3.655152551441763*^9}],
8595
8596Cell[BoxData["\<\"Vertices {V, V, S, S} finished after 48301.785756\"\>"], \
8597"Print",
8598 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8599   3.6551042290456038`*^9, 3.65515255152418*^9}],
8600
8601Cell[BoxData["\<\"before merge 48301.862432 temp=4.321274\"\>"], "Print",
8602 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8603   3.6551042290456038`*^9, 3.655152551526741*^9}],
8604
8605Cell[BoxData["\<\"merging done 48314.073015\"\>"], "Print",
8606 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8607   3.6551042290456038`*^9, 3.655152563733143*^9}],
8608
8609Cell[BoxData[
8610 StyleBox["\<\"The finite part of those counterterms will be set to zero\"\>",
8611  StripOnInput->False,
8612  LineColor->RGBColor[1, 0.5, 0],
8613  FrontFaceColor->RGBColor[1, 0.5, 0],
8614  BackFaceColor->RGBColor[1, 0.5, 0],
8615  GraphicsColor->RGBColor[1, 0.5, 0],
8616  FontColor->RGBColor[1, 0.5, 0]]], "Print",
8617 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8618   3.6551042290456038`*^9, 3.6551525640325613`*^9}],
8619
8620Cell[BoxData[
8621 RowBox[{"{",
8622  RowBox[{
8623   RowBox[{"FR$delta", "[",
8624    RowBox[{
8625     RowBox[{"{", "aEWM1", "}"}], ",",
8626     RowBox[{"{", "}"}]}], "]"}], ",",
8627   RowBox[{"FR$delta", "[",
8628    RowBox[{
8629     RowBox[{"{", "aS", "}"}], ",",
8630     RowBox[{"{", "}"}]}], "]"}], ",",
8631   RowBox[{"FR$delta", "[",
8632    RowBox[{
8633     RowBox[{"{", "GDR1x1", "}"}], ",",
8634     RowBox[{"{", "}"}]}], "]"}], ",",
8635   RowBox[{"FR$delta", "[",
8636    RowBox[{
8637     RowBox[{"{", "GDR2x2", "}"}], ",",
8638     RowBox[{"{", "}"}]}], "]"}], ",",
8639   RowBox[{"FR$delta", "[",
8640    RowBox[{
8641     RowBox[{"{", "GDR3x3", "}"}], ",",
8642     RowBox[{"{", "}"}]}], "]"}], ",",
8643   RowBox[{"FR$delta", "[",
8644    RowBox[{
8645     RowBox[{"{", "GLR1x1", "}"}], ",",
8646     RowBox[{"{", "}"}]}], "]"}], ",",
8647   RowBox[{"FR$delta", "[",
8648    RowBox[{
8649     RowBox[{"{", "GLR2x2", "}"}], ",",
8650     RowBox[{"{", "}"}]}], "]"}], ",",
8651   RowBox[{"FR$delta", "[",
8652    RowBox[{
8653     RowBox[{"{", "GLR3x3", "}"}], ",",
8654     RowBox[{"{", "}"}]}], "]"}], ",",
8655   RowBox[{"FR$delta", "[",
8656    RowBox[{
8657     RowBox[{"{", "GUR1x1", "}"}], ",",
8658     RowBox[{"{", "}"}]}], "]"}], ",",
8659   RowBox[{"FR$delta", "[",
8660    RowBox[{
8661     RowBox[{"{", "GUR2x2", "}"}], ",",
8662     RowBox[{"{", "}"}]}], "]"}], ",",
8663   RowBox[{"FR$delta", "[",
8664    RowBox[{
8665     RowBox[{"{", "GUR3x3", "}"}], ",",
8666     RowBox[{"{", "}"}]}], "]"}], ",",
8667   RowBox[{"FR$delta", "[",
8668    RowBox[{
8669     RowBox[{"{", "l3", "}"}], ",",
8670     RowBox[{"{", "}"}]}], "]"}], ",",
8671   RowBox[{"FR$delta", "[",
8672    RowBox[{
8673     RowBox[{"{", "lR7", "}"}], ",",
8674     RowBox[{"{", "}"}]}], "]"}], ",",
8675   RowBox[{"FR$delta", "[",
8676    RowBox[{
8677     RowBox[{"{", "mixh", "}"}], ",",
8678     RowBox[{"{", "}"}]}], "]"}]}], "}"}]], "Print",
8679 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8680   3.6551042290456038`*^9, 3.6551525640361023`*^9}],
8681
8682Cell[BoxData["\<\"Writing R2 and UV counterterms from 2HDMfull/2HDMfull and \
8683LorentzTadpole in 2HDMfull.nlo\"\>"], "Print",
8684 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8685   3.6551042290456038`*^9, 3.6551525925456953`*^9}],
8686
8687Cell[BoxData["\<\"done\"\>"], "Print",
8688 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9},
8689   3.6551042290456038`*^9, 3.6551526059302073`*^9}]
8690}, Open  ]],
8691
8692Cell[BoxData[
8693 RowBox[{"{",
8694  RowBox[{"48414.493717`", ",", "Null"}], "}"}]], "Output",
8695 CellChangeTimes->{{3.655103801649384*^9, 3.655103824980661*^9},
8696   3.65510387358714*^9, 3.65510422933871*^9, 3.655152606479745*^9}]
8697}, Closed]]
8698}, Open  ]],
8699
8700Cell[CellGroupData[{
8701
8702Cell["The 2HDM UFO", "Subtitle",
8703 CellChangeTimes->{{3.5692406355325527`*^9, 3.569240649591064*^9}}],
8704
8705Cell["We first load FeynRules and the 2HDM model-file", "Text",
8706 CellChangeTimes->{{3.606632031679335*^9, 3.6066320541975517`*^9}}],
8707
8708Cell[CellGroupData[{
8709
8710Cell[BoxData[
8711 RowBox[{
8712  RowBox[{"(*",
8713   RowBox[{"Leading", " ", "order", " ", "only"}], "*)"}],
8714  "\[IndentingNewLine]",
8715  RowBox[{
8716   RowBox[{"WriteUFO", "[",
8717    RowBox[{"L2HDM", ",",
8718     RowBox[{"Output", "\[Rule]", "\"\<2HDM\>\""}]}], "]"}], ";"}]}]], "Input",
8719 CellChangeTimes->{{3.4921598836918983`*^9, 3.4921598930602713`*^9}, {
8720   3.518717107647251*^9, 3.5187171284510603`*^9}, {3.518923040425396*^9,
8721   3.5189230414329653`*^9}, {3.518923142134761*^9, 3.5189231442588797`*^9}, {
8722   3.5189240537198353`*^9, 3.518924054445438*^9}, {3.5200814006715508`*^9,
8723   3.520081421853283*^9}, {3.538814053499845*^9, 3.538814062035089*^9}, {
8724   3.5394903931424522`*^9, 3.53949042140246*^9}, {3.539491327680583*^9,
8725   3.5394913331726923`*^9}, {3.539491617221081*^9, 3.5394916173239403`*^9}, {
8726   3.539491653329705*^9, 3.539491655169097*^9}, {3.539491689856505*^9,
8727   3.53949169080725*^9}, 3.5394928186835957`*^9, 3.5394938700858097`*^9, {
8728   3.5394973863667994`*^9, 3.5394973953879347`*^9}, {3.539500346534834*^9,
8729   3.539500346894058*^9}, {3.542425772720405*^9, 3.542425775647977*^9}, {
8730   3.553411799718648*^9, 3.5534118132146187`*^9}, {3.55341190749333*^9,
8731   3.5534119090329437`*^9}, {3.563298033874341*^9, 3.563298058272737*^9}, {
8732   3.563298320359173*^9, 3.563298324229212*^9}, {3.5632992237531*^9,
8733   3.563299239127314*^9}, {3.5640507810434923`*^9, 3.564050808154093*^9}, {
8734   3.564051439846299*^9, 3.564051442676675*^9}, {3.569240599437001*^9,
8735   3.5692406011789837`*^9}, {3.569673115293296*^9, 3.569673128930167*^9}, {
8736   3.5696734651309032`*^9, 3.569673469670471*^9}, {3.569689575592909*^9,
8737   3.56968957873048*^9}, {3.5765974358425207`*^9, 3.576597441869588*^9}, {
8738   3.578952678138735*^9, 3.578952725424076*^9}, {3.592659982479932*^9,
8739   3.5926600006207047`*^9}, {3.595855989166492*^9, 3.595855998669067*^9},
8740   3.598002318864501*^9, {3.605353058707179*^9, 3.605353061778391*^9}, {
8741   3.606025564088594*^9, 3.6060255755323877`*^9}, {3.606025981760201*^9,
8742   3.6060259829596653`*^9}, {3.60663206569558*^9, 3.606632086455121*^9}}],
8743
8744Cell[CellGroupData[{
8745
8746Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
8747"Print",
8748 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8749  3.598002218870007*^9, 3.598002322965044*^9}],
8750
8751Cell[BoxData[
8752 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
8753  StripOnInput->False,
8754  LineColor->RGBColor[1, 0.5, 0],
8755  FrontFaceColor->RGBColor[1, 0.5, 0],
8756  BackFaceColor->RGBColor[1, 0.5, 0],
8757  GraphicsColor->RGBColor[1, 0.5, 0],
8758  FontWeight->Bold,
8759  FontColor->RGBColor[1, 0.5, 0]]], "Print",
8760 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8761  3.598002218870007*^9, 3.598002334728902*^9}],
8762
8763Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
8764 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8765  3.598002218870007*^9, 3.5980023347341833`*^9}],
8766
8767Cell[BoxData[
8768 InterpretationBox[
8769  RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2",
8770   "\[InvisibleSpace]", "\<\" cores\"\>"}],
8771  SequenceForm["Expanding indices over ", 2, " cores"],
8772  Editable->False]], "Print",
8773 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8774  3.598002218870007*^9, 3.598002334738999*^9}],
8775
8776Cell[BoxData["\<\"Collecting the different structures that enter the \
8777vertex.\"\>"], "Print",
8778 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8779  3.598002218870007*^9, 3.598002425812957*^9}],
8780
8781Cell[BoxData[
8782 InterpretationBox[
8783  RowBox[{
8784  "311", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
8785found -> starting the computation: \"\>", "\[InvisibleSpace]",
8786   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
8787    ImageSizeCache->{225., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8788   "\[InvisibleSpace]", "311", "\[InvisibleSpace]", "\<\".\"\>"}],
8789  SequenceForm[
8790  311, " possible non-zero vertices have been found -> starting the \
8791computation: ",
8792   Dynamic[FeynRules`FR$FeynmanRules], " / ", 311, "."],
8793  Editable->False]], "Print",
8794 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8795  3.598002218870007*^9, 3.598002426971385*^9}],
8796
8797Cell[BoxData[
8798 InterpretationBox[
8799  RowBox[{"307", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
8800  SequenceForm[307, " vertices obtained."],
8801  Editable->False]], "Print",
8802 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8803  3.598002218870007*^9, 3.598002483660603*^9}],
8804
8805Cell[BoxData["\<\"before return of FR 187.001099\"\>"], "Print",
8806 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8807  3.598002218870007*^9, 3.598002483666133*^9}],
8808
8809Cell[BoxData[
8810 InterpretationBox[
8811  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
8812   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
8813   "\[InvisibleSpace]",
8814   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
8815    ImageSizeCache->{171., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8816   "\[InvisibleSpace]", "307"}],
8817  SequenceForm[
8818  "Flavor expansion of the vertices distributed over ", 2, " cores: ",
8819   Dynamic[FeynRules`FR$Count1], " / ", 307],
8820  Editable->False]], "Print",
8821 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8822  3.598002218870007*^9, 3.5980025028754377`*^9}],
8823
8824Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
8825 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8826  3.598002218870007*^9, 3.598002519666737*^9}],
8827
8828Cell[BoxData[
8829 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
8830decays: \"\>",
8831  StripOnInput->False,
8832  LineColor->RGBColor[1, 0.5, 0],
8833  FrontFaceColor->RGBColor[1, 0.5, 0],
8834  BackFaceColor->RGBColor[1, 0.5, 0],
8835  GraphicsColor->RGBColor[1, 0.5, 0],
8836  FontWeight->Bold,
8837  FontColor->RGBColor[1, 0.5, 0]]], "Print",
8838 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8839  3.598002218870007*^9, 3.598002519792296*^9}],
8840
8841Cell[BoxData[
8842 InterpretationBox[
8843  RowBox[{
8844   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
8845    ImageSizeCache->{153., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8846   "\[InvisibleSpace]", "113"}],
8847  SequenceForm[
8848   Dynamic[PRIVATE`mycounter], " / ", 113],
8849  Editable->False]], "Print",
8850 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8851  3.598002218870007*^9, 3.5980025198412733`*^9}],
8852
8853Cell[BoxData[
8854 InterpretationBox[
8855  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
8856   "1.2481680000000068`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
8857  SequenceForm[
8858  "Squared matrix elent compute in ", 1.2481680000000068`, " seconds."],
8859  Editable->False]], "Print",
8860 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8861  3.598002218870007*^9, 3.598002527868059*^9}],
8862
8863Cell[BoxData[
8864 InterpretationBox[
8865  RowBox[{
8866   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
8867    ImageSizeCache->{153., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8868   "\[InvisibleSpace]", "111"}],
8869  SequenceForm[
8870   Dynamic[PRIVATE`mycounter], " / ", 111],
8871  Editable->False]], "Print",
8872 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8873  3.598002218870007*^9, 3.598002527919911*^9}],
8874
8875Cell[BoxData[
8876 InterpretationBox[
8877  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
8878   "1.0152269999999959`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
8879  SequenceForm["Decay widths computed in ", 1.0152269999999959`, " seconds."],
8880  Editable->False]], "Print",
8881 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8882  3.598002218870007*^9, 3.598002530352463*^9}],
8883
8884Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
8885 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8886  3.598002218870007*^9, 3.5980025304007196`*^9}],
8887
8888Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
8889"Print",
8890 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8891  3.598002218870007*^9, 3.5980025310301723`*^9}],
8892
8893Cell[BoxData[
8894 InterpretationBox[
8895  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
8896   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
8897  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
8898  Editable->False]], "Print",
8899 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8900  3.598002218870007*^9, 3.598002531157934*^9}],
8901
8902Cell[BoxData[
8903 InterpretationBox[
8904  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
8905   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
8906    ImageSizeCache->{261., {3., 11.}}], "\[InvisibleSpace]", "\<\"/\"\>",
8907   "\[InvisibleSpace]", "361", "\[InvisibleSpace]", "\<\" .\"\>"}],
8908  SequenceForm["    - Optimizing: ",
8909   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 361, " ."],
8910  Editable->False]], "Print",
8911 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8912  3.598002218870007*^9, 3.5980025343753357`*^9}],
8913
8914Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
8915 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8916  3.598002218870007*^9, 3.598002535835779*^9}],
8917
8918Cell[BoxData["\<\"Done!\"\>"], "Print",
8919 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9,
8920  3.598002218870007*^9, 3.598002541727281*^9}]
8921}, Open  ]],
8922
8923Cell[BoxData[
8924 RowBox[{"{",
8925  RowBox[{"87.605474`", ",", "Null"}], "}"}]], "Output",
8926 CellChangeTimes->{3.595856235597649*^9, 3.595862438617464*^9,
8927  3.598002220749357*^9, 3.5980025417341843`*^9}]
8928}, Closed]],
8929
8930Cell[CellGroupData[{
8931
8932Cell[BoxData[
8933 RowBox[{
8934  RowBox[{"(*",
8935   RowBox[{"With", " ", "NLO", " ", "QCD", " ", "counterterms"}], "*)"}],
8936  "\[IndentingNewLine]",
8937  RowBox[{
8938   RowBox[{
8939    RowBox[{"Get", "[", "\"\<2HDM.nlo\>\"", "]"}], ";"}],
8940   "\[IndentingNewLine]",
8941   RowBox[{
8942    RowBox[{
8943     RowBox[{"WriteUFO", "[",
8944      RowBox[{"L2HDM", ",",
8945       RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",",
8946       RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",",
8947       RowBox[{"AddDecays", "\[Rule]", "True"}], ",",
8948       RowBox[{"Output", "\[Rule]", "\"\<2HDM_NLO\>\""}]}], "]"}], ";"}], "//",
8949     "Timing"}]}]}]], "Input",
8950 CellChangeTimes->{{3.4921598836918983`*^9, 3.4921598930602713`*^9}, {
8951   3.518717107647251*^9, 3.5187171284510603`*^9}, {3.518923040425396*^9,
8952   3.5189230414329653`*^9}, {3.518923142134761*^9, 3.5189231442588797`*^9}, {
8953   3.5189240537198353`*^9, 3.518924054445438*^9}, {3.5200814006715508`*^9,
8954   3.520081421853283*^9}, {3.538814053499845*^9, 3.538814062035089*^9}, {
8955   3.5394903931424522`*^9, 3.53949042140246*^9}, {3.539491327680583*^9,
8956   3.5394913331726923`*^9}, {3.539491617221081*^9, 3.5394916173239403`*^9}, {
8957   3.539491653329705*^9, 3.539491655169097*^9}, {3.539491689856505*^9,
8958   3.53949169080725*^9}, 3.5394928186835957`*^9, 3.5394938700858097`*^9, {
8959   3.5394973863667994`*^9, 3.5394973953879347`*^9}, {3.539500346534834*^9,
8960   3.539500346894058*^9}, {3.542425772720405*^9, 3.542425775647977*^9}, {
8961   3.553411799718648*^9, 3.5534118132146187`*^9}, {3.55341190749333*^9,
8962   3.5534119090329437`*^9}, {3.563298033874341*^9, 3.563298058272737*^9}, {
8963   3.563298320359173*^9, 3.563298324229212*^9}, {3.5632992237531*^9,
8964   3.563299239127314*^9}, {3.5640507810434923`*^9, 3.564050808154093*^9}, {
8965   3.564051439846299*^9, 3.564051442676675*^9}, {3.569240599437001*^9,
8966   3.5692406011789837`*^9}, {3.569673115293296*^9, 3.569673128930167*^9}, {
8967   3.5696734651309032`*^9, 3.569673469670471*^9}, {3.569689575592909*^9,
8968   3.56968957873048*^9}, {3.5765974358425207`*^9, 3.576597441869588*^9}, {
8969   3.578952678138735*^9, 3.578952725424076*^9}, {3.592659982479932*^9,
8970   3.5926600006207047`*^9}, {3.603198608068701*^9, 3.60319860900089*^9}, {
8971   3.605264518245154*^9, 3.60526451862433*^9}, {3.6053530651164827`*^9,
8972   3.605353078428363*^9}, {3.605413902957405*^9, 3.605413908970736*^9}, {
8973   3.6060255520616093`*^9, 3.606025601649279*^9}, {3.606025985431686*^9,
8974   3.606025986488542*^9}, {3.60663207985837*^9, 3.606632092400641*^9}}],
8975
8976Cell[CellGroupData[{
8977
8978Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
8979"Print",
8980 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
8981  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
8982  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
8983  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
8984  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
8985  3.6539031718740263`*^9}],
8986
8987Cell[BoxData[
8988 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
8989  StripOnInput->False,
8990  LineColor->RGBColor[1, 0.5, 0],
8991  FrontFaceColor->RGBColor[1, 0.5, 0],
8992  BackFaceColor->RGBColor[1, 0.5, 0],
8993  GraphicsColor->RGBColor[1, 0.5, 0],
8994  FontWeight->Bold,
8995  FontColor->RGBColor[1, 0.5, 0]]], "Print",
8996 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
8997  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
8998  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
8999  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9000  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9001  3.653903179736124*^9}],
9002
9003Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
9004 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9005  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9006  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9007  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9008  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9009  3.653903179746482*^9}],
9010
9011Cell[BoxData[
9012 InterpretationBox[
9013  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
9014   "\[InvisibleSpace]", "\<\" cores\"\>"}],
9015  SequenceForm["Expanding the indices over ", 2, " cores"],
9016  Editable->False]], "Print",
9017 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9018  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9019  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9020  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9021  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9022  3.653903179754738*^9}],
9023
9024Cell[BoxData["\<\"Collecting the different structures that enter the \
9025vertex.\"\>"], "Print",
9026 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9027  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9028  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9029  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9030  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9031  3.653903208935589*^9}],
9032
9033Cell[BoxData[
9034 InterpretationBox[
9035  RowBox[{
9036  "176", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
9037found -> starting the computation: \"\>", "\[InvisibleSpace]",
9038   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
9039    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
9040   "\[InvisibleSpace]", "176", "\[InvisibleSpace]", "\<\".\"\>"}],
9041  SequenceForm[
9042  176, " possible non-zero vertices have been found -> starting the \
9043computation: ",
9044   Dynamic[FeynRules`FR$FeynmanRules], " / ", 176, "."],
9045  Editable->False]], "Print",
9046 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9047  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9048  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9049  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9050  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9051  3.6539032092042093`*^9}],
9052
9053Cell[BoxData[
9054 InterpretationBox[
9055  RowBox[{"148", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
9056  SequenceForm[148, " vertices obtained."],
9057  Editable->False]], "Print",
9058 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9059  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9060  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9061  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9062  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9063  3.653903226195139*^9}],
9064
9065Cell[BoxData[
9066 InterpretationBox[
9067  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
9068   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
9069   "\[InvisibleSpace]",
9070   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
9071    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
9072   "\[InvisibleSpace]", "230"}],
9073  SequenceForm[
9074  "Flavor expansion of the vertices distributed over ", 2, " cores: ",
9075   Dynamic[FeynRules`FR$Count1], " / ", 230],
9076  Editable->False]], "Print",
9077 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9078  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9079  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9080  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9081  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9082  3.6539032454359407`*^9}],
9083
9084Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
9085 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9086  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9087  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9088  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9089  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9090  3.653903297020376*^9}],
9091
9092Cell[BoxData[
9093 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
9094decays: \"\>",
9095  StripOnInput->False,
9096  LineColor->RGBColor[1, 0.5, 0],
9097  FrontFaceColor->RGBColor[1, 0.5, 0],
9098  BackFaceColor->RGBColor[1, 0.5, 0],
9099  GraphicsColor->RGBColor[1, 0.5, 0],
9100  FontWeight->Bold,
9101  FontColor->RGBColor[1, 0.5, 0]]], "Print",
9102 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9103  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9104  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9105  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9106  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9107  3.653903298151157*^9}],
9108
9109Cell[BoxData[
9110 InterpretationBox[
9111  RowBox[{
9112   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
9113    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
9114   "\[InvisibleSpace]", "206"}],
9115  SequenceForm[
9116   Dynamic[PRIVATE`mycounter], " / ", 206],
9117  Editable->False]], "Print",
9118 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9119  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9120  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9121  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9122  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9123  3.653903298200186*^9}],
9124
9125Cell[BoxData[
9126 InterpretationBox[
9127  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
9128   "25.447502`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
9129  SequenceForm["Squared matrix elent compute in ", 25.447502, " seconds."],
9130  Editable->False]], "Print",
9131 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9132  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9133  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9134  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9135  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9136  3.6539034328154993`*^9}],
9137
9138Cell[BoxData[
9139 InterpretationBox[
9140  RowBox[{
9141   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
9142    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
9143   "\[InvisibleSpace]", "203"}],
9144  SequenceForm[
9145   Dynamic[PRIVATE`mycounter], " / ", 203],
9146  Editable->False]], "Print",
9147 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9148  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9149  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9150  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9151  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9152  3.6539034328251038`*^9}],
9153
9154Cell[BoxData[
9155 InterpretationBox[
9156  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
9157   "53.81798`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
9158  SequenceForm["Decay widths computed in ", 53.81798, " seconds."],
9159  Editable->False]], "Print",
9160 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9161  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9162  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9163  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9164  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9165  3.653903490269908*^9}],
9166
9167Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
9168 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9169  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9170  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9171  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9172  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9173  3.653903490281638*^9}],
9174
9175Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
9176"Print",
9177 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9178  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9179  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9180  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9181  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9182  3.653903492773464*^9}],
9183
9184Cell[BoxData[
9185 InterpretationBox[
9186  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
9187   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
9188  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
9189  Editable->False]], "Print",
9190 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9191  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9192  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9193  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9194  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9195  3.653903494032815*^9}],
9196
9197Cell[BoxData[
9198 InterpretationBox[
9199  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
9200   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
9201    ImageSizeCache->{291., {2., 11.}}], "\[InvisibleSpace]", "\<\"/\"\>",
9202   "\[InvisibleSpace]", "490", "\[InvisibleSpace]", "\<\" .\"\>"}],
9203  SequenceForm["    - Optimizing: ",
9204   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 490, " ."],
9205  Editable->False]], "Print",
9206 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9207  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9208  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9209  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9210  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9211  3.6539035112325172`*^9}],
9212
9213Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
9214 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9215  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9216  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9217  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9218  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9219  3.6539035180155497`*^9}],
9220
9221Cell[BoxData["\<\"Done!\"\>"], "Print",
9222 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9,
9223  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9,
9224  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9,
9225  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9,
9226  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9,
9227  3.653903524447064*^9}]
9228}, Open  ]],
9229
9230Cell[BoxData[
9231 RowBox[{"{",
9232  RowBox[{"203.816891`", ",", "Null"}], "}"}]], "Output",
9233 CellChangeTimes->{3.592660648743602*^9, 3.5927165596272*^9,
9234  3.594450178755789*^9, 3.5945626437675533`*^9, 3.5946415037213097`*^9,
9235  3.5963857895989923`*^9, 3.596386987366722*^9, 3.6031992709061737`*^9,
9236  3.60362352981682*^9, 3.6052650343153133`*^9, 3.605341148980257*^9,
9237  3.6053528285282497`*^9, 3.6053531411828413`*^9, 3.605406988735208*^9,
9238  3.605414175547304*^9, 3.605414611553437*^9, 3.605415418501418*^9,
9239  3.605416019504331*^9, 3.605419182945566*^9, 3.6539009472044897`*^9,
9240  3.6539035244576817`*^9}]
9241}, Open  ]]
9242}, Closed]]
9243}, Open  ]]
9244},
9245WindowSize->{1276, 756},
9246WindowMargins->{{0, Automatic}, {Automatic, 0}},
9247ShowSelection->True,
9248Magnification->1.25,
9249FrontEndVersion->"10.2 for Linux x86 (64-bit) (July 29, 2015)",
9250StyleDefinitions->"Default.nb"
9251]
9252(* End of Notebook Content *)
9253
9254(* Internal cache information *)
9255(*CellTagsOutline
9256CellTagsIndex->{}
9257*)
9258(*CellTagsIndex
9259CellTagsIndex->{}
9260*)
9261(*NotebookFileOutline
9262Notebook[{
9263Cell[CellGroupData[{
9264Cell[567, 22, 120, 1, 120, "Title"],
9265Cell[690, 25, 318, 5, 38, "Input"],
9266Cell[CellGroupData[{
9267Cell[1033, 34, 90, 1, 65, "Subtitle"],
9268Cell[CellGroupData[{
9269Cell[1148, 39, 1289, 22, 114, "Input"],
9270Cell[CellGroupData[{
9271Cell[2462, 65, 2512, 35, 28, "Print"],
9272Cell[4977, 102, 2793, 42, 28, "Print"],
9273Cell[7773, 146, 2566, 36, 28, "Print"],
9274Cell[10342, 184, 2498, 35, 28, "Print"],
9275Cell[12843, 221, 2511, 35, 28, "Print"],
9276Cell[15357, 258, 2563, 36, 28, "Print"],
9277Cell[17923, 296, 2561, 36, 28, "Print"],
9278Cell[20487, 334, 2500, 35, 28, "Print"],
9279Cell[22990, 371, 2528, 35, 28, "Print"],
9280Cell[25521, 408, 2498, 35, 28, "Print"],
9281Cell[28022, 445, 2565, 36, 28, "Print"],
9282Cell[30590, 483, 2537, 35, 28, "Print"],
9283Cell[33130, 520, 2504, 35, 28, "Print"],
9284Cell[35637, 557, 2509, 35, 28, "Print"],
9285Cell[38149, 594, 2508, 35, 28, "Print"],
9286Cell[40660, 631, 2643, 39, 28, "Print"],
9287Cell[43306, 672, 2545, 36, 28, "Print"],
9288Cell[45854, 710, 2545, 36, 28, "Print"],
9289Cell[48402, 748, 2496, 35, 28, "Print"],
9290Cell[50901, 785, 2529, 35, 28, "Print"],
9291Cell[53433, 822, 2532, 35, 28, "Print"],
9292Cell[55968, 859, 2528, 35, 28, "Print"],
9293Cell[58499, 896, 2689, 40, 52, "Print"]
9294}, Open  ]]
9295}, Open  ]],
9296Cell[CellGroupData[{
9297Cell[61237, 942, 186, 3, 38, "Input"],
9298Cell[CellGroupData[{
9299Cell[61448, 949, 1454, 24, 28, "Print"],
9300Cell[62905, 975, 978, 14, 28, "Print"]
9301}, Open  ]]
9302}, Open  ]],
9303Cell[CellGroupData[{
9304Cell[63932, 995, 403, 6, 38, "Input"],
9305Cell[CellGroupData[{
9306Cell[64360, 1005, 1395, 23, 28, "Print"],
9307Cell[65758, 1030, 925, 13, 28, "Print"]
9308}, Open  ]]
9309}, Open  ]],
9310Cell[CellGroupData[{
9311Cell[66732, 1049, 309, 4, 38, "Input"],
9312Cell[CellGroupData[{
9313Cell[67066, 1057, 1389, 23, 28, "Print"],
9314Cell[68458, 1082, 913, 13, 28, "Print"]
9315}, Open  ]]
9316}, Open  ]]
9317}, Open  ]],
9318Cell[CellGroupData[{
9319Cell[69432, 1102, 91, 1, 65, "Subtitle"],
9320Cell[CellGroupData[{
9321Cell[69548, 1107, 206, 4, 70, "Input"],
9322Cell[CellGroupData[{
9323Cell[69779, 1115, 228, 3, 50, "Print"],
9324Cell[70010, 1120, 224, 3, 50, "Print"],
9325Cell[70237, 1125, 419, 10, 50, "Print"],
9326Cell[70659, 1137, 174, 2, 50, "Print"],
9327Cell[70836, 1141, 356, 7, 50, "Print"],
9328Cell[71195, 1150, 206, 3, 50, "Print"],
9329Cell[71404, 1155, 167, 2, 50, "Print"],
9330Cell[71574, 1159, 287, 6, 50, "Print"],
9331Cell[71864, 1167, 175, 2, 50, "Print"]
9332}, Open  ]],
9333Cell[72054, 1172, 160, 3, 66, "Output"]
9334}, Open  ]],
9335Cell[CellGroupData[{
9336Cell[72251, 1180, 281, 5, 70, "Input"],
9337Cell[CellGroupData[{
9338Cell[72557, 1189, 446, 9, 50, "Print"],
9339Cell[73006, 1200, 223, 3, 50, "Print"],
9340Cell[73232, 1205, 496, 11, 50, "Print"],
9341Cell[73731, 1218, 482, 10, 50, "Print"],
9342Cell[74216, 1230, 502, 11, 50, "Print"],
9343Cell[74721, 1243, 218, 3, 50, "Print"],
9344Cell[74942, 1248, 259, 4, 50, "Print"]
9345}, Open  ]],
9346Cell[75216, 1255, 19123, 475, 1213, "Output"]
9347}, Open  ]]
9348}, Closed]],
9349Cell[CellGroupData[{
9350Cell[94388, 1736, 219, 3, 65, "Subtitle"],
9351Cell[CellGroupData[{
9352Cell[94632, 1743, 1167, 23, 64, "Input"],
9353Cell[CellGroupData[{
9354Cell[95824, 1770, 396, 6, 28, "Print"],
9355Cell[96223, 1778, 591, 11, 28, "Print"],
9356Cell[96817, 1791, 366, 5, 28, "Print"],
9357Cell[97186, 1798, 381, 5, 28, "Print"],
9358Cell[97570, 1805, 367, 5, 28, "Print"],
9359Cell[97940, 1812, 363, 5, 28, "Print"],
9360Cell[98306, 1819, 383, 5, 28, "Print"],
9361Cell[98692, 1826, 376, 5, 28, "Print"],
9362Cell[99071, 1833, 368, 5, 28, "Print"],
9363Cell[99442, 1840, 359, 5, 28, "Print"],
9364Cell[99804, 1847, 355, 5, 28, "Print"]
9365}, Open  ]],
9366Cell[100174, 1855, 386, 7, 38, "Output"]
9367}, Closed]],
9368Cell[CellGroupData[{
9369Cell[100597, 1867, 2275, 34, 56, "Input"],
9370Cell[CellGroupData[{
9371Cell[102897, 1905, 120, 1, 28, "Print"],
9372Cell[103020, 1908, 107, 1, 28, "Print"],
9373Cell[103130, 1911, 109, 1, 28, "Print"],
9374Cell[103242, 1914, 254, 6, 28, "Print"],
9375Cell[103499, 1922, 254, 6, 28, "Print"],
9376Cell[103756, 1930, 162, 2, 28, "Print"],
9377Cell[103921, 1934, 142, 2, 28, "Print"],
9378Cell[104066, 1938, 144, 2, 28, "Print"],
9379Cell[104213, 1942, 254, 6, 28, "Print"],
9380Cell[104470, 1950, 358, 9, 28, "Print"],
9381Cell[104831, 1961, 103, 1, 28, "Print"],
9382Cell[104937, 1964, 287, 6, 28, "Print"],
9383Cell[105227, 1972, 136, 2, 28, "Print"],
9384Cell[105366, 1976, 621, 13, 28, "Print"],
9385Cell[105990, 1991, 220, 5, 28, "Print"],
9386Cell[106213, 1998, 284, 6, 28, "Print"]
9387}, Open  ]]
9388}, Closed]],
9389Cell[CellGroupData[{
9390Cell[106546, 2010, 4909, 73, 81, "Input"],
9391Cell[CellGroupData[{
9392Cell[111480, 2087, 706, 10, 28, "Print"],
9393Cell[112189, 2099, 708, 10, 28, "Print"],
9394Cell[112900, 2111, 903, 15, 28, "Print"],
9395Cell[113806, 2128, 676, 9, 28, "Print"],
9396Cell[114485, 2139, 696, 9, 28, "Print"],
9397Cell[115184, 2150, 682, 9, 28, "Print"],
9398Cell[115869, 2161, 678, 9, 28, "Print"],
9399Cell[116550, 2172, 695, 9, 28, "Print"],
9400Cell[117248, 2183, 686, 9, 28, "Print"],
9401Cell[117937, 2194, 680, 9, 28, "Print"],
9402Cell[118620, 2205, 671, 9, 28, "Print"],
9403Cell[119294, 2216, 671, 9, 28, "Print"],
9404Cell[119968, 2227, 666, 9, 28, "Print"]
9405}, Open  ]],
9406Cell[120649, 2239, 497, 8, 38, "Output"]
9407}, Open  ]],
9408Cell[121161, 2250, 132, 2, 38, "Input"],
9409Cell[121296, 2254, 168, 4, 38, "Input"],
9410Cell[121467, 2260, 470, 11, 89, "Input"]
9411}, Closed]],
9412Cell[CellGroupData[{
9413Cell[121974, 2276, 114, 1, 65, "Subtitle"],
9414Cell[122091, 2279, 120, 2, 38, "Input"],
9415Cell[CellGroupData[{
9416Cell[122236, 2285, 595, 14, 139, "Input"],
9417Cell[CellGroupData[{
9418Cell[122856, 2303, 227, 4, 28, "Print"],
9419Cell[123086, 2309, 255, 4, 28, "Print"],
9420Cell[123344, 2315, 272, 4, 28, "Print"],
9421Cell[123619, 2321, 240, 4, 28, "Print"],
9422Cell[123862, 2327, 240, 4, 28, "Print"],
9423Cell[124105, 2333, 247, 4, 28, "Print"]
9424}, Open  ]]
9425}, Open  ]],
9426Cell[CellGroupData[{
9427Cell[124401, 2343, 954, 24, 89, "Input"],
9428Cell[CellGroupData[{
9429Cell[125380, 2371, 369, 9, 50, "Print"],
9430Cell[125752, 2382, 129, 2, 50, "Print"],
9431Cell[125884, 2386, 519, 12, 50, "Print"],
9432Cell[126406, 2400, 150, 2, 50, "Print"],
9433Cell[126559, 2404, 370, 8, 50, "Print"],
9434Cell[126932, 2414, 126, 2, 50, "Print"],
9435Cell[127061, 2418, 505, 11, 50, "Print"],
9436Cell[127569, 2431, 439, 9, 50, "Print"],
9437Cell[128011, 2442, 149, 2, 50, "Print"],
9438Cell[128163, 2446, 296, 7, 50, "Print"],
9439Cell[128462, 2455, 326, 7, 50, "Print"],
9440Cell[128791, 2464, 374, 8, 50, "Print"],
9441Cell[129168, 2474, 127, 2, 50, "Print"],
9442Cell[129298, 2478, 362, 8, 50, "Print"],
9443Cell[129663, 2488, 393, 8, 50, "Print"],
9444Cell[130059, 2498, 325, 7, 50, "Print"],
9445Cell[130387, 2507, 127, 2, 50, "Print"],
9446Cell[130517, 2511, 383, 9, 50, "Print"],
9447Cell[130903, 2522, 322, 7, 50, "Print"],
9448Cell[131228, 2531, 168, 2, 50, "Print"],
9449Cell[131399, 2535, 201, 3, 50, "Print"],
9450Cell[131603, 2540, 127, 2, 50, "Print"],
9451Cell[131733, 2544, 360, 8, 50, "Print"],
9452Cell[132096, 2554, 391, 8, 50, "Print"],
9453Cell[132490, 2564, 325, 7, 50, "Print"],
9454Cell[132818, 2573, 127, 2, 50, "Print"],
9455Cell[132948, 2577, 383, 9, 50, "Print"],
9456Cell[133334, 2588, 325, 7, 50, "Print"],
9457Cell[133662, 2597, 176, 3, 50, "Print"],
9458Cell[133841, 2602, 164, 2, 50, "Print"],
9459Cell[134008, 2606, 185, 3, 50, "Print"],
9460Cell[134196, 2611, 165, 2, 50, "Print"],
9461Cell[134364, 2615, 372, 9, 50, "Print"],
9462Cell[134739, 2626, 127, 2, 50, "Print"],
9463Cell[134869, 2630, 360, 8, 50, "Print"],
9464Cell[135232, 2640, 390, 8, 50, "Print"],
9465Cell[135625, 2650, 395, 8, 50, "Print"],
9466Cell[136023, 2660, 329, 7, 50, "Print"],
9467Cell[136355, 2669, 129, 2, 50, "Print"],
9468Cell[136487, 2673, 383, 9, 50, "Print"],
9469Cell[136873, 2684, 393, 8, 50, "Print"],
9470Cell[137269, 2694, 327, 7, 50, "Print"],
9471Cell[137599, 2703, 168, 2, 50, "Print"],
9472Cell[137770, 2707, 198, 3, 50, "Print"],
9473Cell[137971, 2712, 127, 2, 50, "Print"],
9474Cell[138101, 2716, 362, 8, 50, "Print"],
9475Cell[138466, 2726, 393, 8, 50, "Print"],
9476Cell[138862, 2736, 327, 7, 50, "Print"],
9477Cell[139192, 2745, 127, 2, 50, "Print"],
9478Cell[139322, 2749, 383, 9, 50, "Print"],
9479Cell[139708, 2760, 393, 8, 50, "Print"],
9480Cell[140104, 2770, 327, 7, 50, "Print"],
9481Cell[140434, 2779, 178, 3, 50, "Print"],
9482Cell[140615, 2784, 162, 2, 50, "Print"],
9483Cell[140780, 2788, 183, 3, 50, "Print"],
9484Cell[140966, 2793, 168, 2, 50, "Print"],
9485Cell[141137, 2797, 372, 9, 50, "Print"],
9486Cell[141512, 2808, 129, 2, 50, "Print"],
9487Cell[141644, 2812, 360, 8, 50, "Print"],
9488Cell[142007, 2822, 395, 8, 50, "Print"],
9489Cell[142405, 2832, 395, 8, 50, "Print"],
9490Cell[142803, 2842, 327, 7, 50, "Print"],
9491Cell[143133, 2851, 127, 2, 50, "Print"],
9492Cell[143263, 2855, 383, 9, 50, "Print"],
9493Cell[143649, 2866, 325, 7, 50, "Print"],
9494Cell[143977, 2875, 170, 2, 50, "Print"],
9495Cell[144150, 2879, 199, 3, 50, "Print"],
9496Cell[144352, 2884, 127, 2, 50, "Print"],
9497Cell[144482, 2888, 360, 8, 50, "Print"],
9498Cell[144845, 2898, 391, 8, 50, "Print"],
9499Cell[145239, 2908, 323, 7, 50, "Print"],
9500Cell[145565, 2917, 129, 2, 50, "Print"],
9501Cell[145697, 2921, 383, 9, 50, "Print"],
9502Cell[146083, 2932, 323, 7, 50, "Print"],
9503Cell[146409, 2941, 176, 3, 50, "Print"],
9504Cell[146588, 2946, 162, 2, 50, "Print"],
9505Cell[146753, 2950, 183, 3, 50, "Print"],
9506Cell[146939, 2955, 166, 2, 50, "Print"],
9507Cell[147108, 2959, 374, 9, 50, "Print"],
9508Cell[147485, 2970, 127, 2, 50, "Print"],
9509Cell[147615, 2974, 360, 8, 50, "Print"],
9510Cell[147978, 2984, 393, 8, 50, "Print"],
9511Cell[148374, 2994, 395, 8, 50, "Print"],
9512Cell[148772, 3004, 327, 7, 50, "Print"],
9513Cell[149102, 3013, 127, 2, 50, "Print"],
9514Cell[149232, 3017, 383, 9, 50, "Print"],
9515Cell[149618, 3028, 393, 8, 50, "Print"],
9516Cell[150014, 3038, 393, 8, 50, "Print"],
9517Cell[150410, 3048, 327, 7, 50, "Print"],
9518Cell[150740, 3057, 170, 2, 50, "Print"],
9519Cell[150913, 3061, 199, 3, 50, "Print"],
9520Cell[151115, 3066, 127, 2, 50, "Print"],
9521Cell[151245, 3070, 362, 8, 50, "Print"],
9522Cell[151610, 3080, 390, 8, 50, "Print"],
9523Cell[152003, 3090, 323, 7, 50, "Print"],
9524Cell[152329, 3099, 127, 2, 50, "Print"],
9525Cell[152459, 3103, 383, 9, 50, "Print"],
9526Cell[152845, 3114, 390, 8, 50, "Print"],
9527Cell[153238, 3124, 323, 7, 50, "Print"],
9528Cell[153564, 3133, 178, 3, 50, "Print"],
9529Cell[153745, 3138, 162, 2, 50, "Print"],
9530Cell[153910, 3142, 183, 3, 50, "Print"],
9531Cell[154096, 3147, 166, 2, 50, "Print"],
9532Cell[154265, 3151, 375, 9, 50, "Print"],
9533Cell[154643, 3162, 127, 2, 50, "Print"],
9534Cell[154773, 3166, 360, 8, 50, "Print"],
9535Cell[155136, 3176, 396, 8, 50, "Print"],
9536Cell[155535, 3186, 393, 8, 50, "Print"],
9537Cell[155931, 3196, 390, 8, 50, "Print"],
9538Cell[156324, 3206, 391, 8, 50, "Print"],
9539Cell[156718, 3216, 329, 7, 50, "Print"],
9540Cell[157050, 3225, 127, 2, 50, "Print"],
9541Cell[157180, 3229, 383, 9, 50, "Print"],
9542Cell[157566, 3240, 392, 8, 50, "Print"],
9543Cell[157961, 3250, 325, 7, 50, "Print"],
9544Cell[158289, 3259, 169, 2, 50, "Print"],
9545Cell[158461, 3263, 200, 3, 50, "Print"],
9546Cell[158664, 3268, 127, 2, 50, "Print"],
9547Cell[158794, 3272, 360, 8, 50, "Print"],
9548Cell[159157, 3282, 395, 8, 50, "Print"],
9549Cell[159555, 3292, 325, 7, 50, "Print"],
9550Cell[159883, 3301, 127, 2, 50, "Print"],
9551Cell[160013, 3305, 383, 9, 50, "Print"],
9552Cell[160399, 3316, 393, 8, 50, "Print"],
9553Cell[160795, 3326, 325, 7, 50, "Print"],
9554Cell[161123, 3335, 176, 3, 50, "Print"],
9555Cell[161302, 3340, 165, 2, 50, "Print"],
9556Cell[161470, 3344, 184, 3, 50, "Print"],
9557Cell[161657, 3349, 170, 2, 50, "Print"],
9558Cell[161830, 3353, 375, 9, 50, "Print"],
9559Cell[162208, 3364, 127, 2, 50, "Print"],
9560Cell[162338, 3368, 360, 8, 50, "Print"],
9561Cell[162701, 3378, 396, 8, 50, "Print"],
9562Cell[163100, 3388, 393, 8, 50, "Print"],
9563Cell[163496, 3398, 391, 8, 50, "Print"],
9564Cell[163890, 3408, 391, 8, 50, "Print"],
9565Cell[164284, 3418, 331, 7, 50, "Print"],
9566Cell[164618, 3427, 127, 2, 50, "Print"],
9567Cell[164748, 3431, 383, 9, 50, "Print"],
9568Cell[165134, 3442, 397, 8, 50, "Print"],
9569Cell[165534, 3452, 329, 7, 50, "Print"],
9570Cell[165866, 3461, 169, 2, 50, "Print"],
9571Cell[166038, 3465, 200, 3, 50, "Print"],
9572Cell[166241, 3470, 127, 2, 50, "Print"],
9573Cell[166371, 3474, 360, 8, 50, "Print"],
9574Cell[166734, 3484, 393, 8, 50, "Print"],
9575Cell[167130, 3494, 324, 7, 50, "Print"],
9576Cell[167457, 3503, 129, 2, 50, "Print"],
9577Cell[167589, 3507, 385, 9, 50, "Print"],
9578Cell[167977, 3518, 393, 8, 50, "Print"],
9579Cell[168373, 3528, 324, 7, 50, "Print"],
9580Cell[168700, 3537, 177, 3, 50, "Print"],
9581Cell[168880, 3542, 165, 2, 50, "Print"],
9582Cell[169048, 3546, 186, 3, 50, "Print"],
9583Cell[169237, 3551, 170, 2, 50, "Print"],
9584Cell[169410, 3555, 375, 9, 50, "Print"],
9585Cell[169788, 3566, 127, 2, 50, "Print"],
9586Cell[169918, 3570, 360, 8, 50, "Print"],
9587Cell[170281, 3580, 399, 8, 50, "Print"],
9588Cell[170683, 3590, 395, 8, 50, "Print"],
9589Cell[171081, 3600, 395, 8, 50, "Print"],
9590Cell[171479, 3610, 397, 8, 50, "Print"],
9591Cell[171879, 3620, 333, 7, 50, "Print"],
9592Cell[172215, 3629, 126, 2, 50, "Print"],
9593Cell[172344, 3633, 385, 9, 50, "Print"],
9594Cell[172732, 3644, 394, 8, 50, "Print"],
9595Cell[173129, 3654, 391, 8, 50, "Print"],
9596Cell[173523, 3664, 391, 8, 50, "Print"],
9597Cell[173917, 3674, 393, 8, 50, "Print"],
9598Cell[174313, 3684, 329, 7, 50, "Print"],
9599Cell[174645, 3693, 169, 2, 50, "Print"],
9600Cell[174817, 3697, 201, 3, 50, "Print"],
9601Cell[175021, 3702, 127, 2, 50, "Print"],
9602Cell[175151, 3706, 360, 8, 50, "Print"],
9603Cell[175514, 3716, 393, 8, 50, "Print"],
9604Cell[175910, 3726, 323, 7, 50, "Print"],
9605Cell[176236, 3735, 127, 2, 50, "Print"],
9606Cell[176366, 3739, 383, 9, 50, "Print"],
9607Cell[176752, 3750, 393, 8, 50, "Print"],
9608Cell[177148, 3760, 323, 7, 50, "Print"],
9609Cell[177474, 3769, 178, 3, 50, "Print"],
9610Cell[177655, 3774, 164, 2, 50, "Print"],
9611Cell[177822, 3778, 187, 3, 50, "Print"],
9612Cell[178012, 3783, 171, 2, 50, "Print"],
9613Cell[178186, 3787, 375, 9, 50, "Print"],
9614Cell[178564, 3798, 127, 2, 50, "Print"],
9615Cell[178694, 3802, 360, 8, 50, "Print"],
9616Cell[179057, 3812, 399, 8, 50, "Print"],
9617Cell[179459, 3822, 397, 8, 50, "Print"],
9618Cell[179859, 3832, 397, 8, 50, "Print"],
9619Cell[180259, 3842, 397, 8, 50, "Print"],
9620Cell[180659, 3852, 331, 7, 50, "Print"],
9621Cell[180993, 3861, 127, 2, 50, "Print"],
9622Cell[181123, 3865, 383, 9, 50, "Print"],
9623Cell[181509, 3876, 397, 8, 50, "Print"],
9624Cell[181909, 3886, 327, 7, 50, "Print"],
9625Cell[182239, 3895, 170, 2, 50, "Print"],
9626Cell[182412, 3899, 201, 3, 50, "Print"],
9627Cell[182616, 3904, 127, 2, 50, "Print"],
9628Cell[182746, 3908, 360, 8, 50, "Print"],
9629Cell[183109, 3918, 391, 8, 50, "Print"],
9630Cell[183503, 3928, 323, 7, 50, "Print"],
9631Cell[183829, 3937, 126, 2, 50, "Print"],
9632Cell[183958, 3941, 383, 9, 50, "Print"],
9633Cell[184344, 3952, 323, 7, 50, "Print"],
9634Cell[184670, 3961, 180, 3, 50, "Print"],
9635Cell[184853, 3966, 164, 2, 50, "Print"],
9636Cell[185020, 3970, 185, 3, 50, "Print"],
9637Cell[185208, 3975, 173, 2, 50, "Print"],
9638Cell[185384, 3979, 377, 9, 50, "Print"],
9639Cell[185764, 3990, 127, 2, 50, "Print"],
<