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[ 122837, 2704]
|
---|
14 | NotebookOptionsPosition[ 105273, 2462]
|
---|
15 | NotebookOutlinePosition[ 105746, 2480]
|
---|
16 | CellTagsIndexPosition[ 105703, 2477]
|
---|
17 | WindowFrame->Normal*)
|
---|
18 |
|
---|
19 | (* Beginning of Notebook Content *)
|
---|
20 | Notebook[{
|
---|
21 | Cell[BoxData[
|
---|
22 | RowBox[{"(*", " ",
|
---|
23 | RowBox[{
|
---|
24 | RowBox[{"R", ".", " ", "Ruiz"}], ";", " ",
|
---|
25 | RowBox[{"2024", " ", "February", " ", "1"}]}], " ", "*)"}]], "Input",
|
---|
26 | CellChangeTimes->{{3.665142881510211*^9, 3.665142884049021*^9}, {
|
---|
27 | 3.665142942303646*^9, 3.6651429529879627`*^9}, {3.915781408935854*^9,
|
---|
28 | 3.915781417053225*^9}},ExpressionUUID->"cee4e897-cbc1-4bf1-a304-\
|
---|
29 | 44bbfcd5aed3"],
|
---|
30 |
|
---|
31 | Cell[BoxData[
|
---|
32 | RowBox[{
|
---|
33 | RowBox[{"(*", " ",
|
---|
34 | RowBox[{
|
---|
35 | RowBox[{"To", " ", "generate", " ", "LO", " ",
|
---|
36 | RowBox[{"UFO", ":", " ",
|
---|
37 | RowBox[{"Set", " ", "paths"}]}]}], ",", " ",
|
---|
38 | RowBox[{"load", " ", "model"}], ",", " ",
|
---|
39 | RowBox[{"write", " ", "UFO"}]}], " ", "*)"}], "\[IndentingNewLine]",
|
---|
40 | RowBox[{"(*", " ",
|
---|
41 | RowBox[{
|
---|
42 | RowBox[{"To", " ", "generate", " ", "NLO", " ",
|
---|
43 | RowBox[{"UFO", ":", " ",
|
---|
44 | RowBox[{"Set", " ", "paths"}]}]}], ",", " ",
|
---|
45 | RowBox[{"load", " ", "model"}], ",", " ",
|
---|
46 | RowBox[{
|
---|
47 | RowBox[{"extract", " ", "on"}], "-",
|
---|
48 | RowBox[{"shell", " ", "renormalization", " ", "terms"}]}], ",", " ",
|
---|
49 | RowBox[{"write", " ", "CT", " ", "terms"}], ",", " ",
|
---|
50 | RowBox[{"reset", " ", "paths"}], ",", " ",
|
---|
51 | RowBox[{"reload", " ", "model"}], ",", " ",
|
---|
52 | RowBox[{"write", " ", "everything", " ", "to", " ",
|
---|
53 | RowBox[{"file", "."}]}]}], " ", "*)"}]}]], "Input",
|
---|
54 | CellChangeTimes->{{3.6648662671878157`*^9, 3.664866418502534*^9}, {
|
---|
55 | 3.664866852892112*^9,
|
---|
56 | 3.664866879416404*^9}},ExpressionUUID->"4149d1d2-f5f9-4692-ab77-\
|
---|
57 | ed3366c4e0f7"],
|
---|
58 |
|
---|
59 | Cell[BoxData[
|
---|
60 | RowBox[{"Quit", "[", "]"}]], "Input",
|
---|
61 | CellChangeTimes->{{3.861654623307424*^9, 3.861654624686407*^9}},
|
---|
62 | CellLabel->"In[1]:=",ExpressionUUID->"7eec092d-a909-4a5c-86c4-663c165c8312"],
|
---|
63 |
|
---|
64 | Cell[CellGroupData[{
|
---|
65 |
|
---|
66 | Cell["FeynRules Setup", "Title",
|
---|
67 | CellChangeTimes->{{3.596207285657744*^9, 3.596207286276866*^9}, {
|
---|
68 | 3.596207330352247*^9, 3.59620733250506*^9}, {3.655035967648223*^9,
|
---|
69 | 3.65503597269068*^9}},ExpressionUUID->"36a8985f-3b71-4bb1-acae-\
|
---|
70 | 6fbe5493c081"],
|
---|
71 |
|
---|
72 | Cell[CellGroupData[{
|
---|
73 |
|
---|
74 | Cell[BoxData[{
|
---|
75 | RowBox[{
|
---|
76 | RowBox[{"$CurrentPath", "=",
|
---|
77 | RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
|
---|
78 | RowBox[{
|
---|
79 | RowBox[{"$FeynRulesPath", "=",
|
---|
80 | RowBox[{"SetDirectory", "[", "\"\<~/PATH_TO_FR/FeynRules\>\"", "]"}]}],
|
---|
81 | ";"}], "\[IndentingNewLine]",
|
---|
82 | RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
|
---|
83 | RowBox[{
|
---|
84 | RowBox[{"SetDirectory", "[", "$CurrentPath", "]"}], ";"}]}], "Input",
|
---|
85 | CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
|
---|
86 | 3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
|
---|
87 | 3.4234163227881193`*^9}, {3.572102427116931*^9, 3.572102456206238*^9}, {
|
---|
88 | 3.572280529035656*^9, 3.572280529468644*^9}, {3.572366766720894*^9,
|
---|
89 | 3.572366773370627*^9}, {3.596207212826934*^9, 3.5962072447909603`*^9}, {
|
---|
90 | 3.596914045279478*^9, 3.5969140472383204`*^9}, 3.596914102616413*^9,
|
---|
91 | 3.596915921742405*^9, {3.596915961175353*^9, 3.59691596259039*^9}, {
|
---|
92 | 3.60744636894991*^9, 3.607446377507101*^9}, {3.6364757082312813`*^9,
|
---|
93 | 3.636475708315627*^9}, {3.655035981353272*^9, 3.655035982244761*^9}, {
|
---|
94 | 3.6550360677717857`*^9, 3.655036081259776*^9}, {3.655036117419112*^9,
|
---|
95 | 3.655036143336364*^9}, {3.655037954145546*^9, 3.6550379644813023`*^9}, {
|
---|
96 | 3.6605209855658293`*^9, 3.6605209855964212`*^9}, {3.6605772969976788`*^9,
|
---|
97 | 3.660577300733718*^9}, {3.6621928886588717`*^9, 3.662192889375732*^9}, {
|
---|
98 | 3.6628197402754908`*^9, 3.662819763199905*^9}, 3.8616546615279083`*^9, {
|
---|
99 | 3.9157812154507437`*^9,
|
---|
100 | 3.915781221148716*^9}},ExpressionUUID->"2b566197-5488-4f54-9e47-\
|
---|
101 | 2d15cdf0dd38"],
|
---|
102 |
|
---|
103 | Cell[CellGroupData[{
|
---|
104 |
|
---|
105 | Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
|
---|
106 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
107 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
108 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
109 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
110 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
111 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
112 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
113 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
114 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
115 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
116 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.915641978780775*^9},
|
---|
117 | CellLabel->
|
---|
118 | "During evaluation of \
|
---|
119 | In[1]:=",ExpressionUUID->"4d4ac3b9-593f-45a0-a909-b97331eaeb75"],
|
---|
120 |
|
---|
121 | Cell[BoxData[
|
---|
122 | InterpretationBox[
|
---|
123 | RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.36\"\>",
|
---|
124 | "\[InvisibleSpace]",
|
---|
125 | RowBox[{"\<\" (\"\>", " ", "\<\"28 November 2019\"\>"}],
|
---|
126 | "\[InvisibleSpace]", "\<\").\"\>"}],
|
---|
127 | SequenceForm["Version: ", "2.3.36", " (" "28 November 2019", ")."],
|
---|
128 | Editable->False]], "Print",
|
---|
129 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
130 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
131 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
132 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
133 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
134 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
135 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
136 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
137 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
138 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
139 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.915641978784814*^9},
|
---|
140 | CellLabel->
|
---|
141 | "During evaluation of \
|
---|
142 | In[1]:=",ExpressionUUID->"0ff452ec-329a-48ef-8af8-b484ea547c1e"],
|
---|
143 |
|
---|
144 | Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
|
---|
145 | B. Fuks\"\>"], "Print",
|
---|
146 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
147 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
148 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
149 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
150 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
151 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
152 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
153 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
154 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
155 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
156 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.9156419787869167`*^9},
|
---|
157 | CellLabel->
|
---|
158 | "During evaluation of \
|
---|
159 | In[1]:=",ExpressionUUID->"ba12d1b7-28b7-44bb-87b2-7440d50c55fb"],
|
---|
160 |
|
---|
161 | Cell[BoxData["\<\" \"\>"], "Print",
|
---|
162 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
163 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
164 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
165 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
166 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
167 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
168 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
169 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
170 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
171 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
172 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.915641978788274*^9},
|
---|
173 | CellLabel->
|
---|
174 | "During evaluation of \
|
---|
175 | In[1]:=",ExpressionUUID->"2b0769c3-8078-4ede-9469-a309648e24aa"],
|
---|
176 |
|
---|
177 | Cell[BoxData["\<\"Please cite:\"\>"], "Print",
|
---|
178 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
179 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
180 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
181 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
182 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
183 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
184 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
185 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
186 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
187 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
188 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.915641978790072*^9},
|
---|
189 | CellLabel->
|
---|
190 | "During evaluation of \
|
---|
191 | In[1]:=",ExpressionUUID->"2081de6a-6cf4-4662-8b6a-45232c995360"],
|
---|
192 |
|
---|
193 | Cell[BoxData["\<\" - Comput.Phys.Commun.185:2250-2300,2014 \
|
---|
194 | (arXiv:1310.1921);\"\>"], "Print",
|
---|
195 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
196 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
197 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
198 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
199 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
200 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
201 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
202 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
203 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
204 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
205 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.915641978791676*^9},
|
---|
206 | CellLabel->
|
---|
207 | "During evaluation of \
|
---|
208 | In[1]:=",ExpressionUUID->"8c153932-50f8-4c3a-8131-89c877233f07"],
|
---|
209 |
|
---|
210 | Cell[BoxData["\<\" - Comput.Phys.Commun.180:1614-1641,2009 \
|
---|
211 | (arXiv:0806.4194).\"\>"], "Print",
|
---|
212 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
213 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
214 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
215 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
216 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
217 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
218 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
219 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
220 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
221 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
222 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.9156419787924843`*^9},
|
---|
223 | CellLabel->
|
---|
224 | "During evaluation of \
|
---|
225 | In[1]:=",ExpressionUUID->"dca728df-dd9c-4e50-920e-d9a5203d6801"],
|
---|
226 |
|
---|
227 | Cell[BoxData["\<\" \"\>"], "Print",
|
---|
228 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
229 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
230 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
231 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
232 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
233 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
234 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
235 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
236 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
237 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
238 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.9156419787931356`*^9},
|
---|
239 | CellLabel->
|
---|
240 | "During evaluation of \
|
---|
241 | In[1]:=",ExpressionUUID->"3ff25800-db44-4e6e-beba-967a6cccae16"],
|
---|
242 |
|
---|
243 | Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
|
---|
244 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
245 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
246 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
247 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
248 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
249 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
250 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
251 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
252 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
253 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
254 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.915641978793727*^9},
|
---|
255 | CellLabel->
|
---|
256 | "During evaluation of \
|
---|
257 | In[1]:=",ExpressionUUID->"abfe83ea-1c4f-428e-8a1a-c42ac085f7ae"],
|
---|
258 |
|
---|
259 | Cell[BoxData["\<\" \"\>"], "Print",
|
---|
260 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
261 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
262 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
263 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
264 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
265 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
266 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
267 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
268 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
269 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
270 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.9156419787942877`*^9},
|
---|
271 | CellLabel->
|
---|
272 | "During evaluation of \
|
---|
273 | In[1]:=",ExpressionUUID->"ac3d8c75-6565-45d0-9f70-19c249fc1b49"],
|
---|
274 |
|
---|
275 | Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
|
---|
276 | FRPalette[].\"\>"], "Print",
|
---|
277 | CellChangeTimes->{{3.912887249515995*^9, 3.912887277031378*^9},
|
---|
278 | 3.912887575670307*^9, 3.9128964012065372`*^9, 3.913048142688889*^9,
|
---|
279 | 3.9130500064320374`*^9, 3.913050130527836*^9, 3.913050231543453*^9,
|
---|
280 | 3.913050351134853*^9, 3.913050500551477*^9, 3.913050672578713*^9,
|
---|
281 | 3.9130507476994667`*^9, 3.913051545511651*^9, 3.913076007259791*^9,
|
---|
282 | 3.9130761538447123`*^9, 3.913076223314002*^9, 3.913076465472743*^9,
|
---|
283 | 3.913076500793632*^9, 3.91311451973176*^9, 3.913116906606896*^9,
|
---|
284 | 3.913155212971789*^9, 3.915560858683702*^9, 3.91556175798633*^9,
|
---|
285 | 3.915611043302732*^9, 3.91561959342465*^9, 3.915633750348263*^9,
|
---|
286 | 3.91563496372218*^9, {3.915637358076454*^9, 3.9156373786180162`*^9},
|
---|
287 | 3.9156401333542557`*^9, 3.915641916058178*^9, 3.915641978794772*^9},
|
---|
288 | CellLabel->
|
---|
289 | "During evaluation of \
|
---|
290 | In[1]:=",ExpressionUUID->"5e7ac8e2-1d57-4b11-bc6e-018b4d85d72b"]
|
---|
291 | }, Open ]]
|
---|
292 | }, Open ]],
|
---|
293 |
|
---|
294 | Cell[CellGroupData[{
|
---|
295 |
|
---|
296 | Cell[BoxData[
|
---|
297 | RowBox[{
|
---|
298 | RowBox[{"(*",
|
---|
299 | RowBox[{
|
---|
300 | RowBox[{"Choose", " ", "one", " ", "of", " ", "the", " ", "three", " ",
|
---|
301 | RowBox[{"files", ":", " ", "vpolar"}]}], ",", " ", "wpolar", ",", " ",
|
---|
302 | "zpolar"}], "*)"}], "\[IndentingNewLine]",
|
---|
303 | RowBox[{
|
---|
304 | RowBox[{
|
---|
305 | RowBox[{"LoadModel", "[", "\"\<sm_loop_vpolar.fr\>\"", "]"}], ";"}],
|
---|
306 | "\[IndentingNewLine]",
|
---|
307 | RowBox[{"(*",
|
---|
308 | RowBox[{
|
---|
309 | RowBox[{"LoadModel", "[", "\"\<sm_loop_wpolar.fr\>\"", "]"}], ";"}],
|
---|
310 | "*)"}], "\[IndentingNewLine]",
|
---|
311 | RowBox[{"(*",
|
---|
312 | RowBox[{
|
---|
313 | RowBox[{"LoadModel", "[", "\"\<sm_loop_zpolar.fr\>\"", "]"}], ";"}],
|
---|
314 | "*)"}], "\[IndentingNewLine]",
|
---|
315 | RowBox[{
|
---|
316 | RowBox[{"LoadRestriction", "[",
|
---|
317 | RowBox[{"\"\<diagonalCKM.rst\>\"", ",", "\"\<massless.rst\>\""}], "]"}],
|
---|
318 | ";"}], "\[IndentingNewLine]",
|
---|
319 | RowBox[{
|
---|
320 | RowBox[{"FeynmanGauge", "=", "True"}], ";"}]}]}]], "Input",
|
---|
321 | CellChangeTimes->{{3.6550379628078337`*^9, 3.6550379664979897`*^9},
|
---|
322 | 3.6605212599219637`*^9, {3.660521401196807*^9, 3.660521401690201*^9}, {
|
---|
323 | 3.6628198742702703`*^9, 3.6628198755313597`*^9}, {3.8616546038612413`*^9,
|
---|
324 | 3.8616546064396963`*^9}, {3.9128866426988773`*^9,
|
---|
325 | 3.9128866427566338`*^9}, {3.915611050502357*^9, 3.915611059850965*^9}, {
|
---|
326 | 3.915619596932329*^9, 3.915619602734688*^9}, {3.9156337550519953`*^9,
|
---|
327 | 3.915633794690062*^9}, {3.9156373614598293`*^9, 3.9156373650923643`*^9}, {
|
---|
328 | 3.915640136364911*^9, 3.9156401416867523`*^9}},
|
---|
329 | CellLabel->"In[5]:=",ExpressionUUID->"0e39e6c0-37a4-4139-8e09-3d0b04f3b8fd"],
|
---|
330 |
|
---|
331 | Cell[CellGroupData[{
|
---|
332 |
|
---|
333 | Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
|
---|
334 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
335 | 3.915641921173086*^9, 3.915641982585558*^9},
|
---|
336 | CellLabel->
|
---|
337 | "During evaluation of \
|
---|
338 | In[5]:=",ExpressionUUID->"1f6006ec-ed2c-4d8b-acbb-3c632a6c3651"],
|
---|
339 |
|
---|
340 | Cell[BoxData["\<\"N. Christensen\"\>"], "Print",
|
---|
341 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
342 | 3.915641921173086*^9, 3.915641982588326*^9},
|
---|
343 | CellLabel->
|
---|
344 | "During evaluation of \
|
---|
345 | In[5]:=",ExpressionUUID->"c15f1a0c-a03b-4228-97f7-d14eb638caae"],
|
---|
346 |
|
---|
347 | Cell[BoxData["\<\"C. Duhr\"\>"], "Print",
|
---|
348 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
349 | 3.915641921173086*^9, 3.9156419825901623`*^9},
|
---|
350 | CellLabel->
|
---|
351 | "During evaluation of \
|
---|
352 | In[5]:=",ExpressionUUID->"f6105458-88dc-48a1-948f-30551032584a"],
|
---|
353 |
|
---|
354 | Cell[BoxData["\<\"B. Fuks\"\>"], "Print",
|
---|
355 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
356 | 3.915641921173086*^9, 3.915641982591577*^9},
|
---|
357 | CellLabel->
|
---|
358 | "During evaluation of \
|
---|
359 | In[5]:=",ExpressionUUID->"76e0c67d-79dd-4e80-8791-0a3032a71bb4"],
|
---|
360 |
|
---|
361 | Cell[BoxData[
|
---|
362 | InterpretationBox[
|
---|
363 | RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.4.7\"\>"}],
|
---|
364 | SequenceForm["Model Version: ", "1.4.7"],
|
---|
365 | Editable->False]], "Print",
|
---|
366 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
367 | 3.915641921173086*^9, 3.9156419825934677`*^9},
|
---|
368 | CellLabel->
|
---|
369 | "During evaluation of \
|
---|
370 | In[5]:=",ExpressionUUID->"4a731c7f-e759-4b43-a419-b0885b31a42e"],
|
---|
371 |
|
---|
372 | Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be/view/Main/StandardModel\"\>\
|
---|
373 | "], "Print",
|
---|
374 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
375 | 3.915641921173086*^9, 3.915641982594796*^9},
|
---|
376 | CellLabel->
|
---|
377 | "During evaluation of \
|
---|
378 | In[5]:=",ExpressionUUID->"4b41b075-2e83-4e4c-9624-c7caa1ad0e20"],
|
---|
379 |
|
---|
380 | Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
|
---|
381 | "Print",
|
---|
382 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
383 | 3.915641921173086*^9, 3.915641982596122*^9},
|
---|
384 | CellLabel->
|
---|
385 | "During evaluation of \
|
---|
386 | In[5]:=",ExpressionUUID->"1a64c1cb-1e77-4b76-ad7d-c90a34191f97"],
|
---|
387 |
|
---|
388 | Cell[BoxData["\<\"\"\>"], "Print",
|
---|
389 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
390 | 3.915641921173086*^9, 3.9156419825971003`*^9},
|
---|
391 | CellLabel->
|
---|
392 | "During evaluation of \
|
---|
393 | In[5]:=",ExpressionUUID->"d141bc42-2afa-4e6d-8ad5-a298447019bc"],
|
---|
394 |
|
---|
395 | Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
|
---|
396 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
397 | 3.915641921173086*^9, 3.9156419825980463`*^9},
|
---|
398 | CellLabel->
|
---|
399 | "During evaluation of \
|
---|
400 | In[5]:=",ExpressionUUID->"213b4c60-4306-4852-961f-4d18641b7b38"],
|
---|
401 |
|
---|
402 | Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
|
---|
403 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
404 | 3.915641921173086*^9, 3.9156419826933947`*^9},
|
---|
405 | CellLabel->
|
---|
406 | "During evaluation of \
|
---|
407 | In[5]:=",ExpressionUUID->"78303c24-6314-49d4-9689-033e06bb71c7"],
|
---|
408 |
|
---|
409 | Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
|
---|
410 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
411 | 3.915641921173086*^9, 3.915641982717186*^9},
|
---|
412 | CellLabel->
|
---|
413 | "During evaluation of \
|
---|
414 | In[5]:=",ExpressionUUID->"f70123b7-4c96-48e4-a329-f856afde08f4"],
|
---|
415 |
|
---|
416 | Cell[BoxData[
|
---|
417 | InterpretationBox[
|
---|
418 | RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"Standard Model\"\>",
|
---|
419 | "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
|
---|
420 | SequenceForm["\nModel ", "Standard Model", " loaded."],
|
---|
421 | Editable->False]], "Print",
|
---|
422 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
423 | 3.915641921173086*^9, 3.915641982748906*^9},
|
---|
424 | CellLabel->
|
---|
425 | "During evaluation of \
|
---|
426 | In[5]:=",ExpressionUUID->"c42c919e-03b4-4507-a0a9-59d3d3533b06"],
|
---|
427 |
|
---|
428 | Cell[BoxData[
|
---|
429 | InterpretationBox[
|
---|
430 | RowBox[{"\<\"Loading restrictions from \"\>",
|
---|
431 | "\[InvisibleSpace]", "\<\"diagonalCKM.rst\"\>",
|
---|
432 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
|
---|
433 | DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
|
---|
434 | ImageSizeCache->{226., {2., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
435 | "\[InvisibleSpace]", "6"}],
|
---|
436 | SequenceForm["Loading restrictions from ", "diagonalCKM.rst", " : ",
|
---|
437 | Dynamic[PRIVATE`FR$restrictionCounter], " / ", 6],
|
---|
438 | Editable->False]], "Print",
|
---|
439 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
440 | 3.915641921173086*^9, 3.915641983346434*^9},
|
---|
441 | CellLabel->
|
---|
442 | "During evaluation of \
|
---|
443 | In[5]:=",ExpressionUUID->"139ba302-6473-42a4-8c9f-a52d2c87c9f5"],
|
---|
444 |
|
---|
445 | Cell[BoxData[
|
---|
446 | InterpretationBox[
|
---|
447 | RowBox[{"\<\"Loading restrictions from \"\>",
|
---|
448 | "\[InvisibleSpace]", "\<\"massless.rst\"\>",
|
---|
449 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
|
---|
450 | DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
|
---|
451 | ImageSizeCache->{226., {2., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
452 | "\[InvisibleSpace]", "24"}],
|
---|
453 | SequenceForm["Loading restrictions from ", "massless.rst", " : ",
|
---|
454 | Dynamic[PRIVATE`FR$restrictionCounter], " / ", 24],
|
---|
455 | Editable->False]], "Print",
|
---|
456 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
457 | 3.915641921173086*^9, 3.9156419835035133`*^9},
|
---|
458 | CellLabel->
|
---|
459 | "During evaluation of \
|
---|
460 | In[5]:=",ExpressionUUID->"4e31d5d7-ba3c-4ede-8299-7a52ab67a7a0"],
|
---|
461 |
|
---|
462 | Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
|
---|
463 | CellChangeTimes->{3.915637382871049*^9, 3.915640145072423*^9,
|
---|
464 | 3.915641921173086*^9, 3.915641983615013*^9},
|
---|
465 | CellLabel->
|
---|
466 | "During evaluation of \
|
---|
467 | In[5]:=",ExpressionUUID->"d8f04cd7-e4d2-4865-b393-7172c9d96cf2"]
|
---|
468 | }, Open ]]
|
---|
469 | }, Open ]],
|
---|
470 |
|
---|
471 | Cell[BoxData[{
|
---|
472 | RowBox[{
|
---|
473 | RowBox[{"pQCDLag", "=", " ",
|
---|
474 | RowBox[{"ExpandIndices", "/@",
|
---|
475 | RowBox[{"Simplify", "[", "LSM", "]"}]}]}], ";"}], "\[IndentingNewLine]",
|
---|
476 | RowBox[{
|
---|
477 | RowBox[{
|
---|
478 | RowBox[{"Definition", "[", "pQCDLag", "]"}], " ", ">>", " ",
|
---|
479 | "vpolar_lagrangian.dat"}], ";"}]}], "Input",
|
---|
480 | CellChangeTimes->{{3.715342142509688*^9, 3.715342163031452*^9}, {
|
---|
481 | 3.715344057238492*^9, 3.715344058291609*^9}, {3.7178506900799713`*^9,
|
---|
482 | 3.717850690973333*^9}, {3.7180002809816017`*^9, 3.718000300883692*^9}, {
|
---|
483 | 3.718000394980835*^9, 3.7180003951009827`*^9}, {3.745153113604156*^9,
|
---|
484 | 3.745153113886346*^9}, {3.757403422964182*^9, 3.757403423697225*^9}, {
|
---|
485 | 3.758251145793989*^9, 3.7582511468706083`*^9}, 3.7582513470889874`*^9, {
|
---|
486 | 3.76335111930016*^9, 3.763351139093457*^9}, {3.7633511693483973`*^9,
|
---|
487 | 3.763351173687544*^9}, {3.763886545633397*^9, 3.763886571907737*^9},
|
---|
488 | 3.767099220292862*^9, {3.767374514400957*^9, 3.767374515454331*^9}, {
|
---|
489 | 3.767375022418717*^9, 3.76737502255937*^9}, {3.7674580186709423`*^9,
|
---|
490 | 3.767458019546134*^9}, {3.767610478088133*^9, 3.767610507175609*^9}, {
|
---|
491 | 3.767610538533186*^9, 3.76761053951677*^9}, {3.767610603703107*^9,
|
---|
492 | 3.7676106297846937`*^9}, {3.7676900131323767`*^9,
|
---|
493 | 3.7676900151887627`*^9}, {3.76858524470041*^9, 3.768585245204138*^9}, {
|
---|
494 | 3.77027747721585*^9, 3.7702775056436033`*^9}, {3.7711262488766813`*^9,
|
---|
495 | 3.771126253973398*^9}, {3.771126559639118*^9, 3.771126602632146*^9},
|
---|
496 | 3.771139675031245*^9, {3.771139748794265*^9, 3.771139751639614*^9}, {
|
---|
497 | 3.7711399153197002`*^9, 3.7711399456001577`*^9}, {3.771139981523079*^9,
|
---|
498 | 3.771139981644162*^9}, {3.77857888321222*^9, 3.778578897476334*^9}, {
|
---|
499 | 3.77857892985773*^9, 3.7785789375119877`*^9}, 3.7785789770568542`*^9, {
|
---|
500 | 3.77857907445473*^9, 3.7785791018908577`*^9}, {3.779597422325054*^9,
|
---|
501 | 3.779597426820354*^9}, {3.780921597734684*^9, 3.780921601148004*^9},
|
---|
502 | 3.780942736968416*^9, {3.780998835004087*^9, 3.780998837598987*^9},
|
---|
503 | 3.914884774807321*^9, {3.914884819987893*^9, 3.914884891493264*^9}, {
|
---|
504 | 3.9152601526626997`*^9, 3.9152601638796377`*^9}, {3.9152668085452423`*^9,
|
---|
505 | 3.9152668090098143`*^9}, {3.915268574545311*^9, 3.915268615074039*^9}, {
|
---|
506 | 3.91526878602829*^9, 3.915268803045566*^9}, 3.915268845679759*^9,
|
---|
507 | 3.9153122433422203`*^9, {3.915312313405923*^9, 3.9153123140255613`*^9}, {
|
---|
508 | 3.915312460407957*^9, 3.91531248638748*^9}, 3.91555992288029*^9,
|
---|
509 | 3.9155599686602783`*^9, {3.915560900926422*^9, 3.915560918177857*^9}, {
|
---|
510 | 3.915640163572584*^9, 3.915640166577341*^9}, {3.915641987412075*^9,
|
---|
511 | 3.915641989263286*^9}},ExpressionUUID->"97808359-025b-4359-9ecf-\
|
---|
512 | 779e8e5ca2d2"],
|
---|
513 |
|
---|
514 | Cell[BoxData[
|
---|
515 | RowBox[{
|
---|
516 | RowBox[{"(*",
|
---|
517 | RowBox[{
|
---|
518 | RowBox[{"Is", " ", "it", " ", "necessary", " ", "to", " ", "re"}], "-",
|
---|
519 | RowBox[{
|
---|
520 | "expand", " ", "the", " ", "Lagrangian", " ", "if", " ", "it", " ", "is",
|
---|
521 | " ", "already", " ", "written", " ", "to", " ",
|
---|
522 | RowBox[{"file", "?"}]}]}], "*)"}], "\[IndentingNewLine]",
|
---|
523 | RowBox[{
|
---|
524 | RowBox[{"Get", "[", "\"\<vpolar_lagrangian.dat\>\"", "]"}],
|
---|
525 | ";"}]}]], "Input",
|
---|
526 | CellChangeTimes->{{3.915641929585512*^9, 3.915641968943142*^9}, {
|
---|
527 | 3.915781243660981*^9,
|
---|
528 | 3.915781294765223*^9}},ExpressionUUID->"e0d984d8-7455-49ec-998c-\
|
---|
529 | c35045fd9a86"],
|
---|
530 |
|
---|
531 | Cell[CellGroupData[{
|
---|
532 |
|
---|
533 | Cell["Lagrangian Terms", "Section",
|
---|
534 | CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
|
---|
535 | 3.572348211890565*^9, 3.572348234275403*^9}, {3.596207324453108*^9,
|
---|
536 | 3.596207326711195*^9}, {3.655036212669145*^9, 3.6550362220422897`*^9}, {
|
---|
537 | 3.655036282693001*^9, 3.655036287060457*^9}, {3.655037866940884*^9,
|
---|
538 | 3.6550378926486187`*^9}, {3.662214296374611*^9,
|
---|
539 | 3.662214296674329*^9}},ExpressionUUID->"430f6c12-ab98-447b-8fa4-\
|
---|
540 | 8a13c875b6c3"],
|
---|
541 |
|
---|
542 | Cell[CellGroupData[{
|
---|
543 |
|
---|
544 | Cell[BoxData[
|
---|
545 | RowBox[{"FeynmanRules", "[", "LHiggs", "]"}]], "Input",
|
---|
546 | CellChangeTimes->{{3.664866736738257*^9, 3.664866737292602*^9}, {
|
---|
547 | 3.86165470748829*^9, 3.8616547308642673`*^9}, {3.915618525994691*^9,
|
---|
548 | 3.915618560206333*^9}, {3.9157802889645863`*^9,
|
---|
549 | 3.915780294808648*^9}},ExpressionUUID->"01776d56-05d4-475b-b025-\
|
---|
550 | 2f0ebd0c8fc8"],
|
---|
551 |
|
---|
552 | Cell[CellGroupData[{
|
---|
553 |
|
---|
554 | Cell[BoxData[
|
---|
555 | StyleBox["\<\"Starting Feynman rule calculation.\"\>",
|
---|
556 | StripOnInput->False,
|
---|
557 | LineColor->RGBColor[1, 0.5, 0],
|
---|
558 | FrontFaceColor->RGBColor[1, 0.5, 0],
|
---|
559 | BackFaceColor->RGBColor[1, 0.5, 0],
|
---|
560 | GraphicsColor->RGBColor[1, 0.5, 0],
|
---|
561 | FontWeight->Bold,
|
---|
562 | FontColor->RGBColor[1, 0.5, 0]]], "Print",
|
---|
563 | CellChangeTimes->{
|
---|
564 | 3.8616547327058153`*^9, {3.915618531935725*^9, 3.915618560698848*^9},
|
---|
565 | 3.915637514802968*^9},
|
---|
566 | CellLabel->
|
---|
567 | "During evaluation of \
|
---|
568 | In[10]:=",ExpressionUUID->"ad7147cd-90d5-49f0-b387-0343e72459ac"],
|
---|
569 |
|
---|
570 | Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
|
---|
571 | CellChangeTimes->{
|
---|
572 | 3.8616547327058153`*^9, {3.915618531935725*^9, 3.915618560698848*^9},
|
---|
573 | 3.915637514805875*^9},
|
---|
574 | CellLabel->
|
---|
575 | "During evaluation of \
|
---|
576 | In[10]:=",ExpressionUUID->"b4a6bc98-715d-4abc-8d8c-53ddff957489"],
|
---|
577 |
|
---|
578 | Cell[BoxData["\<\"Collecting the different structures that enter the \
|
---|
579 | vertex.\"\>"], "Print",
|
---|
580 | CellChangeTimes->{
|
---|
581 | 3.8616547327058153`*^9, {3.915618531935725*^9, 3.915618560698848*^9},
|
---|
582 | 3.915637514831558*^9},
|
---|
583 | CellLabel->
|
---|
584 | "During evaluation of \
|
---|
585 | In[10]:=",ExpressionUUID->"110bb0d8-bad8-493b-b401-35b1b5f755c3"],
|
---|
586 |
|
---|
587 | Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
|
---|
588 | CellChangeTimes->{
|
---|
589 | 3.8616547327058153`*^9, {3.915618531935725*^9, 3.915618560698848*^9},
|
---|
590 | 3.9156375148322144`*^9},
|
---|
591 | CellLabel->
|
---|
592 | "During evaluation of \
|
---|
593 | In[10]:=",ExpressionUUID->"dfe9be29-85cc-4300-8625-020e53ba16c5"],
|
---|
594 |
|
---|
595 | Cell[BoxData[
|
---|
596 | InterpretationBox[
|
---|
597 | RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
|
---|
598 | SequenceForm[0, " vertices obtained."],
|
---|
599 | Editable->False]], "Print",
|
---|
600 | CellChangeTimes->{
|
---|
601 | 3.8616547327058153`*^9, {3.915618531935725*^9, 3.915618560698848*^9},
|
---|
602 | 3.915637514832646*^9},
|
---|
603 | CellLabel->
|
---|
604 | "During evaluation of \
|
---|
605 | In[10]:=",ExpressionUUID->"ba028401-557e-41f7-b903-df112c97cd38"]
|
---|
606 | }, Open ]],
|
---|
607 |
|
---|
608 | Cell[BoxData[
|
---|
609 | RowBox[{"{", "}"}]], "Output",
|
---|
610 | CellChangeTimes->{{3.915618534112711*^9, 3.915618560720058*^9},
|
---|
611 | 3.9156375148330584`*^9},
|
---|
612 | CellLabel->"Out[10]=",ExpressionUUID->"78e8edf7-e7ef-4da3-a3fe-3149222e6001"]
|
---|
613 | }, Open ]]
|
---|
614 | }, Open ]],
|
---|
615 |
|
---|
616 | Cell[CellGroupData[{
|
---|
617 |
|
---|
618 | Cell["Sanity Checks for New Lagrangian Terms", "Section",
|
---|
619 | CellChangeTimes->{{3.4234156496121893`*^9, 3.423415657027569*^9}, {
|
---|
620 | 3.655037883884348*^9,
|
---|
621 | 3.655037906883815*^9}},ExpressionUUID->"963bd5da-1517-491b-8768-\
|
---|
622 | 3e81fb288ca2"],
|
---|
623 |
|
---|
624 | Cell[BoxData[
|
---|
625 | RowBox[{"CheckHermiticity", "[", "pQCDLag", "]"}]], "Input",ExpressionUUID->"ac633701-1714-47ff-b059-96a9d55ac743"],
|
---|
626 |
|
---|
627 | Cell[CellGroupData[{
|
---|
628 |
|
---|
629 | Cell[BoxData[
|
---|
630 | RowBox[{"CheckMassSpectrum", "[", "LHiggs", "]"}]], "Input",
|
---|
631 | CellChangeTimes->{{3.607446409988699*^9, 3.6074464110954323`*^9},
|
---|
632 | 3.6550378392495413`*^9, {3.861654777282482*^9, 3.861654778067959*^9}, {
|
---|
633 | 3.8616548452623672`*^9, 3.8616548478156652`*^9}, {3.913051554641657*^9,
|
---|
634 | 3.913051556105932*^9}},
|
---|
635 | CellLabel->"In[11]:=",ExpressionUUID->"92049f5e-2336-49b3-a1cf-102286807753"],
|
---|
636 |
|
---|
637 | Cell[CellGroupData[{
|
---|
638 |
|
---|
639 | Cell[BoxData[
|
---|
640 | InterpretationBox[
|
---|
641 | RowBox[{"\<\"Neglecting all terms with more than \"\>",
|
---|
642 | "\[InvisibleSpace]", "\<\"2\"\>",
|
---|
643 | "\[InvisibleSpace]", "\<\" particles.\"\>"}],
|
---|
644 | SequenceForm["Neglecting all terms with more than ", "2", " particles."],
|
---|
645 | Editable->False]], "Print",
|
---|
646 | CellChangeTimes->{
|
---|
647 | 3.6760964240892897`*^9, 3.8616547962502604`*^9, 3.861654850491796*^9,
|
---|
648 | 3.861884192788991*^9, 3.912887383405389*^9, 3.912896591176524*^9,
|
---|
649 | 3.913049325884521*^9, {3.9130500368632936`*^9, 3.9130500515206633`*^9},
|
---|
650 | 3.913050141026074*^9, 3.913050243631068*^9, 3.913050363672976*^9,
|
---|
651 | 3.913050513816114*^9, 3.913050682607633*^9, 3.913050983978071*^9,
|
---|
652 | 3.913051558908925*^9, 3.913076021981505*^9, 3.9130761665329857`*^9,
|
---|
653 | 3.9130762351912613`*^9, 3.9130767127511168`*^9, 3.915562627346305*^9,
|
---|
654 | 3.9156111688870173`*^9, 3.9156205560519123`*^9, 3.9156350780813704`*^9,
|
---|
655 | 3.915637596990299*^9, 3.915641635720832*^9},
|
---|
656 | CellLabel->
|
---|
657 | "During evaluation of \
|
---|
658 | In[11]:=",ExpressionUUID->"83ed3121-7c45-42b6-a73c-536be8e0990c"],
|
---|
659 |
|
---|
660 | Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
|
---|
661 | CellChangeTimes->{
|
---|
662 | 3.6760964240892897`*^9, 3.8616547962502604`*^9, 3.861654850491796*^9,
|
---|
663 | 3.861884192788991*^9, 3.912887383405389*^9, 3.912896591176524*^9,
|
---|
664 | 3.913049325884521*^9, {3.9130500368632936`*^9, 3.9130500515206633`*^9},
|
---|
665 | 3.913050141026074*^9, 3.913050243631068*^9, 3.913050363672976*^9,
|
---|
666 | 3.913050513816114*^9, 3.913050682607633*^9, 3.913050983978071*^9,
|
---|
667 | 3.913051558908925*^9, 3.913076021981505*^9, 3.9130761665329857`*^9,
|
---|
668 | 3.9130762351912613`*^9, 3.9130767127511168`*^9, 3.915562627346305*^9,
|
---|
669 | 3.9156111688870173`*^9, 3.9156205560519123`*^9, 3.9156350780813704`*^9,
|
---|
670 | 3.915637596990299*^9, 3.91564163576924*^9},
|
---|
671 | CellLabel->
|
---|
672 | "During evaluation of \
|
---|
673 | In[11]:=",ExpressionUUID->"7d0b43f5-72f4-4eaf-887b-907ba02ee1ff"],
|
---|
674 |
|
---|
675 | Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
|
---|
676 | CellChangeTimes->{
|
---|
677 | 3.6760964240892897`*^9, 3.8616547962502604`*^9, 3.861654850491796*^9,
|
---|
678 | 3.861884192788991*^9, 3.912887383405389*^9, 3.912896591176524*^9,
|
---|
679 | 3.913049325884521*^9, {3.9130500368632936`*^9, 3.9130500515206633`*^9},
|
---|
680 | 3.913050141026074*^9, 3.913050243631068*^9, 3.913050363672976*^9,
|
---|
681 | 3.913050513816114*^9, 3.913050682607633*^9, 3.913050983978071*^9,
|
---|
682 | 3.913051558908925*^9, 3.913076021981505*^9, 3.9130761665329857`*^9,
|
---|
683 | 3.9130762351912613`*^9, 3.9130767127511168`*^9, 3.915562627346305*^9,
|
---|
684 | 3.9156111688870173`*^9, 3.9156205560519123`*^9, 3.9156350780813704`*^9,
|
---|
685 | 3.915637596990299*^9, 3.915641636866457*^9},
|
---|
686 | CellLabel->
|
---|
687 | "During evaluation of \
|
---|
688 | In[11]:=",ExpressionUUID->"e4851d06-682f-456f-819f-0b16bb338d54"],
|
---|
689 |
|
---|
690 | Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
|
---|
691 | values.\"\>"], "Print",
|
---|
692 | CellChangeTimes->{
|
---|
693 | 3.6760964240892897`*^9, 3.8616547962502604`*^9, 3.861654850491796*^9,
|
---|
694 | 3.861884192788991*^9, 3.912887383405389*^9, 3.912896591176524*^9,
|
---|
695 | 3.913049325884521*^9, {3.9130500368632936`*^9, 3.9130500515206633`*^9},
|
---|
696 | 3.913050141026074*^9, 3.913050243631068*^9, 3.913050363672976*^9,
|
---|
697 | 3.913050513816114*^9, 3.913050682607633*^9, 3.913050983978071*^9,
|
---|
698 | 3.913051558908925*^9, 3.913076021981505*^9, 3.9130761665329857`*^9,
|
---|
699 | 3.9130762351912613`*^9, 3.9130767127511168`*^9, 3.915562627346305*^9,
|
---|
700 | 3.9156111688870173`*^9, 3.9156205560519123`*^9, 3.9156350780813704`*^9,
|
---|
701 | 3.915637596990299*^9, 3.915641636868479*^9},
|
---|
702 | CellLabel->
|
---|
703 | "During evaluation of \
|
---|
704 | In[11]:=",ExpressionUUID->"8c9cd384-69f1-435e-8d0a-8599d0c3160a"]
|
---|
705 | }, Open ]],
|
---|
706 |
|
---|
707 | Cell[BoxData[
|
---|
708 | TagBox[GridBox[{
|
---|
709 | {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
|
---|
710 | "\<\"Model-file value\"\>"},
|
---|
711 | {"H",
|
---|
712 | RowBox[{
|
---|
713 | SqrtBox["2"], " ",
|
---|
714 | SqrtBox[
|
---|
715 | RowBox[{
|
---|
716 | RowBox[{"-",
|
---|
717 | FractionBox[
|
---|
718 | SuperscriptBox["\[Mu]", "2"], "2"]}], "+",
|
---|
719 | FractionBox[
|
---|
720 | RowBox[{"3", " ", "lam", " ",
|
---|
721 | SuperscriptBox["vev", "2"]}], "2"]}]]}], "125.7`", "125.7`"},
|
---|
722 | {"W0",
|
---|
723 | RowBox[{
|
---|
724 | FractionBox["1", "2"], " ",
|
---|
725 | SqrtBox[
|
---|
726 | FractionBox[
|
---|
727 | RowBox[{
|
---|
728 | SuperscriptBox["e", "2"], " ",
|
---|
729 | SuperscriptBox["vev", "2"]}],
|
---|
730 | SubsuperscriptBox["s", "w", "2"]]]}], "79.95122985543638`",
|
---|
731 | "79.9512298554364`"},
|
---|
732 | {"WA",
|
---|
733 | RowBox[{
|
---|
734 | FractionBox["1", "2"], " ",
|
---|
735 | SqrtBox[
|
---|
736 | FractionBox[
|
---|
737 | RowBox[{
|
---|
738 | SuperscriptBox["e", "2"], " ",
|
---|
739 | SuperscriptBox["vev", "2"]}],
|
---|
740 | SubsuperscriptBox["s", "w", "2"]]]}], "79.95122985543638`",
|
---|
741 | "79.9512298554364`"},
|
---|
742 | {"WT",
|
---|
743 | RowBox[{
|
---|
744 | FractionBox["1", "2"], " ",
|
---|
745 | SqrtBox[
|
---|
746 | FractionBox[
|
---|
747 | RowBox[{
|
---|
748 | SuperscriptBox["e", "2"], " ",
|
---|
749 | SuperscriptBox["vev", "2"]}],
|
---|
750 | SubsuperscriptBox["s", "w", "2"]]]}], "79.95122985543638`",
|
---|
751 | "79.9512298554364`"},
|
---|
752 | {"WX",
|
---|
753 | RowBox[{
|
---|
754 | FractionBox["1", "2"], " ",
|
---|
755 | SqrtBox[
|
---|
756 | FractionBox[
|
---|
757 | RowBox[{
|
---|
758 | SuperscriptBox["e", "2"], " ",
|
---|
759 | SuperscriptBox["vev", "2"]}],
|
---|
760 | SubsuperscriptBox["s", "w", "2"]]]}], "79.95122985543638`",
|
---|
761 | "79.9512298554364`"},
|
---|
762 | {"Z0",
|
---|
763 | RowBox[{
|
---|
764 | SqrtBox["2"], " ",
|
---|
765 | SqrtBox[
|
---|
766 | RowBox[{
|
---|
767 | FractionBox[
|
---|
768 | RowBox[{
|
---|
769 | SuperscriptBox["e", "2"], " ",
|
---|
770 | SuperscriptBox["vev", "2"]}], "4"], "+",
|
---|
771 | FractionBox[
|
---|
772 | RowBox[{
|
---|
773 | SubsuperscriptBox["c", "w", "2"], " ",
|
---|
774 | SuperscriptBox["e", "2"], " ",
|
---|
775 | SuperscriptBox["vev", "2"]}],
|
---|
776 | RowBox[{"8", " ",
|
---|
777 | SubsuperscriptBox["s", "w", "2"]}]], "+",
|
---|
778 | FractionBox[
|
---|
779 | RowBox[{
|
---|
780 | SuperscriptBox["e", "2"], " ",
|
---|
781 | SubsuperscriptBox["s", "w", "2"], " ",
|
---|
782 | SuperscriptBox["vev", "2"]}],
|
---|
783 | RowBox[{"8", " ",
|
---|
784 | SubsuperscriptBox["c", "w", "2"]}]]}]]}], "91.1876`", "91.1876`"},
|
---|
785 | {"ZA",
|
---|
786 | RowBox[{
|
---|
787 | SqrtBox["2"], " ",
|
---|
788 | SqrtBox[
|
---|
789 | RowBox[{
|
---|
790 | FractionBox[
|
---|
791 | RowBox[{
|
---|
792 | SuperscriptBox["e", "2"], " ",
|
---|
793 | SuperscriptBox["vev", "2"]}], "4"], "+",
|
---|
794 | FractionBox[
|
---|
795 | RowBox[{
|
---|
796 | SubsuperscriptBox["c", "w", "2"], " ",
|
---|
797 | SuperscriptBox["e", "2"], " ",
|
---|
798 | SuperscriptBox["vev", "2"]}],
|
---|
799 | RowBox[{"8", " ",
|
---|
800 | SubsuperscriptBox["s", "w", "2"]}]], "+",
|
---|
801 | FractionBox[
|
---|
802 | RowBox[{
|
---|
803 | SuperscriptBox["e", "2"], " ",
|
---|
804 | SubsuperscriptBox["s", "w", "2"], " ",
|
---|
805 | SuperscriptBox["vev", "2"]}],
|
---|
806 | RowBox[{"8", " ",
|
---|
807 | SubsuperscriptBox["c", "w", "2"]}]]}]]}], "91.1876`", "91.1876`"},
|
---|
808 | {"ZT",
|
---|
809 | RowBox[{
|
---|
810 | SqrtBox["2"], " ",
|
---|
811 | SqrtBox[
|
---|
812 | RowBox[{
|
---|
813 | FractionBox[
|
---|
814 | RowBox[{
|
---|
815 | SuperscriptBox["e", "2"], " ",
|
---|
816 | SuperscriptBox["vev", "2"]}], "4"], "+",
|
---|
817 | FractionBox[
|
---|
818 | RowBox[{
|
---|
819 | SubsuperscriptBox["c", "w", "2"], " ",
|
---|
820 | SuperscriptBox["e", "2"], " ",
|
---|
821 | SuperscriptBox["vev", "2"]}],
|
---|
822 | RowBox[{"8", " ",
|
---|
823 | SubsuperscriptBox["s", "w", "2"]}]], "+",
|
---|
824 | FractionBox[
|
---|
825 | RowBox[{
|
---|
826 | SuperscriptBox["e", "2"], " ",
|
---|
827 | SubsuperscriptBox["s", "w", "2"], " ",
|
---|
828 | SuperscriptBox["vev", "2"]}],
|
---|
829 | RowBox[{"8", " ",
|
---|
830 | SubsuperscriptBox["c", "w", "2"]}]]}]]}], "91.1876`", "91.1876`"},
|
---|
831 | {"ZX",
|
---|
832 | RowBox[{
|
---|
833 | SqrtBox["2"], " ",
|
---|
834 | SqrtBox[
|
---|
835 | RowBox[{
|
---|
836 | FractionBox[
|
---|
837 | RowBox[{
|
---|
838 | SuperscriptBox["e", "2"], " ",
|
---|
839 | SuperscriptBox["vev", "2"]}], "4"], "+",
|
---|
840 | FractionBox[
|
---|
841 | RowBox[{
|
---|
842 | SubsuperscriptBox["c", "w", "2"], " ",
|
---|
843 | SuperscriptBox["e", "2"], " ",
|
---|
844 | SuperscriptBox["vev", "2"]}],
|
---|
845 | RowBox[{"8", " ",
|
---|
846 | SubsuperscriptBox["s", "w", "2"]}]], "+",
|
---|
847 | FractionBox[
|
---|
848 | RowBox[{
|
---|
849 | SuperscriptBox["e", "2"], " ",
|
---|
850 | SubsuperscriptBox["s", "w", "2"], " ",
|
---|
851 | SuperscriptBox["vev", "2"]}],
|
---|
852 | RowBox[{"8", " ",
|
---|
853 | SubsuperscriptBox["c", "w", "2"]}]]}]]}], "91.1876`", "91.1876`"}
|
---|
854 | },
|
---|
855 | GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
|
---|
856 | GridBoxSpacings->{"Columns" -> {
|
---|
857 | Offset[0.27999999999999997`], {
|
---|
858 | Offset[2.0999999999999996`]},
|
---|
859 | Offset[0.27999999999999997`]}, "Rows" -> {
|
---|
860 | Offset[0.2], {
|
---|
861 | Offset[0.4]},
|
---|
862 | Offset[0.2]}}],
|
---|
863 | Function[BoxForm`e$,
|
---|
864 | TableForm[BoxForm`e$]]]], "Output",
|
---|
865 | CellChangeTimes->{3.913076236062688*^9, 3.91307671377273*^9,
|
---|
866 | 3.915562628484663*^9, 3.915611169445716*^9, 3.915620557203182*^9,
|
---|
867 | 3.915635078687229*^9, 3.915637597481542*^9, 3.915641636870161*^9},
|
---|
868 | CellLabel->
|
---|
869 | "Out[11]//TableForm=",ExpressionUUID->"59d97bf5-775e-443b-9d3b-\
|
---|
870 | 2dfb2fc8fe30"]
|
---|
871 | }, Open ]],
|
---|
872 |
|
---|
873 | Cell[BoxData[
|
---|
874 | RowBox[{"CheckKineticTermNormalisation", "[", "LGauge", "]"}]], "Input",
|
---|
875 | CellChangeTimes->{{3.414763473002973*^9, 3.4147634845507174`*^9}, {
|
---|
876 | 3.572348320182221*^9, 3.572348326613598*^9}, {3.572358912362153*^9,
|
---|
877 | 3.572358917148378*^9}, {3.596207478919518*^9, 3.596207486580676*^9}, {
|
---|
878 | 3.596212578276376*^9, 3.5962125890639143`*^9}, 3.607446414234477*^9, {
|
---|
879 | 3.86165478154783*^9, 3.8616547825023623`*^9}},
|
---|
880 | CellLabel->"In[12]:=",ExpressionUUID->"98abda96-0800-4fdf-a9dc-54c145864a34"]
|
---|
881 | }, Open ]],
|
---|
882 |
|
---|
883 | Cell[CellGroupData[{
|
---|
884 |
|
---|
885 | Cell["UFO Output", "Section",
|
---|
886 | CellChangeTimes->{
|
---|
887 | 3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
|
---|
888 | 3.59620768137986*^9,
|
---|
889 | 3.596207684212212*^9}},ExpressionUUID->"47f009e8-0603-4d37-95af-\
|
---|
890 | 884018211353"],
|
---|
891 |
|
---|
892 | Cell[CellGroupData[{
|
---|
893 |
|
---|
894 | Cell[BoxData[
|
---|
895 | RowBox[{
|
---|
896 | RowBox[{"(*",
|
---|
897 | RowBox[{
|
---|
898 | RowBox[{"Choose", " ", "one", " ", "of", " ", "the", " ", "three", " ",
|
---|
899 | RowBox[{"files", ":", " ", "vpolar"}]}], ",", " ", "wpolar", ",", " ",
|
---|
900 | "zpolar"}], "*)"}], "\[IndentingNewLine]",
|
---|
901 | RowBox[{
|
---|
902 | RowBox[{
|
---|
903 | RowBox[{"WriteUFO", "[",
|
---|
904 | RowBox[{"pQCDLag", ",",
|
---|
905 | RowBox[{"Output", "\[Rule]", "\"\<SM_VPolar_XLO\>\""}]}], "]"}], ";"}],
|
---|
906 | "\[IndentingNewLine]",
|
---|
907 | RowBox[{"(*",
|
---|
908 | RowBox[{
|
---|
909 | RowBox[{"WriteUFO", "[",
|
---|
910 | RowBox[{"pQCDLag", ",",
|
---|
911 | RowBox[{"Output", "\[Rule]", "\"\<SM_WPolar_XLO\>\""}]}], "]"}], ";"}],
|
---|
912 | "*)"}], "\[IndentingNewLine]",
|
---|
913 | RowBox[{"(*",
|
---|
914 | RowBox[{
|
---|
915 | RowBox[{"WriteUFO", "[",
|
---|
916 | RowBox[{"pQCDLag", ",",
|
---|
917 | RowBox[{"Output", "\[Rule]", "\"\<SM_ZPolar_XLO\>\""}]}], "]"}], ";"}],
|
---|
918 | "*)"}]}]}]], "Input",
|
---|
919 | CellChangeTimes->{{3.86165481715454*^9, 3.86165482958214*^9}, {
|
---|
920 | 3.8616549433492403`*^9, 3.8616549496521873`*^9}, {3.861685355081511*^9,
|
---|
921 | 3.861685363252585*^9}, {3.9128867372412367`*^9, 3.9128867504953413`*^9},
|
---|
922 | 3.9128869570689173`*^9, {3.915560948192116*^9, 3.9155609830758123`*^9}, {
|
---|
923 | 3.915562206773633*^9, 3.915562207483501*^9}, {3.915611143398251*^9,
|
---|
924 | 3.915611170976355*^9}, {3.915620106478825*^9, 3.915620113452277*^9}, {
|
---|
925 | 3.9156350230206833`*^9, 3.915635052179039*^9}, {3.915637628382011*^9,
|
---|
926 | 3.915637637768077*^9}, {3.915640338820579*^9, 3.915640343502655*^9}},
|
---|
927 | CellLabel->"In[13]:=",ExpressionUUID->"758085c5-adf3-40e0-830a-07fa05d96b6c"],
|
---|
928 |
|
---|
929 | Cell[CellGroupData[{
|
---|
930 |
|
---|
931 | Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
|
---|
932 | "Print",
|
---|
933 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
934 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
935 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
936 | 3.915641662278695*^9},
|
---|
937 | CellLabel->
|
---|
938 | "During evaluation of \
|
---|
939 | In[13]:=",ExpressionUUID->"efe5d50d-8d4b-4ffc-ba41-3dbd9266a7e7"],
|
---|
940 |
|
---|
941 | Cell[BoxData[
|
---|
942 | StyleBox["\<\"Starting Feynman rule calculation.\"\>",
|
---|
943 | StripOnInput->False,
|
---|
944 | LineColor->RGBColor[1, 0.5, 0],
|
---|
945 | FrontFaceColor->RGBColor[1, 0.5, 0],
|
---|
946 | BackFaceColor->RGBColor[1, 0.5, 0],
|
---|
947 | GraphicsColor->RGBColor[1, 0.5, 0],
|
---|
948 | FontWeight->Bold,
|
---|
949 | FontColor->RGBColor[1, 0.5, 0]]], "Print",
|
---|
950 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
951 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
952 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
953 | 3.91564166371111*^9},
|
---|
954 | CellLabel->
|
---|
955 | "During evaluation of \
|
---|
956 | In[13]:=",ExpressionUUID->"fba6eacc-1ed8-4e6a-99c5-7abf15f0d8c6"],
|
---|
957 |
|
---|
958 | Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
|
---|
959 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
960 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
961 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
962 | 3.915641663713972*^9},
|
---|
963 | CellLabel->
|
---|
964 | "During evaluation of \
|
---|
965 | In[13]:=",ExpressionUUID->"32776f0f-0a52-473f-9295-16b252e9e487"],
|
---|
966 |
|
---|
967 | Cell[BoxData[
|
---|
968 | InterpretationBox[
|
---|
969 | RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "12",
|
---|
970 | "\[InvisibleSpace]", "\<\" cores\"\>"}],
|
---|
971 | SequenceForm["Expanding the indices over ", 12, " cores"],
|
---|
972 | Editable->False]], "Print",
|
---|
973 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
974 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
975 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
976 | 3.9156416637153807`*^9},
|
---|
977 | CellLabel->
|
---|
978 | "During evaluation of \
|
---|
979 | In[13]:=",ExpressionUUID->"236a5d2a-58fa-49bd-af53-aa5199072083"],
|
---|
980 |
|
---|
981 | Cell[BoxData["\<\"Collecting the different structures that enter the \
|
---|
982 | vertex.\"\>"], "Print",
|
---|
983 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
984 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
985 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
986 | 3.915641691302638*^9},
|
---|
987 | CellLabel->
|
---|
988 | "During evaluation of \
|
---|
989 | In[13]:=",ExpressionUUID->"b08ac910-1b6e-48ec-be04-b8aee1d47e1b"],
|
---|
990 |
|
---|
991 | Cell[BoxData[
|
---|
992 | InterpretationBox[
|
---|
993 | RowBox[{
|
---|
994 | "905", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
|
---|
995 | found -> starting the computation: \"\>", "\[InvisibleSpace]",
|
---|
996 | DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
|
---|
997 | ImageSizeCache->{195., {3., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
998 | "\[InvisibleSpace]", "905", "\[InvisibleSpace]", "\<\".\"\>"}],
|
---|
999 | SequenceForm[
|
---|
1000 | 905, " possible non-zero vertices have been found -> starting the \
|
---|
1001 | computation: ",
|
---|
1002 | Dynamic[FeynRules`FR$FeynmanRules], " / ", 905, "."],
|
---|
1003 | Editable->False]], "Print",
|
---|
1004 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1005 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1006 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1007 | 3.91564169186045*^9},
|
---|
1008 | CellLabel->
|
---|
1009 | "During evaluation of \
|
---|
1010 | In[13]:=",ExpressionUUID->"97e2ad9c-326a-4a90-a340-2abb379768a0"],
|
---|
1011 |
|
---|
1012 | Cell[BoxData[
|
---|
1013 | InterpretationBox[
|
---|
1014 | RowBox[{"854", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
|
---|
1015 | SequenceForm[854, " vertices obtained."],
|
---|
1016 | Editable->False]], "Print",
|
---|
1017 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1018 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1019 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1020 | 3.915641714608047*^9},
|
---|
1021 | CellLabel->
|
---|
1022 | "During evaluation of \
|
---|
1023 | In[13]:=",ExpressionUUID->"0ec1c870-7aa6-4d59-a410-f3b1fba4c5e5"],
|
---|
1024 |
|
---|
1025 | Cell[BoxData[
|
---|
1026 | InterpretationBox[
|
---|
1027 | RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
|
---|
1028 | "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" cores: \"\>",
|
---|
1029 | "\[InvisibleSpace]",
|
---|
1030 | DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
|
---|
1031 | ImageSizeCache->{148., {3., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
1032 | "\[InvisibleSpace]", "854"}],
|
---|
1033 | SequenceForm[
|
---|
1034 | "Flavor expansion of the vertices distributed over ", 12, " cores: ",
|
---|
1035 | Dynamic[FeynRules`FR$Count1], " / ", 854],
|
---|
1036 | Editable->False]], "Print",
|
---|
1037 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1038 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1039 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1040 | 3.915641722374485*^9},
|
---|
1041 | CellLabel->
|
---|
1042 | "During evaluation of \
|
---|
1043 | In[13]:=",ExpressionUUID->"e5939aa8-5257-4f7f-89f6-753da63df342"],
|
---|
1044 |
|
---|
1045 | Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
|
---|
1046 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1047 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1048 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1049 | 3.915641732090476*^9},
|
---|
1050 | CellLabel->
|
---|
1051 | "During evaluation of \
|
---|
1052 | In[13]:=",ExpressionUUID->"52b8f533-f01a-4b0f-a42a-f2220c9ccab4"],
|
---|
1053 |
|
---|
1054 | Cell[BoxData[
|
---|
1055 | StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
|
---|
1056 | decays: \"\>",
|
---|
1057 | StripOnInput->False,
|
---|
1058 | LineColor->RGBColor[1, 0.5, 0],
|
---|
1059 | FrontFaceColor->RGBColor[1, 0.5, 0],
|
---|
1060 | BackFaceColor->RGBColor[1, 0.5, 0],
|
---|
1061 | GraphicsColor->RGBColor[1, 0.5, 0],
|
---|
1062 | FontWeight->Bold,
|
---|
1063 | FontColor->RGBColor[1, 0.5, 0]]], "Print",
|
---|
1064 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1065 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1066 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1067 | 3.915641732123837*^9},
|
---|
1068 | CellLabel->
|
---|
1069 | "During evaluation of \
|
---|
1070 | In[13]:=",ExpressionUUID->"1f6af9d8-9211-431a-98b8-086ca423bd58"],
|
---|
1071 |
|
---|
1072 | Cell[BoxData[
|
---|
1073 | InterpretationBox[
|
---|
1074 | RowBox[{
|
---|
1075 | DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
|
---|
1076 | ImageSizeCache->{133., {3., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
1077 | "\[InvisibleSpace]", "212"}],
|
---|
1078 | SequenceForm[
|
---|
1079 | Dynamic[PRIVATE`mycounter], " / ", 212],
|
---|
1080 | Editable->False]], "Print",
|
---|
1081 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1082 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1083 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1084 | 3.915641732147189*^9},
|
---|
1085 | CellLabel->
|
---|
1086 | "During evaluation of \
|
---|
1087 | In[13]:=",ExpressionUUID->"a4570cc1-b87d-401e-909a-c1454e8f58e6"],
|
---|
1088 |
|
---|
1089 | Cell[BoxData[
|
---|
1090 | InterpretationBox[
|
---|
1091 | RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
|
---|
1092 | "16.648857`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
|
---|
1093 | SequenceForm["Squared matrix elent compute in ", 16.648857, " seconds."],
|
---|
1094 | Editable->False]], "Print",
|
---|
1095 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1096 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1097 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1098 | 3.915641767896209*^9},
|
---|
1099 | CellLabel->
|
---|
1100 | "During evaluation of \
|
---|
1101 | In[13]:=",ExpressionUUID->"cc54b6aa-15e8-4f66-b4eb-9d0ede4e9975"],
|
---|
1102 |
|
---|
1103 | Cell[BoxData[
|
---|
1104 | InterpretationBox[
|
---|
1105 | RowBox[{
|
---|
1106 | DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
|
---|
1107 | ImageSizeCache->{133., {3., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
1108 | "\[InvisibleSpace]", "251"}],
|
---|
1109 | SequenceForm[
|
---|
1110 | Dynamic[PRIVATE`mycounter], " / ", 251],
|
---|
1111 | Editable->False]], "Print",
|
---|
1112 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1113 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1114 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1115 | 3.91564176789806*^9},
|
---|
1116 | CellLabel->
|
---|
1117 | "During evaluation of \
|
---|
1118 | In[13]:=",ExpressionUUID->"28981911-1ec6-4415-94f4-27a897fb45a3"],
|
---|
1119 |
|
---|
1120 | Cell[BoxData[
|
---|
1121 | InterpretationBox[
|
---|
1122 | RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
|
---|
1123 | "3.613981`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
|
---|
1124 | SequenceForm["Decay widths computed in ", 3.613981, " seconds."],
|
---|
1125 | Editable->False]], "Print",
|
---|
1126 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1127 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1128 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1129 | 3.915641771981142*^9},
|
---|
1130 | CellLabel->
|
---|
1131 | "During evaluation of \
|
---|
1132 | In[13]:=",ExpressionUUID->"65f57f24-0a21-40bf-bb39-f71819e680d8"],
|
---|
1133 |
|
---|
1134 | Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
|
---|
1135 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1136 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1137 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1138 | 3.915641771984147*^9},
|
---|
1139 | CellLabel->
|
---|
1140 | "During evaluation of \
|
---|
1141 | In[13]:=",ExpressionUUID->"bf4f2976-7f54-48cb-8aae-21c1abeb019d"],
|
---|
1142 |
|
---|
1143 | Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
|
---|
1144 | "Print",
|
---|
1145 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1146 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1147 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1148 | 3.9156417723900843`*^9},
|
---|
1149 | CellLabel->
|
---|
1150 | "During evaluation of \
|
---|
1151 | In[13]:=",ExpressionUUID->"81f6af8c-86f3-432a-89ee-4c873af19f70"],
|
---|
1152 |
|
---|
1153 | Cell[BoxData[
|
---|
1154 | InterpretationBox[
|
---|
1155 | RowBox[{"\<\"Splitting of vertices distributed over \"\>",
|
---|
1156 | "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
|
---|
1157 | SequenceForm["Splitting of vertices distributed over ", 12, " kernels."],
|
---|
1158 | Editable->False]], "Print",
|
---|
1159 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1160 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1161 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1162 | 3.9156417724595222`*^9},
|
---|
1163 | CellLabel->
|
---|
1164 | "During evaluation of \
|
---|
1165 | In[13]:=",ExpressionUUID->"eef6cb96-6e36-45eb-8eb2-4cde4d4cc31a"],
|
---|
1166 |
|
---|
1167 | Cell[BoxData[
|
---|
1168 | InterpretationBox[
|
---|
1169 | RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
|
---|
1170 | DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
|
---|
1171 | ImageSizeCache->{226., {3., 10.}}], "\[InvisibleSpace]", "\<\"/\"\>",
|
---|
1172 | "\[InvisibleSpace]", "854", "\[InvisibleSpace]", "\<\" .\"\>"}],
|
---|
1173 | SequenceForm[" - Optimizing: ",
|
---|
1174 | Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 854, " ."],
|
---|
1175 | Editable->False]], "Print",
|
---|
1176 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1177 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1178 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1179 | 3.915641775574494*^9},
|
---|
1180 | CellLabel->
|
---|
1181 | "During evaluation of \
|
---|
1182 | In[13]:=",ExpressionUUID->"d98fb764-508a-454e-8a61-d28a711c67aa"],
|
---|
1183 |
|
---|
1184 | Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
|
---|
1185 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1186 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1187 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1188 | 3.915641775810152*^9},
|
---|
1189 | CellLabel->
|
---|
1190 | "During evaluation of \
|
---|
1191 | In[13]:=",ExpressionUUID->"6804a583-41f6-4740-a9d0-79074bcd0361"],
|
---|
1192 |
|
---|
1193 | Cell[BoxData["\<\"Done!\"\>"], "Print",
|
---|
1194 | CellChangeTimes->{3.912896631091104*^9, 3.913049420600663*^9,
|
---|
1195 | 3.913076759036146*^9, 3.9155626507292023`*^9, 3.915611171200577*^9,
|
---|
1196 | 3.9156205808611097`*^9, 3.915635080681964*^9, 3.91563763953545*^9,
|
---|
1197 | 3.915641776159041*^9},
|
---|
1198 | CellLabel->
|
---|
1199 | "During evaluation of \
|
---|
1200 | In[13]:=",ExpressionUUID->"b8afd9b3-5b0c-43af-894a-0c6efe8e6a15"]
|
---|
1201 | }, Open ]]
|
---|
1202 | }, Open ]]
|
---|
1203 | }, Open ]],
|
---|
1204 |
|
---|
1205 | Cell[CellGroupData[{
|
---|
1206 |
|
---|
1207 | Cell["On-Shell Renormalization with FeynArts", "Section",
|
---|
1208 | CellChangeTimes->{
|
---|
1209 | 3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
|
---|
1210 | 3.59620768137986*^9, 3.596207684212212*^9}, {3.662199318805483*^9,
|
---|
1211 | 3.6621993287719097`*^9}, {3.662216149623213*^9,
|
---|
1212 | 3.662216170908692*^9}},ExpressionUUID->"f35c5a82-2f44-4096-9399-\
|
---|
1213 | e82f5b97ff8d"],
|
---|
1214 |
|
---|
1215 | Cell[CellGroupData[{
|
---|
1216 |
|
---|
1217 | Cell[BoxData[
|
---|
1218 | RowBox[{
|
---|
1219 | RowBox[{"(*", " ",
|
---|
1220 | RowBox[{
|
---|
1221 | "Assumes", " ", "Setup", " ", "from", " ", "above", " ", "was", " ",
|
---|
1222 | "called"}], " ", "*)"}], "\[IndentingNewLine]",
|
---|
1223 | RowBox[{
|
---|
1224 | RowBox[{
|
---|
1225 | RowBox[{"LRen", " ", "=", " ",
|
---|
1226 | RowBox[{"OnShellRenormalization", "[",
|
---|
1227 | RowBox[{"pQCDLag", ",",
|
---|
1228 | RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
|
---|
1229 | RowBox[{"FlavorMixing", "\[Rule]", " ", "False"}], ",",
|
---|
1230 | RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}]}], ";"}],
|
---|
1231 | "\[IndentingNewLine]",
|
---|
1232 | RowBox[{"SetDirectory", "[", "\"\<~/PATH_TO_FA/FeynArts/Models\>\"", "]"}],
|
---|
1233 | "\[IndentingNewLine]",
|
---|
1234 | RowBox[{
|
---|
1235 | RowBox[{"WriteFeynArtsOutput", "[",
|
---|
1236 | RowBox[{"LRen", ",",
|
---|
1237 | RowBox[{"GenericFile", "\[Rule]", "True"}], ",",
|
---|
1238 | RowBox[{"FlavorExpand", "\[Rule]", "True"}], ",",
|
---|
1239 | RowBox[{"Output", "\[Rule]", "\"\<SM_Loop_VPolar_FA\>\""}]}], "]"}],
|
---|
1240 | ";"}]}]}]], "Input",
|
---|
1241 | CellChangeTimes->{{3.9128872437464952`*^9, 3.912887244594708*^9},
|
---|
1242 | 3.913077528037888*^9, {3.913114472993066*^9, 3.9131144851067343`*^9}, {
|
---|
1243 | 3.913114549979589*^9, 3.9131145514739017`*^9}, {3.913116930543614*^9,
|
---|
1244 | 3.91311693520016*^9}, {3.9131552320203667`*^9, 3.913155232435649*^9}, {
|
---|
1245 | 3.915562684131472*^9, 3.915562688109376*^9}, 3.9155627489455547`*^9, {
|
---|
1246 | 3.915635119612056*^9, 3.9156351390117197`*^9}, {3.9157813246718807`*^9,
|
---|
1247 | 3.915781326035039*^9}},ExpressionUUID->"7cbd8e0c-bc17-43d7-8e66-\
|
---|
1248 | 37ef6a194ab6"],
|
---|
1249 |
|
---|
1250 | Cell[CellGroupData[{
|
---|
1251 |
|
---|
1252 | Cell[BoxData["\<\"Putting 4 scalars term aside for the renormalization\"\>"], \
|
---|
1253 | "Print",
|
---|
1254 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1255 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1256 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1257 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1258 | 3.9156376939278708`*^9, 3.9156420030308657`*^9},
|
---|
1259 | CellLabel->
|
---|
1260 | "During evaluation of \
|
---|
1261 | In[9]:=",ExpressionUUID->"5b6159b4-f381-41bd-b30a-89cd3d90b7bc"],
|
---|
1262 |
|
---|
1263 | Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
|
---|
1264 | them\"\>"], "Print",
|
---|
1265 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1266 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1267 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1268 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1269 | 3.9156376939278708`*^9, 3.915642018461681*^9},
|
---|
1270 | CellLabel->
|
---|
1271 | "During evaluation of \
|
---|
1272 | In[9]:=",ExpressionUUID->"ca97e212-f124-4e1e-b63b-d881d74522cc"],
|
---|
1273 |
|
---|
1274 | Cell[BoxData[
|
---|
1275 | InterpretationBox[
|
---|
1276 | RowBox[{"\<\"Neglecting all terms with more than \"\>",
|
---|
1277 | "\[InvisibleSpace]", "\<\"2\"\>",
|
---|
1278 | "\[InvisibleSpace]", "\<\" particles.\"\>"}],
|
---|
1279 | SequenceForm["Neglecting all terms with more than ", "2", " particles."],
|
---|
1280 | Editable->False]], "Print",
|
---|
1281 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1282 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1283 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1284 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1285 | 3.9156376939278708`*^9, 3.915642035193337*^9},
|
---|
1286 | CellLabel->
|
---|
1287 | "During evaluation of \
|
---|
1288 | In[9]:=",ExpressionUUID->"31873469-0cd1-4ff1-81c7-de54dcf5f4da"],
|
---|
1289 |
|
---|
1290 | Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
|
---|
1291 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1292 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1293 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1294 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1295 | 3.9156376939278708`*^9, 3.91564207432592*^9},
|
---|
1296 | CellLabel->
|
---|
1297 | "During evaluation of \
|
---|
1298 | In[9]:=",ExpressionUUID->"975aa446-77d6-4c81-a788-017063a0bc4b"],
|
---|
1299 |
|
---|
1300 | Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
|
---|
1301 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1302 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1303 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1304 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1305 | 3.9156376939278708`*^9, 3.915642074401038*^9},
|
---|
1306 | CellLabel->
|
---|
1307 | "During evaluation of \
|
---|
1308 | In[9]:=",ExpressionUUID->"bea99c55-06e1-42c2-91c2-b03c37c3dcb9"],
|
---|
1309 |
|
---|
1310 | Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
|
---|
1311 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1312 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1313 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1314 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1315 | 3.9156376939278708`*^9, 3.91564207443039*^9},
|
---|
1316 | CellLabel->
|
---|
1317 | "During evaluation of \
|
---|
1318 | In[9]:=",ExpressionUUID->"7c40f2eb-0569-4daf-87df-aa3fad5aafb0"],
|
---|
1319 |
|
---|
1320 | Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
|
---|
1321 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1322 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1323 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1324 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1325 | 3.9156376939278708`*^9, 3.9156420744320908`*^9},
|
---|
1326 | CellLabel->
|
---|
1327 | "During evaluation of \
|
---|
1328 | In[9]:=",ExpressionUUID->"43f041ff-f9ba-4642-980d-7bf422e81a23"],
|
---|
1329 |
|
---|
1330 | Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
|
---|
1331 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1332 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1333 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1334 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1335 | 3.9156376939278708`*^9, 3.91564207443359*^9},
|
---|
1336 | CellLabel->
|
---|
1337 | "During evaluation of \
|
---|
1338 | In[9]:=",ExpressionUUID->"eba24c3e-b0e5-45b1-a978-5c0c2cbae489"],
|
---|
1339 |
|
---|
1340 | Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
|
---|
1341 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1342 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1343 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1344 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1345 | 3.9156376939278708`*^9, 3.915642074435111*^9},
|
---|
1346 | CellLabel->
|
---|
1347 | "During evaluation of \
|
---|
1348 | In[9]:=",ExpressionUUID->"04bbef6d-3e46-4269-8711-1687c1d877c6"],
|
---|
1349 |
|
---|
1350 | Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
|
---|
1351 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1352 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1353 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1354 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1355 | 3.9156376939278708`*^9, 3.915642079701807*^9},
|
---|
1356 | CellLabel->
|
---|
1357 | "During evaluation of \
|
---|
1358 | In[9]:=",ExpressionUUID->"e5be37c2-76ad-4180-9629-22ec9844bc6b"],
|
---|
1359 |
|
---|
1360 | Cell[BoxData["\<\"with the parameters\"\>"], "Print",
|
---|
1361 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1362 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1363 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1364 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1365 | 3.9156376939278708`*^9, 3.915642079772464*^9},
|
---|
1366 | CellLabel->
|
---|
1367 | "During evaluation of \
|
---|
1368 | In[9]:=",ExpressionUUID->"90b9b158-7da5-40a8-b60b-5aa6ed901f8a"],
|
---|
1369 |
|
---|
1370 | Cell[BoxData["\<\"with the fields\"\>"], "Print",
|
---|
1371 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1372 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1373 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1374 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1375 | 3.9156376939278708`*^9, 3.915642080253537*^9},
|
---|
1376 | CellLabel->
|
---|
1377 | "During evaluation of \
|
---|
1378 | In[9]:=",ExpressionUUID->"14e8a0b6-48bc-4d7f-9cda-450def5d7a14"]
|
---|
1379 | }, Open ]],
|
---|
1380 |
|
---|
1381 | Cell[BoxData["\<\"/home/richard/Scripts/FeynArts/FeynArts-3.11/Models\"\>"], \
|
---|
1382 | "Output",
|
---|
1383 | CellChangeTimes->{3.912897021652402*^9, 3.913049699498197*^9,
|
---|
1384 | 3.9130770586807823`*^9, 3.913077729531104*^9, 3.913114626309532*^9,
|
---|
1385 | 3.913117041198494*^9, 3.913155312116624*^9, 3.915562951748036*^9,
|
---|
1386 | 3.915611225887409*^9, 3.91562089128279*^9, 3.915635178328033*^9,
|
---|
1387 | 3.9156377487214727`*^9, 3.915642182748485*^9},
|
---|
1388 | CellLabel->"Out[10]=",ExpressionUUID->"e6f4dcec-627a-4791-a2b8-ea794631e20b"],
|
---|
1389 |
|
---|
1390 | Cell[CellGroupData[{
|
---|
1391 |
|
---|
1392 | Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
|
---|
1393 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1394 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1395 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1396 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1397 | 3.9156376939278708`*^9, 3.915642182749938*^9},
|
---|
1398 | CellLabel->
|
---|
1399 | "During evaluation of \
|
---|
1400 | In[9]:=",ExpressionUUID->"e3c6e209-77b5-4856-a146-ea232ca4f9ae"],
|
---|
1401 |
|
---|
1402 | Cell[BoxData["\<\" C. Degrande C. Duhr, 2013\"\>"], "Print",
|
---|
1403 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1404 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1405 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1406 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1407 | 3.9156376939278708`*^9, 3.915642182751173*^9},
|
---|
1408 | CellLabel->
|
---|
1409 | "During evaluation of \
|
---|
1410 | In[9]:=",ExpressionUUID->"c3832de8-abbc-4504-87a4-75e842b3a737"],
|
---|
1411 |
|
---|
1412 | Cell[BoxData["\<\" Counterterms: B. Fuks, 2012\"\>"], "Print",
|
---|
1413 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1414 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1415 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1416 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1417 | 3.9156376939278708`*^9, 3.9156421827529783`*^9},
|
---|
1418 | CellLabel->
|
---|
1419 | "During evaluation of \
|
---|
1420 | In[9]:=",ExpressionUUID->"9e7b525e-ce3e-4560-9a5c-46ed7267d984"],
|
---|
1421 |
|
---|
1422 | Cell[BoxData[
|
---|
1423 | InterpretationBox[
|
---|
1424 | RowBox[{"\<\"Calculating Feynman rules for \"\>",
|
---|
1425 | "\[InvisibleSpace]", "\<\"L1\"\>"}],
|
---|
1426 | SequenceForm["Calculating Feynman rules for ", "L1"],
|
---|
1427 | Editable->False]], "Print",
|
---|
1428 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1429 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1430 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1431 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1432 | 3.9156376939278708`*^9, 3.915642182754023*^9},
|
---|
1433 | CellLabel->
|
---|
1434 | "During evaluation of \
|
---|
1435 | In[9]:=",ExpressionUUID->"9b75247e-4314-4b9c-a079-5bd085637a38"],
|
---|
1436 |
|
---|
1437 | Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
|
---|
1438 | separate FeynArts class.\"\>"], "Print",
|
---|
1439 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1440 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1441 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1442 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1443 | 3.9156376939278708`*^9, 3.915642182754799*^9},
|
---|
1444 | CellLabel->
|
---|
1445 | "During evaluation of \
|
---|
1446 | In[9]:=",ExpressionUUID->"8f1a12c9-5262-4f2f-9cf1-e806afc5411c"],
|
---|
1447 |
|
---|
1448 | Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
|
---|
1449 | classes\"\>"], "Print",
|
---|
1450 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1451 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1452 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1453 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1454 | 3.9156376939278708`*^9, 3.9156421827554293`*^9},
|
---|
1455 | CellLabel->
|
---|
1456 | "During evaluation of \
|
---|
1457 | In[9]:=",ExpressionUUID->"e3e0cb9f-8637-4114-ade4-21d9e6f0251d"],
|
---|
1458 |
|
---|
1459 | Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
|
---|
1460 | -> True.\"\>"], "Print",
|
---|
1461 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1462 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1463 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1464 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1465 | 3.9156376939278708`*^9, 3.9156421827559834`*^9},
|
---|
1466 | CellLabel->
|
---|
1467 | "During evaluation of \
|
---|
1468 | In[9]:=",ExpressionUUID->"53f9168b-c315-4f00-a198-6af1bc62623e"],
|
---|
1469 |
|
---|
1470 | Cell[BoxData[
|
---|
1471 | InterpretationBox[
|
---|
1472 | RowBox[{"\<\"Calculating Feynman rules for \"\>",
|
---|
1473 | "\[InvisibleSpace]", "\<\"L1\"\>"}],
|
---|
1474 | SequenceForm["Calculating Feynman rules for ", "L1"],
|
---|
1475 | Editable->False]], "Print",
|
---|
1476 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1477 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1478 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1479 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1480 | 3.9156376939278708`*^9, 3.915642182756537*^9},
|
---|
1481 | CellLabel->
|
---|
1482 | "During evaluation of \
|
---|
1483 | In[9]:=",ExpressionUUID->"f54ab376-94c2-44c6-91cd-8d2d807f94e7"],
|
---|
1484 |
|
---|
1485 | Cell[BoxData[
|
---|
1486 | StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
|
---|
1487 | StripOnInput->False,
|
---|
1488 | LineColor->RGBColor[1, 0.5, 0],
|
---|
1489 | FrontFaceColor->RGBColor[1, 0.5, 0],
|
---|
1490 | BackFaceColor->RGBColor[1, 0.5, 0],
|
---|
1491 | GraphicsColor->RGBColor[1, 0.5, 0],
|
---|
1492 | FontWeight->Bold,
|
---|
1493 | FontColor->RGBColor[1, 0.5, 0]]], "Print",
|
---|
1494 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1495 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1496 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1497 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1498 | 3.9156376939278708`*^9, 3.915642197139433*^9},
|
---|
1499 | CellLabel->
|
---|
1500 | "During evaluation of \
|
---|
1501 | In[9]:=",ExpressionUUID->"ab79dc8b-d087-4afd-99fb-3a0c8f323b8c"],
|
---|
1502 |
|
---|
1503 | Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
|
---|
1504 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1505 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1506 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1507 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1508 | 3.9156376939278708`*^9, 3.915642197141691*^9},
|
---|
1509 | CellLabel->
|
---|
1510 | "During evaluation of \
|
---|
1511 | In[9]:=",ExpressionUUID->"c02edd39-daa4-4437-afc5-7c1567db73b0"],
|
---|
1512 |
|
---|
1513 | Cell[BoxData[
|
---|
1514 | InterpretationBox[
|
---|
1515 | RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "12",
|
---|
1516 | "\[InvisibleSpace]", "\<\" cores\"\>"}],
|
---|
1517 | SequenceForm["Expanding the indices over ", 12, " cores"],
|
---|
1518 | Editable->False]], "Print",
|
---|
1519 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1520 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1521 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1522 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1523 | 3.9156376939278708`*^9, 3.9156421971432323`*^9},
|
---|
1524 | CellLabel->
|
---|
1525 | "During evaluation of \
|
---|
1526 | In[9]:=",ExpressionUUID->"ba3edf86-3dbe-4f40-968e-cf31bb48fc09"],
|
---|
1527 |
|
---|
1528 | Cell[BoxData["\<\"Collecting the different structures that enter the \
|
---|
1529 | vertex.\"\>"], "Print",
|
---|
1530 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1531 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1532 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1533 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1534 | 3.9156376939278708`*^9, 3.91564226737033*^9},
|
---|
1535 | CellLabel->
|
---|
1536 | "During evaluation of \
|
---|
1537 | In[9]:=",ExpressionUUID->"820a8c6f-9c98-4824-95f0-711c58eecf8f"],
|
---|
1538 |
|
---|
1539 | Cell[BoxData[
|
---|
1540 | InterpretationBox[
|
---|
1541 | RowBox[{
|
---|
1542 | "965", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
|
---|
1543 | found -> starting the computation: \"\>", "\[InvisibleSpace]",
|
---|
1544 | DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
|
---|
1545 | ImageSizeCache->{195., {3., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
1546 | "\[InvisibleSpace]", "965", "\[InvisibleSpace]", "\<\".\"\>"}],
|
---|
1547 | SequenceForm[
|
---|
1548 | 965, " possible non-zero vertices have been found -> starting the \
|
---|
1549 | computation: ",
|
---|
1550 | Dynamic[FeynRules`FR$FeynmanRules], " / ", 965, "."],
|
---|
1551 | Editable->False]], "Print",
|
---|
1552 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1553 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1554 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1555 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1556 | 3.9156376939278708`*^9, 3.915642268643848*^9},
|
---|
1557 | CellLabel->
|
---|
1558 | "During evaluation of \
|
---|
1559 | In[9]:=",ExpressionUUID->"f733662c-9fc6-43b8-8757-63c0334cfce6"],
|
---|
1560 |
|
---|
1561 | Cell[BoxData[
|
---|
1562 | InterpretationBox[
|
---|
1563 | RowBox[{"914", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
|
---|
1564 | SequenceForm[914, " vertices obtained."],
|
---|
1565 | Editable->False]], "Print",
|
---|
1566 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1567 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1568 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1569 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1570 | 3.9156376939278708`*^9, 3.9156423246687937`*^9},
|
---|
1571 | CellLabel->
|
---|
1572 | "During evaluation of \
|
---|
1573 | In[9]:=",ExpressionUUID->"2f71070c-112e-4871-9dbc-ec23807c6165"],
|
---|
1574 |
|
---|
1575 | Cell[BoxData[
|
---|
1576 | InterpretationBox[
|
---|
1577 | RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
|
---|
1578 | "\[InvisibleSpace]", "\<\"SM_Loop_VPolar_FA\"\>"}],
|
---|
1579 | SequenceForm[
|
---|
1580 | "Writing FeynArts model file into directory ", "SM_Loop_VPolar_FA"],
|
---|
1581 | Editable->False]], "Print",
|
---|
1582 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1583 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1584 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1585 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1586 | 3.9156376939278708`*^9, 3.9156423460778217`*^9},
|
---|
1587 | CellLabel->
|
---|
1588 | "During evaluation of \
|
---|
1589 | In[9]:=",ExpressionUUID->"7879c64d-b027-46de-a3be-77a3900cf496"],
|
---|
1590 |
|
---|
1591 | Cell[BoxData[
|
---|
1592 | InterpretationBox[
|
---|
1593 | RowBox[{"\<\"Writing FeynArts generic file on \"\>",
|
---|
1594 | "\[InvisibleSpace]", "\<\"SM_Loop_VPolar_FA.gen\"\>",
|
---|
1595 | "\[InvisibleSpace]", "\<\".\"\>"}],
|
---|
1596 | SequenceForm[
|
---|
1597 | "Writing FeynArts generic file on ", "SM_Loop_VPolar_FA.gen", "."],
|
---|
1598 | Editable->False]], "Print",
|
---|
1599 | CellChangeTimes->{3.912896861934539*^9, 3.913049522092771*^9,
|
---|
1600 | 3.913076865250711*^9, 3.913077555623789*^9, 3.913114567177339*^9,
|
---|
1601 | 3.913116952704258*^9, 3.913155248838007*^9, 3.915562767758401*^9,
|
---|
1602 | 3.9156111951113157`*^9, 3.915620698068378*^9, 3.915635140786703*^9,
|
---|
1603 | 3.9156376939278708`*^9, 3.9156423461429768`*^9},
|
---|
1604 | CellLabel->
|
---|
1605 | "During evaluation of \
|
---|
1606 | In[9]:=",ExpressionUUID->"4a2e0dda-88c3-4896-95db-93dd22884907"]
|
---|
1607 | }, Open ]]
|
---|
1608 | }, Open ]]
|
---|
1609 | }, Open ]],
|
---|
1610 |
|
---|
1611 | Cell[CellGroupData[{
|
---|
1612 |
|
---|
1613 | Cell["Write Counter Terms to BSM.nlo", "Section",
|
---|
1614 | CellChangeTimes->{
|
---|
1615 | 3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
|
---|
1616 | 3.59620768137986*^9, 3.596207684212212*^9}, {3.662199461128889*^9,
|
---|
1617 | 3.662199467953211*^9}, {3.662216541485611*^9,
|
---|
1618 | 3.662216544705964*^9}},ExpressionUUID->"637e3231-e751-489a-ad59-\
|
---|
1619 | 470d98c11b8b"],
|
---|
1620 |
|
---|
1621 | Cell[BoxData[
|
---|
1622 | RowBox[{"(*", " ",
|
---|
1623 | RowBox[{"quit", " ", "kernel", " ", "before", " ", "continuing"}], " ",
|
---|
1624 | "*)"}]], "Input",
|
---|
1625 | CellChangeTimes->{{3.664866502336069*^9,
|
---|
1626 | 3.664866536918194*^9}},ExpressionUUID->"558b9e27-1057-416f-a429-\
|
---|
1627 | 231889bb6a86"],
|
---|
1628 |
|
---|
1629 | Cell[BoxData[
|
---|
1630 | RowBox[{
|
---|
1631 | RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
|
---|
1632 | CellLabel->"In[1]:=",ExpressionUUID->"3640fc82-001c-4a97-8551-70d99a9b683d"],
|
---|
1633 |
|
---|
1634 | Cell[BoxData[
|
---|
1635 | RowBox[{
|
---|
1636 | RowBox[{"ClearSystemCache", "[", "]"}], ";"}]], "Input",
|
---|
1637 | CellChangeTimes->{{3.915649171552142*^9, 3.915649172574946*^9},
|
---|
1638 | 3.91564925064156*^9},
|
---|
1639 | CellLabel->"In[3]:=",ExpressionUUID->"8cd0fa8f-7c3a-4d14-8360-24f7398e3040"],
|
---|
1640 |
|
---|
1641 | Cell[CellGroupData[{
|
---|
1642 |
|
---|
1643 | Cell[BoxData[{
|
---|
1644 | RowBox[{
|
---|
1645 | RowBox[{"SetDirectory", "[", "\"\<~/PATH_TO_FA/FeynArts/\>\"", "]"}],
|
---|
1646 | ";"}], "\[IndentingNewLine]",
|
---|
1647 | RowBox[{"<<", "FeynArts`"}], "\[IndentingNewLine]",
|
---|
1648 | RowBox[{
|
---|
1649 | RowBox[{"SetDirectory", "[", "\"\<~/PATH_TO_FR/FeynRules\>\"", "]"}],
|
---|
1650 | ";"}], "\[IndentingNewLine]",
|
---|
1651 | RowBox[{"<<", "NLOCT`"}], "\[IndentingNewLine]",
|
---|
1652 | RowBox[{
|
---|
1653 | RowBox[{"$CurrentPath", "=",
|
---|
1654 | RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
|
---|
1655 | RowBox[{
|
---|
1656 | RowBox[{"SetDirectory", "[", "$CurrentPath", "]"}], ";"}]}], "Input",
|
---|
1657 | CellChangeTimes->{{3.6605244352671556`*^9, 3.660524496529204*^9}, {
|
---|
1658 | 3.660524555733032*^9, 3.660524556119355*^9}, 3.660528429455056*^9, {
|
---|
1659 | 3.6605286020387897`*^9, 3.660528602100609*^9}, {3.660530319063929*^9,
|
---|
1660 | 3.660530319160571*^9}, {3.660530366154963*^9, 3.66053037265125*^9}, {
|
---|
1661 | 3.660567620251087*^9, 3.6605676243565598`*^9}, {3.660568912072307*^9,
|
---|
1662 | 3.660568912133321*^9}, {3.66056999189439*^9, 3.660569993076742*^9}, {
|
---|
1663 | 3.660570552697504*^9, 3.660570554442918*^9}, {3.6605786705389338`*^9,
|
---|
1664 | 3.660578696714662*^9}, {3.660579471210005*^9, 3.660579471258161*^9}, {
|
---|
1665 | 3.660579558812049*^9, 3.6605795588460417`*^9}, {3.6605809812710743`*^9,
|
---|
1666 | 3.660580981737924*^9}, {3.662198567340746*^9, 3.662198568029338*^9}, {
|
---|
1667 | 3.664866430517086*^9, 3.664866431258605*^9}, {3.664866469872073*^9,
|
---|
1668 | 3.664866472738167*^9}, {3.730294872498015*^9, 3.730294872583467*^9}, {
|
---|
1669 | 3.8616849017841673`*^9, 3.8616849546276712`*^9}, 3.8616851893112297`*^9, {
|
---|
1670 | 3.912887236597804*^9, 3.9128872375559483`*^9}, {3.9157813348246317`*^9,
|
---|
1671 | 3.9157813408718576`*^9}},ExpressionUUID->"cb2da490-5600-44da-b7e4-\
|
---|
1672 | f7f288533aed"],
|
---|
1673 |
|
---|
1674 | Cell[CellGroupData[{
|
---|
1675 |
|
---|
1676 | Cell[BoxData["\<\"\"\>"], "Print",
|
---|
1677 | CellChangeTimes->{
|
---|
1678 | 3.7302958286839*^9, 3.7303048523578568`*^9, 3.861684961711014*^9,
|
---|
1679 | 3.861685205694721*^9, {3.861685722885729*^9, 3.861685746318432*^9},
|
---|
1680 | 3.861686024867342*^9, 3.861701403198098*^9, 3.8618945358347683`*^9,
|
---|
1681 | 3.912897312692958*^9, 3.913077972152131*^9, 3.913117655170566*^9,
|
---|
1682 | 3.913155479462757*^9, 3.915563452632976*^9, 3.9155791432897367`*^9,
|
---|
1683 | 3.9156112772983313`*^9, 3.9156224983904133`*^9, 3.915635431084176*^9,
|
---|
1684 | 3.915637851096553*^9, 3.915642371963913*^9},
|
---|
1685 | CellLabel->
|
---|
1686 | "During evaluation of \
|
---|
1687 | In[1]:=",ExpressionUUID->"e62cc9c4-ad75-44ca-a619-52d7b35ad15b"],
|
---|
1688 |
|
---|
1689 | Cell[BoxData["\<\"FeynArts 3.11 (3 Aug 2020)\"\>"], "Print",
|
---|
1690 | CellChangeTimes->{
|
---|
1691 | 3.7302958286839*^9, 3.7303048523578568`*^9, 3.861684961711014*^9,
|
---|
1692 | 3.861685205694721*^9, {3.861685722885729*^9, 3.861685746318432*^9},
|
---|
1693 | 3.861686024867342*^9, 3.861701403198098*^9, 3.8618945358347683`*^9,
|
---|
1694 | 3.912897312692958*^9, 3.913077972152131*^9, 3.913117655170566*^9,
|
---|
1695 | 3.913155479462757*^9, 3.915563452632976*^9, 3.9155791432897367`*^9,
|
---|
1696 | 3.9156112772983313`*^9, 3.9156224983904133`*^9, 3.915635431084176*^9,
|
---|
1697 | 3.915637851096553*^9, 3.9156423719661427`*^9},
|
---|
1698 | CellLabel->
|
---|
1699 | "During evaluation of \
|
---|
1700 | In[1]:=",ExpressionUUID->"8da2cdc6-9c7e-4bb9-9a82-0eda13c9b053"],
|
---|
1701 |
|
---|
1702 | Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
|
---|
1703 | CellChangeTimes->{
|
---|
1704 | 3.7302958286839*^9, 3.7303048523578568`*^9, 3.861684961711014*^9,
|
---|
1705 | 3.861685205694721*^9, {3.861685722885729*^9, 3.861685746318432*^9},
|
---|
1706 | 3.861686024867342*^9, 3.861701403198098*^9, 3.8618945358347683`*^9,
|
---|
1707 | 3.912897312692958*^9, 3.913077972152131*^9, 3.913117655170566*^9,
|
---|
1708 | 3.913155479462757*^9, 3.915563452632976*^9, 3.9155791432897367`*^9,
|
---|
1709 | 3.9156112772983313`*^9, 3.9156224983904133`*^9, 3.915635431084176*^9,
|
---|
1710 | 3.915637851096553*^9, 3.9156423719673023`*^9},
|
---|
1711 | CellLabel->
|
---|
1712 | "During evaluation of \
|
---|
1713 | In[1]:=",ExpressionUUID->"6206f0d6-8896-42d9-ad05-b526dd6abcfc"],
|
---|
1714 |
|
---|
1715 | Cell[BoxData["\<\" - NLOCT - \"\>"], "Print",
|
---|
1716 | CellChangeTimes->{
|
---|
1717 | 3.7302958286839*^9, 3.7303048523578568`*^9, 3.861684961711014*^9,
|
---|
1718 | 3.861685205694721*^9, {3.861685722885729*^9, 3.861685746318432*^9},
|
---|
1719 | 3.861686024867342*^9, 3.861701403198098*^9, 3.8618945358347683`*^9,
|
---|
1720 | 3.912897312692958*^9, 3.913077972152131*^9, 3.913117655170566*^9,
|
---|
1721 | 3.913155479462757*^9, 3.915563452632976*^9, 3.9155791432897367`*^9,
|
---|
1722 | 3.9156112772983313`*^9, 3.9156224983904133`*^9, 3.915635431084176*^9,
|
---|
1723 | 3.915637851096553*^9, 3.915642371981483*^9},
|
---|
1724 | CellLabel->
|
---|
1725 | "During evaluation of \
|
---|
1726 | In[1]:=",ExpressionUUID->"73af02ec-1a46-476e-9f8a-c73353c013d6"],
|
---|
1727 |
|
---|
1728 | Cell[BoxData["\<\"Version: 1.02\"\>"], "Print",
|
---|
1729 | CellChangeTimes->{
|
---|
1730 | 3.7302958286839*^9, 3.7303048523578568`*^9, 3.861684961711014*^9,
|
---|
1731 | 3.861685205694721*^9, {3.861685722885729*^9, 3.861685746318432*^9},
|
---|
1732 | 3.861686024867342*^9, 3.861701403198098*^9, 3.8618945358347683`*^9,
|
---|
1733 | 3.912897312692958*^9, 3.913077972152131*^9, 3.913117655170566*^9,
|
---|
1734 | 3.913155479462757*^9, 3.915563452632976*^9, 3.9155791432897367`*^9,
|
---|
1735 | 3.9156112772983313`*^9, 3.9156224983904133`*^9, 3.915635431084176*^9,
|
---|
1736 | 3.915637851096553*^9, 3.915642371983041*^9},
|
---|
1737 | CellLabel->
|
---|
1738 | "During evaluation of \
|
---|
1739 | In[1]:=",ExpressionUUID->"0564d4bf-70b7-4484-b834-6abae6324db2"],
|
---|
1740 |
|
---|
1741 | Cell[BoxData["\<\"Authors: C. Degrande\"\>"], "Print",
|
---|
1742 | CellChangeTimes->{
|
---|
1743 | 3.7302958286839*^9, 3.7303048523578568`*^9, 3.861684961711014*^9,
|
---|
1744 | 3.861685205694721*^9, {3.861685722885729*^9, 3.861685746318432*^9},
|
---|
1745 | 3.861686024867342*^9, 3.861701403198098*^9, 3.8618945358347683`*^9,
|
---|
1746 | 3.912897312692958*^9, 3.913077972152131*^9, 3.913117655170566*^9,
|
---|
1747 | 3.913155479462757*^9, 3.915563452632976*^9, 3.9155791432897367`*^9,
|
---|
1748 | 3.9156112772983313`*^9, 3.9156224983904133`*^9, 3.915635431084176*^9,
|
---|
1749 | 3.915637851096553*^9, 3.915642371983514*^9},
|
---|
1750 | CellLabel->
|
---|
1751 | "During evaluation of \
|
---|
1752 | In[1]:=",ExpressionUUID->"3f0f891c-6191-4ec0-8ca2-5c87ee16d5b1"],
|
---|
1753 |
|
---|
1754 | Cell[BoxData["\<\"Please cite C. Degrande, Comput.Phys.Commun. 197 (2015) \
|
---|
1755 | 239-262\"\>"], "Print",
|
---|
1756 | CellChangeTimes->{
|
---|
1757 | 3.7302958286839*^9, 3.7303048523578568`*^9, 3.861684961711014*^9,
|
---|
1758 | 3.861685205694721*^9, {3.861685722885729*^9, 3.861685746318432*^9},
|
---|
1759 | 3.861686024867342*^9, 3.861701403198098*^9, 3.8618945358347683`*^9,
|
---|
1760 | 3.912897312692958*^9, 3.913077972152131*^9, 3.913117655170566*^9,
|
---|
1761 | 3.913155479462757*^9, 3.915563452632976*^9, 3.9155791432897367`*^9,
|
---|
1762 | 3.9156112772983313`*^9, 3.9156224983904133`*^9, 3.915635431084176*^9,
|
---|
1763 | 3.915637851096553*^9, 3.915642371983943*^9},
|
---|
1764 | CellLabel->
|
---|
1765 | "During evaluation of \
|
---|
1766 | In[1]:=",ExpressionUUID->"019fdb33-bdfc-4379-8523-b7829c46ae07"]
|
---|
1767 | }, Open ]]
|
---|
1768 | }, Open ]],
|
---|
1769 |
|
---|
1770 | Cell[BoxData[
|
---|
1771 | RowBox[{"(*",
|
---|
1772 | RowBox[{
|
---|
1773 | RowBox[{"Note", ":", " ",
|
---|
1774 | RowBox[{"Grab", " ", "some", " ", "coffee"}]}], ";", " ",
|
---|
1775 | RowBox[{"this", " ", "will", " ", "take", " ", "a", " ", "few", " ",
|
---|
1776 | RowBox[{"minutes", ".", " ", "Output"}], " ", "is", " ", "located", " ",
|
---|
1777 | "in", " ", "FeynRules", " ",
|
---|
1778 | RowBox[{"directory", "."}]}]}], "*)"}]], "Input",
|
---|
1779 | CellChangeTimes->{{3.660583519626089*^9,
|
---|
1780 | 3.660583556727778*^9}},ExpressionUUID->"ee8e0629-2939-4697-a0c4-\
|
---|
1781 | dba81be5b6fc"],
|
---|
1782 |
|
---|
1783 | Cell[BoxData[
|
---|
1784 | RowBox[{"WriteCT", "[",
|
---|
1785 | RowBox[{
|
---|
1786 | "\"\<SM_Loop_VPolar_FA/SM_Loop_VPolar_FA\>\"", ",",
|
---|
1787 | "\"\<SM_Loop_VPolar_FA/SM_Loop_VPolar_FA\>\"", ",",
|
---|
1788 | RowBox[{"Output", "\[Rule]", "\"\<SM_Loop_VPolar_FA\>\""}], ",",
|
---|
1789 | "\[IndentingNewLine]",
|
---|
1790 | RowBox[{"ZeroMom", "\[Rule]",
|
---|
1791 | RowBox[{"{",
|
---|
1792 | RowBox[{"{",
|
---|
1793 | RowBox[{"aS", ",",
|
---|
1794 | RowBox[{"{",
|
---|
1795 | RowBox[{
|
---|
1796 | RowBox[{"F", "[", "7", "]"}], ",",
|
---|
1797 | RowBox[{"V", "[", "4", "]"}], ",",
|
---|
1798 | RowBox[{"-",
|
---|
1799 | RowBox[{"F", "[", "7", "]"}]}]}], "}"}]}], "}"}], "}"}]}], ",",
|
---|
1800 | RowBox[{"ComplexMass", "\[Rule]", "False"}], ",", "\[IndentingNewLine]",
|
---|
1801 | RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
|
---|
1802 | RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}]], "Input",
|
---|
1803 | CellChangeTimes->{{3.660577675799324*^9, 3.6605777030824823`*^9}, {
|
---|
1804 | 3.660580587703251*^9, 3.660580590446691*^9}, {3.660580749662204*^9,
|
---|
1805 | 3.6605807699669333`*^9}, {3.660580838061507*^9, 3.660580868074533*^9}, {
|
---|
1806 | 3.660581534014558*^9, 3.660581534403365*^9}, {3.6605816019013977`*^9,
|
---|
1807 | 3.660581602442067*^9}, {3.660582264939988*^9, 3.660582265472268*^9}, {
|
---|
1808 | 3.6605825450914*^9, 3.660582545457938*^9}, {3.660582582287341*^9,
|
---|
1809 | 3.66058260852942*^9}, 3.660583287010807*^9, {3.661385930903625*^9,
|
---|
1810 | 3.661385938127997*^9}, {3.662216217715084*^9, 3.6622162416021957`*^9}, {
|
---|
1811 | 3.6622169226201477`*^9, 3.6622169231786327`*^9}, 3.730295853197522*^9, {
|
---|
1812 | 3.861685084045143*^9, 3.8616851066133547`*^9}, {3.861685142783972*^9,
|
---|
1813 | 3.861685154883861*^9}, {3.861685596217422*^9, 3.861685624525661*^9}, {
|
---|
1814 | 3.861685761077841*^9, 3.861685761643894*^9}, {3.8616858376701307`*^9,
|
---|
1815 | 3.861685861335697*^9}, {3.861685903759907*^9, 3.861685921817471*^9}, {
|
---|
1816 | 3.861701417840008*^9, 3.861701429896585*^9}, {3.91288670319106*^9,
|
---|
1817 | 3.912886723973674*^9}, {3.912886768442192*^9, 3.912886776652598*^9}, {
|
---|
1818 | 3.912887012459882*^9, 3.912887026823209*^9}, {3.915781349012597*^9,
|
---|
1819 | 3.915781349821772*^9}},ExpressionUUID->"b8c64182-c4af-4e41-81a4-\
|
---|
1820 | fbb5588d16ce"]
|
---|
1821 | }, Open ]],
|
---|
1822 |
|
---|
1823 | Cell[CellGroupData[{
|
---|
1824 |
|
---|
1825 | Cell["Load output.nlo and Generate UFO at NLO", "Section",
|
---|
1826 | CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
|
---|
1827 | 3.572348211890565*^9, 3.572348234275403*^9}, {3.596207324453108*^9,
|
---|
1828 | 3.596207326711195*^9}, {3.655036212669145*^9, 3.6550362220422897`*^9}, {
|
---|
1829 | 3.655036282693001*^9, 3.655036287060457*^9}, {3.655037866940884*^9,
|
---|
1830 | 3.6550378926486187`*^9}, {3.660583469669636*^9, 3.6605834886500196`*^9}, {
|
---|
1831 | 3.91288706703934*^9, 3.912887070269107*^9}, {3.915780327054948*^9,
|
---|
1832 | 3.915780327565382*^9}},ExpressionUUID->"493a4b49-0255-47ae-87b0-\
|
---|
1833 | 254220da35ea"],
|
---|
1834 |
|
---|
1835 | Cell[BoxData[
|
---|
1836 | RowBox[{"(*", " ",
|
---|
1837 | RowBox[{"quit", " ", "kernel", " ", "before", " ", "continuing"}], " ",
|
---|
1838 | "*)"}]], "Input",ExpressionUUID->"6c2b66dd-ba7d-4d84-96e6-433ecd080754"],
|
---|
1839 |
|
---|
1840 | Cell[BoxData[
|
---|
1841 | RowBox[{
|
---|
1842 | RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
|
---|
1843 | CellChangeTimes->{{3.660583502811754*^9, 3.6605835046945877`*^9},
|
---|
1844 | 3.66212390294204*^9},
|
---|
1845 | CellLabel->"In[1]:=",ExpressionUUID->"8506311a-f288-4488-903d-47a5940847e6"],
|
---|
1846 |
|
---|
1847 | Cell[CellGroupData[{
|
---|
1848 |
|
---|
1849 | Cell[BoxData[{
|
---|
1850 | RowBox[{
|
---|
1851 | RowBox[{"$CurrentPath", "=",
|
---|
1852 | RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
|
---|
1853 | RowBox[{
|
---|
1854 | RowBox[{"$FeynRulesPath", "=",
|
---|
1855 | RowBox[{"SetDirectory", "[", "\"\<~/PATH_TO_FR/FeynRules\>\"", "]"}]}],
|
---|
1856 | ";"}], "\[IndentingNewLine]",
|
---|
1857 | RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
|
---|
1858 | RowBox[{
|
---|
1859 | RowBox[{"SetDirectory", "[", "$CurrentPath", "]"}], ";"}]}], "Input",
|
---|
1860 | CellChangeTimes->{{3.6648666749712143`*^9, 3.664866676189664*^9},
|
---|
1861 | 3.8616861045287247`*^9,
|
---|
1862 | 3.9157813594855556`*^9},ExpressionUUID->"95f917ed-a9c9-4c6c-b687-\
|
---|
1863 | 25a83f1532e1"],
|
---|
1864 |
|
---|
1865 | Cell[CellGroupData[{
|
---|
1866 |
|
---|
1867 | Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
|
---|
1868 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1869 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1870 | 3.915780330549439*^9},
|
---|
1871 | CellLabel->
|
---|
1872 | "During evaluation of \
|
---|
1873 | In[1]:=",ExpressionUUID->"e36543be-5823-428b-b41c-6eedeed58d2f"],
|
---|
1874 |
|
---|
1875 | Cell[BoxData[
|
---|
1876 | InterpretationBox[
|
---|
1877 | RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.36\"\>",
|
---|
1878 | "\[InvisibleSpace]",
|
---|
1879 | RowBox[{"\<\" (\"\>", " ", "\<\"28 November 2019\"\>"}],
|
---|
1880 | "\[InvisibleSpace]", "\<\").\"\>"}],
|
---|
1881 | SequenceForm["Version: ", "2.3.36", " (" "28 November 2019", ")."],
|
---|
1882 | Editable->False]], "Print",
|
---|
1883 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1884 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1885 | 3.9157803305508327`*^9},
|
---|
1886 | CellLabel->
|
---|
1887 | "During evaluation of \
|
---|
1888 | In[1]:=",ExpressionUUID->"dbb16abb-6b43-4a6a-b9a2-b648908166b9"],
|
---|
1889 |
|
---|
1890 | Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
|
---|
1891 | B. Fuks\"\>"], "Print",
|
---|
1892 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1893 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1894 | 3.9157803305519657`*^9},
|
---|
1895 | CellLabel->
|
---|
1896 | "During evaluation of \
|
---|
1897 | In[1]:=",ExpressionUUID->"5f213e0e-4867-4c37-8ae7-8286e78c2e7b"],
|
---|
1898 |
|
---|
1899 | Cell[BoxData["\<\" \"\>"], "Print",
|
---|
1900 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1901 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1902 | 3.91578033055254*^9},
|
---|
1903 | CellLabel->
|
---|
1904 | "During evaluation of \
|
---|
1905 | In[1]:=",ExpressionUUID->"46bf34cf-7f2f-4510-972d-c7168e15889d"],
|
---|
1906 |
|
---|
1907 | Cell[BoxData["\<\"Please cite:\"\>"], "Print",
|
---|
1908 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1909 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1910 | 3.91578033055295*^9},
|
---|
1911 | CellLabel->
|
---|
1912 | "During evaluation of \
|
---|
1913 | In[1]:=",ExpressionUUID->"33e8c91c-ca7e-40d7-9a32-4ef06906a279"],
|
---|
1914 |
|
---|
1915 | Cell[BoxData["\<\" - Comput.Phys.Commun.185:2250-2300,2014 \
|
---|
1916 | (arXiv:1310.1921);\"\>"], "Print",
|
---|
1917 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1918 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1919 | 3.91578033055337*^9},
|
---|
1920 | CellLabel->
|
---|
1921 | "During evaluation of \
|
---|
1922 | In[1]:=",ExpressionUUID->"38a78a0f-77ad-41d1-8208-33f8ee4a51ea"],
|
---|
1923 |
|
---|
1924 | Cell[BoxData["\<\" - Comput.Phys.Commun.180:1614-1641,2009 \
|
---|
1925 | (arXiv:0806.4194).\"\>"], "Print",
|
---|
1926 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1927 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1928 | 3.915780330553811*^9},
|
---|
1929 | CellLabel->
|
---|
1930 | "During evaluation of \
|
---|
1931 | In[1]:=",ExpressionUUID->"ee9f3c13-9b33-4056-a800-fee9f6d9fe6d"],
|
---|
1932 |
|
---|
1933 | Cell[BoxData["\<\" \"\>"], "Print",
|
---|
1934 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1935 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1936 | 3.915780330554268*^9},
|
---|
1937 | CellLabel->
|
---|
1938 | "During evaluation of \
|
---|
1939 | In[1]:=",ExpressionUUID->"3d4ff15f-c4d9-4ec9-894d-a474377e4d1f"],
|
---|
1940 |
|
---|
1941 | Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
|
---|
1942 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1943 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1944 | 3.915780330554702*^9},
|
---|
1945 | CellLabel->
|
---|
1946 | "During evaluation of \
|
---|
1947 | In[1]:=",ExpressionUUID->"8b5487bb-01c8-4a5d-84ea-38da227e3452"],
|
---|
1948 |
|
---|
1949 | Cell[BoxData["\<\" \"\>"], "Print",
|
---|
1950 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1951 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1952 | 3.915780330555126*^9},
|
---|
1953 | CellLabel->
|
---|
1954 | "During evaluation of \
|
---|
1955 | In[1]:=",ExpressionUUID->"87ece0a1-34ff-433c-ba90-24fcd76e78b0"],
|
---|
1956 |
|
---|
1957 | Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
|
---|
1958 | FRPalette[].\"\>"], "Print",
|
---|
1959 | CellChangeTimes->{3.912922414485695*^9, 3.915612481603961*^9,
|
---|
1960 | 3.9156168520772533`*^9, 3.915636908936844*^9, 3.9156397070734453`*^9,
|
---|
1961 | 3.9157803305555363`*^9},
|
---|
1962 | CellLabel->
|
---|
1963 | "During evaluation of \
|
---|
1964 | In[1]:=",ExpressionUUID->"95527c63-28e0-4fb9-97ff-52e8dd6e84ed"]
|
---|
1965 | }, Open ]]
|
---|
1966 | }, Open ]],
|
---|
1967 |
|
---|
1968 | Cell[CellGroupData[{
|
---|
1969 |
|
---|
1970 | Cell[BoxData[
|
---|
1971 | RowBox[{
|
---|
1972 | RowBox[{"(*",
|
---|
1973 | RowBox[{
|
---|
1974 | RowBox[{"Choose", " ", "one", " ", "of", " ", "the", " ", "three", " ",
|
---|
1975 | RowBox[{"files", ":", " ", "vpolar"}]}], ",", " ", "wpolar", ",", " ",
|
---|
1976 | "zpolar"}], "*)"}], "\[IndentingNewLine]",
|
---|
1977 | RowBox[{
|
---|
1978 | RowBox[{
|
---|
1979 | RowBox[{"LoadModel", "[", "\"\<sm_loop_vpolar.fr\>\"", "]"}], ";"}],
|
---|
1980 | "\[IndentingNewLine]",
|
---|
1981 | RowBox[{"(*",
|
---|
1982 | RowBox[{
|
---|
1983 | RowBox[{"LoadModel", "[", "\"\<sm_loop_wpolar.fr\>\"", "]"}], ";"}],
|
---|
1984 | "*)"}], "\[IndentingNewLine]",
|
---|
1985 | RowBox[{"(*",
|
---|
1986 | RowBox[{
|
---|
1987 | RowBox[{"LoadModel", "[", "\"\<sm_loop_zpolar.fr\>\"", "]"}], ";"}],
|
---|
1988 | "*)"}], "\[IndentingNewLine]",
|
---|
1989 | RowBox[{
|
---|
1990 | RowBox[{"LoadRestriction", "[",
|
---|
1991 | RowBox[{"\"\<diagonalCKM.rst\>\"", ",", "\"\<massless.rst\>\""}], "]"}],
|
---|
1992 | ";"}], "\[IndentingNewLine]",
|
---|
1993 | RowBox[{
|
---|
1994 | RowBox[{"FeynmanGauge", "=", "True"}], ";"}]}]}]], "Input",
|
---|
1995 | CellChangeTimes->{{3.662827026079749*^9, 3.662827026713024*^9}, {
|
---|
1996 | 3.861686122926333*^9, 3.861686125319552*^9}, {3.9128867873862343`*^9,
|
---|
1997 | 3.9128867874775553`*^9}, {3.915612488541889*^9, 3.915612489748021*^9}, {
|
---|
1998 | 3.9156369139507437`*^9, 3.9156369443099823`*^9}, {3.915639710664559*^9,
|
---|
1999 | 3.915639714319955*^9}, {3.91578031154674*^9, 3.915780318964014*^9}},
|
---|
2000 | CellLabel->"In[5]:=",ExpressionUUID->"39c2e736-287a-43b4-afd0-e71ce7e12993"],
|
---|
2001 |
|
---|
2002 | Cell[CellGroupData[{
|
---|
2003 |
|
---|
2004 | Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
|
---|
2005 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2006 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2007 | 3.915780339805962*^9},
|
---|
2008 | CellLabel->
|
---|
2009 | "During evaluation of \
|
---|
2010 | In[5]:=",ExpressionUUID->"585f21a4-8128-44bf-9e59-abfc8501ad53"],
|
---|
2011 |
|
---|
2012 | Cell[BoxData["\<\"N. Christensen\"\>"], "Print",
|
---|
2013 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2014 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2015 | 3.915780339807617*^9},
|
---|
2016 | CellLabel->
|
---|
2017 | "During evaluation of \
|
---|
2018 | In[5]:=",ExpressionUUID->"e674e443-7214-4665-a75b-02a3186b5607"],
|
---|
2019 |
|
---|
2020 | Cell[BoxData["\<\"C. Duhr\"\>"], "Print",
|
---|
2021 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2022 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2023 | 3.915780339808669*^9},
|
---|
2024 | CellLabel->
|
---|
2025 | "During evaluation of \
|
---|
2026 | In[5]:=",ExpressionUUID->"664b3672-05f4-4e42-bdba-48bcf0440be7"],
|
---|
2027 |
|
---|
2028 | Cell[BoxData["\<\"B. Fuks\"\>"], "Print",
|
---|
2029 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2030 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2031 | 3.915780339809545*^9},
|
---|
2032 | CellLabel->
|
---|
2033 | "During evaluation of \
|
---|
2034 | In[5]:=",ExpressionUUID->"f74903a2-db9c-434e-b4c5-922da3dcc226"],
|
---|
2035 |
|
---|
2036 | Cell[BoxData[
|
---|
2037 | InterpretationBox[
|
---|
2038 | RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.4.7\"\>"}],
|
---|
2039 | SequenceForm["Model Version: ", "1.4.7"],
|
---|
2040 | Editable->False]], "Print",
|
---|
2041 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2042 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2043 | 3.915780339810442*^9},
|
---|
2044 | CellLabel->
|
---|
2045 | "During evaluation of \
|
---|
2046 | In[5]:=",ExpressionUUID->"fe48fa8d-f572-4b6a-bde7-ce85b98d81dc"],
|
---|
2047 |
|
---|
2048 | Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be/view/Main/StandardModel\"\>\
|
---|
2049 | "], "Print",
|
---|
2050 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2051 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2052 | 3.91578033981117*^9},
|
---|
2053 | CellLabel->
|
---|
2054 | "During evaluation of \
|
---|
2055 | In[5]:=",ExpressionUUID->"7601425b-f172-4ae9-bbe1-07c81ab2be65"],
|
---|
2056 |
|
---|
2057 | Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
|
---|
2058 | "Print",
|
---|
2059 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2060 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2061 | 3.915780339811607*^9},
|
---|
2062 | CellLabel->
|
---|
2063 | "During evaluation of \
|
---|
2064 | In[5]:=",ExpressionUUID->"4fe3d21a-0e7a-47ad-8509-601afd595984"],
|
---|
2065 |
|
---|
2066 | Cell[BoxData["\<\"\"\>"], "Print",
|
---|
2067 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2068 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2069 | 3.915780339812025*^9},
|
---|
2070 | CellLabel->
|
---|
2071 | "During evaluation of \
|
---|
2072 | In[5]:=",ExpressionUUID->"36439886-e89f-4a0f-9dc2-4281cc88d89f"],
|
---|
2073 |
|
---|
2074 | Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
|
---|
2075 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2076 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2077 | 3.915780339812495*^9},
|
---|
2078 | CellLabel->
|
---|
2079 | "During evaluation of \
|
---|
2080 | In[5]:=",ExpressionUUID->"17973fe0-d374-4c00-80b4-4694e7276ecf"],
|
---|
2081 |
|
---|
2082 | Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
|
---|
2083 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2084 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2085 | 3.91578033986736*^9},
|
---|
2086 | CellLabel->
|
---|
2087 | "During evaluation of \
|
---|
2088 | In[5]:=",ExpressionUUID->"f54b4e4a-37d8-4f0f-8642-b73c622b5138"],
|
---|
2089 |
|
---|
2090 | Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
|
---|
2091 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2092 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2093 | 3.915780339868869*^9},
|
---|
2094 | CellLabel->
|
---|
2095 | "During evaluation of \
|
---|
2096 | In[5]:=",ExpressionUUID->"2acc75db-c3c6-42dd-a25f-e620e78bea99"],
|
---|
2097 |
|
---|
2098 | Cell[BoxData[
|
---|
2099 | InterpretationBox[
|
---|
2100 | RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"Standard Model\"\>",
|
---|
2101 | "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
|
---|
2102 | SequenceForm["\nModel ", "Standard Model", " loaded."],
|
---|
2103 | Editable->False]], "Print",
|
---|
2104 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2105 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2106 | 3.915780339897461*^9},
|
---|
2107 | CellLabel->
|
---|
2108 | "During evaluation of \
|
---|
2109 | In[5]:=",ExpressionUUID->"a79e96e0-8118-43e3-aa2f-32c81efd5e0c"],
|
---|
2110 |
|
---|
2111 | Cell[BoxData[
|
---|
2112 | InterpretationBox[
|
---|
2113 | RowBox[{"\<\"Loading restrictions from \"\>",
|
---|
2114 | "\[InvisibleSpace]", "\<\"diagonalCKM.rst\"\>",
|
---|
2115 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
|
---|
2116 | DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
|
---|
2117 | ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
2118 | "\[InvisibleSpace]", "6"}],
|
---|
2119 | SequenceForm["Loading restrictions from ", "diagonalCKM.rst", " : ",
|
---|
2120 | Dynamic[PRIVATE`FR$restrictionCounter], " / ", 6],
|
---|
2121 | Editable->False]], "Print",
|
---|
2122 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2123 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2124 | 3.915780340286618*^9},
|
---|
2125 | CellLabel->
|
---|
2126 | "During evaluation of \
|
---|
2127 | In[5]:=",ExpressionUUID->"e79e85aa-15d8-4438-b2b9-92b6832813eb"],
|
---|
2128 |
|
---|
2129 | Cell[BoxData[
|
---|
2130 | InterpretationBox[
|
---|
2131 | RowBox[{"\<\"Loading restrictions from \"\>",
|
---|
2132 | "\[InvisibleSpace]", "\<\"massless.rst\"\>",
|
---|
2133 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
|
---|
2134 | DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
|
---|
2135 | ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
2136 | "\[InvisibleSpace]", "24"}],
|
---|
2137 | SequenceForm["Loading restrictions from ", "massless.rst", " : ",
|
---|
2138 | Dynamic[PRIVATE`FR$restrictionCounter], " / ", 24],
|
---|
2139 | Editable->False]], "Print",
|
---|
2140 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2141 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2142 | 3.915780340390904*^9},
|
---|
2143 | CellLabel->
|
---|
2144 | "During evaluation of \
|
---|
2145 | In[5]:=",ExpressionUUID->"9ef0db59-5ae6-4106-bbf7-d05b4bab7d59"],
|
---|
2146 |
|
---|
2147 | Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
|
---|
2148 | CellChangeTimes->{3.9129224199391947`*^9, 3.915612491627448*^9,
|
---|
2149 | 3.915616855869882*^9, 3.9156369505473013`*^9, 3.915639716735722*^9,
|
---|
2150 | 3.915780340467186*^9},
|
---|
2151 | CellLabel->
|
---|
2152 | "During evaluation of \
|
---|
2153 | In[5]:=",ExpressionUUID->"2a55decb-75a9-4581-8133-886f8866bd66"]
|
---|
2154 | }, Open ]]
|
---|
2155 | }, Open ]],
|
---|
2156 |
|
---|
2157 | Cell[BoxData[{
|
---|
2158 | RowBox[{
|
---|
2159 | RowBox[{"Get", "[", "\"\<./vpolar_lagrangian.dat\>\"", "]"}],
|
---|
2160 | ";"}], "\[IndentingNewLine]",
|
---|
2161 | RowBox[{
|
---|
2162 | RowBox[{"Get", "[", "\"\<./SM_Loop_VPolar_FA.nlo\>\"", "]"}],
|
---|
2163 | ";"}]}], "Input",
|
---|
2164 | CellChangeTimes->{{3.91561680774023*^9, 3.9156168271911297`*^9}, {
|
---|
2165 | 3.915616866697307*^9, 3.915616871542939*^9}},
|
---|
2166 | CellLabel->"In[8]:=",ExpressionUUID->"f55940db-4e54-4f2a-9fd0-4dc2a8718cd0"],
|
---|
2167 |
|
---|
2168 | Cell[CellGroupData[{
|
---|
2169 |
|
---|
2170 | Cell[BoxData[{
|
---|
2171 | RowBox[{
|
---|
2172 | RowBox[{
|
---|
2173 | RowBox[{"WriteUFO", "[",
|
---|
2174 | RowBox[{"pQCDLag", ",",
|
---|
2175 | RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",",
|
---|
2176 | RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", " ",
|
---|
2177 | RowBox[{"Output", "\[Rule]", "\"\<SM_Loop_VPolar\>\""}]}], "]"}], ";"}],
|
---|
2178 | "\[IndentingNewLine]",
|
---|
2179 | RowBox[{"(*",
|
---|
2180 | RowBox[{
|
---|
2181 | RowBox[{"WriteUFO", "[",
|
---|
2182 | RowBox[{"pQCDLag", ",",
|
---|
2183 | RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",",
|
---|
2184 | RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", " ",
|
---|
2185 | RowBox[{"Output", "\[Rule]", "\"\<SM_Loop_WPolar\>\""}]}], "]"}], ";"}],
|
---|
2186 | "*)"}]}], "\[IndentingNewLine]",
|
---|
2187 | RowBox[{
|
---|
2188 | RowBox[{"(*",
|
---|
2189 | RowBox[{
|
---|
2190 | RowBox[{"WriteUFO", "[",
|
---|
2191 | RowBox[{"pQCDLag", ",",
|
---|
2192 | RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",",
|
---|
2193 | RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", " ",
|
---|
2194 | RowBox[{"Output", "\[Rule]", "\"\<SM_Loop_ZPolar\>\""}]}], "]"}], ";"}],
|
---|
2195 | "*)"}]}]}], "Input",
|
---|
2196 | CellChangeTimes->{{3.861686244381927*^9, 3.861686244911277*^9}, {
|
---|
2197 | 3.861688148714806*^9, 3.861688150197706*^9}, {3.912886676141691*^9,
|
---|
2198 | 3.912886678153192*^9}, {3.912887046708946*^9, 3.912887047019154*^9},
|
---|
2199 | 3.91292245415985*^9, {3.915616718889497*^9, 3.915616789175929*^9}, {
|
---|
2200 | 3.915616865158184*^9, 3.9156168879268217`*^9}, {3.91563695935815*^9,
|
---|
2201 | 3.915636986573348*^9}, {3.915637329236565*^9, 3.9156373340580072`*^9}, {
|
---|
2202 | 3.9156397230681887`*^9, 3.915639729367779*^9}, {3.915780356261959*^9,
|
---|
2203 | 3.915780362681622*^9}},
|
---|
2204 | CellLabel->"In[10]:=",ExpressionUUID->"da29c21e-5dc7-4f3b-a841-0fec4b834793"],
|
---|
2205 |
|
---|
2206 | Cell[CellGroupData[{
|
---|
2207 |
|
---|
2208 | Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
|
---|
2209 | "Print",
|
---|
2210 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2211 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2212 | 3.9157803740881233`*^9},
|
---|
2213 | CellLabel->
|
---|
2214 | "During evaluation of \
|
---|
2215 | In[10]:=",ExpressionUUID->"8e37f643-11b0-4ce7-bcb6-c433185f7974"],
|
---|
2216 |
|
---|
2217 | Cell[BoxData[
|
---|
2218 | StyleBox["\<\"Starting Feynman rule calculation.\"\>",
|
---|
2219 | StripOnInput->False,
|
---|
2220 | LineColor->RGBColor[1, 0.5, 0],
|
---|
2221 | FrontFaceColor->RGBColor[1, 0.5, 0],
|
---|
2222 | BackFaceColor->RGBColor[1, 0.5, 0],
|
---|
2223 | GraphicsColor->RGBColor[1, 0.5, 0],
|
---|
2224 | FontWeight->Bold,
|
---|
2225 | FontColor->RGBColor[1, 0.5, 0]]], "Print",
|
---|
2226 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2227 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2228 | 3.91578037507194*^9},
|
---|
2229 | CellLabel->
|
---|
2230 | "During evaluation of \
|
---|
2231 | In[10]:=",ExpressionUUID->"92d0f0c3-6a84-44be-aa84-cf6663b1943d"],
|
---|
2232 |
|
---|
2233 | Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
|
---|
2234 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2235 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2236 | 3.915780375073683*^9},
|
---|
2237 | CellLabel->
|
---|
2238 | "During evaluation of \
|
---|
2239 | In[10]:=",ExpressionUUID->"72e51ba8-bd1f-48ac-809f-a0f9cc025f4c"],
|
---|
2240 |
|
---|
2241 | Cell[BoxData[
|
---|
2242 | InterpretationBox[
|
---|
2243 | RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "12",
|
---|
2244 | "\[InvisibleSpace]", "\<\" cores\"\>"}],
|
---|
2245 | SequenceForm["Expanding the indices over ", 12, " cores"],
|
---|
2246 | Editable->False]], "Print",
|
---|
2247 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2248 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2249 | 3.915780375074884*^9},
|
---|
2250 | CellLabel->
|
---|
2251 | "During evaluation of \
|
---|
2252 | In[10]:=",ExpressionUUID->"4b8aa456-b2bc-4269-803b-1255eaf90443"],
|
---|
2253 |
|
---|
2254 | Cell[BoxData["\<\"Collecting the different structures that enter the \
|
---|
2255 | vertex.\"\>"], "Print",
|
---|
2256 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2257 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2258 | 3.915780398802265*^9},
|
---|
2259 | CellLabel->
|
---|
2260 | "During evaluation of \
|
---|
2261 | In[10]:=",ExpressionUUID->"33d75e7a-3afe-4b25-ab15-5cf958e72225"],
|
---|
2262 |
|
---|
2263 | Cell[BoxData[
|
---|
2264 | InterpretationBox[
|
---|
2265 | RowBox[{
|
---|
2266 | "905", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
|
---|
2267 | found -> starting the computation: \"\>", "\[InvisibleSpace]",
|
---|
2268 | DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
|
---|
2269 | ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
2270 | "\[InvisibleSpace]", "905", "\[InvisibleSpace]", "\<\".\"\>"}],
|
---|
2271 | SequenceForm[
|
---|
2272 | 905, " possible non-zero vertices have been found -> starting the \
|
---|
2273 | computation: ",
|
---|
2274 | Dynamic[FeynRules`FR$FeynmanRules], " / ", 905, "."],
|
---|
2275 | Editable->False]], "Print",
|
---|
2276 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2277 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2278 | 3.9157803992072887`*^9},
|
---|
2279 | CellLabel->
|
---|
2280 | "During evaluation of \
|
---|
2281 | In[10]:=",ExpressionUUID->"fbe494a4-6a0c-46fc-adff-5d9b13b1e947"],
|
---|
2282 |
|
---|
2283 | Cell[BoxData[
|
---|
2284 | InterpretationBox[
|
---|
2285 | RowBox[{"854", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
|
---|
2286 | SequenceForm[854, " vertices obtained."],
|
---|
2287 | Editable->False]], "Print",
|
---|
2288 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2289 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2290 | 3.915780417081214*^9},
|
---|
2291 | CellLabel->
|
---|
2292 | "During evaluation of \
|
---|
2293 | In[10]:=",ExpressionUUID->"4be3ff7d-7ebf-4b25-8dcd-ed8945b2ddea"],
|
---|
2294 |
|
---|
2295 | Cell[BoxData[
|
---|
2296 | InterpretationBox[
|
---|
2297 | RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
|
---|
2298 | "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" cores: \"\>",
|
---|
2299 | "\[InvisibleSpace]",
|
---|
2300 | DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
|
---|
2301 | ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
2302 | "\[InvisibleSpace]", "901"}],
|
---|
2303 | SequenceForm[
|
---|
2304 | "Flavor expansion of the vertices distributed over ", 12, " cores: ",
|
---|
2305 | Dynamic[FeynRules`FR$Count1], " / ", 901],
|
---|
2306 | Editable->False]], "Print",
|
---|
2307 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2308 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2309 | 3.915780427820963*^9},
|
---|
2310 | CellLabel->
|
---|
2311 | "During evaluation of \
|
---|
2312 | In[10]:=",ExpressionUUID->"ef1a334d-209b-4932-8265-5eba5aa804bd"],
|
---|
2313 |
|
---|
2314 | Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
|
---|
2315 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2316 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2317 | 3.91578044201628*^9},
|
---|
2318 | CellLabel->
|
---|
2319 | "During evaluation of \
|
---|
2320 | In[10]:=",ExpressionUUID->"d762e2cf-e8eb-4f79-819b-923aa0e1dc1c"],
|
---|
2321 |
|
---|
2322 | Cell[BoxData[
|
---|
2323 | StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
|
---|
2324 | decays: \"\>",
|
---|
2325 | StripOnInput->False,
|
---|
2326 | LineColor->RGBColor[1, 0.5, 0],
|
---|
2327 | FrontFaceColor->RGBColor[1, 0.5, 0],
|
---|
2328 | BackFaceColor->RGBColor[1, 0.5, 0],
|
---|
2329 | GraphicsColor->RGBColor[1, 0.5, 0],
|
---|
2330 | FontWeight->Bold,
|
---|
2331 | FontColor->RGBColor[1, 0.5, 0]]], "Print",
|
---|
2332 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2333 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2334 | 3.915780442395994*^9},
|
---|
2335 | CellLabel->
|
---|
2336 | "During evaluation of \
|
---|
2337 | In[10]:=",ExpressionUUID->"8b9f5361-35aa-4f71-bbe4-4e0536b292ec"],
|
---|
2338 |
|
---|
2339 | Cell[BoxData[
|
---|
2340 | InterpretationBox[
|
---|
2341 | RowBox[{
|
---|
2342 | DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
|
---|
2343 | ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
2344 | "\[InvisibleSpace]", "213"}],
|
---|
2345 | SequenceForm[
|
---|
2346 | Dynamic[PRIVATE`mycounter], " / ", 213],
|
---|
2347 | Editable->False]], "Print",
|
---|
2348 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2349 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2350 | 3.915780442419632*^9},
|
---|
2351 | CellLabel->
|
---|
2352 | "During evaluation of \
|
---|
2353 | In[10]:=",ExpressionUUID->"3fc508e9-30d7-41df-849f-f73d6f3f9a1d"],
|
---|
2354 |
|
---|
2355 | Cell[BoxData[
|
---|
2356 | InterpretationBox[
|
---|
2357 | RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
|
---|
2358 | "15.805031`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
|
---|
2359 | SequenceForm["Squared matrix elent compute in ", 15.805031, " seconds."],
|
---|
2360 | Editable->False]], "Print",
|
---|
2361 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2362 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2363 | 3.915780477349168*^9},
|
---|
2364 | CellLabel->
|
---|
2365 | "During evaluation of \
|
---|
2366 | In[10]:=",ExpressionUUID->"688a217c-2fd2-417a-abf3-9dac433ca702"],
|
---|
2367 |
|
---|
2368 | Cell[BoxData[
|
---|
2369 | InterpretationBox[
|
---|
2370 | RowBox[{
|
---|
2371 | DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
|
---|
2372 | ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
2373 | "\[InvisibleSpace]", "251"}],
|
---|
2374 | SequenceForm[
|
---|
2375 | Dynamic[PRIVATE`mycounter], " / ", 251],
|
---|
2376 | Editable->False]], "Print",
|
---|
2377 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2378 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2379 | 3.915780477383421*^9},
|
---|
2380 | CellLabel->
|
---|
2381 | "During evaluation of \
|
---|
2382 | In[10]:=",ExpressionUUID->"8075fb55-278d-4a7d-93eb-ecbf357e7dbd"],
|
---|
2383 |
|
---|
2384 | Cell[BoxData[
|
---|
2385 | InterpretationBox[
|
---|
2386 | RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
|
---|
2387 | "3.436132`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
|
---|
2388 | SequenceForm["Decay widths computed in ", 3.436132, " seconds."],
|
---|
2389 | Editable->False]], "Print",
|
---|
2390 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2391 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2392 | 3.9157804812541037`*^9},
|
---|
2393 | CellLabel->
|
---|
2394 | "During evaluation of \
|
---|
2395 | In[10]:=",ExpressionUUID->"3db6298b-cf04-47b2-89fb-5e4bc29d68e4"],
|
---|
2396 |
|
---|
2397 | Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
|
---|
2398 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2399 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2400 | 3.915780481255805*^9},
|
---|
2401 | CellLabel->
|
---|
2402 | "During evaluation of \
|
---|
2403 | In[10]:=",ExpressionUUID->"c7cacef6-5283-4a5e-93f5-892b42eb242a"],
|
---|
2404 |
|
---|
2405 | Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
|
---|
2406 | "Print",
|
---|
2407 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2408 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2409 | 3.9157804821057243`*^9},
|
---|
2410 | CellLabel->
|
---|
2411 | "During evaluation of \
|
---|
2412 | In[10]:=",ExpressionUUID->"dfe42199-5ed2-4034-8e73-a9eef240e2d6"],
|
---|
2413 |
|
---|
2414 | Cell[BoxData[
|
---|
2415 | InterpretationBox[
|
---|
2416 | RowBox[{"\<\"Splitting of vertices distributed over \"\>",
|
---|
2417 | "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
|
---|
2418 | SequenceForm["Splitting of vertices distributed over ", 12, " kernels."],
|
---|
2419 | Editable->False]], "Print",
|
---|
2420 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2421 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2422 | 3.9157804826844873`*^9},
|
---|
2423 | CellLabel->
|
---|
2424 | "During evaluation of \
|
---|
2425 | In[10]:=",ExpressionUUID->"3760151a-2ad8-4891-8632-a3a7d83df1f9"],
|
---|
2426 |
|
---|
2427 | Cell[BoxData[
|
---|
2428 | InterpretationBox[
|
---|
2429 | RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
|
---|
2430 | DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
|
---|
2431 | ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>",
|
---|
2432 | "\[InvisibleSpace]", "901", "\[InvisibleSpace]", "\<\" .\"\>"}],
|
---|
2433 | SequenceForm[" - Optimizing: ",
|
---|
2434 | Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 901, " ."],
|
---|
2435 | Editable->False]], "Print",
|
---|
2436 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2437 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2438 | 3.915780488522963*^9},
|
---|
2439 | CellLabel->
|
---|
2440 | "During evaluation of \
|
---|
2441 | In[10]:=",ExpressionUUID->"3ad8a001-94d5-4767-931f-2ce6eddd1045"],
|
---|
2442 |
|
---|
2443 | Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
|
---|
2444 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2445 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2446 | 3.915780489458684*^9},
|
---|
2447 | CellLabel->
|
---|
2448 | "During evaluation of \
|
---|
2449 | In[10]:=",ExpressionUUID->"39261eff-fc16-4681-9e64-6fcf02be395d"],
|
---|
2450 |
|
---|
2451 | Cell[BoxData["\<\"Done!\"\>"], "Print",
|
---|
2452 | CellChangeTimes->{3.912922448968795*^9, 3.915616783956234*^9,
|
---|
2453 | 3.915616891433731*^9, 3.915636987188876*^9, 3.9156397366440077`*^9,
|
---|
2454 | 3.915780489977851*^9},
|
---|
2455 | CellLabel->
|
---|
2456 | "During evaluation of \
|
---|
2457 | In[10]:=",ExpressionUUID->"e19f72ba-f07e-4880-b363-23672dcdc90f"]
|
---|
2458 | }, Open ]]
|
---|
2459 | }, Open ]]
|
---|
2460 | }, Open ]]
|
---|
2461 | }, Open ]]
|
---|
2462 | },
|
---|
2463 | WindowSize->{1387, 852},
|
---|
2464 | WindowMargins->{{55, Automatic}, {0, Automatic}},
|
---|
2465 | PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
|
---|
2466 | ShowSelection->True,
|
---|
2467 | TaggingRules->{"TryRealOnly" -> False},
|
---|
2468 | FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
|
---|
2469 | StyleDefinitions->"Default.nb"
|
---|
2470 | ]
|
---|
2471 | (* End of Notebook Content *)
|
---|
2472 |
|
---|
2473 | (* Internal cache information *)
|
---|
2474 | (*CellTagsOutline
|
---|
2475 | CellTagsIndex->{}
|
---|
2476 | *)
|
---|
2477 | (*CellTagsIndex
|
---|
2478 | CellTagsIndex->{}
|
---|
2479 | *)
|
---|
2480 | (*NotebookFileOutline
|
---|
2481 | Notebook[{
|
---|
2482 | Cell[545, 20, 388, 8, 31, "Input",ExpressionUUID->"cee4e897-cbc1-4bf1-a304-44bbfcd5aed3"],
|
---|
2483 | Cell[936, 30, 1108, 26, 78, "Input",ExpressionUUID->"4149d1d2-f5f9-4692-ab77-ed3366c4e0f7"],
|
---|
2484 | Cell[2047, 58, 196, 3, 31, "Input",ExpressionUUID->"7eec092d-a909-4a5c-86c4-663c165c8312"],
|
---|
2485 | Cell[CellGroupData[{
|
---|
2486 | Cell[2268, 65, 251, 4, 99, "Title",ExpressionUUID->"36a8985f-3b71-4bb1-acae-6fbe5493c081"],
|
---|
2487 | Cell[CellGroupData[{
|
---|
2488 | Cell[2544, 73, 1563, 27, 101, "Input",ExpressionUUID->"2b566197-5488-4f54-9e47-2d15cdf0dd38"],
|
---|
2489 | Cell[CellGroupData[{
|
---|
2490 | Cell[4132, 104, 929, 14, 25, "Print",ExpressionUUID->"4d4ac3b9-593f-45a0-a909-b97331eaeb75"],
|
---|
2491 | Cell[5064, 120, 1210, 21, 25, "Print",ExpressionUUID->"0ff452ec-329a-48ef-8af8-b484ea547c1e"],
|
---|
2492 | Cell[6277, 143, 983, 15, 25, "Print",ExpressionUUID->"ba12d1b7-28b7-44bb-87b2-7440d50c55fb"],
|
---|
2493 | Cell[7263, 160, 915, 14, 25, "Print",ExpressionUUID->"2b0769c3-8078-4ede-9469-a309648e24aa"],
|
---|
2494 | Cell[8181, 176, 926, 14, 25, "Print",ExpressionUUID->"2081de6a-6cf4-4662-8b6a-45232c995360"],
|
---|
2495 | Cell[9110, 192, 978, 15, 25, "Print",ExpressionUUID->"8c153932-50f8-4c3a-8131-89c877233f07"],
|
---|
2496 | Cell[10091, 209, 980, 15, 25, "Print",ExpressionUUID->"dca728df-dd9c-4e50-920e-d9a5203d6801"],
|
---|
2497 | Cell[11074, 226, 917, 14, 25, "Print",ExpressionUUID->"3ff25800-db44-4e6e-beba-967a6cccae16"],
|
---|
2498 | Cell[11994, 242, 945, 14, 25, "Print",ExpressionUUID->"abfe83ea-1c4f-428e-8a1a-c42ac085f7ae"],
|
---|
2499 | Cell[12942, 258, 917, 14, 25, "Print",ExpressionUUID->"ac3d8c75-6565-45d0-9f70-19c249fc1b49"],
|
---|
2500 | Cell[13862, 274, 982, 15, 25, "Print",ExpressionUUID->"5e7ac8e2-1d57-4b11-bc6e-018b4d85d72b"]
|
---|
2501 | }, Open ]]
|
---|
2502 | }, Open ]],
|
---|
2503 | Cell[CellGroupData[{
|
---|
2504 | Cell[14893, 295, 1535, 33, 147, "Input",ExpressionUUID->"0e39e6c0-37a4-4139-8e09-3d0b04f3b8fd"],
|
---|
2505 | Cell[CellGroupData[{
|
---|
2506 | Cell[16453, 332, 289, 5, 25, "Print",ExpressionUUID->"1f6006ec-ed2c-4d8b-acbb-3c632a6c3651"],
|
---|
2507 | Cell[16745, 339, 263, 5, 25, "Print",ExpressionUUID->"c15f1a0c-a03b-4228-97f7-d14eb638caae"],
|
---|
2508 | Cell[17011, 346, 258, 5, 25, "Print",ExpressionUUID->"f6105458-88dc-48a1-948f-30551032584a"],
|
---|
2509 | Cell[17272, 353, 256, 5, 25, "Print",ExpressionUUID->"76e0c67d-79dd-4e80-8791-0a3032a71bb4"],
|
---|
2510 | Cell[17531, 360, 401, 9, 25, "Print",ExpressionUUID->"4a731c7f-e759-4b43-a419-b0885b31a42e"],
|
---|
2511 | Cell[17935, 371, 306, 6, 25, "Print",ExpressionUUID->"4b41b075-2e83-4e4c-9624-c7caa1ad0e20"],
|
---|
2512 | Cell[18244, 379, 297, 6, 25, "Print",ExpressionUUID->"1a64c1cb-1e77-4b76-ad7d-c90a34191f97"],
|
---|
2513 | Cell[18544, 387, 251, 5, 25, "Print",ExpressionUUID->"d141bc42-2afa-4e6d-8ad5-a298447019bc"],
|
---|
2514 | Cell[18798, 394, 281, 5, 25, "Print",ExpressionUUID->"213b4c60-4306-4852-961f-4d18641b7b38"],
|
---|
2515 | Cell[19082, 401, 284, 5, 25, "Print",ExpressionUUID->"78303c24-6314-49d4-9689-033e06bb71c7"],
|
---|
2516 | Cell[19369, 408, 280, 5, 25, "Print",ExpressionUUID->"f70123b7-4c96-48e4-a329-f856afde08f4"],
|
---|
2517 | Cell[19652, 415, 461, 10, 48, "Print",ExpressionUUID->"c42c919e-03b4-4507-a0a9-59d3d3533b06"],
|
---|
2518 | Cell[20116, 427, 742, 15, 25, "Print",ExpressionUUID->"139ba302-6473-42a4-8c9f-a52d2c87c9f5"],
|
---|
2519 | Cell[20861, 444, 740, 15, 25, "Print",ExpressionUUID->"4e31d5d7-ba3c-4ede-8299-7a52ab67a7a0"],
|
---|
2520 | Cell[21604, 461, 269, 5, 25, "Print",ExpressionUUID->"d8f04cd7-e4d2-4865-b393-7172c9d96cf2"]
|
---|
2521 | }, Open ]]
|
---|
2522 | }, Open ]],
|
---|
2523 | Cell[21900, 470, 2647, 41, 55, "Input",ExpressionUUID->"97808359-025b-4359-9ecf-779e8e5ca2d2"],
|
---|
2524 | Cell[24550, 513, 611, 15, 55, "Input",ExpressionUUID->"e0d984d8-7455-49ec-998c-c35045fd9a86"],
|
---|
2525 | Cell[CellGroupData[{
|
---|
2526 | Cell[25186, 532, 453, 7, 68, "Section",ExpressionUUID->"430f6c12-ab98-447b-8fa4-8a13c875b6c3"],
|
---|
2527 | Cell[CellGroupData[{
|
---|
2528 | Cell[25664, 543, 343, 6, 31, "Input",ExpressionUUID->"01776d56-05d4-475b-b025-2f0ebd0c8fc8"],
|
---|
2529 | Cell[CellGroupData[{
|
---|
2530 | Cell[26032, 553, 530, 14, 25, "Print",ExpressionUUID->"ad7147cd-90d5-49f0-b387-0343e72459ac"],
|
---|
2531 | Cell[26565, 569, 285, 6, 25, "Print",ExpressionUUID->"b4a6bc98-715d-4abc-8d8c-53ddff957489"],
|
---|
2532 | Cell[26853, 577, 318, 7, 25, "Print",ExpressionUUID->"110bb0d8-bad8-493b-b401-35b1b5f755c3"],
|
---|
2533 | Cell[27174, 586, 278, 6, 25, "Print",ExpressionUUID->"dfe9be29-85cc-4300-8625-020e53ba16c5"],
|
---|
2534 | Cell[27455, 594, 398, 10, 25, "Print",ExpressionUUID->"ba028401-557e-41f7-b903-df112c97cd38"]
|
---|
2535 | }, Open ]],
|
---|
2536 | Cell[27868, 607, 218, 4, 35, "Output",ExpressionUUID->"78e8edf7-e7ef-4da3-a3fe-3149222e6001"]
|
---|
2537 | }, Open ]]
|
---|
2538 | }, Open ]],
|
---|
2539 | Cell[CellGroupData[{
|
---|
2540 | Cell[28135, 617, 234, 4, 68, "Section",ExpressionUUID->"963bd5da-1517-491b-8768-3e81fb288ca2"],
|
---|
2541 | Cell[28372, 623, 130, 1, 31, "Input",ExpressionUUID->"ac633701-1714-47ff-b059-96a9d55ac743"],
|
---|
2542 | Cell[CellGroupData[{
|
---|
2543 | Cell[28527, 628, 400, 6, 31, "Input",ExpressionUUID->"92049f5e-2336-49b3-a1cf-102286807753"],
|
---|
2544 | Cell[CellGroupData[{
|
---|
2545 | Cell[28952, 638, 1039, 19, 25, "Print",ExpressionUUID->"83ed3121-7c45-42b6-a73c-536be8e0990c"],
|
---|
2546 | Cell[29994, 659, 815, 13, 25, "Print",ExpressionUUID->"7d0b43f5-72f4-4eaf-887b-907ba02ee1ff"],
|
---|
2547 | Cell[30812, 674, 810, 13, 25, "Print",ExpressionUUID->"e4851d06-682f-456f-819f-0b16bb338d54"],
|
---|
2548 | Cell[31625, 689, 851, 14, 25, "Print",ExpressionUUID->"8c9cd384-69f1-435e-8d0a-8599d0c3160a"]
|
---|
2549 | }, Open ]],
|
---|
2550 | Cell[32491, 706, 5263, 163, 535, "Output",ExpressionUUID->"59d97bf5-775e-443b-9d3b-2dfb2fc8fe30"]
|
---|
2551 | }, Open ]],
|
---|
2552 | Cell[37769, 872, 505, 7, 31, "Input",ExpressionUUID->"98abda96-0800-4fdf-a9dc-54c145864a34"]
|
---|
2553 | }, Open ]],
|
---|
2554 | Cell[CellGroupData[{
|
---|
2555 | Cell[38311, 884, 230, 5, 68, "Section",ExpressionUUID->"47f009e8-0603-4d37-95af-884018211353"],
|
---|
2556 | Cell[CellGroupData[{
|
---|
2557 | Cell[38566, 893, 1518, 33, 101, "Input",ExpressionUUID->"758085c5-adf3-40e0-830a-07fa05d96b6c"],
|
---|
2558 | Cell[CellGroupData[{
|
---|
2559 | Cell[40109, 930, 418, 8, 25, "Print",ExpressionUUID->"efe5d50d-8d4b-4ffc-ba41-3dbd9266a7e7"],
|
---|
2560 | Cell[40530, 940, 640, 15, 25, "Print",ExpressionUUID->"fba6eacc-1ed8-4e6a-99c5-7abf15f0d8c6"],
|
---|
2561 | Cell[41173, 957, 396, 7, 25, "Print",ExpressionUUID->"32776f0f-0a52-473f-9295-16b252e9e487"],
|
---|
2562 | Cell[41572, 966, 582, 12, 25, "Print",ExpressionUUID->"236a5d2a-58fa-49bd-af53-aa5199072083"],
|
---|
2563 | Cell[42157, 980, 429, 8, 25, "Print",ExpressionUUID->"b08ac910-1b6e-48ec-be04-b8aee1d47e1b"],
|
---|
2564 | Cell[42589, 990, 915, 19, 25, "Print",ExpressionUUID->"97e2ad9c-326a-4a90-a340-2abb379768a0"],
|
---|
2565 | Cell[43507, 1011, 513, 11, 25, "Print",ExpressionUUID->"0ec1c870-7aa6-4d59-a410-f3b1fba4c5e5"],
|
---|
2566 | Cell[44023, 1024, 871, 18, 25, "Print",ExpressionUUID->"e5939aa8-5257-4f7f-89f6-753da63df342"],
|
---|
2567 | Cell[44897, 1044, 410, 7, 25, "Print",ExpressionUUID->"52b8f533-f01a-4b0f-a42a-f2220c9ccab4"],
|
---|
2568 | Cell[45310, 1053, 677, 16, 25, "Print",ExpressionUUID->"1f6af9d8-9211-431a-98b8-086ca423bd58"],
|
---|
2569 | Cell[45990, 1071, 635, 15, 25, "Print",ExpressionUUID->"a4570cc1-b87d-401e-909a-c1454e8f58e6"],
|
---|
2570 | Cell[46628, 1088, 611, 12, 25, "Print",ExpressionUUID->"cc54b6aa-15e8-4f66-b4eb-9d0ede4e9975"],
|
---|
2571 | Cell[47242, 1102, 634, 15, 25, "Print",ExpressionUUID->"28981911-1ec6-4415-94f4-27a897fb45a3"],
|
---|
2572 | Cell[47879, 1119, 595, 12, 25, "Print",ExpressionUUID->"65f57f24-0a21-40bf-bb39-f71819e680d8"],
|
---|
2573 | Cell[48477, 1133, 393, 7, 25, "Print",ExpressionUUID->"bf4f2976-7f54-48cb-8aae-21c1abeb019d"],
|
---|
2574 | Cell[48873, 1142, 419, 8, 25, "Print",ExpressionUUID->"81f6af8c-86f3-432a-89ee-4c873af19f70"],
|
---|
2575 | Cell[49295, 1152, 612, 12, 25, "Print",ExpressionUUID->"eef6cb96-6e36-45eb-8eb2-4cde4d4cc31a"],
|
---|
2576 | Cell[49910, 1166, 769, 15, 25, "Print",ExpressionUUID->"d98fb764-508a-454e-8a61-d28a711c67aa"],
|
---|
2577 | Cell[50682, 1183, 389, 7, 25, "Print",ExpressionUUID->"6804a583-41f6-4740-a9d0-79074bcd0361"],
|
---|
2578 | Cell[51074, 1192, 374, 7, 25, "Print",ExpressionUUID->"b8afd9b3-5b0c-43af-894a-0c6efe8e6a15"]
|
---|
2579 | }, Open ]]
|
---|
2580 | }, Open ]]
|
---|
2581 | }, Open ]],
|
---|
2582 | Cell[CellGroupData[{
|
---|
2583 | Cell[51509, 1206, 356, 6, 68, "Section",ExpressionUUID->"f35c5a82-2f44-4096-9399-e82f5b97ff8d"],
|
---|
2584 | Cell[CellGroupData[{
|
---|
2585 | Cell[51890, 1216, 1465, 31, 101, "Input",ExpressionUUID->"7cbd8e0c-bc17-43d7-8e66-37ef6a194ab6"],
|
---|
2586 | Cell[CellGroupData[{
|
---|
2587 | Cell[53380, 1251, 516, 9, 25, "Print",ExpressionUUID->"5b6159b4-f381-41bd-b30a-89cd3d90b7bc"],
|
---|
2588 | Cell[53899, 1262, 516, 9, 25, "Print",ExpressionUUID->"ca97e212-f124-4e1e-b63b-d881d74522cc"],
|
---|
2589 | Cell[54418, 1273, 711, 14, 25, "Print",ExpressionUUID->"31873469-0cd1-4ff1-81c7-de54dcf5f4da"],
|
---|
2590 | Cell[55132, 1289, 483, 8, 25, "Print",ExpressionUUID->"975aa446-77d6-4c81-a788-017063a0bc4b"],
|
---|
2591 | Cell[55618, 1299, 501, 8, 25, "Print",ExpressionUUID->"bea99c55-06e1-42c2-91c2-b03c37c3dcb9"],
|
---|
2592 | Cell[56122, 1309, 487, 8, 25, "Print",ExpressionUUID->"7c40f2eb-0569-4daf-87df-aa3fad5aafb0"],
|
---|
2593 | Cell[56612, 1319, 486, 8, 25, "Print",ExpressionUUID->"43f041ff-f9ba-4642-980d-7bf422e81a23"],
|
---|
2594 | Cell[57101, 1329, 502, 8, 25, "Print",ExpressionUUID->"eba24c3e-b0e5-45b1-a978-5c0c2cbae489"],
|
---|
2595 | Cell[57606, 1339, 494, 8, 25, "Print",ExpressionUUID->"04bbef6d-3e46-4269-8711-1687c1d877c6"],
|
---|
2596 | Cell[58103, 1349, 488, 8, 25, "Print",ExpressionUUID->"e5be37c2-76ad-4180-9629-22ec9844bc6b"],
|
---|
2597 | Cell[58594, 1359, 479, 8, 25, "Print",ExpressionUUID->"90b9b158-7da5-40a8-b60b-5aa6ed901f8a"],
|
---|
2598 | Cell[59076, 1369, 475, 8, 25, "Print",ExpressionUUID->"14e8a0b6-48bc-4d7f-9cda-450def5d7a14"]
|
---|
2599 | }, Open ]],
|
---|
2600 | Cell[59566, 1380, 488, 7, 35, "Output",ExpressionUUID->"e6f4dcec-627a-4791-a2b8-ea794631e20b"],
|
---|
2601 | Cell[CellGroupData[{
|
---|
2602 | Cell[60079, 1391, 504, 8, 25, "Print",ExpressionUUID->"e3c6e209-77b5-4856-a146-ea232ca4f9ae"],
|
---|
2603 | Cell[60586, 1401, 491, 8, 25, "Print",ExpressionUUID->"c3832de8-abbc-4504-87a4-75e842b3a737"],
|
---|
2604 | Cell[61080, 1411, 495, 8, 25, "Print",ExpressionUUID->"9e7b525e-ce3e-4560-9a5c-46ed7267d984"],
|
---|
2605 | Cell[61578, 1421, 638, 13, 25, "Print",ExpressionUUID->"9b75247e-4314-4b9c-a079-5bd085637a38"],
|
---|
2606 | Cell[62219, 1436, 546, 9, 25, "Print",ExpressionUUID->"8f1a12c9-5262-4f2f-9cf1-e806afc5411c"],
|
---|
2607 | Cell[62768, 1447, 528, 9, 25, "Print",ExpressionUUID->"e3e0cb9f-8637-4114-ade4-21d9e6f0251d"],
|
---|
2608 | Cell[63299, 1458, 530, 9, 25, "Print",ExpressionUUID->"53f9168b-c315-4f00-a198-6af1bc62623e"],
|
---|
2609 | Cell[63832, 1469, 638, 13, 25, "Print",ExpressionUUID->"f54ab376-94c2-44c6-91cd-8d2d807f94e7"],
|
---|
2610 | Cell[64473, 1484, 740, 16, 25, "Print",ExpressionUUID->"ab79dc8b-d087-4afd-99fb-3a0c8f323b8c"],
|
---|
2611 | Cell[65216, 1502, 487, 8, 25, "Print",ExpressionUUID->"c02edd39-daa4-4437-afc5-7c1567db73b0"],
|
---|
2612 | Cell[65706, 1512, 673, 13, 25, "Print",ExpressionUUID->"ba3edf86-3dbe-4f40-968e-cf31bb48fc09"],
|
---|
2613 | Cell[66382, 1527, 519, 9, 25, "Print",ExpressionUUID->"820a8c6f-9c98-4824-95f0-711c58eecf8f"],
|
---|
2614 | Cell[66904, 1538, 1007, 20, 25, "Print",ExpressionUUID->"f733662c-9fc6-43b8-8757-63c0334cfce6"],
|
---|
2615 | Cell[67914, 1560, 606, 12, 25, "Print",ExpressionUUID->"2f71070c-112e-4871-9dbc-ec23807c6165"],
|
---|
2616 | Cell[68523, 1574, 699, 14, 25, "Print",ExpressionUUID->"7879c64d-b027-46de-a3be-77a3900cf496"],
|
---|
2617 | Cell[69225, 1590, 730, 15, 25, "Print",ExpressionUUID->"4a2e0dda-88c3-4896-95db-93dd22884907"]
|
---|
2618 | }, Open ]]
|
---|
2619 | }, Open ]]
|
---|
2620 | }, Open ]],
|
---|
2621 | Cell[CellGroupData[{
|
---|
2622 | Cell[70016, 1612, 346, 6, 68, "Section",ExpressionUUID->"637e3231-e751-489a-ad59-470d98c11b8b"],
|
---|
2623 | Cell[70365, 1620, 255, 6, 31, "Input",ExpressionUUID->"558b9e27-1057-416f-a429-231889bb6a86"],
|
---|
2624 | Cell[70623, 1628, 148, 3, 31, "Input",ExpressionUUID->"3640fc82-001c-4a97-8551-70d99a9b683d"],
|
---|
2625 | Cell[70774, 1633, 251, 5, 31, "Input",ExpressionUUID->"8cd0fa8f-7c3a-4d14-8360-24f7398e3040"],
|
---|
2626 | Cell[CellGroupData[{
|
---|
2627 | Cell[71050, 1642, 1671, 29, 147, "Input",ExpressionUUID->"cb2da490-5600-44da-b7e4-f7f288533aed"],
|
---|
2628 | Cell[CellGroupData[{
|
---|
2629 | Cell[72746, 1675, 635, 11, 25, "Print",ExpressionUUID->"e62cc9c4-ad75-44ca-a619-52d7b35ad15b"],
|
---|
2630 | Cell[73384, 1688, 663, 11, 25, "Print",ExpressionUUID->"8da2cdc6-9c7e-4bb9-9a82-0eda13c9b053"],
|
---|
2631 | Cell[74050, 1701, 682, 11, 25, "Print",ExpressionUUID->"6206f0d6-8896-42d9-ad05-b526dd6abcfc"],
|
---|
2632 | Cell[74735, 1714, 646, 11, 25, "Print",ExpressionUUID->"73af02ec-1a46-476e-9f8a-c73353c013d6"],
|
---|
2633 | Cell[75384, 1727, 648, 11, 25, "Print",ExpressionUUID->"0564d4bf-70b7-4484-b834-6abae6324db2"],
|
---|
2634 | Cell[76035, 1740, 655, 11, 25, "Print",ExpressionUUID->"3f0f891c-6191-4ec0-8ca2-5c87ee16d5b1"],
|
---|
2635 | Cell[76693, 1753, 700, 12, 25, "Print",ExpressionUUID->"019fdb33-bdfc-4379-8523-b7829c46ae07"]
|
---|
2636 | }, Open ]]
|
---|
2637 | }, Open ]],
|
---|
2638 | Cell[77420, 1769, 498, 11, 31, "Input",ExpressionUUID->"ee8e0629-2939-4697-a0c4-dba81be5b6fc"],
|
---|
2639 | Cell[77921, 1782, 2033, 37, 78, "Input",ExpressionUUID->"b8c64182-c4af-4e41-81a4-fbb5588d16ce"]
|
---|
2640 | }, Open ]],
|
---|
2641 | Cell[CellGroupData[{
|
---|
2642 | Cell[79991, 1824, 572, 8, 68, "Section",ExpressionUUID->"493a4b49-0255-47ae-87b0-254220da35ea"],
|
---|
2643 | Cell[80566, 1834, 184, 3, 31, "Input",ExpressionUUID->"6c2b66dd-ba7d-4d84-96e6-433ecd080754"],
|
---|
2644 | Cell[80753, 1839, 241, 5, 31, "Input",ExpressionUUID->"8506311a-f288-4488-903d-47a5940847e6"],
|
---|
2645 | Cell[CellGroupData[{
|
---|
2646 | Cell[81019, 1848, 604, 14, 101, "Input",ExpressionUUID->"95f917ed-a9c9-4c6c-b687-25a83f1532e1"],
|
---|
2647 | Cell[CellGroupData[{
|
---|
2648 | Cell[81648, 1866, 315, 6, 25, "Print",ExpressionUUID->"e36543be-5823-428b-b41c-6eedeed58d2f"],
|
---|
2649 | Cell[81966, 1874, 598, 13, 25, "Print",ExpressionUUID->"dbb16abb-6b43-4a6a-b9a2-b648908166b9"],
|
---|
2650 | Cell[82567, 1889, 369, 7, 25, "Print",ExpressionUUID->"5f213e0e-4867-4c37-8ae7-8286e78c2e7b"],
|
---|
2651 | Cell[82939, 1898, 300, 6, 25, "Print",ExpressionUUID->"46bf34cf-7f2f-4510-972d-c7168e15889d"],
|
---|
2652 | Cell[83242, 1906, 311, 6, 25, "Print",ExpressionUUID->"33e8c91c-ca7e-40d7-9a32-4ef06906a279"],
|
---|
2653 | Cell[83556, 1914, 363, 7, 25, "Print",ExpressionUUID->"38a78a0f-77ad-41d1-8208-33f8ee4a51ea"],
|
---|
2654 | Cell[83922, 1923, 364, 7, 25, "Print",ExpressionUUID->"ee9f3c13-9b33-4056-a800-fee9f6d9fe6d"],
|
---|
2655 | Cell[84289, 1932, 301, 6, 25, "Print",ExpressionUUID->"3d4ff15f-c4d9-4ec9-894d-a474377e4d1f"],
|
---|
2656 | Cell[84593, 1940, 331, 6, 25, "Print",ExpressionUUID->"8b5487bb-01c8-4a5d-84ea-38da227e3452"],
|
---|
2657 | Cell[84927, 1948, 301, 6, 25, "Print",ExpressionUUID->"87ece0a1-34ff-433c-ba90-24fcd76e78b0"],
|
---|
2658 | Cell[85231, 1956, 370, 7, 25, "Print",ExpressionUUID->"95527c63-28e0-4fb9-97ff-52e8dd6e84ed"]
|
---|
2659 | }, Open ]]
|
---|
2660 | }, Open ]],
|
---|
2661 | Cell[CellGroupData[{
|
---|
2662 | Cell[85650, 1969, 1340, 30, 147, "Input",ExpressionUUID->"39c2e736-287a-43b4-afd0-e71ce7e12993"],
|
---|
2663 | Cell[CellGroupData[{
|
---|
2664 | Cell[87015, 2003, 340, 6, 25, "Print",ExpressionUUID->"585f21a4-8128-44bf-9e59-abfc8501ad53"],
|
---|
2665 | Cell[87358, 2011, 314, 6, 25, "Print",ExpressionUUID->"e674e443-7214-4665-a75b-02a3186b5607"],
|
---|
2666 | Cell[87675, 2019, 307, 6, 25, "Print",ExpressionUUID->"664b3672-05f4-4e42-bdba-48bcf0440be7"],
|
---|
2667 | Cell[87985, 2027, 307, 6, 25, "Print",ExpressionUUID->"f74903a2-db9c-434e-b4c5-922da3dcc226"],
|
---|
2668 | Cell[88295, 2035, 450, 10, 25, "Print",ExpressionUUID->"fe48fa8d-f572-4b6a-bde7-ce85b98d81dc"],
|
---|
2669 | Cell[88748, 2047, 356, 7, 25, "Print",ExpressionUUID->"7601425b-f172-4ae9-bbe1-07c81ab2be65"],
|
---|
2670 | Cell[89107, 2056, 348, 7, 25, "Print",ExpressionUUID->"4fe3d21a-0e7a-47ad-8509-601afd595984"],
|
---|
2671 | Cell[89458, 2065, 300, 6, 25, "Print",ExpressionUUID->"36439886-e89f-4a0f-9dc2-4281cc88d89f"],
|
---|
2672 | Cell[89761, 2073, 330, 6, 25, "Print",ExpressionUUID->"17973fe0-d374-4c00-80b4-4694e7276ecf"],
|
---|
2673 | Cell[90094, 2081, 332, 6, 25, "Print",ExpressionUUID->"f54b4e4a-37d8-4f0f-8642-b73c622b5138"],
|
---|
2674 | Cell[90429, 2089, 331, 6, 25, "Print",ExpressionUUID->"2acc75db-c3c6-42dd-a25f-e620e78bea99"],
|
---|
2675 | Cell[90763, 2097, 512, 11, 48, "Print",ExpressionUUID->"a79e96e0-8118-43e3-aa2f-32c81efd5e0c"],
|
---|
2676 | Cell[91278, 2110, 791, 16, 25, "Print",ExpressionUUID->"e79e85aa-15d8-4438-b2b9-92b6832813eb"],
|
---|
2677 | Cell[92072, 2128, 787, 16, 25, "Print",ExpressionUUID->"9ef0db59-5ae6-4106-bbf7-d05b4bab7d59"],
|
---|
2678 | Cell[92862, 2146, 320, 6, 25, "Print",ExpressionUUID->"2a55decb-75a9-4581-8133-886f8866bd66"]
|
---|
2679 | }, Open ]]
|
---|
2680 | }, Open ]],
|
---|
2681 | Cell[93209, 2156, 411, 9, 55, "Input",ExpressionUUID->"f55940db-4e54-4f2a-9fd0-4dc2a8718cd0"],
|
---|
2682 | Cell[CellGroupData[{
|
---|
2683 | Cell[93645, 2169, 1617, 34, 78, "Input",ExpressionUUID->"da29c21e-5dc7-4f3b-a841-0fec4b834793"],
|
---|
2684 | Cell[CellGroupData[{
|
---|
2685 | Cell[95287, 2207, 350, 7, 25, "Print",ExpressionUUID->"8e37f643-11b0-4ce7-bcb6-c433185f7974"],
|
---|
2686 | Cell[95640, 2216, 570, 14, 25, "Print",ExpressionUUID->"92d0f0c3-6a84-44be-aa84-cf6663b1943d"],
|
---|
2687 | Cell[96213, 2232, 326, 6, 25, "Print",ExpressionUUID->"72e51ba8-bd1f-48ac-809f-a0f9cc025f4c"],
|
---|
2688 | Cell[96542, 2240, 510, 11, 25, "Print",ExpressionUUID->"4b8aa456-b2bc-4269-803b-1255eaf90443"],
|
---|
2689 | Cell[97055, 2253, 359, 7, 25, "Print",ExpressionUUID->"33d75e7a-3afe-4b25-ab15-5cf958e72225"],
|
---|
2690 | Cell[97417, 2262, 846, 18, 25, "Print",ExpressionUUID->"fbe494a4-6a0c-46fc-adff-5d9b13b1e947"],
|
---|
2691 | Cell[98266, 2282, 443, 10, 25, "Print",ExpressionUUID->"4be3ff7d-7ebf-4b25-8dcd-ed8945b2ddea"],
|
---|
2692 | Cell[98712, 2294, 799, 17, 25, "Print",ExpressionUUID->"ef1a334d-209b-4932-8265-5eba5aa804bd"],
|
---|
2693 | Cell[99514, 2313, 339, 6, 25, "Print",ExpressionUUID->"d762e2cf-e8eb-4f79-819b-923aa0e1dc1c"],
|
---|
2694 | Cell[99856, 2321, 607, 15, 25, "Print",ExpressionUUID->"8b9f5361-35aa-4f71-bbe4-4e0536b292ec"],
|
---|
2695 | Cell[100466, 2338, 563, 14, 25, "Print",ExpressionUUID->"3fc508e9-30d7-41df-849f-f73d6f3f9a1d"],
|
---|
2696 | Cell[101032, 2354, 541, 11, 25, "Print",ExpressionUUID->"688a217c-2fd2-417a-abf3-9dac433ca702"],
|
---|
2697 | Cell[101576, 2367, 563, 14, 25, "Print",ExpressionUUID->"8075fb55-278d-4a7d-93eb-ecbf357e7dbd"],
|
---|
2698 | Cell[102142, 2383, 527, 11, 25, "Print",ExpressionUUID->"3db6298b-cf04-47b2-89fb-5e4bc29d68e4"],
|
---|
2699 | Cell[102672, 2396, 323, 6, 25, "Print",ExpressionUUID->"c7cacef6-5283-4a5e-93f5-892b42eb242a"],
|
---|
2700 | Cell[102998, 2404, 349, 7, 25, "Print",ExpressionUUID->"dfe42199-5ed2-4034-8e73-a9eef240e2d6"],
|
---|
2701 | Cell[103350, 2413, 542, 11, 25, "Print",ExpressionUUID->"3760151a-2ad8-4891-8632-a3a7d83df1f9"],
|
---|
2702 | Cell[103895, 2426, 697, 14, 25, "Print",ExpressionUUID->"3ad8a001-94d5-4767-931f-2ce6eddd1045"],
|
---|
2703 | Cell[104595, 2442, 319, 6, 25, "Print",ExpressionUUID->"39261eff-fc16-4681-9e64-6fcf02be395d"],
|
---|
2704 | Cell[104917, 2450, 304, 6, 25, "Print",ExpressionUUID->"e19f72ba-f07e-4880-b363-23672dcdc90f"]
|
---|
2705 | }, Open ]]
|
---|
2706 | }, Open ]]
|
---|
2707 | }, Open ]]
|
---|
2708 | }, Open ]]
|
---|
2709 | }
|
---|
2710 | ]
|
---|
2711 | *)
|
---|
2712 |
|
---|