topBSM: thu.nb

File thu.nb, 92.4 KB (added by stefankrastanov, 7 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:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[     94414,       2196]
14NotebookOptionsPosition[     89547,       2052]
15NotebookOutlinePosition[     90203,       2075]
16CellTagsIndexPosition[     90160,       2072]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["\<\
24Coupling of a top, a higgs and a light quark\
25\>", "Title",
26 CellChangeTimes->{{3.583403598268314*^9, 3.583403644392417*^9}}],
27
28Cell[BoxData[
29 RowBox[{"Quit", "[", "]"}]], "Input"],
30
31Cell[CellGroupData[{
32
33Cell[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
57Cell[CellGroupData[{
58
59Cell[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
81Cell[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
110Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
111B. 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
133Cell[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
155Cell[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
178Cell[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
200Cell[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
222Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
223FRPalette[].\"\>"], "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
245Cell[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
267Cell[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
289Cell[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
311Cell[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
333Cell[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
359Cell[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
381Cell[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
404Cell[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
426Cell[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
448Cell[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
470Cell[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
492Cell[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
519Cell[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
551Cell[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
583Cell[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
607Cell[CellGroupData[{
608
609Cell[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
626Cell[CellGroupData[{
627
628Cell[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
640Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
641 CellChangeTimes->{3.583414468822613*^9, 3.5834145102731667`*^9,
642  3.583414689462159*^9, 3.583415346472549*^9}],
643
644Cell[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
653Cell[BoxData["\<\"Collecting the different structures that enter the \
654vertex.\"\>"], "Print",
655 CellChangeTimes->{3.583414468822613*^9, 3.5834145102731667`*^9,
656  3.583414689462159*^9, 3.583415415694195*^9}],
657
658Cell[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 \
668computation: ",
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
674Cell[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
683Cell[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
1290Cell[CellGroupData[{
1291
1292Cell[BoxData[
1293 RowBox[{
1294  RowBox[{"CheckHermiticity", "[", "Lthu", "]"}], ";"}]], "Input",
1295 CellChangeTimes->{{3.575953965518354*^9, 3.5759539737415524`*^9}, {
1296  3.583414511117826*^9, 3.5834145130371027`*^9}}],
1297
1298Cell[CellGroupData[{
1299
1300Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
1301contained 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
1307Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
1308should 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
1314Cell[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
1328Cell[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
1334Cell[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
1345Cell[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
1351Cell[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
1361Cell[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
1369Cell[CellGroupData[{
1370
1371Cell["Create UFO files", "Subtitle",
1372 CellChangeTimes->{{3.5834145350283737`*^9, 3.583414541239071*^9}}],
1373
1374Cell[CellGroupData[{
1375
1376Cell[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
1406Cell[CellGroupData[{
1407
1408Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
1409"Print",
1410 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1411  3.5834154973922243`*^9}],
1412
1413Cell[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
1425Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1426 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1427  3.5834154999284782`*^9}],
1428
1429Cell[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
1438Cell[BoxData["\<\"Collecting the different structures that enter the \
1439vertex.\"\>"], "Print",
1440 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1441  3.583415501079084*^9}],
1442
1443Cell[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 \
1453computation: ",
1454   Dynamic[FeynRules`FR$FeynmanRules], " / ", 8, "."],
1455  Editable->False]], "Print",
1456 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1457  3.583415501166868*^9}],
1458
1459Cell[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
1467Cell[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
1479Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1480 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1481  3.583415502097527*^9}],
1482
1483Cell[BoxData["\<\"Collecting the different structures that enter the \
1484vertex.\"\>"], "Print",
1485 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1486  3.583415502228866*^9}],
1487
1488Cell[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 \
1498computation: ",
1499   Dynamic[FeynRules`FR$FeynmanRules], " / ", 6, "."],
1500  Editable->False]], "Print",
1501 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1502  3.5834155023795137`*^9}],
1503
1504Cell[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
1512Cell[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
1524Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1525 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1526  3.583415502383852*^9}],
1527
1528Cell[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
1537Cell[BoxData["\<\"Collecting the different structures that enter the \
1538vertex.\"\>"], "Print",
1539 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1540  3.5834155039153557`*^9}],
1541
1542Cell[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 \
1552computation: ",
1553   Dynamic[FeynRules`FR$FeynmanRules], " / ", 18, "."],
1554  Editable->False]], "Print",
1555 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1556  3.58341550399465*^9}],
1557
1558Cell[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
1566Cell[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
1578Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1579 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1580  3.583415505129668*^9}],
1581
1582Cell[BoxData["\<\"Collecting the different structures that enter the \
1583vertex.\"\>"], "Print",
1584 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1585  3.583415505320801*^9}],
1586
1587Cell[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 \
1597computation: ",
1598   Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
1599  Editable->False]], "Print",
1600 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1601  3.583415505388225*^9}],
1602
1603Cell[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
1611Cell[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
1623Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1624 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1625  3.583415505458967*^9}],
1626
1627Cell[BoxData["\<\"Collecting the different structures that enter the \
1628vertex.\"\>"], "Print",
1629 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1630  3.583415505530436*^9}],
1631
1632Cell[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 \
1642computation: ",
1643   Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
1644  Editable->False]], "Print",
1645 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1646  3.5834155055318003`*^9}],
1647
1648Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
1649 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1650  3.583415505533499*^9}],
1651
1652Cell[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
1664Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1665 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1666  3.583415507748501*^9}],
1667
1668Cell[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
1677Cell[BoxData["\<\"Collecting the different structures that enter the \
1678vertex.\"\>"], "Print",
1679 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1680  3.5834155760453997`*^9}],
1681
1682Cell[BoxData[
1683 InterpretationBox[
1684  RowBox[{
1685  "114", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
1686found -> 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 \
1692computation: ",
1693   Dynamic[FeynRules`FR$FeynmanRules], " / ", 114, "."],
1694  Editable->False]], "Print",
1695 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1696  3.583415576188849*^9}],
1697
1698Cell[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
1706Cell[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
1716Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
1717 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1718  3.583415594115102*^9}],
1719
1720Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
1721 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1722  3.583415594178371*^9}],
1723
1724Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
1725"Print",
1726 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1727  3.583415594549169*^9}],
1728
1729Cell[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
1738Cell[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
1750Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
1751 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1752  3.583415595595439*^9}],
1753
1754Cell[BoxData["\<\"Done!\"\>"], "Print",
1755 CellChangeTimes->{3.5834147437321568`*^9, 3.583415134322645*^9,
1756  3.583415595813684*^9}]
1757}, Open  ]]
1758}, Closed]]
1759}, Open  ]],
1760
1761Cell[CellGroupData[{
1762
1763Cell["Addendum : Check Widths", "Subtitle",
1764 CellChangeTimes->{{3.5834145857147913`*^9, 3.583414595739143*^9}}],
1765
1766Cell[CellGroupData[{
1767
1768Cell[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
1782Cell[CellGroupData[{
1783
1784Cell[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
1793Cell[BoxData[
1794 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
1795decays: \"\>",
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
1805Cell[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
1816Cell[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
1838Cell[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
2037Cell[CellGroupData[{
2038
2039Cell[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
2047Cell[BoxData["0.0034648283442891216`"], "Output",
2048 CellChangeTimes->{{3.58341634382663*^9, 3.5834163961874447`*^9}}]
2049}, Open  ]]
2050}, Open  ]]
2051}, Open  ]]
2052},
2053WindowSize->{607, 961},
2054WindowMargins->{{Automatic, 73}, {0, Automatic}},
2055PrintingCopies->1,
2056PrintingPageRange->{Automatic, Automatic},
2057PrintingOptions->{"PaperOrientation"->"Portrait",
2058"PaperSize"->{594.75, 842.25},
2059"PostScriptOutputFile"->"/home/skrastanov/printm1.pdf"},
2060PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
2061ShowSelection->True,
2062Magnification->0.75,
2063FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)",
2064StyleDefinitions->"Default.nb"
2065]
2066(* End of Notebook Content *)
2067
2068(* Internal cache information *)
2069(*CellTagsOutline
2070CellTagsIndex->{}
2071*)
2072(*CellTagsIndex
2073CellTagsIndex->{}
2074*)
2075(*NotebookFileOutline
2076Notebook[{
2077Cell[CellGroupData[{
2078Cell[567, 22, 135, 3, 113, "Title"],
2079Cell[705, 27, 52, 1, 24, "Input"],
2080Cell[CellGroupData[{
2081Cell[782, 32, 964, 22, 93, "Input"],
2082Cell[CellGroupData[{
2083Cell[1771, 58, 1408, 20, 18, "Print"],
2084Cell[3182, 80, 1681, 27, 18, "Print"],
2085Cell[4866, 109, 1460, 21, 18, "Print"],
2086Cell[6329, 132, 1396, 20, 18, "Print"],
2087Cell[7728, 154, 1464, 21, 18, "Print"],
2088Cell[9195, 177, 1424, 20, 18, "Print"],
2089Cell[10622, 199, 1396, 20, 18, "Print"],
2090Cell[12021, 221, 1461, 21, 18, "Print"],
2091Cell[13485, 244, 1415, 20, 18, "Print"],
2092Cell[14903, 266, 1433, 20, 18, "Print"],
2093Cell[16339, 288, 1400, 20, 18, "Print"],
2094Cell[17742, 310, 1404, 20, 18, "Print"],
2095Cell[19149, 332, 1535, 24, 18, "Print"],
2096Cell[20687, 358, 1406, 20, 18, "Print"],
2097Cell[22096, 380, 1441, 21, 18, "Print"],
2098Cell[23540, 403, 1392, 20, 18, "Print"],
2099Cell[24935, 425, 1425, 20, 18, "Print"],
2100Cell[26363, 447, 1426, 20, 18, "Print"],
2101Cell[27792, 469, 1424, 20, 18, "Print"],
2102Cell[29219, 491, 1583, 25, 32, "Print"],
2103Cell[30805, 518, 1888, 30, 18, "Print"],
2104Cell[32696, 550, 1894, 30, 18, "Print"],
2105Cell[34593, 582, 1415, 20, 18, "Print"]
2106}, Open  ]]
2107}, Closed]],
2108Cell[CellGroupData[{
2109Cell[36057, 608, 828, 15, 38, "Input"],
2110Cell[CellGroupData[{
2111Cell[36910, 627, 419, 10, 18, "Print"],
2112Cell[37332, 639, 174, 2, 18, "Print"],
2113Cell[37509, 643, 348, 7, 18, "Print"],
2114Cell[37860, 652, 207, 3, 18, "Print"],
2115Cell[38070, 657, 688, 14, 32, "Print"],
2116Cell[38761, 673, 286, 6, 18, "Print"]
2117}, Open  ]],
2118Cell[39062, 682, 23036, 604, 393, "Output"]
2119}, Open  ]],
2120Cell[CellGroupData[{
2121Cell[62135, 1291, 209, 4, 24, "Input"],
2122Cell[CellGroupData[{
2123Cell[62369, 1299, 326, 5, 32, "Print"],
2124Cell[62698, 1306, 320, 5, 18, "Print"],
2125Cell[63021, 1313, 515, 12, 18, "Print"],
2126Cell[63539, 1327, 270, 4, 18, "Print"],
2127Cell[63812, 1333, 444, 9, 18, "Print"],
2128Cell[64259, 1344, 263, 4, 18, "Print"],
2129Cell[64525, 1350, 383, 8, 18, "Print"],
2130Cell[64911, 1360, 271, 4, 18, "Print"]
2131}, Open  ]]
2132}, Closed]],
2133Cell[CellGroupData[{
2134Cell[65231, 1370, 104, 1, 38, "Subtitle"],
2135Cell[CellGroupData[{
2136Cell[65360, 1375, 1201, 28, 246, "Input"],
2137Cell[CellGroupData[{
2138Cell[66586, 1407, 176, 3, 18, "Print"],
2139Cell[66765, 1412, 397, 10, 18, "Print"],
2140Cell[67165, 1424, 154, 2, 18, "Print"],
2141Cell[67322, 1428, 326, 7, 18, "Print"],
2142Cell[67651, 1437, 185, 3, 18, "Print"],
2143Cell[67839, 1442, 662, 14, 32, "Print"],
2144Cell[68504, 1458, 265, 6, 18, "Print"],
2145Cell[68772, 1466, 397, 10, 18, "Print"],
2146Cell[69172, 1478, 152, 2, 18, "Print"],
2147Cell[69327, 1482, 185, 3, 18, "Print"],
2148Cell[69515, 1487, 664, 14, 32, "Print"],
2149Cell[70182, 1503, 265, 6, 18, "Print"],
2150Cell[70450, 1511, 397, 10, 18, "Print"],
2151Cell[70850, 1523, 152, 2, 18, "Print"],
2152Cell[71005, 1527, 326, 7, 18, "Print"],
2153Cell[71334, 1536, 187, 3, 18, "Print"],
2154Cell[71524, 1541, 665, 14, 32, "Print"],
2155Cell[72192, 1557, 267, 6, 18, "Print"],
2156Cell[72462, 1565, 397, 10, 18, "Print"],
2157Cell[72862, 1577, 152, 2, 18, "Print"],
2158Cell[73017, 1581, 185, 3, 18, "Print"],
2159Cell[73205, 1586, 662, 14, 32, "Print"],
2160Cell[73870, 1602, 265, 6, 18, "Print"],
2161Cell[74138, 1610, 397, 10, 18, "Print"],
2162Cell[74538, 1622, 152, 2, 18, "Print"],
2163Cell[74693, 1626, 185, 3, 18, "Print"],
2164Cell[74881, 1631, 664, 14, 32, "Print"],
2165Cell[75548, 1647, 143, 2, 18, "Print"],
2166Cell[75694, 1651, 397, 10, 18, "Print"],
2167Cell[76094, 1663, 152, 2, 18, "Print"],
2168Cell[76249, 1667, 328, 7, 18, "Print"],
2169Cell[76580, 1676, 187, 3, 18, "Print"],
2170Cell[76770, 1681, 670, 14, 32, "Print"],
2171Cell[77443, 1697, 269, 6, 18, "Print"],
2172Cell[77715, 1705, 391, 8, 18, "Print"],
2173Cell[78109, 1715, 166, 2, 18, "Print"],
2174Cell[78278, 1719, 149, 2, 18, "Print"],
2175Cell[78430, 1723, 173, 3, 18, "Print"],
2176Cell[78606, 1728, 364, 7, 18, "Print"],
2177Cell[78973, 1737, 523, 10, 18, "Print"],
2178Cell[79499, 1749, 145, 2, 18, "Print"],
2179Cell[79647, 1753, 130, 2, 18, "Print"]
2180}, Open  ]]
2181}, Closed]]
2182}, Open  ]],
2183Cell[CellGroupData[{
2184Cell[79838, 1762, 111, 1, 38, "Subtitle"],
2185Cell[CellGroupData[{
2186Cell[79974, 1767, 486, 12, 59, "Input"],
2187Cell[CellGroupData[{
2188Cell[80485, 1783, 362, 7, 18, "Print"],
2189Cell[80850, 1792, 406, 10, 18, "Print"],
2190Cell[81259, 1804, 373, 9, 18, "Print"],
2191Cell[81635, 1815, 793, 19, 18, "Print"]
2192}, Open  ]],
2193Cell[82443, 1837, 6660, 196, 295, "Output"]
2194}, Open  ]],
2195Cell[CellGroupData[{
2196Cell[89140, 2038, 248, 6, 24, "Input"],
2197Cell[89391, 2046, 116, 1, 24, "Output"]
2198}, Open  ]]
2199}, Open  ]]
2200}, Open  ]]
2201}
2202]
2203*)
2204
2205(* End of internal cache information *)