Context Navigation

Back to TopEffTh

TopEffTh: topdecay.nb

File topdecay.nb, 87.0 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[ 88876, 2087]
14	NotebookOptionsPosition[ 84558, 1944]
15	NotebookOutlinePosition[ 85150, 1966]
16	CellTagsIndexPosition[ 85107, 1963]
17	WindowFrame->Normal
18	ContainsDynamic->False*)
19
20	(* Beginning of Notebook Content *)
21	Notebook[{
22
23	Cell[CellGroupData[{
24	Cell["FeynArts and FormCalc", "Title",
25	CellChangeTimes->{{3.4778117188657^9, 3.4778117348357^9}}],
26
27	Cell["test the two amplitudes computed before", "Text",
28	CellChangeTimes->{{3.478438848916302^9, 3.478438849192754^9}, {
29	3.479546643579921^9, 3.479546660109585^9}}],
30
31	Cell[CellGroupData[{
32
33	Cell["t->evb", "Subtitle",
34	CellChangeTimes->{{3.4778117420706997`^9, 3.4778117447507^9}, {
35	3.497862048812056^9, 3.497862055502046^9}}],
36
37	Cell[BoxData[
38	RowBox[{"Quit", "[", "]"}]], "Input",
39	CellChangeTimes->{{3.448968342513181^9, 3.448968344880295^9}}],
40
41	Cell[CellGroupData[{
42
43	Cell[BoxData[{
44	RowBox[{
45	RowBox[{
46	"SetDirectory", "[", "\"\</home/degrande/eta/FeynProg/FeynArts-3.5\>\"",
47	"]"}], ";"}], "\[IndentingNewLine]",
48	RowBox[{"<<", " ", "FeynArts`"}]}], "Input",
49	CellChangeTimes->{
50	3.4777456682883^9, 3.478434363232997^9, {3.4978572265868073`*^9,
51	3.4978572271791267`*^9}}],
52
53	Cell[CellGroupData[{
54
55	Cell[BoxData[
56	FormBox["\<\"\"\>", TraditionalForm]], "Print",
57	CellChangeTimes->{
58	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
59	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
60	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
61	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
62	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
63	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
64	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
65	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
66	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
67	3.498391193496977^9, 3.499497274187397^9, 3.4995193408702707`*^9,
68	3.499581276936945^9, 3.499585029981333^9, 3.499585781904087*^9,
69	3.499663879992983^9, 3.500719348299573^9}],
70
71	Cell[BoxData[
72	FormBox["\<\"FeynArts 3.5\"\>", TraditionalForm]], "Print",
73	CellChangeTimes->{
74	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
75	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
76	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
77	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
78	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
79	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
80	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
81	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
82	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
83	3.498391193496977^9, 3.499497274187397^9, 3.4995193408702707`*^9,
84	3.499581276936945^9, 3.499585029981333^9, 3.499585781904087*^9,
85	3.499663879992983^9, 3.500719348323988^9}],
86
87	Cell[BoxData[
88	FormBox["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>",
89	TraditionalForm]], "Print",
90	CellChangeTimes->{
91	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
92	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
93	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
94	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
95	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
96	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
97	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
98	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
99	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
100	3.498391193496977^9, 3.499497274187397^9, 3.4995193408702707`*^9,
101	3.499581276936945^9, 3.499585029981333^9, 3.499585781904087*^9,
102	3.499663879992983^9, 3.500719348342605^9}],
103
104	Cell[BoxData[
105	FormBox["\<\"last revised 16 Apr 10\"\>", TraditionalForm]], "Print",
106	CellChangeTimes->{
107	3.4777456743583^9, 3.4777482804298^9, 3.4778056214987*^9,
108	3.4778059164856997`^9, 3.4778086978662^9, {3.4778087847572002`*^9,
109	3.4778088073171997`^9}, 3.4778108541047^9, 3.4778115299907*^9,
110	3.478434366177163^9, 3.478435570663394^9, 3.478435703141808*^9,
111	3.478436820027009^9, {3.479038946238288^9, 3.479038952669886*^9},
112	3.47909796405005^9, 3.479099042060194^9, 3.479099989966432*^9,
113	3.479106322136636^9, 3.479546671218491^9, 3.47954731586526*^9,
114	3.479547695541888^9, 3.497857241645294^9, 3.4978620645824203`*^9,
115	3.497862527772278^9, 3.497871404570545^9, 3.4979424788339853`*^9,
116	3.498391193496977^9, 3.499497274187397^9, 3.4995193408702707`*^9,
117	3.499581276936945^9, 3.499585029981333^9, 3.499585781904087*^9,
118	3.499663879992983^9, 3.500719348356265^9}]
119	}, Open ]]
120	}, Open ]],
121
122	Cell[BoxData[
123	RowBox[{
124	RowBox[{"topo", " ", "=", " ",
125	RowBox[{"CreateTopologies", "[",
126	RowBox[{"0", ",",
127	RowBox[{"1", "\[Rule]", "3"}]}], "]"}]}], ";"}]], "Input",
128	CellChangeTimes->{
129	3.47548813810296^9, 3.475488972088063^9, {3.4777456120408*^9,
130	3.4777456332583^9}, 3.4778098132447^9, 3.4778110152581997`*^9, {
131	3.497857235135571^9, 3.497857237590866^9}}],
132
133	Cell[CellGroupData[{
134
135	Cell[BoxData[
136	RowBox[{"Paint", "[", "topo", "]"}]], "Input",
137	CellChangeTimes->{{3.4777456818157997`^9, 3.4777456889958^9}}],
138
139	Cell[CellGroupData[{
140
141	Cell[BoxData[
142	FormBox[
143	InterpretationBox[
144	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
145	"\[InvisibleSpace]", "\<\": \"\>",
146	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
147	SequenceForm["> Top. ", 1, ": ", "1 diagram"],
148	Editable->False], TraditionalForm]], "Print",
149	CellChangeTimes->{3.4777456900683002`^9, 3.478435704755388^9}],
150
151	Cell[BoxData[
152	FormBox[
153	InterpretationBox[
154	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
155	"\[InvisibleSpace]", "\<\": \"\>",
156	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
157	SequenceForm["> Top. ", 2, ": ", "1 diagram"],
158	Editable->False], TraditionalForm]], "Print",
159	CellChangeTimes->{3.4777456900683002`^9, 3.47843570476089^9}],
160
161	Cell[BoxData[
162	FormBox[
163	InterpretationBox[
164	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
165	"\[InvisibleSpace]", "\<\": \"\>",
166	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
167	SequenceForm["> Top. ", 3, ": ", "1 diagram"],
168	Editable->False], TraditionalForm]], "Print",
169	CellChangeTimes->{3.4777456900683002`^9, 3.47843570476613^9}],
170
171	Cell[BoxData[
172	FormBox[
173	InterpretationBox[
174	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
175	"\[InvisibleSpace]", "\<\": \"\>",
176	"\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
177	SequenceForm["> Top. ", 4, ": ", "1 diagram"],
178	Editable->False], TraditionalForm]], "Print",
179	CellChangeTimes->{3.4777456900683002`^9, 3.478435704771953^9}],
180
181	Cell[BoxData[
182	FormBox[
183	GraphicsBox[{InsetBox[
184	GraphicsBox[
185	{Thickness[0.005],
186	LineBox[{{-9.094947017729282*^-12, 15.000000000003638`}, {
187	9.999999999983629, 10.000000000007276`}}],
188	LineBox[{{-9.094947017729282*^-12, 4.999999999996362}, {
189	9.999999999985448, 9.999999999989086}}],
190	LineBox[{{20.000000000009095`, 15.000000000003638`}, {
191	10.000000000009095`, 10.000000000003638`}}],
192	LineBox[{{20., 5.}, {10., 10.}}],
193	{PointSize[0.04], PointBox[{10., 10.}]}, InsetBox[
194	TagBox[
195	StyleBox[
196	TagBox["\<\"T1\"\>",
197	DisplayForm],
198	FontFamily->"Helvetica",
199	FontSize->7.997355371900828],
200	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
201	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
202	AspectRatio->1,
203	PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
204	GraphicsBox[
205	{Thickness[0.005],
206	LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
207	5.999999999996362, 10.000000000001819`}}],
208	LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
209	5.999999999994543, 9.999999999994543}}],
210	LineBox[{{20.000000000005457`, 15.000000000003638`}, {
211	14.000000000003638`, 10.000000000001819`}}],
212	LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`,
213	10.}}], LineBox[{{5.999999999990206, 10.}, {13.999999999982224`,
214	10.}}],
215	{PointSize[0.04], PointBox[{6., 10.}],
216	PointBox[{13.99999999999999, 10.}]}, InsetBox[
217	TagBox[
218	StyleBox[
219	TagBox["\<\"T2\"\>",
220	DisplayForm],
221	FontFamily->"Helvetica",
222	FontSize->7.997355371900828],
223	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
224	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
225	AspectRatio->1,
226	PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}],
227	InsetBox[
228	GraphicsBox[
229	{Thickness[0.005],
230	LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`,
231	14.000000000003638`}}],
232	LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
233	9.999999999988404, 6.}}],
234	LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}],
235	LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726,
236	5.999999999996362}}],
237	LineBox[{{10., 14.000000000000902`}, {10., 6.000000000000003}}],
238	{PointSize[0.04], PointBox[{10., 13.99999999999999}],
239	PointBox[{10., 6.}]}, InsetBox[
240	TagBox[
241	StyleBox[
242	TagBox["\<\"T3\"\>",
243	DisplayForm],
244	FontFamily->"Helvetica",
245	FontSize->7.997355371900828],
246	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
247	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
248	AspectRatio->1,
249	PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}],
250	InsetBox[
251	GraphicsBox[
252	{Thickness[0.005],
253	LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`,
254	14.000000000003638`}}],
255	LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
256	9.999999999988404, 6.}}],
257	LineBox[{{20.00000000000182, 15.}, {10., 6.}}],
258	LineBox[{{20.00000000000182, 5.}, {10., 14.}}],
259	LineBox[{{10., 14.000000000000902`}, {10., 6.000000000000003}}],
260	{PointSize[0.04], PointBox[{10., 13.99999999999999}],
261	PointBox[{10., 6.}]}, InsetBox[
262	TagBox[
263	StyleBox[
264	TagBox["\<\"T4\"\>",
265	DisplayForm],
266	FontFamily->"Helvetica",
267	FontSize->7.997355371900828],
268	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
269	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
270	AspectRatio->1,
271	PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
272	TagBox[
273	StyleBox[
274	TagBox["\<\"2\"\>",
275	DisplayForm],
276	FontFamily->"Helvetica",
277	FontSize->11.99603305785124],
278	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
279	11.99603305785124]& ], {28.5, 69.96}, {0, 0}], InsetBox[
280	TagBox[
281	StyleBox[
282	TagBox["\<\"\[RightArrow]\"\>",
283	DisplayForm],
284	FontFamily->"Helvetica",
285	FontSize->11.99603305785124],
286	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
287	11.99603305785124]& ], {33., 69.96}, {0, 0}], InsetBox[
288	TagBox[
289	StyleBox[
290	TagBox["\<\"2\"\>",
291	DisplayForm],
292	FontFamily->"Helvetica",
293	FontSize->11.99603305785124],
294	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
295	11.99603305785124]& ], {37.5, 69.96}, {0, 0}]},
296	AspectRatio->1.0999999999999999`,
297	PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
298	CellChangeTimes->{3.4777456900683002`^9, 3.478435705080669^9}]
299	}, Closed]],
300
301	Cell[BoxData[
302	FormBox[
303	RowBox[{
304	RowBox[{"FeynArtsGraphics", "(",
305	RowBox[{"2", "\[Rule]", "2"}], ")"}], "\[InvisibleApplication]",
306	RowBox[{"(",
307	TagBox[
308	RowBox[{"(", "\[NoBreak]", GridBox[{
309	{
310	FormBox[
311	InterpretationBox[
312
313	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1\"\>",
314	"\[InvisibleSpace]", "\<\"]\"\>"}],
315	SequenceForm["[", "T1", "]"],
316	Editable->False],
317	TraditionalForm],
318	FormBox[
319	InterpretationBox[
320
321	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2\"\>",
322	"\[InvisibleSpace]", "\<\"]\"\>"}],
323	SequenceForm["[", "T2", "]"],
324	Editable->False],
325	TraditionalForm],
326	FormBox[
327	InterpretationBox[
328
329	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T3\"\>",
330	"\[InvisibleSpace]", "\<\"]\"\>"}],
331	SequenceForm["[", "T3", "]"],
332	Editable->False],
333	TraditionalForm]},
334	{
335	FormBox[
336	InterpretationBox[
337
338	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T4\"\>",
339	"\[InvisibleSpace]", "\<\"]\"\>"}],
340	SequenceForm["[", "T4", "]"],
341	Editable->False],
342	TraditionalForm], "Null", "Null"},
343	{"Null", "Null", "Null"}
344	},
345	GridBoxAlignment->{
346	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
347	"RowsIndexed" -> {}},
348	GridBoxSpacings->{"Columns" -> {
349	Offset[0.27999999999999997`], {
350	Offset[0.7]},
351	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
352	Offset[0.2], {
353	Offset[0.4]},
354	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
355	Function[BoxForm`e$,
356	MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
357	CellChangeTimes->{3.4777456905908003`^9, 3.478435705207405^9}]
358	}, Closed]],
359
360	Cell[CellGroupData[{
361
362	Cell[BoxData[
363	RowBox[{
364	RowBox[{"INTopoqq", " ", "=", " ",
365	RowBox[{"InsertFields", "[",
366	RowBox[{"topo", ",",
367	RowBox[{
368	RowBox[{"{",
369	RowBox[{"F", "[", "9", "]"}], "}"}], "\[Rule]",
370	RowBox[{"{",
371	RowBox[{
372	RowBox[{"F", "[", "12", "]"}], ",",
373	RowBox[{"F", "[", "1", "]"}], ",",
374	RowBox[{"-",
375	RowBox[{"F", "[", "4", "]"}]}]}], "}"}]}], ",",
376	RowBox[{"GenericModel", "\[Rule]", "\"\<TopEffTh_FA/TopEffTh_FA\>\""}],
377	",",
378	RowBox[{"Model", "\[Rule]", "\"\<TopEffTh_FA/TopEffTh_FA\>\""}], ",",
379	RowBox[{"ExcludeParticles", "\[Rule]",
380	RowBox[{"{",
381	RowBox[{
382	RowBox[{"V", "[", "1", "]"}], ",",
383	RowBox[{"V", "[", "2", "]"}], ",",
384	RowBox[{"S", "[", "1", "]"}]}], "}"}]}], ",",
385	RowBox[{"InsertionLevel", "\[Rule]",
386	RowBox[{"{",
387	RowBox[{"Generic", ",", " ", "Classes", ",", "Particles"}], "}"}]}]}],
388	"]"}]}], ";"}]], "Input",
389	CellChangeTimes->{{3.4778060034077^9, 3.4778060172207003`^9}, {
390	3.4778061181482^9, 3.4778062060957003`^9}, {3.4778064622107*^9,
391	3.4778064974032^9}, {3.4778096875622^9, 3.4778097175422*^9}, {
392	3.4778099067622004`^9, 3.4778099081296997`^9}, {3.4778111168007*^9,
393	3.4778111226157^9}, {3.4778115172907^9, 3.4778115174282*^9},
394	3.478437845209915^9, {3.479546689667869^9, 3.479546718821388*^9}, {
395	3.479546793843457^9, 3.47954680051448^9}, {3.497857256699514*^9,
396	3.497857324742622^9}, {3.497857383657874^9, 3.497857387157604*^9}, {
397	3.49785741944608^9, 3.497857431156871^9}, {3.497862502940681*^9,
398	3.497862507492491^9}, {3.4983901274683743`^9, 3.498390130073097*^9}, {
399	3.499495582368535^9, 3.499495584937093^9}}],
400
401	Cell[CellGroupData[{
402
403	Cell[BoxData[
404	FormBox["\<\"\"\>", TraditionalForm]], "Print",
405	CellChangeTimes->{
406	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
407	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
408	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
409	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
410	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
411	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
412	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
413	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
414	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
415	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
416	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
417	3.499663882012418^9, 3.500719354904389^9}],
418
419	Cell[BoxData[
420	FormBox[
421	InterpretationBox[
422	RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
423	"\[InvisibleSpace]", "\<\"generic\"\>",
424	"\[InvisibleSpace]", "\<\" model file \"\>",
425	"\[InvisibleSpace]", \
426	"\<\"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
427	TopEffTh_FA.gen\"\>"}],
428	SequenceForm[
429	"", "loading ", "generic", " model file ",
430	"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
431	TopEffTh_FA.gen"],
432	Editable->False], TraditionalForm]], "Print",
433	CellChangeTimes->{
434	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
435	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
436	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
437	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
438	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
439	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
440	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
441	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
442	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
443	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
444	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
445	3.499663882012418^9, 3.5007193550409403`^9}],
446
447	Cell[BoxData[
448	FormBox["\<\"> $SVMixing is OFF\"\>", TraditionalForm]], "Print",
449	CellChangeTimes->{
450	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
451	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
452	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
453	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
454	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
455	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
456	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
457	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
458	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
459	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
460	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
461	3.499663882012418^9, 3.5007193550464907`^9}],
462
463	Cell[BoxData[
464	FormBox[
465	InterpretationBox[
466	RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]",
467	RowBox[{"{", "\<\"TopEffTh_FA/TopEffTh_FA\"\>", "}"}],
468	"\[InvisibleSpace]", "\<\" initialized\"\>"}],
469	SequenceForm[
470	"generic model ", {"TopEffTh_FA/TopEffTh_FA"}, " initialized"],
471	Editable->False], TraditionalForm]], "Print",
472	CellChangeTimes->{
473	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
474	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
475	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
476	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
477	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
478	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
479	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
480	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
481	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
482	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
483	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
484	3.499663882012418^9, 3.500719355057899^9}],
485
486	Cell[BoxData[
487	FormBox["\<\"\"\>", TraditionalForm]], "Print",
488	CellChangeTimes->{
489	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
490	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
491	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
492	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
493	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
494	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
495	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
496	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
497	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
498	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
499	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
500	3.499663882012418^9, 3.500719355069853^9}],
501
502	Cell[BoxData[
503	FormBox[
504	InterpretationBox[
505	RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
506	"\[InvisibleSpace]", "\<\"classes\"\>",
507	"\[InvisibleSpace]", "\<\" model file \"\>",
508	"\[InvisibleSpace]", \
509	"\<\"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
510	TopEffTh_FA.mod\"\>"}],
511	SequenceForm[
512	"", "loading ", "classes", " model file ",
513	"/nfs/home/d/degrande/eta/FeynProg/FeynArts-3.5/Models/TopEffTh_FA/\
514	TopEffTh_FA.mod"],
515	Editable->False], TraditionalForm]], "Print",
516	CellChangeTimes->{
517	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
518	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
519	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
520	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
521	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
522	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
523	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
524	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
525	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
526	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
527	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
528	3.499663882012418^9, 3.500719355076499^9}],
529
530	Cell[BoxData[
531	FormBox[
532	InterpretationBox[
533	RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "51",
534	"\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>",
535	"\[InvisibleSpace]", "30", "\[InvisibleSpace]", "\<\" classes\"\>"}],
536	SequenceForm[
537	"> ", 51, " particles (incl. antiparticles) in ", 30, " classes"],
538	Editable->False], TraditionalForm]], "Print",
539	CellChangeTimes->{
540	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
541	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
542	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
543	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
544	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
545	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
546	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
547	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
548	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
549	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
550	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
551	3.499663882012418^9, 3.500719355324739^9}],
552
553	Cell[BoxData[
554	FormBox["\<\"> $CounterTerms are ON\"\>", TraditionalForm]], "Print",
555	CellChangeTimes->{
556	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
557	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
558	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
559	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
560	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
561	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
562	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
563	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
564	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
565	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
566	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
567	3.499663882012418^9, 3.500719355761036^9}],
568
569	Cell[BoxData[
570	FormBox[
571	InterpretationBox[
572	RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "142",
573	"\[InvisibleSpace]", "\<\" vertices\"\>"}],
574	SequenceForm["> ", 142, " vertices"],
575	Editable->False], TraditionalForm]], "Print",
576	CellChangeTimes->{
577	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
578	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
579	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
580	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
581	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
582	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
583	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
584	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
585	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
586	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
587	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
588	3.499663882012418^9, 3.5007193559665737`^9}],
589
590	Cell[BoxData[
591	FormBox[
592	InterpretationBox[
593	RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]",
594	RowBox[{"{", "\<\"TopEffTh_FA/TopEffTh_FA\"\>", "}"}],
595	"\[InvisibleSpace]", "\<\" initialized\"\>"}],
596	SequenceForm[
597	"classes model ", {"TopEffTh_FA/TopEffTh_FA"}, " initialized"],
598	Editable->False], TraditionalForm]], "Print",
599	CellChangeTimes->{
600	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
601	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
602	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
603	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
604	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
605	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
606	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
607	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
608	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
609	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
610	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
611	3.499663882012418^9, 3.500719356099678^9}],
612
613	Cell[BoxData[
614	FormBox["\<\"\"\>", TraditionalForm]], "Print",
615	CellChangeTimes->{
616	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
617	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
618	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
619	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
620	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
621	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
622	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
623	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
624	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
625	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
626	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
627	3.499663882012418^9, 3.500719356235753^9}],
628
629	Cell[BoxData[
630	FormBox[
631	InterpretationBox[
632	RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "0",
633	"\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "3",
634	"\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "3",
635	"\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
636	SequenceForm[
637	"Excluding ", 0, " Generic, ", 3, " Classes, and ", 3,
638	" Particles fields"],
639	Editable->False], TraditionalForm]], "Print",
640	CellChangeTimes->{
641	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
642	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
643	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
644	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
645	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
646	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
647	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
648	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
649	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
650	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
651	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
652	3.499663882012418^9, 3.5007193563722467`^9}],
653
654	Cell[BoxData[
655	FormBox["\<\"\"\>", TraditionalForm]], "Print",
656	CellChangeTimes->{
657	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
658	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
659	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
660	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
661	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
662	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
663	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
664	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
665	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
666	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
667	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
668	3.499663882012418^9, 3.5007193566466417`^9}],
669
670	Cell[BoxData[
671	FormBox[
672	InterpretationBox[
673	RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
674	RowBox[{"{",
675	RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}],
676	SequenceForm[
677	"inserting at level(s) ", {Generic, FeynArts`Classes, FeynArts`Particles}],
678
679	Editable->False], TraditionalForm]], "Print",
680	CellChangeTimes->{
681	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
682	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
683	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
684	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
685	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
686	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
687	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
688	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
689	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
690	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
691	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
692	3.499663882012418^9, 3.5007193567906437`^9}],
693
694	Cell[BoxData[
695	FormBox[
696	InterpretationBox[
697	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
698	"\[InvisibleSpace]", "\<\": \"\>",
699	"\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \
700	insertions\"\>"}],
701	SequenceForm[
702	"> Top. ", 1, ": ", "0 Generic, 0 Classes, 0 Particles insertions"],
703	Editable->False], TraditionalForm]], "Print",
704	CellChangeTimes->{
705	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
706	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
707	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
708	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
709	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
710	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
711	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
712	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
713	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
714	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
715	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
716	3.499663882012418^9, 3.500719356936816^9}],
717
718	Cell[BoxData[
719	FormBox[
720	InterpretationBox[
721	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2",
722	"\[InvisibleSpace]", "\<\": \"\>",
723	"\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \
724	insertions\"\>"}],
725	SequenceForm[
726	"> Top. ", 2, ": ", "1 Generic, 1 Classes, 1 Particles insertions"],
727	Editable->False], TraditionalForm]], "Print",
728	CellChangeTimes->{
729	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
730	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
731	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
732	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
733	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
734	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
735	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
736	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
737	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
738	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
739	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
740	3.499663882012418^9, 3.5007193570863256`^9}],
741
742	Cell[BoxData[
743	FormBox[
744	InterpretationBox[
745	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3",
746	"\[InvisibleSpace]", "\<\": \"\>",
747	"\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \
748	insertions\"\>"}],
749	SequenceForm[
750	"> Top. ", 3, ": ", "0 Generic, 0 Classes, 0 Particles insertions"],
751	Editable->False], TraditionalForm]], "Print",
752	CellChangeTimes->{
753	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
754	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
755	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
756	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
757	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
758	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
759	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
760	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
761	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
762	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
763	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
764	3.499663882012418^9, 3.500719357237802^9}],
765
766	Cell[BoxData[
767	FormBox[
768	InterpretationBox[
769	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4",
770	"\[InvisibleSpace]", "\<\": \"\>",
771	"\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \
772	insertions\"\>"}],
773	SequenceForm[
774	"> Top. ", 4, ": ", "0 Generic, 0 Classes, 0 Particles insertions"],
775	Editable->False], TraditionalForm]], "Print",
776	CellChangeTimes->{
777	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
778	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
779	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
780	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
781	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
782	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
783	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
784	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
785	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
786	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
787	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
788	3.499663882012418^9, 3.50071935753611^9}],
789
790	Cell[BoxData[
791	FormBox["\<\"\"\>", TraditionalForm]], "Print",
792	CellChangeTimes->{
793	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
794	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
795	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
796	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
797	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
798	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
799	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
800	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
801	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
802	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
803	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
804	3.499663882012418^9, 3.500719357683814^9}],
805
806	Cell[BoxData[
807	FormBox[
808	InterpretationBox[
809	RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "0",
810	"\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "3",
811	"\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "3",
812	"\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
813	SequenceForm[
814	"Restoring ", 0, " Generic, ", 3, " Classes, and ", 3,
815	" Particles fields"],
816	Editable->False], TraditionalForm]], "Print",
817	CellChangeTimes->{
818	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
819	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
820	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
821	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
822	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
823	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
824	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
825	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
826	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
827	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
828	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
829	3.499663882012418^9, 3.5007193578306313`^9}],
830
831	Cell[BoxData[
832	FormBox[
833	InterpretationBox[
834	RowBox[{"\<\"in total: \"\>",
835	"\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \
836	insertions\"\>"}],
837	SequenceForm["in total: ", "1 Generic, 1 Classes, 1 Particles insertions"],
838
839	Editable->False], TraditionalForm]], "Print",
840	CellChangeTimes->{
841	3.4778108948522^9, 3.4778111234856997`^9, 3.4778115364932003`*^9,
842	3.478434374488394^9, 3.478435572203797^9, 3.478435706296789*^9,
843	3.478437845951703^9, {3.479038967870449^9, 3.479038992642903*^9},
844	3.47903962671351^9, 3.479097981627183^9, {3.479099047114438*^9,
845	3.479099051629787^9}, 3.479099992849716^9, 3.479106329174947*^9, {
846	3.47954670376287^9, 3.479546719449662^9}, 3.479546801451241*^9,
847	3.479547320037069^9, 3.479547699448203^9, 3.497857326630136*^9,
848	3.497857387945911^9, 3.497857431956799^9, 3.497862067374255*^9,
849	3.497862531309819^9, 3.497871410991981^9, 3.497942482657105*^9,
850	3.498391196890265^9, 3.499497277822806^9, 3.499519344544788*^9,
851	3.4995812793018417`^9, 3.499585031620029^9, 3.499585783613077*^9,
852	3.499663882012418^9, 3.500719357978938^9}]
853	}, Open ]]
854	}, Open ]],
855
856	Cell[CellGroupData[{
857
858	Cell[BoxData[
859	RowBox[{"Paint", "[", "INTopoqq", "]"}]], "Input",
860	CellChangeTimes->{{3.4778063315682^9, 3.4778063464357^9}, {
861	3.4778115474231997`^9, 3.4778115475632^9}, 3.478437858916929*^9,
862	3.479546810801527*^9}],
863
864	Cell[CellGroupData[{
865
866	Cell[BoxData[
867	FormBox[
868	InterpretationBox[
869	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
870	"\[InvisibleSpace]", "\<\": \"\>",
871	"\[InvisibleSpace]", "\<\"3 diagrams\"\>"}],
872	SequenceForm["> Top. ", 1, ": ", "3 diagrams"],
873	Editable->False], TraditionalForm]], "Print",
874	CellChangeTimes->{3.479546811928915^9, 3.49786207652789^9,
875	3.4978625348613377`^9, 3.497871415519409^9, 3.49794248658965*^9,
876	3.498391202615528^9, 3.499497282540414^9, 3.499519347854422*^9,
877	3.499581284453961^9, 3.499585035072423^9, 3.499663885448338*^9,
878	3.500719358956658*^9}],
879
880	Cell[BoxData[
881	FormBox[
882	GraphicsBox[{InsetBox[
883	GraphicsBox[
884	{Thickness[0.005],
885	LineBox[{{-1.0913936421275139`*^-11, 9.999999999996362}, {
886	8.999999999983629, 11.999999999996362`}}],
887	PolygonBox[{{5.085712236110371, 11.130158274691194`}, {
888	4.001059947017091, 10.479366901235226`}, {3.827515580762166,
889	11.260316549382388`}}], InsetBox[
890	TagBox[
891	StyleBox[
892	TagBox["\<\"t\"\>",
893	DisplayForm],
894	FontFamily->"Helvetica",
895	FontSize->9.996694214876035],
896	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
897	9.996694214876035]& ], {4.163757790381083, 11.908289943285126`}, \
898	{0, -1}],
899	LineBox[{{20.000000000009095`, 17.000000000003638`}, {
900	9.000000000009095, 12.000000000007276`}}],
901	PolygonBox[{{15.046219886477562`, 14.74828176658071}, {
902	13.788258935801963`, 14.615864824404332`}, {14.11930129124291,
903	13.887571642434247`}}], InsetBox[
904	TagBox[
905	StyleBox[
906	TagBox["\<\"b\"\>",
907	DisplayForm],
908	FontFamily->"Helvetica",
909	FontSize->9.996694214876035],
910	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
911	9.996694214876035]& ], {14.463405436333165`, 15.306268040067037`}, \
912	{1, -1}],
913	LineBox[{{19.999999999996362`, 10.}, {13.499999999996362`,
914	6.499999999996362}}],
915	PolygonBox[{{17.278282659953305`, 8.53445989382101}, {
916	16.032077410832688`, 8.31772854614786}, {16.4113572692607,
917	7.61335166621012}}], InsetBox[
918	TagBox[
919	StyleBox[
920	TagBox["\<\"ve\"\>",
921	DisplayForm],
922	FontFamily->"Helvetica",
923	FontSize->9.996694214876035],
924	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
925	9.996694214876035]& ], {16.619945274295723`, 9.009930204879371}, \
926	{1, -1}], LineBox[{{20., 3.}, {13.5, 6.5}}],
927	PolygonBox[{{16.221717340046695`, 5.03445989382101}, {
928	17.467922589167312`, 4.81772854614786}, {17.0886427307393,
929	4.11335166621012}}], InsetBox[
930	TagBox[
931	StyleBox[
932	TagBox["\<\"e\"\>",
933	DisplayForm],
934	FontFamily->"Helvetica",
935	FontSize->9.996694214876035],
936	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
937	9.996694214876035]& ], {16.880054725704277`, 5.509930204879372}, \
938	{-1, -1}], LineBox[CompressedData["
939	1:eJwV1AtMU1cYB/DDqzajCbDB1gyEimV2KFsXBwMs4y6OrWgh1RWkSHDDMutg
940	irMjQBoftKhE4tioAR8bjOBSTSvVGQR5CKQyxkDJVl4Kod3GQ3Q6BKHFO7r/
941	ucnNye+e7zvfedycdTkHd+Z6EkKkeGlLnG48kQzhU7zOEHuXcNFnI0PUS6fF
942	Z2B1QMkUdca5sfKXgxmi7XZ0rSC+d+DV23p4djJuswMWPJdmTsLWLS9FNNP+
943	/leqBSEMGU/re3oMVpPSy9tgi8kVnggXebbl7oWzloqXlt9E/p0j6YdhU8yR
944	4muwM2nycz3M6+ipPQRLW+cUdbBGKfokAWbWKjbeo+Nzr119DS5Yk+QOWsuQ
945	trS4Ug/YMtwuLITtvz14xyXCeC05rsdwQfQXSyvwbB03VRPKkHx5n4bGf9qk
946	zfYKY4jEUW7gwJ1jHeJKmCsJ0njD5Pju77gChnzI7lIsIV905VF8Ilx5YiZ9
947	DFapRS37YWvS4r8muEBadeEkzMvw9jhM6+WP7j8PB07769+m85k4tu8SPPhu
948	x/OZDQw5tRAVYIbH7zdq6uHA6CF1E9zAyxxQwRd5YVE9sC208dvNcIg2NdhO
949	82N8cgJg7dAhJWcdQ2SScd3qGwxp3p0qiIOtfHbYCbcpjl4vpP6qNpKFxd6b
950	6lth4XT6lCfy83PzMr3CsY6y7CkOLCdDw1I4diK5kPb7b9Xnn4RJW1X0PPLJ
951	A35ZKzz7pax7EK70KHjrL5ht2hfyI2y5UqNehUe9OhtUsPGHexF+67G+0Lvt
952	YTRfqWf5cK95NXg0AnFRF6oFsG3nekcVbLflvYiEydfWnzJgfldnmwSW9fV8
953	HwmHZMqSlbBJeXzaF9aXp2SXwmrd6S2sEPOq/rP7Jqz9poZ1wibzvHwZ5i2a
954	q/+DHw9+sD0BbXNcAuON/AbLtgU9bOgsHuHA4n+kH/8KM75nHG60/rtG+nzw
955	XZsj/+wRLEw0xr8HS1ICi36BjXvf98uCbxjPWgzwqR3iWxpYcXHrwzSYde0x
956	6GB2Ru7wg0Xip0crYC5zoqQX8/LfcFlmoHU9zw+UwYPG+OVa2HrrSXQKLL6j
957	cvwM95c+Kwmn635yIPwPuELaFLuGrntuh68bNqUerF3BvttN7HwM9pnxelHl
958	gvUVC9uL4Fhz6iY3PZfF0MDbcEWtUuND6+vu59FzV7nLszj0XOr9spPhcY86
959	E4v4/pHfL+lgxfRd29+wLP2A8jrMf1igbYdFiqA9NrjG7LxJ/xNNM1szB99o
960	uTrxEa3X+KxrGWbpfYP/jkfvGxHzP9Ayqng=
961	"]], InsetBox[
962	TagBox[
963	StyleBox[
964	TagBox["\<\"V\"\>",
965	DisplayForm],
966	FontFamily->"Helvetica",
967	FontSize->9.996694214876035],
968	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
969	9.996694214876035]& ], {10.655166186234853`, 8.873281425101244}, \
970	{1, 1}],
971	{PointSize[0.04], PointBox[{9., 12.}], PointBox[{13.5, 6.5}]},
972	InsetBox[
973	TagBox[
974	StyleBox[
975	TagBox["\<\"T1 G1 N1\"\>",
976	DisplayForm],
977	FontFamily->"Helvetica",
978	FontSize->7.997355371900828],
979	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
980	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
981	AspectRatio->1,
982	PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
983	GraphicsBox[
984	{Thickness[0.005],
985	LineBox[{{-1.0913936421275139`*^-11, 9.999999999996362}, {
986	8.999999999983629, 11.999999999996362`}}],
987	PolygonBox[{{5.085712236110371, 11.130158274691194`}, {
988	4.001059947017091, 10.479366901235226`}, {3.827515580762166,
989	11.260316549382388`}}], InsetBox[
990	TagBox[
991	StyleBox[
992	TagBox["\<\"t\"\>",
993	DisplayForm],
994	FontFamily->"Helvetica",
995	FontSize->9.996694214876035],
996	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
997	9.996694214876035]& ], {4.163757790381083, 11.908289943285126`}, \
998	{0, -1}],
999	LineBox[{{20.000000000009095`, 17.000000000003638`}, {
1000	9.000000000009095, 12.000000000007276`}}],
1001	PolygonBox[{{15.046219886477562`, 14.74828176658071}, {
1002	13.788258935801963`, 14.615864824404332`}, {14.11930129124291,
1003	13.887571642434247`}}], InsetBox[
1004	TagBox[
1005	StyleBox[
1006	TagBox["\<\"b\"\>",
1007	DisplayForm],
1008	FontFamily->"Helvetica",
1009	FontSize->9.996694214876035],
1010	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1011	9.996694214876035]& ], {14.463405436333165`, 15.306268040067037`}, \
1012	{1, -1}],
1013	LineBox[{{19.999999999996362`, 10.}, {13.499999999996362`,
1014	6.499999999996362}}],
1015	PolygonBox[{{17.278282659953305`, 8.53445989382101}, {
1016	16.032077410832688`, 8.31772854614786}, {16.4113572692607,
1017	7.61335166621012}}], InsetBox[
1018	TagBox[
1019	StyleBox[
1020	TagBox["\<\"ve\"\>",
1021	DisplayForm],
1022	FontFamily->"Helvetica",
1023	FontSize->9.996694214876035],
1024	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1025	9.996694214876035]& ], {16.619945274295723`, 9.009930204879371}, \
1026	{1, -1}], LineBox[{{20., 3.}, {13.5, 6.5}}],
1027	PolygonBox[{{16.221717340046695`, 5.03445989382101}, {
1028	17.467922589167312`, 4.81772854614786}, {17.0886427307393,
1029	4.11335166621012}}], InsetBox[
1030	TagBox[
1031	StyleBox[
1032	TagBox["\<\"e\"\>",
1033	DisplayForm],
1034	FontFamily->"Helvetica",
1035	FontSize->9.996694214876035],
1036	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1037	9.996694214876035]& ], {16.880054725704277`, 5.509930204879372}, \
1038	{-1, -1}], LineBox[CompressedData["
1039	1:eJwV1AtMU1cYB/DDqzajCbDB1gyEimV2KFsXBwMs4y6OrWgh1RWkSHDDMutg
1040	irMjQBoftKhE4tioAR8bjOBSTSvVGQR5CKQyxkDJVl4Kod3GQ3Q6BKHFO7r/
1041	ucnNye+e7zvfedycdTkHd+Z6EkKkeGlLnG48kQzhU7zOEHuXcNFnI0PUS6fF
1042	Z2B1QMkUdca5sfKXgxmi7XZ0rSC+d+DV23p4djJuswMWPJdmTsLWLS9FNNP+
1043	/leqBSEMGU/re3oMVpPSy9tgi8kVnggXebbl7oWzloqXlt9E/p0j6YdhU8yR
1044	4muwM2nycz3M6+ipPQRLW+cUdbBGKfokAWbWKjbeo+Nzr119DS5Yk+QOWsuQ
1045	trS4Ug/YMtwuLITtvz14xyXCeC05rsdwQfQXSyvwbB03VRPKkHx5n4bGf9qk
1046	zfYKY4jEUW7gwJ1jHeJKmCsJ0njD5Pju77gChnzI7lIsIV905VF8Ilx5YiZ9
1047	DFapRS37YWvS4r8muEBadeEkzMvw9jhM6+WP7j8PB07769+m85k4tu8SPPhu
1048	x/OZDQw5tRAVYIbH7zdq6uHA6CF1E9zAyxxQwRd5YVE9sC208dvNcIg2NdhO
1049	82N8cgJg7dAhJWcdQ2SScd3qGwxp3p0qiIOtfHbYCbcpjl4vpP6qNpKFxd6b
1050	6lth4XT6lCfy83PzMr3CsY6y7CkOLCdDw1I4diK5kPb7b9Xnn4RJW1X0PPLJ
1051	A35ZKzz7pax7EK70KHjrL5ht2hfyI2y5UqNehUe9OhtUsPGHexF+67G+0Lvt
1052	YTRfqWf5cK95NXg0AnFRF6oFsG3nekcVbLflvYiEydfWnzJgfldnmwSW9fV8
1053	HwmHZMqSlbBJeXzaF9aXp2SXwmrd6S2sEPOq/rP7Jqz9poZ1wibzvHwZ5i2a
1054	q/+DHw9+sD0BbXNcAuON/AbLtgU9bOgsHuHA4n+kH/8KM75nHG60/rtG+nzw
1055	XZsj/+wRLEw0xr8HS1ICi36BjXvf98uCbxjPWgzwqR3iWxpYcXHrwzSYde0x
1056	6GB2Ru7wg0Xip0crYC5zoqQX8/LfcFlmoHU9zw+UwYPG+OVa2HrrSXQKLL6j
1057	cvwM95c+Kwmn635yIPwPuELaFLuGrntuh68bNqUerF3BvttN7HwM9pnxelHl
1058	gvUVC9uL4Fhz6iY3PZfF0MDbcEWtUuND6+vu59FzV7nLszj0XOr9spPhcY86
1059	E4v4/pHfL+lgxfRd29+wLP2A8jrMf1igbYdFiqA9NrjG7LxJ/xNNM1szB99o
1060	uTrxEa3X+KxrGWbpfYP/jkfvGxHzP9Ayqng=
1061	"]],
1062	PolygonBox[{{11.629942674154357`, 8.785625620478008}, {
1063	10.560474406164314`, 9.461079263419087}, {11.17964024552697,
1064	9.967669495624898}}], InsetBox[
1065	TagBox[
1066	StyleBox[
1067	TagBox["\<\"W\"\>",
1068	DisplayForm],
1069	FontFamily->"Helvetica",
1070	FontSize->9.996694214876035],
1071	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1072	9.996694214876035]& ], {10.655166186234853`, 8.873281425101244}, \
1073	{1, 1}],
1074	{PointSize[0.04], PointBox[{9., 12.}], PointBox[{13.5, 6.5}]},
1075	InsetBox[
1076	TagBox[
1077	StyleBox[
1078	TagBox["\<\"T1 C1 N2\"\>",
1079	DisplayForm],
1080	FontFamily->"Helvetica",
1081	FontSize->7.997355371900828],
1082	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1083	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
1084	AspectRatio->1,
1085	PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}],
1086	InsetBox[
1087	GraphicsBox[
1088	{Thickness[0.005],
1089	LineBox[{{-1.0913936421275139`*^-11, 9.999999999996362}, {
1090	8.999999999983629, 11.999999999996362`}}],
1091	PolygonBox[{{5.085712236110371, 11.130158274691194`}, {
1092	4.001059947017091, 10.479366901235226`}, {3.827515580762166,
1093	11.260316549382388`}}], InsetBox[
1094	TagBox[
1095	StyleBox[
1096	TagBox["\<\"t\"\>",
1097	DisplayForm],
1098	FontFamily->"Helvetica",
1099	FontSize->9.996694214876035],
1100	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1101	9.996694214876035]& ], {4.163757790381083, 11.908289943285126`}, \
1102	{0, -1}],
1103	LineBox[{{20.000000000009095`, 17.000000000003638`}, {
1104	9.000000000009095, 12.000000000007276`}}],
1105	PolygonBox[{{15.046219886477562`, 14.74828176658071}, {
1106	13.788258935801963`, 14.615864824404332`}, {14.11930129124291,
1107	13.887571642434247`}}], InsetBox[
1108	TagBox[
1109	StyleBox[
1110	TagBox["\<\"b\"\>",
1111	DisplayForm],
1112	FontFamily->"Helvetica",
1113	FontSize->9.996694214876035],
1114	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1115	9.996694214876035]& ], {14.463405436333165`, 15.306268040067037`}, \
1116	{1, -1}],
1117	LineBox[{{19.999999999996362`, 10.}, {13.499999999996362`,
1118	6.499999999996362}}],
1119	PolygonBox[{{17.278282659953305`, 8.53445989382101}, {
1120	16.032077410832688`, 8.31772854614786}, {16.4113572692607,
1121	7.61335166621012}}], InsetBox[
1122	TagBox[
1123	StyleBox[
1124	TagBox["\<\"ve\"\>",
1125	DisplayForm],
1126	FontFamily->"Helvetica",
1127	FontSize->9.996694214876035],
1128	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1129	9.996694214876035]& ], {16.619945274295723`, 9.009930204879371}, \
1130	{1, -1}], LineBox[{{20., 3.}, {13.5, 6.5}}],
1131	PolygonBox[{{16.221717340046695`, 5.03445989382101}, {
1132	17.467922589167312`, 4.81772854614786}, {17.0886427307393,
1133	4.11335166621012}}], InsetBox[
1134	TagBox[
1135	StyleBox[
1136	TagBox["\<\"e\"\>",
1137	DisplayForm],
1138	FontFamily->"Helvetica",
1139	FontSize->9.996694214876035],
1140	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1141	9.996694214876035]& ], {16.880054725704277`, 5.509930204879372}, \
1142	{-1, -1}], LineBox[CompressedData["
1143	1:eJwV1AtMU1cYB/DDqzajCbDB1gyEimV2KFsXBwMs4y6OrWgh1RWkSHDDMutg
1144	irMjQBoftKhE4tioAR8bjOBSTSvVGQR5CKQyxkDJVl4Kod3GQ3Q6BKHFO7r/
1145	ucnNye+e7zvfedycdTkHd+Z6EkKkeGlLnG48kQzhU7zOEHuXcNFnI0PUS6fF
1146	Z2B1QMkUdca5sfKXgxmi7XZ0rSC+d+DV23p4djJuswMWPJdmTsLWLS9FNNP+
1147	/leqBSEMGU/re3oMVpPSy9tgi8kVnggXebbl7oWzloqXlt9E/p0j6YdhU8yR
1148	4muwM2nycz3M6+ipPQRLW+cUdbBGKfokAWbWKjbeo+Nzr119DS5Yk+QOWsuQ
1149	trS4Ug/YMtwuLITtvz14xyXCeC05rsdwQfQXSyvwbB03VRPKkHx5n4bGf9qk
1150	zfYKY4jEUW7gwJ1jHeJKmCsJ0njD5Pju77gChnzI7lIsIV905VF8Ilx5YiZ9
1151	DFapRS37YWvS4r8muEBadeEkzMvw9jhM6+WP7j8PB07769+m85k4tu8SPPhu
1152	x/OZDQw5tRAVYIbH7zdq6uHA6CF1E9zAyxxQwRd5YVE9sC208dvNcIg2NdhO
1153	82N8cgJg7dAhJWcdQ2SScd3qGwxp3p0qiIOtfHbYCbcpjl4vpP6qNpKFxd6b
1154	6lth4XT6lCfy83PzMr3CsY6y7CkOLCdDw1I4diK5kPb7b9Xnn4RJW1X0PPLJ
1155	A35ZKzz7pax7EK70KHjrL5ht2hfyI2y5UqNehUe9OhtUsPGHexF+67G+0Lvt
1156	YTRfqWf5cK95NXg0AnFRF6oFsG3nekcVbLflvYiEydfWnzJgfldnmwSW9fV8
1157	HwmHZMqSlbBJeXzaF9aXp2SXwmrd6S2sEPOq/rP7Jqz9poZ1wibzvHwZ5i2a
1158	q/+DHw9+sD0BbXNcAuON/AbLtgU9bOgsHuHA4n+kH/8KM75nHG60/rtG+nzw
1159	XZsj/+wRLEw0xr8HS1ICi36BjXvf98uCbxjPWgzwqR3iWxpYcXHrwzSYde0x
1160	6GB2Ru7wg0Xip0crYC5zoqQX8/LfcFlmoHU9zw+UwYPG+OVa2HrrSXQKLL6j
1161	cvwM95c+Kwmn635yIPwPuELaFLuGrntuh68bNqUerF3BvttN7HwM9pnxelHl
1162	gvUVC9uL4Fhz6iY3PZfF0MDbcEWtUuND6+vu59FzV7nLszj0XOr9spPhcY86
1163	E4v4/pHfL+lgxfRd29+wLP2A8jrMf1igbYdFiqA9NrjG7LxJ/xNNM1szB99o
1164	uTrxEa3X+KxrGWbpfYP/jkfvGxHzP9Ayqng=
1165	"]],
1166	PolygonBox[{{11.629942674154357`, 8.785625620478008}, {
1167	10.560474406164314`, 9.461079263419087}, {11.17964024552697,
1168	9.967669495624898}}], InsetBox[
1169	TagBox[
1170	StyleBox[
1171	TagBox["\<\"W\"\>",
1172	DisplayForm],
1173	FontFamily->"Helvetica",
1174	FontSize->9.996694214876035],
1175	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1176	9.996694214876035]& ], {10.655166186234853`, 8.873281425101244}, \
1177	{1, 1}],
1178	{PointSize[0.04], PointBox[{9., 12.}], PointBox[{13.5, 6.5}]},
1179	InsetBox[
1180	TagBox[
1181	StyleBox[
1182	TagBox["\<\"T1 P1 N3\"\>",
1183	DisplayForm],
1184	FontFamily->"Helvetica",
1185	FontSize->7.997355371900828],
1186	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1187	7.997355371900828]& ], {10., -0.5}, {0, -1}]},
1188	AspectRatio->1,
1189	PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}],
1190	InsetBox[
1191	TagBox[
1192	StyleBox[
1193	TagBox["\<\"t\"\>",
1194	DisplayForm],
1195	FontFamily->"Helvetica",
1196	FontSize->11.99603305785124],
1197	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1198	11.99603305785124]& ], {24., 69.96}, {0, 0}], InsetBox[
1199	TagBox[
1200	StyleBox[
1201	TagBox["\<\"\[RightArrow]\"\>",
1202	DisplayForm],
1203	FontFamily->"Helvetica",
1204	FontSize->11.99603305785124],
1205	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1206	11.99603305785124]& ], {28.5, 69.96}, {0, 0}], InsetBox[
1207	TagBox[
1208	StyleBox[
1209	TagBox["\<\"b\"\>",
1210	DisplayForm],
1211	FontFamily->"Helvetica",
1212	FontSize->11.99603305785124],
1213	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1214	11.99603305785124]& ], {33., 69.96}, {0, 0}], InsetBox[
1215	TagBox[
1216	StyleBox[
1217	TagBox["\<\"ve\"\>",
1218	DisplayForm],
1219	FontFamily->"Helvetica",
1220	FontSize->11.99603305785124],
1221	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1222	11.99603305785124]& ], {37.5, 69.96}, {0, 0}], InsetBox[
1223	TagBox[
1224	StyleBox[
1225	TagBox["\<\"e\"\>",
1226	DisplayForm],
1227	FontFamily->"Helvetica",
1228	FontSize->11.99603305785124],
1229	StyleForm[#, FontFamily -> "Helvetica", FontSize ->
1230	11.99603305785124]& ], {42., 69.96}, {0, 0}]},
1231	AspectRatio->1.0999999999999999`,
1232	PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
1233	CellChangeTimes->{3.479546811928915^9, 3.49786207652789^9,
1234	3.4978625348613377`^9, 3.497871415519409^9, 3.49794248658965*^9,
1235	3.498391202615528^9, 3.499497282540414^9, 3.499519347854422*^9,
1236	3.499581284453961^9, 3.499585035072423^9, 3.499663885448338*^9,
1237	3.500719360943664*^9}]
1238	}, Open ]],
1239
1240	Cell[BoxData[
1241	FormBox[
1242	RowBox[{
1243	RowBox[{"FeynArtsGraphics", "(",
1244	RowBox[{
1245	RowBox[{"{", "\<\"t\"\>", "}"}], "\[Rule]",
1246	RowBox[{"{",
1247	RowBox[{"\<\"b\"\>", ",", "\<\"ve\"\>", ",", "\<\"e\"\>"}], "}"}]}],
1248	")"}], "\[InvisibleApplication]",
1249	RowBox[{"(",
1250	TagBox[
1251	RowBox[{"(", "\[NoBreak]", GridBox[{
1252	{
1253	FormBox[
1254	InterpretationBox[
1255
1256	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 G1 N1\"\>",
1257	"\[InvisibleSpace]", "\<\"]\"\>"}],
1258	SequenceForm["[", "T1 G1 N1", "]"],
1259	Editable->False],
1260	TraditionalForm],
1261	FormBox[
1262	InterpretationBox[
1263
1264	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C1 N2\"\>",
1265	"\[InvisibleSpace]", "\<\"]\"\>"}],
1266	SequenceForm["[", "T1 C1 N2", "]"],
1267	Editable->False],
1268	TraditionalForm],
1269	FormBox[
1270	InterpretationBox[
1271
1272	RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N3\"\>",
1273	"\[InvisibleSpace]", "\<\"]\"\>"}],
1274	SequenceForm["[", "T1 P1 N3", "]"],
1275	Editable->False],
1276	TraditionalForm]},
1277	{"Null", "Null", "Null"},
1278	{"Null", "Null", "Null"}
1279	},
1280	GridBoxAlignment->{
1281	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1282	"RowsIndexed" -> {}},
1283	GridBoxSpacings->{"Columns" -> {
1284	Offset[0.27999999999999997`], {
1285	Offset[0.7]},
1286	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1287	Offset[0.2], {
1288	Offset[0.4]},
1289	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1290	Function[BoxForm`e$,
1291	MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
1292	CellChangeTimes->{
1293	3.4778063475407^9, 3.4778065254607^9, 3.4778099157272*^9,
1294	3.4778115492682^9, 3.47843686984159^9, 3.478436906375371*^9, {
1295	3.478437853618226^9, 3.478437860811162^9}, 3.479099999826127*^9,
1296	3.479106333796554^9, {3.479546806741183^9, 3.479546812623714*^9},
1297	3.4978620779952097`^9, 3.497862535136364^9, 3.497871415799543*^9,
1298	3.4979424893430643`^9, 3.498391202919662^9, 3.499497285005741*^9,
1299	3.49951935066346^9, 3.499581286681391^9, 3.499585035291901*^9,
1300	3.499663885673908^9, 3.500719361065125^9}]
1301	}, Open ]],
1302
1303	Cell[CellGroupData[{
1304
1305	Cell[BoxData[
1306	RowBox[{
1307	RowBox[{"Amplqq", " ", "=", " ",
1308	RowBox[{"CreateFeynAmp", "[", "INTopoqq", "]"}]}], ";"}]], "Input",
1309	CellChangeTimes->{{3.4778062370957003`^9, 3.4778062399307003`^9}, {
1310	3.4778115657332^9, 3.4778115658507^9}, {3.4778120221097*^9,
1311	3.4778120222467003`^9}, 3.479547360479462^9}],
1312
1313	Cell[CellGroupData[{
1314
1315	Cell[BoxData[
1316	FormBox["\<\"\"\>", TraditionalForm]], "Print",
1317	CellChangeTimes->{
1318	3.4778115712007^9, {3.4778120234797^9, 3.4778120430657*^9},
1319	3.478434383755428^9, 3.478435578790159^9, 3.478435879919781*^9,
1320	3.478436801285664^9, 3.478436912149393^9, 3.479546827897663*^9,
1321	3.479547326278256^9, 3.479547708182675^9, 3.4978620943988867`*^9,
1322	3.497862539864615^9, 3.49787142159265^9, 3.49794249187234*^9,
1323	3.498391203987452^9, 3.4994972935936937`^9, 3.499519352311137*^9,
1324	3.499581288167224^9, 3.4995850366485233`^9, 3.499585789386694*^9,
1325	3.499663888450828^9, 3.500719361311668^9}],
1326
1327	Cell[BoxData[
1328	FormBox[
1329	InterpretationBox[
1330	RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
1331	RowBox[{"{",
1332	RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}],
1333	SequenceForm[
1334	"creating amplitudes at level(s) ", {
1335	Generic, FeynArts`Classes, FeynArts`Particles}],
1336	Editable->False], TraditionalForm]], "Print",
1337	CellChangeTimes->{
1338	3.4778115712007^9, {3.4778120234797^9, 3.4778120430657*^9},
1339	3.478434383755428^9, 3.478435578790159^9, 3.478435879919781*^9,
1340	3.478436801285664^9, 3.478436912149393^9, 3.479546827897663*^9,
1341	3.479547326278256^9, 3.479547708182675^9, 3.4978620943988867`*^9,
1342	3.497862539864615^9, 3.49787142159265^9, 3.49794249187234*^9,
1343	3.498391203987452^9, 3.4994972935936937`^9, 3.499519352311137*^9,
1344	3.499581288167224^9, 3.4995850366485233`^9, 3.499585789386694*^9,
1345	3.499663888450828^9, 3.500719361362303^9}],
1346
1347	Cell[BoxData[
1348	FormBox[
1349	InterpretationBox[
1350	RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
1351	"\[InvisibleSpace]", "\<\": \"\>",
1352	"\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \
1353	amplitudes\"\>"}],
1354	SequenceForm[
1355	"> Top. ", 1, ": ", "1 Generic, 1 Classes, 1 Particles amplitudes"],
1356	Editable->False], TraditionalForm]], "Print",
1357	CellChangeTimes->{
1358	3.4778115712007^9, {3.4778120234797^9, 3.4778120430657*^9},
1359	3.478434383755428^9, 3.478435578790159^9, 3.478435879919781*^9,
1360	3.478436801285664^9, 3.478436912149393^9, 3.479546827897663*^9,
1361	3.479547326278256^9, 3.479547708182675^9, 3.4978620943988867`*^9,
1362	3.497862539864615^9, 3.49787142159265^9, 3.49794249187234*^9,
1363	3.498391203987452^9, 3.4994972935936937`^9, 3.499519352311137*^9,
1364	3.499581288167224^9, 3.4995850366485233`^9, 3.499585789386694*^9,
1365	3.499663888450828^9, 3.500719361468334^9}],
1366
1367	Cell[BoxData[
1368	FormBox[
1369	InterpretationBox[
1370	RowBox[{"\<\"in total: \"\>",
1371	"\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \
1372	amplitudes\"\>"}],
1373	SequenceForm["in total: ", "1 Generic, 1 Classes, 1 Particles amplitudes"],
1374
1375	Editable->False], TraditionalForm]], "Print",
1376	CellChangeTimes->{
1377	3.4778115712007^9, {3.4778120234797^9, 3.4778120430657*^9},
1378	3.478434383755428^9, 3.478435578790159^9, 3.478435879919781*^9,
1379	3.478436801285664^9, 3.478436912149393^9, 3.479546827897663*^9,
1380	3.479547326278256^9, 3.479547708182675^9, 3.4978620943988867`*^9,
1381	3.497862539864615^9, 3.49787142159265^9, 3.49794249187234*^9,
1382	3.498391203987452^9, 3.4994972935936937`^9, 3.499519352311137*^9,
1383	3.499581288167224^9, 3.4995850366485233`^9, 3.499585789386694*^9,
1384	3.499663888450828^9, 3.500719361667344^9}]
1385	}, Open ]]
1386	}, Open ]],
1387
1388	Cell[CellGroupData[{
1389
1390	Cell[BoxData[{
1391	RowBox[{
1392	RowBox[{
1393	"SetDirectory", "[", "\"\</home/degrande/eta/FeynProg/FormCalc-6.2\>\"",
1394	"]"}], ";"}], "\[IndentingNewLine]",
1395	RowBox[{"<<", " ", "FormCalc`"}]}], "Input",
1396	CellChangeTimes->{
1397	3.4777456682883^9, {3.4778119018507^9, 3.4778119054056997`*^9}, {
1398	3.4778119371527^9, 3.4778119527257^9}, {3.478434390853149*^9,
1399	3.478434394596879^9}, {3.498391209209569^9, 3.4983912097170353`*^9}}],
1400
1401	Cell[CellGroupData[{
1402
1403	Cell[BoxData[
1404	FormBox["\<\"\"\>", TraditionalForm]], "Print",
1405	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
1406	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
1407	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
1408	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
1409	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
1410	3.497942493923506^9, 3.4983912102183523`^9, 3.4994973038535957`*^9,
1411	3.4995193551430483`^9, 3.4995812984336^9, 3.499585038838491*^9,
1412	3.499585791759503^9, 3.499663892956696^9, 3.5007193633356047`*^9}],
1413
1414	Cell[BoxData[
1415	FormBox["\<\"FormCalc 6.2\"\>", TraditionalForm]], "Print",
1416	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
1417	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
1418	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
1419	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
1420	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
1421	3.497942493923506^9, 3.4983912102183523`^9, 3.4994973038535957`*^9,
1422	3.4995193551430483`^9, 3.4995812984336^9, 3.499585038838491*^9,
1423	3.499585791759503^9, 3.499663892956696^9, 3.500719363418564*^9}],
1424
1425	Cell[BoxData[
1426	FormBox["\<\"by Thomas Hahn\"\>", TraditionalForm]], "Print",
1427	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
1428	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
1429	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
1430	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
1431	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
1432	3.497942493923506^9, 3.4983912102183523`^9, 3.4994973038535957`*^9,
1433	3.4995193551430483`^9, 3.4995812984336^9, 3.499585038838491*^9,
1434	3.499585791759503^9, 3.499663892956696^9, 3.500719363578381*^9}],
1435
1436	Cell[BoxData[
1437	FormBox["\<\"last revised 11 Aug 10\"\>", TraditionalForm]], "Print",
1438	CellChangeTimes->{3.4778119597987003`^9, 3.4778120637597^9,
1439	3.478434395661687^9, 3.478435582118547^9, 3.478435888622634*^9,
1440	3.478436917398712^9, 3.479100039759344^9, 3.479106351470136*^9,
1441	3.479546849379882^9, 3.479547331470876^9, 3.479547710446361*^9,
1442	3.497862097715542^9, 3.497862541299556^9, 3.497871425757481*^9,
1443	3.497942493923506^9, 3.4983912102183523`^9, 3.4994973038535957`*^9,
1444	3.4995193551430483`^9, 3.4995812984336^9, 3.499585038838491*^9,
1445	3.499585791759503^9, 3.499663892956696^9, 3.500719363692773*^9}]
1446	}, Open ]]
1447	}, Open ]],
1448
1449	Cell[CellGroupData[{
1450
1451	Cell[BoxData[
1452	RowBox[{
1453	RowBox[{"Mqq", " ", "=", " ",
1454	RowBox[{"CalcFeynAmp", "[",
1455	RowBox[{"Amplqq", ",",
1456	RowBox[{"FermionChains", "\[Rule]", "Chiral"}]}], "]"}]}],
1457	";"}]], "Input",
1458	CellChangeTimes->{{3.4778119845017^9, 3.4778120345607^9}, {
1459	3.478435376938886^9, 3.478435418868291^9}, 3.479547358194307*^9}],
1460
1461	Cell[CellGroupData[{
1462
1463	Cell[BoxData[
1464	FormBox["\<\"\"\>", TraditionalForm]], "Print",
1465	CellChangeTimes->{3.478434402570528^9, 3.478435422620416^9,
1466	3.478435588542779^9, 3.478435896246393^9, 3.478436924110362*^9,
1467	3.479100051862622^9, 3.479106355014496^9, 3.479546852661124*^9,
1468	3.479547334202314^9, 3.479547712295999^9, 3.497862102150838*^9,
1469	3.49786254240231^9, 3.497871427141417^9, 3.497942495239724*^9,
1470	3.498391212528688^9, 3.499497305225618^9, 3.49951935697228*^9,
1471	3.499581300960306^9, 3.499585040104176^9, 3.4995857929924583`*^9,
1472	3.499663894419057^9, 3.500719364755843^9}],
1473
1474	Cell[BoxData[
1475	FormBox[
1476	InterpretationBox[
1477	RowBox[{"\<\"preparing FORM code in \"\>",
1478	"\[InvisibleSpace]", \
1479	"\<\"/nfs/home/d/degrande/eta/FeynProg/FormCalc-6.2/fc11.frm\"\>"}],
1480	SequenceForm[
1481	"preparing FORM code in ",
1482	"/nfs/home/d/degrande/eta/FeynProg/FormCalc-6.2/fc11.frm"],
1483	Editable->False], TraditionalForm]], "Print",
1484	CellChangeTimes->{3.478434402570528^9, 3.478435422620416^9,
1485	3.478435588542779^9, 3.478435896246393^9, 3.478436924110362*^9,
1486	3.479100051862622^9, 3.479106355014496^9, 3.479546852661124*^9,
1487	3.479547334202314^9, 3.479547712295999^9, 3.497862102150838*^9,
1488	3.49786254240231^9, 3.497871427141417^9, 3.497942495239724*^9,
1489	3.498391212528688^9, 3.499497305225618^9, 3.49951935697228*^9,
1490	3.499581300960306^9, 3.499585040104176^9, 3.4995857929924583`*^9,
1491	3.499663894419057^9, 3.500719364816538^9}],
1492
1493	Cell["running FORM... ", "Print",
1494	CellChangeTimes->{3.478434402570528^9, 3.478435422620416^9,
1495	3.478435588542779^9, 3.478435896246393^9, 3.478436924110362*^9,
1496	3.479100051862622^9, 3.479106355014496^9, 3.479546852661124*^9,
1497	3.479547334202314^9, 3.479547712295999^9, 3.497862102150838*^9,
1498	3.49786254240231^9, 3.497871427141417^9, 3.497942495239724*^9,
1499	3.498391212528688^9, 3.499497305225618^9, 3.49951935697228*^9,
1500	3.499581300960306^9, 3.499585040104176^9, 3.4995857929924583`*^9,
1501	3.499663894419057^9, 3.500719364974832^9}],
1502
1503	Cell[BoxData[
1504	FormBox["\<\"ok\"\>", TraditionalForm]], "Print",
1505	CellChangeTimes->{3.478434402570528^9, 3.478435422620416^9,
1506	3.478435588542779^9, 3.478435896246393^9, 3.478436924110362*^9,
1507	3.479100051862622^9, 3.479106355014496^9, 3.479546852661124*^9,
1508	3.479547334202314^9, 3.479547712295999^9, 3.497862102150838*^9,
1509	3.49786254240231^9, 3.497871427141417^9, 3.497942495239724*^9,
1510	3.498391212528688^9, 3.499497305225618^9, 3.49951935697228*^9,
1511	3.499581300960306^9, 3.499585040104176^9, 3.4995857929924583`*^9,
1512	3.499663894419057^9, 3.500719365231838^9}]
1513	}, Open ]]
1514	}, Open ]],
1515
1516	Cell[CellGroupData[{
1517
1518	Cell[BoxData[
1519	RowBox[{"col", "=",
1520	RowBox[{"ColourME", "[", "Mqq", "]"}]}]], "Input",
1521	CellChangeTimes->{{3.478434696113564^9, 3.478434729084623^9}, {
1522	3.478435197289632^9, 3.478435232835993^9}, {3.478436054623279*^9,
1523	3.478436055525961*^9}}],
1524
1525	Cell[BoxData[
1526	FormBox[
1527	RowBox[{"{",
1528	RowBox[{
1529	RowBox[{"Mat", "(",
1530	RowBox[{"SUN1", ",", "SUN1"}], ")"}], "\[Rule]", "3"}], "}"}],
1531	TraditionalForm]], "Output",
1532	CellChangeTimes->{3.478434730426236^9, 3.478435200749498^9,
1533	3.478435233950212^9, 3.478435426393788^9, 3.478435591077346*^9,
1534	3.478435927320691^9, 3.478436057790335^9, 3.478436928353135*^9,
1535	3.479100063362775^9, 3.479106358816292^9, 3.479546864822269*^9,
1536	3.479547348022377^9, 3.479547714372858^9, 3.497862106256465*^9,
1537	3.4978625437919207`^9, 3.497871428686603^9, 3.497942496752326*^9,
1538	3.498391216132546^9, 3.499497307229356^9, 3.499519358244811*^9,
1539	3.4995813029142036`^9, 3.49958504138914^9, 3.499585794240782*^9,
1540	3.499663896091028^9, 3.500719366287694^9}]
1541	}, Open ]],
1542
1543	Cell[CellGroupData[{
1544
1545	Cell[BoxData[{
1546	RowBox[{
1547	RowBox[{"_Hel", "=", "0"}], ";"}], "\[IndentingNewLine]",
1548	RowBox[{
1549	RowBox[{"hel", "=",
1550	RowBox[{"HelicityME", "[", "Mqq", "]"}]}], ";"}]}], "Input",
1551	CellChangeTimes->{{3.478435272631223^9, 3.478435280805309^9}, {
1552	3.478435549596737^9, 3.478435557227066^9}, {3.478436067208497*^9,
1553	3.478436071671449^9}, {3.478436592499899^9, 3.478436607261712*^9},
1554	3.479547354402557*^9}],
1555
1556	Cell[CellGroupData[{
1557
1558	Cell[BoxData[
1559	FormBox[
1560	InterpretationBox[
1561	RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "16",
1562	"\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}],
1563	SequenceForm["> ", 16, " helicity matrix elements"],
1564	Editable->False], TraditionalForm]], "Print",
1565	CellChangeTimes->{3.478435541414897^9, 3.478435592470004^9,
1566	3.478435933573625^9, 3.478436072748205^9, 3.478436610903903*^9,
1567	3.478436931796526^9, 3.47910006737685^9, 3.479106361221098*^9,
1568	3.479546867343088^9, 3.479547349361385^9, 3.479547716089566*^9,
1569	3.4978621091115437`^9, 3.4978625446088333`^9, 3.497871429631003*^9,
1570	3.4979424987232637`^9, 3.498391219502906^9, 3.4994973084050283`*^9,
1571	3.499519359488524^9, 3.499581304124205^9, 3.499585042245976*^9,
1572	3.4995857953352222`^9, 3.4996638973463507`^9, 3.500719367222206*^9}],
1573
1574	Cell[BoxData[
1575	FormBox["\<\"\"\>", TraditionalForm]], "Print",
1576	CellChangeTimes->{3.478435541414897^9, 3.478435592470004^9,
1577	3.478435933573625^9, 3.478436072748205^9, 3.478436610903903*^9,
1578	3.478436931796526^9, 3.47910006737685^9, 3.479106361221098*^9,
1579	3.479546867343088^9, 3.479547349361385^9, 3.479547716089566*^9,
1580	3.4978621091115437`^9, 3.4978625446088333`^9, 3.497871429631003*^9,
1581	3.4979424987232637`^9, 3.498391219502906^9, 3.4994973084050283`*^9,
1582	3.499519359488524^9, 3.499581304124205^9, 3.499585042245976*^9,
1583	3.4995857953352222`^9, 3.4996638973463507`^9, 3.500719367314177*^9}],
1584
1585	Cell[BoxData[
1586	FormBox[
1587	InterpretationBox[
1588	RowBox[{"\<\"preparing FORM code in \"\>",
1589	"\[InvisibleSpace]", \
1590	"\<\"/nfs/home/d/degrande/eta/FeynProg/FormCalc-6.2/fc11.frm\"\>"}],
1591	SequenceForm[
1592	"preparing FORM code in ",
1593	"/nfs/home/d/degrande/eta/FeynProg/FormCalc-6.2/fc11.frm"],
1594	Editable->False], TraditionalForm]], "Print",
1595	CellChangeTimes->{3.478435541414897^9, 3.478435592470004^9,
1596	3.478435933573625^9, 3.478436072748205^9, 3.478436610903903*^9,
1597	3.478436931796526^9, 3.47910006737685^9, 3.479106361221098*^9,
1598	3.479546867343088^9, 3.479547349361385^9, 3.479547716089566*^9,
1599	3.4978621091115437`^9, 3.4978625446088333`^9, 3.497871429631003*^9,
1600	3.4979424987232637`^9, 3.498391219502906^9, 3.4994973084050283`*^9,
1601	3.499519359488524^9, 3.499581304124205^9, 3.499585042245976*^9,
1602	3.4995857953352222`^9, 3.4996638973463507`^9, 3.500719367452753*^9}],
1603
1604	Cell["running FORM... ", "Print",
1605	CellChangeTimes->{3.478435541414897^9, 3.478435592470004^9,
1606	3.478435933573625^9, 3.478436072748205^9, 3.478436610903903*^9,
1607	3.478436931796526^9, 3.47910006737685^9, 3.479106361221098*^9,
1608	3.479546867343088^9, 3.479547349361385^9, 3.479547716089566*^9,
1609	3.4978621091115437`^9, 3.4978625446088333`^9, 3.497871429631003*^9,
1610	3.4979424987232637`^9, 3.498391219502906^9, 3.4994973084050283`*^9,
1611	3.499519359488524^9, 3.499581304124205^9, 3.499585042245976*^9,
1612	3.4995857953352222`^9, 3.4996638973463507`^9, 3.500719367593958*^9}],
1613
1614	Cell[BoxData[
1615	FormBox["\<\"ok\"\>", TraditionalForm]], "Print",
1616	CellChangeTimes->{3.478435541414897^9, 3.478435592470004^9,
1617	3.478435933573625^9, 3.478436072748205^9, 3.478436610903903*^9,
1618	3.478436931796526^9, 3.47910006737685^9, 3.479106361221098*^9,
1619	3.479546867343088^9, 3.479547349361385^9, 3.479547716089566*^9,
1620	3.4978621091115437`^9, 3.4978625446088333`^9, 3.497871429631003*^9,
1621	3.4979424987232637`^9, 3.498391219502906^9, 3.4994973084050283`*^9,
1622	3.499519359488524^9, 3.499581304124205^9, 3.499585042245976*^9,
1623	3.4995857953352222`^9, 3.4996638973463507`^9, 3.5007193677242413`*^9}]
1624	}, Open ]]
1625	}, Open ]],
1626
1627	Cell[CellGroupData[{
1628
1629	Cell[BoxData[
1630	RowBox[{"Mqq2", "=",
1631	RowBox[{
1632	RowBox[{"Simplify", "[",
1633	RowBox[{
1634	RowBox[{
1635	RowBox[{
1636	RowBox[{
1637	RowBox[{
1638	RowBox[{
1639	RowBox[{"SquaredME", "[", "Mqq", "]"}], "/.", "col"}], "/.",
1640	"hel"}], "/.", "M$FACouplings"}], "/.",
1641	RowBox[{"{",
1642	RowBox[{
1643	RowBox[{"Me", "\[Rule]", "0"}], ",",
1644	RowBox[{"MB2", "\[Rule]", "0"}]}], "}"}]}], "/.",
1645	RowBox[{"{",
1646	RowBox[{
1647	RowBox[{"Den", "[",
1648	RowBox[{"a_", ",", "b_"}], "]"}], "\[Rule]",
1649	RowBox[{"1", "/",
1650	RowBox[{"(",
1651	RowBox[{"a", "-", "b"}], ")"}]}]}], "}"}]}], ",",
1652	RowBox[{"Assumptions", "\[Rule]",
1653	RowBox[{"{",
1654	RowBox[{
1655	RowBox[{"v", "\[Element]", "Reals"}], ",",
1656	RowBox[{"Lambda", "\[Element]", "Reals"}], ",",
1657	RowBox[{"sw", "\[Element]", "Reals"}], ",",
1658	RowBox[{"CKM33", "\[Element]", "Reals"}]}], "}"}]}]}], "]"}], "*",
1659	RowBox[{"8", "/", "3"}]}]}]], "Input",
1660	CellChangeTimes->{{3.478436009927547^9, 3.478436018997932^9}, {
1661	3.478436082403898^9, 3.478436090700395^9}, {3.478436177508675*^9,
1662	3.47843618204671^9}, {3.478437003898071^9, 3.47843701110685*^9}, {
1663	3.478437477803822^9, 3.478437504302616^9}, {3.479106936214095*^9,
1664	3.479106948049022^9}, {3.479107333470424^9, 3.479107353663611*^9},
1665	3.497862123314191^9, {3.497862166292612^9, 3.4978621787574587`*^9}, {
1666	3.4978624132489767`^9, 3.497862416365185^9}, {3.497862613296958*^9,
1667	3.4978626363483677`^9}, {3.4978627990282288`^9, 3.497862817305622*^9}, {
1668	3.500719448087429^9, 3.500719562030737^9}}],
1669
1670	Cell[BoxData[
1671	FormBox[
1672	RowBox[{"-",
1673	RowBox[{
1674	FractionBox["1",
1675	RowBox[{
1676	SuperscriptBox["Lambda", "4"], " ",
1677	SuperscriptBox["sw", "4"], " ",
1678	SuperscriptBox[
1679	RowBox[{"(",
1680	RowBox[{"MW2", "-", "T12"}], ")"}], "2"]}]],
1681	RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", "S23", " ",
1682	RowBox[{"(",
1683	RowBox[{
1684	RowBox[{
1685	SuperscriptBox["C3phiq", "\[Conjugate]"], " ",
1686	RowBox[{"(",
1687	RowBox[{
1688	RowBox[{
1689	SqrtBox["2"], " ", "EL", " ", "MT", " ", "sw", " ",
1690	RowBox[{"(",
1691	RowBox[{
1692	RowBox[{"-", "MT2"}], "+", "S23", "+", "T"}], ")"}], " ", "v",
1693	" ",
1694	SuperscriptBox["CtW", "\[Conjugate]"]}], "-",
1695	RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ",
1696	RowBox[{"(",
1697	RowBox[{"MT2", "-", "S23"}], ")"}], " ",
1698	RowBox[{"(",
1699	RowBox[{
1700	RowBox[{"CKM33", " ",
1701	SuperscriptBox["Lambda", "2"]}], "+",
1702	RowBox[{"C3phiq", " ",
1703	SuperscriptBox["v", "2"]}]}], ")"}]}]}], ")"}], " ",
1704	SuperscriptBox["v", "2"]}], "-",
1705	RowBox[{"sw", " ",
1706	RowBox[{"(",
1707	RowBox[{"MT2", "-", "S23", "-", "T"}], ")"}], " ",
1708	RowBox[{"(",
1709	RowBox[{
1710	RowBox[{
1711	SqrtBox["2"], " ", "CKM33", " ", "EL", " ", "MT", " ",
1712	SuperscriptBox["Lambda", "2"]}], "+",
1713	RowBox[{"4", " ", "CtW", " ", "sw", " ",
1714	RowBox[{"(",
1715	RowBox[{"MT2", "-", "T"}], ")"}], " ", "v"}]}], ")"}], " ",
1716	SuperscriptBox["CtW", "\[Conjugate]"], " ", "v"}], "-",
1717	RowBox[{
1718	RowBox[{"(",
1719	RowBox[{
1720	RowBox[{"2", " ", "Alfa", " ", "CKM33", " ", "\[Pi]", " ",
1721	RowBox[{"(",
1722	RowBox[{"MT2", "-", "S23"}], ")"}], " ",
1723	SuperscriptBox["Lambda", "2"]}], "+",
1724	RowBox[{
1725	SqrtBox["2"], " ", "CtW", " ", "EL", " ", "MT", " ", "sw", " ",
1726	RowBox[{"(",
1727	RowBox[{"MT2", "-", "S23", "-", "T"}], ")"}], " ", "v"}]}], ")"}],
1728	" ",
1729	RowBox[{"(",
1730	RowBox[{
1731	RowBox[{"CKM33", " ",
1732	SuperscriptBox["Lambda", "2"]}], "+",
1733	RowBox[{"C3phiq", " ",
1734	SuperscriptBox["v", "2"]}]}], ")"}]}]}], ")"}]}]}]}],
1735	TraditionalForm]], "Output",
1736	CellChangeTimes->{{3.5007195379021997`^9, 3.500719563018862^9}}]
1737	}, Open ]],
1738
1739	Cell[CellGroupData[{
1740
1741	Cell[BoxData[
1742	RowBox[{"SM", " ", "=", " ",
1743	RowBox[{
1744	RowBox[{"FullSimplify", "[",
1745	RowBox[{
1746	RowBox[{"Coefficient", "[",
1747	RowBox[{
1748	RowBox[{"Mqq2", "/.",
1749	RowBox[{"Lambda", "\[Rule]",
1750	RowBox[{"1", "/", "Lrep"}]}]}], ",", "Lrep", ",", "0"}], "]"}], "/.",
1751
1752	RowBox[{"Lrep", "\[Rule]",
1753	RowBox[{"1", "/", "Lambda"}]}]}], "]"}], "/.",
1754	RowBox[{"Alfa2", "\[Rule]",
1755	RowBox[{
1756	RowBox[{"(",
1757	RowBox[{
1758	RowBox[{"g", "^", "2"}], "*",
1759	RowBox[{
1760	RowBox[{
1761	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}], "^",
1762	"2"}]}]}]}]], "Input",
1763	CellChangeTimes->{{3.479107390301893^9, 3.479107487977641^9}, {
1764	3.497862153269348^9, 3.4978621630633917`^9}, {3.497862211884811*^9,
1765	3.497862355442546^9}, {3.497871464219926^9, 3.4978714701498127`*^9}, {
1766	3.497872139341824^9, 3.497872173963148^9}, 3.497872208436336*^9, {
1767	3.499583028425418^9, 3.499583029963398^9}, {3.500719599612225*^9,
1768	3.500719600555066*^9}}],
1769
1770	Cell[BoxData[
1771	FormBox[
1772	FractionBox[
1773	RowBox[{
1774	SuperscriptBox["CKM33", "2"], " ",
1775	SuperscriptBox["g", "4"], " ",
1776	RowBox[{"(",
1777	RowBox[{"MT2", "-", "S23"}], ")"}], " ", "S23"}],
1778	RowBox[{"2", " ",
1779	SuperscriptBox[
1780	RowBox[{"(",
1781	RowBox[{"MW2", "-", "T12"}], ")"}], "2"]}]], TraditionalForm]], "Output",\
1782
1783	CellChangeTimes->{
1784	3.479107432084265^9, {3.479107479011856^9, 3.47910748870907*^9},
1785	3.479546898992261^9, 3.479547373602786^9, 3.47954772133109*^9, {
1786	3.49786218934586^9, 3.4978622417535763`^9}, {3.497862328456608*^9,
1787	3.497862356340589^9}, 3.4978624247687893`^9, 3.497862548456053*^9,
1788	3.497862603630416^9, 3.497862643361876^9, 3.497862823146008*^9,
1789	3.497871437274989^9, 3.497871470884967^9, 3.497872174954796*^9,
1790	3.497872208727311^9, 3.4979425037893133`^9, 3.4983912314140177`*^9,
1791	3.4995193847168407`^9, 3.499583030817844^9, 3.499585057259459*^9,
1792	3.499585801294929^9, 3.4996639072089167`^9, 3.500719374289571*^9,
1793	3.500719465100717^9, {3.500719540518568^9, 3.50071956559111*^9},
1794	3.500719601171135*^9}]
1795	}, Open ]],
1796
1797	Cell[CellGroupData[{
1798
1799	Cell[BoxData[
1800	RowBox[{"I3phiq", "=",
1801	RowBox[{
1802	RowBox[{"Simplify", "[",
1803	RowBox[{
1804	RowBox[{"Coefficient", "[",
1805	RowBox[{
1806	RowBox[{"Mqq2", "/.",
1807	RowBox[{"Lambda", "\[Rule]",
1808	RowBox[{"1", "/", "Lrep"}]}]}], ",", "Lrep", ",", "2"}], "]"}], "/.",
1809
1810	RowBox[{"{",
1811	RowBox[{
1812	RowBox[{"Lrep", "\[Rule]",
1813	RowBox[{"1", "/", "Lambda"}]}], ",",
1814	RowBox[{"CtW", "\[Rule]", "0"}]}], "}"}]}], "]"}], "/.",
1815	RowBox[{"Alfa2", "\[Rule]",
1816	RowBox[{
1817	RowBox[{"(",
1818	RowBox[{
1819	RowBox[{"g", "^", "2"}], "*",
1820	RowBox[{
1821	RowBox[{
1822	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}], "^",
1823	"2"}]}]}]}]], "Input",
1824	CellChangeTimes->{
1825	3.497862652569742^9, {3.497871477077907^9, 3.497871482621311*^9}, {
1826	3.4978715422628403`^9, 3.497871560455545^9}, 3.497872247138032*^9, {
1827	3.499583044715734^9, 3.499583062852566^9}}],
1828
1829	Cell[BoxData[
1830	FormBox[
1831	FractionBox[
1832	RowBox[{"CKM33", " ",
1833	SuperscriptBox["g", "4"], " ",
1834	RowBox[{"(",
1835	RowBox[{"MT2", "-", "S23"}], ")"}], " ", "S23", " ",
1836	SuperscriptBox["v", "2"], " ",
1837	RowBox[{"(",
1838	RowBox[{"C3phiq", "+",
1839	SuperscriptBox["C3phiq", "\[Conjugate]"]}], ")"}]}],
1840	RowBox[{"2", " ",
1841	SuperscriptBox[
1842	RowBox[{"(",
1843	RowBox[{"MW2", "-", "T12"}], ")"}], "2"]}]], TraditionalForm]], "Output",\
1844
1845	CellChangeTimes->{3.4978626530863867`^9, 3.497862825140256^9,
1846	3.497871484101454^9, 3.49787152665973^9, 3.497871560798565*^9,
1847	3.497872248273581^9, 3.4979425057500362`^9, 3.498391234071066*^9,
1848	3.499519394231093^9, 3.4995830634001207`^9, 3.4995850606342154`*^9,
1849	3.4995858041433764`^9, 3.4996639129696493`^9, 3.500719376158753*^9,
1850	3.500719587933814*^9}]
1851	}, Open ]],
1852
1853	Cell[CellGroupData[{
1854
1855	Cell[BoxData[
1856	RowBox[{"Simplify", "[",
1857	RowBox[{"I3phiq", "/", "SM"}], "]"}]], "Input",
1858	CellChangeTimes->{{3.499583066599391^9, 3.49958307954329^9}}],
1859
1860	Cell[BoxData[
1861	FormBox[
1862	FractionBox[
1863	RowBox[{
1864	SuperscriptBox["v", "2"], " ",
1865	RowBox[{"(",
1866	RowBox[{"C3phiq", "+",
1867	SuperscriptBox["C3phiq", "\[Conjugate]"]}], ")"}]}], "CKM33"],
1868	TraditionalForm]], "Output",
1869	CellChangeTimes->{3.499583081627861^9, 3.499585063949625^9,
1870	3.499585805876174^9, 3.4996639162425528`^9, 3.500719377583383*^9,
1871	3.500719605979908*^9}]
1872	}, Open ]],
1873
1874	Cell[CellGroupData[{
1875
1876	Cell[BoxData[
1877	RowBox[{"ItW", "=",
1878	RowBox[{
1879	RowBox[{
1880	RowBox[{"FullSimplify", "[",
1881	RowBox[{
1882	RowBox[{"Coefficient", "[",
1883	RowBox[{
1884	RowBox[{"Mqq2", "/.",
1885	RowBox[{"Lambda", "\[Rule]",
1886	RowBox[{"1", "/", "Lrep"}]}]}], ",", "Lrep", ",", "2"}], "]"}], "/.",
1887
1888	RowBox[{"{",
1889	RowBox[{
1890	RowBox[{"Lrep", "\[Rule]",
1891	RowBox[{"1", "/", "Lambda"}]}], ",",
1892	RowBox[{"C3phiq", "\[Rule]", "0"}]}], "}"}]}], "]"}], "/.",
1893	RowBox[{"{",
1894	RowBox[{
1895	RowBox[{"Alfa2", "\[Rule]",
1896	RowBox[{
1897	RowBox[{"(",
1898	RowBox[{
1899	RowBox[{"g", "^", "2"}], "*",
1900	RowBox[{
1901	RowBox[{
1902	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}],
1903	"^", "2"}]}], ",",
1904	RowBox[{"Alfa", "\[Rule]",
1905	RowBox[{"(",
1906	RowBox[{
1907	RowBox[{"g", "^", "2"}], "*",
1908	RowBox[{
1909	RowBox[{
1910	RowBox[{"sw", "^", "2"}], "/", "4"}], "/", "\[Pi]"}]}], ")"}]}]}],
1911	"}"}]}], "/.",
1912	RowBox[{"v", "\[Rule]",
1913	RowBox[{"2", "MW", " ",
1914	RowBox[{"sw", "/", "EL"}]}]}]}]}]], "Input",
1915	CellChangeTimes->{{3.497871610887577^9, 3.497871617629863^9}, {
1916	3.497872251640006^9, 3.49787227096323^9}, {3.4978725133447638`*^9,
1917	3.497872535294683^9}, {3.499663979418893^9, 3.499663988427759*^9}, {
1918	3.500719691758853^9, 3.500719693379096^9}}],
1919
1920	Cell[BoxData[
1921	FormBox[
1922	RowBox[{"-",
1923	FractionBox[
1924	RowBox[{"4", " ",
1925	SqrtBox["2"], " ", "CKM33", " ",
1926	SuperscriptBox["g", "2"], " ", "MT", " ", "MW", " ", "S23", " ",
1927	RowBox[{"(",
1928	RowBox[{
1929	RowBox[{"-", "MT2"}], "+", "S23", "+", "T"}], ")"}], " ",
1930	RowBox[{"Re", "(", "CtW", ")"}]}],
1931	SuperscriptBox[
1932	RowBox[{"(",
1933	RowBox[{"MW2", "-", "T12"}], ")"}], "2"]]}], TraditionalForm]], "Output",\
1934
1935	CellChangeTimes->{
1936	3.497871619084063^9, {3.497872252601283^9, 3.4978722716892776`*^9},
1937	3.497872536191465^9, 3.49794250746635^9, 3.498391237200657*^9,
1938	3.499519423782421^9, 3.499585068734769^9, 3.499585808060615*^9,
1939	3.4996639310888157`^9, 3.499663989282805^9, 3.500719383943447*^9,
1940	3.500719609754578^9, 3.500719694107739^9}]
1941	}, Open ]]
1942	}, Open ]]
1943	}, Open ]]
1944	},
1945	WindowSize->{1269, 941},
1946	WindowMargins->{{0, Automatic}, {Automatic, 27}},
1947	PrintingPageRange->{Automatic, Automatic},
1948	PrintingOptions->{"Magnification"->1.,
1949	"PaperOrientation"->"Portrait",
1950	"PaperSize"->{611.25, 789.5625},
1951	"PostScriptOutputFile"->"/nfs/home/0/d/degrande/Generic/test.nb.ps"},
1952	ShowSelection->True,
1953	Magnification->1.25,
1954	FrontEndVersion->"6.0 for Linux x86 (64-bit) (June 19, 2007)",
1955	StyleDefinitions->"Default.nb"
1956	]
1957	(* End of Notebook Content *)
1958
1959	(* Internal cache information *)
1960	(*CellTagsOutline
1961	CellTagsIndex->{}
1962	*)
1963	(*CellTagsIndex
1964	CellTagsIndex->{}
1965	*)
1966	(*NotebookFileOutline
1967	Notebook[{
1968	Cell[CellGroupData[{
1969	Cell[590, 23, 100, 1, 104, "Title"],
1970	Cell[693, 26, 170, 2, 37, "Text"],
1971	Cell[CellGroupData[{
1972	Cell[888, 32, 141, 2, 65, "Subtitle"],
1973	Cell[1032, 36, 118, 2, 38, "Input"],
1974	Cell[CellGroupData[{
1975	Cell[1175, 42, 317, 8, 64, "Input"],
1976	Cell[CellGroupData[{
1977	Cell[1517, 54, 901, 14, 30, "Print"],
1978	Cell[2421, 70, 913, 14, 30, "Print"],
1979	Cell[3337, 86, 949, 15, 30, "Print"],
1980	Cell[4289, 103, 923, 14, 30, "Print"]
1981	}, Open ]]
1982	}, Open ]],
1983	Cell[5239, 121, 387, 9, 38, "Input"],
1984	Cell[CellGroupData[{
1985	Cell[5651, 134, 127, 2, 38, "Input"],
1986	Cell[CellGroupData[{
1987	Cell[5803, 140, 354, 8, 71, "Print"],
1988	Cell[6160, 150, 353, 8, 71, "Print"],
1989	Cell[6516, 160, 353, 8, 71, "Print"],
1990	Cell[6872, 170, 354, 8, 71, "Print"],
1991	Cell[7229, 180, 4877, 117, 1231, "Print"]
1992	}, Closed]],
1993	Cell[12121, 300, 1998, 56, 187, "Output"]
1994	}, Closed]],
1995	Cell[CellGroupData[{
1996	Cell[14156, 361, 1736, 37, 81, "Input"],
1997	Cell[CellGroupData[{
1998	Cell[15917, 402, 907, 14, 30, "Print"],
1999	Cell[16827, 418, 1380, 26, 30, "Print"],
2000	Cell[18210, 446, 927, 14, 30, "Print"],
2001	Cell[19140, 462, 1192, 21, 30, "Print"],
2002	Cell[20335, 485, 907, 14, 30, "Print"],
2003	Cell[21245, 501, 1378, 26, 30, "Print"],
2004	Cell[22626, 529, 1226, 21, 30, "Print"],
2005	Cell[23855, 552, 929, 14, 30, "Print"],
2006	Cell[24787, 568, 1083, 19, 30, "Print"],
2007	Cell[25873, 589, 1192, 21, 30, "Print"],
2008	Cell[27068, 612, 907, 14, 30, "Print"],
2009	Cell[27978, 628, 1310, 23, 30, "Print"],
2010	Cell[29291, 653, 909, 14, 30, "Print"],
2011	Cell[30203, 669, 1194, 22, 30, "Print"],
2012	Cell[31400, 693, 1209, 22, 30, "Print"],
2013	Cell[32612, 717, 1211, 22, 30, "Print"],
2014	Cell[33826, 741, 1209, 22, 30, "Print"],
2015	Cell[35038, 765, 1208, 22, 30, "Print"],
2016	Cell[36249, 789, 907, 14, 30, "Print"],
2017	Cell[37159, 805, 1310, 23, 30, "Print"],
2018	Cell[38472, 830, 1140, 21, 30, "Print"]
2019	}, Open ]]
2020	}, Open ]],
2021	Cell[CellGroupData[{
2022	Cell[39661, 857, 225, 4, 38, "Input"],
2023	Cell[CellGroupData[{
2024	Cell[39911, 865, 586, 12, 30, "Print"],
2025	Cell[40500, 879, 15706, 357, 505, "Print"]
2026	}, Open ]],
2027	Cell[56221, 1239, 2384, 60, 79, "Output"]
2028	}, Open ]],
2029	Cell[CellGroupData[{
2030	Cell[58642, 1304, 318, 6, 38, "Input"],
2031	Cell[CellGroupData[{
2032	Cell[58985, 1314, 619, 10, 30, "Print"],
2033	Cell[59607, 1326, 925, 18, 30, "Print"],
2034	Cell[60535, 1346, 921, 18, 30, "Print"],
2035	Cell[61459, 1366, 852, 17, 30, "Print"]
2036	}, Open ]]
2037	}, Open ]],
2038	Cell[CellGroupData[{
2039	Cell[62360, 1389, 431, 9, 64, "Input"],
2040	Cell[CellGroupData[{
2041	Cell[62816, 1402, 615, 9, 30, "Print"],
2042	Cell[63434, 1413, 625, 9, 30, "Print"],
2043	Cell[64062, 1424, 627, 9, 30, "Print"],
2044	Cell[64692, 1435, 635, 9, 30, "Print"]
2045	}, Open ]]
2046	}, Open ]],
2047	Cell[CellGroupData[{
2048	Cell[65376, 1450, 334, 8, 38, "Input"],
2049	Cell[CellGroupData[{
2050	Cell[65735, 1462, 587, 9, 30, "Print"],
2051	Cell[66325, 1473, 873, 17, 30, "Print"],
2052	Cell[67201, 1492, 558, 8, 30, "Print"],
2053	Cell[67762, 1502, 589, 9, 30, "Print"]
2054	}, Open ]]
2055	}, Open ]],
2056	Cell[CellGroupData[{
2057	Cell[68400, 1517, 252, 5, 38, "Input"],
2058	Cell[68655, 1524, 773, 15, 38, "Output"]
2059	}, Open ]],
2060	Cell[CellGroupData[{
2061	Cell[69465, 1544, 420, 9, 64, "Input"],
2062	Cell[CellGroupData[{
2063	Cell[69910, 1557, 824, 14, 30, "Print"],
2064	Cell[70737, 1573, 620, 9, 30, "Print"],
2065	Cell[71360, 1584, 906, 17, 30, "Print"],
2066	Cell[72269, 1603, 591, 8, 30, "Print"],
2067	Cell[72863, 1613, 624, 9, 30, "Print"]
2068	}, Open ]]
2069	}, Open ]],
2070	Cell[CellGroupData[{
2071	Cell[73536, 1628, 1655, 39, 64, "Input"],
2072	Cell[75194, 1669, 2464, 66, 120, "Output"]
2073	}, Open ]],
2074	Cell[CellGroupData[{
2075	Cell[77695, 1740, 1035, 27, 38, "Input"],
2076	Cell[78733, 1769, 1104, 24, 64, "Output"]
2077	}, Open ]],
2078	Cell[CellGroupData[{
2079	Cell[79874, 1798, 945, 28, 64, "Input"],
2080	Cell[80822, 1828, 839, 21, 66, "Output"]
2081	}, Open ]],
2082	Cell[CellGroupData[{
2083	Cell[81698, 1854, 155, 3, 38, "Input"],
2084	Cell[81856, 1859, 394, 11, 61, "Output"]
2085	}, Open ]],
2086	Cell[CellGroupData[{
2087	Cell[82287, 1875, 1426, 42, 64, "Input"],
2088	Cell[83716, 1919, 802, 20, 67, "Output"]
2089	}, Open ]]
2090	}, Open ]]
2091	}, Open ]]
2092	}
2093	]
2094	*)
2095
2096	(* End of internal cache information *)

Download in other formats:

Original Format