Context Navigation

Back to Sextets

Sextets: Sextet.nb

File Sextet.nb, 101.8 KB (added by Claude Duhr, 13 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:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 145, 7]
13	NotebookDataLength[ 104046, 2509]
14	NotebookOptionsPosition[ 100233, 2389]
15	NotebookOutlinePosition[ 100594, 2405]
16	CellTagsIndexPosition[ 100551, 2402]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21	Cell[BoxData[
22	RowBox[{
23	RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
24	CellChangeTimes->{{3.495369455058687^9, 3.495369456928595^9}, {
25	3.4958133741551027`^9, 3.4958133747599497`^9}}],
26
27	Cell[CellGroupData[{
28
29	Cell[BoxData[
30	RowBox[{"<<", "FeynRules`"}]], "Input",
31	CellChangeTimes->{{3.495369459185381^9, 3.495369460912262^9}}],
32
33	Cell[CellGroupData[{
34
35	Cell[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
53	Cell[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
72	Cell[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
90	Cell[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
109	Cell[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
128	Cell[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
146	Cell[BoxData[
147	FormBox["\<\"The FeynRules palette can be opened using the command \
148	FRPalette[].\"\>", 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
167	Cell[BoxData[
168	RowBox[{
169	RowBox[{"SetDirectory", "[",
170	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/Sextet\>\""}], "]"}],
171	";"}]], "Input",
172	CellChangeTimes->{{3.495369475708454^9, 3.4953694925693502`^9}}],
173
174	Cell[CellGroupData[{
175
176	Cell[BoxData[
177	RowBox[{"LoadModel", "[",
178	RowBox[{"\"\<SM.fr\>\"", ",", "\"\<Sextet.fr\>\""}], "]"}]], "Input",
179	CellChangeTimes->{{3.495369494406619^9, 3.4953695033050833`^9}}],
180
181	Cell[CellGroupData[{
182
183	Cell[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
201	Cell[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
220	Cell[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
238	Cell[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
256	Cell[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
278	Cell[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
297	Cell[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
316	Cell[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
334	Cell[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
353	Cell[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
372	Cell[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
391	Cell[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
416	Cell[CellGroupData[{
417
418	Cell[BoxData[
419	RowBox[{"LoadRestriction", "[",
420	RowBox[{
421	"\"\<Massless.rst\>\"", ",", "\"\<DiagonalCKM.rst\>\"", ",",
422	"\"\<ZeroValues.rst\>\""}], "]"}]], "Input",
423	CellChangeTimes->{{3.495785173096965^9, 3.495785227853292^9}}],
424
425	Cell[CellGroupData[{
426
427	Cell[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
443	Cell[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
459	Cell[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
475	Cell[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
483	Cell[CellGroupData[{
484
485	Cell[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
546	Cell[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
686	Cell[CellGroupData[{
687
688	Cell[BoxData[
689	RowBox[{"ReadLHAFile", "[",
690	RowBox[{"Input", "\[Rule]", "\"\<param_card.dat\>\""}], "]"}]], "Input",
691	CellChangeTimes->{{3.495785256096118^9, 3.495785281703566^9}}],
692
693	Cell[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
706	Cell[CellGroupData[{
707
708	Cell[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
718	Cell[CellGroupData[{
719
720	Cell[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
740	Cell[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
760	Cell[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
779	Cell[BoxData[
780	FormBox["\<\"Collecting the different structures that enter the \
781	vertex...\"\>", 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
799	Cell[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
823	Cell[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
842	Cell[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
863	Cell[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
882	Cell[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
905	Cell[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
924	Cell[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
943	Cell[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
962	Cell[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
981	Cell[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
1000	Cell[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
1019	Cell[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
1038	Cell[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
1057	Cell[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
1076	Cell[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
1096	Cell[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
1115	Cell[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
1135	Cell[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
1162	Cell[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
1193	Cell[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
1224	Cell[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
1255	Cell[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
1286	Cell[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
1305	Cell[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
1326	Cell[CellGroupData[{
1327
1328	Cell[BoxData["M$ModelName"], "Input",
1329	CellChangeTimes->{{3.495444339511352^9, 3.495444341227701^9}}],
1330
1331	Cell[BoxData[
1332	FormBox["\<\"Standard Model\"\>", TraditionalForm]], "Output",
1333	CellChangeTimes->{3.495444341732151*^9}]
1334	}, Open ]],
1335
1336	Cell[CellGroupData[{
1337
1338	Cell[BoxData["PRIVATE`$VERTICES2"], "Input",
1339	CellChangeTimes->{{3.495437482288952^9, 3.495437502296234^9},
1340	3.4957829821762533`*^9}],
1341
1342	Cell[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
1611	Cell[CellGroupData[{
1612
1613	Cell[BoxData[
1614	RowBox[{"PythonForm", "[",
1615	RowBox[{"C$K6Bar", "[",
1616	RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}]], "Input",
1617	CellChangeTimes->{{3.495783826354177^9, 3.495783834953644^9}}],
1618
1619	Cell[BoxData[
1620	FormBox["\<\"K6Bar(i,j,k)\"\>", TraditionalForm]], "Output",
1621	CellChangeTimes->{3.495783835405116*^9}]
1622	}, Open ]],
1623
1624	Cell[BoxData[""], "Input",
1625	CellChangeTimes->{{3.4957838387568913`^9, 3.4957838396440372`^9}}],
1626
1627	Cell[BoxData[
1628	RowBox[{"Clear", "[", "K6", "]"}]], "Input",
1629	CellChangeTimes->{{3.4954340302826853`^9, 3.495434032557542^9}}],
1630
1631	Cell[CellGroupData[{
1632
1633	Cell[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
1676	Cell[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
2359	Cell[CellGroupData[{
2360
2361	Cell[BoxData[
2362	RowBox[{
2363	RowBox[{"$IndList", "[", "K6", "]"}], "=",
2364	RowBox[{"{",
2365	RowBox[{"Sextet", ",", "Colour", ",", "Colour"}], "}"}]}]], "Input",
2366	CellChangeTimes->{{3.495433896752503^9, 3.4954339064993687`^9}}],
2367
2368	Cell[BoxData[
2369	FormBox[
2370	RowBox[{"{",
2371	RowBox[{"Sextet", ",", "Colour", ",", "Colour"}], "}"}],
2372	TraditionalForm]], "Output",
2373	CellChangeTimes->{3.495433906916638*^9}]
2374	}, Open ]],
2375
2376	Cell[CellGroupData[{
2377
2378	Cell[BoxData[
2379	RowBox[{"$IndList", "[", "T", "]"}]], "Input",
2380	CellChangeTimes->{{3.49543388124396^9, 3.4954338940359097`^9}}],
2381
2382	Cell[BoxData[
2383	FormBox[
2384	RowBox[{"{",
2385	RowBox[{"Gluon", ",", "Colour", ",", "Colour"}], "}"}],
2386	TraditionalForm]], "Output",
2387	CellChangeTimes->{{3.495433891325405^9, 3.4954338943957376`^9}}]
2388	}, Open ]]
2389	},
2390	WindowSize->{900, 705},
2391	WindowMargins->{{128, Automatic}, {Automatic, 0}},
2392	ShowSelection->True,
2393	FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
2394	StyleDefinitions->"Default.nb"
2395	]
2396	(* End of Notebook Content *)
2397
2398	(* Internal cache information *)
2399	(*CellTagsOutline
2400	CellTagsIndex->{}
2401	*)
2402	(*CellTagsIndex
2403	CellTagsIndex->{}
2404	*)
2405	(*NotebookFileOutline
2406	Notebook[{
2407	Cell[545, 20, 189, 4, 27, "Input"],
2408	Cell[CellGroupData[{
2409	Cell[759, 28, 120, 2, 27, "Input"],
2410	Cell[CellGroupData[{
2411	Cell[904, 34, 1069, 16, 20, "Print"],
2412	Cell[1976, 52, 1100, 17, 20, "Print"],
2413	Cell[3079, 71, 1055, 16, 20, "Print"],
2414	Cell[4137, 89, 1125, 17, 20, "Print"],
2415	Cell[5265, 108, 1087, 17, 20, "Print"],
2416	Cell[6355, 127, 1055, 16, 20, "Print"],
2417	Cell[7413, 145, 1122, 17, 20, "Print"]
2418	}, Open ]]
2419	}, Open ]],
2420	Cell[8562, 166, 213, 5, 27, "Input"],
2421	Cell[CellGroupData[{
2422	Cell[8800, 175, 181, 3, 27, "Input"],
2423	Cell[CellGroupData[{
2424	Cell[9006, 182, 1066, 16, 20, "Print"],
2425	Cell[10075, 200, 1085, 17, 20, "Print"],
2426	Cell[11163, 219, 1055, 16, 20, "Print"],
2427	Cell[12221, 237, 1049, 16, 20, "Print"],
2428	Cell[13273, 255, 1192, 20, 20, "Print"],
2429	Cell[14468, 277, 1100, 17, 20, "Print"],
2430	Cell[15571, 296, 1093, 17, 20, "Print"],
2431	Cell[16667, 315, 1042, 16, 20, "Print"],
2432	Cell[17712, 333, 1074, 17, 20, "Print"],
2433	Cell[18789, 352, 1078, 17, 20, "Print"],
2434	Cell[19870, 371, 1077, 17, 20, "Print"],
2435	Cell[20950, 390, 1251, 21, 36, "Print"]
2436	}, Open ]]
2437	}, Open ]],
2438	Cell[CellGroupData[{
2439	Cell[22250, 417, 236, 5, 27, "Input"],
2440	Cell[CellGroupData[{
2441	Cell[22511, 426, 763, 14, 20, "Print"],
2442	Cell[23277, 442, 769, 14, 20, "Print"],
2443	Cell[24049, 458, 767, 14, 20, "Print"],
2444	Cell[24819, 474, 286, 4, 20, "Print"]
2445	}, Open ]]
2446	}, Open ]],
2447	Cell[CellGroupData[{
2448	Cell[25154, 484, 2110, 59, 73, "Input"],
2449	Cell[27267, 545, 4557, 137, 76, "Output"]
2450	}, Open ]],
2451	Cell[CellGroupData[{
2452	Cell[31861, 687, 184, 3, 27, "Input"],
2453	Cell[32048, 692, 509, 10, 39, "Print"]
2454	}, Open ]],
2455	Cell[CellGroupData[{
2456	Cell[32594, 707, 533, 8, 27, "Input"],
2457	Cell[CellGroupData[{
2458	Cell[33152, 719, 1164, 18, 20, "Print"],
2459	Cell[34319, 739, 1149, 18, 20, "Print"],
2460	Cell[35471, 759, 1132, 17, 20, "Print"],
2461	Cell[36606, 778, 1174, 18, 20, "Print"],
2462	Cell[37783, 798, 1340, 22, 20, "Print"],
2463	Cell[39126, 822, 1141, 17, 20, "Print"],
2464	Cell[40270, 841, 1159, 19, 27, "Print"],
2465	Cell[41432, 862, 1130, 17, 20, "Print"],
2466	Cell[42565, 881, 1258, 21, 20, "Print"],
2467	Cell[43826, 904, 1118, 17, 20, "Print"],
2468	Cell[44947, 923, 1121, 17, 20, "Print"],
2469	Cell[46071, 942, 1127, 17, 20, "Print"],
2470	Cell[47201, 961, 1121, 17, 20, "Print"],
2471	Cell[48325, 980, 1139, 17, 20, "Print"],
2472	Cell[49467, 999, 1130, 17, 20, "Print"],
2473	Cell[50600, 1018, 1124, 17, 20, "Print"],
2474	Cell[51727, 1037, 1119, 17, 20, "Print"],
2475	Cell[52849, 1056, 1117, 17, 20, "Print"],
2476	Cell[53969, 1075, 1156, 18, 20, "Print"],
2477	Cell[55128, 1095, 1135, 17, 20, "Print"],
2478	Cell[56266, 1114, 1161, 18, 20, "Print"],
2479	Cell[57430, 1134, 1519, 25, 20, "Print"],
2480	Cell[58952, 1161, 1506, 29, 20, "Print"],
2481	Cell[60461, 1192, 1506, 29, 20, "Print"],
2482	Cell[61970, 1223, 1497, 29, 20, "Print"],
2483	Cell[63470, 1254, 1497, 29, 20, "Print"],
2484	Cell[64970, 1285, 1132, 17, 20, "Print"],
2485	Cell[66105, 1304, 1116, 17, 20, "Print"]
2486	}, Open ]]
2487	}, Open ]],
2488	Cell[CellGroupData[{
2489	Cell[67270, 1327, 103, 1, 27, "Input"],
2490	Cell[67376, 1330, 119, 2, 27, "Output"]
2491	}, Open ]],
2492	Cell[CellGroupData[{
2493	Cell[67532, 1337, 138, 2, 27, "Input"],
2494	Cell[67673, 1341, 8924, 266, 380, "Output"]
2495	}, Open ]],
2496	Cell[CellGroupData[{
2497	Cell[76634, 1612, 197, 4, 27, "Input"],
2498	Cell[76834, 1618, 117, 2, 27, "Output"]
2499	}, Open ]],
2500	Cell[76966, 1623, 96, 1, 27, "Input"],
2501	Cell[77065, 1626, 127, 2, 27, "Input"],
2502	Cell[CellGroupData[{
2503	Cell[77217, 1632, 1464, 41, 73, "Input"],
2504	Cell[78684, 1675, 20729, 680, 390, "Output"]
2505	}, Open ]],
2506	Cell[CellGroupData[{
2507	Cell[99450, 2360, 225, 5, 27, "Input"],
2508	Cell[99678, 2367, 173, 5, 27, "Output"]
2509	}, Open ]],
2510	Cell[CellGroupData[{
2511	Cell[99888, 2377, 128, 2, 27, "Input"],
2512	Cell[100019, 2381, 198, 5, 27, "Output"]
2513	}, Open ]]
2514	}
2515	]
2516	*)
2517
2518	(* End of internal cache information *)

Download in other formats:

Original Format