Sextets: Sextet.nb

File Sextet.nb, 101.8 KB (added by claudeduhr, 9 years ago)

Sample notebook

Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 7.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[    104046,       2509]
14NotebookOptionsPosition[    100233,       2389]
15NotebookOutlinePosition[    100594,       2405]
16CellTagsIndexPosition[    100551,       2402]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{
23  RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
24 CellChangeTimes->{{3.495369455058687*^9, 3.495369456928595*^9}, {
25  3.4958133741551027`*^9, 3.4958133747599497`*^9}}],
26
27Cell[CellGroupData[{
28
29Cell[BoxData[
30 RowBox[{"<<", "FeynRules`"}]], "Input",
31 CellChangeTimes->{{3.495369459185381*^9, 3.495369460912262*^9}}],
32
33Cell[CellGroupData[{
34
35Cell[BoxData[
36 FormBox["\<\" - FeynRules - \"\>", TraditionalForm]], "Print",
37 CellChangeTimes->{
38  3.495369465044273*^9, 3.495369565103653*^9, 3.495369719282302*^9,
39   3.4953709237006197`*^9, 3.495371093955085*^9, 3.495443390997191*^9,
40   3.495444263691083*^9, 3.4954445596614923`*^9, 3.495444759187796*^9,
41   3.4954454188407927`*^9, 3.495445505195261*^9, 3.495446709597004*^9,
42   3.495779213833374*^9, 3.495779483997839*^9, 3.495779771054697*^9,
43   3.49577980245525*^9, 3.495781062243129*^9, 3.495781127813439*^9,
44   3.4957815419391603`*^9, 3.495781646288892*^9, 3.495781706067037*^9,
45   3.495782912887094*^9, {3.4957829726833*^9, 3.495783000527513*^9},
46   3.495783053077829*^9, 3.4957831221371307`*^9, 3.4957831991594954`*^9,
47   3.4957832827439404`*^9, 3.495783365741477*^9, 3.495783445668517*^9,
48   3.495783606708887*^9, 3.495783798730877*^9, 3.495783977635207*^9,
49   3.495785169611311*^9, 3.495811532059881*^9, 3.495812485911758*^9,
50   3.4958129884657297`*^9, 3.495813122041049*^9, 3.495813172955858*^9,
51   3.495813379535005*^9, 3.495813679746801*^9}],
52
53Cell[BoxData[
54 FormBox["\<\"Authors: C. Duhr, N. Christensen, B. Fuks\"\>",
55  TraditionalForm]], "Print",
56 CellChangeTimes->{
57  3.495369465044273*^9, 3.495369565103653*^9, 3.495369719282302*^9,
58   3.4953709237006197`*^9, 3.495371093955085*^9, 3.495443390997191*^9,
59   3.495444263691083*^9, 3.4954445596614923`*^9, 3.495444759187796*^9,
60   3.4954454188407927`*^9, 3.495445505195261*^9, 3.495446709597004*^9,
61   3.495779213833374*^9, 3.495779483997839*^9, 3.495779771054697*^9,
62   3.49577980245525*^9, 3.495781062243129*^9, 3.495781127813439*^9,
63   3.4957815419391603`*^9, 3.495781646288892*^9, 3.495781706067037*^9,
64   3.495782912887094*^9, {3.4957829726833*^9, 3.495783000527513*^9},
65   3.495783053077829*^9, 3.4957831221371307`*^9, 3.4957831991594954`*^9,
66   3.4957832827439404`*^9, 3.495783365741477*^9, 3.495783445668517*^9,
67   3.495783606708887*^9, 3.495783798730877*^9, 3.495783977635207*^9,
68   3.495785169611311*^9, 3.495811532059881*^9, 3.495812485911758*^9,
69   3.4958129884657297`*^9, 3.495813122041049*^9, 3.495813172955858*^9,
70   3.495813379535005*^9, 3.4958136797496977`*^9}],
71
72Cell[BoxData[
73 FormBox["\<\" \"\>", TraditionalForm]], "Print",
74 CellChangeTimes->{
75  3.495369465044273*^9, 3.495369565103653*^9, 3.495369719282302*^9,
76   3.4953709237006197`*^9, 3.495371093955085*^9, 3.495443390997191*^9,
77   3.495444263691083*^9, 3.4954445596614923`*^9, 3.495444759187796*^9,
78   3.4954454188407927`*^9, 3.495445505195261*^9, 3.495446709597004*^9,
79   3.495779213833374*^9, 3.495779483997839*^9, 3.495779771054697*^9,
80   3.49577980245525*^9, 3.495781062243129*^9, 3.495781127813439*^9,
81   3.4957815419391603`*^9, 3.495781646288892*^9, 3.495781706067037*^9,
82   3.495782912887094*^9, {3.4957829726833*^9, 3.495783000527513*^9},
83   3.495783053077829*^9, 3.4957831221371307`*^9, 3.4957831991594954`*^9,
84   3.4957832827439404`*^9, 3.495783365741477*^9, 3.495783445668517*^9,
85   3.495783606708887*^9, 3.495783798730877*^9, 3.495783977635207*^9,
86   3.495785169611311*^9, 3.495811532059881*^9, 3.495812485911758*^9,
87   3.4958129884657297`*^9, 3.495813122041049*^9, 3.495813172955858*^9,
88   3.495813379535005*^9, 3.495813679753111*^9}],
89
90Cell[BoxData[
91 FormBox["\<\"Please cite: Comput.Phys.Commun.180:1614-1641,2009 \
92(arXiv:0806.4194).\"\>", TraditionalForm]], "Print",
93 CellChangeTimes->{
94  3.495369465044273*^9, 3.495369565103653*^9, 3.495369719282302*^9,
95   3.4953709237006197`*^9, 3.495371093955085*^9, 3.495443390997191*^9,
96   3.495444263691083*^9, 3.4954445596614923`*^9, 3.495444759187796*^9,
97   3.4954454188407927`*^9, 3.495445505195261*^9, 3.495446709597004*^9,
98   3.495779213833374*^9, 3.495779483997839*^9, 3.495779771054697*^9,
99   3.49577980245525*^9, 3.495781062243129*^9, 3.495781127813439*^9,
100   3.4957815419391603`*^9, 3.495781646288892*^9, 3.495781706067037*^9,
101   3.495782912887094*^9, {3.4957829726833*^9, 3.495783000527513*^9},
102   3.495783053077829*^9, 3.4957831221371307`*^9, 3.4957831991594954`*^9,
103   3.4957832827439404`*^9, 3.495783365741477*^9, 3.495783445668517*^9,
104   3.495783606708887*^9, 3.495783798730877*^9, 3.495783977635207*^9,
105   3.495785169611311*^9, 3.495811532059881*^9, 3.495812485911758*^9,
106   3.4958129884657297`*^9, 3.495813122041049*^9, 3.495813172955858*^9,
107   3.495813379535005*^9, 3.495813679756919*^9}],
108
109Cell[BoxData[
110 FormBox["\<\"http://feynrules.phys.ucl.ac.be\"\>", TraditionalForm]], "Print",\
111
112 CellChangeTimes->{
113  3.495369465044273*^9, 3.495369565103653*^9, 3.495369719282302*^9,
114   3.4953709237006197`*^9, 3.495371093955085*^9, 3.495443390997191*^9,
115   3.495444263691083*^9, 3.4954445596614923`*^9, 3.495444759187796*^9,
116   3.4954454188407927`*^9, 3.495445505195261*^9, 3.495446709597004*^9,
117   3.495779213833374*^9, 3.495779483997839*^9, 3.495779771054697*^9,
118   3.49577980245525*^9, 3.495781062243129*^9, 3.495781127813439*^9,
119   3.4957815419391603`*^9, 3.495781646288892*^9, 3.495781706067037*^9,
120   3.495782912887094*^9, {3.4957829726833*^9, 3.495783000527513*^9},
121   3.495783053077829*^9, 3.4957831221371307`*^9, 3.4957831991594954`*^9,
122   3.4957832827439404`*^9, 3.495783365741477*^9, 3.495783445668517*^9,
123   3.495783606708887*^9, 3.495783798730877*^9, 3.495783977635207*^9,
124   3.495785169611311*^9, 3.495811532059881*^9, 3.495812485911758*^9,
125   3.4958129884657297`*^9, 3.495813122041049*^9, 3.495813172955858*^9,
126   3.495813379535005*^9, 3.495813679760502*^9}],
127
128Cell[BoxData[
129 FormBox["\<\" \"\>", TraditionalForm]], "Print",
130 CellChangeTimes->{
131  3.495369465044273*^9, 3.495369565103653*^9, 3.495369719282302*^9,
132   3.4953709237006197`*^9, 3.495371093955085*^9, 3.495443390997191*^9,
133   3.495444263691083*^9, 3.4954445596614923`*^9, 3.495444759187796*^9,
134   3.4954454188407927`*^9, 3.495445505195261*^9, 3.495446709597004*^9,
135   3.495779213833374*^9, 3.495779483997839*^9, 3.495779771054697*^9,
136   3.49577980245525*^9, 3.495781062243129*^9, 3.495781127813439*^9,
137   3.4957815419391603`*^9, 3.495781646288892*^9, 3.495781706067037*^9,
138   3.495782912887094*^9, {3.4957829726833*^9, 3.495783000527513*^9},
139   3.495783053077829*^9, 3.4957831221371307`*^9, 3.4957831991594954`*^9,
140   3.4957832827439404`*^9, 3.495783365741477*^9, 3.495783445668517*^9,
141   3.495783606708887*^9, 3.495783798730877*^9, 3.495783977635207*^9,
142   3.495785169611311*^9, 3.495811532059881*^9, 3.495812485911758*^9,
143   3.4958129884657297`*^9, 3.495813122041049*^9, 3.495813172955858*^9,
144   3.495813379535005*^9, 3.495813679763853*^9}],
145
146Cell[BoxData[
147 FormBox["\<\"The FeynRules palette can be opened using the command \
148FRPalette[].\"\>", TraditionalForm]], "Print",
149 CellChangeTimes->{
150  3.495369465044273*^9, 3.495369565103653*^9, 3.495369719282302*^9,
151   3.4953709237006197`*^9, 3.495371093955085*^9, 3.495443390997191*^9,
152   3.495444263691083*^9, 3.4954445596614923`*^9, 3.495444759187796*^9,
153   3.4954454188407927`*^9, 3.495445505195261*^9, 3.495446709597004*^9,
154   3.495779213833374*^9, 3.495779483997839*^9, 3.495779771054697*^9,
155   3.49577980245525*^9, 3.495781062243129*^9, 3.495781127813439*^9,
156   3.4957815419391603`*^9, 3.495781646288892*^9, 3.495781706067037*^9,
157   3.495782912887094*^9, {3.4957829726833*^9, 3.495783000527513*^9},
158   3.495783053077829*^9, 3.4957831221371307`*^9, 3.4957831991594954`*^9,
159   3.4957832827439404`*^9, 3.495783365741477*^9, 3.495783445668517*^9,
160   3.495783606708887*^9, 3.495783798730877*^9, 3.495783977635207*^9,
161   3.495785169611311*^9, 3.495811532059881*^9, 3.495812485911758*^9,
162   3.4958129884657297`*^9, 3.495813122041049*^9, 3.495813172955858*^9,
163   3.495813379535005*^9, 3.495813679767398*^9}]
164}, Open  ]]
165}, Open  ]],
166
167Cell[BoxData[
168 RowBox[{
169  RowBox[{"SetDirectory", "[",
170   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/Sextet\>\""}], "]"}],
171  ";"}]], "Input",
172 CellChangeTimes->{{3.495369475708454*^9, 3.4953694925693502`*^9}}],
173
174Cell[CellGroupData[{
175
176Cell[BoxData[
177 RowBox[{"LoadModel", "[",
178  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<Sextet.fr\>\""}], "]"}]], "Input",
179 CellChangeTimes->{{3.495369494406619*^9, 3.4953695033050833`*^9}}],
180
181Cell[CellGroupData[{
182
183Cell[BoxData[
184 FormBox["\<\"Merging model-files...\"\>", TraditionalForm]], "Print",
185 CellChangeTimes->{
186  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
187   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
188   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
189   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
190   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
191   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
192   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
193   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
194   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
195   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
196   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
197   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
198   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
199   3.4958136819169607`*^9}],
200
201Cell[BoxData[
202 FormBox["\<\"This model implementation was created by\"\>",
203  TraditionalForm]], "Print",
204 CellChangeTimes->{
205  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
206   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
207   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
208   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
209   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
210   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
211   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
212   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
213   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
214   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
215   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
216   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
217   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
218   3.495813681919383*^9}],
219
220Cell[BoxData[
221 FormBox["\<\"N. Christensen\"\>", TraditionalForm]], "Print",
222 CellChangeTimes->{
223  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
224   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
225   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
226   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
227   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
228   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
229   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
230   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
231   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
232   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
233   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
234   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
235   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
236   3.49581368192279*^9}],
237
238Cell[BoxData[
239 FormBox["\<\"C. Duhr\"\>", TraditionalForm]], "Print",
240 CellChangeTimes->{
241  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
242   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
243   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
244   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
245   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
246   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
247   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
248   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
249   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
250   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
251   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
252   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
253   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
254   3.495813681926126*^9}],
255
256Cell[BoxData[
257 FormBox[
258  InterpretationBox[
259   RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.1\"\>"}],
260   SequenceForm["Model Version: ", "1.1"],
261   Editable->False], TraditionalForm]], "Print",
262 CellChangeTimes->{
263  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
264   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
265   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
266   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
267   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
268   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
269   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
270   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
271   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
272   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
273   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
274   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
275   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
276   3.495813681929603*^9}],
277
278Cell[BoxData[
279 FormBox["\<\"http://feynrules.phys.ucl.ac.be/view/Main/StandardModel\"\>",
280  TraditionalForm]], "Print",
281 CellChangeTimes->{
282  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
283   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
284   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
285   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
286   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
287   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
288   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
289   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
290   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
291   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
292   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
293   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
294   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
295   3.495813681933169*^9}],
296
297Cell[BoxData[
298 FormBox["\<\"For more information, type ModelInformation[].\"\>",
299  TraditionalForm]], "Print",
300 CellChangeTimes->{
301  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
302   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
303   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
304   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
305   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
306   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
307   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
308   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
309   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
310   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
311   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
312   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
313   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
314   3.4958136819365673`*^9}],
315
316Cell[BoxData[
317 FormBox["\<\"\"\>", TraditionalForm]], "Print",
318 CellChangeTimes->{
319  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
320   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
321   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
322   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
323   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
324   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
325   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
326   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
327   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
328   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
329   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
330   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
331   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
332   3.495813681939865*^9}],
333
334Cell[BoxData[
335 FormBox["\<\"   - Loading particle classes.\"\>", TraditionalForm]], "Print",\
336
337 CellChangeTimes->{
338  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
339   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
340   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
341   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
342   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
343   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
344   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
345   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
346   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
347   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
348   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
349   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
350   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
351   3.495813681943191*^9}],
352
353Cell[BoxData[
354 FormBox["\<\"   - Loading gauge group classes.\"\>",
355  TraditionalForm]], "Print",
356 CellChangeTimes->{
357  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
358   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
359   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
360   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
361   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
362   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
363   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
364   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
365   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
366   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
367   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
368   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
369   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
370   3.495813682036067*^9}],
371
372Cell[BoxData[
373 FormBox["\<\"   - Loading parameter classes.\"\>", TraditionalForm]], "Print",\
374
375 CellChangeTimes->{
376  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
377   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
378   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
379   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
380   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
381   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
382   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
383   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
384   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
385   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
386   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
387   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
388   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
389   3.4958136820394783`*^9}],
390
391Cell[BoxData[
392 FormBox[
393  InterpretationBox[
394   RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"Sextet_SM\"\>",
395    "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
396   SequenceForm["\nModel ", "Sextet_SM", " loaded."],
397   Editable->False], TraditionalForm]], "Print",
398 CellChangeTimes->{
399  3.49536950385542*^9, 3.495369567240787*^9, 3.4953697204545937`*^9,
400   3.4953709250104017`*^9, 3.495371096175661*^9, 3.495443392098531*^9,
401   3.4954442652945223`*^9, 3.495444762057621*^9, 3.49544542238013*^9,
402   3.495445517229332*^9, 3.4954467124337883`*^9, 3.4957792170736217`*^9,
403   3.495779485168453*^9, 3.4957797721744537`*^9, 3.495779803558044*^9,
404   3.495781064446455*^9, 3.4957811326882153`*^9, 3.4957815440437098`*^9,
405   3.495781647396924*^9, 3.495781707158553*^9, 3.495782915461142*^9, {
406   3.495782973810111*^9, 3.495783001613867*^9}, 3.495783054188274*^9,
407   3.4957831232453403`*^9, 3.495783200946645*^9, 3.495783283812957*^9,
408   3.4957833681319847`*^9, 3.495783446779708*^9, 3.495783607811487*^9,
409   3.4957837998192472`*^9, 3.495783981037923*^9, 3.4957851716987143`*^9,
410   3.4958115331788187`*^9, 3.495812487564533*^9, 3.495812991283291*^9,
411   3.495813123048154*^9, 3.495813174000462*^9, 3.49581338050709*^9,
412   3.4958136820936747`*^9}]
413}, Open  ]]
414}, Open  ]],
415
416Cell[CellGroupData[{
417
418Cell[BoxData[
419 RowBox[{"LoadRestriction", "[",
420  RowBox[{
421  "\"\<Massless.rst\>\"", ",", "\"\<DiagonalCKM.rst\>\"", ",",
422   "\"\<ZeroValues.rst\>\""}], "]"}]], "Input",
423 CellChangeTimes->{{3.495785173096965*^9, 3.495785227853292*^9}}],
424
425Cell[CellGroupData[{
426
427Cell[BoxData[
428 FormBox[
429  InterpretationBox[
430   RowBox[{"\<\"Loading restrictions from \"\>",
431    "\[InvisibleSpace]", "\<\"Massless.rst\"\>",
432    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
433    DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, TraditionalForm],
434     ImageSizeCache->{6., {1., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
435    "\[InvisibleSpace]", "8"}],
436   SequenceForm["Loading restrictions from ", "Massless.rst", " : ",
437    Dynamic[PRIVATE`FR$restrictionCounter], " / ", 8],
438   Editable->False], TraditionalForm]], "Print",
439 CellChangeTimes->{3.495785228874618*^9, 3.495811534081831*^9,
440  3.49581248855068*^9, 3.49581299245319*^9, 3.495813123444086*^9,
441  3.4958131751098957`*^9, 3.4958133817728157`*^9, 3.495813683086968*^9}],
442
443Cell[BoxData[
444 FormBox[
445  InterpretationBox[
446   RowBox[{"\<\"Loading restrictions from \"\>",
447    "\[InvisibleSpace]", "\<\"DiagonalCKM.rst\"\>",
448    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
449    DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, TraditionalForm],
450     ImageSizeCache->{6., {1., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
451    "\[InvisibleSpace]", "3"}],
452   SequenceForm["Loading restrictions from ", "DiagonalCKM.rst", " : ",
453    Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
454   Editable->False], TraditionalForm]], "Print",
455 CellChangeTimes->{3.495785228874618*^9, 3.495811534081831*^9,
456  3.49581248855068*^9, 3.49581299245319*^9, 3.495813123444086*^9,
457  3.4958131751098957`*^9, 3.4958133817728157`*^9, 3.495813683118651*^9}],
458
459Cell[BoxData[
460 FormBox[
461  InterpretationBox[
462   RowBox[{"\<\"Loading restrictions from \"\>",
463    "\[InvisibleSpace]", "\<\"ZeroValues.rst\"\>",
464    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
465    DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, TraditionalForm],
466     ImageSizeCache->{6., {1., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
467    "\[InvisibleSpace]", "9"}],
468   SequenceForm["Loading restrictions from ", "ZeroValues.rst", " : ",
469    Dynamic[PRIVATE`FR$restrictionCounter], " / ", 9],
470   Editable->False], TraditionalForm]], "Print",
471 CellChangeTimes->{3.495785228874618*^9, 3.495811534081831*^9,
472  3.49581248855068*^9, 3.49581299245319*^9, 3.495813123444086*^9,
473  3.4958131751098957`*^9, 3.4958133817728157`*^9, 3.495813683122712*^9}],
474
475Cell[BoxData[
476 FormBox["\<\"Restrictions loaded.\"\>", TraditionalForm]], "Print",
477 CellChangeTimes->{3.495785228874618*^9, 3.495811534081831*^9,
478  3.49581248855068*^9, 3.49581299245319*^9, 3.495813123444086*^9,
479  3.4958131751098957`*^9, 3.4958133817728157`*^9, 3.495813683125965*^9}]
480}, Open  ]]
481}, Open  ]],
482
483Cell[CellGroupData[{
484
485Cell[BoxData[
486 RowBox[{"LSextet", "=",
487  RowBox[{
488   RowBox[{
489    RowBox[{"DC", "[",
490     RowBox[{
491      RowBox[{"sixbar", "[", "i", "]"}], ",", "mu"}], "]"}],
492    RowBox[{"DC", "[",
493     RowBox[{
494      RowBox[{"six", "[", "i", "]"}], ",", "mu"}], "]"}]}], "+",
495   RowBox[{
496    RowBox[{"uusix", "/", "2"}], " ",
497    RowBox[{
498     RowBox[{
499      RowBox[{"CC", "[", "ubar", "]"}], "[",
500      RowBox[{"s", ",", "i"}], "]"}], ".",
501     RowBox[{"u", "[",
502      RowBox[{"s", ",", "j"}], "]"}]}],
503    RowBox[{"six", "[", "k", "]"}],
504    RowBox[{"K6", "[",
505     RowBox[{"k", ",", "i", ",", "j"}], "]"}]}], "+",
506   RowBox[{
507    RowBox[{"ttsix", "/", "2"}], " ",
508    RowBox[{
509     RowBox[{
510      RowBox[{"CC", "[", "tbar", "]"}], "[",
511      RowBox[{"s", ",", "i"}], "]"}], ".",
512     RowBox[{"t", "[",
513      RowBox[{"s", ",", "j"}], "]"}]}],
514    RowBox[{"six", "[", "k", "]"}],
515    RowBox[{"K6", "[",
516     RowBox[{"k", ",", "i", ",", "j"}], "]"}]}], "+", "\[IndentingNewLine]",
517   RowBox[{
518    RowBox[{"uusix", "/", "2"}], " ",
519    RowBox[{
520     RowBox[{"ubar", "[",
521      RowBox[{"s", ",", "i"}], "]"}], ".",
522     RowBox[{
523      RowBox[{"CC", "[", "u", "]"}], "[",
524      RowBox[{"s", ",", "j"}], "]"}]}],
525    RowBox[{"sixbar", "[", "k", "]"}],
526    RowBox[{"K6", "[",
527     RowBox[{"k", ",", "i", ",", "j"}], "]"}]}], "+", "\[IndentingNewLine]",
528   RowBox[{
529    RowBox[{"ttsix", "/", "2"}], " ",
530    RowBox[{
531     RowBox[{"tbar", "[",
532      RowBox[{"s", ",", "i"}], "]"}], ".",
533     RowBox[{
534      RowBox[{"CC", "[", "t", "]"}], "[",
535      RowBox[{"s", ",", "j"}], "]"}]}],
536    RowBox[{"sixbar", "[", "k", "]"}],
537    RowBox[{"K6", "[",
538     RowBox[{"k", ",", "i", ",", "j"}], "]"}]}]}]}]], "Input",
539 CellChangeTimes->{{3.49536973215243*^9, 3.495369872380535*^9}, {
540   3.495371118589108*^9, 3.495371124054573*^9}, 3.4953711654904413`*^9, {
541   3.4953712120786667`*^9, 3.495371277445951*^9}, {3.495434229435349*^9,
542   3.495434285933909*^9}, {3.4954448365053673`*^9, 3.495444838734578*^9}, {
543   3.49577949009298*^9, 3.495779495796677*^9}, {3.495783805835925*^9,
544   3.495783806034451*^9}}],
545
546Cell[BoxData[
547 FormBox[
548  RowBox[{
549   RowBox[{
550    FractionBox["1", "2"], " ", "ttsix", " ",
551    FormBox[
552     SubsuperscriptBox["six", "k", "\[Dagger]"],
553     TraditionalForm], " ",
554    RowBox[{"K6", "(",
555     RowBox[{"k", ",", "i", ",", "j"}], ")"}], " ",
556    RowBox[{
557     FormBox[
558      SubscriptBox[
559       OverscriptBox["t", "\<\"-\"\>"],
560       RowBox[{"s", ",", "i"}]],
561      TraditionalForm], ".",
562     FormBox[
563      SubsuperscriptBox["t",
564       RowBox[{"s", ",", "j"}], "C"],
565      TraditionalForm]}]}], "+",
566   RowBox[{
567    FractionBox["1", "2"], " ", "ttsix", " ",
568    FormBox[
569     SubscriptBox["six", "k"],
570     TraditionalForm], " ",
571    RowBox[{"K6", "(",
572     RowBox[{"k", ",", "i", ",", "j"}], ")"}], " ",
573    RowBox[{
574     FormBox[
575      SubsuperscriptBox[
576       FormBox[
577        OverscriptBox["t", "\<\"-\"\>"],
578        TraditionalForm],
579       RowBox[{"s", ",", "i"}], "C"],
580      TraditionalForm], ".",
581     FormBox[
582      SubscriptBox["t",
583       RowBox[{"s", ",", "j"}]],
584      TraditionalForm]}]}], "+",
585   RowBox[{
586    FractionBox["1", "2"], " ", "uusix", " ",
587    FormBox[
588     SubsuperscriptBox["six", "k", "\[Dagger]"],
589     TraditionalForm], " ",
590    RowBox[{"K6", "(",
591     RowBox[{"k", ",", "i", ",", "j"}], ")"}], " ",
592    RowBox[{
593     FormBox[
594      SubscriptBox[
595       OverscriptBox["u", "\<\"-\"\>"],
596       RowBox[{"s", ",", "i"}]],
597      TraditionalForm], ".",
598     FormBox[
599      SubsuperscriptBox["u",
600       RowBox[{"s", ",", "j"}], "C"],
601      TraditionalForm]}]}], "+",
602   RowBox[{
603    FractionBox["1", "2"], " ", "uusix", " ",
604    FormBox[
605     SubscriptBox["six", "k"],
606     TraditionalForm], " ",
607    RowBox[{"K6", "(",
608     RowBox[{"k", ",", "i", ",", "j"}], ")"}], " ",
609    RowBox[{
610     FormBox[
611      SubsuperscriptBox[
612       FormBox[
613        OverscriptBox["u", "\<\"-\"\>"],
614        TraditionalForm],
615       RowBox[{"s", ",", "i"}], "C"],
616      TraditionalForm], ".",
617     FormBox[
618      SubscriptBox["u",
619       RowBox[{"s", ",", "j"}]],
620      TraditionalForm]}]}], "+",
621   RowBox[{
622    RowBox[{"(",
623     RowBox[{
624      FormBox[
625       RowBox[{
626        SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "(",
627        FormBox[
628         SubscriptBox["six", "i"],
629         TraditionalForm], ")"}],
630       TraditionalForm], "-",
631      RowBox[{"\[ImaginaryI]", " ",
632       FormBox[
633        SubscriptBox["g", "s"],
634        TraditionalForm], " ",
635       FormBox[
636        SubscriptBox["six", "j$681"],
637        TraditionalForm], " ",
638       FormBox[
639        SubscriptBox["G",
640         RowBox[{"mu", ",", "c$681"}]],
641        TraditionalForm], " ",
642       RowBox[{"T6", "(",
643        RowBox[{"c$681", ",", "i", ",", "j$681"}], ")"}]}]}], ")"}], " ",
644    RowBox[{"(",
645     RowBox[{
646      FormBox[
647       RowBox[{
648        SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "(",
649        FormBox[
650         SubsuperscriptBox["six", "i", "\[Dagger]"],
651         TraditionalForm], ")"}],
652       TraditionalForm], "+",
653      RowBox[{"\[ImaginaryI]", " ",
654       FormBox[
655        SubscriptBox["g", "s"],
656        TraditionalForm], " ",
657       FormBox[
658        SubsuperscriptBox["six", "j$679", "\[Dagger]"],
659        TraditionalForm], " ",
660       FormBox[
661        SubscriptBox["G",
662         RowBox[{"mu", ",", "c$679"}]],
663        TraditionalForm], " ",
664       RowBox[{"T6", "(",
665        RowBox[{"c$679", ",", "j$679", ",", "i"}], ")"}]}]}], ")"}]}]}],
666  TraditionalForm]], "Output",
667 CellChangeTimes->{
668  3.495369874261788*^9, 3.4953709293450737`*^9, {3.495371099430848*^9,
669   3.4953711245402718`*^9}, 3.495371166255877*^9, {3.495371216450162*^9,
670   3.495371277881527*^9}, 3.495433912443224*^9, 3.49543420047342*^9, {
671   3.49543423674918*^9, 3.495434286663164*^9}, 3.495443398863435*^9,
672   3.495444268467724*^9, 3.4954447673025093`*^9, 3.495444841788241*^9,
673   3.495445428427196*^9, 3.49544551867085*^9, 3.4954467135388737`*^9,
674   3.4957792190804768`*^9, 3.49577977334733*^9, 3.495779804944035*^9,
675   3.495781065451275*^9, 3.495781133927836*^9, 3.49578154520086*^9,
676   3.49578164864396*^9, 3.495781708476811*^9, 3.495782916664057*^9, {
677   3.495782974809868*^9, 3.495783002858028*^9}, 3.495783055285345*^9,
678   3.495783124245389*^9, 3.495783202070951*^9, 3.495783284527994*^9,
679   3.495783369367811*^9, 3.495783448810553*^9, 3.49578360909193*^9,
680   3.495783806563366*^9, 3.495783982024556*^9, 3.495785231093638*^9,
681   3.495811534884233*^9, 3.495812489338758*^9, 3.495812994223948*^9,
682   3.49581312372723*^9, 3.495813175877131*^9, 3.495813382590067*^9,
683   3.495813684253376*^9}]
684}, Open  ]],
685
686Cell[CellGroupData[{
687
688Cell[BoxData[
689 RowBox[{"ReadLHAFile", "[",
690  RowBox[{"Input", "\[Rule]", "\"\<param_card.dat\>\""}], "]"}]], "Input",
691 CellChangeTimes->{{3.495785256096118*^9, 3.495785281703566*^9}}],
692
693Cell[BoxData[
694 FormBox[
695  InterpretationBox[
696   RowBox[{"\<\"Parameters updated from \"\>",
697    "\[InvisibleSpace]", "\<\"param_card.dat\"\>"}],
698   SequenceForm["Parameters updated from ", "param_card.dat"],
699   Editable->False], TraditionalForm]], "Print", "PrintUsage",
700 CellChangeTimes->{{3.495785267453621*^9, 3.495785282371509*^9},
701   3.495811537714981*^9, 3.495812492151078*^9, 3.495813011401041*^9,
702   3.4958131245063477`*^9, 3.495813176842493*^9, 3.4958133835221767`*^9,
703   3.4958136859369783`*^9}]
704}, Open  ]],
705
706Cell[CellGroupData[{
707
708Cell[BoxData[
709 RowBox[{"WriteUFO", "[",
710  RowBox[{"LSM", "+", "LSextet"}], "]"}]], "Input",
711 CellChangeTimes->{{3.495437121243226*^9, 3.4954371285067873`*^9}, {
712   3.4954371660178003`*^9, 3.4954371799919252`*^9}, {3.495437361930818*^9,
713   3.495437411530768*^9}, 3.495437478673005*^9, {3.49544428267721*^9,
714   3.495444285251169*^9}, {3.495451791474296*^9, 3.4954518092702837`*^9}, {
715   3.495779226633061*^9, 3.4957792310088043`*^9}, {3.495781079347262*^9,
716   3.495781079786295*^9}, {3.495785404529043*^9, 3.4957854051036243`*^9}}],
717
718Cell[CellGroupData[{
719
720Cell[BoxData[
721 FormBox["\<\" --- Universal FeynRules Output (UFO) v 0.1 ---\"\>",
722  TraditionalForm]], "Print",
723 CellChangeTimes->{
724  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
725   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
726   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
727   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
728   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
729   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
730   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
731   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
732   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
733   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
734   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
735   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
736   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
737   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
738   3.4958136867407207`*^9}],
739
740Cell[BoxData[
741 FormBox["\<\"Starting Feynman rule calculation.\"\>",
742  TraditionalForm]], "Print",
743 CellChangeTimes->{
744  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
745   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
746   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
747   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
748   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
749   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
750   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
751   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
752   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
753   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
754   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
755   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
756   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
757   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
758   3.495813686793461*^9}],
759
760Cell[BoxData[
761 FormBox["\<\"Expanding indices...\"\>", TraditionalForm]], "Print",
762 CellChangeTimes->{
763  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
764   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
765   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
766   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
767   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
768   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
769   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
770   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
771   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
772   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
773   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
774   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
775   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
776   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
777   3.495813686841886*^9}],
778
779Cell[BoxData[
780 FormBox["\<\"Collecting the different structures that enter the \
781vertex...\"\>", TraditionalForm]], "Print",
782 CellChangeTimes->{
783  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
784   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
785   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
786   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
787   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
788   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
789   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
790   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
791   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
792   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
793   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
794   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
795   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
796   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
797   3.495813688388077*^9}],
798
799Cell[BoxData[
800 FormBox[
801  InterpretationBox[
802   RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"36\"\>",
803    "\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
804   SequenceForm["Found ", "36", " possible non zero vertices."],
805   Editable->False], TraditionalForm]], "Print",
806 CellChangeTimes->{
807  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
808   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
809   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
810   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
811   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
812   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
813   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
814   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
815   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
816   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
817   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
818   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
819   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
820   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
821   3.495813688490993*^9}],
822
823Cell[BoxData[
824 FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
825 CellChangeTimes->{
826  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
827   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
828   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
829   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
830   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
831   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
832   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
833   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
834   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
835   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
836   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
837   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
838   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
839   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
840   3.495813688509098*^9}],
841
842Cell[BoxData[
843 FormBox[
844  ProgressIndicatorBox[Dynamic[PRIVATE`progress$971]],
845  TraditionalForm]], "Print",
846 CellChangeTimes->{
847  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
848   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
849   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
850   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
851   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
852   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
853   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
854   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
855   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
856   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
857   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
858   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
859   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
860   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
861   3.495813688527935*^9}],
862
863Cell[BoxData[
864 FormBox["\<\"Entering new thing\"\>", TraditionalForm]], "Print",
865 CellChangeTimes->{
866  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
867   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
868   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
869   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
870   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
871   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
872   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
873   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
874   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
875   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
876   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
877   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
878   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
879   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
880   3.495813690633162*^9}],
881
882Cell[BoxData[
883 FormBox[
884  InterpretationBox[
885   RowBox[{"36", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
886   SequenceForm[36, " vertices obtained."],
887   Editable->False], TraditionalForm]], "Print",
888 CellChangeTimes->{
889  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
890   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
891   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
892   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
893   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
894   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
895   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
896   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
897   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
898   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
899   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
900   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
901   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
902   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
903   3.495813690830257*^9}],
904
905Cell[BoxData[
906 FormBox["\<\"Before\"\>", TraditionalForm]], "Print",
907 CellChangeTimes->{
908  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
909   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
910   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
911   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
912   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
913   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
914   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
915   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
916   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
917   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
918   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
919   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
920   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
921   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
922   3.495813690867323*^9}],
923
924Cell[BoxData[
925 FormBox["\<\"merging\"\>", TraditionalForm]], "Print",
926 CellChangeTimes->{
927  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
928   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
929   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
930   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
931   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
932   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
933   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
934   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
935   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
936   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
937   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
938   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
939   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
940   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
941   3.4958136908926497`*^9}],
942
943Cell[BoxData[
944 FormBox["\<\"symetry factors\"\>", TraditionalForm]], "Print",
945 CellChangeTimes->{
946  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
947   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
948   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
949   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
950   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
951   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
952   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
953   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
954   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
955   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
956   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
957   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
958   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
959   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
960   3.495813690913457*^9}],
961
962Cell[BoxData[
963 FormBox["\<\"FlavExp\"\>", TraditionalForm]], "Print",
964 CellChangeTimes->{
965  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
966   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
967   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
968   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
969   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
970   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
971   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
972   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
973   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
974   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
975   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
976   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
977   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
978   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
979   3.4958136909313507`*^9}],
980
981Cell[BoxData[
982 FormBox["\<\"    PerformIndexSumInVertex\"\>", TraditionalForm]], "Print",
983 CellChangeTimes->{
984  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
985   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
986   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
987   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
988   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
989   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
990   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
991   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
992   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
993   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
994   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
995   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
996   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
997   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
998   3.495813690964406*^9}],
999
1000Cell[BoxData[
1001 FormBox["\<\"    CreateISUMAbbr\"\>", TraditionalForm]], "Print",
1002 CellChangeTimes->{
1003  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1004   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1005   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1006   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1007   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1008   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1009   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1010   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1011   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1012   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1013   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1014   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1015   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1016   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1017   3.495813691388638*^9}],
1018
1019Cell[BoxData[
1020 FormBox["\<\"    Expand\"\>", TraditionalForm]], "Print",
1021 CellChangeTimes->{
1022  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1023   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1024   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1025   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1026   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1027   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1028   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1029   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1030   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1031   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1032   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1033   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1034   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1035   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1036   3.4958136914065533`*^9}],
1037
1038Cell[BoxData[
1039 FormBox["\<\"merging\"\>", TraditionalForm]], "Print",
1040 CellChangeTimes->{
1041  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1042   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1043   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1044   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1045   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1046   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1047   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1048   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1049   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1050   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1051   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1052   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1053   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1054   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1055   3.495813691804233*^9}],
1056
1057Cell[BoxData[
1058 FormBox["\<\"After\"\>", TraditionalForm]], "Print",
1059 CellChangeTimes->{
1060  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1061   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1062   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1063   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1064   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1065   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1066   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1067   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1068   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1069   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1070   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1071   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1072   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1073   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1074   3.495813691836153*^9}],
1075
1076Cell[BoxData[
1077 FormBox["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>",
1078  TraditionalForm]], "Print",
1079 CellChangeTimes->{
1080  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1081   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1082   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1083   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1084   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1085   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1086   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1087   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1088   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1089   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1090   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1091   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1092   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1093   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1094   3.495813691860846*^9}],
1095
1096Cell[BoxData[
1097 FormBox["\<\"Preparing Python output.\"\>", TraditionalForm]], "Print",
1098 CellChangeTimes->{
1099  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1100   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1101   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1102   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1103   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1104   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1105   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1106   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1107   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1108   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1109   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1110   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1111   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1112   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1113   3.49581369187864*^9}],
1114
1115Cell[BoxData[
1116 FormBox["\<\"    - Splitting vertices into building blocks.\"\>",
1117  TraditionalForm]], "Print",
1118 CellChangeTimes->{
1119  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1120   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1121   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1122   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1123   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1124   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1125   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1126   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1127   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1128   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1129   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1130   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1131   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1132   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1133   3.495813691898341*^9}],
1134
1135Cell[BoxData[
1136 FormBox[
1137  InterpretationBox[
1138   RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
1139    DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, TraditionalForm],
1140     ImageSizeCache->{12., {1., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>",
1141    "\[InvisibleSpace]", "62", "\[InvisibleSpace]", "\<\" .\"\>"}],
1142   SequenceForm["    - Optimizing: ",
1143    Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 62, " ."],
1144   Editable->False], TraditionalForm]], "Print",
1145 CellChangeTimes->{
1146  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1147   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1148   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1149   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1150   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1151   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1152   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1153   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1154   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1155   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1156   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1157   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1158   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1159   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1160   3.495813692113863*^9}],
1161
1162Cell[BoxData[
1163 FormBox[
1164  RowBox[{"C$K6", "(",
1165   RowBox[{
1166    RowBox[{"Index", "(",
1167     RowBox[{"PRIVATE`AntiSextet", ",",
1168      RowBox[{"Ext", "(", "3", ")"}]}], ")"}], ",",
1169    RowBox[{"Index", "(",
1170     RowBox[{"PRIVATE`AntiColour", ",",
1171      RowBox[{"Ext", "(", "1", ")"}]}], ")"}], ",",
1172    RowBox[{"Index", "(",
1173     RowBox[{"PRIVATE`AntiColour", ",",
1174      RowBox[{"Ext", "(", "2", ")"}]}], ")"}]}], ")"}],
1175  TraditionalForm]], "Print",
1176 CellChangeTimes->{
1177  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1178   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1179   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1180   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1181   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1182   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1183   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1184   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1185   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1186   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1187   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1188   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1189   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1190   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1191   3.495813692167633*^9}],
1192
1193Cell[BoxData[
1194 FormBox[
1195  RowBox[{"C$K6", "(",
1196   RowBox[{
1197    RowBox[{"Index", "(",
1198     RowBox[{"PRIVATE`AntiSextet", ",",
1199      RowBox[{"Ext", "(", "3", ")"}]}], ")"}], ",",
1200    RowBox[{"Index", "(",
1201     RowBox[{"PRIVATE`AntiColour", ",",
1202      RowBox[{"Ext", "(", "1", ")"}]}], ")"}], ",",
1203    RowBox[{"Index", "(",
1204     RowBox[{"PRIVATE`AntiColour", ",",
1205      RowBox[{"Ext", "(", "2", ")"}]}], ")"}]}], ")"}],
1206  TraditionalForm]], "Print",
1207 CellChangeTimes->{
1208  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1209   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1210   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1211   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1212   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1213   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1214   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1215   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1216   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1217   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1218   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1219   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1220   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1221   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1222   3.495813692185087*^9}],
1223
1224Cell[BoxData[
1225 FormBox[
1226  RowBox[{"C$K6", "(",
1227   RowBox[{
1228    RowBox[{"Index", "(",
1229     RowBox[{"PRIVATE`SSextet", ",",
1230      RowBox[{"Ext", "(", "3", ")"}]}], ")"}], ",",
1231    RowBox[{"Index", "(",
1232     RowBox[{"PRIVATE`CColour", ",",
1233      RowBox[{"Ext", "(", "1", ")"}]}], ")"}], ",",
1234    RowBox[{"Index", "(",
1235     RowBox[{"PRIVATE`CColour", ",",
1236      RowBox[{"Ext", "(", "2", ")"}]}], ")"}]}], ")"}],
1237  TraditionalForm]], "Print",
1238 CellChangeTimes->{
1239  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1240   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1241   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1242   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1243   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1244   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1245   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1246   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1247   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1248   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1249   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1250   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1251   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1252   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1253   3.495813692215082*^9}],
1254
1255Cell[BoxData[
1256 FormBox[
1257  RowBox[{"C$K6", "(",
1258   RowBox[{
1259    RowBox[{"Index", "(",
1260     RowBox[{"PRIVATE`SSextet", ",",
1261      RowBox[{"Ext", "(", "3", ")"}]}], ")"}], ",",
1262    RowBox[{"Index", "(",
1263     RowBox[{"PRIVATE`CColour", ",",
1264      RowBox[{"Ext", "(", "1", ")"}]}], ")"}], ",",
1265    RowBox[{"Index", "(",
1266     RowBox[{"PRIVATE`CColour", ",",
1267      RowBox[{"Ext", "(", "2", ")"}]}], ")"}]}], ")"}],
1268  TraditionalForm]], "Print",
1269 CellChangeTimes->{
1270  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1271   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1272   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1273   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1274   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1275   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1276   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1277   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1278   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1279   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1280   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1281   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1282   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1283   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1284   3.495813692244025*^9}],
1285
1286Cell[BoxData[
1287 FormBox["\<\"    - Writing files.\"\>", TraditionalForm]], "Print",
1288 CellChangeTimes->{
1289  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1290   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1291   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1292   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1293   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1294   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1295   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1296   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1297   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1298   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1299   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1300   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1301   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1302   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1303   3.495813692265387*^9}],
1304
1305Cell[BoxData[
1306 FormBox["\<\"Done!\"\>", TraditionalForm]], "Print",
1307 CellChangeTimes->{
1308  3.49543713402015*^9, {3.495437167570236*^9, 3.495437180623756*^9}, {
1309   3.495437366205234*^9, 3.495437382831349*^9}, 3.495437479569343*^9,
1310   3.495443405569812*^9, 3.4954442435755777`*^9, 3.4954442861034927`*^9,
1311   3.495444790046136*^9, 3.495444851575056*^9, 3.495445436902974*^9,
1312   3.495445521522584*^9, 3.495446716528502*^9, 3.4957792346848*^9,
1313   3.4957798089688597`*^9, 3.495781080306109*^9, 3.495781145726996*^9,
1314   3.495781552690209*^9, 3.495781651897097*^9, 3.495781711760847*^9,
1315   3.495782920082993*^9, {3.4957829787762213`*^9, 3.495783005602077*^9},
1316   3.495783065062666*^9, 3.495783128263069*^9, 3.4957832059372997`*^9,
1317   3.4957832882355967`*^9, 3.495783373805168*^9, 3.4957834543173447`*^9,
1318   3.495783613036682*^9, 3.495783808630974*^9, 3.4957839840256453`*^9,
1319   3.495785233146963*^9, 3.495785286697397*^9, 3.4957854077081537`*^9,
1320   3.4958115856766567`*^9, 3.4958124938947887`*^9, 3.495813015406852*^9,
1321   3.495813125217476*^9, 3.495813178233304*^9, 3.495813384224846*^9,
1322   3.49581369228181*^9}]
1323}, Open  ]]
1324}, Open  ]],
1325
1326Cell[CellGroupData[{
1327
1328Cell[BoxData["M$ModelName"], "Input",
1329 CellChangeTimes->{{3.495444339511352*^9, 3.495444341227701*^9}}],
1330
1331Cell[BoxData[
1332 FormBox["\<\"Standard Model\"\>", TraditionalForm]], "Output",
1333 CellChangeTimes->{3.495444341732151*^9}]
1334}, Open  ]],
1335
1336Cell[CellGroupData[{
1337
1338Cell[BoxData["PRIVATE`$VERTICES2"], "Input",
1339 CellChangeTimes->{{3.495437482288952*^9, 3.495437502296234*^9},
1340   3.4957829821762533`*^9}],
1341
1342Cell[BoxData[
1343 FormBox[
1344  RowBox[{"(", "\[NoBreak]", GridBox[{
1345     {
1346      RowBox[{"(", "\[NoBreak]", GridBox[{
1347         {
1348          FormBox[
1349           OverscriptBox["t", "\<\"-\"\>"],
1350           TraditionalForm], "1"},
1351         {
1352          FormBox[
1353           OverscriptBox["t", "\<\"-\"\>"],
1354           TraditionalForm], "2"},
1355         {
1356          FormBox[
1357           SuperscriptBox["six", "\[Dagger]"],
1358           TraditionalForm], "3"}
1359        },
1360        GridBoxAlignment->{
1361         "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
1362          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
1363        GridBoxSpacings->{"Columns" -> {
1364            Offset[0.27999999999999997`], {
1365             Offset[0.7]},
1366            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
1367          "Rows" -> {
1368            Offset[0.2], {
1369             Offset[0.4]},
1370            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1371      RowBox[{"{",
1372       RowBox[{
1373        RowBox[{"C$K6Bar", "(",
1374         RowBox[{
1375          FormBox[
1376           SubscriptBox["\<\"t\"\>", "3"],
1377           TraditionalForm], ",",
1378          FormBox[
1379           SubscriptBox["\<\"i\"\>", "1"],
1380           TraditionalForm], ",",
1381          FormBox[
1382           SubscriptBox["\<\"i\"\>", "2"],
1383           TraditionalForm]}], ")"}], ",", "\<\"FFS1\"\>",
1384        ",", "\<\"GC_3\"\>"}], "}"}]},
1385     {
1386      RowBox[{"(", "\[NoBreak]", GridBox[{
1387         {
1388          FormBox[
1389           OverscriptBox["u", "\<\"-\"\>"],
1390           TraditionalForm], "1"},
1391         {
1392          FormBox[
1393           OverscriptBox["u", "\<\"-\"\>"],
1394           TraditionalForm], "2"},
1395         {
1396          FormBox[
1397           SuperscriptBox["six", "\[Dagger]"],
1398           TraditionalForm], "3"}
1399        },
1400        GridBoxAlignment->{
1401         "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
1402          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
1403        GridBoxSpacings->{"Columns" -> {
1404            Offset[0.27999999999999997`], {
1405             Offset[0.7]},
1406            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
1407          "Rows" -> {
1408            Offset[0.2], {
1409             Offset[0.4]},
1410            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1411      RowBox[{"{",
1412       RowBox[{
1413        RowBox[{"C$K6Bar", "(",
1414         RowBox[{
1415          FormBox[
1416           SubscriptBox["\<\"t\"\>", "3"],
1417           TraditionalForm], ",",
1418          FormBox[
1419           SubscriptBox["\<\"i\"\>", "1"],
1420           TraditionalForm], ",",
1421          FormBox[
1422           SubscriptBox["\<\"i\"\>", "2"],
1423           TraditionalForm]}], ")"}], ",", "\<\"FFS1\"\>",
1424        ",", "\<\"GC_4\"\>"}], "}"}]},
1425     {
1426      RowBox[{"(", "\[NoBreak]", GridBox[{
1427         {"t", "1"},
1428         {"t", "2"},
1429         {"six", "3"}
1430        },
1431        GridBoxAlignment->{
1432         "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
1433          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
1434        GridBoxSpacings->{"Columns" -> {
1435            Offset[0.27999999999999997`], {
1436             Offset[0.7]},
1437            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
1438          "Rows" -> {
1439            Offset[0.2], {
1440             Offset[0.4]},
1441            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1442      RowBox[{"{",
1443       RowBox[{
1444        RowBox[{"C$K6", "(",
1445         RowBox[{
1446          FormBox[
1447           SubscriptBox["\<\"t\"\>", "3"],
1448           TraditionalForm], ",",
1449          FormBox[
1450           SubscriptBox["\<\"i\"\>", "1"],
1451           TraditionalForm], ",",
1452          FormBox[
1453           SubscriptBox["\<\"i\"\>", "2"],
1454           TraditionalForm]}], ")"}], ",", "\<\"FFS1\"\>",
1455        ",", "\<\"GC_3\"\>"}], "}"}]},
1456     {
1457      RowBox[{"(", "\[NoBreak]", GridBox[{
1458         {"u", "1"},
1459         {"u", "2"},
1460         {"six", "3"}
1461        },
1462        GridBoxAlignment->{
1463         "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
1464          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
1465        GridBoxSpacings->{"Columns" -> {
1466            Offset[0.27999999999999997`], {
1467             Offset[0.7]},
1468            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
1469          "Rows" -> {
1470            Offset[0.2], {
1471             Offset[0.4]},
1472            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1473      RowBox[{"{",
1474       RowBox[{
1475        RowBox[{"C$K6", "(",
1476         RowBox[{
1477          FormBox[
1478           SubscriptBox["\<\"t\"\>", "3"],
1479           TraditionalForm], ",",
1480          FormBox[
1481           SubscriptBox["\<\"i\"\>", "1"],
1482           TraditionalForm], ",",
1483          FormBox[
1484           SubscriptBox["\<\"i\"\>", "2"],
1485           TraditionalForm]}], ")"}], ",", "\<\"FFS1\"\>",
1486        ",", "\<\"GC_4\"\>"}], "}"}]},
1487     {
1488      RowBox[{"(", "\[NoBreak]", GridBox[{
1489         {"G", "1"},
1490         {
1491          FormBox[
1492           SuperscriptBox["six", "\[Dagger]"],
1493           TraditionalForm], "2"},
1494         {"six", "3"}
1495        },
1496        GridBoxAlignment->{
1497         "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
1498          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
1499        GridBoxSpacings->{"Columns" -> {
1500            Offset[0.27999999999999997`], {
1501             Offset[0.7]},
1502            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
1503          "Rows" -> {
1504            Offset[0.2], {
1505             Offset[0.4]},
1506            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1507      RowBox[{"{",
1508       RowBox[{
1509        RowBox[{"C$T6", "(",
1510         RowBox[{
1511          FormBox[
1512           SubscriptBox["\<\"a\"\>", "1"],
1513           TraditionalForm], ",",
1514          FormBox[
1515           SubscriptBox["\<\"t\"\>", "3"],
1516           TraditionalForm], ",",
1517          FormBox[
1518           SubscriptBox["\<\"t\"\>", "2"],
1519           TraditionalForm]}], ")"}], ",", "\<\"VSS1\"\>",
1520        ",", "\<\"GC_1\"\>"}], "}"}]},
1521     {
1522      RowBox[{"(", "\[NoBreak]", GridBox[{
1523         {"G", "1"},
1524         {"G", "2"},
1525         {
1526          FormBox[
1527           SuperscriptBox["six", "\[Dagger]"],
1528           TraditionalForm], "3"},
1529         {"six", "4"}
1530        },
1531        GridBoxAlignment->{
1532         "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
1533          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
1534        GridBoxSpacings->{"Columns" -> {
1535            Offset[0.27999999999999997`], {
1536             Offset[0.7]},
1537            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
1538          "Rows" -> {
1539            Offset[0.2], {
1540             Offset[0.4]},
1541            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1542      RowBox[{"{",
1543       RowBox[{
1544        RowBox[{
1545         RowBox[{
1546          RowBox[{"C$T6", "(",
1547           RowBox[{
1548            FormBox[
1549             SubscriptBox["\<\"a\"\>", "1"],
1550             TraditionalForm], ",",
1551            FormBox[
1552             RowBox[{"Int", "(", "1", ")"}],
1553             TraditionalForm], ",",
1554            FormBox[
1555             SubscriptBox["\<\"t\"\>", "3"],
1556             TraditionalForm]}], ")"}], " ",
1557          RowBox[{"C$T6", "(",
1558           RowBox[{
1559            FormBox[
1560             SubscriptBox["\<\"a\"\>", "2"],
1561             TraditionalForm], ",",
1562            FormBox[
1563             SubscriptBox["\<\"t\"\>", "4"],
1564             TraditionalForm], ",",
1565            FormBox[
1566             RowBox[{"Int", "(", "1", ")"}],
1567             TraditionalForm]}], ")"}]}], "+",
1568         RowBox[{
1569          RowBox[{"C$T6", "(",
1570           RowBox[{
1571            FormBox[
1572             SubscriptBox["\<\"a\"\>", "1"],
1573             TraditionalForm], ",",
1574            FormBox[
1575             SubscriptBox["\<\"t\"\>", "4"],
1576             TraditionalForm], ",",
1577            FormBox[
1578             RowBox[{"Int", "(", "1", ")"}],
1579             TraditionalForm]}], ")"}], " ",
1580          RowBox[{"C$T6", "(",
1581           RowBox[{
1582            FormBox[
1583             SubscriptBox["\<\"a\"\>", "2"],
1584             TraditionalForm], ",",
1585            FormBox[
1586             RowBox[{"Int", "(", "1", ")"}],
1587             TraditionalForm], ",",
1588            FormBox[
1589             SubscriptBox["\<\"t\"\>", "3"],
1590             TraditionalForm]}], ")"}]}]}], ",", "\<\"VVSS1\"\>",
1591        ",", "\<\"GC_2\"\>"}], "}"}]}
1592    },
1593    GridBoxAlignment->{
1594     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1595      "RowsIndexed" -> {}},
1596    GridBoxSpacings->{"Columns" -> {
1597        Offset[0.27999999999999997`], {
1598         Offset[0.7]},
1599        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1600        Offset[0.2], {
1601         Offset[0.4]},
1602        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1603  TraditionalForm]], "Output",
1604 CellChangeTimes->{
1605  3.495437503090715*^9, 3.495781584210788*^9, 3.495781658292471*^9,
1606   3.495782948963092*^9, {3.495782982382642*^9, 3.495783008757634*^9},
1607   3.495783069003756*^9, 3.495783137362979*^9, 3.495783735614304*^9,
1608   3.495783812270317*^9}]
1609}, Open  ]],
1610
1611Cell[CellGroupData[{
1612
1613Cell[BoxData[
1614 RowBox[{"PythonForm", "[",
1615  RowBox[{"C$K6Bar", "[",
1616   RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}]], "Input",
1617 CellChangeTimes->{{3.495783826354177*^9, 3.495783834953644*^9}}],
1618
1619Cell[BoxData[
1620 FormBox["\<\"K6Bar(i,j,k)\"\>", TraditionalForm]], "Output",
1621 CellChangeTimes->{3.495783835405116*^9}]
1622}, Open  ]],
1623
1624Cell[BoxData[""], "Input",
1625 CellChangeTimes->{{3.4957838387568913`*^9, 3.4957838396440372`*^9}}],
1626
1627Cell[BoxData[
1628 RowBox[{"Clear", "[", "K6", "]"}]], "Input",
1629 CellChangeTimes->{{3.4954340302826853`*^9, 3.495434032557542*^9}}],
1630
1631Cell[CellGroupData[{
1632
1633Cell[BoxData[
1634 RowBox[{"PRIVATE`$TensIndRules", "=",
1635  RowBox[{"Join", "[",
1636   RowBox[{"PRIVATE`$TensIndRules", ",",
1637    RowBox[{"{",
1638     RowBox[{
1639      RowBox[{
1640       RowBox[{"K6", "[",
1641        RowBox[{
1642         RowBox[{"Except", "[",
1643          RowBox[{
1644           RowBox[{"Index", "[", "__", "]"}], ",", "a_"}], "]"}], ",",
1645         "bs__"}], "]"}], "\[RuleDelayed]",
1646       RowBox[{"K6", "[",
1647        RowBox[{
1648         RowBox[{"Index", "[",
1649          RowBox[{"Sextet", ",", "a"}], "]"}], ",", "bs"}], "]"}]}], ",",
1650      RowBox[{
1651       RowBox[{"K6", "[",
1652        RowBox[{"a_", ",",
1653         RowBox[{"Except", "[",
1654          RowBox[{
1655           RowBox[{"Index", "[", "__", "]"}], ",", "b_"}], "]"}], ",", "c_"}],
1656         "]"}], "\[RuleDelayed]",
1657       RowBox[{"K6", "[",
1658        RowBox[{"a", ",",
1659         RowBox[{"Index", "[",
1660          RowBox[{"Colour", ",", "b"}], "]"}], ",", "c"}], "]"}]}], ",",
1661      RowBox[{
1662       RowBox[{"K6", "[",
1663        RowBox[{"a_", ",", "b_", ",",
1664         RowBox[{"Except", "[",
1665          RowBox[{
1666           RowBox[{"Index", "[", "__", "]"}], ",", "c_"}], "]"}]}], "]"}],
1667       "\[RuleDelayed]",
1668       RowBox[{"K6", "[",
1669        RowBox[{"a", ",", "b", ",",
1670         RowBox[{"Index", "[",
1671          RowBox[{"Colour", ",", "c"}], "]"}]}], "]"}]}]}], "}"}]}],
1672   "]"}]}]], "Input",
1673 CellChangeTimes->{{3.495433935414794*^9, 3.495433945081647*^9}, {
1674  3.495434004129034*^9, 3.495434184321805*^9}}],
1675
1676Cell[BoxData[
1677 FormBox[
1678  RowBox[{"{",
1679   RowBox[{
1680    RowBox[{
1681     FormBox[
1682      SuperscriptBox["\[Gamma]",
1683       RowBox[{"mu_", "?",
1684        RowBox[{"(",
1685         RowBox[{
1686          RowBox[{
1687           RowBox[{"FreeQ", "[",
1688            RowBox[{"#1", ",", "Index"}], "]"}], "\[And]",
1689           RowBox[{"#1", "=!=", "5"}]}], "&"}], ")"}]}]],
1690      TraditionalForm], "\[RuleDelayed]",
1691     FormBox[
1692      SuperscriptBox["\[Gamma]",
1693       FormBox["mu",
1694        TraditionalForm]],
1695      TraditionalForm]}], ",",
1696    RowBox[{
1697     RowBox[{"Ga", "(",
1698      RowBox[{
1699       RowBox[{"mu_", "?",
1700        RowBox[{"(",
1701         RowBox[{
1702          RowBox[{
1703           RowBox[{"FreeQ", "[",
1704            RowBox[{"#1", ",", "Index"}], "]"}], "\[And]",
1705           RowBox[{"#1", "=!=", "5"}]}], "&"}], ")"}]}], ",", "r_"}], ")"}],
1706     "\[RuleDelayed]",
1707     RowBox[{"Ga", "(",
1708      RowBox[{
1709       FormBox["mu",
1710        TraditionalForm], ",", "r"}], ")"}]}], ",",
1711    RowBox[{
1712     RowBox[{"Ga", "(",
1713      RowBox[{"mu_", ",",
1714       RowBox[{"Except", "[",
1715        RowBox[{
1716         RowBox[{"Index", "(", "___", ")"}], ",", "r_"}], "]"}]}], ")"}],
1717     "\[RuleDelayed]",
1718     RowBox[{"Ga", "(",
1719      RowBox[{"mu", ",",
1720       FormBox["r",
1721        TraditionalForm]}], ")"}]}], ",",
1722    RowBox[{
1723     FormBox[
1724      SubsuperscriptBox["\[Gamma]",
1725       RowBox[{"r_", ",", "s_"}],
1726       RowBox[{"mu_", "?",
1727        RowBox[{"(",
1728         RowBox[{
1729          RowBox[{
1730           RowBox[{"FreeQ", "[",
1731            RowBox[{"#1", ",", "Index"}], "]"}], "\[And]",
1732           RowBox[{"#1", "=!=", "5"}]}], "&"}], ")"}]}]],
1733      TraditionalForm], "\[RuleDelayed]",
1734     FormBox[
1735      SubsuperscriptBox["\[Gamma]",
1736       RowBox[{"r", ",", "s"}],
1737       FormBox["mu",
1738        TraditionalForm]],
1739      TraditionalForm]}], ",",
1740    RowBox[{
1741     FormBox[
1742      SubsuperscriptBox["\[Gamma]",
1743       RowBox[{
1744        RowBox[{"Except", "[",
1745         RowBox[{
1746          RowBox[{"Index", "(", "___", ")"}], ",", "r_"}], "]"}], ",", "s_"}],
1747        "mu_"],
1748      TraditionalForm], "\[RuleDelayed]",
1749     FormBox[
1750      SubsuperscriptBox["\[Gamma]",
1751       RowBox[{
1752        FormBox["r",
1753         TraditionalForm], ",", "s"}], "mu"],
1754      TraditionalForm]}], ",",
1755    RowBox[{
1756     FormBox[
1757      SubsuperscriptBox["\[Gamma]",
1758       RowBox[{"r_", ",",
1759        RowBox[{"Except", "[",
1760         RowBox[{
1761          RowBox[{"Index", "(", "___", ")"}], ",", "s_"}], "]"}]}], "mu_"],
1762      TraditionalForm], "\[RuleDelayed]",
1763     FormBox[
1764      SubsuperscriptBox["\[Gamma]",
1765       RowBox[{"r", ",",
1766        FormBox["s",
1767         TraditionalForm]}], "mu"],
1768      TraditionalForm]}], ",",
1769    RowBox[{
1770     RowBox[{"GaAlgebra", "(",
1771      RowBox[{"mu___", ",",
1772       RowBox[{"nu_", "?",
1773        RowBox[{"(",
1774         RowBox[{
1775          RowBox[{
1776           RowBox[{"FreeQ", "[",
1777            RowBox[{"#1", ",", "Index"}], "]"}], "\[And]",
1778           RowBox[{"#1", "\[NotEqual]", "5"}]}], "&"}], ")"}]}], ",",
1779       "PRIVATE`rho___", ",", "r_", ",", "s_"}], ")"}], "\[RuleDelayed]",
1780     RowBox[{"GaAlgebra", "(",
1781      RowBox[{"mu", ",",
1782       FormBox["nu",
1783        TraditionalForm], ",", "PRIVATE`rho", ",", "r", ",", "s"}], ")"}]}],
1784    ",",
1785    RowBox[{
1786     FormBox[
1787      SubsuperscriptBox["\[Gamma]",
1788       RowBox[{
1789        RowBox[{"Except", "[",
1790         RowBox[{
1791          RowBox[{"Index", "(", "___", ")"}], ",", "r_"}], "]"}], ",", "s_"}],
1792        "mu___"],
1793      TraditionalForm], "\[RuleDelayed]",
1794     FormBox[
1795      SubsuperscriptBox["\[Gamma]",
1796       RowBox[{
1797        FormBox["r",
1798         TraditionalForm], ",", "s"}], "mu"],
1799      TraditionalForm]}], ",",
1800    RowBox[{
1801     FormBox[
1802      SubsuperscriptBox["\[Gamma]",
1803       RowBox[{"r_", ",",
1804        RowBox[{"Except", "[",
1805         RowBox[{
1806          RowBox[{"Index", "(", "___", ")"}], ",", "s_"}], "]"}]}], "mu___"],
1807      TraditionalForm], "\[RuleDelayed]",
1808     FormBox[
1809      SubsuperscriptBox["\[Gamma]",
1810       RowBox[{"r", ",",
1811        FormBox["s",
1812         TraditionalForm]}], "mu"],
1813      TraditionalForm]}], ",",
1814    RowBox[{
1815     FormBox[
1816      SubscriptBox[
1817       RowBox[{"(",
1818        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1819       RowBox[{"Except", "[",
1820        RowBox[{
1821         RowBox[{"Index", "(", "___", ")"}], ",", "mu_"}], "]"}]],
1822      TraditionalForm], "\[RuleDelayed]",
1823     FormBox[
1824      SubscriptBox[
1825       RowBox[{"(",
1826        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1827       FormBox["mu",
1828        TraditionalForm]],
1829      TraditionalForm]}], ",",
1830    RowBox[{
1831     FormBox[
1832      SubscriptBox[
1833       RowBox[{"(",
1834        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1835       RowBox[{
1836        RowBox[{"Except", "[",
1837         RowBox[{
1838          RowBox[{"Index", "(", "___", ")"}], ",", "r_"}], "]"}], ",", "s_"}]],
1839      TraditionalForm], "\[RuleDelayed]",
1840     FormBox[
1841      SubscriptBox[
1842       RowBox[{"(",
1843        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1844       RowBox[{
1845        FormBox["r",
1846         TraditionalForm], ",", "s"}]],
1847      TraditionalForm]}], ",",
1848    RowBox[{
1849     FormBox[
1850      SubscriptBox[
1851       RowBox[{"(",
1852        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1853       RowBox[{"r_", ",",
1854        RowBox[{"Except", "[",
1855         RowBox[{
1856          RowBox[{"Index", "(", "___", ")"}], ",", "s_"}], "]"}]}]],
1857      TraditionalForm], "\[RuleDelayed]",
1858     FormBox[
1859      SubscriptBox[
1860       RowBox[{"(",
1861        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1862       RowBox[{"r", ",",
1863        FormBox["s",
1864         TraditionalForm]}]],
1865      TraditionalForm]}], ",",
1866    RowBox[{
1867     FormBox[
1868      SubscriptBox[
1869       RowBox[{"(",
1870        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1871       RowBox[{
1872        RowBox[{"Except", "[",
1873         RowBox[{
1874          RowBox[{"Index", "(", "___", ")"}], ",", "mu_"}], "]"}], ",", "r_",
1875        ",", "s_"}]],
1876      TraditionalForm], "\[RuleDelayed]",
1877     FormBox[
1878      SubscriptBox[
1879       RowBox[{"(",
1880        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1881       RowBox[{
1882        FormBox["mu",
1883         TraditionalForm], ",", "r", ",", "s"}]],
1884      TraditionalForm]}], ",",
1885    RowBox[{
1886     FormBox[
1887      SubscriptBox[
1888       RowBox[{"(",
1889        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1890       RowBox[{"mu_", ",",
1891        RowBox[{"Except", "[",
1892         RowBox[{
1893          RowBox[{"Index", "(", "___", ")"}], ",", "r_"}], "]"}], ",", "s_"}]],
1894      TraditionalForm], "\[RuleDelayed]",
1895     FormBox[
1896      SubscriptBox[
1897       RowBox[{"(",
1898        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1899       RowBox[{"mu", ",",
1900        FormBox["r",
1901         TraditionalForm], ",", "s"}]],
1902      TraditionalForm]}], ",",
1903    RowBox[{
1904     FormBox[
1905      SubscriptBox[
1906       RowBox[{"(",
1907        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1908       RowBox[{"mu_", ",", "r_", ",",
1909        RowBox[{"Except", "[",
1910         RowBox[{
1911          RowBox[{"Index", "(", "___", ")"}], ",", "s_"}], "]"}]}]],
1912      TraditionalForm], "\[RuleDelayed]",
1913     FormBox[
1914      SubscriptBox[
1915       RowBox[{"(",
1916        SubscriptBox["P", "\<\"+\"\>"], ")"}],
1917       RowBox[{"mu", ",", "r", ",",
1918        FormBox["s",
1919         TraditionalForm]}]],
1920      TraditionalForm]}], ",",
1921    RowBox[{
1922     FormBox[
1923      SubscriptBox[
1924       RowBox[{"(",
1925        SubscriptBox["P", "\<\"-\"\>"], ")"}],
1926       RowBox[{"Except", "[",
1927        RowBox[{
1928         RowBox[{"Index", "(", "___", ")"}], ",", "mu_"}], "]"}]],
1929      TraditionalForm], "\[RuleDelayed]",
1930     FormBox[
1931      SubscriptBox[
1932       RowBox[{"(",
1933        SubscriptBox["P", "\<\"-\"\>"], ")"}],
1934       FormBox["mu",
1935        TraditionalForm]],
1936      TraditionalForm]}], ",",
1937    RowBox[{
1938     FormBox[
1939      SubscriptBox[
1940       RowBox[{"(",
1941        SubscriptBox["P", "\<\"-\"\>"], ")"}],
1942       RowBox[{
1943        RowBox[{"Except", "[",
1944         RowBox[{
1945          RowBox[{"Index", "(", "___", ")"}], ",", "r_"}], "]"}], ",", "s_"}]],
1946      TraditionalForm], "\[RuleDelayed]",
1947     FormBox[
1948      SubscriptBox[
1949       RowBox[{"(",
1950        SubscriptBox["P", "\<\"-\"\>"], ")"}],
1951       RowBox[{
1952        FormBox["r",
1953         TraditionalForm], ",", "s"}]],
1954      TraditionalForm]}], ",",
1955    RowBox[{
1956     FormBox[
1957      SubscriptBox[
1958       RowBox[{"(",
1959        SubscriptBox["P", "\<\"-\"\>"], ")"}],
1960       RowBox[{"r_", ",",
1961        RowBox[{"Except", "[",
1962         RowBox[{
1963          RowBox[{"Index", "(", "___", ")"}], ",", "s_"}], "]"}]}]],
1964      TraditionalForm], "\[RuleDelayed]",
1965     FormBox[
1966      SubscriptBox[
1967       RowBox[{"(",
1968        SubscriptBox["P", "\<\"-\"\>"], ")"}],
1969       RowBox[{"r", ",",
1970        FormBox["s",
1971         TraditionalForm]}]],
1972      TraditionalForm]}], ",",
1973    RowBox[{
1974     FormBox[
1975      SubscriptBox[
1976       RowBox[{"(",
1977        SubscriptBox["P", "\<\"-\"\>"], ")"}],
1978       RowBox[{
1979        RowBox[{"Except", "[",
1980         RowBox[{
1981          RowBox[{"Index", "(", "___", ")"}], ",", "mu_"}], "]"}], ",", "r_",
1982        ",", "s_"}]],
1983      TraditionalForm], "\[RuleDelayed]",
1984     FormBox[
1985      SubscriptBox[
1986       RowBox[{"(",
1987        SubscriptBox["P", "\<\"-\"\>"], ")"}],
1988       RowBox[{
1989        FormBox["mu",
1990         TraditionalForm], ",", "r", ",", "s"}]],
1991      TraditionalForm]}], ",",
1992    RowBox[{
1993     FormBox[
1994      SubscriptBox[
1995       RowBox[{"(",
1996        SubscriptBox["P", "\<\"-\"\>"], ")"}],
1997       RowBox[{"mu_", ",",
1998        RowBox[{"Except", "[",
1999         RowBox[{
2000          RowBox[{"Index", "(", "___", ")"}], ",", "r_"}], "]"}], ",", "s_"}]],
2001      TraditionalForm], "\[RuleDelayed]",
2002     FormBox[
2003      SubscriptBox[
2004       RowBox[{"(",
2005        SubscriptBox["P", "\<\"-\"\>"], ")"}],
2006       RowBox[{"mu", ",",
2007        FormBox["r",
2008         TraditionalForm], ",", "s"}]],
2009      TraditionalForm]}], ",",
2010    RowBox[{
2011     FormBox[
2012      SubscriptBox[
2013       RowBox[{"(",
2014        SubscriptBox["P", "\<\"-\"\>"], ")"}],
2015       RowBox[{"mu_", ",", "r_", ",",
2016        RowBox[{"Except", "[",
2017         RowBox[{
2018          RowBox[{"Index", "(", "___", ")"}], ",", "s_"}], "]"}]}]],
2019      TraditionalForm], "\[RuleDelayed]",
2020     FormBox[
2021      SubscriptBox[
2022       RowBox[{"(",
2023        SubscriptBox["P", "\<\"-\"\>"], ")"}],
2024       RowBox[{"mu", ",", "r", ",",
2025        FormBox["s",
2026         TraditionalForm]}]],
2027      TraditionalForm]}], ",",
2028    RowBox[{
2029     RowBox[{"Sig", "(",
2030      RowBox[{
2031       RowBox[{"Except", "[",
2032        RowBox[{
2033         RowBox[{"Index", "(", "___", ")"}], ",", "mu_"}], "]"}], ",",
2034       "nu_"}], ")"}], "\[RuleDelayed]",
2035     RowBox[{"Sig", "(",
2036      RowBox[{
2037       FormBox["mu",
2038        TraditionalForm], ",", "nu"}], ")"}]}], ",",
2039    RowBox[{
2040     RowBox[{"Sig", "(",
2041      RowBox[{"mu_", ",",
2042       RowBox[{"Except", "[",
2043        RowBox[{
2044         RowBox[{"Index", "(", "___", ")"}], ",", "nu_"}], "]"}]}], ")"}],
2045     "\[RuleDelayed]",
2046     RowBox[{"Sig", "(",
2047      RowBox[{"mu", ",",
2048       FormBox["nu",
2049        TraditionalForm]}], ")"}]}], ",",
2050    RowBox[{
2051     RowBox[{"Sig", "(",
2052      RowBox[{
2053       RowBox[{"Except", "[",
2054        RowBox[{
2055         RowBox[{"Index", "(", "___", ")"}], ",", "mu_"}], "]"}], ",", "nu_",
2056       ",", "r_", ",", "s_"}], ")"}], "\[RuleDelayed]",
2057     RowBox[{"Sig", "(",
2058      RowBox[{
2059       FormBox["mu",
2060        TraditionalForm], ",", "nu", ",", "r", ",", "s"}], ")"}]}], ",",
2061    RowBox[{
2062     RowBox[{"Sig", "(",
2063      RowBox[{"mu_", ",",
2064       RowBox[{"Except", "[",
2065        RowBox[{
2066         RowBox[{"Index", "(", "___", ")"}], ",", "nu_"}], "]"}], ",", "r_",
2067       ",", "s_"}], ")"}], "\[RuleDelayed]",
2068     RowBox[{"Sig", "(",
2069      RowBox[{"mu", ",",
2070       FormBox["nu",
2071        TraditionalForm], ",", "r", ",", "s"}], ")"}]}], ",",
2072    RowBox[{
2073     RowBox[{"Sig", "(",
2074      RowBox[{"mu_", ",", "nu_", ",",
2075       RowBox[{"Except", "[",
2076        RowBox[{
2077         RowBox[{"Index", "(", "___", ")"}], ",", "r_"}], "]"}], ",", "s_"}],
2078      ")"}], "\[RuleDelayed]",
2079     RowBox[{"Sig", "(",
2080      RowBox[{"mu", ",", "nu", ",",
2081       FormBox["r",
2082        TraditionalForm], ",", "s"}], ")"}]}], ",",
2083    RowBox[{
2084     RowBox[{"Sig", "(",
2085      RowBox[{"mu_", ",", "nu_", ",", "r_", ",",
2086       RowBox[{"Except", "[",
2087        RowBox[{
2088         RowBox[{"Index", "(", "___", ")"}], ",", "s_"}], "]"}]}], ")"}],
2089     "\[RuleDelayed]",
2090     RowBox[{"Sig", "(",
2091      RowBox[{"mu", ",", "nu", ",", "r", ",",
2092       FormBox["s",
2093        TraditionalForm]}], ")"}]}], ",",
2094    RowBox[{
2095     FormBox[
2096      SubscriptBox[
2097       RowBox[{"(",
2098        SuperscriptBox["\[Sigma]",
2099         RowBox[{"Except", "[",
2100          RowBox[{
2101           RowBox[{"Index", "(", "__", ")"}], ",", "mu_"}], "]"}]], ")"}],
2102       "PRIVATE`rr___"],
2103      TraditionalForm], "\[RuleDelayed]",
2104     FormBox[
2105      SubscriptBox[
2106       RowBox[{"(",
2107        SuperscriptBox["\[Sigma]",
2108         FormBox["mu",
2109          TraditionalForm]], ")"}], "PRIVATE`rr"],
2110      TraditionalForm]}], ",",
2111    RowBox[{
2112     FormBox[
2113      SubscriptBox[
2114       RowBox[{"(",
2115        SuperscriptBox["\[Sigma]", "mu_"], ")"}],
2116       RowBox[{
2117        RowBox[{"Except", "[",
2118         RowBox[{
2119          RowBox[{"Index", "(", "__", ")"}], ",", "PRIVATE`rr_"}], "]"}], ",",
2120         "PRIVATE`ss_"}]],
2121      TraditionalForm], "\[RuleDelayed]",
2122     FormBox[
2123      SubscriptBox[
2124       RowBox[{"(",
2125        SuperscriptBox["\[Sigma]", "mu"], ")"}],
2126       RowBox[{
2127        FormBox["PRIVATE`rr",
2128         TraditionalForm], ",", "PRIVATE`ss"}]],
2129      TraditionalForm]}], ",",
2130    RowBox[{
2131     FormBox[
2132      SubscriptBox[
2133       RowBox[{"(",
2134        SuperscriptBox["\[Sigma]", "mu_"], ")"}],
2135       RowBox[{"PRIVATE`rr_", ",",
2136        RowBox[{"Except", "[",
2137         RowBox[{
2138          RowBox[{"Index", "(", "__", ")"}], ",", "PRIVATE`ss_"}], "]"}]}]],
2139      TraditionalForm], "\[RuleDelayed]",
2140     FormBox[
2141      SubscriptBox[
2142       RowBox[{"(",
2143        SuperscriptBox["\[Sigma]", "mu"], ")"}],
2144       RowBox[{"PRIVATE`rr", ",",
2145        FormBox["PRIVATE`ss",
2146         TraditionalForm]}]],
2147      TraditionalForm]}], ",",
2148    RowBox[{
2149     FormBox[
2150      SubscriptBox[
2151       RowBox[{"(",
2152        SuperscriptBox[
2153         OverscriptBox["\[Sigma]", "\<\"-\"\>"],
2154         RowBox[{"Except", "[",
2155          RowBox[{
2156           RowBox[{"Index", "(", "__", ")"}], ",", "mu_"}], "]"}]], ")"}],
2157       "PRIVATE`rr___"],
2158      TraditionalForm], "\[RuleDelayed]",
2159     FormBox[
2160      SubscriptBox[
2161       RowBox[{"(",
2162        SuperscriptBox[
2163         OverscriptBox["\[Sigma]", "\<\"-\"\>"],
2164         FormBox["mu",
2165          TraditionalForm]], ")"}], "PRIVATE`rr"],
2166      TraditionalForm]}], ",",
2167    RowBox[{
2168     FormBox[
2169      SubscriptBox[
2170       RowBox[{"(",
2171        SuperscriptBox[
2172         OverscriptBox["\[Sigma]", "\<\"-\"\>"], "mu_"], ")"}],
2173       RowBox[{
2174        RowBox[{"Except", "[",
2175         RowBox[{
2176          RowBox[{"Index", "(", "__", ")"}], ",", "PRIVATE`rr_"}], "]"}], ",",
2177         "PRIVATE`ss_"}]],
2178      TraditionalForm], "\[RuleDelayed]",
2179     FormBox[
2180      SubscriptBox[
2181       RowBox[{"(",
2182        SuperscriptBox[
2183         OverscriptBox["\[Sigma]", "\<\"-\"\>"], "mu"], ")"}],
2184       RowBox[{
2185        FormBox["PRIVATE`rr",
2186         TraditionalForm], ",", "PRIVATE`ss"}]],
2187      TraditionalForm]}], ",",
2188    RowBox[{
2189     FormBox[
2190      SubscriptBox[
2191       RowBox[{"(",
2192        SuperscriptBox[
2193         OverscriptBox["\[Sigma]", "\<\"-\"\>"], "mu_"], ")"}],
2194       RowBox[{"PRIVATE`rr_", ",",
2195        RowBox[{"Except", "[",
2196         RowBox[{
2197          RowBox[{"Index", "(", "__", ")"}], ",", "PRIVATE`ss_"}], "]"}]}]],
2198      TraditionalForm], "\[RuleDelayed]",
2199     FormBox[
2200      SubscriptBox[
2201       RowBox[{"(",
2202        SuperscriptBox[
2203         OverscriptBox["\[Sigma]", "\<\"-\"\>"], "mu"], ")"}],
2204       RowBox[{"PRIVATE`rr", ",",
2205        FormBox["PRIVATE`ss",
2206         TraditionalForm]}]],
2207      TraditionalForm]}], ",",
2208    RowBox[{
2209     RowBox[{
2210      RowBox[{"-", "\[ImaginaryI]"}], " ",
2211      FormBox[
2212       SubscriptBox["\[Epsilon]",
2213        RowBox[{"a$___", ",",
2214         RowBox[{"PRIVATE`ii$_", "?",
2215          RowBox[{"(",
2216           RowBox[{
2217            RowBox[{"FreeQ", "[",
2218             RowBox[{"#1", ",", "Index"}], "]"}], "&"}], ")"}]}], ",",
2219         "b$___"}]],
2220       TraditionalForm]}], "\[RuleDelayed]",
2221     RowBox[{
2222      RowBox[{"AdjointRep", "(", "SU2L", ")"}], "\[InvisibleApplication]",
2223      RowBox[{"(",
2224       RowBox[{"a$", ",",
2225        FormBox["PRIVATE`ii$",
2226         TraditionalForm], ",", "b$"}], ")"}]}]}], ",",
2227    RowBox[{
2228     FormBox[
2229      SubscriptBox["dSUN",
2230       RowBox[{"a$___", ",",
2231        RowBox[{"PRIVATE`ii$_", "?",
2232         RowBox[{"(",
2233          RowBox[{
2234           RowBox[{"FreeQ", "[",
2235            RowBox[{"#1", ",", "Index"}], "]"}], "&"}], ")"}]}], ",",
2236        "b$___"}]],
2237      TraditionalForm], "\[RuleDelayed]",
2238     FormBox[
2239      SubscriptBox["dSUN",
2240       RowBox[{"a$", ",",
2241        FormBox["PRIVATE`ii$",
2242         TraditionalForm], ",", "b$"}]],
2243      TraditionalForm]}], ",",
2244    RowBox[{
2245     FormBox[
2246      SubscriptBox["f",
2247       RowBox[{"a$___", ",",
2248        RowBox[{"PRIVATE`ii$_", "?",
2249         RowBox[{"(",
2250          RowBox[{
2251           RowBox[{"FreeQ", "[",
2252            RowBox[{"#1", ",", "Index"}], "]"}], "&"}], ")"}]}], ",",
2253        "b$___"}]],
2254      TraditionalForm], "\[RuleDelayed]",
2255     FormBox[
2256      SubscriptBox["f",
2257       RowBox[{"a$", ",",
2258        FormBox["PRIVATE`ii$",
2259         TraditionalForm], ",", "b$"}]],
2260      TraditionalForm]}], ",",
2261    RowBox[{
2262     RowBox[{
2263      RowBox[{"-", "\[ImaginaryI]"}], " ",
2264      FormBox[
2265       SubscriptBox["f",
2266        RowBox[{"a$___", ",",
2267         RowBox[{"PRIVATE`ii$_", "?",
2268          RowBox[{"(",
2269           RowBox[{
2270            RowBox[{"FreeQ", "[",
2271             RowBox[{"#1", ",", "Index"}], "]"}], "&"}], ")"}]}], ",",
2272         "b$___"}]],
2273       TraditionalForm]}], "\[RuleDelayed]",
2274     RowBox[{
2275      RowBox[{"AdjointRep", "(", "SU3C", ")"}], "\[InvisibleApplication]",
2276      RowBox[{"(",
2277       RowBox[{"a$", ",",
2278        FormBox["PRIVATE`ii$",
2279         TraditionalForm], ",", "b$"}], ")"}]}]}], ",",
2280    RowBox[{
2281     RowBox[{"T", "(",
2282      RowBox[{"a$___", ",",
2283       RowBox[{"PRIVATE`ii$_", "?",
2284        RowBox[{"(",
2285         RowBox[{
2286          RowBox[{"FreeQ", "[",
2287           RowBox[{"#1", ",", "Index"}], "]"}], "&"}], ")"}]}], ",",
2288       "b$___"}], ")"}], "\[RuleDelayed]",
2289     RowBox[{"T", "(",
2290      RowBox[{"a$", ",",
2291       FormBox["PRIVATE`ii$",
2292        TraditionalForm], ",", "b$"}], ")"}]}], ",",
2293    RowBox[{
2294     RowBox[{"T6", "(",
2295      RowBox[{"a$___", ",",
2296       RowBox[{"PRIVATE`ii$_", "?",
2297        RowBox[{"(",
2298         RowBox[{
2299          RowBox[{"FreeQ", "[",
2300           RowBox[{"#1", ",", "Index"}], "]"}], "&"}], ")"}]}], ",",
2301       "b$___"}], ")"}], "\[RuleDelayed]",
2302     RowBox[{"T6", "(",
2303      RowBox[{"a$", ",",
2304       FormBox["PRIVATE`ii$",
2305        TraditionalForm], ",", "b$"}], ")"}]}], ",",
2306    RowBox[{
2307     FormBox[
2308      SubscriptBox["CKM",
2309       RowBox[{"a$___", ",",
2310        RowBox[{"PRIVATE`ii$_", "?",
2311         RowBox[{"(",
2312          RowBox[{
2313           RowBox[{"FreeQ", "[",
2314            RowBox[{"#1", ",", "Index"}], "]"}], "&"}], ")"}]}], ",",
2315        "b$___"}]],
2316      TraditionalForm], "\[RuleDelayed]",
2317     FormBox[
2318      SubscriptBox["CKM",
2319       RowBox[{"a$", ",",
2320        FormBox["PRIVATE`ii$",
2321         TraditionalForm], ",", "b$"}]],
2322      TraditionalForm]}], ",",
2323    RowBox[{
2324     RowBox[{"K6", "(",
2325      RowBox[{
2326       RowBox[{"Except", "[",
2327        RowBox[{
2328         RowBox[{"Index", "(", "__", ")"}], ",", "a_"}], "]"}], ",", "bs__"}],
2329       ")"}], "\[RuleDelayed]",
2330     RowBox[{"K6", "(",
2331      RowBox[{
2332       FormBox["a",
2333        TraditionalForm], ",", "bs"}], ")"}]}], ",",
2334    RowBox[{
2335     RowBox[{"K6", "(",
2336      RowBox[{"a_", ",",
2337       RowBox[{"Except", "[",
2338        RowBox[{
2339         RowBox[{"Index", "(", "__", ")"}], ",", "b_"}], "]"}], ",", "c_"}],
2340      ")"}], "\[RuleDelayed]",
2341     RowBox[{"K6", "(",
2342      RowBox[{"a", ",",
2343       FormBox["b",
2344        TraditionalForm], ",", "c"}], ")"}]}], ",",
2345    RowBox[{
2346     RowBox[{"K6", "(",
2347      RowBox[{"a_", ",", "b_", ",",
2348       RowBox[{"Except", "[",
2349        RowBox[{
2350         RowBox[{"Index", "(", "__", ")"}], ",", "c_"}], "]"}]}], ")"}],
2351     "\[RuleDelayed]",
2352     RowBox[{"K6", "(",
2353      RowBox[{"a", ",", "b", ",",
2354       FormBox["c",
2355        TraditionalForm]}], ")"}]}]}], "}"}], TraditionalForm]], "Output",
2356 CellChangeTimes->{3.495434004803297*^9, 3.495434184685067*^9}]
2357}, Open  ]],
2358
2359Cell[CellGroupData[{
2360
2361Cell[BoxData[
2362 RowBox[{
2363  RowBox[{"$IndList", "[", "K6", "]"}], "=",
2364  RowBox[{"{",
2365   RowBox[{"Sextet", ",", "Colour", ",", "Colour"}], "}"}]}]], "Input",
2366 CellChangeTimes->{{3.495433896752503*^9, 3.4954339064993687`*^9}}],
2367
2368Cell[BoxData[
2369 FormBox[
2370  RowBox[{"{",
2371   RowBox[{"Sextet", ",", "Colour", ",", "Colour"}], "}"}],
2372  TraditionalForm]], "Output",
2373 CellChangeTimes->{3.495433906916638*^9}]
2374}, Open  ]],
2375
2376Cell[CellGroupData[{
2377
2378Cell[BoxData[
2379 RowBox[{"$IndList", "[", "T", "]"}]], "Input",
2380 CellChangeTimes->{{3.49543388124396*^9, 3.4954338940359097`*^9}}],
2381
2382Cell[BoxData[
2383 FormBox[
2384  RowBox[{"{",
2385   RowBox[{"Gluon", ",", "Colour", ",", "Colour"}], "}"}],
2386  TraditionalForm]], "Output",
2387 CellChangeTimes->{{3.495433891325405*^9, 3.4954338943957376`*^9}}]
2388}, Open  ]]
2389},
2390WindowSize->{900, 705},
2391WindowMargins->{{128, Automatic}, {Automatic, 0}},
2392ShowSelection->True,
2393FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
2394StyleDefinitions->"Default.nb"
2395]
2396(* End of Notebook Content *)
2397
2398(* Internal cache information *)
2399(*CellTagsOutline
2400CellTagsIndex->{}
2401*)
2402(*CellTagsIndex
2403CellTagsIndex->{}
2404*)
2405(*NotebookFileOutline
2406Notebook[{
2407Cell[545, 20, 189, 4, 27, "Input"],
2408Cell[CellGroupData[{
2409Cell[759, 28, 120, 2, 27, "Input"],
2410Cell[CellGroupData[{
2411Cell[904, 34, 1069, 16, 20, "Print"],
2412Cell[1976, 52, 1100, 17, 20, "Print"],
2413Cell[3079, 71, 1055, 16, 20, "Print"],
2414Cell[4137, 89, 1125, 17, 20, "Print"],
2415Cell[5265, 108, 1087, 17, 20, "Print"],
2416Cell[6355, 127, 1055, 16, 20, "Print"],
2417Cell[7413, 145, 1122, 17, 20, "Print"]
2418}, Open  ]]
2419}, Open  ]],
2420Cell[8562, 166, 213, 5, 27, "Input"],
2421Cell[CellGroupData[{
2422Cell[8800, 175, 181, 3, 27, "Input"],
2423Cell[CellGroupData[{
2424Cell[9006, 182, 1066, 16, 20, "Print"],
2425Cell[10075, 200, 1085, 17, 20, "Print"],
2426Cell[11163, 219, 1055, 16, 20, "Print"],
2427Cell[12221, 237, 1049, 16, 20, "Print"],
2428Cell[13273, 255, 1192, 20, 20, "Print"],
2429Cell[14468, 277, 1100, 17, 20, "Print"],
2430Cell[15571, 296, 1093, 17, 20, "Print"],
2431Cell[16667, 315, 1042, 16, 20, "Print"],
2432Cell[17712, 333, 1074, 17, 20, "Print"],
2433Cell[18789, 352, 1078, 17, 20, "Print"],
2434Cell[19870, 371, 1077, 17, 20, "Print"],
2435Cell[20950, 390, 1251, 21, 36, "Print"]
2436}, Open  ]]
2437}, Open  ]],
2438Cell[CellGroupData[{
2439Cell[22250, 417, 236, 5, 27, "Input"],
2440Cell[CellGroupData[{
2441Cell[22511, 426, 763, 14, 20, "Print"],
2442Cell[23277, 442, 769, 14, 20, "Print"],
2443Cell[24049, 458, 767, 14, 20, "Print"],
2444Cell[24819, 474, 286, 4, 20, "Print"]
2445}, Open  ]]
2446}, Open  ]],
2447Cell[CellGroupData[{
2448Cell[25154, 484, 2110, 59, 73, "Input"],
2449Cell[27267, 545, 4557, 137, 76, "Output"]
2450}, Open  ]],
2451Cell[CellGroupData[{
2452Cell[31861, 687, 184, 3, 27, "Input"],
2453Cell[32048, 692, 509, 10, 39, "Print"]
2454}, Open  ]],
2455Cell[CellGroupData[{
2456Cell[32594, 707, 533, 8, 27, "Input"],
2457Cell[CellGroupData[{
2458Cell[33152, 719, 1164, 18, 20, "Print"],
2459Cell[34319, 739, 1149, 18, 20, "Print"],
2460Cell[35471, 759, 1132, 17, 20, "Print"],
2461Cell[36606, 778, 1174, 18, 20, "Print"],
2462Cell[37783, 798, 1340, 22, 20, "Print"],
2463Cell[39126, 822, 1141, 17, 20, "Print"],
2464Cell[40270, 841, 1159, 19, 27, "Print"],
2465Cell[41432, 862, 1130, 17, 20, "Print"],
2466Cell[42565, 881, 1258, 21, 20, "Print"],
2467Cell[43826, 904, 1118, 17, 20, "Print"],
2468Cell[44947, 923, 1121, 17, 20, "Print"],
2469Cell[46071, 942, 1127, 17, 20, "Print"],
2470Cell[47201, 961, 1121, 17, 20, "Print"],
2471Cell[48325, 980, 1139, 17, 20, "Print"],
2472Cell[49467, 999, 1130, 17, 20, "Print"],
2473Cell[50600, 1018, 1124, 17, 20, "Print"],
2474Cell[51727, 1037, 1119, 17, 20, "Print"],
2475Cell[52849, 1056, 1117, 17, 20, "Print"],
2476Cell[53969, 1075, 1156, 18, 20, "Print"],
2477Cell[55128, 1095, 1135, 17, 20, "Print"],
2478Cell[56266, 1114, 1161, 18, 20, "Print"],
2479Cell[57430, 1134, 1519, 25, 20, "Print"],
2480Cell[58952, 1161, 1506, 29, 20, "Print"],
2481Cell[60461, 1192, 1506, 29, 20, "Print"],
2482Cell[61970, 1223, 1497, 29, 20, "Print"],
2483Cell[63470, 1254, 1497, 29, 20, "Print"],
2484Cell[64970, 1285, 1132, 17, 20, "Print"],
2485Cell[66105, 1304, 1116, 17, 20, "Print"]
2486}, Open  ]]
2487}, Open  ]],
2488Cell[CellGroupData[{
2489Cell[67270, 1327, 103, 1, 27, "Input"],
2490Cell[67376, 1330, 119, 2, 27, "Output"]
2491}, Open  ]],
2492Cell[CellGroupData[{
2493Cell[67532, 1337, 138, 2, 27, "Input"],
2494Cell[67673, 1341, 8924, 266, 380, "Output"]
2495}, Open  ]],
2496Cell[CellGroupData[{
2497Cell[76634, 1612, 197, 4, 27, "Input"],
2498Cell[76834, 1618, 117, 2, 27, "Output"]
2499}, Open  ]],
2500Cell[76966, 1623, 96, 1, 27, "Input"],
2501Cell[77065, 1626, 127, 2, 27, "Input"],
2502Cell[CellGroupData[{
2503Cell[77217, 1632, 1464, 41, 73, "Input"],
2504Cell[78684, 1675, 20729, 680, 390, "Output"]
2505}, Open  ]],
2506Cell[CellGroupData[{
2507Cell[99450, 2360, 225, 5, 27, "Input"],
2508Cell[99678, 2367, 173, 5, 27, "Output"]
2509}, Open  ]],
2510Cell[CellGroupData[{
2511Cell[99888, 2377, 128, 2, 27, "Input"],
2512Cell[100019, 2381, 198, 5, 27, "Output"]
2513}, Open  ]]
2514}
2515]
2516*)
2517
2518(* End of internal cache information *)