Context Navigation

Back to TopEffTh

TopEffTh: singletop.nb

File singletop.nb, 359.3 KB (added by Céline Degrande, 12 years ago)

Line
1	(* Content-type: application/mathematica *)
2
3	(* Wolfram Notebook File *)
4	(* http://www.wolfram.com/nb *)
5
6	(* CreatedBy='Mathematica 6.0' *)
7
8	(CacheID: 234)
9	(* Internal cache information:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 145, 7]
13	NotebookDataLength[ 367712, 8867]
14	NotebookOptionsPosition[ 357526, 8538]
15	NotebookOutlinePosition[ 358115, 8560]
16	CellTagsIndexPosition[ 358072, 8557]
17	WindowFrame->Normal
18	ContainsDynamic->False*)
19
20	(* Beginning of Notebook Content *)
21	Notebook[{
22
23	Cell[CellGroupData[{
24	Cell["Single top", "Title",
25	CellChangeTimes->{{3.4778117188657^9, 3.4778117348357^9}, {
26	3.500627855916004^9, 3.5006278594432592`^9}}],
27
28	Cell["test the two amplitudes computed before", "Text",
29	CellChangeTimes->{{3.478438848916302^9, 3.478438849192754^9}, {
30	3.479546643579921^9, 3.479546660109585^9}}],
31
32	Cell[CellGroupData[{
33
34	Cell["udbar->tbbar", "Subtitle",
35	CellChangeTimes->{{3.4778117420706997`^9, 3.4778117447507^9}, {
36	3.497862048812056^9, 3.497862055502046^9}, {3.499496596319121*^9,
37	3.4994966035710382`*^9}}],
38
39	Cell[BoxData[
40	RowBox[{"Quit", "[", "]"}]], "Input",
41	CellChangeTimes->{{3.448968342513181^9, 3.448968344880295^9}}],
42
43	Cell[CellGroupData[{
44
45	Cell[BoxData[{
46	RowBox[{
47	RowBox[{
48	"SetDirectory", "[", "\"\</home/degrande/eta/FeynProg/FeynArts-3.5\>\"",
49	"]"}], ";"}], "\[IndentingNewLine]",
50	RowBox[{"<<", " ", "FeynArts`"}]}], "Input",
51	CellChangeTimes->{
52	3.4777456682883^9, 3.478434363232997^9, {3.4978572265868073`*^9,
53	3.4978572271791267`^9}, {3.5007183220647497`^9, 3.500718325226549*^9}}],
54
55	Cell[CellGroupData[{
56
57	Cell[BoxData[
58	FormBox["\<\"\"\>", TraditionalForm]], "Print",
59	CellChangeTimes->{
60	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
61	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
62	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
63	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
64	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
65	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
66	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
67	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
68	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
69	3.498391193496977^9, 3.499508864100067^9, 3.499521741782934*^9,
70	3.4995831578974943`^9, {3.499584268361443^9, 3.499584295560235*^9},
71	3.499584333899542^9, 3.4995857048002872`^9, 3.4995936758763742`*^9,
72	3.49966327757331^9, 3.499663670437725^9, 3.500627884791136*^9,
73	3.50071832631478^9, 3.500980537666299^9}],
74
75	Cell[BoxData[
76	FormBox["\<\"FeynArts 3.5\"\>", TraditionalForm]], "Print",
77	CellChangeTimes->{
78	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
79	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
80	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
81	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
82	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
83	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
84	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
85	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
86	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
87	3.498391193496977^9, 3.499508864100067^9, 3.499521741782934*^9,
88	3.4995831578974943`^9, {3.499584268361443^9, 3.499584295560235*^9},
89	3.499584333899542^9, 3.4995857048002872`^9, 3.4995936758763742`*^9,
90	3.49966327757331^9, 3.499663670437725^9, 3.500627884791136*^9,
91	3.50071832631478^9, 3.5009805377438173`^9}],
92
93	Cell[BoxData[
94	FormBox["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>",
95	TraditionalForm]], "Print",
96	CellChangeTimes->{
97	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
98	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
99	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
100	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
101	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
102	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
103	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
104	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
105	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
106	3.498391193496977^9, 3.499508864100067^9, 3.499521741782934*^9,
107	3.4995831578974943`^9, {3.499584268361443^9, 3.499584295560235*^9},
108	3.499584333899542^9, 3.4995857048002872`^9, 3.4995936758763742`*^9,
109	3.49966327757331^9, 3.499663670437725^9, 3.500627884791136*^9,
110	3.50071832631478^9, 3.500980537755413^9}],
111
112	Cell[BoxData[
113	FormBox["\<\"last revised 16 Apr 10\"\>", TraditionalForm]], "Print",
114	CellChangeTimes->{
115	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
116	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
117	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
118	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
119	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
120	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
121	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
122	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
123	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
124	3.498391193496977^9, 3.499508864100067^9, 3.499521741782934*^9,
125	3.4995831578974943`^9, {3.499584268361443^9, 3.499584295560235*^9},
126	3.499584333899542^9, 3.4995857048002872`^9, 3.4995936758763742`*^9,
127	3.49966327757331^9, 3.499663670437725^9, 3.500627884791136*^9,
128	3.50071832631478^9, 3.500980537766425^9}]
129	}, Open ]]
130	}, Open ]],
131
132	Cell[BoxData[
133	RowBox[{
134	RowBox[{"topo", " ", "=", " ",
135	RowBox[{"CreateTopologies", "[",
136	RowBox[{"0", ",",
137	RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
138	CellChangeTimes->{
139	3.47548813810296^9, 3.475488972088063^9, {3.4777456120408*^9,
140	3.4777456332583^9}, 3.4778098132447^9, 3.4778110152581997`*^9, {
141	3.497857235135571^9, 3.497857237590866^9}, {3.499496482154114*^9,
142	3.499496485211625*^9}}],
143
144	Cell[CellGroupData[{
145
146	Cell[BoxData[
147	RowBox[{"Paint", "[", "topo", "]"}]], "Input",
148	CellChangeTimes->{{3.4777456818157997`^9, 3.4777456889958^9}}],
149
150	Cell[CellGroupData[{
151
152	Cell[BoxData[
153	FormBox[
154	InterpretationBox[
155	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
156	"\[InvisibleSpace]", "\<\": \"\>",
157	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
158	SequenceForm["> Top. ", 1, ": ", "1 diagram"],
159	Editable->False], TraditionalForm]], "Print",
160	CellChangeTimes->{3.4777456900683002`^9, 3.478435704755388^9,
161	3.500980546374898*^9}],
162
163	Cell[BoxData[
164	FormBox[
165	InterpretationBox[
166	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
167	"\[InvisibleSpace]", "\<\": \"\>",
168	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
169	SequenceForm["> Top. ", 2, ": ", "1 diagram"],
170	Editable->False], TraditionalForm]], "Print",
171	CellChangeTimes->{3.4777456900683002`^9, 3.478435704755388^9,
172	3.500980546395657*^9}],
173
174	Cell[BoxData[
175	FormBox[
176	InterpretationBox[
177	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
178	"\[InvisibleSpace]", "\<\": \"\>",
179	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
180	SequenceForm["> Top. ", 3, ": ", "1 diagram"],
181	Editable->False], TraditionalForm]], "Print",
182	CellChangeTimes->{3.4777456900683002`^9, 3.478435704755388^9,
183	3.500980546671124*^9}],
184
185	Cell[BoxData[
186	FormBox[
187	InterpretationBox[
188	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
189	"\[InvisibleSpace]", "\<\": \"\>",
190	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
191	SequenceForm["> Top. ", 4, ": ", "1 diagram"],
192	Editable->False], TraditionalForm]], "Print",
193	CellChangeTimes->{3.4777456900683002`^9, 3.478435704755388^9,
194	3.500980546678403*^9}],
195
196	Cell[BoxData[
197	FormBox[
198	GraphicsBox[{InsetBox[
199	GraphicsBox[
200	{Thickness[0.005],
201	LineBox[{{-9.094947017729282*^-12, 15.000000000003638`}, {
202	9.999999999983629, 10.000000000007276`}}],
203	LineBox[{{-9.094947017729282*^-12, 4.999999999996362}, {
204	9.999999999985448, 9.999999999989086}}],
205	LineBox[{{20.000000000009095`, 15.000000000003638`}, {
206	10.000000000009095`, 10.000000000003638`}}],
207	LineBox[{{20., 5.}, {10., 10.}}],
208	{PointSize[0.04], PointBox[{10., 10.}]}, InsetBox[
209	TagBox[
210	StyleBox[
211	TagBox["\<\"T1\"\>",
212	DisplayForm],
213	FontFamily->"Helvetica",
214	FontSize->7.997355371900828],
215	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
216	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
217	AspectRatio->1,
218	PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
219	GraphicsBox[
220	{Thickness[0.005],
221	LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
222	5.999999999996362, 10.000000000001819`}}],
223	LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
224	5.999999999994543, 9.999999999994543}}],
225	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
226	14.000000000003638`, 10.000000000001819`}}],
227	LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`,
228	10.}}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`,
229	10.}}],
230	{PointSize[0.04], PointBox[{6., 10.}],
231	PointBox[{13.99999999999999, 10.}]}, InsetBox[
232	TagBox[
233	StyleBox[
234	TagBox["\<\"T2\"\>",
235	DisplayForm],
236	FontFamily->"Helvetica",
237	FontSize->7.997355371900828],
238	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
239	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
240	AspectRatio->1,
241	PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}],
242	InsetBox[
243	GraphicsBox[
244	{Thickness[0.005],
245	LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`,
246	14.000000000003638`}}],
247	LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
248	9.999999999988404, 6.}}],
249	LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}],
250	LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726,
251	5.999999999996362}}],
252	LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}],
253	{PointSize[0.04], PointBox[{10., 13.99999999999999}],
254	PointBox[{10., 6.}]}, InsetBox[
255	TagBox[
256	StyleBox[
257	TagBox["\<\"T3\"\>",
258	DisplayForm],
259	FontFamily->"Helvetica",
260	FontSize->7.997355371900828],
261	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
262	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
263	AspectRatio->1,
264	PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}],
265	InsetBox[
266	GraphicsBox[
267	{Thickness[0.005],
268	LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`,
269	14.000000000003638`}}],
270	LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
271	9.999999999988404, 6.}}],
272	LineBox[{{20.00000000000182, 15.}, {10., 6.}}],
273	LineBox[{{20.00000000000182, 5.}, {10., 14.}}],
274	LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}],
275	{PointSize[0.04], PointBox[{10., 13.99999999999999}],
276	PointBox[{10., 6.}]}, InsetBox[
277	TagBox[
278	StyleBox[
279	TagBox["\<\"T4\"\>",
280	DisplayForm],
281	FontFamily->"Helvetica",
282	FontSize->7.997355371900828],
283	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
284	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
285	AspectRatio->1,
286	PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
287	TagBox[
288	StyleBox[
289	TagBox["\<\"2\"\>",
290	DisplayForm],
291	FontFamily->"Helvetica",
292	FontSize->11.99603305785124],
293	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
294	11.99603305785124]& ], {28.5, 69.96}, {0, 0}], InsetBox[
295	TagBox[
296	StyleBox[
297	TagBox["\<\"\[RightArrow]\"\>",
298	DisplayForm],
299	FontFamily->"Helvetica",
300	FontSize->11.99603305785124],
301	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
302	11.99603305785124]& ], {33., 69.96}, {0, 0}], InsetBox[
303	TagBox[
304	StyleBox[
305	TagBox["\<\"2\"\>",
306	DisplayForm],
307	FontFamily->"Helvetica",
308	FontSize->11.99603305785124],
309	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
310	11.99603305785124]& ], {37.5, 69.96}, {0, 0}]},
311	AspectRatio->1.0999999999999999`,
312	PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
313	CellChangeTimes->{3.4777456900683002`^9, 3.478435704755388^9,
314	3.500980548715958*^9}]
315	}, Open ]],
316
317	Cell[BoxData[
318	FormBox[
319	RowBox[{
320	RowBox[{"FeynArtsGraphics", "(",
321	RowBox[{"2", "\[Rule]", "2"}], ")"}], "\[InvisibleApplication]",
322	RowBox[{"(",
323	TagBox[
324	RowBox[{"(", "\[NoBreak]", GridBox[{
325	{
326	FormBox[
327	InterpretationBox[
328
329	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1\"\>",
330	"\[InvisibleSpace]", "\<\"]\"\>"}],
331	SequenceForm["[", "T1", "]"],
332	Editable->False],
333	TraditionalForm],
334	FormBox[
335	InterpretationBox[
336
337	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2\"\>",
338	"\[InvisibleSpace]", "\<\"]\"\>"}],
339	SequenceForm["[", "T2", "]"],
340	Editable->False],
341	TraditionalForm],
342	FormBox[
343	InterpretationBox[
344
345	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T3\"\>",
346	"\[InvisibleSpace]", "\<\"]\"\>"}],
347	SequenceForm["[", "T3", "]"],
348	Editable->False],
349	TraditionalForm]},
350	{
351	FormBox[
352	InterpretationBox[
353
354	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T4\"\>",
355	"\[InvisibleSpace]", "\<\"]\"\>"}],
356	SequenceForm["[", "T4", "]"],
357	Editable->False],
358	TraditionalForm], "Null", "Null"},
359	{"Null", "Null", "Null"}
360	},
361	GridBoxAlignment->{
362	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
363	"RowsIndexed" -> {}},
364	GridBoxSpacings->{"Columns" -> {
365	Offset[0.27999999999999997`], {
366	Offset[0.7]},
367	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
368	Offset[0.2], {
369	Offset[0.4]},
370	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
371	Function[BoxForm`e$,
372	MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
373	CellChangeTimes->{3.4777456905908003`^9, 3.478435705207405^9,
374	3.500980548865032*^9}]
375	}, Closed]],
376
377	Cell[CellGroupData[{
378
379	Cell[BoxData[
380	RowBox[{
381	RowBox[{"INTopo", "=", " ",
382	RowBox[{"InsertFields", "[",
383	RowBox[{"topo", ",",
384	RowBox[{
385	RowBox[{"{",
386	RowBox[{
387	RowBox[{"F", "[", "7", "]"}], ",",
388	RowBox[{"-",
389	RowBox[{"F", "[", "10", "]"}]}]}], "}"}], "\[Rule]",
390	RowBox[{"{",
391	RowBox[{
392	RowBox[{"F", "[", "9", "]"}], ",",
393	RowBox[{"-",
394	RowBox[{"F", "[", "12", "]"}]}]}], "}"}]}], ",",
395	RowBox[{"GenericModel", "\[Rule]", "\"\<TopEffTh_FA/TopEffTh_FA\>\""}],
396	",",
397	RowBox[{"Model", "\[Rule]", "\"\<TopEffTh_FA/TopEffTh_FA\>\""}], ",",
398	RowBox[{"InsertionLevel", "\[Rule]",
399	RowBox[{"{",
400	RowBox[{"Generic", ",", " ", "Classes", ",", "Particles"}], "}"}]}]}],
401	"]"}]}], ";"}]], "Input",
402	CellChangeTimes->{{3.4778060034077^9, 3.4778060172207003`^9}, {
403	3.4778061181482^9, 3.4778062060957003`^9}, {3.4778064622107*^9,
404	3.4778064974032^9}, {3.4778096875622^9, 3.4778097175422*^9}, {
405	3.4778099067622004`^9, 3.4778099081296997`^9}, {3.4778111168007*^9,
406	3.4778111226157^9}, {3.4778115172907^9, 3.4778115174282*^9},
407	3.478437845209915^9, {3.479546689667869^9, 3.479546718821388*^9}, {
408	3.479546793843457^9, 3.47954680051448^9}, {3.497857256699514*^9,
409	3.497857324742622^9}, {3.497857383657874^9, 3.497857387157604*^9}, {
410	3.49785741944608^9, 3.497857431156871^9}, {3.497862502940681*^9,
411	3.497862507492491^9}, {3.4983901274683743`^9, 3.498390130073097*^9}, {
412	3.499495582368535^9, 3.499495584937093^9}, {3.4994965044618607`*^9,
413	3.499496568155007^9}, {3.499586356510202^9, 3.499586373514152*^9},
414	3.499586422762087^9, {3.499663692970071^9, 3.499663696270081*^9}, {
415	3.50062790280877^9, 3.500627907682124^9}}],
416
417	Cell[CellGroupData[{
418
419	Cell[BoxData[
420	FormBox["\<\"\"\>", TraditionalForm]], "Print",
421	CellChangeTimes->{
422	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
423	3.500718328802799^9, 3.500980549183696^9}],
424
425	Cell[BoxData[
426	FormBox[
427	InterpretationBox[
428	RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
429	"\[InvisibleSpace]", "\<\"generic\"\>",
430	"\[InvisibleSpace]", "\<\" model file \"\>",
431	"\[InvisibleSpace]", \
432	"\<\"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
433	TopEffTh_FA.gen\"\>"}],
434	SequenceForm[
435	"", "loading ", "generic", " model file ",
436	"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
437	TopEffTh_FA.gen"],
438	Editable->False], TraditionalForm]], "Print",
439	CellChangeTimes->{
440	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
441	3.500718328802799^9, 3.500980549290071^9}],
442
443	Cell[BoxData[
444	FormBox["\<\"> $SVMixing is OFF\"\>", TraditionalForm]], "Print",
445	CellChangeTimes->{
446	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
447	3.500718328802799^9, 3.500980549605673^9}],
448
449	Cell[BoxData[
450	FormBox[
451	InterpretationBox[
452	RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]",
453	RowBox[{"{", "\<\"TopEffTh_FA/TopEffTh_FA\"\>", "}"}],
454	"\[InvisibleSpace]", "\<\" initialized\"\>"}],
455	SequenceForm[
456	"generic model ", {"TopEffTh_FA/TopEffTh_FA"}, " initialized"],
457	Editable->False], TraditionalForm]], "Print",
458	CellChangeTimes->{
459	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
460	3.500718328802799^9, 3.500980549806919^9}],
461
462	Cell[BoxData[
463	FormBox["\<\"\"\>", TraditionalForm]], "Print",
464	CellChangeTimes->{
465	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
466	3.500718328802799^9, 3.5009805499973288`^9}],
467
468	Cell[BoxData[
469	FormBox[
470	InterpretationBox[
471	RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
472	"\[InvisibleSpace]", "\<\"classes\"\>",
473	"\[InvisibleSpace]", "\<\" model file \"\>",
474	"\[InvisibleSpace]", \
475	"\<\"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
476	TopEffTh_FA.mod\"\>"}],
477	SequenceForm[
478	"", "loading ", "classes", " model file ",
479	"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
480	TopEffTh_FA.mod"],
481	Editable->False], TraditionalForm]], "Print",
482	CellChangeTimes->{
483	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
484	3.500718328802799^9, 3.500980550121307^9}],
485
486	Cell[BoxData[
487	FormBox[
488	InterpretationBox[
489	RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "51",
490	"\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>",
491	"\[InvisibleSpace]", "30", "\[InvisibleSpace]", "\<\" classes\"\>"}],
492	SequenceForm[
493	"> ", 51, " particles (incl. antiparticles) in ", 30, " classes"],
494	Editable->False], TraditionalForm]], "Print",
495	CellChangeTimes->{
496	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
497	3.500718328802799^9, 3.5009805502517757`^9}],
498
499	Cell[BoxData[
500	FormBox["\<\"> $CounterTerms are ON\"\>", TraditionalForm]], "Print",
501	CellChangeTimes->{
502	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
503	3.500718328802799^9, 3.500980550385854^9}],
504
505	Cell[BoxData[
506	FormBox[
507	InterpretationBox[
508	RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "142",
509	"\[InvisibleSpace]", "\<\" vertices\"\>"}],
510	SequenceForm["> ", 142, " vertices"],
511	Editable->False], TraditionalForm]], "Print",
512	CellChangeTimes->{
513	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
514	3.500718328802799^9, 3.500980550653281^9}],
515
516	Cell[BoxData[
517	FormBox[
518	InterpretationBox[
519	RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]",
520	RowBox[{"{", "\<\"TopEffTh_FA/TopEffTh_FA\"\>", "}"}],
521	"\[InvisibleSpace]", "\<\" initialized\"\>"}],
522	SequenceForm[
523	"classes model ", {"TopEffTh_FA/TopEffTh_FA"}, " initialized"],
524	Editable->False], TraditionalForm]], "Print",
525	CellChangeTimes->{
526	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
527	3.500718328802799^9, 3.500980550800826^9}],
528
529	Cell[BoxData[
530	FormBox["\<\"\"\>", TraditionalForm]], "Print",
531	CellChangeTimes->{
532	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
533	3.500718328802799^9, 3.500980550945402^9}],
534
535	Cell[BoxData[
536	FormBox[
537	InterpretationBox[
538	RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
539	RowBox[{"{",
540	RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}],
541	SequenceForm[
542	"inserting at level(s) ", {Generic, FeynArts`Classes, FeynArts`Particles}],
543
544	Editable->False], TraditionalForm]], "Print",
545	CellChangeTimes->{
546	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
547	3.500718328802799^9, 3.500980551099969^9}],
548
549	Cell[BoxData[
550	FormBox[
551	InterpretationBox[
552	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
553	"\[InvisibleSpace]", "\<\": \"\>",
554	"\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \
555	insertions\"\>"}],
556	SequenceForm[
557	"> Top. ", 1, ": ", "0 Generic, 0 Classes, 0 Particles insertions"],
558	Editable->False], TraditionalForm]], "Print",
559	CellChangeTimes->{
560	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
561	3.500718328802799^9, 3.5009805512532883`^9}],
562
563	Cell[BoxData[
564	FormBox[
565	InterpretationBox[
566	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
567	"\[InvisibleSpace]", "\<\": \"\>",
568	"\[InvisibleSpace]", "\<\"1 Generic, 3 Classes, 3 Particles \
569	insertions\"\>"}],
570	SequenceForm[
571	"> Top. ", 2, ": ", "1 Generic, 3 Classes, 3 Particles insertions"],
572	Editable->False], TraditionalForm]], "Print",
573	CellChangeTimes->{
574	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
575	3.500718328802799^9, 3.500980551886359^9}],
576
577	Cell[BoxData[
578	FormBox[
579	InterpretationBox[
580	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
581	"\[InvisibleSpace]", "\<\": \"\>",
582	"\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \
583	insertions\"\>"}],
584	SequenceForm[
585	"> Top. ", 3, ": ", "0 Generic, 0 Classes, 0 Particles insertions"],
586	Editable->False], TraditionalForm]], "Print",
587	CellChangeTimes->{
588	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
589	3.500718328802799^9, 3.5009805520428457`^9}],
590
591	Cell[BoxData[
592	FormBox[
593	InterpretationBox[
594	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
595	"\[InvisibleSpace]", "\<\": \"\>",
596	"\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \
597	insertions\"\>"}],
598	SequenceForm[
599	"> Top. ", 4, ": ", "0 Generic, 0 Classes, 0 Particles insertions"],
600	Editable->False], TraditionalForm]], "Print",
601	CellChangeTimes->{
602	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
603	3.500718328802799^9, 3.500980552050892^9}],
604
605	Cell[BoxData[
606	FormBox[
607	InterpretationBox[
608	RowBox[{"\<\"in total: \"\>",
609	"\[InvisibleSpace]", "\<\"1 Generic, 3 Classes, 3 Particles \
610	insertions\"\>"}],
611	SequenceForm["in total: ", "1 Generic, 3 Classes, 3 Particles insertions"],
612
613	Editable->False], TraditionalForm]], "Print",
614	CellChangeTimes->{
615	3.4996637030439568`^9, {3.500627887943892^9, 3.500627908818776*^9},
616	3.500718328802799^9, 3.500980552059318^9}]
617	}, Open ]]
618	}, Open ]],
619
620	Cell[CellGroupData[{
621
622	Cell[BoxData[
623	RowBox[{"Paint", "[", "INTopo", "]"}]], "Input",
624	CellChangeTimes->{{3.4778063315682^9, 3.4778063464357^9}, {
625	3.4778115474231997`^9, 3.4778115475632^9}, 3.478437858916929*^9,
626	3.479546810801527^9, {3.4994965729354^9, 3.499496573154107*^9}}],
627
628	Cell[CellGroupData[{
629
630	Cell[BoxData[
631	FormBox[
632	InterpretationBox[
633	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
634	"\[InvisibleSpace]", "\<\": \"\>",
635	"\[InvisibleSpace]", "\<\"7 diagrams\"\>"}],
636	SequenceForm["> Top. ", 1, ": ", "7 diagrams"],
637	Editable->False], TraditionalForm]], "Print",
638	CellChangeTimes->{3.499584341801282^9, 3.4995857119234962`^9,
639	3.499593684804886^9, 3.499663284150272^9, 3.4996637055393248`*^9,
640	3.500627910830654^9, 3.500718332397193^9}],
641
642	Cell[BoxData[
643	FormBox[
644	GraphicsBox[{InsetBox[
645	GraphicsBox[
646	{Thickness[0.005],
647	LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
648	5.999999999996362, 10.000000000001819`}}],
649	PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
650	2.2829934723757828`, 12.576822127959737`}, {2.7951409921073664`,
651	13.191399151637638`}}], InsetBox[
652	TagBox[
653	StyleBox[
654	TagBox["\<\"u\"\>",
655	DisplayForm],
656	FontFamily->"Helvetica",
657	FontSize->9.996694214876035],
658	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
659	9.996694214876035]& ], {2.6125141805200567`, 11.914057016624067`}, \
660	{1, 1}], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
661	5.999999999994543, 9.999999999994543}}],
662	PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
663	3.7170065276242177`, 7.576822127959738}, {3.2048590078926336`,
664	8.191399151637638}}], InsetBox[
665	TagBox[
666	StyleBox[
667	TagBox["\<\"d\"\>",
668	DisplayForm],
669	FontFamily->"Helvetica",
670	FontSize->9.996694214876035],
671	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
672	9.996694214876035]& ], {3.387485819479944, 6.914057016624067}, \
673	{-1, 1}],
674	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
675	14.000000000003638`, 10.000000000001819`}}],
676	PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
677	16.282993472375775`, 12.423177872040263`}, {16.79514099210736,
678	11.808600848362362`}}], InsetBox[
679	TagBox[
680	StyleBox[
681	TagBox["\<\"t\"\>",
682	DisplayForm],
683	FontFamily->"Helvetica",
684	FontSize->9.996694214876035],
685	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
686	9.996694214876035]& ], {16.61251418052005, 13.085942983375933`}, \
687	{1, -1}],
688	LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`,
689	10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
690	17.71700652762421, 7.423177872040263}, {17.204859007892626`,
691	6.808600848362362}}], InsetBox[
692	TagBox[
693	StyleBox[
694	TagBox["\<\"b\"\>",
695	DisplayForm],
696	FontFamily->"Helvetica",
697	FontSize->9.996694214876035],
698	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
699	9.996694214876035]& ], {17.387485819479934`, 8.085942983375933}, \
700	{-1, -1}], LineBox[CompressedData["
701	1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
702	dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
703	4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
704	bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
705	7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
706	Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
707	TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
708	3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
709	eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
710	WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
711	friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
712	7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
713	2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
714	rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
715	/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
716	p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
717	XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
718	aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
719	lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
720	UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
721	0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
722	L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
723	YYABMg==
724	"]], InsetBox[
725	TagBox[
726	StyleBox[
727	TagBox["\<\"V\"\>",
728	DisplayForm],
729	FontFamily->"Helvetica",
730	FontSize->9.996694214876035],
731	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
732	9.996694214876035]& ], {9.999999999999995, 9.0548}, {0, 1}],
733	{PointSize[0.04], PointBox[{6., 10.}],
734	PointBox[{13.99999999999999, 10.}]}, InsetBox[
735	TagBox[
736	StyleBox[
737	TagBox["\<\"T1 G1 N1\"\>",
738	DisplayForm],
739	FontFamily->"Helvetica",
740	FontSize->7.997355371900828],
741	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
742	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
743	AspectRatio->1,
744	PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
745	GraphicsBox[
746	{Thickness[0.005],
747	LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
748	5.999999999996362, 10.000000000001819`}}],
749	PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
750	2.2829934723757828`, 12.576822127959737`}, {2.7951409921073664`,
751	13.191399151637638`}}], InsetBox[
752	TagBox[
753	StyleBox[
754	TagBox["\<\"u\"\>",
755	DisplayForm],
756	FontFamily->"Helvetica",
757	FontSize->9.996694214876035],
758	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
759	9.996694214876035]& ], {2.6125141805200567`, 11.914057016624067`}, \
760	{1, 1}], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
761	5.999999999994543, 9.999999999994543}}],
762	PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
763	3.7170065276242177`, 7.576822127959738}, {3.2048590078926336`,
764	8.191399151637638}}], InsetBox[
765	TagBox[
766	StyleBox[
767	TagBox["\<\"d\"\>",
768	DisplayForm],
769	FontFamily->"Helvetica",
770	FontSize->9.996694214876035],
771	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
772	9.996694214876035]& ], {3.387485819479944, 6.914057016624067}, \
773	{-1, 1}],
774	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
775	14.000000000003638`, 10.000000000001819`}}],
776	PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
777	16.282993472375775`, 12.423177872040263`}, {16.79514099210736,
778	11.808600848362362`}}], InsetBox[
779	TagBox[
780	StyleBox[
781	TagBox["\<\"t\"\>",
782	DisplayForm],
783	FontFamily->"Helvetica",
784	FontSize->9.996694214876035],
785	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
786	9.996694214876035]& ], {16.61251418052005, 13.085942983375933`}, \
787	{1, -1}],
788	LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`,
789	10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
790	17.71700652762421, 7.423177872040263}, {17.204859007892626`,
791	6.808600848362362}}], InsetBox[
792	TagBox[
793	StyleBox[
794	TagBox["\<\"b\"\>",
795	DisplayForm],
796	FontFamily->"Helvetica",
797	FontSize->9.996694214876035],
798	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
799	9.996694214876035]& ], {17.387485819479934`, 8.085942983375933}, \
800	{-1, -1}], LineBox[CompressedData["
801	1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
802	dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
803	4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
804	bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
805	7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
806	Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
807	TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
808	3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
809	eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
810	WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
811	friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
812	7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
813	2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
814	rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
815	/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
816	p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
817	XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
818	aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
819	lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
820	UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
821	0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
822	L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
823	YYABMg==
824	"]],
825	PolygonBox[{{10.599999999999994`, 10.}, {9.399999999999995, 9.6}, {
826	9.399999999999995, 10.4}}], InsetBox[
827	TagBox[
828	StyleBox[
829	TagBox["\<\"W\"\>",
830	DisplayForm],
831	FontFamily->"Helvetica",
832	FontSize->9.996694214876035],
833	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
834	9.996694214876035]& ], {9.999999999999995, 9.0548}, {0, 1}],
835	{PointSize[0.04], PointBox[{6., 10.}],
836	PointBox[{13.99999999999999, 10.}]}, InsetBox[
837	TagBox[
838	StyleBox[
839	TagBox["\<\"T1 C1 N2\"\>",
840	DisplayForm],
841	FontFamily->"Helvetica",
842	FontSize->7.997355371900828],
843	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
844	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
845	AspectRatio->1,
846	PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}],
847	InsetBox[
848	GraphicsBox[
849	{Thickness[0.005],
850	LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
851	5.999999999996362, 10.000000000001819`}}],
852	PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
853	2.2829934723757828`, 12.576822127959737`}, {2.7951409921073664`,
854	13.191399151637638`}}], InsetBox[
855	TagBox[
856	StyleBox[
857	TagBox["\<\"u\"\>",
858	DisplayForm],
859	FontFamily->"Helvetica",
860	FontSize->9.996694214876035],
861	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
862	9.996694214876035]& ], {2.6125141805200567`, 11.914057016624067`}, \
863	{1, 1}], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
864	5.999999999994543, 9.999999999994543}}],
865	PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
866	3.7170065276242177`, 7.576822127959738}, {3.2048590078926336`,
867	8.191399151637638}}], InsetBox[
868	TagBox[
869	StyleBox[
870	TagBox["\<\"d\"\>",
871	DisplayForm],
872	FontFamily->"Helvetica",
873	FontSize->9.996694214876035],
874	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
875	9.996694214876035]& ], {3.387485819479944, 6.914057016624067}, \
876	{-1, 1}],
877	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
878	14.000000000003638`, 10.000000000001819`}}],
879	PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
880	16.282993472375775`, 12.423177872040263`}, {16.79514099210736,
881	11.808600848362362`}}], InsetBox[
882	TagBox[
883	StyleBox[
884	TagBox["\<\"t\"\>",
885	DisplayForm],
886	FontFamily->"Helvetica",
887	FontSize->9.996694214876035],
888	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
889	9.996694214876035]& ], {16.61251418052005, 13.085942983375933`}, \
890	{1, -1}],
891	LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`,
892	10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
893	17.71700652762421, 7.423177872040263}, {17.204859007892626`,
894	6.808600848362362}}], InsetBox[
895	TagBox[
896	StyleBox[
897	TagBox["\<\"b\"\>",
898	DisplayForm],
899	FontFamily->"Helvetica",
900	FontSize->9.996694214876035],
901	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
902	9.996694214876035]& ], {17.387485819479934`, 8.085942983375933}, \
903	{-1, -1}], LineBox[CompressedData["
904	1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
905	dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
906	4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
907	bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
908	7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
909	Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
910	TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
911	3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
912	eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
913	WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
914	friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
915	7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
916	2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
917	rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
918	/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
919	p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
920	XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
921	aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
922	lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
923	UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
924	0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
925	L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
926	YYABMg==
927	"]],
928	PolygonBox[{{10.599999999999994`, 10.}, {9.399999999999995, 9.6}, {
929	9.399999999999995, 10.4}}], InsetBox[
930	TagBox[
931	StyleBox[
932	TagBox["\<\"W\"\>",
933	DisplayForm],
934	FontFamily->"Helvetica",
935	FontSize->9.996694214876035],
936	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
937	9.996694214876035]& ], {9.999999999999995, 9.0548}, {0, 1}],
938	{PointSize[0.04], PointBox[{6., 10.}],
939	PointBox[{13.99999999999999, 10.}]}, InsetBox[
940	TagBox[
941	StyleBox[
942	TagBox["\<\"T1 P1 N3\"\>",
943	DisplayForm],
944	FontFamily->"Helvetica",
945	FontSize->7.997355371900828],
946	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
947	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
948	AspectRatio->1,
949	PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}],
950	InsetBox[
951	GraphicsBox[
952	{Thickness[0.005],
953	LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
954	5.999999999996362, 10.000000000001819`}}],
955	PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
956	2.2829934723757828`, 12.576822127959737`}, {2.7951409921073664`,
957	13.191399151637638`}}], InsetBox[
958	TagBox[
959	StyleBox[
960	TagBox["\<\"u\"\>",
961	DisplayForm],
962	FontFamily->"Helvetica",
963	FontSize->9.996694214876035],
964	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
965	9.996694214876035]& ], {2.6125141805200567`, 11.914057016624067`}, \
966	{1, 1}], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
967	5.999999999994543, 9.999999999994543}}],
968	PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
969	3.7170065276242177`, 7.576822127959738}, {3.2048590078926336`,
970	8.191399151637638}}], InsetBox[
971	TagBox[
972	StyleBox[
973	TagBox["\<\"d\"\>",
974	DisplayForm],
975	FontFamily->"Helvetica",
976	FontSize->9.996694214876035],
977	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
978	9.996694214876035]& ], {3.387485819479944, 6.914057016624067}, \
979	{-1, 1}],
980	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
981	14.000000000003638`, 10.000000000001819`}}],
982	PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
983	16.282993472375775`, 12.423177872040263`}, {16.79514099210736,
984	11.808600848362362`}}], InsetBox[
985	TagBox[
986	StyleBox[
987	TagBox["\<\"t\"\>",
988	DisplayForm],
989	FontFamily->"Helvetica",
990	FontSize->9.996694214876035],
991	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
992	9.996694214876035]& ], {16.61251418052005, 13.085942983375933`}, \
993	{1, -1}],
994	LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`,
995	10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
996	17.71700652762421, 7.423177872040263}, {17.204859007892626`,
997	6.808600848362362}}], InsetBox[
998	TagBox[
999	StyleBox[
1000	TagBox["\<\"b\"\>",
1001	DisplayForm],
1002	FontFamily->"Helvetica",
1003	FontSize->9.996694214876035],
1004	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1005	9.996694214876035]& ], {17.387485819479934`, 8.085942983375933}, \
1006	{-1, -1}], LineBox[CompressedData["
1007	1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
1008	dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
1009	4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
1010	bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
1011	7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
1012	Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
1013	TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
1014	3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
1015	eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
1016	WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
1017	friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
1018	7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
1019	2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
1020	rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
1021	/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
1022	p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
1023	XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
1024	aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
1025	lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
1026	UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
1027	0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
1028	L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
1029	YYABMg==
1030	"]], InsetBox[
1031	TagBox[
1032	StyleBox[
1033	TagBox["\<\"Tri\"\>",
1034	DisplayForm],
1035	FontFamily->"Helvetica",
1036	FontSize->9.996694214876035],
1037	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1038	9.996694214876035]& ], {9.999999999999995, 9.0548}, {0, 1}],
1039	{PointSize[0.04], PointBox[{6., 10.}],
1040	PointBox[{13.99999999999999, 10.}]}, InsetBox[
1041	TagBox[
1042	StyleBox[
1043	TagBox["\<\"T1 C2 N4\"\>",
1044	DisplayForm],
1045	FontFamily->"Helvetica",
1046	FontSize->7.997355371900828],
1047	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1048	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
1049	AspectRatio->1,
1050	PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
1051	GraphicsBox[
1052	{Thickness[0.005],
1053	LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
1054	5.999999999996362, 10.000000000001819`}}],
1055	PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
1056	2.2829934723757828`, 12.576822127959737`}, {2.7951409921073664`,
1057	13.191399151637638`}}], InsetBox[
1058	TagBox[
1059	StyleBox[
1060	TagBox["\<\"u\"\>",
1061	DisplayForm],
1062	FontFamily->"Helvetica",
1063	FontSize->9.996694214876035],
1064	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1065	9.996694214876035]& ], {2.6125141805200567`, 11.914057016624067`}, \
1066	{1, 1}], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
1067	5.999999999994543, 9.999999999994543}}],
1068	PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
1069	3.7170065276242177`, 7.576822127959738}, {3.2048590078926336`,
1070	8.191399151637638}}], InsetBox[
1071	TagBox[
1072	StyleBox[
1073	TagBox["\<\"d\"\>",
1074	DisplayForm],
1075	FontFamily->"Helvetica",
1076	FontSize->9.996694214876035],
1077	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1078	9.996694214876035]& ], {3.387485819479944, 6.914057016624067}, \
1079	{-1, 1}],
1080	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
1081	14.000000000003638`, 10.000000000001819`}}],
1082	PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
1083	16.282993472375775`, 12.423177872040263`}, {16.79514099210736,
1084	11.808600848362362`}}], InsetBox[
1085	TagBox[
1086	StyleBox[
1087	TagBox["\<\"t\"\>",
1088	DisplayForm],
1089	FontFamily->"Helvetica",
1090	FontSize->9.996694214876035],
1091	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1092	9.996694214876035]& ], {16.61251418052005, 13.085942983375933`}, \
1093	{1, -1}],
1094	LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`,
1095	10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
1096	17.71700652762421, 7.423177872040263}, {17.204859007892626`,
1097	6.808600848362362}}], InsetBox[
1098	TagBox[
1099	StyleBox[
1100	TagBox["\<\"b\"\>",
1101	DisplayForm],
1102	FontFamily->"Helvetica",
1103	FontSize->9.996694214876035],
1104	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1105	9.996694214876035]& ], {17.387485819479934`, 8.085942983375933}, \
1106	{-1, -1}], LineBox[CompressedData["
1107	1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
1108	dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
1109	4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
1110	bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
1111	7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
1112	Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
1113	TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
1114	3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
1115	eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
1116	WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
1117	friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
1118	7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
1119	2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
1120	rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
1121	/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
1122	p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
1123	XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
1124	aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
1125	lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
1126	UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
1127	0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
1128	L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
1129	YYABMg==
1130	"]], InsetBox[
1131	TagBox[
1132	StyleBox[
1133	TagBox["\<\"Tri\"\>",
1134	DisplayForm],
1135	FontFamily->"Helvetica",
1136	FontSize->9.996694214876035],
1137	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1138	9.996694214876035]& ], {9.999999999999995, 9.0548}, {0, 1}],
1139	{PointSize[0.04], PointBox[{6., 10.}],
1140	PointBox[{13.99999999999999, 10.}]}, InsetBox[
1141	TagBox[
1142	StyleBox[
1143	TagBox["\<\"T1 P1 N5\"\>",
1144	DisplayForm],
1145	FontFamily->"Helvetica",
1146	FontSize->7.997355371900828],
1147	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1148	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
1149	AspectRatio->1,
1150	PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}],
1151	InsetBox[
1152	GraphicsBox[
1153	{Thickness[0.005],
1154	LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
1155	5.999999999996362, 10.000000000001819`}}],
1156	PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
1157	2.2829934723757828`, 12.576822127959737`}, {2.7951409921073664`,
1158	13.191399151637638`}}], InsetBox[
1159	TagBox[
1160	StyleBox[
1161	TagBox["\<\"u\"\>",
1162	DisplayForm],
1163	FontFamily->"Helvetica",
1164	FontSize->9.996694214876035],
1165	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1166	9.996694214876035]& ], {2.6125141805200567`, 11.914057016624067`}, \
1167	{1, 1}], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
1168	5.999999999994543, 9.999999999994543}}],
1169	PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
1170	3.7170065276242177`, 7.576822127959738}, {3.2048590078926336`,
1171	8.191399151637638}}], InsetBox[
1172	TagBox[
1173	StyleBox[
1174	TagBox["\<\"d\"\>",
1175	DisplayForm],
1176	FontFamily->"Helvetica",
1177	FontSize->9.996694214876035],
1178	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1179	9.996694214876035]& ], {3.387485819479944, 6.914057016624067}, \
1180	{-1, 1}],
1181	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
1182	14.000000000003638`, 10.000000000001819`}}],
1183	PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
1184	16.282993472375775`, 12.423177872040263`}, {16.79514099210736,
1185	11.808600848362362`}}], InsetBox[
1186	TagBox[
1187	StyleBox[
1188	TagBox["\<\"t\"\>",
1189	DisplayForm],
1190	FontFamily->"Helvetica",
1191	FontSize->9.996694214876035],
1192	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1193	9.996694214876035]& ], {16.61251418052005, 13.085942983375933`}, \
1194	{1, -1}],
1195	LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`,
1196	10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
1197	17.71700652762421, 7.423177872040263}, {17.204859007892626`,
1198	6.808600848362362}}], InsetBox[
1199	TagBox[
1200	StyleBox[
1201	TagBox["\<\"b\"\>",
1202	DisplayForm],
1203	FontFamily->"Helvetica",
1204	FontSize->9.996694214876035],
1205	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1206
1207	9.996694214876035]& ], {17.387485819479934`, 8.085942983375933}, \
1208	{-1, -1}], LineBox[CompressedData["
1209	1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
1210	dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
1211	4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
1212	bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
1213	7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
1214	Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
1215	TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
1216	3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
1217	eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
1218	WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
1219	friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
1220	7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
1221	2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
1222	rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
1223	/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
1224	p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
1225	XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
1226	aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
1227	lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
1228	UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
1229	0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
1230	L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
1231	YYABMg==
1232	"]], InsetBox[
1233	TagBox[
1234	StyleBox[
1235	TagBox["\<\"Tri8\"\>",
1236	DisplayForm],
1237	FontFamily->"Helvetica",
1238	FontSize->9.996694214876035],
1239	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1240	9.996694214876035]& ], {9.999999999999995, 9.0548}, {0, 1}],
1241	{PointSize[0.04], PointBox[{6., 10.}],
1242	PointBox[{13.99999999999999, 10.}]}, InsetBox[
1243	TagBox[
1244	StyleBox[
1245	TagBox["\<\"T1 C3 N6\"\>",
1246	DisplayForm],
1247	FontFamily->"Helvetica",
1248	FontSize->7.997355371900828],
1249	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1250	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
1251	AspectRatio->1,
1252	PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}],
1253	InsetBox[
1254	GraphicsBox[
1255	{Thickness[0.005],
1256	LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
1257	5.999999999996362, 10.000000000001819`}}],
1258	PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
1259	2.2829934723757828`, 12.576822127959737`}, {2.7951409921073664`,
1260	13.191399151637638`}}], InsetBox[
1261	TagBox[
1262	StyleBox[
1263	TagBox["\<\"u\"\>",
1264	DisplayForm],
1265	FontFamily->"Helvetica",
1266	FontSize->9.996694214876035],
1267	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1268	9.996694214876035]& ], {2.6125141805200567`, 11.914057016624067`}, \
1269	{1, 1}], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
1270	5.999999999994543, 9.999999999994543}}],
1271	PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
1272	3.7170065276242177`, 7.576822127959738}, {3.2048590078926336`,
1273	8.191399151637638}}], InsetBox[
1274	TagBox[
1275	StyleBox[
1276	TagBox["\<\"d\"\>",
1277	DisplayForm],
1278	FontFamily->"Helvetica",
1279	FontSize->9.996694214876035],
1280	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1281	9.996694214876035]& ], {3.387485819479944, 6.914057016624067}, \
1282	{-1, 1}],
1283	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
1284	14.000000000003638`, 10.000000000001819`}}],
1285	PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
1286	16.282993472375775`, 12.423177872040263`}, {16.79514099210736,
1287	11.808600848362362`}}], InsetBox[
1288	TagBox[
1289	StyleBox[
1290	TagBox["\<\"t\"\>",
1291	DisplayForm],
1292	FontFamily->"Helvetica",
1293	FontSize->9.996694214876035],
1294	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1295	9.996694214876035]& ], {16.61251418052005, 13.085942983375933`}, \
1296	{1, -1}],
1297	LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`,
1298	10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
1299	17.71700652762421, 7.423177872040263}, {17.204859007892626`,
1300	6.808600848362362}}], InsetBox[
1301	TagBox[
1302	StyleBox[
1303	TagBox["\<\"b\"\>",
1304	DisplayForm],
1305	FontFamily->"Helvetica",
1306	FontSize->9.996694214876035],
1307	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1308	9.996694214876035]& ], {17.387485819479934`, 8.085942983375933}, \
1309	{-1, -1}], LineBox[CompressedData["
1310	1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
1311	dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
1312	4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
1313	bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
1314	7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
1315	Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
1316	TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
1317	3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
1318	eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
1319	WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
1320	friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
1321	7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
1322	2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
1323	rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
1324	/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
1325	p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
1326	XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
1327	aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
1328	lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
1329	UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
1330	0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
1331	L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
1332	YYABMg==
1333	"]], InsetBox[
1334	TagBox[
1335	StyleBox[
1336	TagBox["\<\"Tri8\"\>",
1337	DisplayForm],
1338	FontFamily->"Helvetica",
1339	FontSize->9.996694214876035],
1340	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1341	9.996694214876035]& ], {9.999999999999995, 9.0548}, {0, 1}],
1342	{PointSize[0.04], PointBox[{6., 10.}],
1343	PointBox[{13.99999999999999, 10.}]}, InsetBox[
1344	TagBox[
1345	StyleBox[
1346	TagBox["\<\"T1 P1 N7\"\>",
1347	DisplayForm],
1348	FontFamily->"Helvetica",
1349	FontSize->7.997355371900828],
1350	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1351	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
1352	AspectRatio->1,
1353	PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[
1354	TagBox[
1355	StyleBox[
1356	TagBox["\<\"u\"\>",
1357	DisplayForm],
1358	FontFamily->"Helvetica",
1359	FontSize->11.99603305785124],
1360	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1361	11.99603305785124]& ], {24., 69.96}, {0, 0}], InsetBox[
1362	TagBox[
1363	StyleBox[
1364	TagBox["\<\"d\"\>",
1365	DisplayForm],
1366	FontFamily->"Helvetica",
1367	FontSize->11.99603305785124],
1368	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1369	11.99603305785124]& ], {28.5, 69.96}, {0, 0}], InsetBox[
1370	TagBox[
1371	StyleBox[
1372	TagBox["\<\"\[RightArrow]\"\>",
1373	DisplayForm],
1374	FontFamily->"Helvetica",
1375	FontSize->11.99603305785124],
1376	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1377	11.99603305785124]& ], {33., 69.96}, {0, 0}], InsetBox[
1378	TagBox[
1379	StyleBox[
1380	TagBox["\<\"t\"\>",
1381	DisplayForm],
1382	FontFamily->"Helvetica",
1383	FontSize->11.99603305785124],
1384	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1385	11.99603305785124]& ], {37.5, 69.96}, {0, 0}], InsetBox[
1386	TagBox[
1387	StyleBox[
1388	TagBox["\<\"b\"\>",
1389	DisplayForm],
1390	FontFamily->"Helvetica",
1391	FontSize->11.99603305785124],
1392	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1393	11.99603305785124]& ], {42., 69.96}, {0, 0}]},
1394	AspectRatio->1.0999999999999999`,
1395	PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
1396	CellChangeTimes->{3.499584341801282^9, 3.4995857119234962`^9,
1397	3.499593684804886^9, 3.499663284150272^9, 3.4996637055393248`*^9,
1398	3.500627910830654^9, 3.5007183350984697`^9}]
1399	}, Open ]],
1400
1401	Cell[BoxData[
1402	FormBox[
1403	RowBox[{
1404	RowBox[{"FeynArtsGraphics", "(",
1405	RowBox[{
1406	RowBox[{"{",
1407	RowBox[{"\<\"u\"\>", ",", "\<\"d\"\>"}], "}"}], "\[Rule]",
1408	RowBox[{"{",
1409	RowBox[{"\<\"t\"\>", ",", "\<\"b\"\>"}], "}"}]}], ")"}],
1410	"\[InvisibleApplication]",
1411	RowBox[{"(",
1412	TagBox[
1413	RowBox[{"(", "\[NoBreak]", GridBox[{
1414	{
1415	FormBox[
1416	InterpretationBox[
1417
1418	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 G1 N1\"\>",
1419	"\[InvisibleSpace]", "\<\"]\"\>"}],
1420	SequenceForm["[", "T1 G1 N1", "]"],
1421	Editable->False],
1422	TraditionalForm],
1423	FormBox[
1424	InterpretationBox[
1425
1426	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C1 N2\"\>",
1427	"\[InvisibleSpace]", "\<\"]\"\>"}],
1428	SequenceForm["[", "T1 C1 N2", "]"],
1429	Editable->False],
1430	TraditionalForm],
1431	FormBox[
1432	InterpretationBox[
1433
1434	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N3\"\>",
1435	"\[InvisibleSpace]", "\<\"]\"\>"}],
1436	SequenceForm["[", "T1 P1 N3", "]"],
1437	Editable->False],
1438	TraditionalForm]},
1439	{
1440	FormBox[
1441	InterpretationBox[
1442
1443	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C2 N4\"\>",
1444	"\[InvisibleSpace]", "\<\"]\"\>"}],
1445	SequenceForm["[", "T1 C2 N4", "]"],
1446	Editable->False],
1447	TraditionalForm],
1448	FormBox[
1449	InterpretationBox[
1450
1451	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N5\"\>",
1452	"\[InvisibleSpace]", "\<\"]\"\>"}],
1453	SequenceForm["[", "T1 P1 N5", "]"],
1454	Editable->False],
1455	TraditionalForm],
1456	FormBox[
1457	InterpretationBox[
1458
1459	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C3 N6\"\>",
1460	"\[InvisibleSpace]", "\<\"]\"\>"}],
1461	SequenceForm["[", "T1 C3 N6", "]"],
1462	Editable->False],
1463	TraditionalForm]},
1464	{
1465	FormBox[
1466	InterpretationBox[
1467
1468	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N7\"\>",
1469	"\[InvisibleSpace]", "\<\"]\"\>"}],
1470	SequenceForm["[", "T1 P1 N7", "]"],
1471	Editable->False],
1472	TraditionalForm], "Null", "Null"}
1473	},
1474	GridBoxAlignment->{
1475	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1476	"RowsIndexed" -> {}},
1477	GridBoxSpacings->{"Columns" -> {
1478	Offset[0.27999999999999997`], {
1479	Offset[0.7]},
1480	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1481	Offset[0.2], {
1482	Offset[0.4]},
1483	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1484	Function[BoxForm`e$,
1485	MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
1486	CellChangeTimes->{
1487	3.4778063475407^9, 3.4778065254607^9, 3.4778099157272*^9,
1488	3.4778115492682^9, 3.47843686984159^9, 3.478436906375371*^9, {
1489	3.478437853618226^9, 3.478437860811162^9}, 3.479099999826127*^9,
1490	3.479106333796554^9, {3.479546806741183^9, 3.479546812623714*^9},
1491	3.4978620779952097`^9, 3.497862535136364^9, 3.497871415799543*^9,
1492	3.4979424893430643`^9, 3.498391202919662^9, 3.499521753363945*^9,
1493	3.499583162685727^9, 3.499584300111794^9, 3.499584342363058*^9,
1494	3.499585712241136^9, 3.499593685059499^9, 3.4996632844405613`*^9,
1495	3.4996637058472843`^9, 3.500627911255908^9, 3.5007183352932796`*^9}]
1496	}, Open ]],
1497
1498	Cell[CellGroupData[{
1499
1500	Cell[BoxData[
1501	RowBox[{
1502	RowBox[{"Ampl", " ", "=", " ",
1503	RowBox[{"CreateFeynAmp", "[", "INTopo", "]"}]}], ";"}]], "Input",
1504	CellChangeTimes->{{3.4778062370957003`^9, 3.4778062399307003`^9}, {
1505	3.4778115657332^9, 3.4778115658507^9}, {3.4778120221097*^9,
1506	3.4778120222467003`^9}, 3.479547360479462^9, {3.4994965783939333`*^9,
1507	3.4994965820750732`*^9}}],
1508
1509	Cell[CellGroupData[{
1510
1511	Cell[BoxData[
1512	FormBox["\<\"\"\>", TraditionalForm]], "Print",
1513	CellChangeTimes->{3.499584340167673^9, 3.4995847701347446`^9,
1514	3.499585713493058^9, 3.499663287327167^9, 3.499663706858138*^9,
1515	3.5006279157832413`^9, 3.5007183383866777`^9, 3.500980559226266*^9}],
1516
1517	Cell[BoxData[
1518	FormBox[
1519	InterpretationBox[
1520	RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
1521	RowBox[{"{",
1522	RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}],
1523	SequenceForm[
1524	"creating amplitudes at level(s) ", {
1525	Generic, FeynArts`Classes, FeynArts`Particles}],
1526	Editable->False], TraditionalForm]], "Print",
1527	CellChangeTimes->{3.499584340167673^9, 3.4995847701347446`^9,
1528	3.499585713493058^9, 3.499663287327167^9, 3.499663706858138*^9,
1529	3.5006279157832413`^9, 3.5007183383866777`^9, 3.500980559289074*^9}],
1530
1531	Cell[BoxData[
1532	FormBox[
1533	InterpretationBox[
1534	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
1535	"\[InvisibleSpace]", "\<\": \"\>",
1536	"\[InvisibleSpace]", "\<\"1 Generic, 3 Classes, 3 Particles \
1537	amplitudes\"\>"}],
1538	SequenceForm[
1539	"> Top. ", 1, ": ", "1 Generic, 3 Classes, 3 Particles amplitudes"],
1540	Editable->False], TraditionalForm]], "Print",
1541	CellChangeTimes->{3.499584340167673^9, 3.4995847701347446`^9,
1542	3.499585713493058^9, 3.499663287327167^9, 3.499663706858138*^9,
1543	3.5006279157832413`^9, 3.5007183383866777`^9, 3.500980559456772*^9}],
1544
1545	Cell[BoxData[
1546	FormBox[
1547	InterpretationBox[
1548	RowBox[{"\<\"in total: \"\>",
1549	"\[InvisibleSpace]", "\<\"1 Generic, 3 Classes, 3 Particles \
1550	amplitudes\"\>"}],
1551	SequenceForm["in total: ", "1 Generic, 3 Classes, 3 Particles amplitudes"],
1552
1553	Editable->False], TraditionalForm]], "Print",
1554	CellChangeTimes->{3.499584340167673^9, 3.4995847701347446`^9,
1555	3.499585713493058^9, 3.499663287327167^9, 3.499663706858138*^9,
1556	3.5006279157832413`^9, 3.5007183383866777`^9, 3.50098055946246*^9}]
1557	}, Open ]]
1558	}, Open ]],
1559
1560	Cell[CellGroupData[{
1561
1562	Cell[BoxData[{
1563	RowBox[{
1564	RowBox[{
1565	"SetDirectory", "[", "\"\</home/degrande/eta/FeynProg/FormCalc-6.2\>\"",
1566	"]"}], ";"}], "\[IndentingNewLine]",
1567	RowBox[{"<<", " ", "FormCalc`"}]}], "Input",
1568	CellChangeTimes->{
1569	3.4777456682883^9, {3.4778119018507^9, 3.4778119054056997`*^9}, {
1570	3.4778119371527^9, 3.4778119527257^9}, {3.478434390853149*^9,
1571	3.478434394596879^9}, {3.498391209209569^9, 3.4983912097170353`*^9}}],
1572
1573	Cell[CellGroupData[{
1574
1575	Cell[BoxData[
1576	FormBox["\<\"\"\>", TraditionalForm]], "Print",
1577	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
1578	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
1579	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
1580	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
1581	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
1582	3.497942493923506^9, 3.4983912102183523`^9, 3.499521768705014*^9,
1583	3.499583165670874^9, 3.4995847733890743`^9, 3.499585716589773*^9,
1584	3.499663290399749^9, 3.4996637154724083`^9, 3.500627918425613*^9,
1585	3.5007183404884157`^9, 3.5009805606926622`^9}],
1586
1587	Cell[BoxData[
1588	FormBox["\<\"FormCalc 6.2\"\>", TraditionalForm]], "Print",
1589	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
1590	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
1591	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
1592	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
1593	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
1594	3.497942493923506^9, 3.4983912102183523`^9, 3.499521768705014*^9,
1595	3.499583165670874^9, 3.4995847733890743`^9, 3.499585716589773*^9,
1596	3.499663290399749^9, 3.4996637154724083`^9, 3.500627918425613*^9,
1597	3.5007183404884157`^9, 3.500980560759437^9}],
1598
1599	Cell[BoxData[
1600	FormBox["\<\"by Thomas Hahn\"\>", TraditionalForm]], "Print",
1601	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
1602	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
1603	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
1604	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
1605	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
1606	3.497942493923506^9, 3.4983912102183523`^9, 3.499521768705014*^9,
1607	3.499583165670874^9, 3.4995847733890743`^9, 3.499585716589773*^9,
1608	3.499663290399749^9, 3.4996637154724083`^9, 3.500627918425613*^9,
1609	3.5007183404884157`^9, 3.500980560924983^9}],
1610
1611	Cell[BoxData[
1612	FormBox["\<\"last revised 11 Aug 10\"\>", TraditionalForm]], "Print",
1613	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
1614	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
1615	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
1616	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
1617	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
1618	3.497942493923506^9, 3.4983912102183523`^9, 3.499521768705014*^9,
1619	3.499583165670874^9, 3.4995847733890743`^9, 3.499585716589773*^9,
1620	3.499663290399749^9, 3.4996637154724083`^9, 3.500627918425613*^9,
1621	3.5007183404884157`^9, 3.5009805610658083`^9}]
1622	}, Open ]]
1623	}, Open ]],
1624
1625	Cell[CellGroupData[{
1626
1627	Cell[BoxData[
1628	RowBox[{
1629	RowBox[{"M", "=", " ",
1630	RowBox[{"CalcFeynAmp", "[",
1631	RowBox[{"Ampl", ",",
1632	RowBox[{"FermionChains", "\[Rule]", "Chiral"}]}], "]"}]}],
1633	";"}]], "Input",
1634	CellChangeTimes->{{3.4778119845017^9, 3.4778120345607^9}, {
1635	3.478435376938886^9, 3.478435418868291^9}, 3.479547358194307*^9, {
1636	3.499496616117415^9, 3.499496619479166^9}}],
1637
1638	Cell[CellGroupData[{
1639
1640	Cell[BoxData[
1641	FormBox["\<\"\"\>", TraditionalForm]], "Print",
1642	CellChangeTimes->{3.478434402570528^9, 3.478435422620416^9,
1643	3.478435588542779^9, 3.478435896246393^9, 3.478436924110362*^9,
1644	3.479100051862622^9, 3.479106355014496^9, 3.479546852661124*^9,
1645	3.479547334202314^9, 3.479547712295999^9, 3.497862102150838*^9,
1646	3.49786254240231^9, 3.497871427141417^9, 3.497942495239724*^9,
1647	3.498391212528688^9, 3.499521771092147^9, 3.4995831672080717`*^9,
1648	3.49958477566978^9, 3.499585723941321^9, 3.4996632922912827`*^9,
1649	3.499663716825395^9, 3.500627920707939^9, 3.500718342265451*^9,
1650	3.500980562325152*^9}],
1651
1652	Cell[BoxData[
1653	FormBox[
1654	InterpretationBox[
1655	RowBox[{"\<\"preparing FORM code in \"\>",
1656	"\[InvisibleSpace]", \
1657	"\<\"/nfs/home/d/degrande/eta/FeynProg/FormCalc-6.2/fc11.frm\"\>"}],
1658	SequenceForm[
1659	"preparing FORM code in ",
1660	"/nfs/home/d/degrande/eta/FeynProg/FormCalc-6.2/fc11.frm"],
1661	Editable->False], TraditionalForm]], "Print",
1662	CellChangeTimes->{3.478434402570528^9, 3.478435422620416^9,
1663	3.478435588542779^9, 3.478435896246393^9, 3.478436924110362*^9,
1664	3.479100051862622^9, 3.479106355014496^9, 3.479546852661124*^9,
1665	3.479547334202314^9, 3.479547712295999^9, 3.497862102150838*^9,
1666	3.49786254240231^9, 3.497871427141417^9, 3.497942495239724*^9,
1667	3.498391212528688^9, 3.499521771092147^9, 3.4995831672080717`*^9,
1668	3.49958477566978^9, 3.499585723941321^9, 3.4996632922912827`*^9,
1669	3.499663716825395^9, 3.500627920707939^9, 3.500718342265451*^9,
1670	3.500980562393785*^9}],
1671
1672	Cell["running FORM... ", "Print",
1673	CellChangeTimes->{3.478434402570528^9, 3.478435422620416^9,
1674	3.478435588542779^9, 3.478435896246393^9, 3.478436924110362*^9,
1675	3.479100051862622^9, 3.479106355014496^9, 3.479546852661124*^9,
1676	3.479547334202314^9, 3.479547712295999^9, 3.497862102150838*^9,
1677	3.49786254240231^9, 3.497871427141417^9, 3.497942495239724*^9,
1678	3.498391212528688^9, 3.499521771092147^9, 3.4995831672080717`*^9,
1679	3.49958477566978^9, 3.499585723941321^9, 3.4996632922912827`*^9,
1680	3.499663716825395^9, 3.500627920707939^9, 3.500718342265451*^9,
1681	3.500980562819409*^9}],
1682
1683	Cell[BoxData[
1684	FormBox["\<\"ok\"\>", TraditionalForm]], "Print",
1685	CellChangeTimes->{3.478434402570528^9, 3.478435422620416^9,
1686	3.478435588542779^9, 3.478435896246393^9, 3.478436924110362*^9,
1687	3.479100051862622^9, 3.479106355014496^9, 3.479546852661124*^9,
1688	3.479547334202314^9, 3.479547712295999^9, 3.497862102150838*^9,
1689	3.49786254240231^9, 3.497871427141417^9, 3.497942495239724*^9,
1690	3.498391212528688^9, 3.499521771092147^9, 3.4995831672080717`*^9,
1691	3.49958477566978^9, 3.499585723941321^9, 3.4996632922912827`*^9,
1692	3.499663716825395^9, 3.500627920707939^9, 3.500718342265451*^9,
1693	3.500980562962872*^9}]
1694	}, Open ]]
1695	}, Open ]],
1696
1697	Cell[CellGroupData[{
1698
1699	Cell[BoxData[
1700	RowBox[{"col", "=",
1701	RowBox[{"ColourME", "[", "M", "]"}]}]], "Input",
1702	CellChangeTimes->{{3.478434696113564^9, 3.478434729084623^9}, {
1703	3.478435197289632^9, 3.478435232835993^9}, {3.478436054623279*^9,
1704	3.478436055525961^9}, {3.499521787338925^9, 3.4995217875817633`*^9}}],
1705
1706	Cell[BoxData[
1707	FormBox[
1708	RowBox[{"{",
1709	RowBox[{
1710	RowBox[{
1711	RowBox[{"Mat", "(",
1712	RowBox[{"SUN1", ",", "SUN2"}], ")"}], "\[Rule]", "3"}], ",",
1713	RowBox[{
1714	RowBox[{"Mat", "(",
1715	RowBox[{"SUN1", ",", "SUN1"}], ")"}], "\[Rule]", "9"}], ",",
1716	RowBox[{
1717	RowBox[{"Mat", "(",
1718	RowBox[{"SUN2", ",", "SUN2"}], ")"}], "\[Rule]", "9"}], ",",
1719	RowBox[{
1720	RowBox[{"Mat", "(",
1721	RowBox[{"SUN2", ",", "SUN1"}], ")"}], "\[Rule]", "3"}]}], "}"}],
1722	TraditionalForm]], "Output",
1723	CellChangeTimes->{
1724	3.478434730426236^9, 3.478435200749498^9, 3.478435233950212*^9,
1725	3.478435426393788^9, 3.478435591077346^9, 3.478435927320691*^9,
1726	3.478436057790335^9, 3.478436928353135^9, 3.479100063362775*^9,
1727	3.479106358816292^9, 3.479546864822269^9, 3.479547348022377*^9,
1728	3.479547714372858^9, 3.497862106256465^9, 3.4978625437919207`*^9,
1729	3.497871428686603^9, 3.497942496752326^9, 3.498391216132546*^9, {
1730	3.4995217752940617`^9, 3.499521788279874^9}, 3.499583168961454*^9,
1731	3.499584777637652^9, 3.4995857253323097`^9, 3.499663294228547*^9,
1732	3.499663719271462^9, 3.500627923555628^9, 3.500718343963676*^9,
1733	3.5009805643292217`*^9}]
1734	}, Open ]],
1735
1736	Cell[CellGroupData[{
1737
1738	Cell[BoxData[{
1739	RowBox[{
1740	RowBox[{"_Hel", "=", "0"}], ";"}], "\[IndentingNewLine]",
1741	RowBox[{
1742	RowBox[{"hel", "=",
1743	RowBox[{"HelicityME", "[", "M", "]"}]}], ";"}]}], "Input",
1744	CellChangeTimes->{{3.478435272631223^9, 3.478435280805309^9}, {
1745	3.478435549596737^9, 3.478435557227066^9}, {3.478436067208497*^9,
1746	3.478436071671449^9}, {3.478436592499899^9, 3.478436607261712*^9},
1747	3.479547354402557^9, {3.499521790978319^9, 3.499521791276463*^9}}],
1748
1749	Cell[CellGroupData[{
1750
1751	Cell[BoxData[
1752	FormBox[
1753	InterpretationBox[
1754	RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "25",
1755	"\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}],
1756	SequenceForm["> ", 25, " helicity matrix elements"],
1757	Editable->False], TraditionalForm]], "Print",
1758	CellChangeTimes->{3.499521791849257^9, 3.4995831697897243`^9,
1759	3.499584780324565^9, 3.499585726563333^9, 3.4996632953146973`*^9,
1760	3.4996637203987007`^9, 3.500627928184684^9, 3.500718345225178*^9,
1761	3.500980564974576*^9}],
1762
1763	Cell[BoxData[
1764	FormBox["\<\"\"\>", TraditionalForm]], "Print",
1765	CellChangeTimes->{3.499521791849257^9, 3.4995831697897243`^9,
1766	3.499584780324565^9, 3.499585726563333^9, 3.4996632953146973`*^9,
1767	3.4996637203987007`^9, 3.500627928184684^9, 3.500718345225178*^9,
1768	3.5009805650678368`*^9}],
1769
1770	Cell[BoxData[
1771	FormBox[
1772	InterpretationBox[
1773	RowBox[{"\<\"preparing FORM code in \"\>",
1774	"\[InvisibleSpace]", \
1775	"\<\"/nfs/home/d/degrande/eta/FeynProg/FormCalc-6.2/fc11.frm\"\>"}],
1776	SequenceForm[
1777	"preparing FORM code in ",
1778	"/nfs/home/d/degrande/eta/FeynProg/FormCalc-6.2/fc11.frm"],
1779	Editable->False], TraditionalForm]], "Print",
1780	CellChangeTimes->{3.499521791849257^9, 3.4995831697897243`^9,
1781	3.499584780324565^9, 3.499585726563333^9, 3.4996632953146973`*^9,
1782	3.4996637203987007`^9, 3.500627928184684^9, 3.500718345225178*^9,
1783	3.500980565232149*^9}],
1784
1785	Cell["running FORM... ", "Print",
1786	CellChangeTimes->{3.499521791849257^9, 3.4995831697897243`^9,
1787	3.499584780324565^9, 3.499585726563333^9, 3.4996632953146973`*^9,
1788	3.4996637203987007`^9, 3.500627928184684^9, 3.500718345225178*^9,
1789	3.5009805653713493`*^9}],
1790
1791	Cell[BoxData[
1792	FormBox["\<\"ok\"\>", TraditionalForm]], "Print",
1793	CellChangeTimes->{3.499521791849257^9, 3.4995831697897243`^9,
1794	3.499584780324565^9, 3.499585726563333^9, 3.4996632953146973`*^9,
1795	3.4996637203987007`^9, 3.500627928184684^9, 3.500718345225178*^9,
1796	3.500980566254579*^9}]
1797	}, Open ]]
1798	}, Open ]],
1799
1800	Cell[BoxData[
1801	RowBox[{
1802	RowBox[{"M2", "=",
1803	RowBox[{
1804	RowBox[{"Simplify", "[",
1805	RowBox[{
1806	RowBox[{
1807	RowBox[{
1808	RowBox[{
1809	RowBox[{
1810	RowBox[{"SquaredME", "[", "M", "]"}], "/.", "col"}], "/.", "hel"}],
1811	"/.", "M$FACouplings"}], "/.",
1812	RowBox[{"{",
1813	RowBox[{
1814	RowBox[{"Me", "\[Rule]", "0"}], ",",
1815	RowBox[{"MB2", "\[Rule]", "0"}], ",",
1816	RowBox[{"MU2", "\[Rule]", "0"}], ",",
1817	RowBox[{"MD2", "\[Rule]", "0"}]}], "}"}]}], ",",
1818	RowBox[{"Assumptions", "\[Rule]",
1819	RowBox[{"{",
1820	RowBox[{
1821	RowBox[{"v", "\[Element]", "Reals"}], ",",
1822	RowBox[{"Lambda", "\[Element]", "Reals"}], ",",
1823	RowBox[{"sw", "\[Element]", "Reals"}], ",",
1824	RowBox[{"CKM33", "\[Element]", "Reals"}], ",",
1825	RowBox[{"MTri", "\[Element]", "Reals"}]}], "}"}]}]}], "]"}], "/.",
1826	RowBox[{"{",
1827	RowBox[{
1828	RowBox[{"Den", "[",
1829	RowBox[{"a_", ",", "b_"}], "]"}], "\[Rule]",
1830	RowBox[{"1", "/",
1831	RowBox[{"(",
1832	RowBox[{"a", "-", "b"}], ")"}]}]}], "}"}]}]}], ";"}]], "Input",
1833	CellChangeTimes->{{3.478436009927547^9, 3.478436018997932^9}, {
1834	3.478436082403898^9, 3.478436090700395^9}, {3.478436177508675*^9,
1835	3.47843618204671^9}, {3.478437003898071^9, 3.47843701110685*^9}, {
1836	3.478437477803822^9, 3.478437504302616^9}, {3.479106936214095*^9,
1837	3.479106948049022^9}, {3.479107333470424^9, 3.479107353663611*^9},
1838	3.497862123314191^9, {3.497862166292612^9, 3.4978621787574587`*^9}, {
1839	3.4978624132489767`^9, 3.497862416365185^9}, {3.497862613296958*^9,
1840	3.4978626363483677`^9}, {3.4978627990282288`^9, 3.497862817305622*^9}, {
1841	3.4994966280769463`^9, 3.499496630940941^9}, {3.499522073425353*^9,
1842	3.499522099311701^9}, {3.499522162407353^9, 3.499522175295724*^9}, {
1843	3.499522628018228^9, 3.4995226310463467`^9}, {3.499580340522955*^9,
1844	3.499580351425118^9}, 3.500627939698078^9}],
1845
1846	Cell[CellGroupData[{
1847
1848	Cell[BoxData[
1849	RowBox[{"M2bis", " ", "=", " ",
1850	RowBox[{
1851	RowBox[{"Normal", "[",
1852	RowBox[{"Series", "[",
1853	RowBox[{
1854	RowBox[{"(",
1855	RowBox[{"M2", "/.",
1856	RowBox[{"{",
1857	RowBox[{
1858	RowBox[{
1859	RowBox[{"Conjugate", "[", "MTri", "]"}], "\[Rule]", "Lambda"}],
1860	",",
1861	RowBox[{
1862	RowBox[{"Conjugate", "[", "MTri8", "]"}], "\[Rule]", "Lambda"}],
1863	",",
1864	RowBox[{"MTri", "\[Rule]", "Lambda"}], ",",
1865	RowBox[{"MTri8", "->", "Lambda"}]}], "}"}]}], ")"}], ",",
1866	RowBox[{"{",
1867	RowBox[{"Lambda", ",", "\[Infinity]", ",", "2"}], "}"}]}], "]"}],
1868	"]"}], "*",
1869	RowBox[{"4", "/", "9"}]}]}]], "Input",
1870	CellChangeTimes->{{3.500628083133654^9, 3.500628139146862^9}, {
1871	3.5006281702669773`^9, 3.500628172301248^9}, 3.500628257309023*^9, {
1872	3.500628403783983^9, 3.5006284048492317`^9}}],
1873
1874	Cell[BoxData[
1875	FormBox[
1876	RowBox[{
1877	FractionBox["4", "9"], " ",
1878	RowBox[{"(",
1879	RowBox[{
1880	FractionBox[
1881	RowBox[{"9", " ", "U", " ",
1882	RowBox[{"(",
1883	RowBox[{
1884	RowBox[{"Alfa2", " ", "CKM11", " ",
1885	SuperscriptBox["CKM33", "2"], " ",
1886	SuperscriptBox["\[Pi]", "2"], " ", "U", " ",
1887	SuperscriptBox["CKM11", "\[Conjugate]"]}], "-",
1888	RowBox[{"Alfa2", " ", "CKM11", " ",
1889	SuperscriptBox["CKM33", "2"], " ", "MT2", " ",
1890	SuperscriptBox["\[Pi]", "2"], " ",
1891	SuperscriptBox["CKM11", "\[Conjugate]"]}]}], ")"}]}],
1892	RowBox[{
1893	SuperscriptBox[
1894	RowBox[{"(",
1895	RowBox[{"MW2", "-", "S"}], ")"}], "2"], " ",
1896	SuperscriptBox["sw", "4"]}]], "+",
1897	RowBox[{
1898	FractionBox["1",
1899	RowBox[{"2", " ", "Alfa", " ",
1900	SuperscriptBox["Lambda", "2"], " ",
1901	SuperscriptBox[
1902	RowBox[{"(",
1903	RowBox[{"MW2", "-", "S"}], ")"}], "2"], " ",
1904	SuperscriptBox["sw", "4"]}]],
1905	RowBox[{"9", " ", "U", " ",
1906	RowBox[{"(",
1907	RowBox[{
1908	RowBox[{
1909	"2", " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ", "gT", " ", "gTl",
1910	" ", "MT2", " ", "\[Pi]", " ", "S", " ",
1911	SuperscriptBox["sw", "2"]}], "-",
1912	RowBox[{
1913	"2", " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ", "gT", " ", "gTl",
1914	" ", "\[Pi]", " ", "S", " ", "U", " ",
1915	SuperscriptBox["sw", "2"]}], "+",
1916	RowBox[{
1917	"2", " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ", "gT", " ", "gTl",
1918	" ", "MW2", " ", "\[Pi]", " ", "U", " ",
1919	SuperscriptBox["sw", "2"]}], "+",
1920	RowBox[{
1921	"2", " ", "Alfa2", " ", "CKM33", " ", "MT2", " ", "\[Pi]", " ", "S",
1922	" ",
1923	SuperscriptBox["CKM11", "\[Conjugate]"], " ",
1924	SuperscriptBox["gT", "\[Conjugate]"], " ",
1925	SuperscriptBox["gTl", "\[Conjugate]"], " ",
1926	SuperscriptBox["sw", "2"]}], "-",
1927	RowBox[{
1928	"2", " ", "Alfa2", " ", "CKM33", " ", "\[Pi]", " ", "S", " ", "U",
1929	" ",
1930	SuperscriptBox["CKM11", "\[Conjugate]"], " ",
1931	SuperscriptBox["gT", "\[Conjugate]"], " ",
1932	SuperscriptBox["gTl", "\[Conjugate]"], " ",
1933	SuperscriptBox["sw", "2"]}], "+",
1934	RowBox[{
1935	"2", " ", "Alfa2", " ", "CKM33", " ", "MW2", " ", "\[Pi]", " ", "U",
1936	" ",
1937	SuperscriptBox["CKM11", "\[Conjugate]"], " ",
1938	SuperscriptBox["gT", "\[Conjugate]"], " ",
1939	SuperscriptBox["gTl", "\[Conjugate]"], " ",
1940	SuperscriptBox["sw", "2"]}], "-",
1941	RowBox[{
1942	"2", " ", "Alfa2", " ", "CKM33", " ", "MT2", " ", "MW2", " ",
1943	"\[Pi]", " ",
1944	SuperscriptBox["CKM11", "\[Conjugate]"], " ",
1945	SuperscriptBox["gT", "\[Conjugate]"], " ",
1946	SuperscriptBox["gTl", "\[Conjugate]"], " ",
1947	SuperscriptBox["sw", "2"]}], "-",
1948	RowBox[{
1949	"2", " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ", "gT", " ", "gTl",
1950	" ", "MT2", " ", "MW2", " ", "\[Pi]", " ",
1951	SuperscriptBox["sw", "2"]}], "+",
1952	RowBox[{
1953	SqrtBox["2"], " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ", "CtW",
1954	" ", "EL", " ", "MT", " ", "\[Pi]", " ", "T", " ", "v", " ",
1955	SuperscriptBox["CKM11", "\[Conjugate]"], " ", "sw"}], "+",
1956	RowBox[{
1957	SqrtBox["2"], " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ", "CtW",
1958	" ", "EL", " ", "MT", " ", "\[Pi]", " ", "U", " ", "v", " ",
1959	SuperscriptBox["CKM11", "\[Conjugate]"], " ", "sw"}], "-",
1960	RowBox[{
1961	SqrtBox["2"], " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ", "CtW",
1962	" ", "EL", " ", "MT", " ", "MT2", " ", "\[Pi]", " ", "v", " ",
1963	SuperscriptBox["CKM11", "\[Conjugate]"], " ", "sw"}], "+",
1964	RowBox[{
1965	SqrtBox["2"], " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ", "EL",
1966	" ", "MT", " ", "\[Pi]", " ", "T", " ", "v", " ",
1967	SuperscriptBox["CKM11", "\[Conjugate]"], " ",
1968	SuperscriptBox["CtW", "\[Conjugate]"], " ", "sw"}], "+",
1969	RowBox[{
1970	SqrtBox["2"], " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ", "EL",
1971	" ", "MT", " ", "\[Pi]", " ", "U", " ", "v", " ",
1972	SuperscriptBox["CKM11", "\[Conjugate]"], " ",
1973	SuperscriptBox["CtW", "\[Conjugate]"], " ", "sw"}], "-",
1974	RowBox[{
1975	SqrtBox["2"], " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ", "EL",
1976	" ", "MT", " ", "MT2", " ", "\[Pi]", " ", "v", " ",
1977	SuperscriptBox["CKM11", "\[Conjugate]"], " ",
1978	SuperscriptBox["CtW", "\[Conjugate]"], " ", "sw"}], "+",
1979	RowBox[{
1980	"2", " ", "Alfa", " ", "Alfa2", " ", "C3phiq", " ", "CKM11", " ",
1981	"CKM33", " ",
1982	SuperscriptBox["\[Pi]", "2"], " ", "U", " ",
1983	SuperscriptBox["v", "2"], " ",
1984	SuperscriptBox["CKM11", "\[Conjugate]"]}], "-",
1985	RowBox[{
1986	"2", " ", "Alfa", " ", "Alfa2", " ", "C3phiq", " ", "CKM11", " ",
1987	"CKM33", " ", "MT2", " ",
1988	SuperscriptBox["\[Pi]", "2"], " ",
1989	SuperscriptBox["v", "2"], " ",
1990	SuperscriptBox["CKM11", "\[Conjugate]"]}], "+",
1991	RowBox[{
1992	"2", " ", "Alfa", " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ",
1993	SuperscriptBox["\[Pi]", "2"], " ", "U", " ",
1994	SuperscriptBox["v", "2"], " ",
1995	SuperscriptBox["C3phiq", "\[Conjugate]"], " ",
1996	SuperscriptBox["CKM11", "\[Conjugate]"]}], "-",
1997	RowBox[{
1998	"2", " ", "Alfa", " ", "Alfa2", " ", "CKM11", " ", "CKM33", " ",
1999	"MT2", " ",
2000	SuperscriptBox["\[Pi]", "2"], " ",
2001	SuperscriptBox["v", "2"], " ",
2002	SuperscriptBox["C3phiq", "\[Conjugate]"], " ",
2003	SuperscriptBox["CKM11", "\[Conjugate]"]}]}], ")"}]}]}]}], ")"}]}],
2004	TraditionalForm]], "Output",
2005	CellChangeTimes->{{3.500628131074225^9, 3.50062814789496^9},
2006	3.5006282578676033`^9, 3.5006284094744377`^9, 3.5007183689198303`*^9,
2007	3.500980604751898*^9}]
2008	}, Open ]],
2009
2010	Cell[CellGroupData[{
2011
2012	Cell[BoxData[
2013	RowBox[{"SM", "=",
2014	RowBox[{
2015	RowBox[{"Simplify", "[",
2016	RowBox[{
2017	RowBox[{"Coefficient", "[",
2018	RowBox[{
2019	RowBox[{"M2bis", "/.",
2020	RowBox[{"Lambda", "\[Rule]",
2021	RowBox[{"1", "/", "Lrep"}]}]}], ",", "Lrep", ",", "0"}], "]"}], "/.",
2022
2023	RowBox[{"Lrep", "\[Rule]",
2024	RowBox[{"1", "/", "Lambda"}]}]}], "]"}], "/.",
2025	RowBox[{"Alfa2", "\[Rule]",
2026	RowBox[{
2027	RowBox[{"(",
2028	RowBox[{
2029	RowBox[{"g", "^", "2"}], "*",
2030	RowBox[{
2031	RowBox[{
2032	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}], "^",
2033	"2"}]}]}]}]], "Input",
2034	CellChangeTimes->{{3.479107390301893^9, 3.479107487977641^9}, {
2035	3.497862153269348^9, 3.4978621630633917`^9}, {3.497862211884811*^9,
2036	3.497862355442546^9}, {3.497871464219926^9, 3.4978714701498127`*^9}, {
2037	3.497872139341824^9, 3.497872173963148^9}, 3.497872208436336*^9, {
2038	3.499496633870757^9, 3.499496634114503^9}, {3.499522120118948*^9,
2039	3.4995221502054234`^9}, {3.4995831777997723`^9, 3.499583178257844*^9}, {
2040	3.5006280214343977`^9, 3.5006280541734324`^9}, {3.500628277028809*^9,
2041	3.500628299856646*^9}}],
2042
2043	Cell[BoxData[
2044	FormBox[
2045	FractionBox[
2046	RowBox[{"CKM11", " ",
2047	SuperscriptBox["CKM33", "2"], " ",
2048	SuperscriptBox["g", "4"], " ", "U", " ",
2049	RowBox[{"(",
2050	RowBox[{"U", "-", "MT2"}], ")"}], " ",
2051	SuperscriptBox["CKM11", "\[Conjugate]"]}],
2052	RowBox[{"4", " ",
2053	SuperscriptBox[
2054	RowBox[{"(",
2055	RowBox[{"MW2", "-", "S"}], ")"}], "2"]}]], TraditionalForm]], "Output",
2056	CellChangeTimes->{
2057	3.479107432084265^9, {3.479107479011856^9, 3.47910748870907*^9},
2058	3.479546898992261^9, 3.479547373602786^9, 3.47954772133109*^9, {
2059	3.49786218934586^9, 3.4978622417535763`^9}, {3.497862328456608*^9,
2060	3.497862356340589^9}, 3.4978624247687893`^9, 3.497862548456053*^9,
2061	3.497862603630416^9, 3.497862643361876^9, 3.497862823146008*^9,
2062	3.497871437274989^9, 3.497871470884967^9, 3.497872174954796*^9,
2063	3.497872208727311^9, 3.4979425037893133`^9, 3.4983912314140177`*^9,
2064	3.4995220355488^9, 3.499522109861052^9, 3.49952218368876*^9,
2065	3.4995226445155478`^9, 3.499580356527287^9, 3.49958318032283*^9,
2066	3.49958480327499^9, 3.499585736439041^9, 3.499663316352057*^9,
2067	3.4996637258165617`^9, 3.50062797430942^9, 3.5006283011304283`*^9,
2068	3.500628412527124^9, 3.5006284538642387`^9, 3.50071837178924*^9, {
2069	3.5009805988717947`^9, 3.500980608655898^9}}]
2070	}, Open ]],
2071
2072	Cell[CellGroupData[{
2073
2074	Cell[BoxData[
2075	RowBox[{"I3phiq", "=",
2076	RowBox[{
2077	RowBox[{"Simplify", "[",
2078	RowBox[{
2079	RowBox[{
2080	RowBox[{
2081	RowBox[{"Coefficient", "[",
2082	RowBox[{
2083	RowBox[{"M2bis", "/.",
2084	RowBox[{"Lambda", "\[Rule]",
2085	RowBox[{"1", "/", "Lrep"}]}]}], ",", "Lrep", ",", "2"}], "]"}], "/.",
2086
2087	RowBox[{"{",
2088	RowBox[{
2089	RowBox[{"Lrep", "\[Rule]",
2090	RowBox[{"1", "/", "Lambda"}]}], ",",
2091	RowBox[{"CtW", "\[Rule]", "0"}], ",",
2092	RowBox[{"gT", "\[Rule]", "0"}]}], "}"}]}], "/.",
2093	RowBox[{"Alfa2", "\[Rule]",
2094	RowBox[{
2095	RowBox[{"(",
2096	RowBox[{
2097	RowBox[{"g", "^", "2"}], "*",
2098	RowBox[{
2099	RowBox[{
2100	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}],
2101	"^", "2"}]}]}], "/.",
2102	RowBox[{"Alfa2", "\[Rule]",
2103	RowBox[{
2104	RowBox[{"(",
2105	RowBox[{
2106	RowBox[{"g", "^", "2"}], "*",
2107	RowBox[{
2108	RowBox[{
2109	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}], "^",
2110	"2"}]}]}], "]"}], "/",
2111	RowBox[{"Lambda", "^", "2"}]}]}]], "Input",
2112	CellChangeTimes->{
2113	3.497862652569742^9, {3.497871477077907^9, 3.497871482621311*^9}, {
2114	3.4978715422628403`^9, 3.497871560455545^9}, 3.497872247138032*^9, {
2115	3.499496636684917^9, 3.4994966368992357`^9}, {3.499522288618387*^9,
2116	3.499522294251347^9}, {3.499583183124159^9, 3.4995831877077637`*^9},
2117	3.499663783981332^9, {3.5006283191598053`^9, 3.5006283795487347`*^9},
2118	3.500628463732111^9, {3.500628500729075^9, 3.5006285055746393`*^9}}],
2119
2120	Cell[BoxData[
2121	FormBox[
2122	RowBox[{"-",
2123	FractionBox[
2124	RowBox[{"CKM11", " ", "CKM33", " ",
2125	SuperscriptBox["g", "4"], " ",
2126	RowBox[{"(",
2127	RowBox[{"MT2", "-", "U"}], ")"}], " ", "U", " ",
2128	SuperscriptBox["v", "2"], " ",
2129	RowBox[{"(",
2130	RowBox[{"C3phiq", "+",
2131	SuperscriptBox["C3phiq", "\[Conjugate]"]}], ")"}], " ",
2132	SuperscriptBox["CKM11", "\[Conjugate]"]}],
2133	RowBox[{"4", " ",
2134	SuperscriptBox["Lambda", "2"], " ",
2135	SuperscriptBox[
2136	RowBox[{"(",
2137	RowBox[{"MW2", "-", "S"}], ")"}], "2"]}]]}],
2138	TraditionalForm]], "Output",
2139	CellChangeTimes->{
2140	3.4978626530863867`^9, 3.497862825140256^9, 3.497871484101454*^9,
2141	3.49787152665973^9, 3.497871560798565^9, 3.497872248273581*^9,
2142	3.4979425057500362`^9, 3.498391234071066^9, 3.499522295018914*^9,
2143	3.499522646017418^9, 3.4995803707362967`^9, 3.499583189303553*^9,
2144	3.499584806506563^9, 3.499585738378695^9, 3.499663319640636*^9,
2145	3.499663728451006^9, 3.499663784906847^9, {3.50062832825768*^9,
2146	3.5006283804491034`^9}, 3.500628417747555^9, {3.500628457826354*^9,
2147	3.500628464641365^9}, 3.50062850587543^9, 3.500718375563972*^9,
2148	3.500980610668749*^9}]
2149	}, Open ]],
2150
2151	Cell[CellGroupData[{
2152
2153	Cell[BoxData[
2154	RowBox[{"Simplify", "[",
2155	RowBox[{"I3phiq", "/", "SM"}], "]"}]], "Input",
2156	CellChangeTimes->{{3.499583191528366^9, 3.499583201664501^9}}],
2157
2158	Cell[BoxData[
2159	FormBox[
2160	FractionBox[
2161	RowBox[{
2162	SuperscriptBox["v", "2"], " ",
2163	RowBox[{"(",
2164	RowBox[{"C3phiq", "+",
2165	SuperscriptBox["C3phiq", "\[Conjugate]"]}], ")"}]}],
2166	RowBox[{"CKM33", " ",
2167	SuperscriptBox["Lambda", "2"]}]], TraditionalForm]], "Output",
2168	CellChangeTimes->{
2169	3.4995832034091187`^9, 3.4995848104919643`^9, 3.499585740418158*^9,
2170	3.499663321515193^9, 3.499663730772831^9, 3.499663789395797*^9, {
2171	3.500628493218745^9, 3.500628507609191^9}, 3.500718391481359*^9}]
2172	}, Open ]],
2173
2174	Cell[CellGroupData[{
2175
2176	Cell[BoxData[
2177	RowBox[{
2178	RowBox[{
2179	RowBox[{"Simplify", "[",
2180	RowBox[{
2181	RowBox[{"Coefficient", "[",
2182	RowBox[{
2183	RowBox[{"M2bis", "/.",
2184	RowBox[{"Lambda", "\[Rule]",
2185	RowBox[{"1", "/", "Lrep"}]}]}], ",", "Lrep", ",", "2"}], "]"}], "/.",
2186
2187	RowBox[{"{",
2188	RowBox[{
2189	RowBox[{"Lrep", "\[Rule]",
2190	RowBox[{"1", "/", "Lambda"}]}], ",",
2191	RowBox[{"C3phiq", "\[Rule]", "0"}], ",",
2192	RowBox[{"gT", "\[Rule]", "0"}]}], "}"}]}], "]"}], "/.",
2193	RowBox[{"{",
2194	RowBox[{
2195	RowBox[{"Alfa2", "\[Rule]",
2196	RowBox[{
2197	RowBox[{"(",
2198	RowBox[{
2199	RowBox[{"g", "^", "2"}], "*",
2200	RowBox[{
2201	RowBox[{
2202	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}], "^",
2203	"2"}]}], ",",
2204	RowBox[{"Alfa", "\[Rule]",
2205	RowBox[{"(",
2206	RowBox[{
2207	RowBox[{"g", "^", "2"}], "*",
2208	RowBox[{
2209	RowBox[{
2210	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}]}]}],
2211	"}"}]}], "/.",
2212	RowBox[{"v", "\[Rule]",
2213	RowBox[{"2", "MW", " ",
2214	RowBox[{"sw", "/", "EL"}]}]}]}]], "Input",
2215	CellChangeTimes->{{3.497871610887577^9, 3.497871617629863^9}, {
2216	3.497872251640006^9, 3.49787227096323^9}, {3.4978725133447638`*^9,
2217	3.497872535294683^9}, {3.499496640008424^9, 3.4994966402456207`*^9}, {
2218	3.4995223189020023`^9, 3.4995223246360807`^9}, {3.500628518469676*^9,
2219	3.500628560043779*^9}}],
2220
2221	Cell[BoxData[
2222	FormBox[
2223	RowBox[{"-",
2224	FractionBox[
2225	RowBox[{
2226	SqrtBox["2"], " ", "CKM11", " ", "CKM33", " ",
2227	SuperscriptBox["g", "2"], " ", "MT", " ", "MW", " ",
2228	RowBox[{"(",
2229	RowBox[{"MT2", "-", "T", "-", "U"}], ")"}], " ", "U", " ",
2230	SuperscriptBox["CKM11", "\[Conjugate]"], " ",
2231	RowBox[{"(",
2232	RowBox[{"CtW", "+",
2233	SuperscriptBox["CtW", "\[Conjugate]"]}], ")"}]}],
2234	SuperscriptBox[
2235	RowBox[{"(",
2236	RowBox[{"MW2", "-", "S"}], ")"}], "2"]]}], TraditionalForm]], "Output",
2237	CellChangeTimes->{
2238	3.497871619084063^9, {3.497872252601283^9, 3.4978722716892776`*^9},
2239	3.497872536191465^9, 3.49794250746635^9, 3.498391237200657*^9,
2240	3.49952232746139^9, 3.499522647391^9, 3.499580423160551*^9,
2241	3.499584816191203^9, 3.499585742588132^9, 3.499663391307857*^9, {
2242	3.500628528569908^9, 3.500628561563349^9}, 3.500718399647006*^9}]
2243	}, Open ]],
2244
2245	Cell[CellGroupData[{
2246
2247	Cell[BoxData[
2248	RowBox[{
2249	RowBox[{
2250	RowBox[{
2251	RowBox[{"Simplify", "[",
2252	RowBox[{
2253	RowBox[{
2254	RowBox[{"Coefficient", "[",
2255	RowBox[{
2256	RowBox[{"M2bis", "/.",
2257	RowBox[{"Lambda", "\[Rule]",
2258	RowBox[{"1", "/", "Lrep"}]}]}], ",", "Lrep", ",", "2"}], "]"}], "/.",
2259
2260	RowBox[{"{",
2261	RowBox[{
2262	RowBox[{"Lrep", "\[Rule]",
2263	RowBox[{"1", "/", "Lambda"}]}], ",",
2264	RowBox[{"C3phiq", "\[Rule]", "0"}], ",",
2265	RowBox[{"CtW", "\[Rule]", "0"}]}], "}"}]}], ",",
2266	RowBox[{"Assumptions", "\[Rule]",
2267	RowBox[{"{",
2268	RowBox[{
2269	RowBox[{"gT", "\[Element]", "Reals"}], ",",
2270	RowBox[{"gTl", "\[Element]", "Reals"}], ",",
2271	RowBox[{"CKM11", "\[Element]", "Reals"}]}], "}"}]}]}], "]"}], "/.",
2272	RowBox[{"{",
2273	RowBox[{
2274	RowBox[{"Alfa2", "\[Rule]",
2275	RowBox[{
2276	RowBox[{"(",
2277	RowBox[{
2278	RowBox[{"g", "^", "2"}], "*",
2279	RowBox[{
2280	RowBox[{
2281	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}],
2282	"^", "2"}]}], ",",
2283	RowBox[{"Alfa", "\[Rule]",
2284	RowBox[{"(",
2285	RowBox[{
2286	RowBox[{"g", "^", "2"}], "*",
2287	RowBox[{
2288	RowBox[{
2289	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}]}]}],
2290	"}"}]}], "/.",
2291	RowBox[{"v", "\[Rule]",
2292	RowBox[{"2", "MW", " ",
2293	RowBox[{"sw", "/", "EL"}]}]}]}], "/.",
2294	RowBox[{"gTl", "\[Rule]",
2295	RowBox[{"C13qq", "/", "gT"}]}]}]], "Input",
2296	CellChangeTimes->{{3.4995224524460087`^9, 3.499522509872376^9},
2297	3.499522653969439^9, {3.500628592789551^9, 3.50062869561724*^9}, {
2298	3.50062875629522^9, 3.500628765832335^9}}],
2299
2300	Cell[BoxData[
2301	FormBox[
2302	RowBox[{"-",
2303	FractionBox[
2304	RowBox[{"2", " ", "C13qq", " ", "CKM11", " ", "CKM33", " ",
2305	SuperscriptBox["g", "2"], " ",
2306	RowBox[{"(",
2307	RowBox[{"MT2", "-", "U"}], ")"}], " ", "U"}],
2308	RowBox[{"MW2", "-", "S"}]]}], TraditionalForm]], "Output",
2309	CellChangeTimes->{{3.499522461582746^9, 3.499522511298319^9}, {
2310	3.499522648806151^9, 3.499522654474715^9}, 3.4995848197254868`*^9,
2311	3.499585745130802^9, {3.4996634003402653`^9, 3.499663423638483*^9}, {
2312	3.500628600936021^9, 3.5006286284218073`^9}, {3.500628669721744*^9,
2313	3.5006286966319227`^9}, 3.5006287670234623`^9, 3.500718494132983*^9}]
2314	}, Open ]],
2315
2316	Cell[CellGroupData[{
2317
2318	Cell[BoxData[
2319	RowBox[{"test", "=", " ",
2320	RowBox[{"Simplify", "[",
2321	RowBox[{
2322	RowBox[{
2323	RowBox[{
2324	RowBox[{"Normal", "[",
2325	RowBox[{"Series", "[",
2326	RowBox[{
2327	RowBox[{"(",
2328	RowBox[{"M2", "/.",
2329	RowBox[{"{",
2330	RowBox[{
2331	RowBox[{
2332	RowBox[{"Conjugate", "[", "MTri", "]"}], "\[Rule]", "Lambda"}],
2333	",",
2334	RowBox[{
2335	RowBox[{"Conjugate", "[", "MTri8", "]"}], "\[Rule]", "Lambda"}],
2336	",",
2337	RowBox[{"MTri", "\[Rule]", "Lambda"}], ",",
2338	RowBox[{"MTri8", "->", "Lambda"}]}], "}"}]}], ")"}], ",",
2339	RowBox[{"{",
2340	RowBox[{"Lambda", ",", "\[Infinity]", ",", "4"}], "}"}]}], "]"}],
2341	"]"}], "*",
2342	RowBox[{"4", "/", "9"}]}], "-", "M2bis"}], "/.",
2343	RowBox[{"{",
2344	RowBox[{
2345	RowBox[{"gT8", "\[Rule]", "0"}], ",",
2346	RowBox[{"CtW", "\[Rule]", "0"}], ",",
2347	RowBox[{"gT", "\[Rule]", "0"}]}], "}"}]}], "]"}]}]], "Input",
2348	CellChangeTimes->{{3.50098061601186^9, 3.500980715844986^9}}],
2349
2350	Cell[BoxData[
2351	FormBox[
2352	FractionBox[
2353	RowBox[{"4", " ", "Alfa2", " ", "C3phiq", " ", "CKM11", " ",
2354	SuperscriptBox["\[Pi]", "2"], " ", "U", " ",
2355	RowBox[{"(",
2356	RowBox[{"U", "-", "MT2"}], ")"}], " ",
2357	SuperscriptBox["v", "4"], " ",
2358	SuperscriptBox["C3phiq", "\[Conjugate]"], " ",
2359	SuperscriptBox["CKM11", "\[Conjugate]"]}],
2360	RowBox[{
2361	SuperscriptBox["Lambda", "4"], " ",
2362	SuperscriptBox[
2363	RowBox[{"(",
2364	RowBox[{"MW2", "-", "S"}], ")"}], "2"], " ",
2365	SuperscriptBox["sw", "4"]}]], TraditionalForm]], "Output",
2366	CellChangeTimes->{3.500980737442081*^9}]
2367	}, Open ]]
2368	}, Open ]],
2369
2370	Cell[CellGroupData[{
2371
2372	Cell["g b->t W", "Subtitle",
2373	CellChangeTimes->{{3.4778117420706997`^9, 3.4778117447507^9}, {
2374	3.497862048812056^9, 3.497862055502046^9}, {3.499496596319121*^9,
2375	3.4994966035710382`^9}, {3.499600295559596^9, 3.499600302010282*^9}}],
2376
2377	Cell[BoxData[
2378	RowBox[{"Quit", "[", "]"}]], "Input",
2379	CellChangeTimes->{{3.448968342513181^9, 3.448968344880295^9}}],
2380
2381	Cell[CellGroupData[{
2382
2383	Cell[BoxData[{
2384	RowBox[{
2385	RowBox[{
2386	"SetDirectory", "[", "\"\</home/degrande/eta/FeynProg/FeynArts-3.5\>\"",
2387	"]"}], ";"}], "\[IndentingNewLine]",
2388	RowBox[{"<<", " ", "FeynArts`"}]}], "Input",
2389	CellChangeTimes->{
2390	3.4777456682883^9, 3.478434363232997^9, {3.4978572265868073`*^9,
2391	3.4978572271791267`*^9}}],
2392
2393	Cell[CellGroupData[{
2394
2395	Cell[BoxData[
2396	FormBox["\<\"\"\>", TraditionalForm]], "Print",
2397	CellChangeTimes->{
2398	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
2399	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
2400	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
2401	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
2402	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
2403	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
2404	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
2405	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
2406	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
2407	3.498391193496977^9, 3.499508864100067^9, 3.499521741782934*^9,
2408	3.4995831578974943`^9, {3.499584268361443^9, 3.499584295560235*^9},
2409	3.499584333899542^9, 3.4995857048002872`^9, 3.4995936758763742`*^9,
2410	3.499600375952565^9, 3.499664661934032^9, 3.499665377631999*^9, {
2411	3.499666608507955^9, 3.499666620942053^9}, 3.5001872197849092`*^9,
2412	3.500187672662253^9, 3.5003855154195833`^9, 3.5006170786628447`*^9,
2413	3.500617540935507^9, 3.5006179767633047`^9, 3.500618280374544*^9,
2414	3.500620018874608^9, 3.50062757473238^9, 3.500718527335946*^9}],
2415
2416	Cell[BoxData[
2417	FormBox["\<\"FeynArts 3.5\"\>", TraditionalForm]], "Print",
2418	CellChangeTimes->{
2419	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
2420	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
2421	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
2422	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
2423	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
2424	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
2425	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
2426	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
2427	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
2428	3.498391193496977^9, 3.499508864100067^9, 3.499521741782934*^9,
2429	3.4995831578974943`^9, {3.499584268361443^9, 3.499584295560235*^9},
2430	3.499584333899542^9, 3.4995857048002872`^9, 3.4995936758763742`*^9,
2431	3.499600375952565^9, 3.499664661934032^9, 3.499665377631999*^9, {
2432	3.499666608507955^9, 3.499666620942053^9}, 3.5001872197849092`*^9,
2433	3.500187672662253^9, 3.5003855154195833`^9, 3.5006170786628447`*^9,
2434	3.500617540935507^9, 3.5006179767633047`^9, 3.500618280374544*^9,
2435	3.500620018874608^9, 3.50062757473238^9, 3.5007185274091454`*^9}],
2436
2437	Cell[BoxData[
2438	FormBox["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>",
2439	TraditionalForm]], "Print",
2440	CellChangeTimes->{
2441	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
2442	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
2443	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
2444	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
2445	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
2446	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
2447	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
2448	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
2449	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
2450	3.498391193496977^9, 3.499508864100067^9, 3.499521741782934*^9,
2451	3.4995831578974943`^9, {3.499584268361443^9, 3.499584295560235*^9},
2452	3.499584333899542^9, 3.4995857048002872`^9, 3.4995936758763742`*^9,
2453	3.499600375952565^9, 3.499664661934032^9, 3.499665377631999*^9, {
2454	3.499666608507955^9, 3.499666620942053^9}, 3.5001872197849092`*^9,
2455	3.500187672662253^9, 3.5003855154195833`^9, 3.5006170786628447`*^9,
2456	3.500617540935507^9, 3.5006179767633047`^9, 3.500618280374544*^9,
2457	3.500620018874608^9, 3.50062757473238^9, 3.500718527451728*^9}],
2458
2459	Cell[BoxData[
2460	FormBox["\<\"last revised 16 Apr 10\"\>", TraditionalForm]], "Print",
2461	CellChangeTimes->{
2462	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
2463	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
2464	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
2465	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
2466	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
2467	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
2468	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
2469	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
2470	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
2471	3.498391193496977^9, 3.499508864100067^9, 3.499521741782934*^9,
2472	3.4995831578974943`^9, {3.499584268361443^9, 3.499584295560235*^9},
2473	3.499584333899542^9, 3.4995857048002872`^9, 3.4995936758763742`*^9,
2474	3.499600375952565^9, 3.499664661934032^9, 3.499665377631999*^9, {
2475	3.499666608507955^9, 3.499666620942053^9}, 3.5001872197849092`*^9,
2476	3.500187672662253^9, 3.5003855154195833`^9, 3.5006170786628447`*^9,
2477	3.500617540935507^9, 3.5006179767633047`^9, 3.500618280374544*^9,
2478	3.500620018874608^9, 3.50062757473238^9, 3.500718527492084*^9}]
2479	}, Open ]]
2480	}, Open ]],
2481
2482	Cell[BoxData[
2483	RowBox[{
2484	RowBox[{"topo", " ", "=", " ",
2485	RowBox[{"CreateTopologies", "[",
2486	RowBox[{"0", ",",
2487	RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
2488	CellChangeTimes->{
2489	3.47548813810296^9, 3.475488972088063^9, {3.4777456120408*^9,
2490	3.4777456332583^9}, 3.4778098132447^9, 3.4778110152581997`*^9, {
2491	3.497857235135571^9, 3.497857237590866^9}, {3.499496482154114*^9,
2492	3.499496485211625*^9}}],
2493
2494	Cell[CellGroupData[{
2495
2496	Cell[BoxData[
2497	RowBox[{"Paint", "[", "topo", "]"}]], "Input",
2498	CellChangeTimes->{{3.4777456818157997`^9, 3.4777456889958^9}}],
2499
2500	Cell[CellGroupData[{
2501
2502	Cell[BoxData[
2503	FormBox[
2504	InterpretationBox[
2505	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
2506	"\[InvisibleSpace]", "\<\": \"\>",
2507	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
2508	SequenceForm["> Top. ", 1, ": ", "1 diagram"],
2509	Editable->False], TraditionalForm]], "Print",
2510	CellChangeTimes->{3.4777456900683002`^9, 3.478435704755388^9}],
2511
2512	Cell[BoxData[
2513	FormBox[
2514	InterpretationBox[
2515	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
2516	"\[InvisibleSpace]", "\<\": \"\>",
2517	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
2518	SequenceForm["> Top. ", 2, ": ", "1 diagram"],
2519	Editable->False], TraditionalForm]], "Print",
2520	CellChangeTimes->{3.4777456900683002`^9, 3.47843570476089^9}],
2521
2522	Cell[BoxData[
2523	FormBox[
2524	InterpretationBox[
2525	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
2526	"\[InvisibleSpace]", "\<\": \"\>",
2527	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
2528	SequenceForm["> Top. ", 3, ": ", "1 diagram"],
2529	Editable->False], TraditionalForm]], "Print",
2530	CellChangeTimes->{3.4777456900683002`^9, 3.47843570476613^9}],
2531
2532	Cell[BoxData[
2533	FormBox[
2534	InterpretationBox[
2535	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
2536	"\[InvisibleSpace]", "\<\": \"\>",
2537	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
2538	SequenceForm["> Top. ", 4, ": ", "1 diagram"],
2539	Editable->False], TraditionalForm]], "Print",
2540	CellChangeTimes->{3.4777456900683002`^9, 3.478435704771953^9}],
2541
2542	Cell[BoxData[
2543	FormBox[
2544	GraphicsBox[{InsetBox[
2545	GraphicsBox[
2546	{Thickness[0.005],
2547	LineBox[{{-9.094947017729282*^-12, 15.000000000003638`}, {
2548	9.999999999983629, 10.000000000007276`}}],
2549	LineBox[{{-9.094947017729282*^-12, 4.999999999996362}, {
2550	9.999999999985448, 9.999999999989086}}],
2551	LineBox[{{20.000000000009095`, 15.000000000003638`}, {
2552	10.000000000009095`, 10.000000000003638`}}],
2553	LineBox[{{20., 5.}, {10., 10.}}],
2554	{PointSize[0.04], PointBox[{10., 10.}]}, InsetBox[
2555	TagBox[
2556	StyleBox[
2557	TagBox["\<\"T1\"\>",
2558	DisplayForm],
2559	FontFamily->"Helvetica",
2560	FontSize->7.997355371900828],
2561	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
2562	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
2563	AspectRatio->1,
2564	PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
2565	GraphicsBox[
2566	{Thickness[0.005],
2567	LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
2568	5.999999999996362, 10.000000000001819`}}],
2569	LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
2570	5.999999999994543, 9.999999999994543}}],
2571	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
2572	14.000000000003638`, 10.000000000001819`}}],
2573	LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`,
2574	10.}}], LineBox[{{5.999999999990206, 10.}, {13.999999999982224`,
2575	10.}}],
2576	{PointSize[0.04], PointBox[{6., 10.}],
2577	PointBox[{13.99999999999999, 10.}]}, InsetBox[
2578	TagBox[
2579	StyleBox[
2580	TagBox["\<\"T2\"\>",
2581	DisplayForm],
2582	FontFamily->"Helvetica",
2583	FontSize->7.997355371900828],
2584	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
2585	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
2586	AspectRatio->1,
2587	PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}],
2588	InsetBox[
2589	GraphicsBox[
2590	{Thickness[0.005],
2591	LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`,
2592	14.000000000003638`}}],
2593	LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
2594	9.999999999988404, 6.}}],
2595	LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}],
2596	LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726,
2597	5.999999999996362}}],
2598	LineBox[{{10., 14.000000000000902`}, {10., 6.000000000000003}}],
2599	{PointSize[0.04], PointBox[{10., 13.99999999999999}],
2600	PointBox[{10., 6.}]}, InsetBox[
2601	TagBox[
2602	StyleBox[
2603	TagBox["\<\"T3\"\>",
2604	DisplayForm],
2605	FontFamily->"Helvetica",
2606	FontSize->7.997355371900828],
2607	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
2608	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
2609	AspectRatio->1,
2610	PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}],
2611	InsetBox[
2612	GraphicsBox[
2613	{Thickness[0.005],
2614	LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`,
2615	14.000000000003638`}}],
2616	LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
2617	9.999999999988404, 6.}}],
2618	LineBox[{{20.00000000000182, 15.}, {10., 6.}}],
2619	LineBox[{{20.00000000000182, 5.}, {10., 14.}}],
2620	LineBox[{{10., 14.000000000000902`}, {10., 6.000000000000003}}],
2621	{PointSize[0.04], PointBox[{10., 13.99999999999999}],
2622	PointBox[{10., 6.}]}, InsetBox[
2623	TagBox[
2624	StyleBox[
2625	TagBox["\<\"T4\"\>",
2626	DisplayForm],
2627	FontFamily->"Helvetica",
2628	FontSize->7.997355371900828],
2629	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
2630	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
2631	AspectRatio->1,
2632	PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
2633	TagBox[
2634	StyleBox[
2635	TagBox["\<\"2\"\>",
2636	DisplayForm],
2637	FontFamily->"Helvetica",
2638	FontSize->11.99603305785124],
2639	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
2640	11.99603305785124]& ], {28.5, 69.96}, {0, 0}], InsetBox[
2641	TagBox[
2642	StyleBox[
2643	TagBox["\<\"\[RightArrow]\"\>",
2644	DisplayForm],
2645	FontFamily->"Helvetica",
2646	FontSize->11.99603305785124],
2647	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
2648	11.99603305785124]& ], {33., 69.96}, {0, 0}], InsetBox[
2649	TagBox[
2650	StyleBox[
2651	TagBox["\<\"2\"\>",
2652	DisplayForm],
2653	FontFamily->"Helvetica",
2654	FontSize->11.99603305785124],
2655	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
2656	11.99603305785124]& ], {37.5, 69.96}, {0, 0}]},
2657	AspectRatio->1.0999999999999999`,
2658	PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
2659	CellChangeTimes->{3.4777456900683002`^9, 3.478435705080669^9}]
2660	}, Closed]],
2661
2662	Cell[BoxData[
2663	FormBox[
2664	RowBox[{
2665	RowBox[{"FeynArtsGraphics", "(",
2666	RowBox[{"2", "\[Rule]", "2"}], ")"}], "\[InvisibleApplication]",
2667	RowBox[{"(",
2668	TagBox[
2669	RowBox[{"(", "\[NoBreak]", GridBox[{
2670	{
2671	FormBox[
2672	InterpretationBox[
2673
2674	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1\"\>",
2675	"\[InvisibleSpace]", "\<\"]\"\>"}],
2676	SequenceForm["[", "T1", "]"],
2677	Editable->False],
2678	TraditionalForm],
2679	FormBox[
2680	InterpretationBox[
2681
2682	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2\"\>",
2683	"\[InvisibleSpace]", "\<\"]\"\>"}],
2684	SequenceForm["[", "T2", "]"],
2685	Editable->False],
2686	TraditionalForm],
2687	FormBox[
2688	InterpretationBox[
2689
2690	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T3\"\>",
2691	"\[InvisibleSpace]", "\<\"]\"\>"}],
2692	SequenceForm["[", "T3", "]"],
2693	Editable->False],
2694	TraditionalForm]},
2695	{
2696	FormBox[
2697	InterpretationBox[
2698
2699	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T4\"\>",
2700	"\[InvisibleSpace]", "\<\"]\"\>"}],
2701	SequenceForm["[", "T4", "]"],
2702	Editable->False],
2703	TraditionalForm], "Null", "Null"},
2704	{"Null", "Null", "Null"}
2705	},
2706	GridBoxAlignment->{
2707	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
2708	"RowsIndexed" -> {}},
2709	GridBoxSpacings->{"Columns" -> {
2710	Offset[0.27999999999999997`], {
2711	Offset[0.7]},
2712	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
2713	Offset[0.2], {
2714	Offset[0.4]},
2715	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
2716	Function[BoxForm`e$,
2717	MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
2718	CellChangeTimes->{3.4777456905908003`^9, 3.478435705207405^9}]
2719	}, Closed]],
2720
2721	Cell[CellGroupData[{
2722
2723	Cell[BoxData[
2724	RowBox[{
2725	RowBox[{"INTopo", "=", " ",
2726	RowBox[{"InsertFields", "[",
2727	RowBox[{"topo", ",",
2728	RowBox[{
2729	RowBox[{"{",
2730	RowBox[{
2731	RowBox[{"V", "[", "4", "]"}], ",",
2732	RowBox[{"F", "[", "12", "]"}]}], "}"}], "\[Rule]",
2733	RowBox[{"{",
2734	RowBox[{
2735	RowBox[{"F", "[", "9", "]"}], ",",
2736	RowBox[{"-",
2737	RowBox[{"V", "[", "3", "]"}]}]}], "}"}]}], ",",
2738	RowBox[{"GenericModel", "\[Rule]", "\"\<TopEffTh_FA/TopEffTh_FA\>\""}],
2739	",",
2740	RowBox[{"Model", "\[Rule]", "\"\<TopEffTh_FA/TopEffTh_FA\>\""}], ",",
2741	RowBox[{"InsertionLevel", "\[Rule]",
2742	RowBox[{"{",
2743	RowBox[{"Generic", ",", " ", "Classes", ",", "Particles"}], "}"}]}]}],
2744	"]"}]}], ";"}]], "Input",
2745	CellChangeTimes->{{3.4778060034077^9, 3.4778060172207003`^9}, {
2746	3.4778061181482^9, 3.4778062060957003`^9}, {3.4778064622107*^9,
2747	3.4778064974032^9}, {3.4778096875622^9, 3.4778097175422*^9}, {
2748	3.4778099067622004`^9, 3.4778099081296997`^9}, {3.4778111168007*^9,
2749	3.4778111226157^9}, {3.4778115172907^9, 3.4778115174282*^9},
2750	3.478437845209915^9, {3.479546689667869^9, 3.479546718821388*^9}, {
2751	3.479546793843457^9, 3.47954680051448^9}, {3.497857256699514*^9,
2752	3.497857324742622^9}, {3.497857383657874^9, 3.497857387157604*^9}, {
2753	3.49785741944608^9, 3.497857431156871^9}, {3.497862502940681*^9,
2754	3.497862507492491^9}, {3.4983901274683743`^9, 3.498390130073097*^9}, {
2755	3.499495582368535^9, 3.499495584937093^9}, {3.4994965044618607`*^9,
2756	3.499496568155007^9}, {3.499586356510202^9, 3.499586373514152*^9},
2757	3.499586422762087^9, {3.499600313523304^9, 3.499600353271706*^9},
2758	3.499600405049478^9, {3.499664538612829^9, 3.499664569069028*^9}, {
2759	3.499664609164019^9, 3.499664612307405^9}, {3.500620000108306*^9,
2760	3.500620004318939*^9}}],
2761
2762	Cell[CellGroupData[{
2763
2764	Cell[BoxData[
2765	FormBox["\<\"\"\>", TraditionalForm]], "Print",
2766	CellChangeTimes->{
2767	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
2768	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
2769	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
2770	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
2771	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
2772	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
2773	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
2774	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
2775	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
2776	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
2777	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
2778	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
2779	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
2780	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
2781	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
2782	3.500718528925969*^9}],
2783
2784	Cell[BoxData[
2785	FormBox[
2786	InterpretationBox[
2787	RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
2788	"\[InvisibleSpace]", "\<\"generic\"\>",
2789	"\[InvisibleSpace]", "\<\" model file \"\>",
2790	"\[InvisibleSpace]", \
2791	"\<\"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
2792	TopEffTh_FA.gen\"\>"}],
2793	SequenceForm[
2794	"", "loading ", "generic", " model file ",
2795	"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
2796	TopEffTh_FA.gen"],
2797	Editable->False], TraditionalForm]], "Print",
2798	CellChangeTimes->{
2799	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
2800	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
2801	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
2802	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
2803	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
2804	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
2805	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
2806	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
2807	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
2808	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
2809	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
2810	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
2811	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
2812	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
2813	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
2814	3.5007185291286983`*^9}],
2815
2816	Cell[BoxData[
2817	FormBox["\<\"> $SVMixing is OFF\"\>", TraditionalForm]], "Print",
2818	CellChangeTimes->{
2819	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
2820	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
2821	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
2822	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
2823	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
2824	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
2825	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
2826	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
2827	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
2828	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
2829	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
2830	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
2831	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
2832	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
2833	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
2834	3.50071852914955*^9}],
2835
2836	Cell[BoxData[
2837	FormBox[
2838	InterpretationBox[
2839	RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]",
2840	RowBox[{"{", "\<\"TopEffTh_FA/TopEffTh_FA\"\>", "}"}],
2841	"\[InvisibleSpace]", "\<\" initialized\"\>"}],
2842	SequenceForm[
2843	"generic model ", {"TopEffTh_FA/TopEffTh_FA"}, " initialized"],
2844	Editable->False], TraditionalForm]], "Print",
2845	CellChangeTimes->{
2846	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
2847	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
2848	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
2849	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
2850	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
2851	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
2852	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
2853	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
2854	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
2855	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
2856	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
2857	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
2858	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
2859	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
2860	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
2861	3.5007185291801662`*^9}],
2862
2863	Cell[BoxData[
2864	FormBox["\<\"\"\>", TraditionalForm]], "Print",
2865	CellChangeTimes->{
2866	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
2867	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
2868	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
2869	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
2870	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
2871	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
2872	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
2873	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
2874	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
2875	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
2876	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
2877	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
2878	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
2879	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
2880	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
2881	3.5007185292155323`*^9}],
2882
2883	Cell[BoxData[
2884	FormBox[
2885	InterpretationBox[
2886	RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
2887	"\[InvisibleSpace]", "\<\"classes\"\>",
2888	"\[InvisibleSpace]", "\<\" model file \"\>",
2889	"\[InvisibleSpace]", \
2890	"\<\"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
2891	TopEffTh_FA.mod\"\>"}],
2892	SequenceForm[
2893	"", "loading ", "classes", " model file ",
2894	"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
2895	TopEffTh_FA.mod"],
2896	Editable->False], TraditionalForm]], "Print",
2897	CellChangeTimes->{
2898	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
2899	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
2900	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
2901	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
2902	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
2903	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
2904	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
2905	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
2906	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
2907	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
2908	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
2909	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
2910	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
2911	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
2912	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
2913	3.500718529244811*^9}],
2914
2915	Cell[BoxData[
2916	FormBox[
2917	InterpretationBox[
2918	RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "51",
2919	"\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>",
2920	"\[InvisibleSpace]", "30", "\[InvisibleSpace]", "\<\" classes\"\>"}],
2921	SequenceForm[
2922	"> ", 51, " particles (incl. antiparticles) in ", 30, " classes"],
2923	Editable->False], TraditionalForm]], "Print",
2924	CellChangeTimes->{
2925	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
2926	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
2927	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
2928	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
2929	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
2930	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
2931	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
2932	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
2933	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
2934	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
2935	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
2936	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
2937	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
2938	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
2939	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
2940	3.500718529273018*^9}],
2941
2942	Cell[BoxData[
2943	FormBox["\<\"> $CounterTerms are ON\"\>", TraditionalForm]], "Print",
2944	CellChangeTimes->{
2945	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
2946	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
2947	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
2948	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
2949	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
2950	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
2951	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
2952	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
2953	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
2954	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
2955	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
2956	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
2957	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
2958	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
2959	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
2960	3.500718530276218*^9}],
2961
2962	Cell[BoxData[
2963	FormBox[
2964	InterpretationBox[
2965	RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "142",
2966	"\[InvisibleSpace]", "\<\" vertices\"\>"}],
2967	SequenceForm["> ", 142, " vertices"],
2968	Editable->False], TraditionalForm]], "Print",
2969	CellChangeTimes->{
2970	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
2971	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
2972	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
2973	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
2974	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
2975	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
2976	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
2977	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
2978	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
2979	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
2980	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
2981	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
2982	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
2983	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
2984	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
2985	3.50071853055928*^9}],
2986
2987	Cell[BoxData[
2988	FormBox[
2989	InterpretationBox[
2990	RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]",
2991	RowBox[{"{", "\<\"TopEffTh_FA/TopEffTh_FA\"\>", "}"}],
2992	"\[InvisibleSpace]", "\<\" initialized\"\>"}],
2993	SequenceForm[
2994	"classes model ", {"TopEffTh_FA/TopEffTh_FA"}, " initialized"],
2995	Editable->False], TraditionalForm]], "Print",
2996	CellChangeTimes->{
2997	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
2998	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
2999	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
3000	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
3001	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
3002	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
3003	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
3004	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
3005	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
3006	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
3007	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
3008	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
3009	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
3010	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
3011	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
3012	3.5007185314027357`*^9}],
3013
3014	Cell[BoxData[
3015	FormBox["\<\"\"\>", TraditionalForm]], "Print",
3016	CellChangeTimes->{
3017	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
3018	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
3019	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
3020	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
3021	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
3022	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
3023	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
3024	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
3025	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
3026	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
3027	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
3028	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
3029	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
3030	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
3031	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
3032	3.5007185316415854`*^9}],
3033
3034	Cell[BoxData[
3035	FormBox[
3036	InterpretationBox[
3037	RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
3038	RowBox[{"{",
3039	RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}],
3040	SequenceForm[
3041	"inserting at level(s) ", {Generic, FeynArts`Classes, FeynArts`Particles}],
3042
3043	Editable->False], TraditionalForm]], "Print",
3044	CellChangeTimes->{
3045	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
3046	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
3047	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
3048	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
3049	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
3050	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
3051	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
3052	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
3053	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
3054	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
3055	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
3056	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
3057	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
3058	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
3059	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
3060	3.5007185318610573`*^9}],
3061
3062	Cell[BoxData[
3063	FormBox[
3064	InterpretationBox[
3065	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3066	"\[InvisibleSpace]", "\<\": \"\>",
3067	"\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \
3068	insertions\"\>"}],
3069	SequenceForm[
3070	"> Top. ", 1, ": ", "0 Generic, 0 Classes, 0 Particles insertions"],
3071	Editable->False], TraditionalForm]], "Print",
3072	CellChangeTimes->{
3073	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
3074	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
3075	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
3076	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
3077	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
3078	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
3079	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
3080	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
3081	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
3082	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
3083	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
3084	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
3085	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
3086	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
3087	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
3088	3.500718531992338*^9}],
3089
3090	Cell[BoxData[
3091	FormBox[
3092	InterpretationBox[
3093	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3094	"\[InvisibleSpace]", "\<\": \"\>",
3095	"\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \
3096	insertions\"\>"}],
3097	SequenceForm[
3098	"> Top. ", 2, ": ", "1 Generic, 1 Classes, 1 Particles insertions"],
3099	Editable->False], TraditionalForm]], "Print",
3100	CellChangeTimes->{
3101	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
3102	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
3103	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
3104	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
3105	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
3106	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
3107	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
3108	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
3109	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
3110	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
3111	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
3112	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
3113	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
3114	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
3115	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
3116	3.500718532131946*^9}],
3117
3118	Cell[BoxData[
3119	FormBox[
3120	InterpretationBox[
3121	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
3122	"\[InvisibleSpace]", "\<\": \"\>",
3123	"\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \
3124	insertions\"\>"}],
3125	SequenceForm[
3126	"> Top. ", 3, ": ", "1 Generic, 1 Classes, 1 Particles insertions"],
3127	Editable->False], TraditionalForm]], "Print",
3128	CellChangeTimes->{
3129	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
3130	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
3131	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
3132	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
3133	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
3134	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
3135	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
3136	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
3137	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
3138	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
3139	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
3140	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
3141	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
3142	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
3143	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
3144	3.5007185323994226`*^9}],
3145
3146	Cell[BoxData[
3147	FormBox[
3148	InterpretationBox[
3149	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
3150	"\[InvisibleSpace]", "\<\": \"\>",
3151	"\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \
3152	insertions\"\>"}],
3153	SequenceForm[
3154	"> Top. ", 4, ": ", "0 Generic, 0 Classes, 0 Particles insertions"],
3155	Editable->False], TraditionalForm]], "Print",
3156	CellChangeTimes->{
3157	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
3158	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
3159	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
3160	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
3161	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
3162	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
3163	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
3164	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
3165	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
3166	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
3167	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
3168	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
3169	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
3170	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
3171	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
3172	3.500718532540248*^9}],
3173
3174	Cell[BoxData[
3175	FormBox[
3176	InterpretationBox[
3177	RowBox[{"\<\"in total: \"\>",
3178	"\[InvisibleSpace]", "\<\"2 Generic, 2 Classes, 2 Particles \
3179	insertions\"\>"}],
3180	SequenceForm["in total: ", "2 Generic, 2 Classes, 2 Particles insertions"],
3181
3182	Editable->False], TraditionalForm]], "Print",
3183	CellChangeTimes->{
3184	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
3185	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
3186	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
3187	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
3188	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
3189	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
3190	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
3191	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
3192	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
3193	3.498391196890265^9, 3.4995088656056767`^9, 3.499521746764072*^9,
3194	3.499583159566346^9, {3.4995842740010223`^9, 3.499584335761942*^9},
3195	3.49958570691823^9, 3.499586382125351^9, 3.49959367732262*^9, {
3196	3.499600377315133^9, 3.499600405834758^9}, 3.4996645702709084`*^9,
3197	3.499665384827684^9, 3.4996666256151323`^9, 3.500187224122608*^9,
3198	3.500618288639703^9, 3.500620019732819^9, 3.500627575533286*^9,
3199	3.500718532682918*^9}]
3200	}, Open ]]
3201	}, Open ]],
3202
3203	Cell[CellGroupData[{
3204
3205	Cell[BoxData[
3206	RowBox[{"Paint", "[", "INTopo", "]"}]], "Input",
3207	CellChangeTimes->{{3.4778063315682^9, 3.4778063464357^9}, {
3208	3.4778115474231997`^9, 3.4778115475632^9}, 3.478437858916929*^9,
3209	3.479546810801527^9, {3.4994965729354^9, 3.499496573154107*^9}}],
3210
3211	Cell[CellGroupData[{
3212
3213	Cell[BoxData[
3214	FormBox[
3215	InterpretationBox[
3216	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
3217	"\[InvisibleSpace]", "\<\": \"\>",
3218	"\[InvisibleSpace]", "\<\"3 diagrams\"\>"}],
3219	SequenceForm["> Top. ", 1, ": ", "3 diagrams"],
3220	Editable->False], TraditionalForm]], "Print",
3221	CellChangeTimes->{3.499584341801282^9, 3.4995857119234962`^9,
3222	3.499593684804886^9, 3.4996004100852423`^9, 3.4996647003076563`*^9,
3223	3.499665389095975^9, 3.499666628636258^9, 3.500187227713748*^9,
3224	3.500187682372513^9, 3.500385527563612^9, 3.500617091467664*^9,
3225	3.500619897374362^9, 3.50062002320868^9, 3.500627580982242*^9,
3226	3.500718533381872*^9}],
3227
3228	Cell[BoxData[
3229	FormBox[
3230	InterpretationBox[
3231	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
3232	"\[InvisibleSpace]", "\<\": \"\>",
3233	"\[InvisibleSpace]", "\<\"3 diagrams\"\>"}],
3234	SequenceForm["> Top. ", 2, ": ", "3 diagrams"],
3235	Editable->False], TraditionalForm]], "Print",
3236	CellChangeTimes->{3.499584341801282^9, 3.4995857119234962`^9,
3237	3.499593684804886^9, 3.4996004100852423`^9, 3.4996647003076563`*^9,
3238	3.499665389095975^9, 3.499666628636258^9, 3.500187227713748*^9,
3239	3.500187682372513^9, 3.500385527563612^9, 3.500617091467664*^9,
3240	3.500619897374362^9, 3.50062002320868^9, 3.500627580982242*^9,
3241	3.500718533425235*^9}],
3242
3243	Cell[BoxData[
3244	FormBox[
3245	GraphicsBox[{InsetBox[
3246	GraphicsBox[
3247	{Thickness[0.005], LineBox[CompressedData["
3248	1:eJwd1A9YzNkaB/CjJo22GClh+jOl2aLpmlYylOYXLaEYWlfSkkUlZcqqWCGV
3249	2+Rfs7eUuqnhKmxZYQilBiErmlJK2pqUKxVGBkVb+z13nqdnns9zzu+87/v9
3250	ncn2J+nKzXqEkBP4o99EO4KPBUNYFPYM6Z5zhRMCF6fEZFGrjVaueTQR6+1s
3251	x7Gwtqt4hjusqW6ocISvxUacUJozxPL+rrrlcNjWbXxPmHkY6p0Iiyz90p6b
3252	MUTFuhVXAQvdQsvSYE65OFCPzxDeui37g+CqaQv2L4VLkttz5sO5C3q9s2DH
3253	zfdzvKhXDrW9gI87/Kt/NTzwwu6Q07cMkXANWUnwD2W8M9vg7rlCphKOuBFR
3254	dw6uPrJYwkY/8QUdrOfwgDDGZw3syMwtIQ4Mke3v0xTDUa8WV0+GhWFhl/+C
3255	2VbWDXx4Z3bProWYt9klvt8eFr008U2E5Wt3N1vA1yzMm4vh3F1LH4zgfFGW
3256	7bHbsMpIltIGM0eW9KlgkeoWcxX2kZb+sxAu9hfsSIVVi4Kl22HfW5mNgbBi
3257	T8FnPuzjNuLsDMtSUx/fpv31zXDXp/O69rcshbUH/kxrRx7d6W9eV2Fe48rr
3258	MVU0r8WJid/BCRef1l+G5Tzji9kTUCdSPuECzBTJakZMkbPl8ORSeJLTXlE4
3259	HH+gaGYN3T9q+bdt4/H8BdOJb+HqmvqAYNi3bLiDi/rEXden42B/SonzD7Am
3260	qHlaPmyvv9z8GHw2vzxwAyy42SlphRMSFyk94OTzncscaJ4ViQtd4IYV41b+
3261	DGv07YbmwYqoZb/ehLVJ1meC6fktZgH6jthvZTYlE+btaOLPh7uPiPxa4Oa6
3262	qQ/j4IDheUcc0V+3PzvpFCw3HLm4G645UWB4Cy7pjgt8DCcf/qKoh2V+/k5c
3263	zKvp8nRugn3WzzT5Ee6q2mpXCxO3ztA0eIeFRlYGqz+qVv9O93uvf3cCZk/X
3264	tVyleR38GLCT1l+5UVcIK7wy+H4wR1F/ew/cfCfmkzXsGGRzyJ26ODVNS+9b
3265	D+9KB/qJaPItrYIHIvzLtsP2rxIn5sHBgWPG9mM+dZnP5H1wif/23o2wLP9V
3266	/RZ6P/OOBuWMw3ubcvHlelgtvDQ9ZCz6+2VI+hMsX2Rn4maC30n81JFomm+r
3267	v8LMGPn8xzz1KMyL7G/85hvMSx5FlMLMatf99kaY51L+rl5a77qLdvMY9Ntm
3268	8Zcj+ufZvs5sZDOk/K+LTyNhjbK2NhZWd+XIS2neWbXKJbCq3C9efxr63/eL
3269	qQQOu1NVtwzmeBnEJsGuvXW1mdTPwla1w8nWDq3NcIlJ4/Ig1Au7nH3SdDru
3270	y6UDSe9h7Qovp/mwotf0Ywb62zFz9tfNMEeTqu+B/iUpb7h7YLmZYddzOKhg
3271	lVMKrDGcZROOeZnT/uuTYfWiIaM/YdGFpUkx1MNtcwXIp0H+8u1a+vzd/3VI
3272	qK9Ex86BtdGXbRfCTNvpVRx63jWzBWNg1t6T5p3oNyrgRGM2zivZFC9V0v4f
3273	qpSDqG/vlS5IgVVnxf0CWM7mj14HC0+1Fs5B/xLjggPusKJyb5ED5mO7zXll
3274	S9eln+cR5CG4e2PElJ7/Mu3Yo9GoJwxz4MCaFZ4ROQYM8fZkpk+h642v9kez
3275	8HvPLvd0oXlaBNr8qI/nG1frr6L1rYryQvTw/7j1a2IyrG6VDh8bxZA+Lp+p
3276	gOXDZcnvCX7XD0ULCc37Az92DzwQ5M34wFEC2y53OMrDKiMdJnJthgAOsy9I
3277	aIeDdT6j/eCuO/XzpjlhPTz54HG4ZoKR1TbqovH72Kgnm+V7tggWiguyM+By
3278	SUNFO6y2P+czE/0JdQ3n2QLUcZXZtcCsbDdvPiy0u7duL+aRjURrXGFe9kZ/
3279	c8zLyXwZNxvWprdqM2DLWkmWM0wGbWbrYGWzNGgSrE51yXNCXvYfRm0ZRD3F
3280	66uRs2BL07raejhhIHbEBG6wyBoqhDnz77++jOejCpqzdsLBJ7+Mc4SLE4ZC
3281	l8Dy9vHHI2m+90e72MCqOP69VPSbPEmaMUjvz01hZRKd74+U/uew5AbLbRPy
3282	MOa3LKum92fCMuPwYTFxXH1dpIJVM0MTRw2JiaTH8noVzf9ZT+jpQTE5zM5c
3283	+JTut8+qC/0sJhkdvZU6ev9ZNoHrP4qJgORF0vpkqY1n7gcxGdJzN1oF897m
3284	pAv6xUSRN70una57WRVOeS8mPuc905/BTOSnvRFaMdHWctVTkY+qhZU/FZY9
3285	XvFECityPN54wCKLuic3aJ6JpS0lcIL/cjM9Z6zfP3vjZ5ynk9jpL4CDS75b
3286	Eot6fS+sA3ZTK99tKEQ/5b/yZpyDmVPcB+90mLfDwPohNesOb94nzNto+72G
3287	npfv07oT8+18vHFNtzOd97P70QEx8W2pPNNJ96d5eoYjj5pPF8Y/ofv5v8UP
3288	waLOT3rXYF6crGf2FzFRhnA3ZPz/+fyICXB329qYcDihlL3gIPZPEkyp96Dr
3289	X7YxuThfVaZzHUvP+8Omxg/1W527QzpoHkzn72eQr8Sgj3udmttVfBXzdBsk
3290	Pcmi+TQteX8Q8w9pi8v20XXh4dPb3ooJ686hrO1wwqJxfYrXYpKb0/lbNMxU
3291	+N1t6hITzuhNRXvoerXC0FMjJsHckGuZ1P+W3RtowvvM2LemnOa9wZIjVWMe
3292	+dekN9QGZ3vmVOH9+A0WOqJfctBo3QMl+jvz35tbqRXRM/pykc/350OU1PRz
3293	/CYxpt//YP4GmMiV9w==
3294	"]], InsetBox[
3295	TagBox[
3296	StyleBox[
3297	TagBox["\<\"G\"\>",
3298	DisplayForm],
3299	FontFamily->"Helvetica",
3300	FontSize->9.996694214876035],
3301	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3302	9.996694214876035]& ], {2.6125141805200567`, 11.914057016624067`}, \
3303	{1, 1}], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
3304	5.999999999994543, 9.999999999994543}}],
3305	PolygonBox[{{3.4609327677584254`, 7.8841106397986875`}, {
3306	2.7951409921073664`, 6.808600848362362}, {2.2829934723757823`,
3307	7.423177872040262}}], InsetBox[
3308	TagBox[
3309	StyleBox[
3310	TagBox["\<\"b\"\>",
3311	DisplayForm],
3312	FontFamily->"Helvetica",
3313	FontSize->9.996694214876035],
3314	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3315	9.996694214876035]& ], {3.387485819479944, 6.914057016624067}, \
3316	{-1, 1}],
3317	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
3318	14.000000000003638`, 10.000000000001819`}}],
3319	PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
3320	16.282993472375775`, 12.423177872040263`}, {16.79514099210736,
3321	11.808600848362362`}}], InsetBox[
3322	TagBox[
3323	StyleBox[
3324	TagBox["\<\"t\"\>",
3325	DisplayForm],
3326	FontFamily->"Helvetica",
3327	FontSize->9.996694214876035],
3328	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3329	9.996694214876035]& ], {16.61251418052005, 13.085942983375933`}, \
3330	{1, -1}], LineBox[CompressedData["
3331	1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
3332	mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
3333	+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
3334	Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
3335	jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
3336	+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
3337	+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
3338	Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
3339	nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
3340	0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
3341	yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
3342	uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
3343	tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
3344	yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
3345	F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
3346	KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3347	3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
3348	+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
3349	WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
3350	vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
3351	k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
3352	Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
3353	M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
3354	9vsNdrLfbzTyP8Yez1w=
3355	"]],
3356	PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
3357	17.71700652762421, 7.423177872040263}, {17.204859007892626`,
3358	6.808600848362362}}], InsetBox[
3359	TagBox[
3360	StyleBox[
3361	TagBox["\<\"W\"\>",
3362	DisplayForm],
3363	FontFamily->"Helvetica",
3364	FontSize->9.996694214876035],
3365	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3366	9.996694214876035]& ], {17.387485819479934`, 8.085942983375933}, \
3367	{-1, -1}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}],
3368	InsetBox[
3369	TagBox[
3370	StyleBox[
3371	TagBox["\<\"F\"\>",
3372	DisplayForm],
3373	FontFamily->"Helvetica",
3374	FontSize->9.996694214876035],
3375	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3376	9.996694214876035]& ], {9.999999999999995, 9.3048}, {0, 1}],
3377	{PointSize[0.04], PointBox[{6., 10.}],
3378	PointBox[{13.99999999999999, 10.}]}, InsetBox[
3379	TagBox[
3380	StyleBox[
3381	TagBox["\<\"T1 G1 N1\"\>",
3382	DisplayForm],
3383	FontFamily->"Helvetica",
3384	FontSize->7.997355371900828],
3385	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3386	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
3387	AspectRatio->1,
3388	PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
3389	GraphicsBox[
3390	{Thickness[0.005], LineBox[CompressedData["
3391	1:eJwd1A9YzNkaB/CjJo22GClh+jOl2aLpmlYylOYXLaEYWlfSkkUlZcqqWCGV
3392	2+Rfs7eUuqnhKmxZYQilBiErmlJK2pqUKxVGBkVb+z13nqdnns9zzu+87/v9
3393	ncn2J+nKzXqEkBP4o99EO4KPBUNYFPYM6Z5zhRMCF6fEZFGrjVaueTQR6+1s
3394	x7Gwtqt4hjusqW6ocISvxUacUJozxPL+rrrlcNjWbXxPmHkY6p0Iiyz90p6b
3395	MUTFuhVXAQvdQsvSYE65OFCPzxDeui37g+CqaQv2L4VLkttz5sO5C3q9s2DH
3396	zfdzvKhXDrW9gI87/Kt/NTzwwu6Q07cMkXANWUnwD2W8M9vg7rlCphKOuBFR
3397	dw6uPrJYwkY/8QUdrOfwgDDGZw3syMwtIQ4Mke3v0xTDUa8WV0+GhWFhl/+C
3398	2VbWDXx4Z3bProWYt9klvt8eFr008U2E5Wt3N1vA1yzMm4vh3F1LH4zgfFGW
3399	7bHbsMpIltIGM0eW9KlgkeoWcxX2kZb+sxAu9hfsSIVVi4Kl22HfW5mNgbBi
3400	T8FnPuzjNuLsDMtSUx/fpv31zXDXp/O69rcshbUH/kxrRx7d6W9eV2Fe48rr
3401	MVU0r8WJid/BCRef1l+G5Tzji9kTUCdSPuECzBTJakZMkbPl8ORSeJLTXlE4
3402	HH+gaGYN3T9q+bdt4/H8BdOJb+HqmvqAYNi3bLiDi/rEXden42B/SonzD7Am
3403	qHlaPmyvv9z8GHw2vzxwAyy42SlphRMSFyk94OTzncscaJ4ViQtd4IYV41b+
3404	DGv07YbmwYqoZb/ehLVJ1meC6fktZgH6jthvZTYlE+btaOLPh7uPiPxa4Oa6
3405	qQ/j4IDheUcc0V+3PzvpFCw3HLm4G645UWB4Cy7pjgt8DCcf/qKoh2V+/k5c
3406	zKvp8nRugn3WzzT5Ee6q2mpXCxO3ztA0eIeFRlYGqz+qVv9O93uvf3cCZk/X
3407	tVyleR38GLCT1l+5UVcIK7wy+H4wR1F/ew/cfCfmkzXsGGRzyJ26ODVNS+9b
3408	D+9KB/qJaPItrYIHIvzLtsP2rxIn5sHBgWPG9mM+dZnP5H1wif/23o2wLP9V
3409	/RZ6P/OOBuWMw3ubcvHlelgtvDQ9ZCz6+2VI+hMsX2Rn4maC30n81JFomm+r
3410	v8LMGPn8xzz1KMyL7G/85hvMSx5FlMLMatf99kaY51L+rl5a77qLdvMY9Ntm
3411	8Zcj+ufZvs5sZDOk/K+LTyNhjbK2NhZWd+XIS2neWbXKJbCq3C9efxr63/eL
3412	qQQOu1NVtwzmeBnEJsGuvXW1mdTPwla1w8nWDq3NcIlJ4/Ig1Au7nH3SdDru
3413	y6UDSe9h7Qovp/mwotf0Ywb62zFz9tfNMEeTqu+B/iUpb7h7YLmZYddzOKhg
3414	lVMKrDGcZROOeZnT/uuTYfWiIaM/YdGFpUkx1MNtcwXIp0H+8u1a+vzd/3VI
3415	qK9Ex86BtdGXbRfCTNvpVRx63jWzBWNg1t6T5p3oNyrgRGM2zivZFC9V0v4f
3416	qpSDqG/vlS5IgVVnxf0CWM7mj14HC0+1Fs5B/xLjggPusKJyb5ED5mO7zXll
3417	S9eln+cR5CG4e2PElJ7/Mu3Yo9GoJwxz4MCaFZ4ROQYM8fZkpk+h642v9kez
3418	8HvPLvd0oXlaBNr8qI/nG1frr6L1rYryQvTw/7j1a2IyrG6VDh8bxZA+Lp+p
3419	gOXDZcnvCX7XD0ULCc37Az92DzwQ5M34wFEC2y53OMrDKiMdJnJthgAOsy9I
3420	aIeDdT6j/eCuO/XzpjlhPTz54HG4ZoKR1TbqovH72Kgnm+V7tggWiguyM+By
3421	SUNFO6y2P+czE/0JdQ3n2QLUcZXZtcCsbDdvPiy0u7duL+aRjURrXGFe9kZ/
3422	c8zLyXwZNxvWprdqM2DLWkmWM0wGbWbrYGWzNGgSrE51yXNCXvYfRm0ZRD3F
3423	66uRs2BL07raejhhIHbEBG6wyBoqhDnz77++jOejCpqzdsLBJ7+Mc4SLE4ZC
3424	l8Dy9vHHI2m+90e72MCqOP69VPSbPEmaMUjvz01hZRKd74+U/uew5AbLbRPy
3425	MOa3LKum92fCMuPwYTFxXH1dpIJVM0MTRw2JiaTH8noVzf9ZT+jpQTE5zM5c
3426	+JTut8+qC/0sJhkdvZU6ev9ZNoHrP4qJgORF0vpkqY1n7gcxGdJzN1oF897m
3427	pAv6xUSRN70una57WRVOeS8mPuc905/BTOSnvRFaMdHWctVTkY+qhZU/FZY9
3428	XvFECityPN54wCKLuic3aJ6JpS0lcIL/cjM9Z6zfP3vjZ5ynk9jpL4CDS75b
3429	Eot6fS+sA3ZTK99tKEQ/5b/yZpyDmVPcB+90mLfDwPohNesOb94nzNto+72G
3430	npfv07oT8+18vHFNtzOd97P70QEx8W2pPNNJ96d5eoYjj5pPF8Y/ofv5v8UP
3431	waLOT3rXYF6crGf2FzFRhnA3ZPz/+fyICXB329qYcDihlL3gIPZPEkyp96Dr
3432	X7YxuThfVaZzHUvP+8Omxg/1W527QzpoHkzn72eQr8Sgj3udmttVfBXzdBsk
3433	Pcmi+TQteX8Q8w9pi8v20XXh4dPb3ooJ686hrO1wwqJxfYrXYpKb0/lbNMxU
3434	+N1t6hITzuhNRXvoerXC0FMjJsHckGuZ1P+W3RtowvvM2LemnOa9wZIjVWMe
3435	+dekN9QGZ3vmVOH9+A0WOqJfctBo3QMl+jvz35tbqRXRM/pykc/350OU1PRz
3436	/CYxpt//YP4GmMiV9w==
3437	"]], InsetBox[
3438	TagBox[
3439	StyleBox[
3440	TagBox["\<\"G\"\>",
3441	DisplayForm],
3442	FontFamily->"Helvetica",
3443	FontSize->9.996694214876035],
3444	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3445	9.996694214876035]& ], {2.6125141805200567`, 11.914057016624067`}, \
3446	{1, 1}], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
3447	5.999999999994543, 9.999999999994543}}],
3448	PolygonBox[{{3.4609327677584254`, 7.8841106397986875`}, {
3449	2.7951409921073664`, 6.808600848362362}, {2.2829934723757823`,
3450	7.423177872040262}}], InsetBox[
3451	TagBox[
3452	StyleBox[
3453	TagBox["\<\"b\"\>",
3454	DisplayForm],
3455	FontFamily->"Helvetica",
3456	FontSize->9.996694214876035],
3457	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3458	9.996694214876035]& ], {3.387485819479944, 6.914057016624067}, \
3459	{-1, 1}],
3460	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
3461	14.000000000003638`, 10.000000000001819`}}],
3462	PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
3463	16.282993472375775`, 12.423177872040263`}, {16.79514099210736,
3464	11.808600848362362`}}], InsetBox[
3465	TagBox[
3466	StyleBox[
3467	TagBox["\<\"t\"\>",
3468	DisplayForm],
3469	FontFamily->"Helvetica",
3470	FontSize->9.996694214876035],
3471	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3472
3473	9.996694214876035]& ], {16.61251418052005, 13.085942983375933`}, \
3474	{1, -1}], LineBox[CompressedData["
3475	1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
3476	mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
3477	+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
3478	Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
3479	jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
3480	+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
3481	+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
3482	Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
3483	nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
3484	0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
3485	yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
3486	uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
3487	tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
3488	yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
3489	F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
3490	KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3491	3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
3492	+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
3493	WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
3494	vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
3495	k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
3496	Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
3497	M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
3498	9vsNdrLfbzTyP8Yez1w=
3499	"]],
3500	PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
3501	17.71700652762421, 7.423177872040263}, {17.204859007892626`,
3502	6.808600848362362}}], InsetBox[
3503	TagBox[
3504	StyleBox[
3505	TagBox["\<\"W\"\>",
3506	DisplayForm],
3507	FontFamily->"Helvetica",
3508	FontSize->9.996694214876035],
3509	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3510	9.996694214876035]& ], {17.387485819479934`, 8.085942983375933}, \
3511	{-1, -1}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}],
3512	PolygonBox[{{10.599999999999994`, 10.}, {9.399999999999995, 9.6}, {
3513	9.399999999999995, 10.4}}], InsetBox[
3514	TagBox[
3515	StyleBox[
3516	TagBox["\<\"b\"\>",
3517	DisplayForm],
3518	FontFamily->"Helvetica",
3519	FontSize->9.996694214876035],
3520	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3521	9.996694214876035]& ], {9.999999999999995, 9.0548}, {0, 1}],
3522	{PointSize[0.04], PointBox[{6., 10.}],
3523	PointBox[{13.99999999999999, 10.}]}, InsetBox[
3524	TagBox[
3525	StyleBox[
3526	TagBox["\<\"T1 C1 N2\"\>",
3527	DisplayForm],
3528	FontFamily->"Helvetica",
3529	FontSize->7.997355371900828],
3530	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3531	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
3532	AspectRatio->1,
3533	PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}],
3534	InsetBox[
3535	GraphicsBox[
3536	{Thickness[0.005], LineBox[CompressedData["
3537	1:eJwd1A9YzNkaB/CjJo22GClh+jOl2aLpmlYylOYXLaEYWlfSkkUlZcqqWCGV
3538	2+Rfs7eUuqnhKmxZYQilBiErmlJK2pqUKxVGBkVb+z13nqdnns9zzu+87/v9
3539	ncn2J+nKzXqEkBP4o99EO4KPBUNYFPYM6Z5zhRMCF6fEZFGrjVaueTQR6+1s
3540	x7Gwtqt4hjusqW6ocISvxUacUJozxPL+rrrlcNjWbXxPmHkY6p0Iiyz90p6b
3541	MUTFuhVXAQvdQsvSYE65OFCPzxDeui37g+CqaQv2L4VLkttz5sO5C3q9s2DH
3542	zfdzvKhXDrW9gI87/Kt/NTzwwu6Q07cMkXANWUnwD2W8M9vg7rlCphKOuBFR
3543	dw6uPrJYwkY/8QUdrOfwgDDGZw3syMwtIQ4Mke3v0xTDUa8WV0+GhWFhl/+C
3544	2VbWDXx4Z3bProWYt9klvt8eFr008U2E5Wt3N1vA1yzMm4vh3F1LH4zgfFGW
3545	7bHbsMpIltIGM0eW9KlgkeoWcxX2kZb+sxAu9hfsSIVVi4Kl22HfW5mNgbBi
3546	T8FnPuzjNuLsDMtSUx/fpv31zXDXp/O69rcshbUH/kxrRx7d6W9eV2Fe48rr
3547	MVU0r8WJid/BCRef1l+G5Tzji9kTUCdSPuECzBTJakZMkbPl8ORSeJLTXlE4
3548	HH+gaGYN3T9q+bdt4/H8BdOJb+HqmvqAYNi3bLiDi/rEXden42B/SonzD7Am
3549	qHlaPmyvv9z8GHw2vzxwAyy42SlphRMSFyk94OTzncscaJ4ViQtd4IYV41b+
3550	DGv07YbmwYqoZb/ehLVJ1meC6fktZgH6jthvZTYlE+btaOLPh7uPiPxa4Oa6
3551	qQ/j4IDheUcc0V+3PzvpFCw3HLm4G645UWB4Cy7pjgt8DCcf/qKoh2V+/k5c
3552	zKvp8nRugn3WzzT5Ee6q2mpXCxO3ztA0eIeFRlYGqz+qVv9O93uvf3cCZk/X
3553	tVyleR38GLCT1l+5UVcIK7wy+H4wR1F/ew/cfCfmkzXsGGRzyJ26ODVNS+9b
3554	D+9KB/qJaPItrYIHIvzLtsP2rxIn5sHBgWPG9mM+dZnP5H1wif/23o2wLP9V
3555	/RZ6P/OOBuWMw3ubcvHlelgtvDQ9ZCz6+2VI+hMsX2Rn4maC30n81JFomm+r
3556	v8LMGPn8xzz1KMyL7G/85hvMSx5FlMLMatf99kaY51L+rl5a77qLdvMY9Ntm
3557	8Zcj+ufZvs5sZDOk/K+LTyNhjbK2NhZWd+XIS2neWbXKJbCq3C9efxr63/eL
3558	qQQOu1NVtwzmeBnEJsGuvXW1mdTPwla1w8nWDq3NcIlJ4/Ig1Au7nH3SdDru
3559	y6UDSe9h7Qovp/mwotf0Ywb62zFz9tfNMEeTqu+B/iUpb7h7YLmZYddzOKhg
3560	lVMKrDGcZROOeZnT/uuTYfWiIaM/YdGFpUkx1MNtcwXIp0H+8u1a+vzd/3VI
3561	qK9Ex86BtdGXbRfCTNvpVRx63jWzBWNg1t6T5p3oNyrgRGM2zivZFC9V0v4f
3562	qpSDqG/vlS5IgVVnxf0CWM7mj14HC0+1Fs5B/xLjggPusKJyb5ED5mO7zXll
3563	S9eln+cR5CG4e2PElJ7/Mu3Yo9GoJwxz4MCaFZ4ROQYM8fZkpk+h642v9kez
3564	8HvPLvd0oXlaBNr8qI/nG1frr6L1rYryQvTw/7j1a2IyrG6VDh8bxZA+Lp+p
3565	gOXDZcnvCX7XD0ULCc37Az92DzwQ5M34wFEC2y53OMrDKiMdJnJthgAOsy9I
3566	aIeDdT6j/eCuO/XzpjlhPTz54HG4ZoKR1TbqovH72Kgnm+V7tggWiguyM+By
3567	SUNFO6y2P+czE/0JdQ3n2QLUcZXZtcCsbDdvPiy0u7duL+aRjURrXGFe9kZ/
3568	c8zLyXwZNxvWprdqM2DLWkmWM0wGbWbrYGWzNGgSrE51yXNCXvYfRm0ZRD3F
3569	66uRs2BL07raejhhIHbEBG6wyBoqhDnz77++jOejCpqzdsLBJ7+Mc4SLE4ZC
3570	l8Dy9vHHI2m+90e72MCqOP69VPSbPEmaMUjvz01hZRKd74+U/uew5AbLbRPy
3571	MOa3LKum92fCMuPwYTFxXH1dpIJVM0MTRw2JiaTH8noVzf9ZT+jpQTE5zM5c
3572	+JTut8+qC/0sJhkdvZU6ev9ZNoHrP4qJgORF0vpkqY1n7gcxGdJzN1oF897m
3573	pAv6xUSRN70una57WRVOeS8mPuc905/BTOSnvRFaMdHWctVTkY+qhZU/FZY9
3574	XvFECityPN54wCKLuic3aJ6JpS0lcIL/cjM9Z6zfP3vjZ5ynk9jpL4CDS75b
3575	Eot6fS+sA3ZTK99tKEQ/5b/yZpyDmVPcB+90mLfDwPohNesOb94nzNto+72G
3576	npfv07oT8+18vHFNtzOd97P70QEx8W2pPNNJ96d5eoYjj5pPF8Y/ofv5v8UP
3577	waLOT3rXYF6crGf2FzFRhnA3ZPz/+fyICXB329qYcDihlL3gIPZPEkyp96Dr
3578	X7YxuThfVaZzHUvP+8Omxg/1W527QzpoHkzn72eQr8Sgj3udmttVfBXzdBsk
3579	Pcmi+TQteX8Q8w9pi8v20XXh4dPb3ooJ686hrO1wwqJxfYrXYpKb0/lbNMxU
3580	+N1t6hITzuhNRXvoerXC0FMjJsHckGuZ1P+W3RtowvvM2LemnOa9wZIjVWMe
3581	+dekN9QGZ3vmVOH9+A0WOqJfctBo3QMl+jvz35tbqRXRM/pykc/350OU1PRz
3582	/CYxpt//YP4GmMiV9w==
3583	"]], InsetBox[
3584	TagBox[
3585	StyleBox[
3586	TagBox["\<\"G\"\>",
3587	DisplayForm],
3588	FontFamily->"Helvetica",
3589	FontSize->9.996694214876035],
3590	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3591	9.996694214876035]& ], {2.6125141805200567`, 11.914057016624067`}, \
3592	{1, 1}], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
3593	5.999999999994543, 9.999999999994543}}],
3594	PolygonBox[{{3.4609327677584254`, 7.8841106397986875`}, {
3595	2.7951409921073664`, 6.808600848362362}, {2.2829934723757823`,
3596	7.423177872040262}}], InsetBox[
3597	TagBox[
3598	StyleBox[
3599	TagBox["\<\"b\"\>",
3600	DisplayForm],
3601	FontFamily->"Helvetica",
3602	FontSize->9.996694214876035],
3603	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3604	9.996694214876035]& ], {3.387485819479944, 6.914057016624067}, \
3605	{-1, 1}],
3606	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
3607	14.000000000003638`, 10.000000000001819`}}],
3608	PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
3609	16.282993472375775`, 12.423177872040263`}, {16.79514099210736,
3610	11.808600848362362`}}], InsetBox[
3611	TagBox[
3612	StyleBox[
3613	TagBox["\<\"t\"\>",
3614	DisplayForm],
3615	FontFamily->"Helvetica",
3616	FontSize->9.996694214876035],
3617	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3618	9.996694214876035]& ], {16.61251418052005, 13.085942983375933`}, \
3619	{1, -1}], LineBox[CompressedData["
3620	1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
3621	mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
3622	+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
3623	Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
3624	jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
3625	+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
3626	+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
3627	Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
3628	nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
3629	0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
3630	yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
3631	uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
3632	tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
3633	yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
3634	F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
3635	KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3636	3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
3637	+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
3638	WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
3639	vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
3640	k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
3641	Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
3642	M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
3643	9vsNdrLfbzTyP8Yez1w=
3644	"]],
3645	PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
3646	17.71700652762421, 7.423177872040263}, {17.204859007892626`,
3647	6.808600848362362}}], InsetBox[
3648	TagBox[
3649	StyleBox[
3650	TagBox["\<\"W\"\>",
3651	DisplayForm],
3652	FontFamily->"Helvetica",
3653	FontSize->9.996694214876035],
3654	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3655	9.996694214876035]& ], {17.387485819479934`, 8.085942983375933}, \
3656	{-1, -1}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}],
3657	PolygonBox[{{10.599999999999994`, 10.}, {9.399999999999995, 9.6}, {
3658	9.399999999999995, 10.4}}], InsetBox[
3659	TagBox[
3660	StyleBox[
3661	TagBox["\<\"b\"\>",
3662	DisplayForm],
3663	FontFamily->"Helvetica",
3664	FontSize->9.996694214876035],
3665	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3666	9.996694214876035]& ], {9.999999999999995, 9.0548}, {0, 1}],
3667	{PointSize[0.04], PointBox[{6., 10.}],
3668	PointBox[{13.99999999999999, 10.}]}, InsetBox[
3669	TagBox[
3670	StyleBox[
3671	TagBox["\<\"T1 P1 N3\"\>",
3672	DisplayForm],
3673	FontFamily->"Helvetica",
3674	FontSize->7.997355371900828],
3675	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3676	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
3677	AspectRatio->1,
3678	PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}],
3679	InsetBox[
3680	GraphicsBox[
3681	{Thickness[0.005], LineBox[CompressedData["
3682	1:eJwl1gk41dkbB/CfpYjk2hr7nm5jTSlC95ZqZObfXCMtU5YoO0nKMuiSROst
3683	RkalS0SFuWRKC1liLFmS5YbsRIwwCFHzPc/f83Cfj3N+73nf9/zOQcPl+C/H
3684	BCmKqsY3+WQL4welzaREyacekxq1zB18rsWketaujmjSZbI9WpfW+cPydqOj
3685	ebBfNiNODTZ92arC1WVS7nYnBOo0mRQ3TlMzBePOefIPfoMnKnuNszE+4111
3686	wQA+EDuYX43xCrPQgGENJkVPmzeZwbgU1fvmIRybtBCvh/W35GUnhxIHv1rm
3687	q8dkK/0YtGYfHMw4bfMINs0qVGPA/Cdyb7/AH/n5USbEFjZT2/WZbG16Y7wp
3688	ma+QK3FOH+uo+o7vgoclNeqLMR4efiHREa6SS/jpH4w7jXnLhJN8ns6YrjJg
3689	Ut6LRZw7MO20ybyaAZMtuOK8cDnMOVhcrAFHBQ7tH4BZyruvyWD+GRc2hyL1
3690	5QfumUW8cbr3nCzMKfg+pRbrGWWe364Gs+jenb9jfFOCw30VOEv3/vx+2EWm
3691	a7kkXBjrbCcHb66s659CfNHz0zFv0I9VBiIR1XCJqMk2Dsx/yayIh01lZCXs
3692	4bP6kXvsYPUhdW0tMj9oZKsY7KGzy2oJ/f6pYsLguTqTcuZIxgyS/fszXsQT
3693	NlU5avMe/afEbTpWw1UKRqoYp7Y8Swm5qsakrH+eebIIy7fU6y6pYh4tY0ET
3694	8Q8duEaFwTQfjvA+2JV2cicNVv+WYR0Py/zgSS9SYVJGkQ94bXD5lMHlaFi+
3695	nluphvpK+ZP/uhGXmvS7w1lmaQGusIdCqWM2vNfBsjQITlK2KRuB7yT6HODC
3696	HO7XGWX0O7yhk8uHnaNzvKxgodYmIyWs35Mob3GI+EiZrAvsMWlr4wqnv1RU
3697	y4Qn2hutybiXsLL5ADynGFhGnk80ciqWQb2sJXNpVXjHnroCIzg4SMV2DOvr
3698	d4trbYZLZnvN8uBJ3wFzbdi55JKwP8xf1nFuFvG4kUbmenD+64XxHJj3IujC
3699	COrXEayv+xGmXznMeQgHjgU0NCF/qiz94SnY9vKLt7vgYPGcehvYUI7xNFsZ
3700	/Zvo3a8Pj2yllMVg6v3cpCq8JnWz2DElrPshPlwd9hulPSpXRD2uYcuM4bWf
3701	8mX04EIb6eJfYNbfg/fuKqB+kTnJSDjb6qqSIVzi4p3zDDZP65FrkofH9fIW
3702	yfvEY3+9Ak+Y7K+wQj1tGtv63GB5R2XWJTjTVfLoQZhalEpvgn827iw9Cvub
3703	nl1PzgMrY9PYOTjpzYbHNrAB7/CfhSQeR8bzNFxm98foZ/K8Y5JaAkxJLb6z
3704	RD5JNjVeaeT5HY0Ho+FGVtgDLpxlX7m9Aubp8+SuwqlqUU8W4OEPBU/84LNv
3705	LQLVUK9/oo7LNni1tIOcIRy8dCFhBfEBu190YOeGN7/WIF/dGxnrhIjjQrTP
3706	w5bt7V9eIZ76jbBEUq/KSGe8Dzz3m/+vQvBJBUflReTLjnD7pxr9eUQ1CgbB
3707	w6XqJ5LhGc3j1b3fIe8kyagguE6ztmYbXFhnI+sK9zBmJ2+tRn3CDgcd4XO1
3708	at7zcog/wOR5wvevlLMcYJ6YOzca9mJWHqyXRb/DRXpy4I7+mku2cDDf81g/
3709	fPJy5eJHGay3xiJKE/nJ3Tx0/TYseiROxAOOdHg34AUPr/L158GfeB+17eCk
3710	ll1Sc/AZW5qiPfHYtLU5+nN9h8gGP1heNjKP7E/+B8usZHjC6dH/MmGBPbG5
3711	LTCPvzavBjbf6P1EAfnQ7tWpd8N6jDvPneFYc+UH/eT+bB68mE7yjf7bkA9f
3712	S53W6obZzdbeRbCpnsYXMdQ7LEjvJ/s/9DF+jxbM4ce0OpPn+epHtGH+IKWm
3713	DXtW+OaIk36FnhTrQ/7tmRUifMQzEs81SIHnQppy4ki/VjiYHYa1Qj2tNOHh
3714	b4+KyX1zZ2P8i3Tkb5rqs2IM/Wv6Y9pEDvaoSBkvh0OXPywKlkY/u0oz78PG
3715	+yIkW6TwPr1qKUgh91va7A9GMM3NquouHKDieJ1Dw/sTeLaokJwvw7mHnyUx
3716	fkn0Zidcf7G0bnwV4qva3ZHA+o0Cb8MkYfWYMwd2wzVuoRHOEngvpKQryHma
3717	O/Vacmgl4jRZhzXD6dnN2akryX3Y2kHuu4gfny5eg+XXpJi6kPtJraM/n4x/
3718	/1EyldxfswvPlmD/6bBNrfCuwIgsT8Sveicl9A121lnz3RjMd1gZoGCI3++c
3719	sQpBPmzjUKY2XBYw2SGM/JOylhZV4aSt+1KjYG5PkYQYzFV6JvkB7lkj8XAI
3720	8aqKLL7IoH66ikTDYzjBMoetCvM/6yqFk7+HN9RlaTTyfr0vsIBf/65I1eN5
3721	/zJvpXnUZzH2cngn6dfKlfN/wQO5HnIXSD5TzydPwxMam4/fQb7WFV4BDHja
3722	1d3uMuprtBc5Kw2/sLlm5CCO/b/ZdnsK/f5eiC6qKIb4FhZXeuHkibb2BlG8
3723	r6tTDvTAXzewRS6KIL+uKr1P8OFms4z9y7GOuJcr2Z8ujkYvcxn2J60lxozs
3724	17CbB0sY+WvcdDsBK+aFD10WQh8e92/MhxN+Y6Z8FcR5C5LMJuepcY+7VgY8
3725	0Z20hdw/ybZCppFwFm/SOBb2f1/bcBXmSLYtVsOPn0mY1cJs1/M7hdDf3ERZ
3726	T13Epx+301sPv8gT97gHl2wy8bSFtd/mtBohH/8Ad28XWIdfHlMM8zmufq7w
3727	wNrTqlbI32hBL3ov3GgxWJQPe3CdEjbBw1ZOKYKoNylkFUscpu/uSlsHm/rI
3728	KrUgH2txRpM67JEmMpYIn1avKegn/agN094L89zoHH+YOZnrSoOjq29FVGF9
3729	1rtR+wbUL79ht/Mn5Mu3ZZ1NgCnDbZmjpL7tnuqu8K1ZNYFKAcwXMOm3hGWF
3730	M/tiKeTVVdGlA4+NLMye+cqgJj77upPzmiDTbPzpC4Mabh6h6PDGbvby4Hl4
3731	S8h+JuwvZZ+1/jODsm7ZvoP8/9A40v/SaIZBcV793ZkMvyofYcX8y6BKuDcu
3732	8WEPZdm2rVMMKmlodLMK8j+afzvlyCSD8rD/9dgx2OJbpMvEBIMKfuLnkwMf
3733	9nI1+QAX9j27Nwk3Htv72ALz6V01XAOyHyefXumDqQIf6yOwz917xpWIX3Ky
3734	W+48PB2d+u4N1rfeV6qfAhfeKk77ZxreORuSAVOT9c3ULIPiSZsV3oLZTzvW
3735	/Qtb6yaER5P49kmyuaiPvyXewBGecyofV5lDf/YmjunCi6x0agPM7mSGTCC/
3736	bJN2uz7M532NkvoT5lr579KBTQ30t3vDze/ZrV/RH6NXdoV02KfWO+0E8mGt
3737	F6CNkn72Jd6OQ/5swdd3yXkMO5Uevg/1W29od7oIl9y40dA2yqCcfXOS/cj/
3738	a7S/mkqG0G9W5Ywz8bpD15N6Ee9R+Q9kvzk6cyIa7xjUXJzWtVMwc+p5wZEG
3739	9M/LYjERZgcsynW/wPNfjg9XkPeFfN20/P+nAfM/3qqYIw==
3740	"]], InsetBox[
3741	TagBox[
3742	StyleBox[
3743	TagBox["\<\"G\"\>",
3744	DisplayForm],
3745	FontFamily->"Helvetica",
3746	FontSize->9.996694214876035],
3747	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3748	9.996694214876035]& ], {4.84576923551745, 13.562492355174511`}, \
3749	{0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
3750	9.999999999988404, 6.}}],
3751	PolygonBox[{{5.597022314125994, 5.559702231412599}, {4.442779173482406,
3752	5.042282892503405}, {4.363176198265607, 5.838312644671396}}],
3753	InsetBox[
3754	TagBox[
3755	StyleBox[
3756	TagBox["\<\"b\"\>",
3757	DisplayForm],
3758	FontFamily->"Helvetica",
3759	FontSize->9.996694214876035],
3760	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3761	9.996694214876035]& ], {5.1542307644825485`, 4.562492355174517}, \
3762	{0, 1}], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}],
3763	PolygonBox[{{15.597022314125994`, 14.559702231412594`}, {
3764	14.363176198265606`, 14.83831264467139}, {14.442779173482407`,
3765	14.0422828925034}}], InsetBox[
3766	TagBox[
3767	StyleBox[
3768	TagBox["\<\"t\"\>",
3769	DisplayForm],
3770	FontFamily->"Helvetica",
3771	FontSize->9.996694214876035],
3772	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3773	9.996694214876035]& ], {14.84576923551745, 15.437507644825478`}, \
3774	{0, -1}], LineBox[CompressedData["
3775	1:eJwt1QtMU1cYB/A7FZTnykqBRlHwASLPUlQQHQchDBAtFhRRwPJWHqNDURRw
3776	qOs2deUtTkGKiI/MIlWxihNXh4JsBHkPRQYIBWaYFEWKAmH/m6xJc/PL/zvf
3777	/c45TWoekcSPnkdRVDS+9JOansNnBaFU9NOYZPYmpQ7ZrSSUUMwUS+DNeua8
3778	MJjaJ9rmA0fXPpNmwc27zrlrwiZznjsUsMxjw9IeI5IZus/38HtY9d2NMy1w
3779	oteQ4epVhOoTDd4agJdok/lhsGLxuBMD691yfxkrgB0aHlzwh9texe9vpOt3
3780	uX1ebEyoFCfm2HwLQvlXzyaNIA8fbZjdAMuqJ49Zm5BM9lST2TcwSR0zCTEh
3781	VLiH99wVWKjp5nsArjeoj3kBqxZGmSfCdkfIdh1LvP+HZAsfrC+RPFG6wozN
3782	nP3ayKfT/j4QT+drHFfew/u0yy3jLsACr+65IMxTaGDr0wDLeu/oqLGf3mxO
3783	wRQsrNEUlxgRyjG16PHq1YQy65yuC0L+qktpsxtm1LD7rZDP6/5NR0zbI0eP
3784	jXyL+ErsY1iw2U7LAm45JF+ihoWLgxZsgxtiVD22VoTKSVKpT2P98Gn+l9Ew
3785	Mf0ppB25u+mLmmJYWCuyM8N8w1FNXW0wY22tWRTm73x7zVh7Dc7TOfBlIfK3
3786	rwtN3WCG9zj7Fuxcwa5KpnMT4cWbqM/Yuq61HDYbdbudBfdPnyjpgBUlA6GB
3787	tD3vxGtYY32a1IS+/2slI5VOsEApXVaBeXYKYtSRcM7VhLhAuN4upC0f7vsY
3788	w18IP+1Y/vQJTH4/9f45C+enJV+lpvNcsftdeKj9rpa1DfrbaXTdh/eMZ1kK
3789	YP+X1z60swi1O5bdfhamJqxcZuCZ5dfX/0nb16veFP3TNV1q5mBBj8+0Lc7r
3790	WGFZJNcW909dfmQDj8g682LgvmXrOMthjYku6XmYZHZPs+A3yt6ORtj/1Ng7
3791	bTi72HURZYf1rtfLKVgd6bWRS3ujfuok3u9w6OqRGLi00UTzX8zLGdKtOw83
3792	38xVDMJVxWS2EZbNLWl7ifrXv9rXzNHmKwvq4dCVzy9y7GEfnaEyeMh3fWkE
3793	rPi4oicB3tNxODifzqW9Szl0P6u4S09oy49+TyHnBSSuUMNC+dqUEUOi0O8s
3794	LWA5YK4of+lbQ0KCQ+15DrC/JzfHgEXIaMVAwRa4Wc/C1hcOeL5gVSwsVLrF
3795	ZsGVlwflJ+DSo/rKVlj80HNBCSwTsSp16ft1+dByH1YZ8350NCIKz63fTrbC
3796	1MmUqU1GhOSFHA8bhRlv9D9ZI5dYJehrcPB7GJe5zaJfhOZxc1OYUSHSkbOI
3797	4ufstXVOMJlsKglFvndgv7MfLPRM5s9i/vJK0weRcKl22gEJ9rfVI+NMGtx3
3798	K11jG3JDGXcgn67f0p5tYEioiHXDw1LYLFjMVjFJZkJY2Y06uv6DS/Iokyge
3799	Bd626of9GzV7NFCvtnD5agYWnKuzdEb/f74I7zR2xDwpM2vS0T+xt6mIS/tg
3800	zuVnhiRzSlSxgwcLDvr5MTGvDT+jNg5W6SlYfFjrXnWFCKZOFwWl476MrL4e
3801	lcDN9Xv/OoP7eiB/F18N9/3BF2WgXrTI3b4VZpDoF9uRS3hFvDdwpr3hU13Y
3802	rzX742dc7G/jtOtdzHPp+p1YNpzjTsIDMY8woqrbAWa8q0+ewP7Gc/MKvWEq
3803	YzJPwiQUp0zVLKDzgNtnw3AeoRNhVUdgWcunifVMQsa9hDvzaSuqdO3hyCRr
3804	eQUsCOiv8sD65nbLh89ov/b2SoYXBm/fNAg3s3W0qtBvlv7f4P7//8Ek/wEs
3805	SGzt
3806	"]],
3807	PolygonBox[{{14.402977685874006`, 5.559702231412599}, {
3808	15.636823801734392`, 5.838312644671396}, {15.557220826517593`,
3809	5.042282892503405}}], InsetBox[
3810	TagBox[
3811	StyleBox[
3812	TagBox["\<\"W\"\>",
3813	DisplayForm],
3814	FontFamily->"Helvetica",
3815	FontSize->9.996694214876035],
3816	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3817	9.996694214876035]& ], {15.154230764482548`, 6.437507644825483}, \
3818	{0, -1}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}],
3819	InsetBox[
3820	TagBox[
3821	StyleBox[
3822	TagBox["\<\"F\"\>",
3823	DisplayForm],
3824	FontFamily->"Helvetica",
3825	FontSize->9.996694214876035],
3826	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3827	9.996694214876035]& ], {9.3048, 9.999999999999995}, {1, 0}],
3828	{PointSize[0.04], PointBox[{10., 13.99999999999999}],
3829	PointBox[{10., 6.}]}, InsetBox[
3830	TagBox[
3831	StyleBox[
3832	TagBox["\<\"T2 G1 N4\"\>",
3833	DisplayForm],
3834	FontFamily->"Helvetica",
3835	FontSize->7.997355371900828],
3836	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3837	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
3838	AspectRatio->1,
3839	PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
3840	GraphicsBox[
3841	{Thickness[0.005], LineBox[CompressedData["
3842	1:eJwl1gk41dkbB/CfpYjk2hr7nm5jTSlC95ZqZObfXCMtU5YoO0nKMuiSROst
3843	RkalS0SFuWRKC1liLFmS5YbsRIwwCFHzPc/f83Cfj3N+73nf9/zOQcPl+C/H
3844	BCmKqsY3+WQL4welzaREyacekxq1zB18rsWketaujmjSZbI9WpfW+cPydqOj
3845	ebBfNiNODTZ92arC1WVS7nYnBOo0mRQ3TlMzBePOefIPfoMnKnuNszE+4111
3846	wQA+EDuYX43xCrPQgGENJkVPmzeZwbgU1fvmIRybtBCvh/W35GUnhxIHv1rm
3847	q8dkK/0YtGYfHMw4bfMINs0qVGPA/Cdyb7/AH/n5USbEFjZT2/WZbG16Y7wp
3848	ma+QK3FOH+uo+o7vgoclNeqLMR4efiHREa6SS/jpH4w7jXnLhJN8ns6YrjJg
3849	Ut6LRZw7MO20ybyaAZMtuOK8cDnMOVhcrAFHBQ7tH4BZyruvyWD+GRc2hyL1
3850	5QfumUW8cbr3nCzMKfg+pRbrGWWe364Gs+jenb9jfFOCw30VOEv3/vx+2EWm
3851	a7kkXBjrbCcHb66s659CfNHz0zFv0I9VBiIR1XCJqMk2Dsx/yayIh01lZCXs
3852	4bP6kXvsYPUhdW0tMj9oZKsY7KGzy2oJ/f6pYsLguTqTcuZIxgyS/fszXsQT
3853	NlU5avMe/afEbTpWw1UKRqoYp7Y8Swm5qsakrH+eebIIy7fU6y6pYh4tY0ET
3854	8Q8duEaFwTQfjvA+2JV2cicNVv+WYR0Py/zgSS9SYVJGkQ94bXD5lMHlaFi+
3855	nluphvpK+ZP/uhGXmvS7w1lmaQGusIdCqWM2vNfBsjQITlK2KRuB7yT6HODC
3856	HO7XGWX0O7yhk8uHnaNzvKxgodYmIyWs35Mob3GI+EiZrAvsMWlr4wqnv1RU
3857	y4Qn2hutybiXsLL5ADynGFhGnk80ciqWQb2sJXNpVXjHnroCIzg4SMV2DOvr
3858	d4trbYZLZnvN8uBJ3wFzbdi55JKwP8xf1nFuFvG4kUbmenD+64XxHJj3IujC
3859	COrXEayv+xGmXznMeQgHjgU0NCF/qiz94SnY9vKLt7vgYPGcehvYUI7xNFsZ
3860	/Zvo3a8Pj2yllMVg6v3cpCq8JnWz2DElrPshPlwd9hulPSpXRD2uYcuM4bWf
3861	8mX04EIb6eJfYNbfg/fuKqB+kTnJSDjb6qqSIVzi4p3zDDZP65FrkofH9fIW
3862	yfvEY3+9Ak+Y7K+wQj1tGtv63GB5R2XWJTjTVfLoQZhalEpvgn827iw9Cvub
3863	nl1PzgMrY9PYOTjpzYbHNrAB7/CfhSQeR8bzNFxm98foZ/K8Y5JaAkxJLb6z
3864	RD5JNjVeaeT5HY0Ho+FGVtgDLpxlX7m9Aubp8+SuwqlqUU8W4OEPBU/84LNv
3865	LQLVUK9/oo7LNni1tIOcIRy8dCFhBfEBu190YOeGN7/WIF/dGxnrhIjjQrTP
3866	w5bt7V9eIZ76jbBEUq/KSGe8Dzz3m/+vQvBJBUflReTLjnD7pxr9eUQ1CgbB
3867	w6XqJ5LhGc3j1b3fIe8kyagguE6ztmYbXFhnI+sK9zBmJ2+tRn3CDgcd4XO1
3868	at7zcog/wOR5wvevlLMcYJ6YOzca9mJWHqyXRb/DRXpy4I7+mku2cDDf81g/
3869	fPJy5eJHGay3xiJKE/nJ3Tx0/TYseiROxAOOdHg34AUPr/L158GfeB+17eCk
3870	ll1Sc/AZW5qiPfHYtLU5+nN9h8gGP1heNjKP7E/+B8usZHjC6dH/MmGBPbG5
3871	LTCPvzavBjbf6P1EAfnQ7tWpd8N6jDvPneFYc+UH/eT+bB68mE7yjf7bkA9f
3872	S53W6obZzdbeRbCpnsYXMdQ7LEjvJ/s/9DF+jxbM4ce0OpPn+epHtGH+IKWm
3873	DXtW+OaIk36FnhTrQ/7tmRUifMQzEs81SIHnQppy4ki/VjiYHYa1Qj2tNOHh
3874	b4+KyX1zZ2P8i3Tkb5rqs2IM/Wv6Y9pEDvaoSBkvh0OXPywKlkY/u0oz78PG
3875	+yIkW6TwPr1qKUgh91va7A9GMM3NquouHKDieJ1Dw/sTeLaokJwvw7mHnyUx
3876	fkn0Zidcf7G0bnwV4qva3ZHA+o0Cb8MkYfWYMwd2wzVuoRHOEngvpKQryHma
3877	O/Vacmgl4jRZhzXD6dnN2akryX3Y2kHuu4gfny5eg+XXpJi6kPtJraM/n4x/
3878	/1EyldxfswvPlmD/6bBNrfCuwIgsT8Sveicl9A121lnz3RjMd1gZoGCI3++c
3879	sQpBPmzjUKY2XBYw2SGM/JOylhZV4aSt+1KjYG5PkYQYzFV6JvkB7lkj8XAI
3880	8aqKLL7IoH66ikTDYzjBMoetCvM/6yqFk7+HN9RlaTTyfr0vsIBf/65I1eN5
3881	/zJvpXnUZzH2cngn6dfKlfN/wQO5HnIXSD5TzydPwxMam4/fQb7WFV4BDHja
3882	1d3uMuprtBc5Kw2/sLlm5CCO/b/ZdnsK/f5eiC6qKIb4FhZXeuHkibb2BlG8
3883	r6tTDvTAXzewRS6KIL+uKr1P8OFms4z9y7GOuJcr2Z8ujkYvcxn2J60lxozs
3884	17CbB0sY+WvcdDsBK+aFD10WQh8e92/MhxN+Y6Z8FcR5C5LMJuepcY+7VgY8
3885	0Z20hdw/ybZCppFwFm/SOBb2f1/bcBXmSLYtVsOPn0mY1cJs1/M7hdDf3ERZ
3886	T13Epx+301sPv8gT97gHl2wy8bSFtd/mtBohH/8Ad28XWIdfHlMM8zmufq7w
3887	wNrTqlbI32hBL3ov3GgxWJQPe3CdEjbBw1ZOKYKoNylkFUscpu/uSlsHm/rI
3888	KrUgH2txRpM67JEmMpYIn1avKegn/agN094L89zoHH+YOZnrSoOjq29FVGF9
3889	1rtR+wbUL79ht/Mn5Mu3ZZ1NgCnDbZmjpL7tnuqu8K1ZNYFKAcwXMOm3hGWF
3890	M/tiKeTVVdGlA4+NLMye+cqgJj77upPzmiDTbPzpC4Mabh6h6PDGbvby4Hl4
3891	S8h+JuwvZZ+1/jODsm7ZvoP8/9A40v/SaIZBcV793ZkMvyofYcX8y6BKuDcu
3892	8WEPZdm2rVMMKmlodLMK8j+afzvlyCSD8rD/9dgx2OJbpMvEBIMKfuLnkwMf
3893	9nI1+QAX9j27Nwk3Htv72ALz6V01XAOyHyefXumDqQIf6yOwz917xpWIX3Ky
3894	W+48PB2d+u4N1rfeV6qfAhfeKk77ZxreORuSAVOT9c3ULIPiSZsV3oLZTzvW
3895	/Qtb6yaER5P49kmyuaiPvyXewBGecyofV5lDf/YmjunCi6x0agPM7mSGTCC/
3896	bJN2uz7M532NkvoT5lr579KBTQ30t3vDze/ZrV/RH6NXdoV02KfWO+0E8mGt
3897	F6CNkn72Jd6OQ/5swdd3yXkMO5Uevg/1W29od7oIl9y40dA2yqCcfXOS/cj/
3898	a7S/mkqG0G9W5Ywz8bpD15N6Ee9R+Q9kvzk6cyIa7xjUXJzWtVMwc+p5wZEG
3899	9M/LYjERZgcsynW/wPNfjg9XkPeFfN20/P+nAfM/3qqYIw==
3900	"]], InsetBox[
3901	TagBox[
3902	StyleBox[
3903	TagBox["\<\"G\"\>",
3904	DisplayForm],
3905	FontFamily->"Helvetica",
3906	FontSize->9.996694214876035],
3907	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3908	9.996694214876035]& ], {4.84576923551745, 13.562492355174511`}, \
3909	{0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
3910	9.999999999988404, 6.}}],
3911	PolygonBox[{{5.597022314125994, 5.559702231412599}, {4.442779173482406,
3912	5.042282892503405}, {4.363176198265607, 5.838312644671396}}],
3913	InsetBox[
3914	TagBox[
3915	StyleBox[
3916	TagBox["\<\"b\"\>",
3917	DisplayForm],
3918	FontFamily->"Helvetica",
3919	FontSize->9.996694214876035],
3920	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3921
3922	9.996694214876035]& ], {5.1542307644825485`, 4.562492355174517}, \
3923	{0, 1}], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}],
3924	PolygonBox[{{15.597022314125994`, 14.559702231412594`}, {
3925	14.363176198265606`, 14.83831264467139}, {14.442779173482407`,
3926	14.0422828925034}}], InsetBox[
3927	TagBox[
3928	StyleBox[
3929	TagBox["\<\"t\"\>",
3930	DisplayForm],
3931	FontFamily->"Helvetica",
3932	FontSize->9.996694214876035],
3933	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3934	9.996694214876035]& ], {14.84576923551745, 15.437507644825478`}, \
3935	{0, -1}], LineBox[CompressedData["
3936	1:eJwt1QtMU1cYB/A7FZTnykqBRlHwASLPUlQQHQchDBAtFhRRwPJWHqNDURRw
3937	qOs2deUtTkGKiI/MIlWxihNXh4JsBHkPRQYIBWaYFEWKAmH/m6xJc/PL/zvf
3938	/c45TWoekcSPnkdRVDS+9JOansNnBaFU9NOYZPYmpQ7ZrSSUUMwUS+DNeua8
3939	MJjaJ9rmA0fXPpNmwc27zrlrwiZznjsUsMxjw9IeI5IZus/38HtY9d2NMy1w
3940	oteQ4epVhOoTDd4agJdok/lhsGLxuBMD691yfxkrgB0aHlzwh9texe9vpOt3
3941	uX1ebEyoFCfm2HwLQvlXzyaNIA8fbZjdAMuqJ49Zm5BM9lST2TcwSR0zCTEh
3942	VLiH99wVWKjp5nsArjeoj3kBqxZGmSfCdkfIdh1LvP+HZAsfrC+RPFG6wozN
3943	nP3ayKfT/j4QT+drHFfew/u0yy3jLsACr+65IMxTaGDr0wDLeu/oqLGf3mxO
3944	wRQsrNEUlxgRyjG16PHq1YQy65yuC0L+qktpsxtm1LD7rZDP6/5NR0zbI0eP
3945	jXyL+ErsY1iw2U7LAm45JF+ihoWLgxZsgxtiVD22VoTKSVKpT2P98Gn+l9Ew
3946	Mf0ppB25u+mLmmJYWCuyM8N8w1FNXW0wY22tWRTm73x7zVh7Dc7TOfBlIfK3
3947	rwtN3WCG9zj7Fuxcwa5KpnMT4cWbqM/Yuq61HDYbdbudBfdPnyjpgBUlA6GB
3948	tD3vxGtYY32a1IS+/2slI5VOsEApXVaBeXYKYtSRcM7VhLhAuN4upC0f7vsY
3949	w18IP+1Y/vQJTH4/9f45C+enJV+lpvNcsftdeKj9rpa1DfrbaXTdh/eMZ1kK
3950	YP+X1z60swi1O5bdfhamJqxcZuCZ5dfX/0nb16veFP3TNV1q5mBBj8+0Lc7r
3951	WGFZJNcW909dfmQDj8g682LgvmXrOMthjYku6XmYZHZPs+A3yt6ORtj/1Ng7
3952	bTi72HURZYf1rtfLKVgd6bWRS3ujfuok3u9w6OqRGLi00UTzX8zLGdKtOw83
3953	38xVDMJVxWS2EZbNLWl7ifrXv9rXzNHmKwvq4dCVzy9y7GEfnaEyeMh3fWkE
3954	rPi4oicB3tNxODifzqW9Szl0P6u4S09oy49+TyHnBSSuUMNC+dqUEUOi0O8s
3955	LWA5YK4of+lbQ0KCQ+15DrC/JzfHgEXIaMVAwRa4Wc/C1hcOeL5gVSwsVLrF
3956	ZsGVlwflJ+DSo/rKVlj80HNBCSwTsSp16ft1+dByH1YZ8350NCIKz63fTrbC
3957	1MmUqU1GhOSFHA8bhRlv9D9ZI5dYJehrcPB7GJe5zaJfhOZxc1OYUSHSkbOI
3958	4ufstXVOMJlsKglFvndgv7MfLPRM5s9i/vJK0weRcKl22gEJ9rfVI+NMGtx3
3959	K11jG3JDGXcgn67f0p5tYEioiHXDw1LYLFjMVjFJZkJY2Y06uv6DS/Iokyge
3960	Bd626of9GzV7NFCvtnD5agYWnKuzdEb/f74I7zR2xDwpM2vS0T+xt6mIS/tg
3961	zuVnhiRzSlSxgwcLDvr5MTGvDT+jNg5W6SlYfFjrXnWFCKZOFwWl476MrL4e
3962	lcDN9Xv/OoP7eiB/F18N9/3BF2WgXrTI3b4VZpDoF9uRS3hFvDdwpr3hU13Y
3963	rzX742dc7G/jtOtdzHPp+p1YNpzjTsIDMY8woqrbAWa8q0+ewP7Gc/MKvWEq
3964	YzJPwiQUp0zVLKDzgNtnw3AeoRNhVUdgWcunifVMQsa9hDvzaSuqdO3hyCRr
3965	eQUsCOiv8sD65nbLh89ov/b2SoYXBm/fNAg3s3W0qtBvlv7f4P7//8Ek/wEs
3966	SGzt
3967	"]],
3968	PolygonBox[{{14.402977685874006`, 5.559702231412599}, {
3969	15.636823801734392`, 5.838312644671396}, {15.557220826517593`,
3970	5.042282892503405}}], InsetBox[
3971	TagBox[
3972	StyleBox[
3973	TagBox["\<\"W\"\>",
3974	DisplayForm],
3975	FontFamily->"Helvetica",
3976	FontSize->9.996694214876035],
3977	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3978	9.996694214876035]& ], {15.154230764482548`, 6.437507644825483}, \
3979	{0, -1}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}],
3980	PolygonBox[{{10., 10.599999999999994`}, {9.6, 9.399999999999995}, {
3981	10.4, 9.399999999999995}}], InsetBox[
3982	TagBox[
3983	StyleBox[
3984	TagBox["\<\"t\"\>",
3985	DisplayForm],
3986	FontFamily->"Helvetica",
3987	FontSize->9.996694214876035],
3988	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3989	9.996694214876035]& ], {9.0548, 9.999999999999995}, {1, 0}],
3990	{PointSize[0.04], PointBox[{10., 13.99999999999999}],
3991	PointBox[{10., 6.}]}, InsetBox[
3992	TagBox[
3993	StyleBox[
3994	TagBox["\<\"T2 C1 N5\"\>",
3995	DisplayForm],
3996	FontFamily->"Helvetica",
3997	FontSize->7.997355371900828],
3998	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
3999	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
4000	AspectRatio->1,
4001	PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}],
4002	InsetBox[
4003	GraphicsBox[
4004	{Thickness[0.005], LineBox[CompressedData["
4005	1:eJwl1gk41dkbB/CfpYjk2hr7nm5jTSlC95ZqZObfXCMtU5YoO0nKMuiSROst
4006	RkalS0SFuWRKC1liLFmS5YbsRIwwCFHzPc/f83Cfj3N+73nf9/zOQcPl+C/H
4007	BCmKqsY3+WQL4welzaREyacekxq1zB18rsWketaujmjSZbI9WpfW+cPydqOj
4008	ebBfNiNODTZ92arC1WVS7nYnBOo0mRQ3TlMzBePOefIPfoMnKnuNszE+4111
4009	wQA+EDuYX43xCrPQgGENJkVPmzeZwbgU1fvmIRybtBCvh/W35GUnhxIHv1rm
4010	q8dkK/0YtGYfHMw4bfMINs0qVGPA/Cdyb7/AH/n5USbEFjZT2/WZbG16Y7wp
4011	ma+QK3FOH+uo+o7vgoclNeqLMR4efiHREa6SS/jpH4w7jXnLhJN8ns6YrjJg
4012	Ut6LRZw7MO20ybyaAZMtuOK8cDnMOVhcrAFHBQ7tH4BZyruvyWD+GRc2hyL1
4013	5QfumUW8cbr3nCzMKfg+pRbrGWWe364Gs+jenb9jfFOCw30VOEv3/vx+2EWm
4014	a7kkXBjrbCcHb66s659CfNHz0zFv0I9VBiIR1XCJqMk2Dsx/yayIh01lZCXs
4015	4bP6kXvsYPUhdW0tMj9oZKsY7KGzy2oJ/f6pYsLguTqTcuZIxgyS/fszXsQT
4016	NlU5avMe/afEbTpWw1UKRqoYp7Y8Swm5qsakrH+eebIIy7fU6y6pYh4tY0ET
4017	8Q8duEaFwTQfjvA+2JV2cicNVv+WYR0Py/zgSS9SYVJGkQ94bXD5lMHlaFi+
4018	nluphvpK+ZP/uhGXmvS7w1lmaQGusIdCqWM2vNfBsjQITlK2KRuB7yT6HODC
4019	HO7XGWX0O7yhk8uHnaNzvKxgodYmIyWs35Mob3GI+EiZrAvsMWlr4wqnv1RU
4020	y4Qn2hutybiXsLL5ADynGFhGnk80ciqWQb2sJXNpVXjHnroCIzg4SMV2DOvr
4021	d4trbYZLZnvN8uBJ3wFzbdi55JKwP8xf1nFuFvG4kUbmenD+64XxHJj3IujC
4022	COrXEayv+xGmXznMeQgHjgU0NCF/qiz94SnY9vKLt7vgYPGcehvYUI7xNFsZ
4023	/Zvo3a8Pj2yllMVg6v3cpCq8JnWz2DElrPshPlwd9hulPSpXRD2uYcuM4bWf
4024	8mX04EIb6eJfYNbfg/fuKqB+kTnJSDjb6qqSIVzi4p3zDDZP65FrkofH9fIW
4025	yfvEY3+9Ak+Y7K+wQj1tGtv63GB5R2XWJTjTVfLoQZhalEpvgn827iw9Cvub
4026	nl1PzgMrY9PYOTjpzYbHNrAB7/CfhSQeR8bzNFxm98foZ/K8Y5JaAkxJLb6z
4027	RD5JNjVeaeT5HY0Ho+FGVtgDLpxlX7m9Aubp8+SuwqlqUU8W4OEPBU/84LNv
4028	LQLVUK9/oo7LNni1tIOcIRy8dCFhBfEBu190YOeGN7/WIF/dGxnrhIjjQrTP
4029	w5bt7V9eIZ76jbBEUq/KSGe8Dzz3m/+vQvBJBUflReTLjnD7pxr9eUQ1CgbB
4030	w6XqJ5LhGc3j1b3fIe8kyagguE6ztmYbXFhnI+sK9zBmJ2+tRn3CDgcd4XO1
4031	at7zcog/wOR5wvevlLMcYJ6YOzca9mJWHqyXRb/DRXpy4I7+mku2cDDf81g/
4032	fPJy5eJHGay3xiJKE/nJ3Tx0/TYseiROxAOOdHg34AUPr/L158GfeB+17eCk
4033	ll1Sc/AZW5qiPfHYtLU5+nN9h8gGP1heNjKP7E/+B8usZHjC6dH/MmGBPbG5
4034	LTCPvzavBjbf6P1EAfnQ7tWpd8N6jDvPneFYc+UH/eT+bB68mE7yjf7bkA9f
4035	S53W6obZzdbeRbCpnsYXMdQ7LEjvJ/s/9DF+jxbM4ce0OpPn+epHtGH+IKWm
4036	DXtW+OaIk36FnhTrQ/7tmRUifMQzEs81SIHnQppy4ki/VjiYHYa1Qj2tNOHh
4037	b4+KyX1zZ2P8i3Tkb5rqs2IM/Wv6Y9pEDvaoSBkvh0OXPywKlkY/u0oz78PG
4038	+yIkW6TwPr1qKUgh91va7A9GMM3NquouHKDieJ1Dw/sTeLaokJwvw7mHnyUx
4039	fkn0Zidcf7G0bnwV4qva3ZHA+o0Cb8MkYfWYMwd2wzVuoRHOEngvpKQryHma
4040	O/Vacmgl4jRZhzXD6dnN2akryX3Y2kHuu4gfny5eg+XXpJi6kPtJraM/n4x/
4041	/1EyldxfswvPlmD/6bBNrfCuwIgsT8Sveicl9A121lnz3RjMd1gZoGCI3++c
4042	sQpBPmzjUKY2XBYw2SGM/JOylhZV4aSt+1KjYG5PkYQYzFV6JvkB7lkj8XAI
4043	8aqKLL7IoH66ikTDYzjBMoetCvM/6yqFk7+HN9RlaTTyfr0vsIBf/65I1eN5
4044	/zJvpXnUZzH2cngn6dfKlfN/wQO5HnIXSD5TzydPwxMam4/fQb7WFV4BDHja
4045	1d3uMuprtBc5Kw2/sLlm5CCO/b/ZdnsK/f5eiC6qKIb4FhZXeuHkibb2BlG8
4046	r6tTDvTAXzewRS6KIL+uKr1P8OFms4z9y7GOuJcr2Z8ujkYvcxn2J60lxozs
4047	17CbB0sY+WvcdDsBK+aFD10WQh8e92/MhxN+Y6Z8FcR5C5LMJuepcY+7VgY8
4048	0Z20hdw/ybZCppFwFm/SOBb2f1/bcBXmSLYtVsOPn0mY1cJs1/M7hdDf3ERZ
4049	T13Epx+301sPv8gT97gHl2wy8bSFtd/mtBohH/8Ad28XWIdfHlMM8zmufq7w
4050	wNrTqlbI32hBL3ov3GgxWJQPe3CdEjbBw1ZOKYKoNylkFUscpu/uSlsHm/rI
4051	KrUgH2txRpM67JEmMpYIn1avKegn/agN094L89zoHH+YOZnrSoOjq29FVGF9
4052	1rtR+wbUL79ht/Mn5Mu3ZZ1NgCnDbZmjpL7tnuqu8K1ZNYFKAcwXMOm3hGWF
4053	M/tiKeTVVdGlA4+NLMye+cqgJj77upPzmiDTbPzpC4Mabh6h6PDGbvby4Hl4
4054	S8h+JuwvZZ+1/jODsm7ZvoP8/9A40v/SaIZBcV793ZkMvyofYcX8y6BKuDcu
4055	8WEPZdm2rVMMKmlodLMK8j+afzvlyCSD8rD/9dgx2OJbpMvEBIMKfuLnkwMf
4056	9nI1+QAX9j27Nwk3Htv72ALz6V01XAOyHyefXumDqQIf6yOwz917xpWIX3Ky
4057	W+48PB2d+u4N1rfeV6qfAhfeKk77ZxreORuSAVOT9c3ULIPiSZsV3oLZTzvW
4058	/Qtb6yaER5P49kmyuaiPvyXewBGecyofV5lDf/YmjunCi6x0agPM7mSGTCC/
4059	bJN2uz7M532NkvoT5lr579KBTQ30t3vDze/ZrV/RH6NXdoV02KfWO+0E8mGt
4060	F6CNkn72Jd6OQ/5swdd3yXkMO5Uevg/1W29od7oIl9y40dA2yqCcfXOS/cj/
4061	a7S/mkqG0G9W5Ywz8bpD15N6Ee9R+Q9kvzk6cyIa7xjUXJzWtVMwc+p5wZEG
4062	9M/LYjERZgcsynW/wPNfjg9XkPeFfN20/P+nAfM/3qqYIw==
4063	"]], InsetBox[
4064	TagBox[
4065	StyleBox[
4066	TagBox["\<\"G\"\>",
4067	DisplayForm],
4068	FontFamily->"Helvetica",
4069	FontSize->9.996694214876035],
4070	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4071	9.996694214876035]& ], {4.84576923551745, 13.562492355174511`}, \
4072	{0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
4073	9.999999999988404, 6.}}],
4074	PolygonBox[{{5.597022314125994, 5.559702231412599}, {4.442779173482406,
4075	5.042282892503405}, {4.363176198265607, 5.838312644671396}}],
4076	InsetBox[
4077	TagBox[
4078	StyleBox[
4079	TagBox["\<\"b\"\>",
4080	DisplayForm],
4081	FontFamily->"Helvetica",
4082	FontSize->9.996694214876035],
4083	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4084	9.996694214876035]& ], {5.1542307644825485`, 4.562492355174517}, \
4085	{0, 1}], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}],
4086	PolygonBox[{{15.597022314125994`, 14.559702231412594`}, {
4087	14.363176198265606`, 14.83831264467139}, {14.442779173482407`,
4088	14.0422828925034}}], InsetBox[
4089	TagBox[
4090	StyleBox[
4091	TagBox["\<\"t\"\>",
4092	DisplayForm],
4093	FontFamily->"Helvetica",
4094	FontSize->9.996694214876035],
4095	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4096	9.996694214876035]& ], {14.84576923551745, 15.437507644825478`}, \
4097	{0, -1}], LineBox[CompressedData["
4098	1:eJwt1QtMU1cYB/A7FZTnykqBRlHwASLPUlQQHQchDBAtFhRRwPJWHqNDURRw
4099	qOs2deUtTkGKiI/MIlWxihNXh4JsBHkPRQYIBWaYFEWKAmH/m6xJc/PL/zvf
4100	/c45TWoekcSPnkdRVDS+9JOansNnBaFU9NOYZPYmpQ7ZrSSUUMwUS+DNeua8
4101	MJjaJ9rmA0fXPpNmwc27zrlrwiZznjsUsMxjw9IeI5IZus/38HtY9d2NMy1w
4102	oteQ4epVhOoTDd4agJdok/lhsGLxuBMD691yfxkrgB0aHlzwh9texe9vpOt3
4103	uX1ebEyoFCfm2HwLQvlXzyaNIA8fbZjdAMuqJ49Zm5BM9lST2TcwSR0zCTEh
4104	VLiH99wVWKjp5nsArjeoj3kBqxZGmSfCdkfIdh1LvP+HZAsfrC+RPFG6wozN
4105	nP3ayKfT/j4QT+drHFfew/u0yy3jLsACr+65IMxTaGDr0wDLeu/oqLGf3mxO
4106	wRQsrNEUlxgRyjG16PHq1YQy65yuC0L+qktpsxtm1LD7rZDP6/5NR0zbI0eP
4107	jXyL+ErsY1iw2U7LAm45JF+ihoWLgxZsgxtiVD22VoTKSVKpT2P98Gn+l9Ew
4108	Mf0ppB25u+mLmmJYWCuyM8N8w1FNXW0wY22tWRTm73x7zVh7Dc7TOfBlIfK3
4109	rwtN3WCG9zj7Fuxcwa5KpnMT4cWbqM/Yuq61HDYbdbudBfdPnyjpgBUlA6GB
4110	tD3vxGtYY32a1IS+/2slI5VOsEApXVaBeXYKYtSRcM7VhLhAuN4upC0f7vsY
4111	w18IP+1Y/vQJTH4/9f45C+enJV+lpvNcsftdeKj9rpa1DfrbaXTdh/eMZ1kK
4112	YP+X1z60swi1O5bdfhamJqxcZuCZ5dfX/0nb16veFP3TNV1q5mBBj8+0Lc7r
4113	WGFZJNcW909dfmQDj8g682LgvmXrOMthjYku6XmYZHZPs+A3yt6ORtj/1Ng7
4114	bTi72HURZYf1rtfLKVgd6bWRS3ujfuok3u9w6OqRGLi00UTzX8zLGdKtOw83
4115	38xVDMJVxWS2EZbNLWl7ifrXv9rXzNHmKwvq4dCVzy9y7GEfnaEyeMh3fWkE
4116	rPi4oicB3tNxODifzqW9Szl0P6u4S09oy49+TyHnBSSuUMNC+dqUEUOi0O8s
4117	LWA5YK4of+lbQ0KCQ+15DrC/JzfHgEXIaMVAwRa4Wc/C1hcOeL5gVSwsVLrF
4118	ZsGVlwflJ+DSo/rKVlj80HNBCSwTsSp16ft1+dByH1YZ8350NCIKz63fTrbC
4119	1MmUqU1GhOSFHA8bhRlv9D9ZI5dYJehrcPB7GJe5zaJfhOZxc1OYUSHSkbOI
4120	4ufstXVOMJlsKglFvndgv7MfLPRM5s9i/vJK0weRcKl22gEJ9rfVI+NMGtx3
4121	K11jG3JDGXcgn67f0p5tYEioiHXDw1LYLFjMVjFJZkJY2Y06uv6DS/Iokyge
4122	Bd626of9GzV7NFCvtnD5agYWnKuzdEb/f74I7zR2xDwpM2vS0T+xt6mIS/tg
4123	zuVnhiRzSlSxgwcLDvr5MTGvDT+jNg5W6SlYfFjrXnWFCKZOFwWl476MrL4e
4124	lcDN9Xv/OoP7eiB/F18N9/3BF2WgXrTI3b4VZpDoF9uRS3hFvDdwpr3hU13Y
4125	rzX742dc7G/jtOtdzHPp+p1YNpzjTsIDMY8woqrbAWa8q0+ewP7Gc/MKvWEq
4126	YzJPwiQUp0zVLKDzgNtnw3AeoRNhVUdgWcunifVMQsa9hDvzaSuqdO3hyCRr
4127	eQUsCOiv8sD65nbLh89ov/b2SoYXBm/fNAg3s3W0qtBvlv7f4P7//8Ek/wEs
4128	SGzt
4129	"]],
4130	PolygonBox[{{14.402977685874006`, 5.559702231412599}, {
4131	15.636823801734392`, 5.838312644671396}, {15.557220826517593`,
4132	5.042282892503405}}], InsetBox[
4133	TagBox[
4134	StyleBox[
4135	TagBox["\<\"W\"\>",
4136	DisplayForm],
4137	FontFamily->"Helvetica",
4138	FontSize->9.996694214876035],
4139	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4140	9.996694214876035]& ], {15.154230764482548`, 6.437507644825483}, \
4141	{0, -1}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}],
4142	PolygonBox[{{10., 10.599999999999994`}, {9.6, 9.399999999999995}, {
4143	10.4, 9.399999999999995}}], InsetBox[
4144	TagBox[
4145	StyleBox[
4146	TagBox["\<\"t\"\>",
4147	DisplayForm],
4148	FontFamily->"Helvetica",
4149	FontSize->9.996694214876035],
4150	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4151	9.996694214876035]& ], {9.0548, 9.999999999999995}, {1, 0}],
4152	{PointSize[0.04], PointBox[{10., 13.99999999999999}],
4153	PointBox[{10., 6.}]}, InsetBox[
4154	TagBox[
4155	StyleBox[
4156	TagBox["\<\"T2 P1 N6\"\>",
4157	DisplayForm],
4158	FontFamily->"Helvetica",
4159	FontSize->7.997355371900828],
4160	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4161	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
4162	AspectRatio->1,
4163	PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}],
4164	InsetBox[
4165	TagBox[
4166	StyleBox[
4167	TagBox["\<\"G\"\>",
4168	DisplayForm],
4169	FontFamily->"Helvetica",
4170	FontSize->11.99603305785124],
4171	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4172	11.99603305785124]& ], {24., 69.96}, {0, 0}], InsetBox[
4173	TagBox[
4174	StyleBox[
4175	TagBox["\<\"b\"\>",
4176	DisplayForm],
4177	FontFamily->"Helvetica",
4178	FontSize->11.99603305785124],
4179	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4180	11.99603305785124]& ], {28.5, 69.96}, {0, 0}], InsetBox[
4181	TagBox[
4182	StyleBox[
4183	TagBox["\<\"\[RightArrow]\"\>",
4184	DisplayForm],
4185	FontFamily->"Helvetica",
4186	FontSize->11.99603305785124],
4187	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4188	11.99603305785124]& ], {33., 69.96}, {0, 0}], InsetBox[
4189	TagBox[
4190	StyleBox[
4191	TagBox["\<\"t\"\>",
4192	DisplayForm],
4193	FontFamily->"Helvetica",
4194	FontSize->11.99603305785124],
4195	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4196	11.99603305785124]& ], {37.5, 69.96}, {0, 0}], InsetBox[
4197	TagBox[
4198	StyleBox[
4199	TagBox["\<\"W\"\>",
4200	DisplayForm],
4201	FontFamily->"Helvetica",
4202	FontSize->11.99603305785124],
4203	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
4204	11.99603305785124]& ], {42., 69.96}, {0, 0}]},
4205	AspectRatio->1.0999999999999999`,
4206	PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
4207	CellChangeTimes->{3.499584341801282^9, 3.4995857119234962`^9,
4208	3.499593684804886^9, 3.4996004100852423`^9, 3.4996647003076563`*^9,
4209	3.499665389095975^9, 3.499666628636258^9, 3.500187227713748*^9,
4210	3.500187682372513^9, 3.500385527563612^9, 3.500617091467664*^9,
4211	3.500619897374362^9, 3.50062002320868^9, 3.500627580982242*^9,
4212	3.500718533824037*^9},
4213	ImageCache->GraphicsData["CompressedBitmap", "\<\
4214	eJztnQm8lUUVwC9vf2wCsimLIKiAgCgoriCrUm4VlYoouKOiCJqmlSgqIoYh
4215	ZlaKVJqltmjumZoW5VJqm/u+4E6olZo5zf9858z77n3fXd59D959er/f7913
4216	v+/Od+bMmZkzZ5sze88+6egj5s4+ac5hswfsMX/2vKPnHLZgwNQT5vtHle1S
4217	qXb3+L+1A1J8d6mUfch1Lx96U/5e/l7+Xv5e/l7+/in9Plz+VboXX3zRbbTR
4218	RnJXoc/WrFnjWDcHDhzon22zzTb+2Q477OD0SlXLZ4276qqr3Pbbb+9GjBjh
4219	Ro8e7caNG+cuv/zyCi00ZswY17t3b9euXTvXp08fd8ghh+irydXuuOOObuON
4220	N9a7xuUObzbKHQVl8PIl3LBhw9y0adPco48+KoUS8M2Obn0cXbdkyRI3dOhQ
4221	N3LkSLfFFlu4Aw44wL366qupI5uBchIJqooibTquXC+88ILbfffdBWfqfPzx
4222	x1M7Zx8YhsqyZcuEcm+++WaqTp/5DhfwL730UmjaE088EXqyIgFejXzWxp/J
4223	9Ytf/MINGDCAd7Wp+UdALtwuu+wywe2VV15RPGrcfffd5+66665Qp8KqlZ87
4224	50JJ7j0o9/HHH8v3jz76yH3ta19zn/3sZ5M6Ogmz2oRySR1XCIVsnn3uc59z
4225	v//97+X373znO27ixIm5OtMIu3TpUrfddtu5tWvXBrT69+/vHn744UYdl78z
4226	N0pD9X//+59Mrx/+8IeBcnPnzpWxutlmm7m+ffvK2OX722+/nTqsiXjy3kMP
4227	PRSrPz/5MnAKZH/yySfdpptuKndHFIhHUp3Zu7F9XtrwrEuXLvH5s8kmm8jd
4228	Ttl70mo899xzZZj/61//Cs/eeustV1tbm9Zru+66q/BqX3sid4mw7ZSG7RVX
4229	XOGmTJkSHwXummuucYcfLpPRyiZSrlD8kiZFhEvnvLh88MEH7rXXXpPv//73
4230	v90xxxzjvvzlLyfNx+zo1Ei5ioqKsC7ss88+7tlnn80+3vNjBlbw9xtvvFHu
4231	zznnHLfHHnvkmJk2qjw3l9kSH31xetVlfbdhxEMXGMUDDzxgWOk4qHKf//zn
4232	3d13321lk7quUFQK6boEVMLQqaqqEtGBhejYY49169atS+q67OjUNGKRZ599
4233	tps6dWohXZcNszfeeMPV19e70047zW299dbStX40FNB1f/vb38LMtfEGs/rz
4234	n/+ch14NXfetb33LTZ8+PdAo3nUIDYxdmFaersuHSna+2T4XKuG7//2YAqvP
4235	1lVe7KBMISJCdqJUuu7duyN+yN2u2fvIJID//Oc/7o477gjLOGvm2LFjDXHm
4236	MlJtg0BTKyLi+eefL8X/+9//ul//+tfuL3/5i3C+2him7du3l0bTsDimxm1X
4237	rVrlDj744Kwcs4kovvzyy+GVP/zhD+7OO+/MRK821qNZsMvXo3mQqs4YM3Zd
4238	fPHFbrfddktGKDe5TLI59dRThaHbhaigk3CYDqyddtopMO0K5eAe+syZMwVf
4239	L5q5rbbaSn5GPfEdqR3Wwf3kJz8BfxHa+R1B+Mc//rHU9P7778OsZWg1dHJE
4240	F5i6X/4SBSTraPQKo9+hzUW1vaBKh/M6rHLPPfd0//jHPzLRzI5ldaPO9gj4
4241	kpHacdNNNxmJm4NtfCTEF1MI+9e//rVwbOvTsOWCUx911FHSeDjytddeayNB
4242	ft9AWvNmOnhZMEAZBQOe2qFDB3fQQQeJSHFhC5WZl1ylF27ce++9J+LFqFGj
4243	3IknntgIXLFl0qqsDEX9SAuD/ac//anr1auX3C1r4XInJFfvsQzF4XIoDklg
4244	m1suS/VxbJmH6N35WlVMubTqG/rpi1/8ovQTKz+casGCBY36stgyWYaYjcaO
4245	HTuKxOXne9YR29QyWYYYP60o8NlJpQSCz6ZwkEXyr1rsCIiX+++/vxgI3n33
4246	3dTyIn/rHIH2CLI8//3vf3f//Oc/FcEqEdd/9KMfuSuvvBLd1dZf2gKPv+WW
4247	WwToD37wA1kNr7/++lRHffX555+PgywpiJ200Z3cmWee6ebMmSM6G0vR+PHj
4248	3YQJE4TDzZs3TxR3gGP1YdF85513Ul21R6+++moxhnG3hz5jrUFQg4gdFJNf
4249	/vKXbuedd3aXXnqpCDa77LKLW758OYp70IuQHTDMYfgzOcDXJTYbJxIHn50F
4250	hyJwLqNcEMrRSFNZpJtYVhg6aD2/+tWv3Pe+9z23cOFCd+SRR7q9995bWoIl
4251	lJbMmDGDZVDmFYbi3/72tyKaerZZqwMVXbW6uloW6YceemiyPG7PmHXnnXee
4252	2JFgEI888oj74x//6GbPni210CAv/ZgaRtH99ttPlnnT7BCTFy9eLJLjY489
4253	ZivEzTffLJV6+SnVu9ymNtGmSBVIRdJ/vZiJvabm7r//fnfDDTeI3vSNb3xD
4254	TGiI0V5J8tB9w1IRvieddJK78MILRTjo1q2bB54S5j558mR36623on+pVbDK
4255	PfPMM2KB/81vfkM9hs1zzz0nc7JTp076eq1QD/CwXvgtE0yZa5hITK5tt91W
4256	RCQzjWEP/sIXviDVQ33QXrdu3aBy69ps67pHA3QTLfXhhx+K/YSZAAu+6KKL
4257	EIqrtfIuXbpIW2kXpt/f/e53gjtSUG+tHBoxZbFIRNy8Wqb0JZdc4r70pS+J
4258	bc+v5mrWqZff0O4/85nPSBlEGlZ2Uyt99alqpd0ZZ5zh9AoGmTfffFMMgSxC
4259	LExIt0xiP3kj82gFktE25Qa28Qb2jEZqP/nXW4QIDeuSPwxI2JiYdt///vdl
4260	5fj5z38u7T/99NNF68DiQCWsIFOnTpVnX/3qV6UMZXGdIZZ6gaST4gY4Vg+q
4261	4D8eNsQbT7eUmeC93OL23XdfWQvQoZFVMazPnz8fR4TNShgIS8XMmTOD99Yv
4262	GyL60GxmZ58+fQKjOOusswKpTOShKoTmJ554IjW+TIkyJTIosXl8klSL8I2I
4263	RGMefPBBJBad0d3EBPfss88KB7juuutEumYWY5RmkTCigN6sWbPc17/+dbdi
4264	xQphKthKsMt5ZmNrFUwDFw54VshntVj+UNRMcvPVBay9IOW23HJLlkd9VivK
4265	AWsZSyYePNY4qvfMyEtsLqiN/M666Ju1Z7mln7iWbh0N4rHyr4O89dRTT7l7
4266	771XSuH/Ofnkk0UKmjRpkkhEzPIRI0boMtNepHcupB4aTCNZGbmYjsx0L8TV
4267	KE1NGcCYjlnbqx6pEz/V1atFfYL2LBhUVlbGRkJ7GRmMELtQh8CO3mawgdnq
4268	1asXlwSIqVF7JmqTYeE6soWF+/vgrsSnYTz2vPVcXtGapD8h/zNHkbxWFPhs
4269	v3QQ+NawzXC3osBnZRAFgeinz372s59Jx/q1PKhcmMJ45sun5rbSu8Pyo849
4270	XoZRo0YFMwYyCGoBz5ctW5YLg/X/et421MsKgwceDxkaMBfiFaoGaoRXO3KQ
4271	ccO8n6MZfeWzQxBWWRBhVKzXXASQ4ulmTcZdwvp+XInBGZq/eQQmqD9LwqzM
4272	ec8iw0BGaoWXIzTnQqs14BTQPCSwAw88UEAQRzpkyBBZYjt37kxsgjzHTb9w
4273	4cKcaLUGnLzNq5VQDAxSXDZDGRBjxowJHksESyQP7o4tUVhDsje1jz4jOolx
4274	/9xzzwUQaG7EFpxyyinhGYErLOUY1ZJQLCV4BTQb1WDzzSN90UCgUlDV7bff
4275	Hp4hfxLid9NNN+VEsxTg5Wh2aUgQn1YQO+pPca95XUJxCavzQgHMmZgp/i65
4276	5JJI2KkRHt61a1dhavQ536dMmbKkqLf2bRpqS/QZ6rUukyGW8tVXX83QSyrd
4277	BRdc4PRKnduMd/cuDk0sA1bO9DzM/mYaI9IFjnJeE8sXSbV4uRrtLhwoBn7s
4278	2LFNKJplVBGdVyGfkZfFSFjZRMRQkTFz8Pyb3/xmE4o2cbgnQbZQOAzoPHv+
4279	+ecLLtfE6q3vEX2IcY6GoBdr/bNvf/vbjeiHt8sCtJrzbgtS6Z577glrfaHl
4280	slQf4R59Ur21oKKJKFGO+MSmlCspZl0G0QCiv/yrlVgEbPE9evQQJYj/WDG9
4281	UqRl0l8/fgO/p+iaikr0N695lhRUVGzDeOcYh+hw/RLAzG3l99OaUSkiLntl
4282	XIyR2FTKjcKGf1dR76s/4YKl+NNPPx3M4/lAHNdK72agjtWY4sQTWsg4GjJi
4283	lclQXvfKiUZrw8jRG4MLpF5zymWMY3ba2XgalGPctVS5tOrrJCiqU6dOabOR
4284	ODkUZ78CJfGTua3yagbTZQAQC9CzZ08xtrFZAHPNDTfckJN5bqj3SmqlakEQ
4285	zfBC5PKvLC/yN1U5xmkRok3YhLV69WqJxfLFU+YejzmDUkvXc3lVzGSXvme1
4286	vMLQJvjUswXbKQU0DFa4owi5OuWUU6KdUhFA89RR+KwShLRX1MgRShvoQeQQ
4287	3kJC+lE6IqgdJKYNERu/MsYbnHCEpuNsRPwmOJjoH2Tg7A7mOtE0SZqAxoC8
4288	cP3114tFE57rV7Du+iobMw3Lg8voNQO9baM+jtaxbrI9i7eBAjYrV64Uvs1l
4289	vgH0FoJjsDnyO/ZIymJYB2vP7034oOKBAwe6Qw89VG0eHRoF0JxwwgkStcuS
4290	QewiRFqwYAE+bg2prBfiEFB22GGHJTbuww8/DPEExx13nETgEhHsn08vt6zN
4291	tWxUNCj7aAOpiagsTFJ49Fmmr732WmFluDcIwcIFcvvtt4tFjbQJ1MYWAqYN
4292	+Q6eeuopM7rB9erq6iSBQ7UiQHABAS3QytPTisaDISNcayXOBYyYmMltby81
4293	0nZPQ2k7RhHaTlymtp2AMDP59evXT2LIwGhaudGfkkaPjEa5bFSpwJVRpVRg
4294	/8NXvvIVmUFE+VAHIbGIqGy6JtfMXnvtJZOZiBcugrfYJ8GyTuYhj7M1DSsd
4295	Uq1feUIYCiBpridwoAxKBaiTU8ATOlKf6hOpAD8gBmnixIloY6loGaoWYhOU
4296	AKuxOb5DuX1tun0azVCptRAvTlgstfjGROJIR/R0QYCkFKhNRNbSFuiAvEHs
4297	Ktu42B8TXqsSkpDOAea/aNEiax6B5sTv+skamocbgNkF5R588EELmAVNSwiB
4298	D5xttfYbK5uFh9ERvo+CykzqIfUqqPy0kTiU2QMNWVhN+W8hdsS3M8mJmgQN
4299	IiKY5Bo1qXDL9CnTpzj6DIimWUpibGiLkILYXTQ02AfkYAIj0/Ebm2Q/+ugj
4300	m5jEt2O7JNOCF+eMexDZSwKGM888M5CCmE9wI/mPb6M9RiiE1gQd+IqNCgSf
4301	ElbBBWO44IILAoXYFff6668H6qHVRG77SNOsqalxw4cPF/mTTaFeEa1VLglf
4302	Yv2GLxEnHOdLFttK/GoewvXUAVSmWplqG4Zqto8PHD744IOwMsLCjj/+eLEc
4303	BiE02ihqOVs837HHOHhACeHRy6HWSBqNgMiFtOvZpRKgynyYcnkBwF7Be49C
4304	xgU/9MpUoBn2V0IguGggHGxz7S1CqJAtuItMA12FUHBmCEXAOYRKCjiHUIwT
4305	CMUmRNtDsGbNmrDHH1gxOpXJVCZTEWSy/A6Vsu9Wr+DdYhJjPJg7d27gOBg8
4306	ERfgAV7Ts8dID1x4V71iaG1CfTTI2EVXrVoVSAR+5CfIIBEx/ERe4NRECF++
4307	fHl4BcMLvloSFM2bNy/acF6blRLI9B21LfymmIQAoXL7Sr99OkItcAoNj+WT
4308	/9gvCM63mrEeYAjmIpkgSS+sZlQ6u/yksFeojdDHpPZhS/7ud78rgUgTJkyI
4309	ExCBGE3OI260BiEWMu4OLiO7npDdP300oHljaOXCZXb66acHnNlFZ0mn0f2J
4310	PjcEsGgBFvvR+PHj7ZV169bJ0GWbKGoSCZvtFcYoO7gGDx6M1/+EMgYPzEnv
4311	DHZPYo7mwnzo1cSACDMa8zMXsaR+7QtQ2Yx7xBFHSEpR/926HUs2S9l1112X
4312	OvUTUcX8dHqxplsnsB57uSDUxL59NANqhDU35OapEmkcrs7+Z995C0sa3GlR
4313	my1jDGZkdHgge+XEqES6NEQfknefv16KRhnBQhAkcTvmbV5R4LPIi52WZ+xw
4314	RSAjPPqiJj1WS7Vl545HMq8o8NmodBDxiOMVBT7LAFFMsraSAnGo/pQvinZZ
4315	C5cbXkpEiI/V8vcN/z37MQ/Jp0tEbLKFz/xofDBF0vvZT33IhWoLnvVRk4Zm
4316	7NyOpGM7moptUrUtccwHHJSW25EkWNFIaV3AyRDxZxa4vr6O+ahMeC/XKQxJ
4317	uDX5mI9CztVIP7fj6AJRas7BEBl4yD16iJd7DSVEFzwk3OU4GCIXsYo/4iP3
4318	cRot0ZEtcayH4RE/ruOo9dJ7hR0v8vTTT4c9ME3sMkOn+LM80lHMOKWiWV2W
4319	hFshhxsk4WHw4wdzJJ0CkR2PIg7wKAwldA0CU6ZPn95UzplEoWJP7miNnkrC
4320	wwZ1/ByOpuFRxHkdhZAmsvkxz9gD77XjIpe5ljiro6U4Yf6DOnLjYZ0VP4mj
4321	uZ3VzBM7DCVySeEcdLmZYjznauwICZtFxZ3U0THvWRgZ72U/xC0vZgUf0NE5
4322	L1JZTt9oAnLxo0AKPqgj/8khLHzvvfeeDQl8OIMGDYp3bc6zOqrFbpd53ka9
4323	vNJSZ3TUpiGc+d7hxaLXAudy1Dfq46SDNYrAMN57LXgWBycI0GD6g0AAwGG6
4324	bYWzONrid6WwXmHLBpZtIiBw23oWoZGhvuTZRRZocJ4iT6ELcR+5Z3OfOhLx
4325	k2qZZBgtyZiJU+TKK68MDj0WFIWb6lGCMBtaj/qEw/nqq69u1PqkA1BsecSU
4326	hqJEMtou+qw0YWmme5nPBPLgSifJdDd9I9+ZK2auYODg5ueuqw6qDJglBlLb
4327	b9IWnU/4H4OjawbYbCe+GFgcUKx83G1c4vC02Sa0sdyyHc/zgjC68p00Y2CR
4328	zvTsxFT3EoenzTYBEgsG7OL+++9PmeSc66QbA4n0BLvgrmeJwopGRxD7oQCy
4329	MryicwbIpBN2DCQ7+kjKzV2vEoWlTTUfnHEHNlR4itjaEHcfzJZn9eIbJoaD
4330	9YAoKvR9YgsRZPFiEaC3SZsCG/FCFS0jU5/xiw5ZQUcRYLBE0ul6Cb6CNaJ/
4331	icCIFnLdV5POC9ongJqlz7DbYvrmblArvRt1cmhxfF5bPgA4usU1DW7hclq9
4332	jSnc/cw1cixb/jQCze1QnS1auJxWb7nPGekoGTrSeSrx82RCiPq/JpxAbRfv
4333	+BYOKQkQ0Y7ClFl0GdOIWQQio11OnTpVB0GtCJREFLMTnAuRi/1kK1euVEW2
4334	9d7XZnRRMEhDbBDS7Qi8qjFTtbJrDumJ5yRkIBgCAyfcengrv9833owakW4M
4335	BH+8tnbt2pn6M2Hd8Z9RO726MyL328MUj1w6xPDWrqFffFhWiu2KrSTRlsHo
4336	U5NFSYmhWi7Ou0bqMwY+YmPDtpRKuWeoUWLrAusYktGqJG1k6xKuM21sVUo0
4337	NcY4zumxqsmTn151OklHKDos2nSodRqHRiG4sLloZIHwt8qAn03BGVqidUZS
4338	gCox1dKTbBVBrsOE6Mdw4qi01BGsKfQOliYOmSVzz+gcsDK7I5tiNLQV4euG
4339	rUi2qRLq4SHi6CW/GiUNKDNtY/1l5mOv3jH59Vx9F1eRhmwYkJEEFUR+fLNI
4340	LZwDlAk2Wx5GKwcJOdqKu50T4G2ZwQSStKWh6xmWNteORIpLSVsm9KvxJJZs
4341	zqPjbteEd7fIQCdJOxqynmFFgmfQXbA0I0sRn+hlqcEJrYtqqhO3wG233SZi
4342	F/MJzk2CElUKxiVDHJQAccvWghg1JWQZtuQX8W2dcaiDlcZMJGQWbIvMCkJq
4343	4CrkJpuYAGvzrFTccLCi6RZyoCGiWbamTJDZcl+a5oeTTjcRhVM74/AGZkWx
4344	5d7VU2Esp1p8ku+pz5jQeDS427OFy2n1RhH4BxPRr6KhVfhojHKd9Vm+Mxu2
4345	K3F4ej7gZskTcbK+geOP/uTORNgCDnsY3YagKiEG6K9onbFJaqnTmINsaGoA
4346	Xth5EWPaFFilhXGR+Gy2A4OIWEDR43ioCHTTTpjYvo3C1gNfbS2Bq6DWe76c
4347	lrbL8sxEY7UmPOOPeC6y3/iqKohl8a+wIdkYkWHVlAMtdiijkwMd7bNora+L
4348	s85GWa/8fZQurTrtJ9zq8+bNU9t/007jGFtYteZFIXUXUiB3m35yUdE+MUEA
4349	Xo5Z2YNMJSVjNIW4cUq89HLmYW3qOSJjC8Sjm5IBLZPhxUglPOf1118PqtOn
4350	GUf1bJgKhQNIbQ0BVewNiLEwhRHyGT3LLBdPU2nO42LOStmxQFy6ymedcPq4
4351	AY9RTuwLZe+4447uZZSTUNaOt7xqufKbR1O/SkI8WWIJ3W7Xrp1hBPKcQExN
4352	I+WzUu71GIbE4Wqe92IOlenbsih3U5QBn0lsNnagzZ188skeZLlpzWhamgu1
4353	sIT0XbUsCWbgiUgb8LSEFVBzptY0Wu6wUXtYu66nartrtbBunmOQRIACvpdS
4354	e7VFrEbHeyp/7n0LmCGBI6kY4oMil+zIf86AJtGIFzZ2aeHqeugz9AMsFvDG
4355	PiWPQmQtCHsR8h0eYK4Ucm9yVi93u+kz8sASlPrYY49psG/pwts2vdmFHjRg
4356	4DEqsOGNu3H6jJyiqCa33XZbWJ7bCtxR2UdBdwWPWRyVChaBJeDJJ59M7a7l
4357	CTjFZHTxxRcHGbS1YWwTNcmYSvzABONsKDksepzKjun8mmuuEeMHjh6mB4mS
4358	xkvZyBZEepGjjz4ajWWHNgV2RJwWec9lsDAXUt2YPdQ2rcKBSKtgKeEwEBr1
4359	0QJQrj1INbB80qrSTfMmwuY6LcJCi8zW6GefMqwakVxgwVxEgMOUfDmrEQ4P
4360	FgT7b/+JrEot6eaCYc8JOx2isRtBQ5IDgkXIY+Hxr5qRjgSixrymlBSYYelt
4361	w65sO2yr9RNLFcoX7jhy1MTdPoxYNCnSUU0uERh6WmwvHSAYbDB4wmDwqREi
4362	ADcm25LFqUIwfOSolZOVlDAl0mWR7cfDGFfS4NR1Fhmu6sVOSQ+Tkgx5A6MX
4363	zhQGC8bixYsXp/ZR6BjFcCTDMUxKU+Ok3I1tIzAjt1wQKjEpYMQhcNIYJ0Qm
4364	CAd+gG63aNEiBV8jO1CYM2yBIrSAtNKPP/742JIGF6mYIWDdsguRTMB4AaEh
4365	zH8ufqdWT8J9tFLy3bC/ylTgSZMmBWt3aYLLaPMtt9wiycnjnAK7LfIGF0rc
4366	6tWrwzCCJ6Lbx3V4MsXaMBrdxuBulk6O+fPnC1Hj4EkwBp9gpjG7iO4z8Ihn
4367	Zvow8BokmIZ2W4Gr5Ig0iTpJa09IHqo7YwtDESI32sfHH39sHBZbkYblak1R
4368	yi06CyG2urraKrOkcBQa+QmqRaPlIndUe1mT4MAAt3SURKZgisHsSsV+jTpA
4369	uwzGTQy4ZRi/6qqrFO9SA6UDxMIJ0LzJrk4QhzHiFStWSCAHF5E5Xt5OzVBK
4370	QlmyMbOV/8YbbxxeUmC0DzspNCKLWDRII2IMF70BIYpATC5Urvvuu+8gfYXH
4371	TDGvlahoWCpg+qW3jeOnMtkoCyjU4zUyM/hRkpoZmwH4dUhC6EfOkJICo7Hx
4372	HfRX3mChRwi+++67bYcRmiGmMmatZ4mHaN2knEVceOONN9T72LoQIsdq0N7J
4373	oY5+Yic6sdUcDkZWxxdeeGGOQmDLAPqWl+h0hd/Qr+q+ETMqwTf0LIVgsyIw
4374	hymKlMZQZsOvgWLvEFzZT0ONuWl9GFEwaEguwKlEdBx7bCt1BrJviJHKhekc
4375	M/i6desMGsOArYxLly4NkWSlASZS74KOBHehNJzTuAvcEVcASVe50Kv8SD1Q
4376	x3JGwkjLbc5brCWIpe+//36fNl9Bj3RKQWPiTF2MV2FcpW6O4oHAnpelDtDy
4377	8YyYZqBFAGVqvfbaazrf2w5cjQWzIYcfiQS/kBaBE24RpKkqESHg3iRU83q2
4378	VRLP8WnuDsRYM8f1bMPQNZIlsp7JYCIjLeRm5zviBvY2cvJhhbn00kstKWg8
4379	INZc76gvyPCY4yLA9YWATLUmTHXF6kwiyT/HjcjG0Gj4oauRIgiJnCXcE1l3
4380	8aUDN38w8fsgs2TJkpBNoC2CZtYgjpKVOSoTjUPs15oSSSpHZnv44YdnJQDv
4381	HsORGHDi/v0wtrjWtgvdEpaoWhLyYKLgrlq1SuBbIvFDFHi+rLc2ONkMAY6w
4382	r7hwr/UFttiW6+ocqMjxWVbSqAhVUV4RR/nPVsykLrJwMKL1kIweeeSRtLMc
4383	FHZoRSnCbUgBg4/IKGHLNzKfJcVJgmgbgGBomkws7ATnXYUZhMJSgBdRsiSy
4384	HJW/l7+3xe9iH/LK65/+9CcJWcZkTOwSLmZyXbO7bM2aNZaeitnIEsbWY6xj
4385	7NonfYTXm4OChnuZg8S4i2ZtlRig8OIThptq2FyJDA5IdjtbnAv2AJ4RHH1F
4386	hKSsFl5Yw0kNBPJeEhwBD0HMJ6iXGOuOHTuqH6dOQIAhwhlOMK/XiqyLB8RL
4387	q7a7inQEtBPTuSHLwWpE/7HB2LMgQxZPMRFfhPxWalF8D0SY8dyvSIrvFfoG
4388	biaIyblSlsUH6qWiPgjGd+6J4Y9vzUVnpUZOvDDKEtvCcdWeVwYSAt/UnOhZ
4389	tA0YmJg1oVc8fsZ4Kr+R4pDzGFemo03qBZLfwXbzoa2Hc6Qsngv50TZbS1fU
4390	Q17/A/51TgQmjVfPGAAAx3HnJBqeY2IhRrIh7jE68YO83qhllIEOGbgjs+MP
4391	5c5eQwyh2fyh2yJe9IihoIfwhTZATqrmzsYJ8RTAJnlJrxzoM4e6du0qsh4W
4392	Sq9TBDwQEaGXJRzES5mBPqPTNirZSLDk68F1Ecc9F/1tQyQWESYpuPfOgTvT
4393	hRgRLpBg04nhzlA0azJW42nTpuXCXdCRbJxxZHONcSM0Y1cPN0pENho7nSUY
4394	ged25BtZZJAdkaBI2clvqPRcZCwiXszP1suzD5eIXLk5h5ezzBWL6kvRWbNm
4395	+Qb5u6il9cKZ+EGlGXExEQbKiCaiqX///oEC3FMWF30GaniymIVMGItfpigW
4396	Gjb6MJnwb9KznhFGQXPV8fHBWLDtWrbZj52eRDejg8yYMSOe1h7gXuXPxANr
4397	LvVw5IxxAzpOhfg0bmCdtFvCM5v0JEqFxzcM8So5ogabN795BmCDmU0XRGdw
4398	d1mElS0FsABYH2qALQV0FtTBweWhpc2TXJhZOYvDw4FuDB7lFzbJcz80DTPG
4399	DJ2DEVIxs5XUDxEJRKR/WB5tJcW6EFbSZKSwz6ITxZFC16EsXWy1Y6DhmZ87
4400	Ydkk9IFnmKQVIxl9rSxfpNr9H0pxrOo=\
4401	\>"]]
4402	}, Open ]],
4403
4404	Cell[BoxData[
4405	FormBox[
4406	RowBox[{
4407	RowBox[{"FeynArtsGraphics", "(",
4408	RowBox[{
4409	RowBox[{"{",
4410	RowBox[{"\<\"G\"\>", ",", "\<\"b\"\>"}], "}"}], "\[Rule]",
4411	RowBox[{"{",
4412	RowBox[{"\<\"t\"\>", ",", "\<\"W\"\>"}], "}"}]}], ")"}],
4413	"\[InvisibleApplication]",
4414	RowBox[{"(",
4415	TagBox[
4416	RowBox[{"(", "\[NoBreak]", GridBox[{
4417	{
4418	FormBox[
4419	InterpretationBox[
4420
4421	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 G1 N1\"\>",
4422	"\[InvisibleSpace]", "\<\"]\"\>"}],
4423	SequenceForm["[", "T1 G1 N1", "]"],
4424	Editable->False],
4425	TraditionalForm],
4426	FormBox[
4427	InterpretationBox[
4428
4429	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C1 N2\"\>",
4430	"\[InvisibleSpace]", "\<\"]\"\>"}],
4431	SequenceForm["[", "T1 C1 N2", "]"],
4432	Editable->False],
4433	TraditionalForm],
4434	FormBox[
4435	InterpretationBox[
4436
4437	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N3\"\>",
4438	"\[InvisibleSpace]", "\<\"]\"\>"}],
4439	SequenceForm["[", "T1 P1 N3", "]"],
4440	Editable->False],
4441	TraditionalForm]},
4442	{
4443	FormBox[
4444	InterpretationBox[
4445
4446	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 G1 N4\"\>",
4447	"\[InvisibleSpace]", "\<\"]\"\>"}],
4448	SequenceForm["[", "T2 G1 N4", "]"],
4449	Editable->False],
4450	TraditionalForm],
4451	FormBox[
4452	InterpretationBox[
4453
4454	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 C1 N5\"\>",
4455	"\[InvisibleSpace]", "\<\"]\"\>"}],
4456	SequenceForm["[", "T2 C1 N5", "]"],
4457	Editable->False],
4458	TraditionalForm],
4459	FormBox[
4460	InterpretationBox[
4461
4462	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 P1 N6\"\>",
4463	"\[InvisibleSpace]", "\<\"]\"\>"}],
4464	SequenceForm["[", "T2 P1 N6", "]"],
4465	Editable->False],
4466	TraditionalForm]},
4467	{"Null", "Null", "Null"}
4468	},
4469	GridBoxAlignment->{
4470	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
4471	"RowsIndexed" -> {}},
4472	GridBoxSpacings->{"Columns" -> {
4473	Offset[0.27999999999999997`], {
4474	Offset[0.7]},
4475	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
4476	Offset[0.2], {
4477	Offset[0.4]},
4478	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
4479	Function[BoxForm`e$,
4480	MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
4481	CellChangeTimes->{
4482	3.4778063475407^9, 3.4778065254607^9, 3.4778099157272*^9,
4483	3.4778115492682^9, 3.47843686984159^9, 3.478436906375371*^9, {
4484	3.478437853618226^9, 3.478437860811162^9}, 3.479099999826127*^9,
4485	3.479106333796554^9, {3.479546806741183^9, 3.479546812623714*^9},
4486	3.4978620779952097`^9, 3.497862535136364^9, 3.497871415799543*^9,
4487	3.4979424893430643`^9, 3.498391202919662^9, 3.499521753363945*^9,
4488	3.499583162685727^9, 3.499584300111794^9, 3.499584342363058*^9,
4489	3.499585712241136^9, 3.499593685059499^9, 3.499600413060239*^9,
4490	3.499664700901778^9, 3.499665389497528^9, 3.499666631502326*^9,
4491	3.5001872283521233`^9, 3.5001876828878593`^9, 3.500385531152835*^9,
4492	3.5006170941515408`^9, 3.50061989822535^9, 3.500620023903152*^9,
4493	3.500627583254354^9, 3.50071853398035^9}]
4494	}, Open ]],
4495
4496	Cell[CellGroupData[{
4497
4498	Cell[BoxData[
4499	RowBox[{
4500	RowBox[{"Ampl", " ", "=", " ",
4501	RowBox[{"CreateFeynAmp", "[", "INTopo", "]"}]}], ";"}]], "Input",
4502	CellChangeTimes->{{3.4778062370957003`^9, 3.4778062399307003`^9}, {
4503	3.4778115657332^9, 3.4778115658507^9}, {3.4778120221097*^9,
4504	3.4778120222467003`^9}, 3.479547360479462^9, {3.4994965783939333`*^9,
4505	3.4994965820750732`*^9}}],
4506
4507	Cell[CellGroupData[{
4508
4509	Cell[BoxData[
4510	FormBox["\<\"\"\>", TraditionalForm]], "Print",
4511	CellChangeTimes->{3.499584340167673^9, 3.4995847701347446`^9,
4512	3.499585713493058^9, 3.499600447726274^9, 3.499664717688789*^9,
4513	3.499665393986065^9, 3.4996666345650787`^9, 3.5001872300441647`*^9,
4514	3.500187687339259^9, 3.500385535637699^9, 3.500617095235181*^9,
4515	3.500617310599989^9, 3.500617994141314^9, 3.500618295522369*^9,
4516	3.500620025945036^9, 3.500627587306531^9, 3.500718536296962*^9}],
4517
4518	Cell[BoxData[
4519	FormBox[
4520	InterpretationBox[
4521	RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
4522	RowBox[{"{",
4523	RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}],
4524	SequenceForm[
4525	"creating amplitudes at level(s) ", {
4526	Generic, FeynArts`Classes, FeynArts`Particles}],
4527	Editable->False], TraditionalForm]], "Print",
4528	CellChangeTimes->{3.499584340167673^9, 3.4995847701347446`^9,
4529	3.499585713493058^9, 3.499600447726274^9, 3.499664717688789*^9,
4530	3.499665393986065^9, 3.4996666345650787`^9, 3.5001872300441647`*^9,
4531	3.500187687339259^9, 3.500385535637699^9, 3.500617095235181*^9,
4532	3.500617310599989^9, 3.500617994141314^9, 3.500618295522369*^9,
4533	3.500620025945036^9, 3.500627587306531^9, 3.50071853637636*^9}],
4534
4535	Cell[BoxData[
4536	FormBox[
4537	InterpretationBox[
4538	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
4539	"\[InvisibleSpace]", "\<\": \"\>",
4540	"\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \
4541	amplitudes\"\>"}],
4542	SequenceForm[
4543	"> Top. ", 1, ": ", "1 Generic, 1 Classes, 1 Particles amplitudes"],
4544	Editable->False], TraditionalForm]], "Print",
4545	CellChangeTimes->{3.499584340167673^9, 3.4995847701347446`^9,
4546	3.499585713493058^9, 3.499600447726274^9, 3.499664717688789*^9,
4547	3.499665393986065^9, 3.4996666345650787`^9, 3.5001872300441647`*^9,
4548	3.500187687339259^9, 3.500385535637699^9, 3.500617095235181*^9,
4549	3.500617310599989^9, 3.500617994141314^9, 3.500618295522369*^9,
4550	3.500620025945036^9, 3.500627587306531^9, 3.500718537151823*^9}],
4551
4552	Cell[BoxData[
4553	FormBox[
4554	InterpretationBox[
4555	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
4556	"\[InvisibleSpace]", "\<\": \"\>",
4557	"\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \
4558	amplitudes\"\>"}],
4559	SequenceForm[
4560	"> Top. ", 2, ": ", "1 Generic, 1 Classes, 1 Particles amplitudes"],
4561	Editable->False], TraditionalForm]], "Print",
4562	CellChangeTimes->{3.499584340167673^9, 3.4995847701347446`^9,
4563	3.499585713493058^9, 3.499600447726274^9, 3.499664717688789*^9,
4564	3.499665393986065^9, 3.4996666345650787`^9, 3.5001872300441647`*^9,
4565	3.500187687339259^9, 3.500385535637699^9, 3.500617095235181*^9,
4566	3.500617310599989^9, 3.500617994141314^9, 3.500618295522369*^9,
4567	3.500620025945036^9, 3.500627587306531^9, 3.50071853726552*^9}],
4568
4569	Cell[BoxData[
4570	FormBox[
4571	InterpretationBox[
4572	RowBox[{"\<\"in total: \"\>",
4573	"\[InvisibleSpace]", "\<\"2 Generic, 2 Classes, 2 Particles \
4574	amplitudes\"\>"}],
4575	SequenceForm["in total: ", "2 Generic, 2 Classes, 2 Particles amplitudes"],
4576
4577	Editable->False], TraditionalForm]], "Print",
4578	CellChangeTimes->{3.499584340167673^9, 3.4995847701347446`^9,
4579	3.499585713493058^9, 3.499600447726274^9, 3.499664717688789*^9,
4580	3.499665393986065^9, 3.4996666345650787`^9, 3.5001872300441647`*^9,
4581	3.500187687339259^9, 3.500385535637699^9, 3.500617095235181*^9,
4582	3.500617310599989^9, 3.500617994141314^9, 3.500618295522369*^9,
4583	3.500620025945036^9, 3.500627587306531^9, 3.500718537361721*^9}]
4584	}, Open ]]
4585	}, Open ]],
4586
4587	Cell[CellGroupData[{
4588
4589	Cell[BoxData[{
4590	RowBox[{
4591	RowBox[{
4592	"SetDirectory", "[", "\"\</home/degrande/eta/FeynProg/FormCalc-7.0\>\"",
4593	"]"}], ";"}], "\[IndentingNewLine]",
4594	RowBox[{"<<", " ", "FormCalc`"}]}], "Input",
4595	CellChangeTimes->{
4596	3.4777456682883^9, {3.4778119018507^9, 3.4778119054056997`*^9}, {
4597	3.4778119371527^9, 3.4778119527257^9}, {3.478434390853149*^9,
4598	3.478434394596879^9}, {3.498391209209569^9, 3.4983912097170353`*^9}, {
4599	3.500187690209734^9, 3.5001876907943487`^9}, {3.50038553962167*^9,
4600	3.500385540072044^9}, {3.5006171005362043`^9, 3.500617101236773*^9}}],
4601
4602	Cell[CellGroupData[{
4603
4604	Cell[BoxData[
4605	FormBox["\<\"\"\>", TraditionalForm]], "Print",
4606	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
4607	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
4608	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
4609	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
4610	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
4611	3.497942493923506^9, 3.4983912102183523`^9, 3.499521768705014*^9,
4612	3.499583165670874^9, 3.4995847733890743`^9, 3.499585716589773*^9,
4613	3.499600450106303^9, 3.4996647241691923`^9, 3.49966540172666*^9,
4614	3.499666636676647^9, 3.500187232208699^9, 3.500187691217064*^9,
4615	3.500385540427013^9, 3.50061710167595^9, 3.500617543453004*^9,
4616	3.500618000119952^9, 3.5006182994959106`^9, 3.500620027480061*^9,
4617	3.500627590335835^9, 3.50071853842925^9}],
4618
4619	Cell[BoxData[
4620	FormBox["\<\"FormCalc 7.0\"\>", TraditionalForm]], "Print",
4621	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
4622	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
4623	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
4624	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
4625	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
4626	3.497942493923506^9, 3.4983912102183523`^9, 3.499521768705014*^9,
4627	3.499583165670874^9, 3.4995847733890743`^9, 3.499585716589773*^9,
4628	3.499600450106303^9, 3.4996647241691923`^9, 3.49966540172666*^9,
4629	3.499666636676647^9, 3.500187232208699^9, 3.500187691217064*^9,
4630	3.500385540427013^9, 3.50061710167595^9, 3.500617543453004*^9,
4631	3.500618000119952^9, 3.5006182994959106`^9, 3.500620027480061*^9,
4632	3.500627590335835^9, 3.5007185385016823`^9}],
4633
4634	Cell[BoxData[
4635	FormBox["\<\"by Thomas Hahn\"\>", TraditionalForm]], "Print",
4636	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
4637	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
4638	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
4639	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
4640	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
4641	3.497942493923506^9, 3.4983912102183523`^9, 3.499521768705014*^9,
4642	3.499583165670874^9, 3.4995847733890743`^9, 3.499585716589773*^9,
4643	3.499600450106303^9, 3.4996647241691923`^9, 3.49966540172666*^9,
4644	3.499666636676647^9, 3.500187232208699^9, 3.500187691217064*^9,
4645	3.500385540427013^9, 3.50061710167595^9, 3.500617543453004*^9,
4646	3.500618000119952^9, 3.5006182994959106`^9, 3.500620027480061*^9,
4647	3.500627590335835^9, 3.500718538620577^9}],
4648
4649	Cell[BoxData[
4650	FormBox["\<\"last revised 6 Dec 10\"\>", TraditionalForm]], "Print",
4651	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
4652	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
4653	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
4654	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
4655	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
4656	3.497942493923506^9, 3.4983912102183523`^9, 3.499521768705014*^9,
4657	3.499583165670874^9, 3.4995847733890743`^9, 3.499585716589773*^9,
4658	3.499600450106303^9, 3.4996647241691923`^9, 3.49966540172666*^9,
4659	3.499666636676647^9, 3.500187232208699^9, 3.500187691217064*^9,
4660	3.500385540427013^9, 3.50061710167595^9, 3.500617543453004*^9,
4661	3.500618000119952^9, 3.5006182994959106`^9, 3.500620027480061*^9,
4662	3.500627590335835^9, 3.50071853873779^9}]
4663	}, Open ]]
4664	}, Open ]],
4665
4666	Cell[CellGroupData[{
4667
4668	Cell[BoxData[
4669	RowBox[{
4670	RowBox[{"M", "=", " ",
4671	RowBox[{"CalcFeynAmp", "[",
4672	RowBox[{"Ampl", ",",
4673	RowBox[{"FermionChains", "\[Rule]", "Chiral"}], ",",
4674	RowBox[{"Antisymmetrize", "\[Rule]", "False"}]}], "]"}]}],
4675	";"}]], "Input",
4676	CellChangeTimes->{{3.4778119845017^9, 3.4778120345607^9}, {
4677	3.478435376938886^9, 3.478435418868291^9}, 3.479547358194307*^9, {
4678	3.499496616117415^9, 3.499496619479166^9}, {3.500617294078361*^9,
4679	3.500617302768305*^9}}],
4680
4681	Cell[CellGroupData[{
4682
4683	Cell[BoxData[
4684	FormBox["\<\"\"\>", TraditionalForm]], "Print",
4685	CellChangeTimes->{3.499665403396031^9, 3.499666638474655^9,
4686	3.500187234016674^9, 3.50018769518933^9, 3.500385544056026*^9,
4687	3.500617104503936^9, 3.500617315004862^9, 3.500618001893064*^9,
4688	3.500618302145114^9, 3.5006200291050243`^9, 3.500627594025572*^9,
4689	3.500718541335517*^9}],
4690
4691	Cell[BoxData[
4692	FormBox[
4693	InterpretationBox[
4694	RowBox[{"\<\"preparing FORM code in \"\>",
4695	"\[InvisibleSpace]", \
4696	"\<\"/nfs/home/d/degrande/eta/FeynProg/FormCalc-7.0/fc4.frm\"\>"}],
4697	SequenceForm[
4698	"preparing FORM code in ",
4699	"/nfs/home/d/degrande/eta/FeynProg/FormCalc-7.0/fc4.frm"],
4700	Editable->False], TraditionalForm]], "Print",
4701	CellChangeTimes->{3.499665403396031^9, 3.499666638474655^9,
4702	3.500187234016674^9, 3.50018769518933^9, 3.500385544056026*^9,
4703	3.500617104503936^9, 3.500617315004862^9, 3.500618001893064*^9,
4704	3.500618302145114^9, 3.5006200291050243`^9, 3.500627594025572*^9,
4705	3.500718541395986*^9}],
4706
4707	Cell["running FORM... ", "Print",
4708	CellChangeTimes->{3.499665403396031^9, 3.499666638474655^9,
4709	3.500187234016674^9, 3.50018769518933^9, 3.500385544056026*^9,
4710	3.500617104503936^9, 3.500617315004862^9, 3.500618001893064*^9,
4711	3.500618302145114^9, 3.5006200291050243`^9, 3.500627594025572*^9,
4712	3.500718541675099*^9}],
4713
4714	Cell[BoxData[
4715	FormBox["\<\"ok\"\>", TraditionalForm]], "Print",
4716	CellChangeTimes->{3.499665403396031^9, 3.499666638474655^9,
4717	3.500187234016674^9, 3.50018769518933^9, 3.500385544056026*^9,
4718	3.500617104503936^9, 3.500617315004862^9, 3.500618001893064*^9,
4719	3.500618302145114^9, 3.5006200291050243`^9, 3.500627594025572*^9,
4720	3.500718542442258*^9}]
4721	}, Open ]]
4722	}, Open ]],
4723
4724	Cell[CellGroupData[{
4725
4726	Cell[BoxData[
4727	RowBox[{"col", "=",
4728	RowBox[{"ColourME", "[", "M", "]"}]}]], "Input",
4729	CellChangeTimes->{{3.478434696113564^9, 3.478434729084623^9}, {
4730	3.478435197289632^9, 3.478435232835993^9}, {3.478436054623279*^9,
4731	3.478436055525961^9}, {3.499521787338925^9, 3.4995217875817633`*^9}}],
4732
4733	Cell[BoxData[
4734	FormBox[
4735	RowBox[{"{",
4736	RowBox[{
4737	RowBox[{"Mat", "(",
4738	RowBox[{"SUN1", ",", "SUN1"}], ")"}], "\[Rule]", "4"}], "}"}],
4739	TraditionalForm]], "Output",
4740	CellChangeTimes->{
4741	3.478434730426236^9, 3.478435200749498^9, 3.478435233950212*^9,
4742	3.478435426393788^9, 3.478435591077346^9, 3.478435927320691*^9,
4743	3.478436057790335^9, 3.478436928353135^9, 3.479100063362775*^9,
4744	3.479106358816292^9, 3.479546864822269^9, 3.479547348022377*^9,
4745	3.479547714372858^9, 3.497862106256465^9, 3.4978625437919207`*^9,
4746	3.497871428686603^9, 3.497942496752326^9, 3.498391216132546*^9, {
4747	3.4995217752940617`^9, 3.499521788279874^9}, 3.499583168961454*^9,
4748	3.499584777637652^9, 3.4995857253323097`^9, 3.499600453946761*^9,
4749	3.4996647275040703`^9, 3.499665405020383^9, 3.499666640131784*^9,
4750	3.5001872359898577`^9, 3.5001876986530027`^9, 3.500385547281986*^9,
4751	3.500617107597248^9, 3.500617318151655^9, 3.50061800609056*^9,
4752	3.500618304758301^9, 3.5006200310594683`^9, 3.500627597813884*^9,
4753	3.500718543854879*^9}]
4754	}, Open ]],
4755
4756	Cell[CellGroupData[{
4757
4758	Cell[BoxData[{
4759	RowBox[{
4760	RowBox[{"_Hel", "=", "0"}], ";"}], "\[IndentingNewLine]",
4761	RowBox[{
4762	RowBox[{"hel", "=",
4763	RowBox[{"HelicityME", "[", "M", "]"}]}], ";"}]}], "Input",
4764	CellChangeTimes->{{3.478435272631223^9, 3.478435280805309^9}, {
4765	3.478435549596737^9, 3.478435557227066^9}, {3.478436067208497*^9,
4766	3.478436071671449^9}, {3.478436592499899^9, 3.478436607261712*^9},
4767	3.479547354402557^9, {3.499521790978319^9, 3.499521791276463*^9}}],
4768
4769	Cell[CellGroupData[{
4770
4771	Cell[BoxData[
4772	FormBox[
4773	InterpretationBox[
4774	RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "225",
4775	"\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}],
4776	SequenceForm["> ", 225, " helicity matrix elements"],
4777	Editable->False], TraditionalForm]], "Print",
4778	CellChangeTimes->{3.499521791849257^9, 3.4995831697897243`^9,
4779	3.499584780324565^9, 3.499585726563333^9, 3.499600455102046*^9,
4780	3.4996647290314198`^9, 3.4996654063820353`^9, 3.4996666428474894`*^9,
4781	3.50018723722863^9, 3.500187699473218^9, 3.500385551191485*^9,
4782	3.500617109930581^9, 3.500617320123604^9, 3.500618007927311*^9,
4783	3.500618307137023^9, 3.500620031997764^9, 3.500627600851355*^9,
4784	3.5007185451058292`*^9}],
4785
4786	Cell[BoxData[
4787	FormBox["\<\"\"\>", TraditionalForm]], "Print",
4788	CellChangeTimes->{3.499521791849257^9, 3.4995831697897243`^9,
4789	3.499584780324565^9, 3.499585726563333^9, 3.499600455102046*^9,
4790	3.4996647290314198`^9, 3.4996654063820353`^9, 3.4996666428474894`*^9,
4791	3.50018723722863^9, 3.500187699473218^9, 3.500385551191485*^9,
4792	3.500617109930581^9, 3.500617320123604^9, 3.500618007927311*^9,
4793	3.500618307137023^9, 3.500620031997764^9, 3.500627600851355*^9,
4794	3.5007185451955338`*^9}],
4795
4796	Cell[BoxData[
4797	FormBox[
4798	InterpretationBox[
4799	RowBox[{"\<\"preparing FORM code in \"\>",
4800	"\[InvisibleSpace]", \
4801	"\<\"/nfs/home/d/degrande/eta/FeynProg/FormCalc-7.0/fc4.frm\"\>"}],
4802	SequenceForm[
4803	"preparing FORM code in ",
4804	"/nfs/home/d/degrande/eta/FeynProg/FormCalc-7.0/fc4.frm"],
4805	Editable->False], TraditionalForm]], "Print",
4806	CellChangeTimes->{3.499521791849257^9, 3.4995831697897243`^9,
4807	3.499584780324565^9, 3.499585726563333^9, 3.499600455102046*^9,
4808	3.4996647290314198`^9, 3.4996654063820353`^9, 3.4996666428474894`*^9,
4809	3.50018723722863^9, 3.500187699473218^9, 3.500385551191485*^9,
4810	3.500617109930581^9, 3.500617320123604^9, 3.500618007927311*^9,
4811	3.500618307137023^9, 3.500620031997764^9, 3.500627600851355*^9,
4812	3.5007185453584633`*^9}],
4813
4814	Cell["running FORM... ", "Print",
4815	CellChangeTimes->{3.499521791849257^9, 3.4995831697897243`^9,
4816	3.499584780324565^9, 3.499585726563333^9, 3.499600455102046*^9,
4817	3.4996647290314198`^9, 3.4996654063820353`^9, 3.4996666428474894`*^9,
4818	3.50018723722863^9, 3.500187699473218^9, 3.500385551191485*^9,
4819	3.500617109930581^9, 3.500617320123604^9, 3.500618007927311*^9,
4820	3.500618307137023^9, 3.500620031997764^9, 3.500627600851355*^9,
4821	3.5007185455441713`*^9}],
4822
4823	Cell[BoxData[
4824	FormBox["\<\"ok\"\>", TraditionalForm]], "Print",
4825	CellChangeTimes->{3.499521791849257^9, 3.4995831697897243`^9,
4826	3.499584780324565^9, 3.499585726563333^9, 3.499600455102046*^9,
4827	3.4996647290314198`^9, 3.4996654063820353`^9, 3.4996666428474894`*^9,
4828	3.50018723722863^9, 3.500187699473218^9, 3.500385551191485*^9,
4829	3.500617109930581^9, 3.500617320123604^9, 3.500618007927311*^9,
4830	3.500618307137023^9, 3.500620031997764^9, 3.500627600851355*^9,
4831	3.500718546188694*^9}]
4832	}, Open ]]
4833	}, Open ]],
4834
4835	Cell[CellGroupData[{
4836
4837	Cell["CtG", "Section",
4838	CellChangeTimes->{{3.500627469515484^9, 3.500627483217723^9}}],
4839
4840	Cell[BoxData[
4841	RowBox[{
4842	RowBox[{"M2", " ", "=", " ",
4843	RowBox[{
4844	RowBox[{
4845	RowBox[{
4846	RowBox[{
4847	RowBox[{
4848	RowBox[{"SquaredME", "[", "M", "]"}], "/.", "col"}], "/.", "hel"}], "/.",
4849	"M$FACouplings"}], "/.",
4850	RowBox[{"{",
4851	RowBox[{
4852	RowBox[{
4853	RowBox[{"Conjugate", "[", "Lambda", "]"}], "\[Rule]",
4854	RowBox[{"1", "/", "Linv"}]}], ",",
4855	RowBox[{"Lambda", "\[Rule]",
4856	RowBox[{"1", "/", "Linv"}]}]}], "}"}]}], "/.",
4857	RowBox[{"{",
4858	RowBox[{
4859	RowBox[{"C3phiq", "\[Rule]", "0"}], ",",
4860	RowBox[{"CtW", "\[Rule]", "0"}], ",",
4861	RowBox[{
4862	RowBox[{"Conjugate", "[", "v", "]"}], "\[Rule]", "v"}], ",",
4863	RowBox[{
4864	RowBox[{"Conjugate", "[", "sw", "]"}], "\[Rule]", "sw"}]}], "}"}]}]}],
4865	";"}]], "Input",
4866	CellChangeTimes->{{3.499600531002454^9, 3.4996005524542828`^9}, {
4867	3.499600635515656^9, 3.499600641632725^9}, 3.499664804800191*^9,
4868	3.499665470133533^9, {3.499665526806489^9, 3.499665533691248*^9}, {
4869	3.499666501659967^9, 3.499666513416099^9}, {3.500187709292647*^9,
4870	3.500187712600173^9}, 3.500385558768992^9, 3.500617380485931*^9, {
4871	3.5006183149253798`^9, 3.5006183179069633`^9}, {3.5006184825135202`*^9,
4872	3.500618538907811^9}, {3.5006189819188757`^9, 3.500618986819117*^9},
4873	3.5006190655537767`^9, {3.500619108945569^9, 3.500619160312779*^9}, {
4874	3.5006192176593237`^9, 3.500619270466074^9}, 3.500718875932481*^9, {
4875	3.500718992305853^9, 3.500718996428258^9}, {3.500719048513307*^9,
4876	3.500719063627002*^9}}],
4877
4878	Cell[CellGroupData[{
4879
4880	Cell[BoxData["M2"], "Input",
4881	CellChangeTimes->{{3.500718835823985^9, 3.500718836179378^9},
4882	3.500718961787221^9, 3.500719000302812^9}],
4883
4884	Cell[BoxData[
4885	FormBox[
4886	RowBox[{
4887	FractionBox[
4888	RowBox[{
4889	"256", " ", "Alfa", " ", "CKM33", " ", "CtG", " ", "Pair6", " ", "\[Pi]",
4890	" ",
4891	RowBox[{"(",
4892	RowBox[{
4893	RowBox[{
4894	RowBox[{"-",
4895	FractionBox["1", "4"]}], " ",
4896	RowBox[{"(",
4897	RowBox[{"MB2", "-", "S"}], ")"}], " ",
4898	RowBox[{"(",
4899	RowBox[{"MT2", "-", "T"}], ")"}]}], "-",
4900	RowBox[{
4901	FractionBox["1", "2"], " ", "AbbSum22", " ",
4902	RowBox[{"(",
4903	RowBox[{"T", "-", "MT2"}], ")"}]}]}], ")"}], " ",
4904	SuperscriptBox["v", "2"], " ",
4905	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
4906	SuperscriptBox["CtG", "\[Conjugate]"], " ",
4907	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
4908	SuperscriptBox[
4909	RowBox[{"Den", "(",
4910	RowBox[{"T", ",", "MT2"}], ")"}], "2"], " ",
4911	SuperscriptBox["Linv", "4"]}],
4912	SuperscriptBox["sw", "2"]], "+",
4913	RowBox[{
4914	FractionBox["1", "sw"],
4915	RowBox[{"16", " ", "CKM33", " ", "EL", " ", "Pair6", " ",
4916	RowBox[{"(",
4917	RowBox[{
4918	RowBox[{"-",
4919	FractionBox["AbbSum28", "2"]}], "+",
4920	FractionBox[
4921	RowBox[{"AbbSum25", " ", "MB2"}], "2"], "+",
4922	FractionBox[
4923	RowBox[{"AbbSum35", " ", "MT2"}], "4"], "-",
4924	FractionBox[
4925	RowBox[{"AbbSum26", " ", "S"}], "4"], "-",
4926	FractionBox[
4927	RowBox[{"AbbSum20", " ", "T"}], "4"], "-",
4928	FractionBox[
4929	RowBox[{"AbbSum27", " ", "U"}], "4"]}], ")"}], " ", "v", " ",
4930	RowBox[{"(",
4931	RowBox[{
4932	FractionBox[
4933	RowBox[{"2", " ", "CtG", " ", "EL", " ",
4934	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
4935	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"], "-",
4936	FractionBox[
4937	RowBox[{"2", " ", "CtG", " ", "EL", " ",
4938	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
4939	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
4940	SuperscriptBox["CtG", "\[Conjugate]"], " ",
4941	SuperscriptBox[
4942	RowBox[{"Den", "(",
4943	RowBox[{"T", ",", "MT2"}], ")"}], "2"], " ",
4944	SuperscriptBox["Linv", "2"]}]}], "+",
4945	RowBox[{
4946	FractionBox["1", "sw"],
4947	RowBox[{"16", " ", "CKM33", " ", "EL", " ", "Pair6", " ",
4948	RowBox[{"(",
4949	RowBox[{
4950	FractionBox["Eps15", "2"], "+",
4951	FractionBox[
4952	RowBox[{"AbbSum17", " ", "MB2"}], "2"], "-",
4953	RowBox[{
4954	FractionBox["1", "4"], " ", "AbbSum13", " ",
4955	RowBox[{"(",
4956	RowBox[{"S", "-", "MT2"}], ")"}]}], "-",
4957	FractionBox[
4958	RowBox[{"Pair1", " ", "T"}], "4"], "-",
4959	FractionBox[
4960	RowBox[{"Pair4", " ", "U"}], "4"]}], ")"}], " ", "v", " ",
4961	SuperscriptBox["CtG", "\[Conjugate]"], " ",
4962	RowBox[{"(",
4963	RowBox[{
4964	RowBox[{"-",
4965	FractionBox[
4966	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT2", " ", "v", " ",
4967	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
4968	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
4969	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
4970	FractionBox[
4971	RowBox[{"8", " ", "CtG", " ", "EL", " ", "v", " ",
4972	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
4973	RowBox[{"(",
4974	RowBox[{
4975	SuperscriptBox["AbbSum1", "\[Conjugate]"], "-",
4976	FractionBox[
4977	RowBox[{"T", " ",
4978	SuperscriptBox["Pair5", "\[Conjugate]"]}], "2"]}], ")"}], " ",
4979	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
4980	SuperscriptBox[
4981	RowBox[{"Den", "(",
4982	RowBox[{"T", ",", "MT2"}], ")"}], "2"], " ",
4983	SuperscriptBox["Linv", "2"]}]}], "+",
4984	RowBox[{
4985	FractionBox["1", "sw"],
4986	RowBox[{"16", " ", "CtG", " ", "EL", " ",
4987	RowBox[{"(",
4988	RowBox[{
4989	FractionBox["AbbSum103", "2"], "+",
4990	FractionBox[
4991	RowBox[{"AbbSum102", " ", "MB2"}], "2"], "+",
4992	FractionBox[
4993	RowBox[{"AbbSum56", " ", "MT2"}], "4"], "-",
4994	FractionBox[
4995	RowBox[{"AbbSum91", " ", "S"}], "4"], "+",
4996	FractionBox[
4997	RowBox[{"AbbSum59", " ", "T"}], "4"], "-",
4998	FractionBox[
4999	RowBox[{"AbbSum58", " ", "U"}], "4"]}], ")"}], " ", "v", " ",
5000	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5001	RowBox[{"(",
5002	RowBox[{
5003	FractionBox[
5004	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
5005	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5006	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"], "-",
5007	FractionBox[
5008	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
5009	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5010	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5011	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
5012	SuperscriptBox[
5013	RowBox[{"Den", "(",
5014	RowBox[{"T", ",", "MT2"}], ")"}], "2"], " ",
5015	SuperscriptBox["Linv", "2"]}]}], "+",
5016	RowBox[{
5017	FractionBox["1", "sw"],
5018	RowBox[{"16", " ", "CtG", " ", "EL", " ",
5019	RowBox[{"(",
5020	RowBox[{
5021	RowBox[{"-",
5022	FractionBox["Eps11", "2"]}], "+",
5023	FractionBox[
5024	RowBox[{"AbbSum30", " ", "MB2"}], "2"], "-",
5025	RowBox[{
5026	FractionBox["1", "4"], " ", "AbbSum31", " ",
5027	RowBox[{"(",
5028	RowBox[{"S", "-", "MT2"}], ")"}]}], "-",
5029	FractionBox[
5030	RowBox[{"Pair12", " ", "T"}], "4"], "-",
5031	FractionBox[
5032	RowBox[{"Pair11", " ", "U"}], "4"]}], ")"}], " ", "v", " ",
5033	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5034	RowBox[{"(",
5035	RowBox[{
5036	RowBox[{"-",
5037	FractionBox[
5038	RowBox[{"8", " ", "CKM33", " ", "EL", " ",
5039	RowBox[{"(",
5040	RowBox[{"AbbSum1", "-",
5041	FractionBox[
5042	RowBox[{"Pair5", " ", "T"}], "2"]}], ")"}], " ", "v", " ",
5043	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5044	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5045	FractionBox[
5046	RowBox[{
5047	"4", " ", "CKM33", " ", "EL", " ", "MT2", " ", "Pair5", " ", "v", " ",
5048
5049	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5050	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
5051	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
5052	SuperscriptBox[
5053	RowBox[{"Den", "(",
5054	RowBox[{"T", ",", "MT2"}], ")"}], "2"], " ",
5055	SuperscriptBox["Linv", "2"]}]}], "-",
5056	FractionBox[
5057	RowBox[{"64", " ",
5058	SqrtBox["2"], " ", "Alfa", " ", "CKM33", " ", "GS", " ", "Pair6", " ",
5059	"\[Pi]", " ",
5060	RowBox[{"(",
5061	RowBox[{
5062	RowBox[{
5063	FractionBox["1", "4"], " ", "MT", " ", "Pair14", " ",
5064	RowBox[{"(",
5065	RowBox[{"S", "-", "MB2"}], ")"}]}], "-",
5066	FractionBox[
5067	RowBox[{"AbbSum21", " ", "MT"}], "2"]}], ")"}], " ", "v", " ",
5068	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5069	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5070	SuperscriptBox["Pair4", "\[Conjugate]"], " ",
5071	RowBox[{"Den", "(",
5072	RowBox[{"S", ",", "MB2"}], ")"}], " ",
5073	RowBox[{"Den", "(",
5074	RowBox[{"T", ",", "MT2"}], ")"}], " ",
5075	SuperscriptBox["Linv", "2"]}],
5076	SuperscriptBox["sw", "2"]], "-",
5077	FractionBox[
5078	RowBox[{"64", " ",
5079	SqrtBox["2"], " ", "Alfa", " ", "CKM33", " ", "CtG", " ", "GS", " ",
5080	"Pair4", " ", "\[Pi]", " ",
5081	RowBox[{"(",
5082	RowBox[{
5083	RowBox[{
5084	FractionBox["1", "4"], " ", "MT", " ", "Pair10", " ",
5085	RowBox[{"(",
5086	RowBox[{"S", "-", "MB2"}], ")"}]}], "-",
5087	FractionBox[
5088	RowBox[{"AbbSum85", " ", "MT"}], "2"]}], ")"}], " ", "v", " ",
5089	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5090	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
5091	RowBox[{"Den", "(",
5092	RowBox[{"S", ",", "MB2"}], ")"}], " ",
5093	RowBox[{"Den", "(",
5094	RowBox[{"T", ",", "MT2"}], ")"}], " ",
5095	SuperscriptBox["Linv", "2"]}],
5096	SuperscriptBox["sw", "2"]], "+",
5097	FractionBox[
5098	RowBox[{"16", " ", "CtG", " ", "EL", " ",
5099	RowBox[{"(",
5100	RowBox[{
5101	RowBox[{"-",
5102	FractionBox[
5103	RowBox[{"AbbSum22", " ", "MT"}], "2"]}], "-",
5104	RowBox[{
5105	FractionBox["1", "4"], " ",
5106	RowBox[{"(",
5107	RowBox[{"S", "-", "MB2"}], ")"}], " ", "MT"}]}], ")"}], " ", "v",
5108	" ",
5109	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5110	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
5111	RowBox[{"Den", "(",
5112	RowBox[{"T", ",", "MT2"}], ")"}], " ",
5113	RowBox[{"(",
5114	RowBox[{
5115	RowBox[{"-",
5116	FractionBox[
5117	RowBox[{
5118	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair3", " ",
5119
5120	RowBox[{"Den", "(",
5121	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
5122	FractionBox[
5123	RowBox[{
5124	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair6", " ",
5125
5126	RowBox[{"Den", "(",
5127	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}], " ",
5128	SuperscriptBox["Linv", "2"]}], "sw"], "+",
5129	FractionBox[
5130	RowBox[{"16", " ", "CKM33", " ", "EL", " ", "Pair6", " ",
5131	RowBox[{"(",
5132	RowBox[{
5133	RowBox[{"-",
5134	FractionBox[
5135	RowBox[{"AbbSum22", " ", "MT"}], "2"]}], "-",
5136	RowBox[{
5137	FractionBox["1", "4"], " ",
5138	RowBox[{"(",
5139	RowBox[{"S", "-", "MB2"}], ")"}], " ", "MT"}]}], ")"}], " ", "v",
5140	" ",
5141	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5142	RowBox[{"Den", "(",
5143	RowBox[{"T", ",", "MT2"}], ")"}], " ",
5144	RowBox[{"(",
5145	RowBox[{
5146	RowBox[{"-",
5147	FractionBox[
5148	RowBox[{
5149	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5150	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5151	SuperscriptBox["Pair3", "\[Conjugate]"], " ",
5152	RowBox[{"Den", "(",
5153	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
5154	FractionBox[
5155	RowBox[{
5156	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5157	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5158	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
5159	RowBox[{"Den", "(",
5160	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}], " ",
5161	SuperscriptBox["Linv", "2"]}], "sw"], "+",
5162	FractionBox[
5163	RowBox[{
5164	"128", " ", "Alfa", " ", "Alfas", " ", "CKM33", " ", "Pair4", " ",
5165	SuperscriptBox["\[Pi]", "2"], " ",
5166	RowBox[{"(",
5167	RowBox[{
5168	FractionBox["AbbSum80", "2"], "+",
5169	RowBox[{
5170	FractionBox["1", "4"], " ",
5171	RowBox[{"(",
5172	RowBox[{
5173	RowBox[{"-", "MW2"}], "+", "S", "+", "T"}], ")"}]}]}], ")"}], " ",
5174	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5175	SuperscriptBox["Pair4", "\[Conjugate]"], " ",
5176	SuperscriptBox[
5177	RowBox[{"Den", "(",
5178	RowBox[{"S", ",", "MB2"}], ")"}], "2"]}],
5179	SuperscriptBox["sw", "2"]], "+",
5180	RowBox[{"4", " ",
5181	RowBox[{"(",
5182	RowBox[{
5183	RowBox[{"-",
5184	FractionBox[
5185	RowBox[{"AbbSum37", " ", "MT"}], "2"]}], "-",
5186	RowBox[{
5187	FractionBox["1", "4"], " ", "Pair13", " ",
5188	RowBox[{"(",
5189	RowBox[{"S", "-", "MB2"}], ")"}], " ", "MT"}]}], ")"}], " ",
5190	RowBox[{"(",
5191	RowBox[{
5192	FractionBox[
5193	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5194	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5195	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"], "-",
5196	FractionBox[
5197	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5198	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5199	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5200	RowBox[{"(",
5201	RowBox[{
5202	RowBox[{"-",
5203	FractionBox[
5204	RowBox[{
5205	"4", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "Pair5",
5206	" ", "v", " ",
5207	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5208	FractionBox[
5209	RowBox[{
5210	"4", " ", "CKM33", " ", "EL", " ", "MT", " ", "Pair5", " ", "v", " ",
5211	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5212	SuperscriptBox["Linv", "2"]}], "sw"], "-",
5213	FractionBox[
5214	RowBox[{
5215	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair5"}],
5216	"sw"]}], ")"}], " ",
5217	SuperscriptBox[
5218	RowBox[{"Den", "(",
5219	RowBox[{"T", ",", "MT2"}], ")"}], "2"]}], "+",
5220	RowBox[{"4", " ",
5221	RowBox[{"(",
5222	RowBox[{
5223	FractionBox["AbbSum98", "2"], "-",
5224	RowBox[{
5225	FractionBox["1", "4"], " ", "AbbSum54", " ",
5226	RowBox[{"(",
5227	RowBox[{"MW2", "-", "S", "-", "T"}], ")"}]}]}], ")"}], " ",
5228	RowBox[{"(",
5229	RowBox[{
5230	FractionBox[
5231	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5232	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5233	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"], "-",
5234	FractionBox[
5235	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5236	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5237	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5238	RowBox[{"(",
5239	RowBox[{
5240	FractionBox[
5241	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
5242	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5243	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"], "-",
5244	FractionBox[
5245	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
5246	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5247	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5248	SuperscriptBox[
5249	RowBox[{"Den", "(",
5250	RowBox[{"T", ",", "MT2"}], ")"}], "2"]}], "+",
5251	RowBox[{"4", " ",
5252	RowBox[{"(",
5253	RowBox[{
5254	FractionBox["AbbSum79", "2"], "-",
5255	RowBox[{
5256	FractionBox["1", "4"], " ", "Pair13", " ",
5257	RowBox[{"(",
5258	RowBox[{"MW2", "-", "S", "-", "T"}], ")"}]}]}], ")"}], " ",
5259	RowBox[{"(",
5260	RowBox[{
5261	FractionBox[
5262	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5263	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5264	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"], "-",
5265	FractionBox[
5266	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5267	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5268	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5269	RowBox[{"(",
5270	RowBox[{
5271	RowBox[{"-",
5272	FractionBox[
5273	RowBox[{"8", " ", "CKM33", " ", "EL", " ",
5274	RowBox[{"(",
5275	RowBox[{"AbbSum1", "-",
5276	FractionBox[
5277	RowBox[{"Pair5", " ", "T"}], "2"]}], ")"}], " ", "v", " ",
5278	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5279	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5280	FractionBox[
5281	RowBox[{
5282	"4", " ", "CKM33", " ", "EL", " ", "MT2", " ", "Pair5", " ", "v", " ",
5283
5284	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5285	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
5286	SuperscriptBox[
5287	RowBox[{"Den", "(",
5288	RowBox[{"T", ",", "MT2"}], ")"}], "2"]}], "-",
5289	RowBox[{
5290	RowBox[{"(",
5291	RowBox[{"MB2", "-", "S"}], ")"}], " ",
5292	RowBox[{"(",
5293	RowBox[{"MT2", "-", "T"}], ")"}], " ",
5294	RowBox[{"(",
5295	RowBox[{
5296	RowBox[{"-",
5297	FractionBox[
5298	RowBox[{
5299	"4", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "Pair5",
5300	" ", "v", " ",
5301	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5302	FractionBox[
5303	RowBox[{
5304	"4", " ", "CKM33", " ", "EL", " ", "MT", " ", "Pair5", " ", "v", " ",
5305	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5306	SuperscriptBox["Linv", "2"]}], "sw"], "-",
5307	FractionBox[
5308	RowBox[{
5309	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair5"}],
5310	"sw"]}], ")"}], " ",
5311	RowBox[{"(",
5312	RowBox[{
5313	RowBox[{"-",
5314	FractionBox[
5315	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
5316	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5317	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5318	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5319	FractionBox[
5320	RowBox[{"4", " ", "EL", " ", "MT", " ", "v", " ",
5321	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5322	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5323	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5324	SuperscriptBox["Linv", "2"]}], "sw"], "-",
5325	FractionBox[
5326	RowBox[{
5327	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5328	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5329	SuperscriptBox["Pair5", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5330	SuperscriptBox[
5331	RowBox[{"Den", "(",
5332	RowBox[{"T", ",", "MT2"}], ")"}], "2"]}], "+",
5333	RowBox[{"4", " ",
5334	RowBox[{"(",
5335	RowBox[{
5336	RowBox[{"-",
5337	FractionBox[
5338	RowBox[{"AbbSum95", " ", "MT"}], "2"]}], "-",
5339	RowBox[{
5340	FractionBox["1", "4"], " ", "Pair5", " ",
5341	RowBox[{"(",
5342	RowBox[{"S", "-", "MB2"}], ")"}], " ", "MT"}]}], ")"}], " ",
5343	RowBox[{"(",
5344	RowBox[{
5345	FractionBox[
5346	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
5347	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5348	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"], "-",
5349	FractionBox[
5350	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
5351	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5352	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5353	RowBox[{"(",
5354	RowBox[{
5355	RowBox[{"-",
5356	FractionBox[
5357	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
5358	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5359	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5360	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5361	FractionBox[
5362	RowBox[{"4", " ", "EL", " ", "MT", " ", "v", " ",
5363	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5364	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5365	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5366	SuperscriptBox["Linv", "2"]}], "sw"], "-",
5367	FractionBox[
5368	RowBox[{
5369	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5370	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5371	SuperscriptBox["Pair5", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5372	SuperscriptBox[
5373	RowBox[{"Den", "(",
5374	RowBox[{"T", ",", "MT2"}], ")"}], "2"]}], "-",
5375	RowBox[{"MT", " ",
5376	RowBox[{"(",
5377	RowBox[{"S", "-", "MB2"}], ")"}], " ",
5378	RowBox[{"(",
5379	RowBox[{
5380	RowBox[{"-",
5381	FractionBox[
5382	RowBox[{"8", " ", "CKM33", " ", "EL", " ",
5383	RowBox[{"(",
5384	RowBox[{"AbbSum1", "-",
5385	FractionBox[
5386	RowBox[{"Pair5", " ", "T"}], "2"]}], ")"}], " ", "v", " ",
5387	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5388	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5389	FractionBox[
5390	RowBox[{
5391	"4", " ", "CKM33", " ", "EL", " ", "MT2", " ", "Pair5", " ", "v", " ",
5392
5393	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5394	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
5395	RowBox[{"(",
5396	RowBox[{
5397	RowBox[{"-",
5398	FractionBox[
5399	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
5400	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5401	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5402	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5403	FractionBox[
5404	RowBox[{"4", " ", "EL", " ", "MT", " ", "v", " ",
5405	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5406	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5407	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5408	SuperscriptBox["Linv", "2"]}], "sw"], "-",
5409	FractionBox[
5410	RowBox[{
5411	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5412	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5413	SuperscriptBox["Pair5", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5414	SuperscriptBox[
5415	RowBox[{"Den", "(",
5416	RowBox[{"T", ",", "MT2"}], ")"}], "2"]}], "-",
5417	RowBox[{"MT", " ",
5418	RowBox[{"(",
5419	RowBox[{"S", "-", "MB2"}], ")"}], " ",
5420	RowBox[{"(",
5421	RowBox[{
5422	RowBox[{"-",
5423	FractionBox[
5424	RowBox[{
5425	"4", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "Pair5",
5426	" ", "v", " ",
5427	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5428	FractionBox[
5429	RowBox[{
5430	"4", " ", "CKM33", " ", "EL", " ", "MT", " ", "Pair5", " ", "v", " ",
5431	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5432	SuperscriptBox["Linv", "2"]}], "sw"], "-",
5433	FractionBox[
5434	RowBox[{
5435	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair5"}],
5436	"sw"]}], ")"}], " ",
5437	RowBox[{"(",
5438	RowBox[{
5439	RowBox[{"-",
5440	FractionBox[
5441	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT2", " ", "v", " ",
5442	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5443	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5444	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5445	FractionBox[
5446	RowBox[{"8", " ", "CtG", " ", "EL", " ", "v", " ",
5447	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5448	RowBox[{"(",
5449	RowBox[{
5450	SuperscriptBox["AbbSum1", "\[Conjugate]"], "-",
5451	FractionBox[
5452	RowBox[{"T", " ",
5453	SuperscriptBox["Pair5", "\[Conjugate]"]}], "2"]}], ")"}], " ",
5454	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
5455	SuperscriptBox[
5456	RowBox[{"Den", "(",
5457	RowBox[{"T", ",", "MT2"}], ")"}], "2"]}], "+",
5458	RowBox[{"4", " ",
5459	RowBox[{"(",
5460	RowBox[{
5461	FractionBox["AbbSum89", "2"], "-",
5462	RowBox[{
5463	FractionBox["1", "4"], " ", "Pair5", " ",
5464	RowBox[{"(",
5465	RowBox[{"MW2", "-", "S", "-", "T"}], ")"}]}]}], ")"}], " ",
5466	RowBox[{"(",
5467	RowBox[{
5468	FractionBox[
5469	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
5470	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5471	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"], "-",
5472	FractionBox[
5473	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
5474	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5475	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5476	RowBox[{"(",
5477	RowBox[{
5478	RowBox[{"-",
5479	FractionBox[
5480	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT2", " ", "v", " ",
5481	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5482	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5483	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5484	FractionBox[
5485	RowBox[{"8", " ", "CtG", " ", "EL", " ", "v", " ",
5486	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5487	RowBox[{"(",
5488	RowBox[{
5489	SuperscriptBox["AbbSum1", "\[Conjugate]"], "-",
5490	FractionBox[
5491	RowBox[{"T", " ",
5492	SuperscriptBox["Pair5", "\[Conjugate]"]}], "2"]}], ")"}], " ",
5493	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
5494	SuperscriptBox[
5495	RowBox[{"Den", "(",
5496	RowBox[{"T", ",", "MT2"}], ")"}], "2"]}], "+",
5497	RowBox[{
5498	RowBox[{"(",
5499	RowBox[{
5500	RowBox[{"-", "MW2"}], "+", "S", "+", "T"}], ")"}], " ",
5501	RowBox[{"(",
5502	RowBox[{
5503	RowBox[{"-",
5504	FractionBox[
5505	RowBox[{"8", " ", "CKM33", " ", "EL", " ",
5506	RowBox[{"(",
5507	RowBox[{"AbbSum1", "-",
5508	FractionBox[
5509	RowBox[{"Pair5", " ", "T"}], "2"]}], ")"}], " ", "v", " ",
5510	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5511	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5512	FractionBox[
5513	RowBox[{
5514	"4", " ", "CKM33", " ", "EL", " ", "MT2", " ", "Pair5", " ", "v", " ",
5515
5516	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5517	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
5518	RowBox[{"(",
5519	RowBox[{
5520	RowBox[{"-",
5521	FractionBox[
5522	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT2", " ", "v", " ",
5523	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5524	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5525	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5526	FractionBox[
5527	RowBox[{"8", " ", "CtG", " ", "EL", " ", "v", " ",
5528	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5529	RowBox[{"(",
5530	RowBox[{
5531	SuperscriptBox["AbbSum1", "\[Conjugate]"], "-",
5532	FractionBox[
5533	RowBox[{"T", " ",
5534	SuperscriptBox["Pair5", "\[Conjugate]"]}], "2"]}], ")"}], " ",
5535	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
5536	SuperscriptBox[
5537	RowBox[{"Den", "(",
5538	RowBox[{"T", ",", "MT2"}], ")"}], "2"]}], "+",
5539	FractionBox[
5540	RowBox[{"2", " ",
5541	SqrtBox["2"], " ", "AbbSum84", " ", "CKM33", " ", "EL", " ", "GS", " ",
5542	"MT", " ", "Pair4", " ",
5543	RowBox[{"(",
5544	RowBox[{
5545	FractionBox[
5546	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5547	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5548	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"], "-",
5549	FractionBox[
5550	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5551	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5552	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5553	RowBox[{"Den", "(",
5554	RowBox[{"S", ",", "MB2"}], ")"}], " ",
5555	RowBox[{"Den", "(",
5556	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"], "-",
5557	RowBox[{
5558	FractionBox["1", "sw"],
5559	RowBox[{"4", " ",
5560	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5561	RowBox[{"(",
5562	RowBox[{
5563	FractionBox["Eps25", "2"], "+",
5564	RowBox[{
5565	FractionBox["1", "4"], " ", "Pair8", " ",
5566	RowBox[{"(",
5567	RowBox[{"S", "-", "MB2"}], ")"}]}], "-",
5568	RowBox[{
5569	FractionBox["1", "4"], " ", "Pair9", " ",
5570	RowBox[{"(",
5571	RowBox[{"T", "-", "MT2"}], ")"}]}]}], ")"}], " ",
5572	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5573	RowBox[{"(",
5574	RowBox[{
5575	RowBox[{"-",
5576	FractionBox[
5577	RowBox[{
5578	"4", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "Pair5",
5579	" ", "v", " ",
5580	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5581	FractionBox[
5582	RowBox[{
5583	"4", " ", "CKM33", " ", "EL", " ", "MT", " ", "Pair5", " ", "v", " ",
5584
5585	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5586	SuperscriptBox["Linv", "2"]}], "sw"], "-",
5587	FractionBox[
5588	RowBox[{
5589	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair5"}],
5590	"sw"]}], ")"}], " ",
5591	SuperscriptBox["Pair4", "\[Conjugate]"], " ",
5592	RowBox[{"Den", "(",
5593	RowBox[{"S", ",", "MB2"}], ")"}], " ",
5594	RowBox[{"Den", "(",
5595	RowBox[{"T", ",", "MT2"}], ")"}]}]}], "+",
5596	FractionBox[
5597	RowBox[{"2", " ",
5598	SqrtBox["2"], " ", "AbbSum93", " ", "EL", " ", "GS", " ", "MT", " ",
5599	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5600	RowBox[{"(",
5601	RowBox[{
5602	FractionBox[
5603	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
5604	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5605	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"], "-",
5606	FractionBox[
5607	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
5608	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5609	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5610	SuperscriptBox["Pair4", "\[Conjugate]"], " ",
5611	RowBox[{"Den", "(",
5612	RowBox[{"S", ",", "MB2"}], ")"}], " ",
5613	RowBox[{"Den", "(",
5614	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"], "+",
5615	FractionBox[
5616	RowBox[{"2", " ",
5617	SqrtBox["2"], " ", "EL", " ", "GS", " ", "MT", " ", "Pair9", " ",
5618	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5619	RowBox[{"(",
5620	RowBox[{
5621	RowBox[{"-",
5622	FractionBox[
5623	RowBox[{"8", " ", "CKM33", " ", "EL", " ",
5624	RowBox[{"(",
5625	RowBox[{"AbbSum1", "-",
5626	FractionBox[
5627	RowBox[{"Pair5", " ", "T"}], "2"]}], ")"}], " ", "v", " ",
5628	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5629	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5630	FractionBox[
5631	RowBox[{
5632	"4", " ", "CKM33", " ", "EL", " ", "MT2", " ", "Pair5", " ", "v", " ",
5633
5634	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5635	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
5636	SuperscriptBox["Pair4", "\[Conjugate]"], " ",
5637	RowBox[{"Den", "(",
5638	RowBox[{"S", ",", "MB2"}], ")"}], " ",
5639	RowBox[{"Den", "(",
5640	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"], "-",
5641	RowBox[{
5642	FractionBox["1", "sw"],
5643	RowBox[{"4", " ",
5644	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair4", " ",
5645	RowBox[{"(",
5646	RowBox[{
5647	RowBox[{"-",
5648	FractionBox["Eps3", "2"]}], "+",
5649	RowBox[{
5650	FractionBox["1", "4"], " ", "Pair6", " ",
5651	RowBox[{"(",
5652	RowBox[{"S", "-", "MB2"}], ")"}]}], "-",
5653	RowBox[{
5654	FractionBox["1", "4"], " ", "Pair3", " ",
5655	RowBox[{"(",
5656	RowBox[{"T", "-", "MT2"}], ")"}]}]}], ")"}], " ",
5657	RowBox[{"(",
5658	RowBox[{
5659	RowBox[{"-",
5660	FractionBox[
5661	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
5662	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5663	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5664	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5665	FractionBox[
5666	RowBox[{"4", " ", "EL", " ", "MT", " ", "v", " ",
5667	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5668	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5669	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5670	SuperscriptBox["Linv", "2"]}], "sw"], "-",
5671	FractionBox[
5672	RowBox[{
5673	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5674	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5675	SuperscriptBox["Pair5", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5676	RowBox[{"Den", "(",
5677	RowBox[{"S", ",", "MB2"}], ")"}], " ",
5678	RowBox[{"Den", "(",
5679	RowBox[{"T", ",", "MT2"}], ")"}]}]}], "+",
5680	FractionBox[
5681	RowBox[{"2", " ",
5682	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "MT", " ",
5683	"Pair3", " ", "Pair4", " ",
5684	RowBox[{"(",
5685	RowBox[{
5686	RowBox[{"-",
5687	FractionBox[
5688	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT2", " ", "v", " ",
5689	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5690	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5691	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5692	FractionBox[
5693	RowBox[{"8", " ", "CtG", " ", "EL", " ", "v", " ",
5694	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5695	RowBox[{"(",
5696	RowBox[{
5697	SuperscriptBox["AbbSum1", "\[Conjugate]"], "-",
5698	FractionBox[
5699	RowBox[{"T", " ",
5700	SuperscriptBox["Pair5", "\[Conjugate]"]}], "2"]}], ")"}], " ",
5701	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
5702	RowBox[{"Den", "(",
5703	RowBox[{"S", ",", "MB2"}], ")"}], " ",
5704	RowBox[{"Den", "(",
5705	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"], "-",
5706	FractionBox[
5707	RowBox[{"4", " ",
5708	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5709	RowBox[{"(",
5710	RowBox[{
5711	FractionBox["AbbSum14", "2"], "+",
5712	RowBox[{
5713	FractionBox["1", "4"], " ", "Pair14", " ",
5714	RowBox[{"(",
5715	RowBox[{"MW2", "-", "S", "-", "T"}], ")"}]}]}], ")"}], " ",
5716	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5717	SuperscriptBox["Pair4", "\[Conjugate]"], " ",
5718	RowBox[{"Den", "(",
5719	RowBox[{"S", ",", "MB2"}], ")"}], " ",
5720	RowBox[{"(",
5721	RowBox[{
5722	RowBox[{"-",
5723	FractionBox[
5724	RowBox[{
5725	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair3", " ",
5726
5727	RowBox[{"Den", "(",
5728	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
5729	FractionBox[
5730	RowBox[{
5731	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair6", " ",
5732
5733	RowBox[{"Den", "(",
5734	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}]}], "sw"], "-",
5735	RowBox[{"2", " ", "AbbSum20", " ", "MT", " ",
5736	RowBox[{"(",
5737	RowBox[{
5738	FractionBox[
5739	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5740	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5741	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"], "-",
5742	FractionBox[
5743	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5744	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5745	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5746	RowBox[{"Den", "(",
5747	RowBox[{"T", ",", "MT2"}], ")"}], " ",
5748	RowBox[{"(",
5749	RowBox[{
5750	RowBox[{"-",
5751	FractionBox[
5752	RowBox[{
5753	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair3", " ",
5754
5755	RowBox[{"Den", "(",
5756	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
5757	FractionBox[
5758	RowBox[{
5759	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair6", " ",
5760	RowBox[{"Den", "(",
5761	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}]}], "+",
5762	RowBox[{"4", " ",
5763	RowBox[{"(",
5764	RowBox[{
5765	RowBox[{"-",
5766	FractionBox["Eps15", "2"]}], "-",
5767	FractionBox[
5768	RowBox[{"AbbSum17", " ", "MB2"}], "2"], "-",
5769	FractionBox[
5770	RowBox[{"AbbSum16", " ", "MT2"}], "4"], "+",
5771	FractionBox[
5772	RowBox[{"AbbSum13", " ", "S"}], "4"], "-",
5773	FractionBox[
5774	RowBox[{"Pair1", " ", "T"}], "4"], "+",
5775	FractionBox[
5776	RowBox[{"Pair4", " ", "U"}], "4"]}], ")"}], " ",
5777	RowBox[{"(",
5778	RowBox[{
5779	RowBox[{"-",
5780	FractionBox[
5781	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
5782	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5783	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5784	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5785	FractionBox[
5786	RowBox[{"4", " ", "EL", " ", "MT", " ", "v", " ",
5787	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5788	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5789	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5790	SuperscriptBox["Linv", "2"]}], "sw"], "-",
5791	FractionBox[
5792	RowBox[{
5793	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5794	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5795	SuperscriptBox["Pair5", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5796	RowBox[{"Den", "(",
5797	RowBox[{"T", ",", "MT2"}], ")"}], " ",
5798	RowBox[{"(",
5799	RowBox[{
5800	RowBox[{"-",
5801	FractionBox[
5802	RowBox[{
5803	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair3", " ",
5804
5805	RowBox[{"Den", "(",
5806	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
5807	FractionBox[
5808	RowBox[{
5809	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair6", " ",
5810	RowBox[{"Den", "(",
5811	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}]}], "-",
5812	RowBox[{"2", " ", "MT", " ", "Pair1", " ",
5813	RowBox[{"(",
5814	RowBox[{
5815	RowBox[{"-",
5816	FractionBox[
5817	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT2", " ", "v", " ",
5818	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5819	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5820	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5821	FractionBox[
5822	RowBox[{"8", " ", "CtG", " ", "EL", " ", "v", " ",
5823	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5824	RowBox[{"(",
5825	RowBox[{
5826	SuperscriptBox["AbbSum1", "\[Conjugate]"], "-",
5827	FractionBox[
5828	RowBox[{"T", " ",
5829	SuperscriptBox["Pair5", "\[Conjugate]"]}], "2"]}], ")"}], " ",
5830	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
5831	RowBox[{"Den", "(",
5832	RowBox[{"T", ",", "MT2"}], ")"}], " ",
5833	RowBox[{"(",
5834	RowBox[{
5835	RowBox[{"-",
5836	FractionBox[
5837	RowBox[{
5838	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair3", " ",
5839
5840	RowBox[{"Den", "(",
5841	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
5842	FractionBox[
5843	RowBox[{
5844	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair6", " ",
5845	RowBox[{"Den", "(",
5846	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}]}], "-",
5847	RowBox[{
5848	FractionBox["1", "sw"],
5849	RowBox[{"4", " ",
5850	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5851	RowBox[{"(",
5852	RowBox[{
5853	FractionBox["AbbSum109", "2"], "-",
5854	FractionBox[
5855	RowBox[{"AbbSum108", " ", "MB2"}], "4"], "+",
5856	FractionBox[
5857	RowBox[{"AbbSum107", " ", "MT2"}], "4"], "+",
5858	FractionBox[
5859	RowBox[{"AbbSum69", " ", "S"}], "4"], "-",
5860	FractionBox[
5861	RowBox[{"AbbSum67", " ", "T"}], "4"], "-",
5862	FractionBox[
5863	RowBox[{"AbbSum106", " ", "U"}], "4"]}], ")"}], " ",
5864	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5865	SuperscriptBox["Pair4", "\[Conjugate]"], " ",
5866	RowBox[{"Den", "(",
5867	RowBox[{"S", ",", "MB2"}], ")"}], " ",
5868	RowBox[{"(",
5869	RowBox[{
5870	FractionBox[
5871	RowBox[{"CKM33", " ", "EL", " ", "GS", " ",
5872	RowBox[{"Den", "(",
5873	RowBox[{"S", ",", "MB2"}], ")"}]}],
5874	RowBox[{
5875	SqrtBox["2"], " ", "sw"}]], "+",
5876	RowBox[{
5877	RowBox[{"(",
5878	RowBox[{
5879	FractionBox[
5880	RowBox[{
5881	"2", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
5882
5883	SuperscriptBox["Linv", "2"]}], "sw"], "+",
5884	FractionBox[
5885	RowBox[{"2", " ", "CKM33", " ", "EL", " ", "MT", " ", "v", " ",
5886	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5887	SuperscriptBox["Linv", "2"]}], "sw"], "+",
5888	FractionBox[
5889	RowBox[{"CKM33", " ", "EL", " ", "GS"}],
5890	RowBox[{
5891	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
5892	RowBox[{"Den", "(",
5893	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}]}]}], "+",
5894	RowBox[{"4", " ",
5895	RowBox[{"(",
5896	RowBox[{
5897	RowBox[{"-",
5898	FractionBox[
5899	RowBox[{"AbbSum105", " ", "MT"}], "2"]}], "-",
5900	RowBox[{
5901	FractionBox["1", "4"], " ", "AbbSum54", " ",
5902	RowBox[{"(",
5903	RowBox[{"S", "-", "MB2"}], ")"}], " ", "MT"}]}], ")"}], " ",
5904	RowBox[{"(",
5905	RowBox[{
5906	FractionBox[
5907	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5908	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
5909	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"], "-",
5910	FractionBox[
5911	RowBox[{"2", " ", "CtG", " ", "EL", " ",
5912	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
5913	SuperscriptBox["CKM33", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5914	RowBox[{"Den", "(",
5915	RowBox[{"T", ",", "MT2"}], ")"}], " ",
5916	RowBox[{"(",
5917	RowBox[{
5918	FractionBox[
5919	RowBox[{"CKM33", " ", "EL", " ", "GS", " ",
5920	RowBox[{"Den", "(",
5921	RowBox[{"S", ",", "MB2"}], ")"}]}],
5922	RowBox[{
5923	SqrtBox["2"], " ", "sw"}]], "+",
5924	RowBox[{
5925	RowBox[{"(",
5926	RowBox[{
5927	FractionBox[
5928	RowBox[{
5929	"2", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
5930
5931	SuperscriptBox["Linv", "2"]}], "sw"], "+",
5932	FractionBox[
5933	RowBox[{"2", " ", "CKM33", " ", "EL", " ", "MT", " ", "v", " ",
5934	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5935	SuperscriptBox["Linv", "2"]}], "sw"], "+",
5936	FractionBox[
5937	RowBox[{"CKM33", " ", "EL", " ", "GS"}],
5938	RowBox[{
5939	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
5940	RowBox[{"Den", "(",
5941	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}]}], "+",
5942	RowBox[{"4", " ",
5943	RowBox[{"(",
5944	RowBox[{
5945	RowBox[{
5946	RowBox[{"-",
5947	FractionBox["1", "4"]}], " ", "Pair5", " ",
5948	RowBox[{"(",
5949	RowBox[{"MB2", "-", "S"}], ")"}], " ",
5950	RowBox[{"(",
5951	RowBox[{"MT2", "-", "T"}], ")"}]}], "-",
5952	RowBox[{
5953	FractionBox["1", "2"], " ", "AbbSum95", " ",
5954	RowBox[{"(",
5955	RowBox[{"T", "-", "MT2"}], ")"}]}]}], ")"}], " ",
5956	RowBox[{"(",
5957	RowBox[{
5958	RowBox[{"-",
5959	FractionBox[
5960	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
5961	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5962	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5963	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
5964	FractionBox[
5965	RowBox[{"4", " ", "EL", " ", "MT", " ", "v", " ",
5966	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5967	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5968	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
5969	SuperscriptBox["Linv", "2"]}], "sw"], "-",
5970	FractionBox[
5971	RowBox[{
5972	SqrtBox["2"], " ", "EL", " ", "GS", " ",
5973	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
5974	SuperscriptBox["Pair5", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
5975	RowBox[{"Den", "(",
5976	RowBox[{"T", ",", "MT2"}], ")"}], " ",
5977	RowBox[{"(",
5978	RowBox[{
5979	FractionBox[
5980	RowBox[{"CKM33", " ", "EL", " ", "GS", " ",
5981	RowBox[{"Den", "(",
5982	RowBox[{"S", ",", "MB2"}], ")"}]}],
5983	RowBox[{
5984	SqrtBox["2"], " ", "sw"}]], "+",
5985	RowBox[{
5986	RowBox[{"(",
5987	RowBox[{
5988	FractionBox[
5989	RowBox[{
5990	"2", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
5991
5992	SuperscriptBox["Linv", "2"]}], "sw"], "+",
5993	FractionBox[
5994	RowBox[{"2", " ", "CKM33", " ", "EL", " ", "MT", " ", "v", " ",
5995	SuperscriptBox["CtG", "\[Conjugate]"], " ",
5996	SuperscriptBox["Linv", "2"]}], "sw"], "+",
5997	FractionBox[
5998	RowBox[{"CKM33", " ", "EL", " ", "GS"}],
5999	RowBox[{
6000	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
6001	RowBox[{"Den", "(",
6002	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}]}], "+",
6003	RowBox[{"4", " ",
6004	RowBox[{"(",
6005	RowBox[{
6006	RowBox[{"-",
6007	FractionBox[
6008	RowBox[{"AbbSum95", " ", "MT"}], "2"]}], "-",
6009	RowBox[{
6010	FractionBox["1", "4"], " ", "Pair5", " ",
6011	RowBox[{"(",
6012	RowBox[{"S", "-", "MB2"}], ")"}], " ", "MT"}]}], ")"}], " ",
6013	RowBox[{"(",
6014	RowBox[{
6015	RowBox[{"-",
6016	FractionBox[
6017	RowBox[{"4", " ", "CtG", " ", "EL", " ", "MT2", " ", "v", " ",
6018	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6019	SuperscriptBox["Pair5", "\[Conjugate]"], " ",
6020	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
6021	FractionBox[
6022	RowBox[{"8", " ", "CtG", " ", "EL", " ", "v", " ",
6023	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6024	RowBox[{"(",
6025	RowBox[{
6026	SuperscriptBox["AbbSum1", "\[Conjugate]"], "-",
6027	FractionBox[
6028	RowBox[{"T", " ",
6029	SuperscriptBox["Pair5", "\[Conjugate]"]}], "2"]}], ")"}], " ",
6030	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
6031	RowBox[{"Den", "(",
6032	RowBox[{"T", ",", "MT2"}], ")"}], " ",
6033	RowBox[{"(",
6034	RowBox[{
6035	FractionBox[
6036	RowBox[{"CKM33", " ", "EL", " ", "GS", " ",
6037	RowBox[{"Den", "(",
6038	RowBox[{"S", ",", "MB2"}], ")"}]}],
6039	RowBox[{
6040	SqrtBox["2"], " ", "sw"}]], "+",
6041	RowBox[{
6042	RowBox[{"(",
6043	RowBox[{
6044	FractionBox[
6045	RowBox[{
6046	"2", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
6047
6048	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6049	FractionBox[
6050	RowBox[{"2", " ", "CKM33", " ", "EL", " ", "MT", " ", "v", " ",
6051	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6052	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6053	FractionBox[
6054	RowBox[{"CKM33", " ", "EL", " ", "GS"}],
6055	RowBox[{
6056	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
6057	RowBox[{"Den", "(",
6058	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}]}], "-",
6059	RowBox[{
6060	FractionBox["1", "sw"],
6061	RowBox[{"4", " ",
6062	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair4", " ",
6063	RowBox[{"(",
6064	RowBox[{
6065	FractionBox["AbbSum88", "2"], "+",
6066	FractionBox[
6067	RowBox[{"AbbSum10", " ", "MB2"}], "4"], "+",
6068	FractionBox[
6069	RowBox[{"AbbSum87", " ", "MT2"}], "4"], "-",
6070	FractionBox[
6071	RowBox[{"AbbSum9", " ", "S"}], "4"], "-",
6072	FractionBox[
6073	RowBox[{"AbbSum84", " ", "T"}], "4"], "-",
6074	FractionBox[
6075	RowBox[{"Pair11", " ", "U"}], "4"]}], ")"}], " ",
6076	RowBox[{"Den", "(",
6077	RowBox[{"S", ",", "MB2"}], ")"}], " ",
6078	RowBox[{"(",
6079	RowBox[{
6080	FractionBox[
6081	RowBox[{"EL", " ", "GS", " ",
6082	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6083	RowBox[{"Den", "(",
6084	RowBox[{"S", ",", "MB2"}], ")"}]}],
6085	RowBox[{
6086	SqrtBox["2"], " ", "sw"}]], "+",
6087	RowBox[{
6088	RowBox[{"(",
6089	RowBox[{
6090	FractionBox[
6091	RowBox[{"2", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
6092	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6093	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6094	FractionBox[
6095	RowBox[{"2", " ", "EL", " ", "MT", " ", "v", " ",
6096	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6097	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6098	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6099	FractionBox[
6100	RowBox[{"EL", " ", "GS", " ",
6101	SuperscriptBox["CKM33", "\[Conjugate]"]}],
6102	RowBox[{
6103	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
6104	RowBox[{"Den", "(",
6105	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}]}]}], "+",
6106	RowBox[{"4", " ",
6107	RowBox[{"(",
6108	RowBox[{
6109	RowBox[{
6110	RowBox[{"-",
6111	FractionBox["1", "4"]}], " ", "Pair13", " ",
6112	RowBox[{"(",
6113	RowBox[{"MB2", "-", "S"}], ")"}], " ",
6114	RowBox[{"(",
6115	RowBox[{"MT2", "-", "T"}], ")"}]}], "-",
6116	RowBox[{
6117	FractionBox["1", "2"], " ", "AbbSum37", " ",
6118	RowBox[{"(",
6119	RowBox[{"T", "-", "MT2"}], ")"}]}]}], ")"}], " ",
6120	RowBox[{"(",
6121	RowBox[{
6122	RowBox[{"-",
6123	FractionBox[
6124	RowBox[{
6125	"4", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "Pair5",
6126	" ", "v", " ",
6127	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
6128	FractionBox[
6129	RowBox[{
6130	"4", " ", "CKM33", " ", "EL", " ", "MT", " ", "Pair5", " ", "v", " ",
6131	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6132	SuperscriptBox["Linv", "2"]}], "sw"], "-",
6133	FractionBox[
6134	RowBox[{
6135	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair5"}],
6136	"sw"]}], ")"}], " ",
6137	RowBox[{"Den", "(",
6138	RowBox[{"T", ",", "MT2"}], ")"}], " ",
6139	RowBox[{"(",
6140	RowBox[{
6141	FractionBox[
6142	RowBox[{"EL", " ", "GS", " ",
6143	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6144	RowBox[{"Den", "(",
6145	RowBox[{"S", ",", "MB2"}], ")"}]}],
6146	RowBox[{
6147	SqrtBox["2"], " ", "sw"}]], "+",
6148	RowBox[{
6149	RowBox[{"(",
6150	RowBox[{
6151	FractionBox[
6152	RowBox[{"2", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
6153	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6154	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6155	FractionBox[
6156	RowBox[{"2", " ", "EL", " ", "MT", " ", "v", " ",
6157	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6158	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6159	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6160	FractionBox[
6161	RowBox[{"EL", " ", "GS", " ",
6162	SuperscriptBox["CKM33", "\[Conjugate]"]}],
6163	RowBox[{
6164	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
6165	RowBox[{"Den", "(",
6166	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}]}], "+",
6167	RowBox[{"4", " ",
6168	RowBox[{"(",
6169	RowBox[{
6170	RowBox[{"-",
6171	FractionBox[
6172	RowBox[{"AbbSum105", " ", "MT"}], "2"]}], "-",
6173	RowBox[{
6174	FractionBox["1", "4"], " ", "AbbSum54", " ",
6175	RowBox[{"(",
6176	RowBox[{"S", "-", "MB2"}], ")"}], " ", "MT"}]}], ")"}], " ",
6177	RowBox[{"(",
6178	RowBox[{
6179	FractionBox[
6180	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
6181	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
6182	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"], "-",
6183	FractionBox[
6184	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
6185	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
6186	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
6187	RowBox[{"Den", "(",
6188	RowBox[{"T", ",", "MT2"}], ")"}], " ",
6189	RowBox[{"(",
6190	RowBox[{
6191	FractionBox[
6192	RowBox[{"EL", " ", "GS", " ",
6193	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6194	RowBox[{"Den", "(",
6195	RowBox[{"S", ",", "MB2"}], ")"}]}],
6196	RowBox[{
6197	SqrtBox["2"], " ", "sw"}]], "+",
6198	RowBox[{
6199	RowBox[{"(",
6200	RowBox[{
6201	FractionBox[
6202	RowBox[{"2", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
6203	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6204	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6205	FractionBox[
6206	RowBox[{"2", " ", "EL", " ", "MT", " ", "v", " ",
6207	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6208	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6209	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6210	FractionBox[
6211	RowBox[{"EL", " ", "GS", " ",
6212	SuperscriptBox["CKM33", "\[Conjugate]"]}],
6213	RowBox[{
6214	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
6215	RowBox[{"Den", "(",
6216	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}]}], "+",
6217	RowBox[{"4", " ",
6218	RowBox[{"(",
6219	RowBox[{
6220	RowBox[{"-",
6221	FractionBox[
6222	RowBox[{"AbbSum37", " ", "MT"}], "2"]}], "-",
6223	RowBox[{
6224	FractionBox["1", "4"], " ", "Pair13", " ",
6225	RowBox[{"(",
6226	RowBox[{"S", "-", "MB2"}], ")"}], " ", "MT"}]}], ")"}], " ",
6227	RowBox[{"(",
6228	RowBox[{
6229	RowBox[{"-",
6230	FractionBox[
6231	RowBox[{"8", " ", "CKM33", " ", "EL", " ",
6232	RowBox[{"(",
6233	RowBox[{"AbbSum1", "-",
6234	FractionBox[
6235	RowBox[{"Pair5", " ", "T"}], "2"]}], ")"}], " ", "v", " ",
6236	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6237	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
6238	FractionBox[
6239	RowBox[{
6240	"4", " ", "CKM33", " ", "EL", " ", "MT2", " ", "Pair5", " ", "v", " ",
6241
6242	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6243	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
6244	RowBox[{"Den", "(",
6245	RowBox[{"T", ",", "MT2"}], ")"}], " ",
6246	RowBox[{"(",
6247	RowBox[{
6248	FractionBox[
6249	RowBox[{"EL", " ", "GS", " ",
6250	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6251	RowBox[{"Den", "(",
6252	RowBox[{"S", ",", "MB2"}], ")"}]}],
6253	RowBox[{
6254	SqrtBox["2"], " ", "sw"}]], "+",
6255	RowBox[{
6256	RowBox[{"(",
6257	RowBox[{
6258	FractionBox[
6259	RowBox[{"2", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
6260	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6261	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6262	FractionBox[
6263	RowBox[{"2", " ", "EL", " ", "MT", " ", "v", " ",
6264	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6265	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6266	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6267	FractionBox[
6268	RowBox[{"EL", " ", "GS", " ",
6269	SuperscriptBox["CKM33", "\[Conjugate]"]}],
6270	RowBox[{
6271	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
6272	RowBox[{"Den", "(",
6273	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}]}], "+",
6274	RowBox[{"4", " ",
6275	RowBox[{"(",
6276	RowBox[{
6277	FractionBox["AbbSum28", "2"], "-",
6278	FractionBox[
6279	RowBox[{"AbbSum25", " ", "MB2"}], "2"], "-",
6280	FractionBox[
6281	RowBox[{"AbbSum24", " ", "MT2"}], "4"], "+",
6282	FractionBox[
6283	RowBox[{"AbbSum26", " ", "S"}], "4"], "-",
6284	FractionBox[
6285	RowBox[{"AbbSum20", " ", "T"}], "4"], "+",
6286	FractionBox[
6287	RowBox[{"AbbSum27", " ", "U"}], "4"]}], ")"}], " ",
6288	RowBox[{"(",
6289	RowBox[{
6290	RowBox[{"-",
6291	FractionBox[
6292	RowBox[{
6293	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair3", " ",
6294
6295	RowBox[{"Den", "(",
6296	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
6297	FractionBox[
6298	RowBox[{
6299	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair6", " ",
6300	RowBox[{"Den", "(",
6301	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}], " ",
6302	RowBox[{"(",
6303	RowBox[{
6304	FractionBox[
6305	RowBox[{"EL", " ", "GS", " ",
6306	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6307	RowBox[{"Den", "(",
6308	RowBox[{"S", ",", "MB2"}], ")"}]}],
6309	RowBox[{
6310	SqrtBox["2"], " ", "sw"}]], "+",
6311	RowBox[{
6312	RowBox[{"(",
6313	RowBox[{
6314	FractionBox[
6315	RowBox[{"2", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
6316	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6317	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6318	FractionBox[
6319	RowBox[{"2", " ", "EL", " ", "MT", " ", "v", " ",
6320	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6321	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6322	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6323	FractionBox[
6324	RowBox[{"EL", " ", "GS", " ",
6325	SuperscriptBox["CKM33", "\[Conjugate]"]}],
6326	RowBox[{
6327	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
6328	RowBox[{"Den", "(",
6329	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}]}], "+",
6330	RowBox[{"4", " ",
6331	RowBox[{"(",
6332	RowBox[{
6333	RowBox[{
6334	RowBox[{"-",
6335	FractionBox["1", "4"]}], " ", "AbbSum54", " ",
6336	RowBox[{"(",
6337	RowBox[{"MB2", "-", "S"}], ")"}], " ",
6338	RowBox[{"(",
6339	RowBox[{"MT2", "-", "T"}], ")"}]}], "-",
6340	RowBox[{
6341	FractionBox["1", "2"], " ", "AbbSum105", " ",
6342	RowBox[{"(",
6343	RowBox[{"T", "-", "MT2"}], ")"}]}]}], ")"}], " ",
6344	RowBox[{"(",
6345	RowBox[{
6346	FractionBox[
6347	RowBox[{"CKM33", " ", "EL", " ", "GS", " ",
6348	RowBox[{"Den", "(",
6349	RowBox[{"S", ",", "MB2"}], ")"}]}],
6350	RowBox[{
6351	SqrtBox["2"], " ", "sw"}]], "+",
6352	RowBox[{
6353	RowBox[{"(",
6354	RowBox[{
6355	FractionBox[
6356	RowBox[{
6357	"2", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
6358
6359	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6360	FractionBox[
6361	RowBox[{"2", " ", "CKM33", " ", "EL", " ", "MT", " ", "v", " ",
6362	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6363	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6364	FractionBox[
6365	RowBox[{"CKM33", " ", "EL", " ", "GS"}],
6366	RowBox[{
6367	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
6368	RowBox[{"Den", "(",
6369	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}], " ",
6370	RowBox[{"(",
6371	RowBox[{
6372	FractionBox[
6373	RowBox[{"EL", " ", "GS", " ",
6374	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6375	RowBox[{"Den", "(",
6376	RowBox[{"S", ",", "MB2"}], ")"}]}],
6377	RowBox[{
6378	SqrtBox["2"], " ", "sw"}]], "+",
6379	RowBox[{
6380	RowBox[{"(",
6381	RowBox[{
6382	FractionBox[
6383	RowBox[{"2", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
6384	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6385	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6386	FractionBox[
6387	RowBox[{"2", " ", "EL", " ", "MT", " ", "v", " ",
6388	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6389	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6390	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6391	FractionBox[
6392	RowBox[{"EL", " ", "GS", " ",
6393	SuperscriptBox["CKM33", "\[Conjugate]"]}],
6394	RowBox[{
6395	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
6396	RowBox[{"Den", "(",
6397	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}]}], "-",
6398	FractionBox[
6399	RowBox[{"4", " ",
6400	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair4", " ",
6401	RowBox[{"(",
6402	RowBox[{
6403	FractionBox["AbbSum81", "2"], "+",
6404	RowBox[{
6405	FractionBox["1", "4"], " ", "Pair10", " ",
6406	RowBox[{"(",
6407	RowBox[{"MW2", "-", "S", "-", "T"}], ")"}]}]}], ")"}], " ",
6408	RowBox[{"Den", "(",
6409	RowBox[{"S", ",", "MB2"}], ")"}], " ",
6410	RowBox[{"(",
6411	RowBox[{
6412	RowBox[{"-",
6413	FractionBox[
6414	RowBox[{
6415	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6416	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6417	SuperscriptBox["Pair3", "\[Conjugate]"], " ",
6418	RowBox[{"Den", "(",
6419	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
6420	FractionBox[
6421	RowBox[{
6422	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6423	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6424	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
6425	RowBox[{"Den", "(",
6426	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}]}], "sw"], "+",
6427	RowBox[{"4", " ",
6428	RowBox[{"(",
6429	RowBox[{
6430	FractionBox["Eps11", "2"], "-",
6431	FractionBox[
6432	RowBox[{"AbbSum30", " ", "MB2"}], "2"], "-",
6433	FractionBox[
6434	RowBox[{"AbbSum29", " ", "MT2"}], "4"], "+",
6435	FractionBox[
6436	RowBox[{"AbbSum31", " ", "S"}], "4"], "-",
6437	FractionBox[
6438	RowBox[{"Pair12", " ", "T"}], "4"], "+",
6439	FractionBox[
6440	RowBox[{"Pair11", " ", "U"}], "4"]}], ")"}], " ",
6441	RowBox[{"(",
6442	RowBox[{
6443	RowBox[{"-",
6444	FractionBox[
6445	RowBox[{
6446	"4", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "Pair5",
6447	" ", "v", " ",
6448	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
6449	FractionBox[
6450	RowBox[{
6451	"4", " ", "CKM33", " ", "EL", " ", "MT", " ", "Pair5", " ", "v", " ",
6452	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6453	SuperscriptBox["Linv", "2"]}], "sw"], "-",
6454	FractionBox[
6455	RowBox[{
6456	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair5"}],
6457	"sw"]}], ")"}], " ",
6458	RowBox[{"Den", "(",
6459	RowBox[{"T", ",", "MT2"}], ")"}], " ",
6460	RowBox[{"(",
6461	RowBox[{
6462	RowBox[{"-",
6463	FractionBox[
6464	RowBox[{
6465	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6466	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6467	SuperscriptBox["Pair3", "\[Conjugate]"], " ",
6468	RowBox[{"Den", "(",
6469	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
6470	FractionBox[
6471	RowBox[{
6472	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6473	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6474	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
6475	RowBox[{"Den", "(",
6476	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}]}], "+",
6477	RowBox[{"2", " ", "AbbSum94", " ", "MT", " ",
6478	RowBox[{"(",
6479	RowBox[{
6480	FractionBox[
6481	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
6482	SuperscriptBox["Linv", "2"], " ", "MT2", " ", "v", " ",
6483	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"], "-",
6484	FractionBox[
6485	RowBox[{"2", " ", "CKM33", " ", "EL", " ",
6486	SuperscriptBox["Linv", "2"], " ", "T", " ", "v", " ",
6487	SuperscriptBox["CtG", "\[Conjugate]"]}], "sw"]}], ")"}], " ",
6488	RowBox[{"Den", "(",
6489	RowBox[{"T", ",", "MT2"}], ")"}], " ",
6490	RowBox[{"(",
6491	RowBox[{
6492	RowBox[{"-",
6493	FractionBox[
6494	RowBox[{
6495	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6496	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6497	SuperscriptBox["Pair3", "\[Conjugate]"], " ",
6498	RowBox[{"Den", "(",
6499	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
6500	FractionBox[
6501	RowBox[{
6502	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6503	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6504	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
6505	RowBox[{"Den", "(",
6506	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}]}], "-",
6507	RowBox[{"2", " ", "MT", " ", "Pair12", " ",
6508	RowBox[{"(",
6509	RowBox[{
6510	RowBox[{"-",
6511	FractionBox[
6512	RowBox[{"8", " ", "CKM33", " ", "EL", " ",
6513	RowBox[{"(",
6514	RowBox[{"AbbSum1", "-",
6515	FractionBox[
6516	RowBox[{"Pair5", " ", "T"}], "2"]}], ")"}], " ", "v", " ",
6517	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6518	SuperscriptBox["Linv", "2"]}], "sw"]}], "-",
6519	FractionBox[
6520	RowBox[{
6521	"4", " ", "CKM33", " ", "EL", " ", "MT2", " ", "Pair5", " ", "v", " ",
6522
6523	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6524	SuperscriptBox["Linv", "2"]}], "sw"]}], ")"}], " ",
6525	RowBox[{"Den", "(",
6526	RowBox[{"T", ",", "MT2"}], ")"}], " ",
6527	RowBox[{"(",
6528	RowBox[{
6529	RowBox[{"-",
6530	FractionBox[
6531	RowBox[{
6532	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6533	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6534	SuperscriptBox["Pair3", "\[Conjugate]"], " ",
6535	RowBox[{"Den", "(",
6536	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
6537	FractionBox[
6538	RowBox[{
6539	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6540	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6541	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
6542	RowBox[{"Den", "(",
6543	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}]}], "+",
6544	RowBox[{"4", " ",
6545	RowBox[{"(",
6546	RowBox[{
6547	FractionBox["AbbSum15", "2"], "+",
6548	RowBox[{
6549	FractionBox["1", "4"], " ",
6550	RowBox[{"(",
6551	RowBox[{
6552	RowBox[{"-", "MW2"}], "+", "S", "+", "T"}], ")"}]}]}], ")"}], " ",
6553	RowBox[{"(",
6554	RowBox[{
6555	RowBox[{"-",
6556	FractionBox[
6557	RowBox[{
6558	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair3", " ",
6559
6560	RowBox[{"Den", "(",
6561	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
6562	FractionBox[
6563	RowBox[{
6564	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "GS", " ", "Pair6", " ",
6565	RowBox[{"Den", "(",
6566	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}], " ",
6567	RowBox[{"(",
6568	RowBox[{
6569	RowBox[{"-",
6570	FractionBox[
6571	RowBox[{
6572	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6573	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6574	SuperscriptBox["Pair3", "\[Conjugate]"], " ",
6575	RowBox[{"Den", "(",
6576	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
6577	FractionBox[
6578	RowBox[{
6579	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6580	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6581	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
6582	RowBox[{"Den", "(",
6583	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}]}], "+",
6584	RowBox[{"4", " ",
6585	RowBox[{"(",
6586	RowBox[{
6587	RowBox[{"-",
6588	FractionBox["AbbSum112", "2"]}], "-",
6589	FractionBox[
6590	RowBox[{"AbbSum110", " ", "MB2"}], "2"], "-",
6591	FractionBox[
6592	RowBox[{"AbbSum111", " ", "MT2"}], "4"], "+",
6593	FractionBox[
6594	RowBox[{"AbbSum73", " ", "S"}], "4"], "+",
6595	FractionBox[
6596	RowBox[{"AbbSum59", " ", "T"}], "4"], "+",
6597	FractionBox[
6598	RowBox[{"AbbSum97", " ", "U"}], "4"]}], ")"}], " ",
6599	RowBox[{"(",
6600	RowBox[{
6601	FractionBox[
6602	RowBox[{"CKM33", " ", "EL", " ", "GS", " ",
6603	RowBox[{"Den", "(",
6604	RowBox[{"S", ",", "MB2"}], ")"}]}],
6605	RowBox[{
6606	SqrtBox["2"], " ", "sw"}]], "+",
6607	RowBox[{
6608	RowBox[{"(",
6609	RowBox[{
6610	FractionBox[
6611	RowBox[{
6612	"2", " ", "CKM33", " ", "CtG", " ", "EL", " ", "MT", " ", "v", " ",
6613
6614	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6615	FractionBox[
6616	RowBox[{"2", " ", "CKM33", " ", "EL", " ", "MT", " ", "v", " ",
6617	SuperscriptBox["CtG", "\[Conjugate]"], " ",
6618	SuperscriptBox["Linv", "2"]}], "sw"], "+",
6619	FractionBox[
6620	RowBox[{"CKM33", " ", "EL", " ", "GS"}],
6621	RowBox[{
6622	SqrtBox["2"], " ", "sw"}]]}], ")"}], " ",
6623	RowBox[{"Den", "(",
6624	RowBox[{"T", ",", "MT2"}], ")"}]}]}], ")"}], " ",
6625	RowBox[{"(",
6626	RowBox[{
6627	RowBox[{"-",
6628	FractionBox[
6629	RowBox[{
6630	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6631	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6632	SuperscriptBox["Pair3", "\[Conjugate]"], " ",
6633	RowBox[{"Den", "(",
6634	RowBox[{"S", ",", "MB2"}], ")"}]}], "sw"]}], "-",
6635	FractionBox[
6636	RowBox[{
6637	SqrtBox["2"], " ", "EL", " ", "GS", " ",
6638	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6639	SuperscriptBox["Pair6", "\[Conjugate]"], " ",
6640	RowBox[{"Den", "(",
6641	RowBox[{"T", ",", "MT2"}], ")"}]}], "sw"]}], ")"}]}]}],
6642	TraditionalForm]], "Output",
6643	CellChangeTimes->{3.500718843537882^9, 3.50071888023175^9,
6644	3.500718962531796^9, 3.50071900070191^9, 3.5007190730172997`*^9}]
6645	}, Closed]],
6646
6647	Cell[CellGroupData[{
6648
6649	Cell[BoxData[
6650	RowBox[{
6651	RowBox[{"M3", "=",
6652	RowBox[{"PolarizationSum", "[", "M2", "]"}]}], ";"}]], "Input",
6653	CellChangeTimes->{
6654	3.49966507338302^9, {3.499665479244595^9, 3.499665508978133*^9}, {
6655	3.499666915703204^9, 3.499666925813794^9}, {3.500618089746357*^9,
6656	3.500618099391782*^9}}],
6657
6658	Cell[CellGroupData[{
6659
6660	Cell[BoxData[
6661	FormBox["\<\"\"\>", TraditionalForm]], "Print",
6662	CellChangeTimes->{
6663	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
6664	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
6665	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
6666	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
6667	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
6668	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
6669	3.500619309117373^9, 3.500620038495502^9, 3.5006276112185087`*^9,
6670	3.5007185546686687`^9, 3.5007190901932173`^9}],
6671
6672	Cell[BoxData[
6673	FormBox[
6674	InterpretationBox[
6675	RowBox[{"\<\"preparing FORM code in \"\>",
6676	"\[InvisibleSpace]", \
6677	"\<\"/nfs/home/d/degrande/eta/FeynProg/FormCalc-7.0/fc4.frm\"\>"}],
6678	SequenceForm[
6679	"preparing FORM code in ",
6680	"/nfs/home/d/degrande/eta/FeynProg/FormCalc-7.0/fc4.frm"],
6681	Editable->False], TraditionalForm]], "Print",
6682	CellChangeTimes->{
6683	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
6684	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
6685	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
6686	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
6687	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
6688	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
6689	3.500619309117373^9, 3.500620038495502^9, 3.5006276112185087`*^9,
6690	3.5007185546686687`^9, 3.500719090213043^9}],
6691
6692	Cell["running FORM... ", "Print",
6693	CellChangeTimes->{
6694	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
6695	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
6696	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
6697	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
6698	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
6699	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
6700	3.500619309117373^9, 3.500620038495502^9, 3.5006276112185087`*^9,
6701	3.5007185546686687`^9, 3.500719090587638^9}],
6702
6703	Cell[BoxData[
6704	FormBox["\<\"ok\"\>", TraditionalForm]], "Print",
6705	CellChangeTimes->{
6706	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
6707	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
6708	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
6709	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
6710	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
6711	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
6712	3.500619309117373^9, 3.500620038495502^9, 3.5006276112185087`*^9,
6713	3.5007185546686687`^9, 3.500719092213472^9}]
6714	}, Open ]]
6715	}, Open ]],
6716
6717	Cell[CellGroupData[{
6718
6719	Cell[BoxData[
6720	RowBox[{"M4", "=",
6721	RowBox[{"FullSimplify", "[",
6722	RowBox[{
6723	RowBox[{
6724	RowBox[{
6725	RowBox[{"Normal", "[",
6726	RowBox[{"Series", "[",
6727	RowBox[{"M3", ",",
6728	RowBox[{"{",
6729	RowBox[{"Linv", ",", "0", ",", "2"}], "}"}]}], "]"}], "]"}], "//.",
6730
6731	RowBox[{"Abbr", "[", "]"}]}], "/.",
6732	RowBox[{"{",
6733	RowBox[{
6734	RowBox[{"Den", "[",
6735	RowBox[{"a_", ",", "b_"}], "]"}], "\[Rule]",
6736	RowBox[{"1", "/",
6737	RowBox[{"(",
6738	RowBox[{"a", "-", "b"}], ")"}]}]}], "}"}]}], "/.",
6739	RowBox[{"{",
6740	RowBox[{"U", "\[Rule]",
6741	RowBox[{"MT2", "+", "MW2", "+", "MB2", "-", "S", "-", "T"}]}], "}"}]}],
6742	"]"}]}]], "Input",
6743	CellChangeTimes->{{3.4996648609705343`^9, 3.49966486381705^9}, {
6744	3.499664897114004^9, 3.4996649050225286`^9}, {3.4996649968834343`*^9,
6745	3.4996650162489157`^9}, {3.500187384138556^9, 3.500187385860238*^9}, {
6746	3.5001874741497707`^9, 3.500187475289146^9}, {3.5003856142464657`*^9,
6747	3.500385660569497^9}, {3.5003856940596933`^9, 3.50038571227074*^9}, {
6748	3.50038580404515^9, 3.500385805944021^9}, {3.500617355905836*^9,
6749	3.5006173850556173`^9}, {3.500618104014385^9, 3.500618138789729*^9}, {
6750	3.500619354866448^9, 3.500619394664554^9}, {3.500620119494914*^9,
6751	3.5006201203887033`*^9}}],
6752
6753	Cell[BoxData[
6754	FormBox[
6755	RowBox[{"-",
6756	RowBox[{
6757	FractionBox["1",
6758	RowBox[{"MW2", " ",
6759	SuperscriptBox[
6760	RowBox[{"(",
6761	RowBox[{"MB2", "-", "S"}], ")"}], "2"], " ",
6762	SuperscriptBox["sw", "2"], " ",
6763	SuperscriptBox[
6764	RowBox[{"(",
6765	RowBox[{"MT2", "-", "T"}], ")"}], "2"]}]],
6766	RowBox[{"16", " ", "Alfa", " ", "CKM33", " ", "\[Pi]", " ",
6767	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
6768	RowBox[{"(",
6769	RowBox[{
6770	RowBox[{
6771	SqrtBox["2"], " ", "GS", " ", "MT", " ",
6772	RowBox[{"(",
6773	RowBox[{"MB2", "-", "S"}], ")"}], " ",
6774	RowBox[{"(",
6775	RowBox[{"MT2", "-", "T"}], ")"}], " ",
6776	RowBox[{"(",
6777	RowBox[{
6778	SuperscriptBox["MB2", "3"], "+",
6779	RowBox[{"2", " ",
6780	RowBox[{"(",
6781	RowBox[{"MT2", "+", "MW2", "-", "S", "-", "T"}], ")"}], " ",
6782	SuperscriptBox["MB2", "2"]}], "+",
6783	RowBox[{
6784	RowBox[{"(",
6785	RowBox[{
6786	SuperscriptBox["MT2", "2"], "-",
6787	RowBox[{
6788	RowBox[{"(",
6789	RowBox[{"MW2", "+",
6790	RowBox[{"2", " ",
6791	RowBox[{"(",
6792	RowBox[{"S", "+", "T"}], ")"}]}]}], ")"}], " ", "MT2"}],
6793	"+",
6794	SuperscriptBox[
6795	RowBox[{"(",
6796	RowBox[{"S", "+", "T"}], ")"}], "2"], "+",
6797	RowBox[{"MW2", " ",
6798	RowBox[{"(",
6799	RowBox[{"T", "-",
6800	RowBox[{"4", " ", "S"}]}], ")"}]}]}], ")"}], " ", "MB2"}],
6801	"+",
6802	RowBox[{"MW2", " ", "S", " ",
6803	RowBox[{"(",
6804	RowBox[{"MT2", "+",
6805	RowBox[{"2", " ", "S"}], "-", "T"}], ")"}]}]}], ")"}], " ", "v",
6806	" ",
6807	RowBox[{"Re", "(", "CtG", ")"}], " ",
6808	SuperscriptBox["Linv", "2"]}], "+",
6809	RowBox[{"Alfas", " ", "\[Pi]", " ",
6810	RowBox[{"(",
6811	RowBox[{
6812	RowBox[{
6813	RowBox[{"(",
6814	RowBox[{
6815	RowBox[{"3", " ", "MT2"}], "-", "T"}], ")"}], " ",
6816	SuperscriptBox["MB2", "4"]}], "+",
6817	RowBox[{
6818	RowBox[{"(",
6819	RowBox[{
6820	SuperscriptBox["MT2", "2"], "+",
6821	RowBox[{
6822	RowBox[{"(",
6823	RowBox[{
6824	RowBox[{"2", " ", "MW2"}], "-",
6825	RowBox[{"5", " ", "S"}], "-",
6826	RowBox[{"7", " ", "T"}]}], ")"}], " ", "MT2"}], "+",
6827	RowBox[{"T", " ",
6828	RowBox[{"(",
6829	RowBox[{"S", "+",
6830	RowBox[{"2", " ", "T"}]}], ")"}]}]}], ")"}], " ",
6831	SuperscriptBox["MB2", "3"]}], "+",
6832	RowBox[{
6833	RowBox[{"(",
6834	RowBox[{
6835	SuperscriptBox["MT2", "3"], "+",
6836	RowBox[{
6837	RowBox[{"(",
6838	RowBox[{
6839	RowBox[{"8", " ", "MW2"}], "-",
6840	RowBox[{"3", " ",
6841	RowBox[{"(",
6842	RowBox[{"S", "+", "T"}], ")"}]}]}], ")"}], " ",
6843	SuperscriptBox["MT2", "2"]}], "+",
6844	RowBox[{
6845	RowBox[{"(",
6846	RowBox[{
6847	RowBox[{
6848	RowBox[{"-", "6"}], " ",
6849	SuperscriptBox["MW2", "2"]}], "-",
6850	RowBox[{"6", " ",
6851	RowBox[{"(",
6852	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
6853	RowBox[{"3", " ",
6854	SuperscriptBox["S", "2"]}], "+",
6855	RowBox[{"5", " ",
6856	SuperscriptBox["T", "2"]}], "+",
6857	RowBox[{"13", " ", "S", " ", "T"}]}], ")"}], " ", "MT2"}],
6858	"-",
6859	RowBox[{"T", " ",
6860	RowBox[{"(",
6861	RowBox[{
6862	RowBox[{
6863	RowBox[{"-", "2"}], " ",
6864	SuperscriptBox["MW2", "2"]}], "-",
6865	RowBox[{"2", " ", "S", " ", "MW2"}], "+",
6866	SuperscriptBox[
6867	RowBox[{"(",
6868	RowBox[{"S", "+", "T"}], ")"}], "2"]}], ")"}]}]}], ")"}],
6869	" ",
6870	SuperscriptBox["MB2", "2"]}], "+",
6871	RowBox[{
6872	RowBox[{"(",
6873	RowBox[{
6874	RowBox[{"3", " ",
6875	SuperscriptBox["MT2", "4"]}], "+",
6876	RowBox[{
6877	RowBox[{"(",
6878	RowBox[{
6879	RowBox[{"2", " ", "MW2"}], "-",
6880	RowBox[{"7", " ", "S"}], "-",
6881	RowBox[{"5", " ", "T"}]}], ")"}], " ",
6882	SuperscriptBox["MT2", "3"]}], "+",
6883	RowBox[{
6884	RowBox[{"(",
6885	RowBox[{
6886	RowBox[{
6887	RowBox[{"-", "6"}], " ",
6888	SuperscriptBox["MW2", "2"]}], "-",
6889	RowBox[{"6", " ",
6890	RowBox[{"(",
6891	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
6892	RowBox[{"5", " ",
6893	SuperscriptBox["S", "2"]}], "+",
6894	RowBox[{"3", " ",
6895	SuperscriptBox["T", "2"]}], "+",
6896	RowBox[{"13", " ", "S", " ", "T"}]}], ")"}], " ",
6897	SuperscriptBox["MT2", "2"]}], "+",
6898	RowBox[{
6899	RowBox[{"(",
6900	RowBox[{
6901	RowBox[{"4", " ",
6902	SuperscriptBox["MW2", "3"]}], "+",
6903	RowBox[{"6", " ",
6904	RowBox[{"(",
6905	RowBox[{"S", "+", "T"}], ")"}], " ",
6906	SuperscriptBox["MW2", "2"]}], "+",
6907	RowBox[{"6", " ",
6908	RowBox[{"(",
6909	RowBox[{
6910	SuperscriptBox["S", "2"], "+",
6911	SuperscriptBox["T", "2"]}], ")"}], " ", "MW2"}], "-",
6912	RowBox[{
6913	RowBox[{"(",
6914	RowBox[{"S", "+", "T"}], ")"}], " ",
6915	RowBox[{"(",
6916	RowBox[{
6917	SuperscriptBox["S", "2"], "+",
6918	RowBox[{"10", " ", "T", " ", "S"}], "+",
6919	SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}], " ", "MT2"}],
6920	"+",
6921	RowBox[{"T", " ",
6922	RowBox[{"(",
6923	RowBox[{
6924	RowBox[{
6925	RowBox[{"-", "4"}], " ",
6926	SuperscriptBox["MW2", "3"]}], "+",
6927	RowBox[{"2", " ", "S", " ",
6928	SuperscriptBox["MW2", "2"]}], "-",
6929	RowBox[{"2", " ",
6930	RowBox[{"(",
6931	RowBox[{
6932	RowBox[{"2", " ",
6933	SuperscriptBox["S", "2"]}], "-",
6934	RowBox[{"T", " ", "S"}], "+",
6935	SuperscriptBox["T", "2"]}], ")"}], " ", "MW2"}], "+",
6936	RowBox[{"S", " ",
6937	SuperscriptBox[
6938	RowBox[{"(",
6939	RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}]}]}], ")"}],
6940	" ", "MB2"}], "+",
6941	RowBox[{"S", " ",
6942	RowBox[{"(",
6943	RowBox[{
6944	RowBox[{"-",
6945	SuperscriptBox["MT2", "4"]}], "+",
6946	RowBox[{
6947	RowBox[{"(",
6948	RowBox[{
6949	RowBox[{"2", " ", "S"}], "+", "T"}], ")"}], " ",
6950	SuperscriptBox["MT2", "3"]}], "+",
6951	RowBox[{
6952	RowBox[{"(",
6953	RowBox[{
6954	RowBox[{"2", " ",
6955	SuperscriptBox["MW2", "2"]}], "+",
6956	RowBox[{"2", " ", "T", " ", "MW2"}], "-",
6957	SuperscriptBox[
6958	RowBox[{"(",
6959	RowBox[{"S", "+", "T"}], ")"}], "2"]}], ")"}], " ",
6960	SuperscriptBox["MT2", "2"]}], "+",
6961	RowBox[{
6962	RowBox[{"(",
6963	RowBox[{
6964	RowBox[{
6965	RowBox[{"-", "4"}], " ",
6966	SuperscriptBox["MW2", "3"]}], "+",
6967	RowBox[{"2", " ", "T", " ",
6968	SuperscriptBox["MW2", "2"]}], "-",
6969	RowBox[{"2", " ",
6970	RowBox[{"(",
6971	RowBox[{
6972	SuperscriptBox["S", "2"], "-",
6973	RowBox[{"T", " ", "S"}], "+",
6974	RowBox[{"2", " ",
6975	SuperscriptBox["T", "2"]}]}], ")"}], " ", "MW2"}], "+",
6976	RowBox[{"T", " ",
6977	SuperscriptBox[
6978	RowBox[{"(",
6979	RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}], " ",
6980	"MT2"}], "+",
6981	RowBox[{"2", " ", "MW2", " ", "T", " ",
6982	RowBox[{"(",
6983	RowBox[{
6984	RowBox[{"2", " ",
6985	SuperscriptBox["MW2", "2"]}], "-",
6986	RowBox[{"2", " ",
6987	RowBox[{"(",
6988	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
6989	SuperscriptBox["S", "2"], "+",
6990	SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
6991	")"}]}]}]}], TraditionalForm]], "Output",
6992	CellChangeTimes->{3.500619397528989^9, 3.500620045018338^9,
6993	3.500620139625103^9, 3.50062763345022^9, 3.5007185619835873`*^9,
6994	3.500719111789125*^9}]
6995	}, Open ]],
6996
6997	Cell[BoxData[
6998	RowBox[{
6999	RowBox[{"M5", "=",
7000	RowBox[{"Simplify", "[",
7001	RowBox[{
7002	RowBox[{"2", "*",
7003	RowBox[{
7004	RowBox[{
7005	RowBox[{"M4", "/", "8"}], "/", "2"}], "/", "3"}]}], "/.",
7006	RowBox[{"MB2", "\[Rule]", "0"}]}], "]"}]}], ";"}]], "Input",
7007	CellChangeTimes->{{3.500619408652945^9, 3.500619444131513^9}, {
7008	3.500620186564165^9, 3.50062022207979^9}}],
7009
7010	Cell[CellGroupData[{
7011
7012	Cell[BoxData["M5"], "Input",
7013	CellChangeTimes->{{3.5006194476506643`^9, 3.5006194497548857`^9}}],
7014
7015	Cell[BoxData[
7016	FormBox[
7017	RowBox[{
7018	FractionBox["1",
7019	RowBox[{"3", " ", "MW2", " ", "S", " ",
7020	SuperscriptBox["sw", "2"], " ",
7021	SuperscriptBox[
7022	RowBox[{"(",
7023	RowBox[{"MT2", "-", "T"}], ")"}], "2"]}]],
7024	RowBox[{"2", " ", "Alfa", " ", "CKM33", " ", "\[Pi]", " ",
7025	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
7026	RowBox[{"(",
7027	RowBox[{
7028	RowBox[{
7029	SqrtBox["2"], " ", "GS", " ", "MT", " ", "MW2", " ", "S", " ",
7030	RowBox[{"(",
7031	RowBox[{"MT2", "-", "T"}], ")"}], " ",
7032	RowBox[{"(",
7033	RowBox[{"MT2", "+",
7034	RowBox[{"2", " ", "S"}], "-", "T"}], ")"}], " ", "v", " ",
7035	RowBox[{"Re", "(", "CtG", ")"}], " ",
7036	SuperscriptBox["Linv", "2"]}], "+",
7037	RowBox[{"Alfas", " ", "\[Pi]", " ",
7038	RowBox[{"(",
7039	RowBox[{
7040	SuperscriptBox["MT2", "4"], "-",
7041	RowBox[{
7042	RowBox[{"(",
7043	RowBox[{
7044	RowBox[{"2", " ", "S"}], "+", "T"}], ")"}], " ",
7045	SuperscriptBox["MT2", "3"]}], "+",
7046	RowBox[{
7047	RowBox[{"(",
7048	RowBox[{
7049	RowBox[{
7050	RowBox[{"-", "2"}], " ",
7051	SuperscriptBox["MW2", "2"]}], "-",
7052	RowBox[{"2", " ", "T", " ", "MW2"}], "+",
7053	SuperscriptBox[
7054	RowBox[{"(",
7055	RowBox[{"S", "+", "T"}], ")"}], "2"]}], ")"}], " ",
7056	SuperscriptBox["MT2", "2"]}], "+",
7057	RowBox[{
7058	RowBox[{"(",
7059	RowBox[{
7060	RowBox[{"4", " ",
7061	SuperscriptBox["MW2", "3"]}], "-",
7062	RowBox[{"2", " ", "T", " ",
7063	SuperscriptBox["MW2", "2"]}], "+",
7064	RowBox[{"2", " ",
7065	RowBox[{"(",
7066	RowBox[{
7067	SuperscriptBox["S", "2"], "-",
7068	RowBox[{"T", " ", "S"}], "+",
7069	RowBox[{"2", " ",
7070	SuperscriptBox["T", "2"]}]}], ")"}], " ", "MW2"}], "-",
7071	RowBox[{"T", " ",
7072	SuperscriptBox[
7073	RowBox[{"(",
7074	RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}], " ", "MT2"}],
7075	"-",
7076	RowBox[{"2", " ", "MW2", " ", "T", " ",
7077	RowBox[{"(",
7078	RowBox[{
7079	RowBox[{"2", " ",
7080	SuperscriptBox["MW2", "2"]}], "-",
7081	RowBox[{"2", " ",
7082	RowBox[{"(",
7083	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
7084	SuperscriptBox["S", "2"], "+",
7085	SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
7086	TraditionalForm]], "Output",
7087	CellChangeTimes->{3.5006194501200047`^9, 3.5006200855107203`^9,
7088	3.500620149404791^9, 3.500620225331334^9, 3.5006276344674587`*^9,
7089	3.500718562964075^9, 3.5007191251541843`^9}]
7090	}, Open ]],
7091
7092	Cell[CellGroupData[{
7093
7094	Cell[BoxData[
7095	RowBox[{"Simplify", "[",
7096	RowBox[{
7097	RowBox[{"Coefficient", "[",
7098	RowBox[{"M5", ",", "Linv", ",", "2"}], "]"}], "/.",
7099	RowBox[{"{",
7100	RowBox[{
7101	RowBox[{"Alfas", "\[Rule]",
7102	RowBox[{"(",
7103	RowBox[{
7104	RowBox[{
7105	RowBox[{"gS", "^", "2"}], "/", "4"}], "/", "\[Pi]"}], ")"}]}], ",",
7106	RowBox[{"Alfa", "\[Rule]",
7107	RowBox[{"(",
7108	RowBox[{
7109	RowBox[{
7110	RowBox[{
7111	RowBox[{"gw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}], "*",
7112	RowBox[{"sw", "^", "2"}]}], ")"}]}]}], "}"}]}], "]"}]], "Input",
7113	CellChangeTimes->{{3.500619459070675^9, 3.500619488358326^9},
7114	3.500620475539863*^9}],
7115
7116	Cell[BoxData[
7117	FormBox[
7118	FractionBox[
7119	RowBox[{"CKM33", " ", "GS", " ",
7120	SuperscriptBox["gw", "2"], " ", "MT", " ",
7121	RowBox[{"(",
7122	RowBox[{"MT2", "+",
7123	RowBox[{"2", " ", "S"}], "-", "T"}], ")"}], " ", "v", " ",
7124	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
7125	RowBox[{"Re", "(", "CtG", ")"}]}],
7126	RowBox[{"3", " ",
7127	SqrtBox["2"], " ",
7128	RowBox[{"(",
7129	RowBox[{"MT2", "-", "T"}], ")"}]}]], TraditionalForm]], "Output",
7130	CellChangeTimes->{{3.500619477651209^9, 3.50061948909485^9},
7131	3.500620152398573^9, 3.500620228585659^9, 3.500620476249527*^9,
7132	3.500627640375634^9, 3.500718567848819^9, 3.500719128206544*^9}]
7133	}, Open ]],
7134
7135	Cell[CellGroupData[{
7136
7137	Cell[BoxData[
7138	RowBox[{"Simplify", "[",
7139	RowBox[{
7140	RowBox[{"Coefficient", "[",
7141	RowBox[{"M5", ",", "Linv", ",", "0"}], "]"}], "/.",
7142	RowBox[{"{",
7143	RowBox[{
7144	RowBox[{"Alfas", "\[Rule]",
7145	RowBox[{"(",
7146	RowBox[{
7147	RowBox[{
7148	RowBox[{"gS", "^", "2"}], "/", "4"}], "/", "\[Pi]"}], ")"}]}], ",",
7149	RowBox[{"Alfa", "\[Rule]",
7150	RowBox[{"(",
7151	RowBox[{
7152	RowBox[{
7153	RowBox[{
7154	RowBox[{"gw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}], "*",
7155	RowBox[{"sw", "^", "2"}]}], ")"}]}]}], "}"}]}], "]"}]], "Input",
7156	CellChangeTimes->{
7157	3.500619500185069^9, {3.5006197010843678`^9, 3.500619785186995*^9}, {
7158	3.500619828187114^9, 3.5006198610219193`^9}}],
7159
7160	Cell[BoxData[
7161	FormBox[
7162	RowBox[{
7163	FractionBox["1",
7164	RowBox[{"24", " ", "MW2", " ", "S", " ",
7165	SuperscriptBox[
7166	RowBox[{"(",
7167	RowBox[{"MT2", "-", "T"}], ")"}], "2"]}]],
7168	RowBox[{"CKM33", " ",
7169	SuperscriptBox["gS", "2"], " ",
7170	SuperscriptBox["gw", "2"], " ",
7171	RowBox[{"(",
7172	RowBox[{
7173	SuperscriptBox["MT2", "4"], "-",
7174	RowBox[{
7175	RowBox[{"(",
7176	RowBox[{
7177	RowBox[{"2", " ", "S"}], "+", "T"}], ")"}], " ",
7178	SuperscriptBox["MT2", "3"]}], "+",
7179	RowBox[{
7180	RowBox[{"(",
7181	RowBox[{
7182	RowBox[{
7183	RowBox[{"-", "2"}], " ",
7184	SuperscriptBox["MW2", "2"]}], "-",
7185	RowBox[{"2", " ", "T", " ", "MW2"}], "+",
7186	SuperscriptBox[
7187	RowBox[{"(",
7188	RowBox[{"S", "+", "T"}], ")"}], "2"]}], ")"}], " ",
7189	SuperscriptBox["MT2", "2"]}], "+",
7190	RowBox[{
7191	RowBox[{"(",
7192	RowBox[{
7193	RowBox[{"4", " ",
7194	SuperscriptBox["MW2", "3"]}], "-",
7195	RowBox[{"2", " ", "T", " ",
7196	SuperscriptBox["MW2", "2"]}], "+",
7197	RowBox[{"2", " ",
7198	RowBox[{"(",
7199	RowBox[{
7200	SuperscriptBox["S", "2"], "-",
7201	RowBox[{"T", " ", "S"}], "+",
7202	RowBox[{"2", " ",
7203	SuperscriptBox["T", "2"]}]}], ")"}], " ", "MW2"}], "-",
7204	RowBox[{"T", " ",
7205	SuperscriptBox[
7206	RowBox[{"(",
7207	RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}], " ", "MT2"}],
7208	"-",
7209	RowBox[{"2", " ", "MW2", " ", "T", " ",
7210	RowBox[{"(",
7211	RowBox[{
7212	RowBox[{"2", " ",
7213	SuperscriptBox["MW2", "2"]}], "-",
7214	RowBox[{"2", " ",
7215	RowBox[{"(",
7216	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
7217	SuperscriptBox["S", "2"], "+",
7218	SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}], " ",
7219	SuperscriptBox["CKM33", "\[Conjugate]"]}]}], TraditionalForm]], "Output",
7220	CellChangeTimes->{
7221	3.500619500548152^9, {3.500619775655306^9, 3.500619785860127*^9},
7222	3.500619862900193^9, 3.500620155066042^9, 3.5006202308318977`*^9,
7223	3.5006276413570843`^9, 3.500718605297653^9}]
7224	}, Open ]]
7225	}, Open ]],
7226
7227	Cell[CellGroupData[{
7228
7229	Cell["CtW", "Section",
7230	CellChangeTimes->{{3.5006274944509287`^9, 3.500627498658805^9}}],
7231
7232	Cell[BoxData[
7233	RowBox[{
7234	RowBox[{"M2", " ", "=", " ",
7235	RowBox[{
7236	RowBox[{
7237	RowBox[{
7238	RowBox[{
7239	RowBox[{
7240	RowBox[{"SquaredME", "[", "M", "]"}], "/.", "col"}], "/.", "hel"}], "/.",
7241	"M$FACouplings"}], "/.",
7242	RowBox[{"{",
7243	RowBox[{
7244	RowBox[{
7245	RowBox[{"Conjugate", "[", "Lambda", "]"}], "\[Rule]",
7246	RowBox[{"1", "/", "Linv"}]}], ",",
7247	RowBox[{"Lambda", "\[Rule]",
7248	RowBox[{"1", "/", "Linv"}]}]}], "}"}]}], "//.",
7249	RowBox[{"{",
7250	RowBox[{
7251	RowBox[{
7252	RowBox[{"Linv", "^", "4"}], "\[Rule]", "0"}], ",",
7253	RowBox[{
7254	RowBox[{"Linv", "^", "6"}], "\[Rule]", "0"}], ",",
7255	RowBox[{"CtG", "\[Rule]", "0"}], ",",
7256	RowBox[{"C3phiq", "\[Rule]", "0"}], ",",
7257	RowBox[{
7258	RowBox[{"Conjugate", "[", "v", "]"}], "\[Rule]", "v"}], ",",
7259	RowBox[{
7260	RowBox[{"Conjugate", "[", "sw", "]"}], "\[Rule]", "sw"}]}], "}"}]}]}],
7261	";"}]], "Input",
7262	CellChangeTimes->{{3.499600531002454^9, 3.4996005524542828`^9}, {
7263	3.499600635515656^9, 3.499600641632725^9}, 3.499664804800191*^9,
7264	3.499665470133533^9, {3.499665526806489^9, 3.499665533691248*^9}, {
7265	3.499666501659967^9, 3.499666513416099^9}, {3.500187709292647*^9,
7266	3.500187712600173^9}, 3.500385558768992^9, 3.500617380485931*^9, {
7267	3.5006183149253798`^9, 3.5006183179069633`^9}, {3.5006184825135202`*^9,
7268	3.500618538907811^9}, {3.5006189819188757`^9, 3.500618986819117*^9},
7269	3.5006190655537767`^9, {3.500619108945569^9, 3.500619160312779*^9}, {
7270	3.5006192176593237`^9, 3.500619270466074^9}, {3.5006206564134502`*^9,
7271	3.500620658185376^9}, {3.5006208996006527`^9, 3.5006209088479643`*^9}}],
7272
7273	Cell[CellGroupData[{
7274
7275	Cell[BoxData[
7276	RowBox[{
7277	RowBox[{"M3", "=",
7278	RowBox[{"PolarizationSum", "[", "M2", "]"}]}], ";"}]], "Input",
7279	CellChangeTimes->{
7280	3.49966507338302^9, {3.499665479244595^9, 3.499665508978133*^9}, {
7281	3.499666915703204^9, 3.499666925813794^9}, {3.500618089746357*^9,
7282	3.500618099391782*^9}}],
7283
7284	Cell[CellGroupData[{
7285
7286	Cell[BoxData[
7287	FormBox["\<\"\"\>", TraditionalForm]], "Print",
7288	CellChangeTimes->{
7289	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
7290	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
7291	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
7292	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
7293	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
7294	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
7295	3.500619309117373^9, 3.500620038495502^9, 3.500620672921929*^9,
7296	3.500620927911113^9, 3.50062765944853^9, 3.500718630460891*^9}],
7297
7298	Cell[BoxData[
7299	FormBox[
7300	InterpretationBox[
7301	RowBox[{"\<\"preparing FORM code in \"\>",
7302	"\[InvisibleSpace]", \
7303	"\<\"/nfs/home/d/degrande/eta/FeynProg/FormCalc-7.0/fc4.frm\"\>"}],
7304	SequenceForm[
7305	"preparing FORM code in ",
7306	"/nfs/home/d/degrande/eta/FeynProg/FormCalc-7.0/fc4.frm"],
7307	Editable->False], TraditionalForm]], "Print",
7308	CellChangeTimes->{
7309	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
7310	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
7311	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
7312	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
7313	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
7314	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
7315	3.500619309117373^9, 3.500620038495502^9, 3.500620672921929*^9,
7316	3.500620927911113^9, 3.50062765944853^9, 3.500718630477837*^9}],
7317
7318	Cell["running FORM... ", "Print",
7319	CellChangeTimes->{
7320	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
7321	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
7322	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
7323	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
7324	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
7325	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
7326	3.500619309117373^9, 3.500620038495502^9, 3.500620672921929*^9,
7327	3.500620927911113^9, 3.50062765944853^9, 3.500718630877677*^9}],
7328
7329	Cell[BoxData[
7330	FormBox["\<\"ok\"\>", TraditionalForm]], "Print",
7331	CellChangeTimes->{
7332	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
7333	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
7334	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
7335	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
7336	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
7337	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
7338	3.500619309117373^9, 3.500620038495502^9, 3.500620672921929*^9,
7339	3.500620927911113^9, 3.50062765944853^9, 3.500718636296775*^9}]
7340	}, Open ]]
7341	}, Open ]],
7342
7343	Cell[CellGroupData[{
7344
7345	Cell[BoxData[
7346	RowBox[{"M4", "=",
7347	RowBox[{"FullSimplify", "[",
7348	RowBox[{
7349	RowBox[{
7350	RowBox[{
7351	RowBox[{"Normal", "[",
7352	RowBox[{"Series", "[",
7353	RowBox[{"M3", ",",
7354	RowBox[{"{",
7355	RowBox[{"Linv", ",", "0", ",", "2"}], "}"}]}], "]"}], "]"}], "//.",
7356
7357	RowBox[{"Abbr", "[", "]"}]}], "/.",
7358	RowBox[{"{",
7359	RowBox[{
7360	RowBox[{"Den", "[",
7361	RowBox[{"a_", ",", "b_"}], "]"}], "\[Rule]",
7362	RowBox[{"1", "/",
7363	RowBox[{"(",
7364	RowBox[{"a", "-", "b"}], ")"}]}]}], "}"}]}], "/.",
7365	RowBox[{"{",
7366	RowBox[{"U", "\[Rule]",
7367	RowBox[{"MT2", "+", "MW2", "+", "MB2", "-", "S", "-", "T"}]}], "}"}]}],
7368	"]"}]}]], "Input",
7369	CellChangeTimes->{{3.4996648609705343`^9, 3.49966486381705^9}, {
7370	3.499664897114004^9, 3.4996649050225286`^9}, {3.4996649968834343`*^9,
7371	3.4996650162489157`^9}, {3.500187384138556^9, 3.500187385860238*^9}, {
7372	3.5001874741497707`^9, 3.500187475289146^9}, {3.5003856142464657`*^9,
7373	3.500385660569497^9}, {3.5003856940596933`^9, 3.50038571227074*^9}, {
7374	3.50038580404515^9, 3.500385805944021^9}, {3.500617355905836*^9,
7375	3.5006173850556173`^9}, {3.500618104014385^9, 3.500618138789729*^9}, {
7376	3.500619354866448^9, 3.500619394664554^9}, {3.500620119494914*^9,
7377	3.5006201203887033`*^9}}],
7378
7379	Cell[BoxData[
7380	FormBox[
7381	RowBox[{"-",
7382	RowBox[{
7383	FractionBox["1",
7384	RowBox[{"MW2", " ",
7385	SuperscriptBox[
7386	RowBox[{"(",
7387	RowBox[{"MB2", "-", "S"}], ")"}], "2"], " ",
7388	SuperscriptBox["sw", "2"], " ",
7389	SuperscriptBox[
7390	RowBox[{"(",
7391	RowBox[{"MT2", "-", "T"}], ")"}], "2"]}]],
7392	RowBox[{"8", " ", "Alfas", " ", "\[Pi]", " ",
7393	RowBox[{"(",
7394	RowBox[{
7395	RowBox[{
7396	SqrtBox["2"], " ", "CKM33", " ", "CtW", " ", "EL", " ", "MT", " ",
7397	"MW2", " ", "sw", " ",
7398	RowBox[{"(",
7399	RowBox[{
7400	RowBox[{
7401	RowBox[{"(",
7402	RowBox[{"T", "-",
7403	RowBox[{"7", " ", "MT2"}]}], ")"}], " ",
7404	SuperscriptBox["MB2", "3"]}], "+",
7405	RowBox[{
7406	RowBox[{"(",
7407	RowBox[{
7408	RowBox[{"2", " ",
7409	SuperscriptBox["MT2", "2"]}], "+",
7410	RowBox[{
7411	RowBox[{"(",
7412	RowBox[{
7413	RowBox[{"9", " ", "S"}], "+",
7414	RowBox[{"2", " ", "T"}]}], ")"}], " ", "MT2"}], "+",
7415	RowBox[{"T", " ",
7416	RowBox[{"(",
7417	RowBox[{
7418	RowBox[{
7419	RowBox[{"-", "6"}], " ", "MW2"}], "+",
7420	RowBox[{"3", " ", "S"}], "+",
7421	RowBox[{"2", " ", "T"}]}], ")"}]}]}], ")"}], " ",
7422	SuperscriptBox["MB2", "2"]}], "+",
7423	RowBox[{
7424	RowBox[{"(",
7425	RowBox[{
7426	RowBox[{"9", " ",
7427	SuperscriptBox["MT2", "3"]}], "-",
7428	RowBox[{
7429	RowBox[{"(",
7430	RowBox[{
7431	RowBox[{"12", " ", "MW2"}], "+",
7432	RowBox[{"10", " ", "S"}], "+",
7433	RowBox[{"15", " ", "T"}]}], ")"}], " ",
7434	SuperscriptBox["MT2", "2"]}], "+",
7435	RowBox[{
7436	RowBox[{"(",
7437	RowBox[{
7438	RowBox[{"6", " ",
7439	SuperscriptBox["MW2", "2"]}], "+",
7440	RowBox[{"12", " ", "T", " ", "MW2"}], "-",
7441	RowBox[{"3", " ",
7442	SuperscriptBox["S", "2"]}], "+",
7443	RowBox[{"9", " ",
7444	SuperscriptBox["T", "2"]}], "+",
7445	RowBox[{"8", " ", "S", " ", "T"}]}], ")"}], " ", "MT2"}], "-",
7446
7447	RowBox[{"T", " ",
7448	RowBox[{"(",
7449	RowBox[{
7450	RowBox[{"6", " ",
7451	SuperscriptBox["MW2", "2"]}], "-",
7452	RowBox[{"12", " ", "S", " ", "MW2"}], "+",
7453	RowBox[{
7454	RowBox[{"(",
7455	RowBox[{
7456	RowBox[{"3", " ", "S"}], "+", "T"}], ")"}], " ",
7457	RowBox[{"(",
7458	RowBox[{"S", "+",
7459	RowBox[{"3", " ", "T"}]}], ")"}]}]}], ")"}]}]}], ")"}],
7460	" ", "MB2"}], "+",
7461	RowBox[{"S", " ",
7462	RowBox[{"(",
7463	RowBox[{
7464	RowBox[{
7465	RowBox[{"-", "3"}], " ",
7466	SuperscriptBox["MT2", "3"]}], "+",
7467	RowBox[{
7468	RowBox[{"(",
7469	RowBox[{
7470	RowBox[{"6", " ", "MW2"}], "+",
7471	RowBox[{"2", " ", "S"}], "+",
7472	RowBox[{"3", " ", "T"}]}], ")"}], " ",
7473	SuperscriptBox["MT2", "2"]}], "+",
7474	RowBox[{
7475	RowBox[{"(",
7476	RowBox[{
7477	RowBox[{
7478	RowBox[{"(",
7479	RowBox[{"S", "-", "T"}], ")"}], " ",
7480	RowBox[{"(",
7481	RowBox[{"S", "+",
7482	RowBox[{"3", " ", "T"}]}], ")"}]}], "-",
7483	RowBox[{"6", " ",
7484	SuperscriptBox["MW2", "2"]}]}], ")"}], " ", "MT2"}], "+",
7485	RowBox[{"T", " ",
7486	RowBox[{"(",
7487	RowBox[{
7488	RowBox[{"6", " ",
7489	SuperscriptBox["MW2", "2"]}], "-",
7490	RowBox[{"6", " ",
7491	RowBox[{"(",
7492	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "-",
7493	RowBox[{
7494	RowBox[{"(",
7495	RowBox[{"S", "-",
7496	RowBox[{"3", " ", "T"}]}], ")"}], " ",
7497	RowBox[{"(",
7498	RowBox[{"S", "+", "T"}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
7499	")"}], " ", "v", " ",
7500	SuperscriptBox["Linv", "2"]}], "+",
7501	RowBox[{
7502	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
7503	RowBox[{"(",
7504	RowBox[{
7505	RowBox[{
7506	SqrtBox["2"], " ", "EL", " ", "MT", " ", "MW2", " ", "sw", " ",
7507	RowBox[{"(",
7508	RowBox[{
7509	RowBox[{
7510	RowBox[{"(",
7511	RowBox[{"T", "-",
7512	RowBox[{"7", " ", "MT2"}]}], ")"}], " ",
7513	SuperscriptBox["MB2", "3"]}], "+",
7514	RowBox[{
7515	RowBox[{"(",
7516	RowBox[{
7517	RowBox[{"2", " ",
7518	SuperscriptBox["MT2", "2"]}], "+",
7519	RowBox[{
7520	RowBox[{"(",
7521	RowBox[{
7522	RowBox[{"9", " ", "S"}], "+",
7523	RowBox[{"2", " ", "T"}]}], ")"}], " ", "MT2"}], "+",
7524	RowBox[{"T", " ",
7525	RowBox[{"(",
7526	RowBox[{
7527	RowBox[{
7528	RowBox[{"-", "6"}], " ", "MW2"}], "+",
7529	RowBox[{"3", " ", "S"}], "+",
7530	RowBox[{"2", " ", "T"}]}], ")"}]}]}], ")"}], " ",
7531	SuperscriptBox["MB2", "2"]}], "+",
7532	RowBox[{
7533	RowBox[{"(",
7534	RowBox[{
7535	RowBox[{"9", " ",
7536	SuperscriptBox["MT2", "3"]}], "-",
7537	RowBox[{
7538	RowBox[{"(",
7539	RowBox[{
7540	RowBox[{"12", " ", "MW2"}], "+",
7541	RowBox[{"10", " ", "S"}], "+",
7542	RowBox[{"15", " ", "T"}]}], ")"}], " ",
7543	SuperscriptBox["MT2", "2"]}], "+",
7544	RowBox[{
7545	RowBox[{"(",
7546	RowBox[{
7547	RowBox[{"6", " ",
7548	SuperscriptBox["MW2", "2"]}], "+",
7549	RowBox[{"12", " ", "T", " ", "MW2"}], "-",
7550	RowBox[{"3", " ",
7551	SuperscriptBox["S", "2"]}], "+",
7552	RowBox[{"9", " ",
7553	SuperscriptBox["T", "2"]}], "+",
7554	RowBox[{"8", " ", "S", " ", "T"}]}], ")"}], " ", "MT2"}],
7555	"-",
7556	RowBox[{"T", " ",
7557	RowBox[{"(",
7558	RowBox[{
7559	RowBox[{"6", " ",
7560	SuperscriptBox["MW2", "2"]}], "-",
7561	RowBox[{"12", " ", "S", " ", "MW2"}], "+",
7562	RowBox[{
7563	RowBox[{"(",
7564	RowBox[{
7565	RowBox[{"3", " ", "S"}], "+", "T"}], ")"}], " ",
7566	RowBox[{"(",
7567	RowBox[{"S", "+",
7568	RowBox[{"3", " ", "T"}]}], ")"}]}]}], ")"}]}]}], ")"}],
7569	" ", "MB2"}], "+",
7570	RowBox[{"S", " ",
7571	RowBox[{"(",
7572	RowBox[{
7573	RowBox[{
7574	RowBox[{"-", "3"}], " ",
7575	SuperscriptBox["MT2", "3"]}], "+",
7576	RowBox[{
7577	RowBox[{"(",
7578	RowBox[{
7579	RowBox[{"6", " ", "MW2"}], "+",
7580	RowBox[{"2", " ", "S"}], "+",
7581	RowBox[{"3", " ", "T"}]}], ")"}], " ",
7582	SuperscriptBox["MT2", "2"]}], "+",
7583	RowBox[{
7584	RowBox[{"(",
7585	RowBox[{
7586	RowBox[{
7587	RowBox[{"(",
7588	RowBox[{"S", "-", "T"}], ")"}], " ",
7589	RowBox[{"(",
7590	RowBox[{"S", "+",
7591	RowBox[{"3", " ", "T"}]}], ")"}]}], "-",
7592	RowBox[{"6", " ",
7593	SuperscriptBox["MW2", "2"]}]}], ")"}], " ", "MT2"}], "+",
7594
7595	RowBox[{"T", " ",
7596	RowBox[{"(",
7597	RowBox[{
7598	RowBox[{"6", " ",
7599	SuperscriptBox["MW2", "2"]}], "-",
7600	RowBox[{"6", " ",
7601	RowBox[{"(",
7602	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "-",
7603	RowBox[{
7604	RowBox[{"(",
7605	RowBox[{"S", "-",
7606	RowBox[{"3", " ", "T"}]}], ")"}], " ",
7607	RowBox[{"(",
7608	RowBox[{"S", "+", "T"}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
7609	")"}], " ", "v", " ",
7610	SuperscriptBox["CtW", "\[Conjugate]"], " ",
7611	SuperscriptBox["Linv", "2"]}], "+",
7612	RowBox[{"2", " ", "Alfa", " ", "CKM33", " ", "\[Pi]", " ",
7613	RowBox[{"(",
7614	RowBox[{
7615	RowBox[{
7616	RowBox[{"(",
7617	RowBox[{
7618	RowBox[{"3", " ", "MT2"}], "-", "T"}], ")"}], " ",
7619	SuperscriptBox["MB2", "4"]}], "+",
7620	RowBox[{
7621	RowBox[{"(",
7622	RowBox[{
7623	SuperscriptBox["MT2", "2"], "+",
7624	RowBox[{
7625	RowBox[{"(",
7626	RowBox[{
7627	RowBox[{"2", " ", "MW2"}], "-",
7628	RowBox[{"5", " ", "S"}], "-",
7629	RowBox[{"7", " ", "T"}]}], ")"}], " ", "MT2"}], "+",
7630	RowBox[{"T", " ",
7631	RowBox[{"(",
7632	RowBox[{"S", "+",
7633	RowBox[{"2", " ", "T"}]}], ")"}]}]}], ")"}], " ",
7634	SuperscriptBox["MB2", "3"]}], "+",
7635	RowBox[{
7636	RowBox[{"(",
7637	RowBox[{
7638	SuperscriptBox["MT2", "3"], "+",
7639	RowBox[{
7640	RowBox[{"(",
7641	RowBox[{
7642	RowBox[{"8", " ", "MW2"}], "-",
7643	RowBox[{"3", " ",
7644	RowBox[{"(",
7645	RowBox[{"S", "+", "T"}], ")"}]}]}], ")"}], " ",
7646	SuperscriptBox["MT2", "2"]}], "+",
7647	RowBox[{
7648	RowBox[{"(",
7649	RowBox[{
7650	RowBox[{
7651	RowBox[{"-", "6"}], " ",
7652	SuperscriptBox["MW2", "2"]}], "-",
7653	RowBox[{"6", " ",
7654	RowBox[{"(",
7655	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
7656	RowBox[{"3", " ",
7657	SuperscriptBox["S", "2"]}], "+",
7658	RowBox[{"5", " ",
7659	SuperscriptBox["T", "2"]}], "+",
7660	RowBox[{"13", " ", "S", " ", "T"}]}], ")"}], " ", "MT2"}],
7661	"-",
7662	RowBox[{"T", " ",
7663	RowBox[{"(",
7664	RowBox[{
7665	RowBox[{
7666	RowBox[{"-", "2"}], " ",
7667	SuperscriptBox["MW2", "2"]}], "-",
7668	RowBox[{"2", " ", "S", " ", "MW2"}], "+",
7669	SuperscriptBox[
7670	RowBox[{"(",
7671	RowBox[{"S", "+", "T"}], ")"}], "2"]}], ")"}]}]}], ")"}],
7672	" ",
7673	SuperscriptBox["MB2", "2"]}], "+",
7674	RowBox[{
7675	RowBox[{"(",
7676	RowBox[{
7677	RowBox[{"3", " ",
7678	SuperscriptBox["MT2", "4"]}], "+",
7679	RowBox[{
7680	RowBox[{"(",
7681	RowBox[{
7682	RowBox[{"2", " ", "MW2"}], "-",
7683	RowBox[{"7", " ", "S"}], "-",
7684	RowBox[{"5", " ", "T"}]}], ")"}], " ",
7685	SuperscriptBox["MT2", "3"]}], "+",
7686	RowBox[{
7687	RowBox[{"(",
7688	RowBox[{
7689	RowBox[{
7690	RowBox[{"-", "6"}], " ",
7691	SuperscriptBox["MW2", "2"]}], "-",
7692	RowBox[{"6", " ",
7693	RowBox[{"(",
7694	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
7695	RowBox[{"5", " ",
7696	SuperscriptBox["S", "2"]}], "+",
7697	RowBox[{"3", " ",
7698	SuperscriptBox["T", "2"]}], "+",
7699	RowBox[{"13", " ", "S", " ", "T"}]}], ")"}], " ",
7700	SuperscriptBox["MT2", "2"]}], "+",
7701	RowBox[{
7702	RowBox[{"(",
7703	RowBox[{
7704	RowBox[{"4", " ",
7705	SuperscriptBox["MW2", "3"]}], "+",
7706	RowBox[{"6", " ",
7707	RowBox[{"(",
7708	RowBox[{"S", "+", "T"}], ")"}], " ",
7709	SuperscriptBox["MW2", "2"]}], "+",
7710	RowBox[{"6", " ",
7711	RowBox[{"(",
7712	RowBox[{
7713	SuperscriptBox["S", "2"], "+",
7714	SuperscriptBox["T", "2"]}], ")"}], " ", "MW2"}], "-",
7715	RowBox[{
7716	RowBox[{"(",
7717	RowBox[{"S", "+", "T"}], ")"}], " ",
7718	RowBox[{"(",
7719	RowBox[{
7720	SuperscriptBox["S", "2"], "+",
7721	RowBox[{"10", " ", "T", " ", "S"}], "+",
7722	SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}], " ",
7723	"MT2"}], "+",
7724	RowBox[{"T", " ",
7725	RowBox[{"(",
7726	RowBox[{
7727	RowBox[{
7728	RowBox[{"-", "4"}], " ",
7729	SuperscriptBox["MW2", "3"]}], "+",
7730	RowBox[{"2", " ", "S", " ",
7731	SuperscriptBox["MW2", "2"]}], "-",
7732	RowBox[{"2", " ",
7733	RowBox[{"(",
7734	RowBox[{
7735	RowBox[{"2", " ",
7736	SuperscriptBox["S", "2"]}], "-",
7737	RowBox[{"T", " ", "S"}], "+",
7738	SuperscriptBox["T", "2"]}], ")"}], " ", "MW2"}], "+",
7739	RowBox[{"S", " ",
7740	SuperscriptBox[
7741	RowBox[{"(",
7742	RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}]}]}],
7743	")"}], " ", "MB2"}], "+",
7744	RowBox[{"S", " ",
7745	RowBox[{"(",
7746	RowBox[{
7747	RowBox[{"-",
7748	SuperscriptBox["MT2", "4"]}], "+",
7749	RowBox[{
7750	RowBox[{"(",
7751	RowBox[{
7752	RowBox[{"2", " ", "S"}], "+", "T"}], ")"}], " ",
7753	SuperscriptBox["MT2", "3"]}], "+",
7754	RowBox[{
7755	RowBox[{"(",
7756	RowBox[{
7757	RowBox[{"2", " ",
7758	SuperscriptBox["MW2", "2"]}], "+",
7759	RowBox[{"2", " ", "T", " ", "MW2"}], "-",
7760	SuperscriptBox[
7761	RowBox[{"(",
7762	RowBox[{"S", "+", "T"}], ")"}], "2"]}], ")"}], " ",
7763	SuperscriptBox["MT2", "2"]}], "+",
7764	RowBox[{
7765	RowBox[{"(",
7766	RowBox[{
7767	RowBox[{
7768	RowBox[{"-", "4"}], " ",
7769	SuperscriptBox["MW2", "3"]}], "+",
7770	RowBox[{"2", " ", "T", " ",
7771	SuperscriptBox["MW2", "2"]}], "-",
7772	RowBox[{"2", " ",
7773	RowBox[{"(",
7774	RowBox[{
7775	SuperscriptBox["S", "2"], "-",
7776	RowBox[{"T", " ", "S"}], "+",
7777	RowBox[{"2", " ",
7778	SuperscriptBox["T", "2"]}]}], ")"}], " ", "MW2"}], "+",
7779	RowBox[{"T", " ",
7780	SuperscriptBox[
7781	RowBox[{"(",
7782	RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}], " ",
7783	"MT2"}], "+",
7784	RowBox[{"2", " ", "MW2", " ", "T", " ",
7785	RowBox[{"(",
7786	RowBox[{
7787	RowBox[{"2", " ",
7788	SuperscriptBox["MW2", "2"]}], "-",
7789	RowBox[{"2", " ",
7790	RowBox[{"(",
7791	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
7792	SuperscriptBox["S", "2"], "+",
7793	SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}]}]}],
7794	")"}]}]}], ")"}]}]}], ")"}]}]}]}], TraditionalForm]], "Output",
7795	CellChangeTimes->{3.500619397528989^9, 3.500620045018338^9,
7796	3.500620139625103^9, 3.50062070430739^9, 3.500620958310176*^9,
7797	3.5006276891287193`^9, 3.500718661692122^9}]
7798	}, Open ]],
7799
7800	Cell[BoxData[
7801	RowBox[{
7802	RowBox[{"M5", "=",
7803	RowBox[{"Simplify", "[",
7804	RowBox[{
7805	RowBox[{"2", "*",
7806	RowBox[{
7807	RowBox[{
7808	RowBox[{"M4", "/", "8"}], "/", "2"}], "/", "3"}]}], "/.",
7809	RowBox[{"MB2", "\[Rule]", "0"}]}], "]"}]}], ";"}]], "Input",
7810	CellChangeTimes->{{3.500619408652945^9, 3.500619444131513^9}, {
7811	3.500620186564165^9, 3.50062022207979^9}}],
7812
7813	Cell[CellGroupData[{
7814
7815	Cell[BoxData["M5"], "Input",
7816	CellChangeTimes->{{3.5006194476506643`^9, 3.5006194497548857`^9}}],
7817
7818	Cell[BoxData[
7819	FormBox[
7820	RowBox[{"-",
7821	RowBox[{
7822	FractionBox["1",
7823	RowBox[{"3", " ", "MW2", " ",
7824	SuperscriptBox["S", "2"], " ",
7825	SuperscriptBox["sw", "2"], " ",
7826	SuperscriptBox[
7827	RowBox[{"(",
7828	RowBox[{"MT2", "-", "T"}], ")"}], "2"]}]],
7829	RowBox[{"Alfas", " ", "\[Pi]", " ",
7830	RowBox[{"(",
7831	RowBox[{
7832	RowBox[{
7833	SqrtBox["2"], " ", "CKM33", " ", "CtW", " ", "EL", " ", "MT", " ",
7834	"MW2", " ", "S", " ", "sw", " ",
7835	RowBox[{"(",
7836	RowBox[{
7837	RowBox[{
7838	RowBox[{"-", "3"}], " ",
7839	SuperscriptBox["MT2", "3"]}], "+",
7840	RowBox[{
7841	RowBox[{"(",
7842	RowBox[{
7843	RowBox[{"6", " ", "MW2"}], "+",
7844	RowBox[{"2", " ", "S"}], "+",
7845	RowBox[{"3", " ", "T"}]}], ")"}], " ",
7846	SuperscriptBox["MT2", "2"]}], "+",
7847	RowBox[{
7848	RowBox[{"(",
7849	RowBox[{
7850	RowBox[{
7851	RowBox[{"(",
7852	RowBox[{"S", "-", "T"}], ")"}], " ",
7853	RowBox[{"(",
7854	RowBox[{"S", "+",
7855	RowBox[{"3", " ", "T"}]}], ")"}]}], "-",
7856	RowBox[{"6", " ",
7857	SuperscriptBox["MW2", "2"]}]}], ")"}], " ", "MT2"}], "+",
7858	RowBox[{"T", " ",
7859	RowBox[{"(",
7860	RowBox[{
7861	RowBox[{"6", " ",
7862	SuperscriptBox["MW2", "2"]}], "-",
7863	RowBox[{"6", " ",
7864	RowBox[{"(",
7865	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "-",
7866	RowBox[{
7867	RowBox[{"(",
7868	RowBox[{"S", "-",
7869	RowBox[{"3", " ", "T"}]}], ")"}], " ",
7870	RowBox[{"(",
7871	RowBox[{"S", "+", "T"}], ")"}]}]}], ")"}]}]}], ")"}], " ", "v",
7872	" ",
7873	SuperscriptBox["Linv", "2"]}], "+",
7874	RowBox[{
7875	SuperscriptBox["CKM33", "\[Conjugate]"], " ",
7876	RowBox[{"(",
7877	RowBox[{
7878	RowBox[{
7879	SqrtBox["2"], " ", "EL", " ", "MT", " ", "MW2", " ", "S", " ",
7880	"sw", " ",
7881	RowBox[{"(",
7882	RowBox[{
7883	RowBox[{
7884	RowBox[{"-", "3"}], " ",
7885	SuperscriptBox["MT2", "3"]}], "+",
7886	RowBox[{
7887	RowBox[{"(",
7888	RowBox[{
7889	RowBox[{"6", " ", "MW2"}], "+",
7890	RowBox[{"2", " ", "S"}], "+",
7891	RowBox[{"3", " ", "T"}]}], ")"}], " ",
7892	SuperscriptBox["MT2", "2"]}], "+",
7893	RowBox[{
7894	RowBox[{"(",
7895	RowBox[{
7896	RowBox[{
7897	RowBox[{"(",
7898	RowBox[{"S", "-", "T"}], ")"}], " ",
7899	RowBox[{"(",
7900	RowBox[{"S", "+",
7901	RowBox[{"3", " ", "T"}]}], ")"}]}], "-",
7902	RowBox[{"6", " ",
7903	SuperscriptBox["MW2", "2"]}]}], ")"}], " ", "MT2"}], "+",
7904	RowBox[{"T", " ",
7905	RowBox[{"(",
7906	RowBox[{
7907	RowBox[{"6", " ",
7908	SuperscriptBox["MW2", "2"]}], "-",
7909	RowBox[{"6", " ",
7910	RowBox[{"(",
7911	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "-",
7912	RowBox[{
7913	RowBox[{"(",
7914	RowBox[{"S", "-",
7915	RowBox[{"3", " ", "T"}]}], ")"}], " ",
7916	RowBox[{"(",
7917	RowBox[{"S", "+", "T"}], ")"}]}]}], ")"}]}]}], ")"}], " ",
7918	"v", " ",
7919	SuperscriptBox["CtW", "\[Conjugate]"], " ",
7920	SuperscriptBox["Linv", "2"]}], "+",
7921	RowBox[{
7922	"2", " ", "Alfa", " ", "CKM33", " ", "\[Pi]", " ", "S", " ",
7923	RowBox[{"(",
7924	RowBox[{
7925	RowBox[{"-",
7926	SuperscriptBox["MT2", "4"]}], "+",
7927	RowBox[{
7928	RowBox[{"(",
7929	RowBox[{
7930	RowBox[{"2", " ", "S"}], "+", "T"}], ")"}], " ",
7931	SuperscriptBox["MT2", "3"]}], "+",
7932	RowBox[{
7933	RowBox[{"(",
7934	RowBox[{
7935	RowBox[{"2", " ",
7936	SuperscriptBox["MW2", "2"]}], "+",
7937	RowBox[{"2", " ", "T", " ", "MW2"}], "-",
7938	SuperscriptBox[
7939	RowBox[{"(",
7940	RowBox[{"S", "+", "T"}], ")"}], "2"]}], ")"}], " ",
7941	SuperscriptBox["MT2", "2"]}], "+",
7942	RowBox[{
7943	RowBox[{"(",
7944	RowBox[{
7945	RowBox[{
7946	RowBox[{"-", "4"}], " ",
7947	SuperscriptBox["MW2", "3"]}], "+",
7948	RowBox[{"2", " ", "T", " ",
7949	SuperscriptBox["MW2", "2"]}], "-",
7950	RowBox[{"2", " ",
7951	RowBox[{"(",
7952	RowBox[{
7953	SuperscriptBox["S", "2"], "-",
7954	RowBox[{"T", " ", "S"}], "+",
7955	RowBox[{"2", " ",
7956	SuperscriptBox["T", "2"]}]}], ")"}], " ", "MW2"}], "+",
7957	RowBox[{"T", " ",
7958	SuperscriptBox[
7959	RowBox[{"(",
7960	RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}], " ",
7961	"MT2"}], "+",
7962	RowBox[{"2", " ", "MW2", " ", "T", " ",
7963	RowBox[{"(",
7964	RowBox[{
7965	RowBox[{"2", " ",
7966	SuperscriptBox["MW2", "2"]}], "-",
7967	RowBox[{"2", " ",
7968	RowBox[{"(",
7969	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
7970	SuperscriptBox["S", "2"], "+",
7971	SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
7972	")"}]}]}]}], TraditionalForm]], "Output",
7973	CellChangeTimes->{3.5006194501200047`^9, 3.5006200855107203`^9,
7974	3.500620149404791^9, 3.500620225331334^9, 3.5006207051194983`*^9,
7975	3.500620959722974^9, 3.500627690119762^9}]
7976	}, Open ]],
7977
7978	Cell[CellGroupData[{
7979
7980	Cell[BoxData[
7981	RowBox[{"FullSimplify", "[",
7982	RowBox[{
7983	RowBox[{
7984	RowBox[{"Coefficient", "[",
7985	RowBox[{"M5", ",", "Linv", ",", "2"}], "]"}], "/.",
7986	RowBox[{"{",
7987	RowBox[{
7988	RowBox[{"Alfas", "\[Rule]",
7989	RowBox[{"(",
7990	RowBox[{
7991	RowBox[{
7992	RowBox[{"gS", "^", "2"}], "/", "4"}], "/", "\[Pi]"}], ")"}]}], ",",
7993
7994	RowBox[{"Alfa", "\[Rule]",
7995	RowBox[{"(",
7996	RowBox[{
7997	RowBox[{
7998	RowBox[{
7999	RowBox[{"gw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}], "*",
8000	RowBox[{"sw", "^", "2"}]}], ")"}]}], ",",
8001	RowBox[{"v", "\[Rule]",
8002	RowBox[{"2", "", "sw", "",
8003	RowBox[{"MW", "/", "EL"}]}]}]}], "}"}]}], ",",
8004	RowBox[{"Assumptions", "\[Rule]",
8005	RowBox[{"{",
8006	RowBox[{"CKM33", "\[Element]", "Reals"}], "}"}]}]}], "]"}]], "Input",
8007	CellChangeTimes->{{3.500619459070675^9, 3.500619488358326^9},
8008	3.500620475539863^9, {3.500627680877668^9, 3.500627742378986*^9}, {
8009	3.500718673779214^9, 3.500718712330826^9}}],
8010
8011	Cell[BoxData[
8012	FormBox[
8013	FractionBox[
8014	RowBox[{
8015	SqrtBox["2"], " ", "CKM33", " ",
8016	SuperscriptBox["gS", "2"], " ", "MT", " ", "MW", " ",
8017	RowBox[{"(",
8018	RowBox[{
8019	RowBox[{"3", " ",
8020	SuperscriptBox["MT2", "3"]}], "-",
8021	RowBox[{
8022	RowBox[{"(",
8023	RowBox[{
8024	RowBox[{"6", " ", "MW2"}], "+",
8025	RowBox[{"2", " ", "S"}], "+",
8026	RowBox[{"3", " ", "T"}]}], ")"}], " ",
8027	SuperscriptBox["MT2", "2"]}], "+",
8028	RowBox[{
8029	RowBox[{"(",
8030	RowBox[{
8031	RowBox[{"6", " ",
8032	SuperscriptBox["MW2", "2"]}], "-",
8033	RowBox[{
8034	RowBox[{"(",
8035	RowBox[{"S", "-", "T"}], ")"}], " ",
8036	RowBox[{"(",
8037	RowBox[{"S", "+",
8038	RowBox[{"3", " ", "T"}]}], ")"}]}]}], ")"}], " ", "MT2"}], "+",
8039	RowBox[{"T", " ",
8040	RowBox[{"(",
8041	RowBox[{
8042	RowBox[{
8043	RowBox[{"-", "6"}], " ",
8044	SuperscriptBox["MW2", "2"]}], "+",
8045	RowBox[{"6", " ",
8046	RowBox[{"(",
8047	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
8048	RowBox[{
8049	RowBox[{"(",
8050	RowBox[{"S", "-",
8051	RowBox[{"3", " ", "T"}]}], ")"}], " ",
8052	RowBox[{"(",
8053	RowBox[{"S", "+", "T"}], ")"}]}]}], ")"}]}]}], ")"}], " ",
8054	RowBox[{"Re", "(", "CtW", ")"}]}],
8055	RowBox[{"3", " ", "S", " ",
8056	SuperscriptBox[
8057	RowBox[{"(",
8058	RowBox[{"MT2", "-", "T"}], ")"}], "2"]}]], TraditionalForm]], "Output",
8059	CellChangeTimes->{3.500627711568761^9, 3.500627744389079^9,
8060	3.500718722641972*^9}]
8061	}, Open ]]
8062	}, Closed]],
8063
8064	Cell[CellGroupData[{
8065
8066	Cell["C3phiq", "Section",
8067	CellChangeTimes->{{3.5006275137192793`^9, 3.5006275166533833`^9}}],
8068
8069	Cell[BoxData[
8070	RowBox[{
8071	RowBox[{"M2", " ", "=", " ",
8072	RowBox[{
8073	RowBox[{
8074	RowBox[{
8075	RowBox[{
8076	RowBox[{
8077	RowBox[{"SquaredME", "[", "M", "]"}], "/.", "col"}], "/.", "hel"}], "/.",
8078	"M$FACouplings"}], "/.",
8079	RowBox[{"{",
8080	RowBox[{
8081	RowBox[{
8082	RowBox[{"Conjugate", "[", "Lambda", "]"}], "\[Rule]",
8083	RowBox[{"1", "/", "Linv"}]}], ",",
8084	RowBox[{"Lambda", "\[Rule]",
8085	RowBox[{"1", "/", "Linv"}]}]}], "}"}]}], "/.",
8086	RowBox[{"{",
8087	RowBox[{
8088	RowBox[{
8089	RowBox[{"Linv", "^", "4"}], "\[Rule]", "0"}], ",",
8090	RowBox[{
8091	RowBox[{"Linv", "^", "6"}], "\[Rule]", "0"}], ",",
8092	RowBox[{"CtG", "\[Rule]", "0"}], ",",
8093	RowBox[{"CtW", "\[Rule]", "0"}], ",",
8094	RowBox[{
8095	RowBox[{"Conjugate", "[", "v", "]"}], "\[Rule]", "v"}], ",",
8096	RowBox[{
8097	RowBox[{"Conjugate", "[", "sw", "]"}], "\[Rule]", "sw"}], ",",
8098	RowBox[{
8099	RowBox[{"Conjugate", "[", "CKM33", "]"}], "\[Rule]", "CKM33"}]}],
8100	"}"}]}]}], ";"}]], "Input",
8101	CellChangeTimes->{{3.500622168785104^9, 3.500622172111658^9},
8102	3.500622329885127^9, 3.5006226252333603`^9, 3.500626903716991*^9,
8103	3.500627404903899*^9}],
8104
8105	Cell[CellGroupData[{
8106
8107	Cell[BoxData[
8108	RowBox[{
8109	RowBox[{"M3", "=",
8110	RowBox[{"PolarizationSum", "[", "M2", "]"}]}], ";"}]], "Input",
8111	CellChangeTimes->{
8112	3.49966507338302^9, {3.499665479244595^9, 3.499665508978133*^9}, {
8113	3.499666915703204^9, 3.499666925813794^9}, {3.500618089746357*^9,
8114	3.500618099391782^9}, {3.500626920284443^9, 3.50062692049039*^9},
8115	3.5006277969133472`*^9}],
8116
8117	Cell[CellGroupData[{
8118
8119	Cell[BoxData[
8120	FormBox["\<\"\"\>", TraditionalForm]], "Print",
8121	CellChangeTimes->{
8122	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
8123	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
8124	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
8125	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
8126	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
8127	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
8128	3.500619309117373^9, 3.500620038495502^9, 3.50062159324461*^9,
8129	3.500621894402315^9, 3.5006220490952044`^9, 3.500622114713565*^9,
8130	3.50062692166899^9, {3.500627786753311^9, 3.500627797639176*^9},
8131	3.5007187756723957`*^9}],
8132
8133	Cell[BoxData[
8134	FormBox[
8135	InterpretationBox[
8136	RowBox[{"\<\"preparing FORM code in \"\>",
8137	"\[InvisibleSpace]", \
8138	"\<\"/nfs/home/d/degrande/eta/FeynProg/FormCalc-7.0/fc4.frm\"\>"}],
8139	SequenceForm[
8140	"preparing FORM code in ",
8141	"/nfs/home/d/degrande/eta/FeynProg/FormCalc-7.0/fc4.frm"],
8142	Editable->False], TraditionalForm]], "Print",
8143	CellChangeTimes->{
8144	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
8145	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
8146	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
8147	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
8148	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
8149	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
8150	3.500619309117373^9, 3.500620038495502^9, 3.50062159324461*^9,
8151	3.500621894402315^9, 3.5006220490952044`^9, 3.500622114713565*^9,
8152	3.50062692166899^9, {3.500627786753311^9, 3.500627797639176*^9},
8153	3.500718775689188*^9}],
8154
8155	Cell["running FORM... ", "Print",
8156	CellChangeTimes->{
8157	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
8158	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
8159	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
8160	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
8161	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
8162	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
8163	3.500619309117373^9, 3.500620038495502^9, 3.50062159324461*^9,
8164	3.500621894402315^9, 3.5006220490952044`^9, 3.500622114713565*^9,
8165	3.50062692166899^9, {3.500627786753311^9, 3.500627797639176*^9},
8166	3.5007187759569387`*^9}],
8167
8168	Cell[BoxData[
8169	FormBox["\<\"ok\"\>", TraditionalForm]], "Print",
8170	CellChangeTimes->{
8171	3.499600589590599^9, {3.499600654562523^9, 3.4996006662132063`*^9},
8172	3.4996647320023203`^9, 3.499664809869158^9, 3.499665423953055*^9,
8173	3.499666927140604^9, 3.500187295333789^9, 3.5001877245136967`*^9,
8174	3.500385582328672^9, 3.5006171283874817`^9, 3.500617337208673*^9,
8175	3.5006173955899076`^9, 3.5006180272919273`^9, {3.500618090755332*^9,
8176	3.500618100419582^9}, 3.5006183273770437`^9, 3.5006185525869417`*^9,
8177	3.500619309117373^9, 3.500620038495502^9, 3.50062159324461*^9,
8178	3.500621894402315^9, 3.5006220490952044`^9, 3.500622114713565*^9,
8179	3.50062692166899^9, {3.500627786753311^9, 3.500627797639176*^9},
8180	3.500718776973324*^9}]
8181	}, Open ]]
8182	}, Open ]],
8183
8184	Cell[CellGroupData[{
8185
8186	Cell[BoxData[
8187	RowBox[{"M4", "=",
8188	RowBox[{"FullSimplify", "[",
8189	RowBox[{
8190	RowBox[{
8191	RowBox[{
8192	RowBox[{"Normal", "[",
8193	RowBox[{"Series", "[",
8194	RowBox[{"M3", ",",
8195	RowBox[{"{",
8196	RowBox[{"Linv", ",", "0", ",", "2"}], "}"}]}], "]"}], "]"}], "//.",
8197
8198	RowBox[{"Abbr", "[", "]"}]}], "/.",
8199	RowBox[{"{",
8200	RowBox[{
8201	RowBox[{"Den", "[",
8202	RowBox[{"a_", ",", "b_"}], "]"}], "\[Rule]",
8203	RowBox[{"1", "/",
8204	RowBox[{"(",
8205	RowBox[{"a", "-", "b"}], ")"}]}]}], "}"}]}], "/.",
8206	RowBox[{"{",
8207	RowBox[{"U", "\[Rule]",
8208	RowBox[{"MT2", "+", "MW2", "+", "MB2", "-", "S", "-", "T"}]}], "}"}]}],
8209	"]"}]}]], "Input",
8210	CellChangeTimes->{{3.4996648609705343`^9, 3.49966486381705^9}, {
8211	3.499664897114004^9, 3.4996649050225286`^9}, {3.4996649968834343`*^9,
8212	3.4996650162489157`^9}, {3.500187384138556^9, 3.500187385860238*^9}, {
8213	3.5001874741497707`^9, 3.500187475289146^9}, {3.5003856142464657`*^9,
8214	3.500385660569497^9}, {3.5003856940596933`^9, 3.50038571227074*^9}, {
8215	3.50038580404515^9, 3.500385805944021^9}, {3.500617355905836*^9,
8216	3.5006173850556173`^9}, {3.500618104014385^9, 3.500618138789729*^9}, {
8217	3.500619354866448^9, 3.500619394664554^9}, {3.500620119494914*^9,
8218	3.5006201203887033`*^9}}],
8219
8220	Cell[BoxData[
8221	FormBox[
8222	RowBox[{"-",
8223	RowBox[{
8224	FractionBox["1",
8225	RowBox[{"MW2", " ",
8226	SuperscriptBox[
8227	RowBox[{"(",
8228	RowBox[{"MB2", "-", "S"}], ")"}], "2"], " ",
8229	SuperscriptBox["sw", "2"], " ",
8230	SuperscriptBox[
8231	RowBox[{"(",
8232	RowBox[{"MT2", "-", "T"}], ")"}], "2"]}]],
8233	RowBox[{"16", " ", "Alfa", " ", "Alfas", " ", "CKM33", " ",
8234	SuperscriptBox["\[Pi]", "2"], " ",
8235	RowBox[{"(",
8236	RowBox[{
8237	RowBox[{
8238	RowBox[{"(",
8239	RowBox[{
8240	RowBox[{"3", " ", "MT2"}], "-", "T"}], ")"}], " ",
8241	SuperscriptBox["MB2", "4"]}], "+",
8242	RowBox[{
8243	RowBox[{"(",
8244	RowBox[{
8245	SuperscriptBox["MT2", "2"], "+",
8246	RowBox[{
8247	RowBox[{"(",
8248	RowBox[{
8249	RowBox[{"2", " ", "MW2"}], "-",
8250	RowBox[{"5", " ", "S"}], "-",
8251	RowBox[{"7", " ", "T"}]}], ")"}], " ", "MT2"}], "+",
8252	RowBox[{"T", " ",
8253	RowBox[{"(",
8254	RowBox[{"S", "+",
8255	RowBox[{"2", " ", "T"}]}], ")"}]}]}], ")"}], " ",
8256	SuperscriptBox["MB2", "3"]}], "+",
8257	RowBox[{
8258	RowBox[{"(",
8259	RowBox[{
8260	SuperscriptBox["MT2", "3"], "+",
8261	RowBox[{
8262	RowBox[{"(",
8263	RowBox[{
8264	RowBox[{"8", " ", "MW2"}], "-",
8265	RowBox[{"3", " ",
8266	RowBox[{"(",
8267	RowBox[{"S", "+", "T"}], ")"}]}]}], ")"}], " ",
8268	SuperscriptBox["MT2", "2"]}], "+",
8269	RowBox[{
8270	RowBox[{"(",
8271	RowBox[{
8272	RowBox[{
8273	RowBox[{"-", "6"}], " ",
8274	SuperscriptBox["MW2", "2"]}], "-",
8275	RowBox[{"6", " ",
8276	RowBox[{"(",
8277	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
8278	RowBox[{"3", " ",
8279	SuperscriptBox["S", "2"]}], "+",
8280	RowBox[{"5", " ",
8281	SuperscriptBox["T", "2"]}], "+",
8282	RowBox[{"13", " ", "S", " ", "T"}]}], ")"}], " ", "MT2"}], "-",
8283	RowBox[{"T", " ",
8284	RowBox[{"(",
8285	RowBox[{
8286	RowBox[{
8287	RowBox[{"-", "2"}], " ",
8288	SuperscriptBox["MW2", "2"]}], "-",
8289	RowBox[{"2", " ", "S", " ", "MW2"}], "+",
8290	SuperscriptBox[
8291	RowBox[{"(",
8292	RowBox[{"S", "+", "T"}], ")"}], "2"]}], ")"}]}]}], ")"}], " ",
8293
8294	SuperscriptBox["MB2", "2"]}], "+",
8295	RowBox[{
8296	RowBox[{"(",
8297	RowBox[{
8298	RowBox[{"3", " ",
8299	SuperscriptBox["MT2", "4"]}], "+",
8300	RowBox[{
8301	RowBox[{"(",
8302	RowBox[{
8303	RowBox[{"2", " ", "MW2"}], "-",
8304	RowBox[{"7", " ", "S"}], "-",
8305	RowBox[{"5", " ", "T"}]}], ")"}], " ",
8306	SuperscriptBox["MT2", "3"]}], "+",
8307	RowBox[{
8308	RowBox[{"(",
8309	RowBox[{
8310	RowBox[{
8311	RowBox[{"-", "6"}], " ",
8312	SuperscriptBox["MW2", "2"]}], "-",
8313	RowBox[{"6", " ",
8314	RowBox[{"(",
8315	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
8316	RowBox[{"5", " ",
8317	SuperscriptBox["S", "2"]}], "+",
8318	RowBox[{"3", " ",
8319	SuperscriptBox["T", "2"]}], "+",
8320	RowBox[{"13", " ", "S", " ", "T"}]}], ")"}], " ",
8321	SuperscriptBox["MT2", "2"]}], "+",
8322	RowBox[{
8323	RowBox[{"(",
8324	RowBox[{
8325	RowBox[{"4", " ",
8326	SuperscriptBox["MW2", "3"]}], "+",
8327	RowBox[{"6", " ",
8328	RowBox[{"(",
8329	RowBox[{"S", "+", "T"}], ")"}], " ",
8330	SuperscriptBox["MW2", "2"]}], "+",
8331	RowBox[{"6", " ",
8332	RowBox[{"(",
8333	RowBox[{
8334	SuperscriptBox["S", "2"], "+",
8335	SuperscriptBox["T", "2"]}], ")"}], " ", "MW2"}], "-",
8336	RowBox[{
8337	RowBox[{"(",
8338	RowBox[{"S", "+", "T"}], ")"}], " ",
8339	RowBox[{"(",
8340	RowBox[{
8341	SuperscriptBox["S", "2"], "+",
8342	RowBox[{"10", " ", "T", " ", "S"}], "+",
8343	SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}], " ", "MT2"}],
8344	"+",
8345	RowBox[{"T", " ",
8346	RowBox[{"(",
8347	RowBox[{
8348	RowBox[{
8349	RowBox[{"-", "4"}], " ",
8350	SuperscriptBox["MW2", "3"]}], "+",
8351	RowBox[{"2", " ", "S", " ",
8352	SuperscriptBox["MW2", "2"]}], "-",
8353	RowBox[{"2", " ",
8354	RowBox[{"(",
8355	RowBox[{
8356	RowBox[{"2", " ",
8357	SuperscriptBox["S", "2"]}], "-",
8358	RowBox[{"T", " ", "S"}], "+",
8359	SuperscriptBox["T", "2"]}], ")"}], " ", "MW2"}], "+",
8360	RowBox[{"S", " ",
8361	SuperscriptBox[
8362	RowBox[{"(",
8363	RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}]}]}], ")"}],
8364	" ", "MB2"}], "+",
8365	RowBox[{"S", " ",
8366	RowBox[{"(",
8367	RowBox[{
8368	RowBox[{"-",
8369	SuperscriptBox["MT2", "4"]}], "+",
8370	RowBox[{
8371	RowBox[{"(",
8372	RowBox[{
8373	RowBox[{"2", " ", "S"}], "+", "T"}], ")"}], " ",
8374	SuperscriptBox["MT2", "3"]}], "+",
8375	RowBox[{
8376	RowBox[{"(",
8377	RowBox[{
8378	RowBox[{"2", " ",
8379	SuperscriptBox["MW2", "2"]}], "+",
8380	RowBox[{"2", " ", "T", " ", "MW2"}], "-",
8381	SuperscriptBox[
8382	RowBox[{"(",
8383	RowBox[{"S", "+", "T"}], ")"}], "2"]}], ")"}], " ",
8384	SuperscriptBox["MT2", "2"]}], "+",
8385	RowBox[{
8386	RowBox[{"(",
8387	RowBox[{
8388	RowBox[{
8389	RowBox[{"-", "4"}], " ",
8390	SuperscriptBox["MW2", "3"]}], "+",
8391	RowBox[{"2", " ", "T", " ",
8392	SuperscriptBox["MW2", "2"]}], "-",
8393	RowBox[{"2", " ",
8394	RowBox[{"(",
8395	RowBox[{
8396	SuperscriptBox["S", "2"], "-",
8397	RowBox[{"T", " ", "S"}], "+",
8398	RowBox[{"2", " ",
8399	SuperscriptBox["T", "2"]}]}], ")"}], " ", "MW2"}], "+",
8400	RowBox[{"T", " ",
8401	SuperscriptBox[
8402	RowBox[{"(",
8403	RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}], " ", "MT2"}],
8404	"+",
8405	RowBox[{"2", " ", "MW2", " ", "T", " ",
8406	RowBox[{"(",
8407	RowBox[{
8408	RowBox[{"2", " ",
8409	SuperscriptBox["MW2", "2"]}], "-",
8410	RowBox[{"2", " ",
8411	RowBox[{"(",
8412	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
8413	SuperscriptBox["S", "2"], "+",
8414	SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}]}]}], ")"}], " ",
8415	RowBox[{"(",
8416	RowBox[{
8417	RowBox[{"2", " ",
8418	SuperscriptBox["Linv", "2"], " ",
8419	RowBox[{"Re", "(", "C3phiq", ")"}], " ",
8420	SuperscriptBox["v", "2"]}], "+", "CKM33"}], ")"}]}]}]}],
8421	TraditionalForm]], "Output",
8422	CellChangeTimes->{3.500619397528989^9, 3.500620045018338^9,
8423	3.500620139625103^9, 3.5006215990387907`^9, 3.5006219585093946`*^9,
8424	3.500622052109432^9, 3.500622118219303^9, 3.500626952351755*^9,
8425	3.500627787429153^9, 3.500627821656193^9, 3.500718793529174*^9}]
8426	}, Open ]],
8427
8428	Cell[BoxData[
8429	RowBox[{
8430	RowBox[{"M5", "=",
8431	RowBox[{"Simplify", "[",
8432	RowBox[{
8433	RowBox[{
8434	RowBox[{"2", "*",
8435	RowBox[{
8436	RowBox[{
8437	RowBox[{"M4", "/", "8"}], "/", "2"}], "/", "3"}]}], "/.",
8438	RowBox[{"MB2", "\[Rule]", "0"}]}], "/.",
8439	RowBox[{"{",
8440	RowBox[{
8441	RowBox[{"Alfas", "\[Rule]",
8442	RowBox[{"(",
8443	RowBox[{
8444	RowBox[{
8445	RowBox[{"gS", "^", "2"}], "/", "4"}], "/", "\[Pi]"}], ")"}]}], ",",
8446
8447	RowBox[{"Alfa", "\[Rule]",
8448	RowBox[{"(",
8449	RowBox[{
8450	RowBox[{
8451	RowBox[{
8452	RowBox[{"gw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}], "*",
8453	RowBox[{"sw", "^", "2"}]}], ")"}]}]}], "}"}]}], "]"}]}],
8454	";"}]], "Input",
8455	CellChangeTimes->{{3.500619408652945^9, 3.500619444131513^9}, {
8456	3.500620186564165^9, 3.50062022207979^9}, 3.500627033279106*^9,
8457	3.500718801130889*^9}],
8458
8459	Cell[CellGroupData[{
8460
8461	Cell[BoxData["M5"], "Input",
8462	CellChangeTimes->{{3.5006194476506643`^9, 3.5006194497548857`^9}}],
8463
8464	Cell[BoxData[
8465	FormBox[
8466	RowBox[{
8467	FractionBox["1",
8468	RowBox[{"24", " ", "MW2", " ", "S", " ",
8469	SuperscriptBox[
8470	RowBox[{"(",
8471	RowBox[{"MT2", "-", "T"}], ")"}], "2"]}]],
8472	RowBox[{"CKM33", " ",
8473	SuperscriptBox["gS", "2"], " ",
8474	SuperscriptBox["gw", "2"], " ",
8475	RowBox[{"(",
8476	RowBox[{
8477	SuperscriptBox["MT2", "4"], "-",
8478	RowBox[{
8479	RowBox[{"(",
8480	RowBox[{
8481	RowBox[{"2", " ", "S"}], "+", "T"}], ")"}], " ",
8482	SuperscriptBox["MT2", "3"]}], "+",
8483	RowBox[{
8484	RowBox[{"(",
8485	RowBox[{
8486	RowBox[{
8487	RowBox[{"-", "2"}], " ",
8488	SuperscriptBox["MW2", "2"]}], "-",
8489	RowBox[{"2", " ", "T", " ", "MW2"}], "+",
8490	SuperscriptBox[
8491	RowBox[{"(",
8492	RowBox[{"S", "+", "T"}], ")"}], "2"]}], ")"}], " ",
8493	SuperscriptBox["MT2", "2"]}], "+",
8494	RowBox[{
8495	RowBox[{"(",
8496	RowBox[{
8497	RowBox[{"4", " ",
8498	SuperscriptBox["MW2", "3"]}], "-",
8499	RowBox[{"2", " ", "T", " ",
8500	SuperscriptBox["MW2", "2"]}], "+",
8501	RowBox[{"2", " ",
8502	RowBox[{"(",
8503	RowBox[{
8504	SuperscriptBox["S", "2"], "-",
8505	RowBox[{"T", " ", "S"}], "+",
8506	RowBox[{"2", " ",
8507	SuperscriptBox["T", "2"]}]}], ")"}], " ", "MW2"}], "-",
8508	RowBox[{"T", " ",
8509	SuperscriptBox[
8510	RowBox[{"(",
8511	RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}], " ", "MT2"}],
8512	"-",
8513	RowBox[{"2", " ", "MW2", " ", "T", " ",
8514	RowBox[{"(",
8515	RowBox[{
8516	RowBox[{"2", " ",
8517	SuperscriptBox["MW2", "2"]}], "-",
8518	RowBox[{"2", " ",
8519	RowBox[{"(",
8520	RowBox[{"S", "+", "T"}], ")"}], " ", "MW2"}], "+",
8521	SuperscriptBox["S", "2"], "+",
8522	SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}], " ",
8523	RowBox[{"(",
8524	RowBox[{
8525	RowBox[{"2", " ",
8526	SuperscriptBox["Linv", "2"], " ",
8527	RowBox[{"Re", "(", "C3phiq", ")"}], " ",
8528	SuperscriptBox["v", "2"]}], "+", "CKM33"}], ")"}]}]}],
8529	TraditionalForm]], "Output",
8530	CellChangeTimes->{3.5006194501200047`^9, 3.5006200855107203`^9,
8531	3.500620149404791^9, 3.500620225331334^9, 3.500621612904705*^9,
8532	3.500621974504005^9, 3.500622057317657^9, 3.500626960207111*^9,
8533	3.500627037683268^9, 3.500627822112309^9, 3.50071880673446*^9}]
8534	}, Open ]]
8535	}, Closed]]
8536	}, Open ]]
8537	}, Open ]]
8538	},
8539	WindowSize->{1269, 941},
8540	WindowMargins->{{0, Automatic}, {Automatic, 27}},
8541	PrintingPageRange->{Automatic, Automatic},
8542	PrintingOptions->{"Magnification"->1.,
8543	"PaperOrientation"->"Portrait",
8544	"PaperSize"->{594.25, 840.5},
8545	"PostScriptOutputFile"->"/nfs/home/0/d/degrande/Generic/test.nb.ps"},
8546	ShowSelection->True,
8547	Magnification->1.25,
8548	FrontEndVersion->"6.0 for Linux x86 (64-bit) (June 19, 2007)",
8549	StyleDefinitions->"Default.nb"
8550	]
8551	(* End of Notebook Content *)
8552
8553	(* Internal cache information *)
8554	(*CellTagsOutline
8555	CellTagsIndex->{}
8556	*)
8557	(*CellTagsIndex
8558	CellTagsIndex->{}
8559	*)
8560	(*NotebookFileOutline
8561	Notebook[{
8562	Cell[CellGroupData[{
8563	Cell[590, 23, 140, 2, 104, "Title"],
8564	Cell[733, 27, 170, 2, 37, "Text"],
8565	Cell[CellGroupData[{
8566	Cell[928, 33, 198, 3, 65, "Subtitle"],
8567	Cell[1129, 38, 118, 2, 38, "Input"],
8568	Cell[CellGroupData[{
8569	Cell[1272, 44, 365, 8, 64, "Input"],
8570	Cell[CellGroupData[{
8571	Cell[1662, 56, 1045, 16, 30, "Print"],
8572	Cell[2710, 74, 1059, 16, 30, "Print"],
8573	Cell[3772, 92, 1093, 17, 30, "Print"],
8574	Cell[4868, 111, 1067, 16, 30, "Print"]
8575	}, Open ]]
8576	}, Open ]],
8577	Cell[5962, 131, 437, 10, 38, "Input"],
8578	Cell[CellGroupData[{
8579	Cell[6424, 145, 127, 2, 38, "Input"],
8580	Cell[CellGroupData[{
8581	Cell[6576, 151, 379, 9, 30, "Print"],
8582	Cell[6958, 162, 379, 9, 30, "Print"],
8583	Cell[7340, 173, 379, 9, 30, "Print"],
8584	Cell[7722, 184, 379, 9, 30, "Print"],
8585	Cell[8104, 195, 4906, 118, 505, "Print"]
8586	}, Open ]],
8587	Cell[13025, 316, 2023, 57, 79, "Output"]
8588	}, Closed]],
8589	Cell[CellGroupData[{
8590	Cell[15085, 378, 1769, 36, 56, "Input"],
8591	Cell[CellGroupData[{
8592	Cell[16879, 418, 203, 4, 30, "Print"],
8593	Cell[17085, 424, 674, 16, 30, "Print"],
8594	Cell[17762, 442, 221, 4, 30, "Print"],
8595	Cell[17986, 448, 488, 11, 30, "Print"],
8596	Cell[18477, 461, 205, 4, 30, "Print"],
8597	Cell[18685, 467, 674, 16, 30, "Print"],
8598	Cell[19362, 485, 524, 11, 30, "Print"],
8599	Cell[19889, 498, 225, 4, 30, "Print"],
8600	Cell[20117, 504, 377, 9, 30, "Print"],
8601	Cell[20497, 515, 488, 11, 30, "Print"],
8602	Cell[20988, 528, 203, 4, 30, "Print"],
8603	Cell[21194, 534, 488, 12, 30, "Print"],
8604	Cell[21685, 548, 507, 12, 30, "Print"],
8605	Cell[22195, 562, 505, 12, 30, "Print"],
8606	Cell[22703, 576, 507, 12, 30, "Print"],
8607	Cell[23213, 590, 505, 12, 30, "Print"],
8608	Cell[23721, 604, 436, 11, 30, "Print"]
8609	}, Open ]]
8610	}, Open ]],
8611	Cell[CellGroupData[{
8612	Cell[24206, 621, 267, 4, 38, "Input"],
8613	Cell[CellGroupData[{
8614	Cell[24498, 629, 474, 10, 30, "Print"],
8615	Cell[24975, 641, 34406, 756, 505, "Print"]
8616	}, Open ]],
8617	Cell[59396, 1400, 3610, 94, 79, "Output"]
8618	}, Open ]],
8619	Cell[CellGroupData[{
8620	Cell[63043, 1499, 368, 7, 38, "Input"],
8621	Cell[CellGroupData[{
8622	Cell[63436, 1510, 270, 4, 30, "Print"],
8623	Cell[63709, 1516, 576, 12, 30, "Print"],
8624	Cell[64288, 1530, 572, 12, 30, "Print"],
8625	Cell[64863, 1544, 502, 11, 30, "Print"]
8626	}, Open ]]
8627	}, Open ]],
8628	Cell[CellGroupData[{
8629	Cell[65414, 1561, 431, 9, 64, "Input"],
8630	Cell[CellGroupData[{
8631	Cell[65870, 1574, 666, 10, 30, "Print"],
8632	Cell[66539, 1586, 676, 10, 30, "Print"],
8633	Cell[67218, 1598, 678, 10, 30, "Print"],
8634	Cell[67899, 1610, 688, 10, 30, "Print"]
8635	}, Open ]]
8636	}, Open ]],
8637	Cell[CellGroupData[{
8638	Cell[68636, 1626, 375, 9, 38, "Input"],
8639	Cell[CellGroupData[{
8640	Cell[69036, 1639, 636, 10, 30, "Print"],
8641	Cell[69675, 1651, 922, 18, 30, "Print"],
8642	Cell[70600, 1671, 607, 9, 30, "Print"],
8643	Cell[71210, 1682, 638, 10, 30, "Print"]
8644	}, Open ]]
8645	}, Open ]],
8646	Cell[CellGroupData[{
8647	Cell[71897, 1698, 298, 5, 38, "Input"],
8648	Cell[72198, 1705, 1199, 27, 38, "Output"]
8649	}, Open ]],
8650	Cell[CellGroupData[{
8651	Cell[73434, 1737, 464, 9, 64, "Input"],
8652	Cell[CellGroupData[{
8653	Cell[73923, 1750, 499, 10, 30, "Print"],
8654	Cell[74425, 1762, 297, 5, 30, "Print"],
8655	Cell[74725, 1769, 581, 13, 30, "Print"],
8656	Cell[75309, 1784, 268, 4, 30, "Print"],
8657	Cell[75580, 1790, 297, 5, 30, "Print"]
8658	}, Open ]]
8659	}, Open ]],
8660	Cell[75904, 1799, 1988, 44, 64, "Input"],
8661	Cell[CellGroupData[{
8662	Cell[77917, 1847, 907, 24, 89, "Input"],
8663	Cell[78827, 1873, 6147, 133, 309, "Output"]
8664	}, Open ]],
8665	Cell[CellGroupData[{
8666	Cell[85011, 2011, 1176, 29, 38, "Input"],
8667	Cell[86190, 2042, 1323, 26, 64, "Output"]
8668	}, Open ]],
8669	Cell[CellGroupData[{
8670	Cell[87550, 2073, 1631, 44, 89, "Input"],
8671	Cell[89184, 2119, 1211, 28, 66, "Output"]
8672	}, Open ]],
8673	Cell[CellGroupData[{
8674	Cell[90432, 2152, 156, 3, 38, "Input"],
8675	Cell[90591, 2157, 521, 13, 63, "Output"]
8676	}, Open ]],
8677	Cell[CellGroupData[{
8678	Cell[91149, 2175, 1462, 43, 64, "Input"],
8679	Cell[92614, 2220, 908, 21, 68, "Output"]
8680	}, Open ]],
8681	Cell[CellGroupData[{
8682	Cell[93559, 2246, 1742, 51, 89, "Input"],
8683	Cell[95304, 2299, 656, 13, 59, "Output"]
8684	}, Open ]],
8685	Cell[CellGroupData[{
8686	Cell[95997, 2317, 1088, 30, 114, "Input"],
8687	Cell[97088, 2349, 601, 16, 64, "Output"]
8688	}, Open ]]
8689	}, Open ]],
8690	Cell[CellGroupData[{
8691	Cell[97738, 2371, 240, 3, 65, "Subtitle"],
8692	Cell[97981, 2376, 118, 2, 38, "Input"],
8693	Cell[CellGroupData[{
8694	Cell[98124, 2382, 317, 8, 64, "Input"],
8695	Cell[CellGroupData[{
8696	Cell[98466, 2394, 1288, 19, 30, "Print"],
8697	Cell[99757, 2415, 1302, 19, 30, "Print"],
8698	Cell[101062, 2436, 1336, 20, 30, "Print"],
8699	Cell[102401, 2458, 1310, 19, 30, "Print"]
8700	}, Open ]]
8701	}, Open ]],
8702	Cell[103738, 2481, 437, 10, 38, "Input"],
8703	Cell[CellGroupData[{
8704	Cell[104200, 2495, 127, 2, 38, "Input"],
8705	Cell[CellGroupData[{
8706	Cell[104352, 2501, 354, 8, 71, "Print"],
8707	Cell[104709, 2511, 353, 8, 71, "Print"],
8708	Cell[105065, 2521, 353, 8, 71, "Print"],
8709	Cell[105421, 2531, 354, 8, 71, "Print"],
8710	Cell[105778, 2541, 4877, 117, 1231, "Print"]
8711	}, Closed]],
8712	Cell[110670, 2661, 1998, 56, 187, "Output"]
8713	}, Closed]],
8714	Cell[CellGroupData[{
8715	Cell[112705, 2722, 1866, 37, 56, "Input"],
8716	Cell[CellGroupData[{
8717	Cell[114596, 2763, 1173, 18, 30, "Print"],
8718	Cell[115772, 2783, 1646, 30, 30, "Print"],
8719	Cell[117421, 2815, 1190, 18, 30, "Print"],
8720	Cell[118614, 2835, 1460, 25, 30, "Print"],
8721	Cell[120077, 2862, 1175, 18, 30, "Print"],
8722	Cell[121255, 2882, 1644, 30, 30, "Print"],
8723	Cell[122902, 2914, 1492, 25, 30, "Print"],
8724	Cell[124397, 2941, 1195, 18, 30, "Print"],
8725	Cell[125595, 2961, 1346, 23, 30, "Print"],
8726	Cell[126944, 2986, 1460, 25, 30, "Print"],
8727	Cell[128407, 3013, 1175, 18, 30, "Print"],
8728	Cell[129585, 3033, 1460, 26, 30, "Print"],
8729	Cell[131048, 3061, 1475, 26, 30, "Print"],
8730	Cell[132526, 3089, 1475, 26, 30, "Print"],
8731	Cell[134004, 3117, 1477, 26, 30, "Print"],
8732	Cell[135484, 3145, 1475, 26, 30, "Print"],
8733	Cell[136962, 3173, 1406, 25, 30, "Print"]
8734	}, Open ]]
8735	}, Open ]],
8736	Cell[CellGroupData[{
8737	Cell[138417, 3204, 267, 4, 38, "Input"],
8738	Cell[CellGroupData[{
8739	Cell[138709, 3212, 660, 13, 30, "Print"],
8740	Cell[139372, 3227, 660, 13, 30, "Print"],
8741	Cell[140035, 3242, 60305, 1158, 505, 48498, 963, "CachedBoxData", "BoxData", \
8742	"Print"]
8743	}, Open ]],
8744	Cell[200355, 4403, 3518, 89, 79, "Output"]
8745	}, Open ]],
8746	Cell[CellGroupData[{
8747	Cell[203910, 4497, 368, 7, 38, "Input"],
8748	Cell[CellGroupData[{
8749	Cell[204303, 4508, 477, 7, 30, "Print"],
8750	Cell[204783, 4517, 782, 15, 30, "Print"],
8751	Cell[205568, 4534, 779, 15, 30, "Print"],
8752	Cell[206350, 4551, 778, 15, 30, "Print"],
8753	Cell[207131, 4568, 710, 14, 30, "Print"]
8754	}, Open ]]
8755	}, Open ]],
8756	Cell[CellGroupData[{
8757	Cell[207890, 4588, 580, 11, 64, "Input"],
8758	Cell[CellGroupData[{
8759	Cell[208495, 4603, 868, 13, 30, "Print"],
8760	Cell[209366, 4618, 883, 13, 30, "Print"],
8761	Cell[210252, 4633, 883, 13, 30, "Print"],
8762	Cell[211138, 4648, 889, 13, 30, "Print"]
8763	}, Open ]]
8764	}, Open ]],
8765	Cell[CellGroupData[{
8766	Cell[212076, 4667, 484, 11, 38, "Input"],
8767	Cell[CellGroupData[{
8768	Cell[212585, 4682, 359, 6, 30, "Print"],
8769	Cell[212947, 4690, 643, 14, 30, "Print"],
8770	Cell[213593, 4706, 330, 5, 30, "Print"],
8771	Cell[213926, 4713, 361, 6, 30, "Print"]
8772	}, Open ]]
8773	}, Open ]],
8774	Cell[CellGroupData[{
8775	Cell[214336, 4725, 298, 5, 38, "Input"],
8776	Cell[214637, 4732, 1076, 20, 38, "Output"]
8777	}, Open ]],
8778	Cell[CellGroupData[{
8779	Cell[215750, 4757, 464, 9, 64, "Input"],
8780	Cell[CellGroupData[{
8781	Cell[216239, 4770, 711, 13, 30, "Print"],
8782	Cell[216953, 4785, 505, 8, 30, "Print"],
8783	Cell[217461, 4795, 789, 16, 30, "Print"],
8784	Cell[218253, 4813, 476, 7, 30, "Print"],
8785	Cell[218732, 4822, 505, 8, 30, "Print"]
8786	}, Open ]]
8787	}, Open ]],
8788	Cell[CellGroupData[{
8789	Cell[219286, 4836, 88, 1, 89, "Section"],
8790	Cell[219377, 4839, 1570, 36, 64, "Input"],
8791	Cell[CellGroupData[{
8792	Cell[220972, 4879, 142, 2, 38, "Input"],
8793	Cell[221117, 4883, 65072, 1760, 5144, "Output"]
8794	}, Closed]],
8795	Cell[CellGroupData[{
8796	Cell[286226, 6648, 302, 7, 30, "Input"],
8797	Cell[CellGroupData[{
8798	Cell[286553, 6659, 645, 10, 30, "Print"],
8799	Cell[287201, 6671, 927, 18, 30, "Print"],
8800	Cell[288131, 6691, 614, 9, 30, "Print"],
8801	Cell[288748, 6702, 645, 10, 30, "Print"]
8802	}, Open ]]
8803	}, Open ]],
8804	Cell[CellGroupData[{
8805	Cell[289442, 6718, 1331, 32, 38, "Input"],
8806	Cell[290776, 6752, 9217, 241, 253, "Output"]
8807	}, Open ]],
8808	Cell[300008, 6996, 389, 11, 38, "Input"],
8809	Cell[CellGroupData[{
8810	Cell[300422, 7011, 98, 1, 38, "Input"],
8811	Cell[300523, 7014, 2758, 74, 118, "Output"]
8812	}, Open ]],
8813	Cell[CellGroupData[{
8814	Cell[303318, 7093, 674, 20, 38, "Input"],
8815	Cell[303995, 7115, 664, 16, 66, "Output"]
8816	}, Open ]],
8817	Cell[CellGroupData[{
8818	Cell[304696, 7136, 727, 21, 38, "Input"],
8819	Cell[305426, 7159, 2186, 63, 90, "Output"]
8820	}, Open ]]
8821	}, Open ]],
8822	Cell[CellGroupData[{
8823	Cell[307661, 7228, 90, 1, 89, "Section"],
8824	Cell[307754, 7231, 1699, 39, 64, "Input"],
8825	Cell[CellGroupData[{
8826	Cell[309478, 7274, 302, 7, 38, "Input"],
8827	Cell[CellGroupData[{
8828	Cell[309805, 7285, 660, 10, 30, "Print"],
8829	Cell[310468, 7297, 944, 18, 30, "Print"],
8830	Cell[311415, 7317, 631, 9, 30, "Print"],
8831	Cell[312049, 7328, 662, 10, 30, "Print"]
8832	}, Open ]]
8833	}, Open ]],
8834	Cell[CellGroupData[{
8835	Cell[312760, 7344, 1331, 32, 38, "Input"],
8836	Cell[314094, 7378, 16776, 418, 389, "Output"]
8837	}, Open ]],
8838	Cell[330885, 7799, 389, 11, 38, "Input"],
8839	Cell[CellGroupData[{
8840	Cell[331299, 7814, 98, 1, 38, "Input"],
8841	Cell[331400, 7817, 5959, 157, 172, "Output"]
8842	}, Open ]],
8843	Cell[CellGroupData[{
8844	Cell[337396, 7979, 1042, 29, 64, "Input"],
8845	Cell[338441, 8010, 1598, 49, 68, "Output"]
8846	}, Open ]]
8847	}, Closed]],
8848	Cell[CellGroupData[{
8849	Cell[340088, 8065, 95, 1, 51, "Section"],
8850	Cell[340186, 8068, 1216, 34, 64, "Input"],
8851	Cell[CellGroupData[{
8852	Cell[341427, 8106, 375, 8, 38, "Input"],
8853	Cell[CellGroupData[{
8854	Cell[341827, 8118, 761, 12, 30, "Print"],
8855	Cell[342591, 8132, 1043, 20, 30, "Print"],
8856	Cell[343637, 8154, 732, 11, 30, "Print"],
8857	Cell[344372, 8167, 761, 12, 30, "Print"]
8858	}, Open ]]
8859	}, Open ]],
8860	Cell[CellGroupData[{
8861	Cell[345182, 8185, 1331, 32, 38, "Input"],
8862	Cell[346516, 8219, 7478, 205, 198, "Output"]
8863	}, Open ]],
8864	Cell[354009, 8427, 928, 29, 38, "Input"],
8865	Cell[CellGroupData[{
8866	Cell[354962, 8460, 98, 1, 38, "Input"],
8867	Cell[355063, 8463, 2411, 69, 117, "Output"]
8868	}, Open ]]
8869	}, Closed]]
8870	}, Open ]]
8871	}, Open ]]
8872	}
8873	]
8874	*)
8875
8876	(* End of internal cache information *)

Download in other formats:

Original Format