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