Context Navigation

Back to topBSM

topBSM: thu.nb

File thu.nb, 92.4 KB (added by stefankrastanov, 11 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[ 94414, 2196]
14	NotebookOptionsPosition[ 89547, 2052]
15	NotebookOutlinePosition[ 90203, 2075]
16	CellTagsIndexPosition[ 90160, 2072]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21
22	Cell[CellGroupData[{
23	Cell["\<\
24	Coupling of a top, a higgs and a light quark\
25	\>", "Title",
26	CellChangeTimes->{{3.583403598268314^9, 3.583403644392417^9}}],
27
28	Cell[BoxData[
29	RowBox[{"Quit", "[", "]"}]], "Input"],
30
31	Cell[CellGroupData[{
32
33	Cell[BoxData[{
34	RowBox[{
35	RowBox[{"$FeynRulesPath", "=",
36	RowBox[{
37	"SetDirectory", "[", "\"\</scratch/skrastanov/feynrules\>\"", "]"}]}], ";",
38	RowBox[{"<<", "FeynRules`"}], ";"}], "\[IndentingNewLine]",
39	RowBox[{
40	RowBox[{"SetDirectory", "[",
41	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/thu\>\""}], "]"}],
42	";"}], "\[IndentingNewLine]",
43	RowBox[{
44	RowBox[{"LoadModel", "[",
45	RowBox[{"\"\<../SM/SM.fr\>\"", ",", " ", "\"\<thu.fr\>\""}], "]"}],
46	";"}], "\[IndentingNewLine]",
47	RowBox[{
48	RowBox[{"LoadRestriction", "[",
49	RowBox[{"\"\<../SM/Cabibbo.rst\>\"", ",", "\"\<../SM/Massless.rst\>\""}],
50	"]"}], ";"}]}], "Input",
51	CellChangeTimes->{{3.5757105960602818`^9, 3.575710603935651^9}, {
52	3.57578243012792^9, 3.5757824441106367`^9}, {3.575782494158711*^9,
53	3.5757825305743513`^9}, {3.575957845650674^9, 3.575957871970462*^9}, {
54	3.583403436740262^9, 3.583403454740095^9}, {3.583403662173706*^9,
55	3.583403662509575*^9}}],
56
57	Cell[CellGroupData[{
58
59	Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
60	CellChangeTimes->{
61	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
62	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
63	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
64	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
65	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
66	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
67	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
68	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
69	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
70	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
71	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
72	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
73	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
74	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
75	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
76	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
77	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
78	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
79	3.583415118989789^9, 3.583415335570386^9}],
80
81	Cell[BoxData[
82	InterpretationBox[
83	RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"1.7.178\"\>",
84	"\[InvisibleSpace]",
85	RowBox[{"\<\" (\"\>", " ", "\<\"28 May 2013\"\>"}],
86	"\[InvisibleSpace]", "\<\").\"\>"}],
87	SequenceForm["Version: ", "1.7.178", " (" "28 May 2013", ")."],
88	Editable->False]], "Print",
89	CellChangeTimes->{
90	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
91	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
92	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
93	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
94	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
95	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
96	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
97	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
98	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
99	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
100	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
101	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
102	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
103	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
104	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
105	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
106	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
107	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
108	3.583415118989789^9, 3.583415335571521^9}],
109
110	Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
111	B. Fuks\"\>"], "Print",
112	CellChangeTimes->{
113	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
114	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
115	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
116	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
117	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
118	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
119	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
120	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
121	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
122	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
123	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
124	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
125	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
126	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
127	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
128	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
129	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
130	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
131	3.583415118989789^9, 3.583415335572721^9}],
132
133	Cell[BoxData["\<\" \"\>"], "Print",
134	CellChangeTimes->{
135	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
136	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
137	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
138	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
139	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
140	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
141	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
142	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
143	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
144	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
145	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
146	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
147	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
148	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
149	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
150	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
151	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
152	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
153	3.583415118989789^9, 3.5834153355738153`^9}],
154
155	Cell[BoxData["\<\"Please cite: Comput.Phys.Commun.180:1614-1641,2009 \
156	(arXiv:0806.4194).\"\>"], "Print",
157	CellChangeTimes->{
158	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
159	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
160	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
161	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
162	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
163	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
164	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
165	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
166	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
167	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
168	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
169	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
170	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
171	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
172	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
173	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
174	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
175	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
176	3.583415118989789^9, 3.583415335575014^9}],
177
178	Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
179	CellChangeTimes->{
180	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
181	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
182	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
183	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
184	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
185	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
186	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
187	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
188	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
189	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
190	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
191	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
192	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
193	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
194	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
195	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
196	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
197	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
198	3.583415118989789^9, 3.583415335576189^9}],
199
200	Cell[BoxData["\<\" \"\>"], "Print",
201	CellChangeTimes->{
202	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
203	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
204	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
205	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
206	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
207	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
208	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
209	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
210	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
211	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
212	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
213	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
214	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
215	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
216	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
217	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
218	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
219	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
220	3.583415118989789^9, 3.5834153355773163`^9}],
221
222	Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
223	FRPalette[].\"\>"], "Print",
224	CellChangeTimes->{
225	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
226	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
227	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
228	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
229	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
230	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
231	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
232	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
233	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
234	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
235	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
236	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
237	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
238	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
239	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
240	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
241	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
242	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
243	3.583415118989789^9, 3.583415335578554^9}],
244
245	Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
246	CellChangeTimes->{
247	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
248	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
249	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
250	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
251	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
252	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
253	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
254	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
255	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
256	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
257	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
258	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
259	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
260	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
261	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
262	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
263	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
264	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
265	3.583415118989789^9, 3.583415337989997^9}],
266
267	Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
268	CellChangeTimes->{
269	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
270	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
271	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
272	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
273	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
274	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
275	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
276	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
277	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
278	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
279	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
280	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
281	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
282	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
283	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
284	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
285	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
286	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
287	3.583415118989789^9, 3.583415338081379^9}],
288
289	Cell[BoxData["\<\"McAuthor\"\>"], "Print",
290	CellChangeTimes->{
291	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
292	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
293	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
294	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
295	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
296	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
297	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
298	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
299	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
300	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
301	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
302	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
303	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
304	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
305	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
306	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
307	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
308	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
309	3.583415118989789^9, 3.58341533808289^9}],
310
311	Cell[BoxData["\<\"Poly Postdoc\"\>"], "Print",
312	CellChangeTimes->{
313	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
314	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
315	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
316	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
317	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
318	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
319	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
320	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
321	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
322	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
323	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
324	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
325	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
326	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
327	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
328	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
329	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
330	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
331	3.583415118989789^9, 3.58341533808422^9}],
332
333	Cell[BoxData[
334	InterpretationBox[
335	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"0\"\>"}],
336	SequenceForm["Model Version: ", "0"],
337	Editable->False]], "Print",
338	CellChangeTimes->{
339	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
340	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
341	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
342	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
343	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
344	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
345	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
346	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
347	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
348	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
349	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
350	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
351	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
352	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
353	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
354	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
355	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
356	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
357	3.583415118989789^9, 3.583415338085723^9}],
358
359	Cell[BoxData["\<\"exemple.com\"\>"], "Print",
360	CellChangeTimes->{
361	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
362	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
363	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
364	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
365	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
366	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
367	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
368	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
369	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
370	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
371	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
372	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
373	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
374	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
375	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
376	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
377	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
378	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
379	3.583415118989789^9, 3.5834153380870543`^9}],
380
381	Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
382	"Print",
383	CellChangeTimes->{
384	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
385	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
386	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
387	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
388	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
389	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
390	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
391	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
392	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
393	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
394	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
395	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
396	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
397	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
398	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
399	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
400	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
401	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
402	3.583415118989789^9, 3.583415338088382^9}],
403
404	Cell[BoxData["\<\"\"\>"], "Print",
405	CellChangeTimes->{
406	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
407	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
408	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
409	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
410	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
411	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
412	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
413	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
414	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
415	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
416	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
417	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
418	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
419	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
420	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
421	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
422	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
423	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
424	3.583415118989789^9, 3.58341533809006^9}],
425
426	Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
427	CellChangeTimes->{
428	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
429	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
430	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
431	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
432	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
433	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
434	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
435	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
436	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
437	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
438	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
439	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
440	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
441	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
442	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
443	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
444	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
445	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
446	3.583415118989789^9, 3.5834153380913553`^9}],
447
448	Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
449	CellChangeTimes->{
450	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
451	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
452	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
453	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
454	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
455	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
456	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
457	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
458	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
459	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
460	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
461	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
462	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
463	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
464	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
465	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
466	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
467	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
468	3.583415118989789^9, 3.583415338195985^9}],
469
470	Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
471	CellChangeTimes->{
472	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
473	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
474	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
475	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
476	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
477	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
478	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
479	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
480	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
481	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
482	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
483	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
484	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
485	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
486	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
487	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
488	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
489	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
490	3.583415118989789^9, 3.583415338197472^9}],
491
492	Cell[BoxData[
493	InterpretationBox[
494	RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"thu\"\>",
495	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
496	SequenceForm["\nModel ", "thu", " loaded."],
497	Editable->False]], "Print",
498	CellChangeTimes->{
499	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
500	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
501	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
502	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
503	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
504	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
505	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
506	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
507	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
508	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
509	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
510	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
511	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
512	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
513	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
514	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
515	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
516	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
517	3.583415118989789^9, 3.583415338273405^9}],
518
519	Cell[BoxData[
520	InterpretationBox[
521	RowBox[{"\<\"Loading restrictions from \"\>",
522	"\[InvisibleSpace]", "\<\"../SM/Cabibbo.rst\"\>",
523	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
524	DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
525	ImageSizeCache->{13., {0., 7.}}], "\[InvisibleSpace]", "\<\" / \"\>",
526	"\[InvisibleSpace]", "6"}],
527	SequenceForm["Loading restrictions from ", "../SM/Cabibbo.rst", " : ",
528	Dynamic[PRIVATE`FR$restrictionCounter], " / ", 6],
529	Editable->False]], "Print",
530	CellChangeTimes->{
531	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
532	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
533	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
534	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
535	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
536	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
537	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
538	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
539	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
540	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
541	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
542	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
543	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
544	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
545	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
546	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
547	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
548	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
549	3.583415118989789^9, 3.583415338861166^9}],
550
551	Cell[BoxData[
552	InterpretationBox[
553	RowBox[{"\<\"Loading restrictions from \"\>",
554	"\[InvisibleSpace]", "\<\"../SM/Massless.rst\"\>",
555	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
556	DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
557	ImageSizeCache->{13., {0., 7.}}], "\[InvisibleSpace]", "\<\" / \"\>",
558	"\[InvisibleSpace]", "18"}],
559	SequenceForm["Loading restrictions from ", "../SM/Massless.rst", " : ",
560	Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
561	Editable->False]], "Print",
562	CellChangeTimes->{
563	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
564	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
565	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
566	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
567	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
568	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
569	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
570	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
571	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
572	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
573	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
574	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
575	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
576	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
577	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
578	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
579	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
580	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
581	3.583415118989789^9, 3.5834153389822273`^9}],
582
583	Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
584	CellChangeTimes->{
585	3.5756354616924763`^9, 3.575699011089006^9, 3.575708992124817*^9,
586	3.575710561671961^9, {3.575710605362877^9, 3.575710619352478*^9},
587	3.5757107735482283`^9, 3.575714617065689^9, {3.575714730848892*^9,
588	3.575714737315496^9}, 3.5757148516602583`^9, 3.575715506289091*^9,
589	3.575719883551283^9, 3.57572020927063^9, 3.575720656591461*^9,
590	3.57572077085436^9, 3.575720888109211^9, 3.575782459803651*^9,
591	3.5757825317226267`^9, 3.575783264657056^9, 3.575783318080265*^9,
592	3.575783384126301^9, {3.575783415769002^9, 3.5757834206898117`*^9},
593	3.575783457118078^9, {3.575803466423965^9, 3.575803473620495*^9},
594	3.575807557022588^9, 3.575807635192937^9, 3.57587094575677*^9,
595	3.575871832463529^9, 3.575872127155285^9, 3.575873120409257*^9,
596	3.575953932244513^9, 3.575957138440948^9, {3.575957454622562*^9,
597	3.5759574828996077`^9}, 3.575957670406905^9, 3.5759578792578506`*^9,
598	3.57595808689965^9, 3.575958207410863^9, 3.575958883457035*^9, {
599	3.5759589740692263`^9, 3.575958989623763^9}, 3.5759591207074966`*^9,
600	3.575959696123766^9, 3.575967125102757^9, 3.576215803247912*^9,
601	3.583403664701638^9, {3.583405554734682^9, 3.583405574643551*^9}, {
602	3.583409881912966^9, 3.583409910058514^9}, 3.5834144503439617`*^9,
603	3.583415118989789^9, 3.5834153392828817`^9}]
604	}, Open ]]
605	}, Closed]],
606
607	Cell[CellGroupData[{
608
609	Cell[BoxData[
610	RowBox[{"verts", "=",
611	RowBox[{"FeynmanRules", "[",
612	RowBox[{"Lthu", ",", "\[IndentingNewLine]",
613	RowBox[{"MaxParticles", "\[Rule]", "3"}], ",",
614	RowBox[{"Free", "\[Rule]",
615	RowBox[{"{",
616	RowBox[{"GP", ",", " ", "GPbar", ",", " ", "G0"}], "}"}]}], ",",
617	RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}]}]], "Input",
618	CellChangeTimes->{{3.57571861669071^9, 3.5757186206385183`^9}, {
619	3.575720560719078^9, 3.575720567406155^9}, {3.5759568797261744`*^9,
620	3.575956943567664^9}, {3.5759569991178017`^9, 3.575957065070512*^9}, {
621	3.575957166464693^9, 3.575957215680324^9}, {3.5759574338622293`*^9,
622	3.5759574385486727`^9}, {3.575957905631774^9, 3.575957935951001*^9}, {
623	3.5834144586798077`^9, 3.583414460638941^9}, {3.583414657358889*^9,
624	3.5834146659163113`*^9}}],
625
626	Cell[CellGroupData[{
627
628	Cell[BoxData[
629	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
630	StripOnInput->False,
631	LineColor->RGBColor[1, 0.5, 0],
632	FrontFaceColor->RGBColor[1, 0.5, 0],
633	BackFaceColor->RGBColor[1, 0.5, 0],
634	GraphicsColor->RGBColor[1, 0.5, 0],
635	FontWeight->Bold,
636	FontColor->RGBColor[1, 0.5, 0]]], "Print",
637	CellChangeTimes->{3.583414468822613^9, 3.5834145102731667`^9,
638	3.583414689462159^9, 3.583415346471596^9}],
639
640	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
641	CellChangeTimes->{3.583414468822613^9, 3.5834145102731667`^9,
642	3.583414689462159^9, 3.583415346472549^9}],
643
644	Cell[BoxData[
645	InterpretationBox[
646	RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2",
647	"\[InvisibleSpace]", "\<\" cores\"\>"}],
648	SequenceForm["Expanding indices over ", 2, " cores"],
649	Editable->False]], "Print",
650	CellChangeTimes->{3.583414468822613^9, 3.5834145102731667`^9,
651	3.583414689462159^9, 3.583415346473815^9}],
652
653	Cell[BoxData["\<\"Collecting the different structures that enter the \
654	vertex.\"\>"], "Print",
655	CellChangeTimes->{3.583414468822613^9, 3.5834145102731667`^9,
656	3.583414689462159^9, 3.583415415694195^9}],
657
658	Cell[BoxData[
659	InterpretationBox[
660	RowBox[{
661	"8", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
662	-> starting the computation: \"\>", "\[InvisibleSpace]",
663	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
664	ImageSizeCache->{15.5625, {0., 6.}}], "\[InvisibleSpace]", "\<\" / \"\>",
665	"\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\".\"\>"}],
666	SequenceForm[
667	8, " possible non-zero vertices have been found -> starting the \
668	computation: ",
669	Dynamic[FeynRules`FR$FeynmanRules], " / ", 8, "."],
670	Editable->False]], "Print",
671	CellChangeTimes->{3.583414468822613^9, 3.5834145102731667`^9,
672	3.583414689462159^9, 3.583415415750979^9}],
673
674	Cell[BoxData[
675	InterpretationBox[
676	RowBox[{"8", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
677	SequenceForm[8, " vertices obtained."],
678	Editable->False]], "Print",
679	CellChangeTimes->{3.583414468822613^9, 3.5834145102731667`^9,
680	3.583414689462159^9, 3.58341541665555^9}]
681	}, Open ]],
682
683	Cell[BoxData[
684	FormBox[
685	RowBox[{"(", "\[NoBreak]", GridBox[{
686	{
687	RowBox[{"(", "\[NoBreak]", GridBox[{
688	{
689	OverscriptBox["t", "\<\"-\"\>"], "1"},
690	{"u", "2"},
691	{"H", "3"}
692	},
693	GridBoxAlignment->{
694	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
695	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
696	GridBoxSpacings->{"Columns" -> {
697	Offset[0.27999999999999997`], {
698	Offset[0.7]},
699	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
700	"Rows" -> {
701	Offset[0.2], {
702	Offset[0.4]},
703	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
704	RowBox[{
705	RowBox[{"-",
706	FractionBox[
707	RowBox[{"3", " ", "\[ImaginaryI]", " ",
708	SubscriptBox["o",
709	RowBox[{"13", " ", "uphi"}]], " ",
710	SubscriptBox["\[Delta]",
711	RowBox[{
712	SubscriptBox["\<\"m\"\>", "1"], ",",
713	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
714	SubscriptBox[
715	SubscriptBox["P", "\<\"-\"\>"],
716	RowBox[{
717	SubscriptBox["\<\"s\"\>", "1"], ",",
718	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
719	SuperscriptBox["ymt", "3"]}],
720	RowBox[{
721	SuperscriptBox["\[CapitalLambda]", "2"], " ", "vev"}]]}], "-",
722	FractionBox[
723	RowBox[{"3", " ", "\[ImaginaryI]", " ",
724	SubscriptBox["o",
725	RowBox[{"31", " ", "uphi"}]], " ",
726	SubscriptBox["\[Delta]",
727	RowBox[{
728	SubscriptBox["\<\"m\"\>", "1"], ",",
729	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
730	SubscriptBox[
731	SubscriptBox["P", "\<\"+\"\>"],
732	RowBox[{
733	SubscriptBox["\<\"s\"\>", "1"], ",",
734	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
735	SuperscriptBox["ymt", "3"]}],
736	RowBox[{
737	SuperscriptBox["\[CapitalLambda]", "2"], " ", "vev"}]]}]},
738	{
739	RowBox[{"(", "\[NoBreak]", GridBox[{
740	{
741	OverscriptBox["t", "\<\"-\"\>"], "1"},
742	{"c", "2"},
743	{"H", "3"}
744	},
745	GridBoxAlignment->{
746	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
747	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
748	GridBoxSpacings->{"Columns" -> {
749	Offset[0.27999999999999997`], {
750	Offset[0.7]},
751	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
752	"Rows" -> {
753	Offset[0.2], {
754	Offset[0.4]},
755	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
756	RowBox[{
757	RowBox[{"-",
758	FractionBox[
759	RowBox[{"3", " ", "\[ImaginaryI]", " ",
760	SubscriptBox["o",
761	RowBox[{"23", " ", "uphi"}]], " ",
762	SubscriptBox["\[Delta]",
763	RowBox[{
764	SubscriptBox["\<\"m\"\>", "1"], ",",
765	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
766	SubscriptBox[
767	SubscriptBox["P", "\<\"-\"\>"],
768	RowBox[{
769	SubscriptBox["\<\"s\"\>", "1"], ",",
770	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
771	SuperscriptBox["ymt", "3"]}],
772	RowBox[{
773	SuperscriptBox["\[CapitalLambda]", "2"], " ", "vev"}]]}], "-",
774	FractionBox[
775	RowBox[{"3", " ", "\[ImaginaryI]", " ",
776	SubscriptBox["o",
777	RowBox[{"32", " ", "uphi"}]], " ",
778	SubscriptBox["\[Delta]",
779	RowBox[{
780	SubscriptBox["\<\"m\"\>", "1"], ",",
781	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
782	SubscriptBox[
783	SubscriptBox["P", "\<\"+\"\>"],
784	RowBox[{
785	SubscriptBox["\<\"s\"\>", "1"], ",",
786	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
787	SuperscriptBox["ymt", "3"]}],
788	RowBox[{
789	SuperscriptBox["\[CapitalLambda]", "2"], " ", "vev"}]]}]},
790	{
791	RowBox[{"(", "\[NoBreak]", GridBox[{
792	{
793	OverscriptBox["u", "\<\"-\"\>"], "1"},
794	{"t", "2"},
795	{"H", "3"}
796	},
797	GridBoxAlignment->{
798	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
799	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
800	GridBoxSpacings->{"Columns" -> {
801	Offset[0.27999999999999997`], {
802	Offset[0.7]},
803	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
804	"Rows" -> {
805	Offset[0.2], {
806	Offset[0.4]},
807	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
808	RowBox[{
809	RowBox[{"-",
810	FractionBox[
811	RowBox[{"3", " ", "\[ImaginaryI]", " ",
812	SubscriptBox["o",
813	RowBox[{"31", " ", "uphi"}]], " ",
814	SubscriptBox["\[Delta]",
815	RowBox[{
816	SubscriptBox["\<\"m\"\>", "1"], ",",
817	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
818	SubscriptBox[
819	SubscriptBox["P", "\<\"-\"\>"],
820	RowBox[{
821	SubscriptBox["\<\"s\"\>", "1"], ",",
822	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
823	SuperscriptBox["ymt", "3"]}],
824	RowBox[{
825	SuperscriptBox["\[CapitalLambda]", "2"], " ", "vev"}]]}], "-",
826	FractionBox[
827	RowBox[{"3", " ", "\[ImaginaryI]", " ",
828	SubscriptBox["o",
829	RowBox[{"13", " ", "uphi"}]], " ",
830	SubscriptBox["\[Delta]",
831	RowBox[{
832	SubscriptBox["\<\"m\"\>", "1"], ",",
833	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
834	SubscriptBox[
835	SubscriptBox["P", "\<\"+\"\>"],
836	RowBox[{
837	SubscriptBox["\<\"s\"\>", "1"], ",",
838	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
839	SuperscriptBox["ymt", "3"]}],
840	RowBox[{
841	SuperscriptBox["\[CapitalLambda]", "2"], " ", "vev"}]]}]},
842	{
843	RowBox[{"(", "\[NoBreak]", GridBox[{
844	{
845	OverscriptBox["c", "\<\"-\"\>"], "1"},
846	{"t", "2"},
847	{"H", "3"}
848	},
849	GridBoxAlignment->{
850	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
851	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
852	GridBoxSpacings->{"Columns" -> {
853	Offset[0.27999999999999997`], {
854	Offset[0.7]},
855	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
856	"Rows" -> {
857	Offset[0.2], {
858	Offset[0.4]},
859	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
860	RowBox[{
861	RowBox[{"-",
862	FractionBox[
863	RowBox[{"3", " ", "\[ImaginaryI]", " ",
864	SubscriptBox["o",
865	RowBox[{"32", " ", "uphi"}]], " ",
866	SubscriptBox["\[Delta]",
867	RowBox[{
868	SubscriptBox["\<\"m\"\>", "1"], ",",
869	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
870	SubscriptBox[
871	SubscriptBox["P", "\<\"-\"\>"],
872	RowBox[{
873	SubscriptBox["\<\"s\"\>", "1"], ",",
874	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
875	SuperscriptBox["ymt", "3"]}],
876	RowBox[{
877	SuperscriptBox["\[CapitalLambda]", "2"], " ", "vev"}]]}], "-",
878	FractionBox[
879	RowBox[{"3", " ", "\[ImaginaryI]", " ",
880	SubscriptBox["o",
881	RowBox[{"23", " ", "uphi"}]], " ",
882	SubscriptBox["\[Delta]",
883	RowBox[{
884	SubscriptBox["\<\"m\"\>", "1"], ",",
885	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
886	SubscriptBox[
887	SubscriptBox["P", "\<\"+\"\>"],
888	RowBox[{
889	SubscriptBox["\<\"s\"\>", "1"], ",",
890	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
891	SuperscriptBox["ymt", "3"]}],
892	RowBox[{
893	SuperscriptBox["\[CapitalLambda]", "2"], " ", "vev"}]]}]},
894	{
895	RowBox[{"(", "\[NoBreak]", GridBox[{
896	{
897	OverscriptBox["u", "\<\"-\"\>"], "1"},
898	{"t", "2"},
899	{"G", "3"}
900	},
901	GridBoxAlignment->{
902	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
903	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
904	GridBoxSpacings->{"Columns" -> {
905	Offset[0.27999999999999997`], {
906	Offset[0.7]},
907	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
908	"Rows" -> {
909	Offset[0.2], {
910	Offset[0.4]},
911	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
912	RowBox[{
913	FractionBox[
914	RowBox[{"2", " ", "\[ImaginaryI]", " ", "ymt", " ",
915	SubsuperscriptBox["\<\"p\"\>", "3",
916	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
917	SubscriptBox["g", "s"], " ",
918	SubscriptBox["o",
919	RowBox[{"31", " ", "ug"}]], " ",
920	SubscriptBox[
921	SubscriptBox["P", "\<\"-\"\>"],
922	RowBox[{
923	SubscriptBox["\<\"s\"\>", "1"], ",",
924	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
925	SubsuperscriptBox["T",
926	RowBox[{
927	SubscriptBox["\<\"m\"\>", "1"], ",",
928	SubscriptBox["\<\"m\"\>", "2"]}],
929	SubscriptBox["\<\"a\"\>", "3"]]}],
930	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
931	FractionBox[
932	RowBox[{"2", " ", "\[ImaginaryI]", " ", "ymt", " ",
933	SubsuperscriptBox["\<\"p\"\>", "3",
934	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
935	SubscriptBox["g", "s"], " ",
936	SubscriptBox["o",
937	RowBox[{"13", " ", "ug"}]], " ",
938	SubscriptBox[
939	SubscriptBox["P", "\<\"+\"\>"],
940	RowBox[{
941	SubscriptBox["\<\"s\"\>", "1"], ",",
942	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
943	SubsuperscriptBox["T",
944	RowBox[{
945	SubscriptBox["\<\"m\"\>", "1"], ",",
946	SubscriptBox["\<\"m\"\>", "2"]}],
947	SubscriptBox["\<\"a\"\>", "3"]]}],
948	SuperscriptBox["\[CapitalLambda]", "2"]], "-",
949	FractionBox[
950	RowBox[{"2", " ", "\[ImaginaryI]", " ",
951	SubscriptBox["g", "s"], " ",
952	SubscriptBox["o",
953	RowBox[{"31", " ", "ug"}]], " ", "ymt", " ",
954	SubscriptBox[
955	RowBox[{
956	SuperscriptBox["\[Gamma]",
957	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
958	RowBox[{"SlashedP", "(", "3", ")"}], ".",
959	SubscriptBox["P", "\<\"-\"\>"]}],
960	RowBox[{
961	SubscriptBox["\<\"s\"\>", "1"], ",",
962	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
963	SubsuperscriptBox["T",
964	RowBox[{
965	SubscriptBox["\<\"m\"\>", "1"], ",",
966	SubscriptBox["\<\"m\"\>", "2"]}],
967	SubscriptBox["\<\"a\"\>", "3"]]}],
968	SuperscriptBox["\[CapitalLambda]", "2"]], "-",
969	FractionBox[
970	RowBox[{"2", " ", "\[ImaginaryI]", " ",
971	SubscriptBox["g", "s"], " ",
972	SubscriptBox["o",
973	RowBox[{"13", " ", "ug"}]], " ", "ymt", " ",
974	SubscriptBox[
975	RowBox[{
976	SuperscriptBox["\[Gamma]",
977	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
978	RowBox[{"SlashedP", "(", "3", ")"}], ".",
979	SubscriptBox["P", "\<\"+\"\>"]}],
980	RowBox[{
981	SubscriptBox["\<\"s\"\>", "1"], ",",
982	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
983	SubsuperscriptBox["T",
984	RowBox[{
985	SubscriptBox["\<\"m\"\>", "1"], ",",
986	SubscriptBox["\<\"m\"\>", "2"]}],
987	SubscriptBox["\<\"a\"\>", "3"]]}],
988	SuperscriptBox["\[CapitalLambda]", "2"]]}]},
989	{
990	RowBox[{"(", "\[NoBreak]", GridBox[{
991	{
992	OverscriptBox["c", "\<\"-\"\>"], "1"},
993	{"t", "2"},
994	{"G", "3"}
995	},
996	GridBoxAlignment->{
997	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
998	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
999	GridBoxSpacings->{"Columns" -> {
1000	Offset[0.27999999999999997`], {
1001	Offset[0.7]},
1002	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
1003	"Rows" -> {
1004	Offset[0.2], {
1005	Offset[0.4]},
1006	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1007	RowBox[{
1008	FractionBox[
1009	RowBox[{"2", " ", "\[ImaginaryI]", " ", "ymt", " ",
1010	SubsuperscriptBox["\<\"p\"\>", "3",
1011	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1012	SubscriptBox["g", "s"], " ",
1013	SubscriptBox["o",
1014	RowBox[{"32", " ", "ug"}]], " ",
1015	SubscriptBox[
1016	SubscriptBox["P", "\<\"-\"\>"],
1017	RowBox[{
1018	SubscriptBox["\<\"s\"\>", "1"], ",",
1019	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1020	SubsuperscriptBox["T",
1021	RowBox[{
1022	SubscriptBox["\<\"m\"\>", "1"], ",",
1023	SubscriptBox["\<\"m\"\>", "2"]}],
1024	SubscriptBox["\<\"a\"\>", "3"]]}],
1025	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
1026	FractionBox[
1027	RowBox[{"2", " ", "\[ImaginaryI]", " ", "ymt", " ",
1028	SubsuperscriptBox["\<\"p\"\>", "3",
1029	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1030	SubscriptBox["g", "s"], " ",
1031	SubscriptBox["o",
1032	RowBox[{"23", " ", "ug"}]], " ",
1033	SubscriptBox[
1034	SubscriptBox["P", "\<\"+\"\>"],
1035	RowBox[{
1036	SubscriptBox["\<\"s\"\>", "1"], ",",
1037	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1038	SubsuperscriptBox["T",
1039	RowBox[{
1040	SubscriptBox["\<\"m\"\>", "1"], ",",
1041	SubscriptBox["\<\"m\"\>", "2"]}],
1042	SubscriptBox["\<\"a\"\>", "3"]]}],
1043	SuperscriptBox["\[CapitalLambda]", "2"]], "-",
1044	FractionBox[
1045	RowBox[{"2", " ", "\[ImaginaryI]", " ",
1046	SubscriptBox["g", "s"], " ",
1047	SubscriptBox["o",
1048	RowBox[{"32", " ", "ug"}]], " ", "ymt", " ",
1049	SubscriptBox[
1050	RowBox[{
1051	SuperscriptBox["\[Gamma]",
1052	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
1053	RowBox[{"SlashedP", "(", "3", ")"}], ".",
1054	SubscriptBox["P", "\<\"-\"\>"]}],
1055	RowBox[{
1056	SubscriptBox["\<\"s\"\>", "1"], ",",
1057	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1058	SubsuperscriptBox["T",
1059	RowBox[{
1060	SubscriptBox["\<\"m\"\>", "1"], ",",
1061	SubscriptBox["\<\"m\"\>", "2"]}],
1062	SubscriptBox["\<\"a\"\>", "3"]]}],
1063	SuperscriptBox["\[CapitalLambda]", "2"]], "-",
1064	FractionBox[
1065	RowBox[{"2", " ", "\[ImaginaryI]", " ",
1066	SubscriptBox["g", "s"], " ",
1067	SubscriptBox["o",
1068	RowBox[{"23", " ", "ug"}]], " ", "ymt", " ",
1069	SubscriptBox[
1070	RowBox[{
1071	SuperscriptBox["\[Gamma]",
1072	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
1073	RowBox[{"SlashedP", "(", "3", ")"}], ".",
1074	SubscriptBox["P", "\<\"+\"\>"]}],
1075	RowBox[{
1076	SubscriptBox["\<\"s\"\>", "1"], ",",
1077	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1078	SubsuperscriptBox["T",
1079	RowBox[{
1080	SubscriptBox["\<\"m\"\>", "1"], ",",
1081	SubscriptBox["\<\"m\"\>", "2"]}],
1082	SubscriptBox["\<\"a\"\>", "3"]]}],
1083	SuperscriptBox["\[CapitalLambda]", "2"]]}]},
1084	{
1085	RowBox[{"(", "\[NoBreak]", GridBox[{
1086	{
1087	OverscriptBox["t", "\<\"-\"\>"], "1"},
1088	{"u", "2"},
1089	{"G", "3"}
1090	},
1091	GridBoxAlignment->{
1092	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
1093	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
1094	GridBoxSpacings->{"Columns" -> {
1095	Offset[0.27999999999999997`], {
1096	Offset[0.7]},
1097	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
1098	"Rows" -> {
1099	Offset[0.2], {
1100	Offset[0.4]},
1101	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1102	RowBox[{
1103	FractionBox[
1104	RowBox[{"2", " ", "\[ImaginaryI]", " ", "ymt", " ",
1105	SubsuperscriptBox["\<\"p\"\>", "3",
1106	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1107	SubscriptBox["g", "s"], " ",
1108	SubscriptBox["o",
1109	RowBox[{"13", " ", "ug"}]], " ",
1110	SubscriptBox[
1111	SubscriptBox["P", "\<\"-\"\>"],
1112	RowBox[{
1113	SubscriptBox["\<\"s\"\>", "1"], ",",
1114	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1115	SubsuperscriptBox["T",
1116	RowBox[{
1117	SubscriptBox["\<\"m\"\>", "1"], ",",
1118	SubscriptBox["\<\"m\"\>", "2"]}],
1119	SubscriptBox["\<\"a\"\>", "3"]]}],
1120	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
1121	FractionBox[
1122	RowBox[{"2", " ", "\[ImaginaryI]", " ", "ymt", " ",
1123	SubsuperscriptBox["\<\"p\"\>", "3",
1124	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1125	SubscriptBox["g", "s"], " ",
1126	SubscriptBox["o",
1127	RowBox[{"31", " ", "ug"}]], " ",
1128	SubscriptBox[
1129	SubscriptBox["P", "\<\"+\"\>"],
1130	RowBox[{
1131	SubscriptBox["\<\"s\"\>", "1"], ",",
1132	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1133	SubsuperscriptBox["T",
1134	RowBox[{
1135	SubscriptBox["\<\"m\"\>", "1"], ",",
1136	SubscriptBox["\<\"m\"\>", "2"]}],
1137	SubscriptBox["\<\"a\"\>", "3"]]}],
1138	SuperscriptBox["\[CapitalLambda]", "2"]], "-",
1139	FractionBox[
1140	RowBox[{"2", " ", "\[ImaginaryI]", " ",
1141	SubscriptBox["g", "s"], " ",
1142	SubscriptBox["o",
1143	RowBox[{"13", " ", "ug"}]], " ", "ymt", " ",
1144	SubscriptBox[
1145	RowBox[{
1146	SuperscriptBox["\[Gamma]",
1147	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
1148	RowBox[{"SlashedP", "(", "3", ")"}], ".",
1149	SubscriptBox["P", "\<\"-\"\>"]}],
1150	RowBox[{
1151	SubscriptBox["\<\"s\"\>", "1"], ",",
1152	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1153	SubsuperscriptBox["T",
1154	RowBox[{
1155	SubscriptBox["\<\"m\"\>", "1"], ",",
1156	SubscriptBox["\<\"m\"\>", "2"]}],
1157	SubscriptBox["\<\"a\"\>", "3"]]}],
1158	SuperscriptBox["\[CapitalLambda]", "2"]], "-",
1159	FractionBox[
1160	RowBox[{"2", " ", "\[ImaginaryI]", " ",
1161	SubscriptBox["g", "s"], " ",
1162	SubscriptBox["o",
1163	RowBox[{"31", " ", "ug"}]], " ", "ymt", " ",
1164	SubscriptBox[
1165	RowBox[{
1166	SuperscriptBox["\[Gamma]",
1167	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
1168	RowBox[{"SlashedP", "(", "3", ")"}], ".",
1169	SubscriptBox["P", "\<\"+\"\>"]}],
1170	RowBox[{
1171	SubscriptBox["\<\"s\"\>", "1"], ",",
1172	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1173	SubsuperscriptBox["T",
1174	RowBox[{
1175	SubscriptBox["\<\"m\"\>", "1"], ",",
1176	SubscriptBox["\<\"m\"\>", "2"]}],
1177	SubscriptBox["\<\"a\"\>", "3"]]}],
1178	SuperscriptBox["\[CapitalLambda]", "2"]]}]},
1179	{
1180	RowBox[{"(", "\[NoBreak]", GridBox[{
1181	{
1182	OverscriptBox["t", "\<\"-\"\>"], "1"},
1183	{"c", "2"},
1184	{"G", "3"}
1185	},
1186	GridBoxAlignment->{
1187	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
1188	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
1189	GridBoxSpacings->{"Columns" -> {
1190	Offset[0.27999999999999997`], {
1191	Offset[0.7]},
1192	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
1193	"Rows" -> {
1194	Offset[0.2], {
1195	Offset[0.4]},
1196	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1197	RowBox[{
1198	FractionBox[
1199	RowBox[{"2", " ", "\[ImaginaryI]", " ", "ymt", " ",
1200	SubsuperscriptBox["\<\"p\"\>", "3",
1201	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1202	SubscriptBox["g", "s"], " ",
1203	SubscriptBox["o",
1204	RowBox[{"23", " ", "ug"}]], " ",
1205	SubscriptBox[
1206	SubscriptBox["P", "\<\"-\"\>"],
1207	RowBox[{
1208	SubscriptBox["\<\"s\"\>", "1"], ",",
1209	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1210	SubsuperscriptBox["T",
1211	RowBox[{
1212	SubscriptBox["\<\"m\"\>", "1"], ",",
1213	SubscriptBox["\<\"m\"\>", "2"]}],
1214	SubscriptBox["\<\"a\"\>", "3"]]}],
1215	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
1216	FractionBox[
1217	RowBox[{"2", " ", "\[ImaginaryI]", " ", "ymt", " ",
1218	SubsuperscriptBox["\<\"p\"\>", "3",
1219	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1220	SubscriptBox["g", "s"], " ",
1221	SubscriptBox["o",
1222	RowBox[{"32", " ", "ug"}]], " ",
1223	SubscriptBox[
1224	SubscriptBox["P", "\<\"+\"\>"],
1225	RowBox[{
1226	SubscriptBox["\<\"s\"\>", "1"], ",",
1227	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1228	SubsuperscriptBox["T",
1229	RowBox[{
1230	SubscriptBox["\<\"m\"\>", "1"], ",",
1231	SubscriptBox["\<\"m\"\>", "2"]}],
1232	SubscriptBox["\<\"a\"\>", "3"]]}],
1233	SuperscriptBox["\[CapitalLambda]", "2"]], "-",
1234	FractionBox[
1235	RowBox[{"2", " ", "\[ImaginaryI]", " ",
1236	SubscriptBox["g", "s"], " ",
1237	SubscriptBox["o",
1238	RowBox[{"23", " ", "ug"}]], " ", "ymt", " ",
1239	SubscriptBox[
1240	RowBox[{
1241	SuperscriptBox["\[Gamma]",
1242	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
1243	RowBox[{"SlashedP", "(", "3", ")"}], ".",
1244	SubscriptBox["P", "\<\"-\"\>"]}],
1245	RowBox[{
1246	SubscriptBox["\<\"s\"\>", "1"], ",",
1247	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1248	SubsuperscriptBox["T",
1249	RowBox[{
1250	SubscriptBox["\<\"m\"\>", "1"], ",",
1251	SubscriptBox["\<\"m\"\>", "2"]}],
1252	SubscriptBox["\<\"a\"\>", "3"]]}],
1253	SuperscriptBox["\[CapitalLambda]", "2"]], "-",
1254	FractionBox[
1255	RowBox[{"2", " ", "\[ImaginaryI]", " ",
1256	SubscriptBox["g", "s"], " ",
1257	SubscriptBox["o",
1258	RowBox[{"32", " ", "ug"}]], " ", "ymt", " ",
1259	SubscriptBox[
1260	RowBox[{
1261	SuperscriptBox["\[Gamma]",
1262	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
1263	RowBox[{"SlashedP", "(", "3", ")"}], ".",
1264	SubscriptBox["P", "\<\"+\"\>"]}],
1265	RowBox[{
1266	SubscriptBox["\<\"s\"\>", "1"], ",",
1267	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1268	SubsuperscriptBox["T",
1269	RowBox[{
1270	SubscriptBox["\<\"m\"\>", "1"], ",",
1271	SubscriptBox["\<\"m\"\>", "2"]}],
1272	SubscriptBox["\<\"a\"\>", "3"]]}],
1273	SuperscriptBox["\[CapitalLambda]", "2"]]}]}
1274	},
1275	GridBoxAlignment->{
1276	"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1277	"RowsIndexed" -> {}},
1278	GridBoxSpacings->{"Columns" -> {
1279	Offset[0.27999999999999997`], {
1280	Offset[0.7]},
1281	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1282	Offset[0.2], {
1283	Offset[0.4]},
1284	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1285	TraditionalForm]], "Output",
1286	CellChangeTimes->{3.583414737806924^9, 3.58341506381066^9,
1287	3.583415416723378^9, 3.5834158207045717`^9}]
1288	}, Open ]],
1289
1290	Cell[CellGroupData[{
1291
1292	Cell[BoxData[
1293	RowBox[{
1294	RowBox[{"CheckHermiticity", "[", "Lthu", "]"}], ";"}]], "Input",
1295	CellChangeTimes->{{3.575953965518354^9, 3.5759539737415524`^9}, {
1296	3.583414511117826^9, 3.5834145130371027`^9}}],
1297
1298	Cell[CellGroupData[{
1299
1300	Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
1301	contained in L-HC[L].\"\>"], "Print",
1302	CellChangeTimes->{
1303	3.575953974753036^9, 3.5759591552626^9, 3.575967148423678*^9,
1304	3.5762158286814327`^9, {3.583409977041298^9, 3.583409986920431*^9},
1305	3.583414564478292^9, 3.5834154214713173`^9}],
1306
1307	Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
1308	should be zero.\"\>"], "Print",
1309	CellChangeTimes->{
1310	3.575953974753036^9, 3.5759591552626^9, 3.575967148423678*^9,
1311	3.5762158286814327`^9, {3.583409977041298^9, 3.583409986920431*^9},
1312	3.583414564478292^9, 3.583415421472363^9}],
1313
1314	Cell[BoxData[
1315	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1316	StripOnInput->False,
1317	LineColor->RGBColor[1, 0.5, 0],
1318	FrontFaceColor->RGBColor[1, 0.5, 0],
1319	BackFaceColor->RGBColor[1, 0.5, 0],
1320	GraphicsColor->RGBColor[1, 0.5, 0],
1321	FontWeight->Bold,
1322	FontColor->RGBColor[1, 0.5, 0]]], "Print",
1323	CellChangeTimes->{
1324	3.575953974753036^9, 3.5759591552626^9, 3.575967148423678*^9,
1325	3.5762158286814327`^9, {3.583409977041298^9, 3.583409986920431*^9},
1326	3.583414564478292^9, 3.583415424399831^9}],
1327
1328	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1329	CellChangeTimes->{
1330	3.575953974753036^9, 3.5759591552626^9, 3.575967148423678*^9,
1331	3.5762158286814327`^9, {3.583409977041298^9, 3.583409986920431*^9},
1332	3.583414564478292^9, 3.583415424401155^9}],
1333
1334	Cell[BoxData[
1335	InterpretationBox[
1336	RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2",
1337	"\[InvisibleSpace]", "\<\" cores\"\>"}],
1338	SequenceForm["Expanding indices over ", 2, " cores"],
1339	Editable->False]], "Print",
1340	CellChangeTimes->{
1341	3.575953974753036^9, 3.5759591552626^9, 3.575967148423678*^9,
1342	3.5762158286814327`^9, {3.583409977041298^9, 3.583409986920431*^9},
1343	3.583414564478292^9, 3.583415424402255^9}],
1344
1345	Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
1346	CellChangeTimes->{
1347	3.575953974753036^9, 3.5759591552626^9, 3.575967148423678*^9,
1348	3.5762158286814327`^9, {3.583409977041298^9, 3.583409986920431*^9},
1349	3.583414564478292^9, 3.5834154909831333`^9}],
1350
1351	Cell[BoxData[
1352	InterpretationBox[
1353	RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1354	SequenceForm[0, " vertices obtained."],
1355	Editable->False]], "Print",
1356	CellChangeTimes->{
1357	3.575953974753036^9, 3.5759591552626^9, 3.575967148423678*^9,
1358	3.5762158286814327`^9, {3.583409977041298^9, 3.583409986920431*^9},
1359	3.583414564478292^9, 3.583415490984572^9}],
1360
1361	Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
1362	CellChangeTimes->{
1363	3.575953974753036^9, 3.5759591552626^9, 3.575967148423678*^9,
1364	3.5762158286814327`^9, {3.583409977041298^9, 3.583409986920431*^9},
1365	3.583414564478292^9, 3.583415490985737^9}]
1366	}, Open ]]
1367	}, Closed]],
1368
1369	Cell[CellGroupData[{
1370
1371	Cell["Create UFO files", "Subtitle",
1372	CellChangeTimes->{{3.5834145350283737`^9, 3.583414541239071^9}}],
1373
1374	Cell[CellGroupData[{
1375
1376	Cell[BoxData[{
1377	RowBox[{
1378	RowBox[{"DeleteDirectory", "[",
1379	RowBox[{
1380	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/thu/thu_UFO\>\""}], ",",
1381	RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}],
1382	";"}], "\[IndentingNewLine]",
1383	RowBox[{
1384	RowBox[{"WriteUFO", "[", "\[IndentingNewLine]",
1385	RowBox[{
1386	"LGauge", ",", "\[IndentingNewLine]", "LHiggs", ",", "\[IndentingNewLine]",
1387	"LFermions", ",", "\[IndentingNewLine]", "LYukawa", ",",
1388	"\[IndentingNewLine]", "LGhost", ",", "\[IndentingNewLine]", "Lthu", ",",
1389	"\[IndentingNewLine]",
1390	RowBox[{"AddDecays", "\[Rule]", " ", "False"}]}], "]"}],
1391	";"}], "\[IndentingNewLine]",
1392	RowBox[{
1393	RowBox[{"DeleteDirectory", "[",
1394	RowBox[{"\"\</scratch/skrastanov/mg5/models/thu_UFO\>\"", ",",
1395	RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}],
1396	";"}], "\[IndentingNewLine]",
1397	RowBox[{
1398	RowBox[{"CopyDirectory", "[",
1399	RowBox[{
1400	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/thu/thu_UFO\>\""}], ",",
1401	" ", "\"\</scratch/skrastanov/mg5/models/thu_UFO\>\""}], "]"}],
1402	";"}]}], "Input",
1403	CellChangeTimes->{{3.583403359029461^9, 3.5834034023420887`^9}, {
1404	3.5834145543228703`^9, 3.583414556498189^9}}],
1405
1406	Cell[CellGroupData[{
1407
1408	Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
1409	"Print",
1410	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1411	3.5834154973922243`*^9}],
1412
1413	Cell[BoxData[
1414	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1415	StripOnInput->False,
1416	LineColor->RGBColor[1, 0.5, 0],
1417	FrontFaceColor->RGBColor[1, 0.5, 0],
1418	BackFaceColor->RGBColor[1, 0.5, 0],
1419	GraphicsColor->RGBColor[1, 0.5, 0],
1420	FontWeight->Bold,
1421	FontColor->RGBColor[1, 0.5, 0]]], "Print",
1422	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1423	3.583415499926992*^9}],
1424
1425	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1426	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1427	3.5834154999284782`*^9}],
1428
1429	Cell[BoxData[
1430	InterpretationBox[
1431	RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2",
1432	"\[InvisibleSpace]", "\<\" cores\"\>"}],
1433	SequenceForm["Expanding indices over ", 2, " cores"],
1434	Editable->False]], "Print",
1435	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1436	3.583415499929611*^9}],
1437
1438	Cell[BoxData["\<\"Collecting the different structures that enter the \
1439	vertex.\"\>"], "Print",
1440	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1441	3.583415501079084*^9}],
1442
1443	Cell[BoxData[
1444	InterpretationBox[
1445	RowBox[{
1446	"8", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1447	-> starting the computation: \"\>", "\[InvisibleSpace]",
1448	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1449	ImageSizeCache->{18., {0., 7.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1450	"\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\".\"\>"}],
1451	SequenceForm[
1452	8, " possible non-zero vertices have been found -> starting the \
1453	computation: ",
1454	Dynamic[FeynRules`FR$FeynmanRules], " / ", 8, "."],
1455	Editable->False]], "Print",
1456	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1457	3.583415501166868*^9}],
1458
1459	Cell[BoxData[
1460	InterpretationBox[
1461	RowBox[{"8", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1462	SequenceForm[8, " vertices obtained."],
1463	Editable->False]], "Print",
1464	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1465	3.583415502094116*^9}],
1466
1467	Cell[BoxData[
1468	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1469	StripOnInput->False,
1470	LineColor->RGBColor[1, 0.5, 0],
1471	FrontFaceColor->RGBColor[1, 0.5, 0],
1472	BackFaceColor->RGBColor[1, 0.5, 0],
1473	GraphicsColor->RGBColor[1, 0.5, 0],
1474	FontWeight->Bold,
1475	FontColor->RGBColor[1, 0.5, 0]]], "Print",
1476	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1477	3.583415502096266*^9}],
1478
1479	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1480	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1481	3.583415502097527*^9}],
1482
1483	Cell[BoxData["\<\"Collecting the different structures that enter the \
1484	vertex.\"\>"], "Print",
1485	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1486	3.583415502228866*^9}],
1487
1488	Cell[BoxData[
1489	InterpretationBox[
1490	RowBox[{
1491	"6", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1492	-> starting the computation: \"\>", "\[InvisibleSpace]",
1493	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1494	ImageSizeCache->{18., {0., 7.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1495	"\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\".\"\>"}],
1496	SequenceForm[
1497	6, " possible non-zero vertices have been found -> starting the \
1498	computation: ",
1499	Dynamic[FeynRules`FR$FeynmanRules], " / ", 6, "."],
1500	Editable->False]], "Print",
1501	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1502	3.5834155023795137`*^9}],
1503
1504	Cell[BoxData[
1505	InterpretationBox[
1506	RowBox[{"6", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1507	SequenceForm[6, " vertices obtained."],
1508	Editable->False]], "Print",
1509	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1510	3.583415502381679*^9}],
1511
1512	Cell[BoxData[
1513	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1514	StripOnInput->False,
1515	LineColor->RGBColor[1, 0.5, 0],
1516	FrontFaceColor->RGBColor[1, 0.5, 0],
1517	BackFaceColor->RGBColor[1, 0.5, 0],
1518	GraphicsColor->RGBColor[1, 0.5, 0],
1519	FontWeight->Bold,
1520	FontColor->RGBColor[1, 0.5, 0]]], "Print",
1521	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1522	3.583415502382786*^9}],
1523
1524	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1525	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1526	3.583415502383852*^9}],
1527
1528	Cell[BoxData[
1529	InterpretationBox[
1530	RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2",
1531	"\[InvisibleSpace]", "\<\" cores\"\>"}],
1532	SequenceForm["Expanding indices over ", 2, " cores"],
1533	Editable->False]], "Print",
1534	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1535	3.583415502384933*^9}],
1536
1537	Cell[BoxData["\<\"Collecting the different structures that enter the \
1538	vertex.\"\>"], "Print",
1539	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1540	3.5834155039153557`*^9}],
1541
1542	Cell[BoxData[
1543	InterpretationBox[
1544	RowBox[{
1545	"18", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1546	-> starting the computation: \"\>", "\[InvisibleSpace]",
1547	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1548	ImageSizeCache->{18., {0., 7.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1549	"\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\".\"\>"}],
1550	SequenceForm[
1551	18, " possible non-zero vertices have been found -> starting the \
1552	computation: ",
1553	Dynamic[FeynRules`FR$FeynmanRules], " / ", 18, "."],
1554	Editable->False]], "Print",
1555	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1556	3.58341550399465*^9}],
1557
1558	Cell[BoxData[
1559	InterpretationBox[
1560	RowBox[{"13", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1561	SequenceForm[13, " vertices obtained."],
1562	Editable->False]], "Print",
1563	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1564	3.583415505059474*^9}],
1565
1566	Cell[BoxData[
1567	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1568	StripOnInput->False,
1569	LineColor->RGBColor[1, 0.5, 0],
1570	FrontFaceColor->RGBColor[1, 0.5, 0],
1571	BackFaceColor->RGBColor[1, 0.5, 0],
1572	GraphicsColor->RGBColor[1, 0.5, 0],
1573	FontWeight->Bold,
1574	FontColor->RGBColor[1, 0.5, 0]]], "Print",
1575	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1576	3.583415505128353*^9}],
1577
1578	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1579	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1580	3.583415505129668*^9}],
1581
1582	Cell[BoxData["\<\"Collecting the different structures that enter the \
1583	vertex.\"\>"], "Print",
1584	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1585	3.583415505320801*^9}],
1586
1587	Cell[BoxData[
1588	InterpretationBox[
1589	RowBox[{
1590	"3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1591	-> starting the computation: \"\>", "\[InvisibleSpace]",
1592	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1593	ImageSizeCache->{18., {0., 7.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1594	"\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
1595	SequenceForm[
1596	3, " possible non-zero vertices have been found -> starting the \
1597	computation: ",
1598	Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
1599	Editable->False]], "Print",
1600	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1601	3.583415505388225*^9}],
1602
1603	Cell[BoxData[
1604	InterpretationBox[
1605	RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1606	SequenceForm[3, " vertices obtained."],
1607	Editable->False]], "Print",
1608	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1609	3.583415505456485*^9}],
1610
1611	Cell[BoxData[
1612	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1613	StripOnInput->False,
1614	LineColor->RGBColor[1, 0.5, 0],
1615	FrontFaceColor->RGBColor[1, 0.5, 0],
1616	BackFaceColor->RGBColor[1, 0.5, 0],
1617	GraphicsColor->RGBColor[1, 0.5, 0],
1618	FontWeight->Bold,
1619	FontColor->RGBColor[1, 0.5, 0]]], "Print",
1620	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1621	3.583415505457859*^9}],
1622
1623	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1624	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1625	3.583415505458967*^9}],
1626
1627	Cell[BoxData["\<\"Collecting the different structures that enter the \
1628	vertex.\"\>"], "Print",
1629	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1630	3.583415505530436*^9}],
1631
1632	Cell[BoxData[
1633	InterpretationBox[
1634	RowBox[{
1635	"1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1636	-> starting the computation: \"\>", "\[InvisibleSpace]",
1637	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1638	ImageSizeCache->{18., {0., 7.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1639	"\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
1640	SequenceForm[
1641	1, " possible non-zero vertices have been found -> starting the \
1642	computation: ",
1643	Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
1644	Editable->False]], "Print",
1645	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1646	3.5834155055318003`*^9}],
1647
1648	Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
1649	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1650	3.583415505533499*^9}],
1651
1652	Cell[BoxData[
1653	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1654	StripOnInput->False,
1655	LineColor->RGBColor[1, 0.5, 0],
1656	FrontFaceColor->RGBColor[1, 0.5, 0],
1657	BackFaceColor->RGBColor[1, 0.5, 0],
1658	GraphicsColor->RGBColor[1, 0.5, 0],
1659	FontWeight->Bold,
1660	FontColor->RGBColor[1, 0.5, 0]]], "Print",
1661	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1662	3.583415507747098*^9}],
1663
1664	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1665	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1666	3.583415507748501*^9}],
1667
1668	Cell[BoxData[
1669	InterpretationBox[
1670	RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2",
1671	"\[InvisibleSpace]", "\<\" cores\"\>"}],
1672	SequenceForm["Expanding indices over ", 2, " cores"],
1673	Editable->False]], "Print",
1674	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1675	3.5834155077496347`*^9}],
1676
1677	Cell[BoxData["\<\"Collecting the different structures that enter the \
1678	vertex.\"\>"], "Print",
1679	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1680	3.5834155760453997`*^9}],
1681
1682	Cell[BoxData[
1683	InterpretationBox[
1684	RowBox[{
1685	"114", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
1686	found -> starting the computation: \"\>", "\[InvisibleSpace]",
1687	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1688	ImageSizeCache->{18., {0., 7.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1689	"\[InvisibleSpace]", "114", "\[InvisibleSpace]", "\<\".\"\>"}],
1690	SequenceForm[
1691	114, " possible non-zero vertices have been found -> starting the \
1692	computation: ",
1693	Dynamic[FeynRules`FR$FeynmanRules], " / ", 114, "."],
1694	Editable->False]], "Print",
1695	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1696	3.583415576188849*^9}],
1697
1698	Cell[BoxData[
1699	InterpretationBox[
1700	RowBox[{"114", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1701	SequenceForm[114, " vertices obtained."],
1702	Editable->False]], "Print",
1703	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1704	3.583415588712144*^9}],
1705
1706	Cell[BoxData[
1707	InterpretationBox[
1708	RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
1709	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
1710	SequenceForm[
1711	"Flavor expansion of the vertices distributed over ", 2, " kernels."],
1712	Editable->False]], "Print",
1713	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1714	3.5834155894528723`*^9}],
1715
1716	Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
1717	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1718	3.583415594115102*^9}],
1719
1720	Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
1721	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1722	3.583415594178371*^9}],
1723
1724	Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
1725	"Print",
1726	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1727	3.583415594549169*^9}],
1728
1729	Cell[BoxData[
1730	InterpretationBox[
1731	RowBox[{"\<\"Splitting of vertices distributed over \"\>",
1732	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
1733	SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
1734	Editable->False]], "Print",
1735	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1736	3.583415594611931*^9}],
1737
1738	Cell[BoxData[
1739	InterpretationBox[
1740	RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
1741	DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
1742	ImageSizeCache->{18., {0., 7.}}], "\[InvisibleSpace]", "\<\"/\"\>",
1743	"\[InvisibleSpace]", "189", "\[InvisibleSpace]", "\<\" .\"\>"}],
1744	SequenceForm[" - Optimizing: ",
1745	Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 189, " ."],
1746	Editable->False]], "Print",
1747	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1748	3.583415595258161*^9}],
1749
1750	Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
1751	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1752	3.583415595595439*^9}],
1753
1754	Cell[BoxData["\<\"Done!\"\>"], "Print",
1755	CellChangeTimes->{3.5834147437321568`^9, 3.583415134322645^9,
1756	3.583415595813684*^9}]
1757	}, Open ]]
1758	}, Closed]]
1759	}, Open ]],
1760
1761	Cell[CellGroupData[{
1762
1763	Cell["Addendum : Check Widths", "Subtitle",
1764	CellChangeTimes->{{3.5834145857147913`^9, 3.583414595739143^9}}],
1765
1766	Cell[CellGroupData[{
1767
1768	Cell[BoxData[{
1769	RowBox[{
1770	RowBox[{"myexpanded", " ", "=", " ",
1771	RowBox[{"FlavorExpansion", "[", "verts", "]"}]}],
1772	";"}], "\[IndentingNewLine]",
1773	RowBox[{
1774	RowBox[{"CalculateM2Decays", "[", "myexpanded", "]"}],
1775	";"}], "\[IndentingNewLine]",
1776	RowBox[{"mydecays", " ", "=", " ",
1777	RowBox[{"ComputeDecays", "[",
1778	RowBox[{"%", ",", " ",
1779	RowBox[{"Simplify", "\[Rule]", "True"}]}], "]"}]}]}], "Input",
1780	CellChangeTimes->{{3.5834146397125473`^9, 3.5834146440947037`^9}}],
1781
1782	Cell[CellGroupData[{
1783
1784	Cell[BoxData[
1785	InterpretationBox[
1786	RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
1787	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
1788	SequenceForm[
1789	"Flavor expansion of the vertices distributed over ", 2, " kernels."],
1790	Editable->False]], "Print",
1791	CellChangeTimes->{3.583414646051449^9, 3.583415595971238^9}],
1792
1793	Cell[BoxData[
1794	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
1795	decays: \"\>",
1796	StripOnInput->False,
1797	LineColor->RGBColor[1, 0.5, 0],
1798	FrontFaceColor->RGBColor[1, 0.5, 0],
1799	BackFaceColor->RGBColor[1, 0.5, 0],
1800	GraphicsColor->RGBColor[1, 0.5, 0],
1801	FontWeight->Bold,
1802	FontColor->RGBColor[1, 0.5, 0]]], "Print",
1803	CellChangeTimes->{3.583414646051449^9, 3.583415596182557^9}],
1804
1805	Cell[BoxData[
1806	InterpretationBox[
1807	RowBox[{
1808	DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
1809	ImageSizeCache->{7., {0., 7.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1810	"\[InvisibleSpace]", "8"}],
1811	SequenceForm[
1812	Dynamic[FeynRules`FR$DecayCounter], " / ", 8],
1813	Editable->False]], "Print",
1814	CellChangeTimes->{3.583414646051449^9, 3.583415596184051^9}],
1815
1816	Cell[BoxData[
1817	InterpretationBox[
1818	RowBox[{
1819	StyleBox["\<\"Computing all the partial 1->2 decay widths: \"\>",
1820	StripOnInput->False,
1821	LineColor->RGBColor[1, 0.5, 0],
1822	FrontFaceColor->RGBColor[1, 0.5, 0],
1823	BackFaceColor->RGBColor[1, 0.5, 0],
1824	GraphicsColor->RGBColor[1, 0.5, 0],
1825	FontWeight->Bold,
1826	FontColor->RGBColor[1, 0.5, 0]], "\[InvisibleSpace]",
1827	DynamicBox[ToBoxes[FeynRules`FR$DecayCntb, StandardForm],
1828	ImageSizeCache->{7., {0., 7.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1829	"\[InvisibleSpace]", "8"}],
1830	SequenceForm[
1831	Style["Computing all the partial 1->2 decay widths: ",
1832	RGBColor[1, 0.5, 0], Bold],
1833	Dynamic[FeynRules`FR$DecayCntb], " / ", 8],
1834	Editable->False]], "Print",
1835	CellChangeTimes->{3.583414646051449^9, 3.5834156098476543`^9}]
1836	}, Open ]],
1837
1838	Cell[BoxData[
1839	FormBox[
1840	RowBox[{"(", "\[NoBreak]", GridBox[{
1841	{
1842	RowBox[{"{",
1843	RowBox[{"H", ",", "t", ",",
1844	OverscriptBox["u", "\<\"-\"\>"]}], "}"}],
1845	FractionBox[
1846	RowBox[{"27", " ",
1847	SuperscriptBox[
1848	RowBox[{"(",
1849	RowBox[{
1850	SuperscriptBox["MH", "2"], "-",
1851	SuperscriptBox["MT", "2"]}], ")"}], "2"], " ",
1852	RowBox[{"(",
1853	RowBox[{
1854	SubsuperscriptBox["o",
1855	RowBox[{"13", " ", "uphi"}], "2"], "+",
1856	SubsuperscriptBox["o",
1857	RowBox[{"31", " ", "uphi"}], "2"]}], ")"}], " ",
1858	SuperscriptBox["ymt", "6"]}],
1859	RowBox[{"16", " ",
1860	SuperscriptBox["\[CapitalLambda]", "4"], " ", "\[Pi]", " ",
1861	SuperscriptBox["vev", "2"], " ",
1862	SuperscriptBox[
1863	TemplateBox[{"MH"},
1864	"Abs"], "3"]}]]},
1865	{
1866	RowBox[{"{",
1867	RowBox[{"H", ",", "t", ",",
1868	OverscriptBox["c", "\<\"-\"\>"]}], "}"}],
1869	FractionBox[
1870	RowBox[{"27", " ",
1871	SuperscriptBox[
1872	RowBox[{"(",
1873	RowBox[{
1874	SuperscriptBox["MH", "2"], "-",
1875	SuperscriptBox["MT", "2"]}], ")"}], "2"], " ",
1876	RowBox[{"(",
1877	RowBox[{
1878	SubsuperscriptBox["o",
1879	RowBox[{"23", " ", "uphi"}], "2"], "+",
1880	SubsuperscriptBox["o",
1881	RowBox[{"32", " ", "uphi"}], "2"]}], ")"}], " ",
1882	SuperscriptBox["ymt", "6"]}],
1883	RowBox[{"16", " ",
1884	SuperscriptBox["\[CapitalLambda]", "4"], " ", "\[Pi]", " ",
1885	SuperscriptBox["vev", "2"], " ",
1886	SuperscriptBox[
1887	TemplateBox[{"MH"},
1888	"Abs"], "3"]}]]},
1889	{
1890	RowBox[{"{",
1891	RowBox[{"H", ",", "u", ",",
1892	OverscriptBox["t", "\<\"-\"\>"]}], "}"}],
1893	FractionBox[
1894	RowBox[{"27", " ",
1895	SuperscriptBox[
1896	RowBox[{"(",
1897	RowBox[{
1898	SuperscriptBox["MH", "2"], "-",
1899	SuperscriptBox["MT", "2"]}], ")"}], "2"], " ",
1900	RowBox[{"(",
1901	RowBox[{
1902	SubsuperscriptBox["o",
1903	RowBox[{"13", " ", "uphi"}], "2"], "+",
1904	SubsuperscriptBox["o",
1905	RowBox[{"31", " ", "uphi"}], "2"]}], ")"}], " ",
1906	SuperscriptBox["ymt", "6"]}],
1907	RowBox[{"16", " ",
1908	SuperscriptBox["\[CapitalLambda]", "4"], " ", "\[Pi]", " ",
1909	SuperscriptBox["vev", "2"], " ",
1910	SuperscriptBox[
1911	TemplateBox[{"MH"},
1912	"Abs"], "3"]}]]},
1913	{
1914	RowBox[{"{",
1915	RowBox[{"t", ",", "H", ",", "u"}], "}"}],
1916	FractionBox[
1917	RowBox[{"9", " ",
1918	SuperscriptBox[
1919	RowBox[{"(",
1920	RowBox[{
1921	SuperscriptBox["MH", "2"], "-",
1922	SuperscriptBox["MT", "2"]}], ")"}], "2"], " ",
1923	RowBox[{"(",
1924	RowBox[{
1925	SubsuperscriptBox["o",
1926	RowBox[{"13", " ", "uphi"}], "2"], "+",
1927	SubsuperscriptBox["o",
1928	RowBox[{"31", " ", "uphi"}], "2"]}], ")"}], " ",
1929	SuperscriptBox["ymt", "6"]}],
1930	RowBox[{"32", " ",
1931	SuperscriptBox["\[CapitalLambda]", "4"], " ", "\[Pi]", " ",
1932	SuperscriptBox["vev", "2"], " ",
1933	SuperscriptBox[
1934	TemplateBox[{"MT"},
1935	"Abs"], "3"]}]]},
1936	{
1937	RowBox[{"{",
1938	RowBox[{"H", ",", "c", ",",
1939	OverscriptBox["t", "\<\"-\"\>"]}], "}"}],
1940	FractionBox[
1941	RowBox[{"27", " ",
1942	SuperscriptBox[
1943	RowBox[{"(",
1944	RowBox[{
1945	SuperscriptBox["MH", "2"], "-",
1946	SuperscriptBox["MT", "2"]}], ")"}], "2"], " ",
1947	RowBox[{"(",
1948	RowBox[{
1949	SubsuperscriptBox["o",
1950	RowBox[{"23", " ", "uphi"}], "2"], "+",
1951	SubsuperscriptBox["o",
1952	RowBox[{"32", " ", "uphi"}], "2"]}], ")"}], " ",
1953	SuperscriptBox["ymt", "6"]}],
1954	RowBox[{"16", " ",
1955	SuperscriptBox["\[CapitalLambda]", "4"], " ", "\[Pi]", " ",
1956	SuperscriptBox["vev", "2"], " ",
1957	SuperscriptBox[
1958	TemplateBox[{"MH"},
1959	"Abs"], "3"]}]]},
1960	{
1961	RowBox[{"{",
1962	RowBox[{"t", ",", "H", ",", "c"}], "}"}],
1963	FractionBox[
1964	RowBox[{"9", " ",
1965	SuperscriptBox[
1966	RowBox[{"(",
1967	RowBox[{
1968	SuperscriptBox["MH", "2"], "-",
1969	SuperscriptBox["MT", "2"]}], ")"}], "2"], " ",
1970	RowBox[{"(",
1971	RowBox[{
1972	SubsuperscriptBox["o",
1973	RowBox[{"23", " ", "uphi"}], "2"], "+",
1974	SubsuperscriptBox["o",
1975	RowBox[{"32", " ", "uphi"}], "2"]}], ")"}], " ",
1976	SuperscriptBox["ymt", "6"]}],
1977	RowBox[{"32", " ",
1978	SuperscriptBox["\[CapitalLambda]", "4"], " ", "\[Pi]", " ",
1979	SuperscriptBox["vev", "2"], " ",
1980	SuperscriptBox[
1981	TemplateBox[{"MT"},
1982	"Abs"], "3"]}]]},
1983	{
1984	RowBox[{"{",
1985	RowBox[{"t", ",", "G", ",", "u"}], "}"}],
1986	FractionBox[
1987	RowBox[{
1988	SuperscriptBox["G", "2"], " ",
1989	SuperscriptBox["MT", "6"], " ",
1990	RowBox[{"(",
1991	RowBox[{
1992	SubsuperscriptBox["o",
1993	RowBox[{"13", " ", "ug"}], "2"], "+",
1994	SubsuperscriptBox["o",
1995	RowBox[{"31", " ", "ug"}], "2"]}], ")"}], " ",
1996	SuperscriptBox["ymt", "2"]}],
1997	RowBox[{"3", " ",
1998	SuperscriptBox["\[CapitalLambda]", "4"], " ", "\[Pi]", " ",
1999	SuperscriptBox[
2000	TemplateBox[{"MT"},
2001	"Abs"], "3"]}]]},
2002	{
2003	RowBox[{"{",
2004	RowBox[{"t", ",", "G", ",", "c"}], "}"}],
2005	FractionBox[
2006	RowBox[{
2007	SuperscriptBox["G", "2"], " ",
2008	SuperscriptBox["MT", "6"], " ",
2009	RowBox[{"(",
2010	RowBox[{
2011	SubsuperscriptBox["o",
2012	RowBox[{"23", " ", "ug"}], "2"], "+",
2013	SubsuperscriptBox["o",
2014	RowBox[{"32", " ", "ug"}], "2"]}], ")"}], " ",
2015	SuperscriptBox["ymt", "2"]}],
2016	RowBox[{"3", " ",
2017	SuperscriptBox["\[CapitalLambda]", "4"], " ", "\[Pi]", " ",
2018	SuperscriptBox[
2019	TemplateBox[{"MT"},
2020	"Abs"], "3"]}]]}
2021	},
2022	GridBoxAlignment->{
2023	"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
2024	"RowsIndexed" -> {}},
2025	GridBoxSpacings->{"Columns" -> {
2026	Offset[0.27999999999999997`], {
2027	Offset[0.7]},
2028	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
2029	Offset[0.2], {
2030	Offset[0.4]},
2031	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
2032	TraditionalForm]], "Output",
2033	CellChangeTimes->{{3.5834146603793592`^9, 3.5834146751570063`^9},
2034	3.583415609889741^9, 3.583415845268197^9}]
2035	}, Open ]],
2036
2037	Cell[CellGroupData[{
2038
2039	Cell[BoxData[
2040	RowBox[{"NumericalValue", "[",
2041	RowBox[{
2042	RowBox[{"mydecays", "[",
2043	RowBox[{"[", "4", "]"}], "]"}], "[",
2044	RowBox[{"[", "2", "]"}], "]"}], "]"}]], "Input",
2045	CellChangeTimes->{{3.583416336878539^9, 3.5834163954381638`^9}}],
2046
2047	Cell[BoxData["0.0034648283442891216`"], "Output",
2048	CellChangeTimes->{{3.58341634382663^9, 3.5834163961874447`^9}}]
2049	}, Open ]]
2050	}, Open ]]
2051	}, Open ]]
2052	},
2053	WindowSize->{607, 961},
2054	WindowMargins->{{Automatic, 73}, {0, Automatic}},
2055	PrintingCopies->1,
2056	PrintingPageRange->{Automatic, Automatic},
2057	PrintingOptions->{"PaperOrientation"->"Portrait",
2058	"PaperSize"->{594.75, 842.25},
2059	"PostScriptOutputFile"->"/home/skrastanov/printm1.pdf"},
2060	PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
2061	ShowSelection->True,
2062	Magnification->0.75,
2063	FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)",
2064	StyleDefinitions->"Default.nb"
2065	]
2066	(* End of Notebook Content *)
2067
2068	(* Internal cache information *)
2069	(*CellTagsOutline
2070	CellTagsIndex->{}
2071	*)
2072	(*CellTagsIndex
2073	CellTagsIndex->{}
2074	*)
2075	(*NotebookFileOutline
2076	Notebook[{
2077	Cell[CellGroupData[{
2078	Cell[567, 22, 135, 3, 113, "Title"],
2079	Cell[705, 27, 52, 1, 24, "Input"],
2080	Cell[CellGroupData[{
2081	Cell[782, 32, 964, 22, 93, "Input"],
2082	Cell[CellGroupData[{
2083	Cell[1771, 58, 1408, 20, 18, "Print"],
2084	Cell[3182, 80, 1681, 27, 18, "Print"],
2085	Cell[4866, 109, 1460, 21, 18, "Print"],
2086	Cell[6329, 132, 1396, 20, 18, "Print"],
2087	Cell[7728, 154, 1464, 21, 18, "Print"],
2088	Cell[9195, 177, 1424, 20, 18, "Print"],
2089	Cell[10622, 199, 1396, 20, 18, "Print"],
2090	Cell[12021, 221, 1461, 21, 18, "Print"],
2091	Cell[13485, 244, 1415, 20, 18, "Print"],
2092	Cell[14903, 266, 1433, 20, 18, "Print"],
2093	Cell[16339, 288, 1400, 20, 18, "Print"],
2094	Cell[17742, 310, 1404, 20, 18, "Print"],
2095	Cell[19149, 332, 1535, 24, 18, "Print"],
2096	Cell[20687, 358, 1406, 20, 18, "Print"],
2097	Cell[22096, 380, 1441, 21, 18, "Print"],
2098	Cell[23540, 403, 1392, 20, 18, "Print"],
2099	Cell[24935, 425, 1425, 20, 18, "Print"],
2100	Cell[26363, 447, 1426, 20, 18, "Print"],
2101	Cell[27792, 469, 1424, 20, 18, "Print"],
2102	Cell[29219, 491, 1583, 25, 32, "Print"],
2103	Cell[30805, 518, 1888, 30, 18, "Print"],
2104	Cell[32696, 550, 1894, 30, 18, "Print"],
2105	Cell[34593, 582, 1415, 20, 18, "Print"]
2106	}, Open ]]
2107	}, Closed]],
2108	Cell[CellGroupData[{
2109	Cell[36057, 608, 828, 15, 38, "Input"],
2110	Cell[CellGroupData[{
2111	Cell[36910, 627, 419, 10, 18, "Print"],
2112	Cell[37332, 639, 174, 2, 18, "Print"],
2113	Cell[37509, 643, 348, 7, 18, "Print"],
2114	Cell[37860, 652, 207, 3, 18, "Print"],
2115	Cell[38070, 657, 688, 14, 32, "Print"],
2116	Cell[38761, 673, 286, 6, 18, "Print"]
2117	}, Open ]],
2118	Cell[39062, 682, 23036, 604, 393, "Output"]
2119	}, Open ]],
2120	Cell[CellGroupData[{
2121	Cell[62135, 1291, 209, 4, 24, "Input"],
2122	Cell[CellGroupData[{
2123	Cell[62369, 1299, 326, 5, 32, "Print"],
2124	Cell[62698, 1306, 320, 5, 18, "Print"],
2125	Cell[63021, 1313, 515, 12, 18, "Print"],
2126	Cell[63539, 1327, 270, 4, 18, "Print"],
2127	Cell[63812, 1333, 444, 9, 18, "Print"],
2128	Cell[64259, 1344, 263, 4, 18, "Print"],
2129	Cell[64525, 1350, 383, 8, 18, "Print"],
2130	Cell[64911, 1360, 271, 4, 18, "Print"]
2131	}, Open ]]
2132	}, Closed]],
2133	Cell[CellGroupData[{
2134	Cell[65231, 1370, 104, 1, 38, "Subtitle"],
2135	Cell[CellGroupData[{
2136	Cell[65360, 1375, 1201, 28, 246, "Input"],
2137	Cell[CellGroupData[{
2138	Cell[66586, 1407, 176, 3, 18, "Print"],
2139	Cell[66765, 1412, 397, 10, 18, "Print"],
2140	Cell[67165, 1424, 154, 2, 18, "Print"],
2141	Cell[67322, 1428, 326, 7, 18, "Print"],
2142	Cell[67651, 1437, 185, 3, 18, "Print"],
2143	Cell[67839, 1442, 662, 14, 32, "Print"],
2144	Cell[68504, 1458, 265, 6, 18, "Print"],
2145	Cell[68772, 1466, 397, 10, 18, "Print"],
2146	Cell[69172, 1478, 152, 2, 18, "Print"],
2147	Cell[69327, 1482, 185, 3, 18, "Print"],
2148	Cell[69515, 1487, 664, 14, 32, "Print"],
2149	Cell[70182, 1503, 265, 6, 18, "Print"],
2150	Cell[70450, 1511, 397, 10, 18, "Print"],
2151	Cell[70850, 1523, 152, 2, 18, "Print"],
2152	Cell[71005, 1527, 326, 7, 18, "Print"],
2153	Cell[71334, 1536, 187, 3, 18, "Print"],
2154	Cell[71524, 1541, 665, 14, 32, "Print"],
2155	Cell[72192, 1557, 267, 6, 18, "Print"],
2156	Cell[72462, 1565, 397, 10, 18, "Print"],
2157	Cell[72862, 1577, 152, 2, 18, "Print"],
2158	Cell[73017, 1581, 185, 3, 18, "Print"],
2159	Cell[73205, 1586, 662, 14, 32, "Print"],
2160	Cell[73870, 1602, 265, 6, 18, "Print"],
2161	Cell[74138, 1610, 397, 10, 18, "Print"],
2162	Cell[74538, 1622, 152, 2, 18, "Print"],
2163	Cell[74693, 1626, 185, 3, 18, "Print"],
2164	Cell[74881, 1631, 664, 14, 32, "Print"],
2165	Cell[75548, 1647, 143, 2, 18, "Print"],
2166	Cell[75694, 1651, 397, 10, 18, "Print"],
2167	Cell[76094, 1663, 152, 2, 18, "Print"],
2168	Cell[76249, 1667, 328, 7, 18, "Print"],
2169	Cell[76580, 1676, 187, 3, 18, "Print"],
2170	Cell[76770, 1681, 670, 14, 32, "Print"],
2171	Cell[77443, 1697, 269, 6, 18, "Print"],
2172	Cell[77715, 1705, 391, 8, 18, "Print"],
2173	Cell[78109, 1715, 166, 2, 18, "Print"],
2174	Cell[78278, 1719, 149, 2, 18, "Print"],
2175	Cell[78430, 1723, 173, 3, 18, "Print"],
2176	Cell[78606, 1728, 364, 7, 18, "Print"],
2177	Cell[78973, 1737, 523, 10, 18, "Print"],
2178	Cell[79499, 1749, 145, 2, 18, "Print"],
2179	Cell[79647, 1753, 130, 2, 18, "Print"]
2180	}, Open ]]
2181	}, Closed]]
2182	}, Open ]],
2183	Cell[CellGroupData[{
2184	Cell[79838, 1762, 111, 1, 38, "Subtitle"],
2185	Cell[CellGroupData[{
2186	Cell[79974, 1767, 486, 12, 59, "Input"],
2187	Cell[CellGroupData[{
2188	Cell[80485, 1783, 362, 7, 18, "Print"],
2189	Cell[80850, 1792, 406, 10, 18, "Print"],
2190	Cell[81259, 1804, 373, 9, 18, "Print"],
2191	Cell[81635, 1815, 793, 19, 18, "Print"]
2192	}, Open ]],
2193	Cell[82443, 1837, 6660, 196, 295, "Output"]
2194	}, Open ]],
2195	Cell[CellGroupData[{
2196	Cell[89140, 2038, 248, 6, 24, "Input"],
2197	Cell[89391, 2046, 116, 1, 24, "Output"]
2198	}, Open ]]
2199	}, Open ]]
2200	}, Open ]]
2201	}
2202	]
2203	*)
2204
2205	(* End of internal cache information *)

Download in other formats:

Original Format