ScotoSinglet: load_ScSM_real.nb

File load_ScSM_real.nb, 45.1 KB (added by Ankit Beniwal, 4 years ago)

Mathematica notebook

Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 7.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[ 145, 7]
13NotebookDataLength[ 46038, 1181]
14NotebookOptionsPosition[ 37052, 1044]
15NotebookOutlinePosition[ 37538, 1061]
16CellTagsIndexPosition[ 37495, 1058]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell[TextData[{
24 StyleBox["ScotoSinglet Model (ScSM) ", "Title"],
25 StyleBox["[Real scalar field, physical basis & dependent Yukawa couplings]",
26 "Title",
27 FontSize->24],
28 "\nAuthors: A. Beniwal (CP3, UCLouvain), J. H-Garc\[IAcute]a (SISSA/INFN), \
29N. Leerdam (UofA) and M. White (UofA)\nDate: 01-05-2020"
30}], "Subtitle",
31 CellChangeTimes->{{3.78929382410271*^9, 3.789293902936754*^9},
32 3.78930018598919*^9, {3.789476047233612*^9, 3.7894760491770287`*^9}, {
33 3.7897357079270372`*^9, 3.789735708936843*^9}, 3.789810255297468*^9, {
34 3.789989473514378*^9, 3.789989500041143*^9}, {3.790362770098995*^9,
35 3.7903628080368557`*^9}, {3.790364138447424*^9, 3.790364153510963*^9}, {
36 3.790364428483472*^9, 3.790364429962514*^9}, 3.790422358338663*^9, {
37 3.790425174741452*^9, 3.790425234688355*^9}, {3.7904254239957314`*^9,
38 3.7904254404667788`*^9}, 3.793097476613859*^9, {3.793438949543418*^9,
39 3.7934389564047623`*^9}, {3.7953449354966087`*^9,
40 3.7953449483394136`*^9}, {3.796717740355047*^9, 3.7967177492410107`*^9}, {
41 3.7967184328961773`*^9, 3.796718475581168*^9}, {3.796718650997614*^9,
42 3.7967186661577673`*^9}, {3.797155545215301*^9, 3.7971555495699587`*^9}, {
43 3.7973183774860573`*^9, 3.7973183787412367`*^9}, {3.79732045113202*^9,
44 3.7973204541869698`*^9}, {3.797568852170485*^9,
45 3.79756885720148*^9}},ExpressionUUID->"c05b804a-5b4a-4cff-a9d7-\
46fab33314664a"],
47
48Cell[BoxData[
49 RowBox[{"Quit", "[", "]"}]], "Input",
50 CellChangeTimes->{{3.790331142745549*^9, 3.790331146922916*^9}},
51 CellLabel->"In[1]:=",ExpressionUUID->"30e709fa-a0b4-4161-965c-065c98440be8"]
52}, Open ]],
53
54Cell[CellGroupData[{
55
56Cell[TextData[StyleBox[" Load FeynRules", "Subsubsection"]], "Subtitle",
57 CellChangeTimes->{
58 3.7903636565241747`*^9, {3.7930991532802687`*^9, 3.79309915503517*^9}, {
59 3.793099194173485*^9,
60 3.7930991957370863`*^9}},ExpressionUUID->"9cd05465-e4c4-4c51-b6c9-\
6129f9e51bf427"],
62
63Cell[CellGroupData[{
64
65Cell[BoxData[{
66 RowBox[{
67 RowBox[{"$FeynRulesPath", "=",
68 RowBox[{
69 "SetDirectory", "[",
70 "\"\</Users/ankitbeniwal/Documents/Projects/ScotoSinglet/feynrules-\
71current/\>\"", "]"}]}], ";"}], "\n",
72 RowBox[{
73 RowBox[{"<<", "FeynRules`"}], ";"}]}], "Input",
74 CellChangeTimes->{
75 3.504423447270249*^9, {3.507209594206577*^9, 3.507209600067323*^9}, {
76 3.514799374048591*^9, 3.514799404330376*^9}, {3.515062647798441*^9,
77 3.515062653173225*^9}, {3.515135742551162*^9, 3.515135748404658*^9}, {
78 3.551191781661876*^9, 3.551191796346917*^9}, {3.589877382659015*^9,
79 3.589877391686277*^9}, {3.589878062567462*^9, 3.589878067455187*^9}, {
80 3.589878109496549*^9, 3.589878111197733*^9}, {3.59055306646451*^9,
81 3.590553091624037*^9}, 3.620364186079145*^9, 3.6513843476106777`*^9, {
82 3.7813342732657423`*^9, 3.781334275086173*^9}, {3.7846247986166*^9,
83 3.784624807675848*^9}, {3.784624868803924*^9, 3.7846248737887506`*^9},
84 3.78462511234595*^9, {3.7892911546174297`*^9, 3.789291198123638*^9}, {
85 3.789291248217085*^9, 3.7892912485262814`*^9}, {3.7892940114487257`*^9,
86 3.7892940330673447`*^9}, {3.78929407708479*^9, 3.789294084925029*^9}, {
87 3.789470234288587*^9, 3.789470234922312*^9}, {3.78973573021922*^9,
88 3.7897357499362183`*^9}, {3.789914041420079*^9, 3.7899140435976477`*^9}, {
89 3.790078913900754*^9, 3.7900789147128677`*^9}, {3.790413966850863*^9,
90 3.7904139673233347`*^9}, {3.795342433570258*^9, 3.795342434742258*^9},
91 3.7971590923794603`*^9},
92 CellLabel->"In[1]:=",ExpressionUUID->"7e4de0df-9595-4a69-95d5-009359f3091a"],
93
94Cell[CellGroupData[{
95
96Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
97 CellChangeTimes->{3.799599370027112*^9},
98 CellLabel->
99 "During evaluation of \
100In[1]:=",ExpressionUUID->"16748404-6b0d-48ea-b459-b74570f17c00"],
101
102Cell[BoxData[
103 InterpretationBox[
104 RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.36\"\>",
105 "\[InvisibleSpace]",
106 RowBox[{"\<\" (\"\>", " ", "\<\"28 November 2019\"\>"}],
107 "\[InvisibleSpace]", "\<\").\"\>"}],
108 SequenceForm["Version: ", "2.3.36", " (" "28 November 2019", ")."],
109 Editable->False]], "Print",
110 CellChangeTimes->{3.7995993700285597`*^9},
111 CellLabel->
112 "During evaluation of \
113In[1]:=",ExpressionUUID->"0019181d-fc3f-4ab5-b63e-fe4f5cf01041"],
114
115Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
116B. Fuks\"\>"], "Print",
117 CellChangeTimes->{3.799599370035262*^9},
118 CellLabel->
119 "During evaluation of \
120In[1]:=",ExpressionUUID->"64d2cd60-bf54-4a24-b747-de943038afe4"],
121
122Cell[BoxData["\<\" \"\>"], "Print",
123 CellChangeTimes->{3.799599370037146*^9},
124 CellLabel->
125 "During evaluation of \
126In[1]:=",ExpressionUUID->"8305a247-9bae-4804-a6f2-a64296ea2290"],
127
128Cell[BoxData["\<\"Please cite:\"\>"], "Print",
129 CellChangeTimes->{3.799599370038578*^9},
130 CellLabel->
131 "During evaluation of \
132In[1]:=",ExpressionUUID->"9a9be933-e0a9-48a6-b22d-4f18ccd3d3d4"],
133
134Cell[BoxData["\<\" - Comput.Phys.Commun.185:2250-2300,2014 \
135(arXiv:1310.1921);\"\>"], "Print",
136 CellChangeTimes->{3.7995993700398207`*^9},
137 CellLabel->
138 "During evaluation of \
139In[1]:=",ExpressionUUID->"388d36ce-90ed-479a-8a1a-8a4ceb1a9883"],
140
141Cell[BoxData["\<\" - Comput.Phys.Commun.180:1614-1641,2009 \
142(arXiv:0806.4194).\"\>"], "Print",
143 CellChangeTimes->{3.7995993700412683`*^9},
144 CellLabel->
145 "During evaluation of \
146In[1]:=",ExpressionUUID->"49fe9560-4948-4e7c-a978-b8b3981784be"],
147
148Cell[BoxData["\<\" \"\>"], "Print",
149 CellChangeTimes->{3.799599370042467*^9},
150 CellLabel->
151 "During evaluation of \
152In[1]:=",ExpressionUUID->"febf0fc2-46a0-4da9-b7ee-83797ab1a49c"],
153
154Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
155 CellChangeTimes->{3.799599370043343*^9},
156 CellLabel->
157 "During evaluation of \
158In[1]:=",ExpressionUUID->"944a13bf-5675-4f83-9833-b8f93bdffa58"],
159
160Cell[BoxData["\<\" \"\>"], "Print",
161 CellChangeTimes->{3.7995993700442343`*^9},
162 CellLabel->
163 "During evaluation of \
164In[1]:=",ExpressionUUID->"5f6c369c-1a14-4ae9-aa32-3c5f73d3ff3b"],
165
166Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
167FRPalette[].\"\>"], "Print",
168 CellChangeTimes->{3.799599370045093*^9},
169 CellLabel->
170 "During evaluation of \
171In[1]:=",ExpressionUUID->"bb78f889-1e09-46d4-8923-5f630fb9ef51"]
172}, Open ]]
173}, Open ]],
174
175Cell[TextData[StyleBox["Load ScotoSinglet model", "Subsubsection"]], "Text",
176 CellChangeTimes->{{3.789294091776713*^9, 3.789294093430462*^9}, {
177 3.789300942218239*^9, 3.789300943136531*^9}, {3.789989379496086*^9,
178 3.789989424322535*^9}, {3.790362820922306*^9, 3.790362828261808*^9}, {
179 3.793099185615362*^9,
180 3.7930991877239*^9}},ExpressionUUID->"089cca0f-8c0c-4a35-ae7f-aad05d8277b7"],
181
182Cell[CellGroupData[{
183
184Cell[BoxData[{
185 RowBox[{
186 RowBox[{
187 "SetDirectory", "[",
188 "\"\</Users/ankitbeniwal/Documents/Projects/ScotoSinglet/feynrules-current/\
189Models/ScotoSinglet/\>\"", "]"}], ";"}], "\n",
190 RowBox[{"LoadModel", "[", "\"\<ScotoSinglet_real.fr\>\"", "]"}]}], "Input",
191 CellChangeTimes->{{3.789300860119205*^9, 3.789300873105986*^9}, {
192 3.790413976630027*^9, 3.79041398929941*^9}, {3.7904221719564342`*^9,
193 3.790422173558769*^9}, {3.790425341291787*^9, 3.790425341820998*^9}, {
194 3.793096850526629*^9, 3.793096850671061*^9}, {3.793098910927965*^9,
195 3.793098916452855*^9}, 3.793098965724577*^9, {3.795342457946206*^9,
196 3.7953424668002043`*^9}, {3.795344981205496*^9, 3.795344981816969*^9},
197 3.7967178178176527`*^9, {3.796719012631321*^9, 3.79671901327719*^9}, {
198 3.797155554142675*^9, 3.797155558447172*^9}, 3.797568885010414*^9,
199 3.7995989271909523`*^9},
200 CellLabel->"In[3]:=",ExpressionUUID->"d0aea40e-d7da-4ae0-993f-510ad3586536"],
201
202Cell[CellGroupData[{
203
204Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
205 CellChangeTimes->{3.799599376728436*^9},
206 CellLabel->
207 "During evaluation of \
208In[3]:=",ExpressionUUID->"7b6aabaf-cfe7-405f-a6e6-4e5d8dd77fa6"],
209
210Cell[BoxData["\<\"Ankit Beniwal, Juan Herrero-Garc\[IAcute]a, Nicholas \
211Leerdam, Martin White\"\>"], "Print",
212 CellChangeTimes->{3.799599376729802*^9},
213 CellLabel->
214 "During evaluation of \
215In[3]:=",ExpressionUUID->"f3177245-5adf-4b1c-8987-e521db4bc2d0"],
216
217Cell[BoxData[
218 InterpretationBox[
219 RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
220 SequenceForm["Model Version: ", "1.0"],
221 Editable->False]], "Print",
222 CellChangeTimes->{3.7995993767365103`*^9},
223 CellLabel->
224 "During evaluation of \
225In[3]:=",ExpressionUUID->"517d12bd-fc56-4b64-873f-556bb5285ea1"],
226
227Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/ScotoSinglet\"\>"], \
228"Print",
229 CellChangeTimes->{3.799599376737764*^9},
230 CellLabel->
231 "During evaluation of \
232In[3]:=",ExpressionUUID->"af4d7941-7411-42c5-9c47-3ecacb73bdcd"],
233
234Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
235"Print",
236 CellChangeTimes->{3.799599376738961*^9},
237 CellLabel->
238 "During evaluation of \
239In[3]:=",ExpressionUUID->"5c4513e7-48b4-48fc-bfda-e4436347d528"],
240
241Cell[BoxData["\<\"\"\>"], "Print",
242 CellChangeTimes->{3.799599376740152*^9},
243 CellLabel->
244 "During evaluation of \
245In[3]:=",ExpressionUUID->"a92b9f62-43c1-4e55-94f9-a73e3d810593"],
246
247Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
248 CellChangeTimes->{3.7995993767411547`*^9},
249 CellLabel->
250 "During evaluation of \
251In[3]:=",ExpressionUUID->"d0de10bd-a623-4040-a219-d347aaf7cebd"],
252
253Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
254 CellChangeTimes->{3.799599376859221*^9},
255 CellLabel->
256 "During evaluation of \
257In[3]:=",ExpressionUUID->"d898d0ea-2076-435a-8979-66a41e421c18"],
258
259Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
260 CellChangeTimes->{3.799599376867774*^9},
261 CellLabel->
262 "During evaluation of \
263In[3]:=",ExpressionUUID->"938c279c-6afe-41cd-9b80-030328825d55"],
264
265Cell[BoxData[
266 InterpretationBox[
267 RowBox[{"\<\"\\nModel \"\>",
268 "\[InvisibleSpace]", "\<\"ScotoSinglet_real\"\>",
269 "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
270 SequenceForm["\nModel ", "ScotoSinglet_real", " loaded."],
271 Editable->False]], "Print",
272 CellChangeTimes->{3.799599377008149*^9},
273 CellLabel->
274 "During evaluation of \
275In[3]:=",ExpressionUUID->"555a1dc1-b9b0-4ac6-9946-1711fc4e136f"]
276}, Open ]]
277}, Open ]],
278
279Cell["\<\
280(************************************************ Check parameter values \
281******************************************)\
282\>", "Text",
283 CellChangeTimes->{{3.7893010145415077`*^9, 3.7893010166744347`*^9}, {
284 3.789811488712532*^9, 3.7898114918030643`*^9}, {3.78998935154935*^9,
285 3.789989353156755*^9}, {3.7899894036965113`*^9, 3.789989445078186*^9},
286 3.7900767561970243`*^9},ExpressionUUID->"170fe361-3a39-4337-97bf-\
287649a759dd3c1"],
288
289Cell[CellGroupData[{
290
291Cell[BoxData[
292 RowBox[{"WriteParameters", "[", "]"}]], "Input",
293 CellChangeTimes->CompressedData["
2941:eJwdzU0og3EAx/HZDi5OlFlW48CUNZEibHk2ubAdyLIlSU022ohGKwcRB5EJ
295s7eDqE17aa22tmUO00ori6K1lVAkNW/bQbTi+f0P3z7Hb+24fkDNZDAYXDpo
296y8flS105ypllK6FV7BglrrjHoDCjmIBHXWYt1CVZs7BNN2eAsuzuKiyao8Th
297v7MdeHn4QZSY/BZoS0aJ05zrExh5nHFDraw8CN8fKmOQx9vMQ+6ilbiqrntd
298pl0/CL/BfdNzASpMT9+wr6m5wY9vYzextD7NWRDlKHfqpxpy7WL+Bq3ha04A
29903LmOly8rSSmpswpuG20XkFjqEN5TFvj8hBb9AmPizaQ0PtgbNAXhk1x1Sks
300PgQz0KuN30NBZIiKS3IUe+uC+LnWKT6nFYVkPdDxYpfDKs3jPJxlVVjgsFdo
301h9lCr3NSmqPaR26IKpE0AO8ke0RFGb9VQ/tb0k/8B1vd4xw=
302 "],
303 CellLabel->"In[5]:=",ExpressionUUID->"c1a90442-39ab-4c63-b40f-1e7cafafbe37"],
304
305Cell[BoxData["\<\"Writing output to ScotoSinglet_real.pars.\"\>"], "Print",
306 CellChangeTimes->{3.79959938465429*^9},
307 CellLabel->
308 "During evaluation of \
309In[5]:=",ExpressionUUID->"99b219f1-d5d1-46c2-ba77-89aa17d463ae"]
310}, Open ]],
311
312Cell[TextData[StyleBox["Perform simple checks", "Subsubsection"]], "Text",
313 CellChangeTimes->{{3.789811499196226*^9, 3.789811502122974*^9}, {
314 3.7899893864178333`*^9, 3.7899893903572073`*^9}, {3.789989447538887*^9,
315 3.7899894500211287`*^9}, 3.7900767676147223`*^9, 3.793096888818193*^9, {
316 3.793099217438114*^9,
317 3.793099220010929*^9}},ExpressionUUID->"a5a41769-4316-40b4-928e-\
3186e2c0496623c"],
319
320Cell[CellGroupData[{
321
322Cell[BoxData[
323 RowBox[{"CheckHermiticity", "[", "LScSM", "]"}]], "Input",
324 CellChangeTimes->{{3.784625104652288*^9, 3.784625105227826*^9}, {
325 3.7892917737784*^9, 3.7892918293126307`*^9}, {3.789293917309153*^9,
326 3.7892939181802473`*^9}, {3.789304246083911*^9, 3.789304247813117*^9}},
327 CellLabel->"In[7]:=",ExpressionUUID->"88edfc4c-2d3e-4c6c-add4-0adacd5d37c1"],
328
329Cell[CellGroupData[{
330
331Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
332contained in L-HC[L].\"\>"], "Print",
333 CellChangeTimes->{3.7995994918583193`*^9},
334 CellLabel->
335 "During evaluation of \
336In[7]:=",ExpressionUUID->"d2087af3-9339-4e8a-a03b-f5dbead8a6e7"],
337
338Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
339should be zero.\"\>"], "Print",
340 CellChangeTimes->{3.7995994918608313`*^9},
341 CellLabel->
342 "During evaluation of \
343In[7]:=",ExpressionUUID->"29288148-ec30-423d-be57-34402e021a54"],
344
345Cell[BoxData[
346 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
347 StripOnInput->False,
348 LineColor->RGBColor[1, 0.5, 0],
349 FrontFaceColor->RGBColor[1, 0.5, 0],
350 BackFaceColor->RGBColor[1, 0.5, 0],
351 GraphicsColor->RGBColor[1, 0.5, 0],
352 FontWeight->Bold,
353 FontColor->RGBColor[1, 0.5, 0]]], "Print",
354 CellChangeTimes->{3.799599507109768*^9},
355 CellLabel->
356 "During evaluation of \
357In[7]:=",ExpressionUUID->"7eecaaa5-c91a-41a5-b2f9-f0bc2fd6a177"],
358
359Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
360 CellChangeTimes->{3.7995995071114407`*^9},
361 CellLabel->
362 "During evaluation of \
363In[7]:=",ExpressionUUID->"e353ff8e-1cf0-424f-b9df-731169ed7c1b"],
364
365Cell[BoxData["\<\"Collecting the different structures that enter the \
366vertex.\"\>"], "Print",
367 CellChangeTimes->{3.799599507462842*^9},
368 CellLabel->
369 "During evaluation of \
370In[7]:=",ExpressionUUID->"e932b978-ef00-41aa-b778-fb7c5142b2db"],
371
372Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
373 CellChangeTimes->{3.799599507468939*^9},
374 CellLabel->
375 "During evaluation of \
376In[7]:=",ExpressionUUID->"9eebda9c-d76c-446c-b363-da659d2cf5b0"],
377
378Cell[BoxData[
379 InterpretationBox[
380 RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
381 SequenceForm[0, " vertices obtained."],
382 Editable->False]], "Print",
383 CellChangeTimes->{3.799599507470684*^9},
384 CellLabel->
385 "During evaluation of \
386In[7]:=",ExpressionUUID->"5d38029e-bccb-47e5-8352-66c3d836aea7"],
387
388Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
389 CellChangeTimes->{3.799599507472027*^9},
390 CellLabel->
391 "During evaluation of \
392In[7]:=",ExpressionUUID->"5402c0e6-d2e7-4141-88d7-410d6584d3d2"]
393}, Open ]],
394
395Cell[BoxData[
396 RowBox[{"{", "}"}]], "Output",
397 CellChangeTimes->{3.7995995075352488`*^9},
398 CellLabel->"Out[7]=",ExpressionUUID->"0ce58c5f-bc12-4851-b4c5-3f1ac3d7db4c"]
399}, Open ]],
400
401Cell[CellGroupData[{
402
403Cell[BoxData[
404 RowBox[{"CheckDiagonalKineticTerms", "[", "LScSM", "]"}]], "Input",
405 CellChangeTimes->{{3.789293949637062*^9, 3.789293956565846*^9}, {
406 3.789300322979476*^9, 3.789300323738531*^9}, 3.789304255947298*^9},
407 CellLabel->"In[8]:=",ExpressionUUID->"0f8628b0-fe37-43b7-97dc-3eddb42bfbd5"],
408
409Cell[BoxData["\<\"All kinetic terms are diagonal.\"\>"], "Print",
410 CellChangeTimes->{3.799599518795669*^9},
411 CellLabel->
412 "During evaluation of \
413In[8]:=",ExpressionUUID->"a8025ceb-96e9-4876-b24f-985975c62953"],
414
415Cell[BoxData["True"], "Output",
416 CellChangeTimes->{3.799599518799521*^9},
417 CellLabel->"Out[8]=",ExpressionUUID->"dfa620e4-97b2-46ff-ab40-4d8d929013d8"]
418}, Open ]],
419
420Cell[CellGroupData[{
421
422Cell[BoxData[
423 RowBox[{"Simplify", "[",
424 RowBox[{"CheckDiagonalMassTerms", "[", "LScSM", "]"}], "]"}]], "Input",
425 CellChangeTimes->{{3.789293960382496*^9, 3.7892939664932127`*^9},
426 3.789304256699902*^9, {3.7900780027319117`*^9, 3.790078005442561*^9}},
427 CellLabel->"In[9]:=",ExpressionUUID->"16a3146b-e237-4dd0-a25e-e0519070bade"],
428
429Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
430 CellChangeTimes->{3.799599529553729*^9},
431 CellLabel->
432 "During evaluation of \
433In[9]:=",ExpressionUUID->"66fbe4d9-1ca8-49ff-aa69-becee076d31a"],
434
435Cell[BoxData["True"], "Output",
436 CellChangeTimes->{3.7995995295556927`*^9},
437 CellLabel->"Out[9]=",ExpressionUUID->"c322a33b-acdc-4139-955b-72e250c9c47f"]
438}, Open ]],
439
440Cell[CellGroupData[{
441
442Cell[BoxData[
443 RowBox[{"CheckDiagonalQuadraticTerms", "[", "LScSM", "]"}]], "Input",
444 CellChangeTimes->{{3.789293969470745*^9, 3.789293975044908*^9}, {
445 3.7892942375106*^9, 3.789294239256756*^9}, 3.789304257596225*^9, {
446 3.789737150292604*^9, 3.789737150528075*^9}},
447 CellLabel->"In[10]:=",ExpressionUUID->"b057491c-ae77-4513-a703-dcae4668bfc9"],
448
449Cell[CellGroupData[{
450
451Cell[BoxData[
452 InterpretationBox[
453 RowBox[{"\<\"Neglecting all terms with less than \"\>",
454 "\[InvisibleSpace]", "\<\"2\"\>",
455 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
456 SequenceForm["Neglecting all terms with less than ", "2", " particles."],
457 Editable->False]], "Print",
458 CellChangeTimes->{3.799599539467009*^9},
459 CellLabel->
460 "During evaluation of \
461In[10]:=",ExpressionUUID->"44cdf239-1ae5-4499-bb6a-d31fc606924f"],
462
463Cell[BoxData["\<\"All quadratic terms are diagonal.\"\>"], "Print",
464 CellChangeTimes->{3.799599539552423*^9},
465 CellLabel->
466 "During evaluation of \
467In[10]:=",ExpressionUUID->"0b256f3c-8f2a-4504-9f29-4cb06073c7e5"]
468}, Open ]],
469
470Cell[BoxData["True"], "Output",
471 CellChangeTimes->{3.799599539559346*^9},
472 CellLabel->"Out[10]=",ExpressionUUID->"31388f1e-67ec-4514-ae7c-3c102b29b144"]
473}, Open ]],
474
475Cell[CellGroupData[{
476
477Cell[BoxData[
478 RowBox[{"CheckKineticTermNormalisation", "[", "LScSM", "]"}]], "Input",
479 CellChangeTimes->{{3.789293979576786*^9, 3.789293979928988*^9},
480 3.789304258303879*^9},
481 CellLabel->"In[11]:=",ExpressionUUID->"140944d1-b5d9-4f41-ac0d-ea31bd0bd419"],
482
483Cell[CellGroupData[{
484
485Cell[BoxData[
486 InterpretationBox[
487 RowBox[{"\<\"Neglecting all terms with more than \"\>",
488 "\[InvisibleSpace]", "\<\"2\"\>",
489 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
490 SequenceForm["Neglecting all terms with more than ", "2", " particles."],
491 Editable->False]], "Print",
492 CellChangeTimes->{3.79959954933001*^9},
493 CellLabel->
494 "During evaluation of \
495In[11]:=",ExpressionUUID->"7124ab39-9cc6-4822-9f0f-a0d56eec3eae"],
496
497Cell[BoxData["\<\"All kinetic terms are diagonal.\"\>"], "Print",
498 CellChangeTimes->{3.799599550064185*^9},
499 CellLabel->
500 "During evaluation of \
501In[11]:=",ExpressionUUID->"a9e6d420-45ce-468f-af7e-e263894977c8"],
502
503Cell[BoxData["\<\"All kinetic terms are correctly normalized.\"\>"], "Print",
504 CellChangeTimes->{3.799599556044591*^9},
505 CellLabel->
506 "During evaluation of \
507In[11]:=",ExpressionUUID->"6e8e1431-5b64-4d26-8ecf-e7f797177754"]
508}, Open ]],
509
510Cell[BoxData["True"], "Output",
511 CellChangeTimes->{3.799599556046928*^9},
512 CellLabel->"Out[11]=",ExpressionUUID->"5b2e07d7-be01-47a8-bd09-314e189bba23"]
513}, Open ]],
514
515Cell[CellGroupData[{
516
517Cell[BoxData[
518 RowBox[{"Simplify", "[",
519 RowBox[{"CheckMassSpectrum", "[", "LScSM", "]"}], "]"}]], "Input",
520 CellChangeTimes->{
521 3.789304259263915*^9, {3.790364056766529*^9, 3.790364085253911*^9}},
522 CellLabel->"In[12]:=",ExpressionUUID->"6dfc5727-16d8-4aa1-ace7-cbbdf5b1d4ee"],
523
524Cell[CellGroupData[{
525
526Cell[BoxData[
527 InterpretationBox[
528 RowBox[{"\<\"Neglecting all terms with more than \"\>",
529 "\[InvisibleSpace]", "\<\"2\"\>",
530 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
531 SequenceForm["Neglecting all terms with more than ", "2", " particles."],
532 Editable->False]], "Print",
533 CellChangeTimes->{3.799599566072772*^9},
534 CellLabel->
535 "During evaluation of \
536In[12]:=",ExpressionUUID->"18ea9c6b-08f2-4ba1-ac69-d092940b9e61"],
537
538Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
539 CellChangeTimes->{3.799599566648995*^9},
540 CellLabel->
541 "During evaluation of \
542In[12]:=",ExpressionUUID->"5e2d41aa-17a7-491b-9db3-42711d69ff4f"],
543
544Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
545 CellChangeTimes->{3.799599572417412*^9},
546 CellLabel->
547 "During evaluation of \
548In[12]:=",ExpressionUUID->"091b09c4-d4de-498e-a69e-79235d8d8a4a"],
549
550Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
551values.\"\>"], "Print",
552 CellChangeTimes->{3.799599572418545*^9},
553 CellLabel->
554 "During evaluation of \
555In[12]:=",ExpressionUUID->"70028c01-d08c-42df-967a-8158f64a2673"]
556}, Open ]],
557
558Cell[BoxData[
559 TagBox[GridBox[{
560 {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
561"\<\"Model-file value\"\>"},
562 {"eta1",
563 FractionBox[
564 SqrtBox[
565 RowBox[{
566 RowBox[{"4", " ", "ctheta", " ", "kappa", " ", "stheta", " ", "v"}],
567 "+",
568 RowBox[{
569 SuperscriptBox["ctheta", "2"], " ",
570 RowBox[{"(",
571 RowBox[{
572 RowBox[{"2", " ", "mPhisq"}], "+",
573 RowBox[{
574 RowBox[{"(",
575 RowBox[{"lHPhi1", "+", "lHPhi2", "+", "lHPhi3"}], ")"}], " ",
576 SuperscriptBox["v", "2"]}]}], ")"}]}], "+",
577 RowBox[{
578 SuperscriptBox["stheta", "2"], " ",
579 RowBox[{"(",
580 RowBox[{
581 RowBox[{"2", " ", "mvarphisq"}], "+",
582 RowBox[{"lHvarphi", " ",
583 SuperscriptBox["v", "2"]}]}], ")"}]}]}]],
584 SqrtBox["2"]], "205.00000000000003`", "205.`"},
585 {"h",
586 SqrtBox[
587 RowBox[{
588 RowBox[{"-",
589 SuperscriptBox["muH", "2"]}], "+",
590 RowBox[{"3", " ", "lH", " ",
591 SuperscriptBox["v", "2"]}]}]], "125.09`", "125.09`"},
592 {"eta2",
593 FractionBox[
594 SqrtBox[
595 RowBox[{
596 RowBox[{
597 RowBox[{"-", "4"}], " ", "ctheta", " ", "kappa", " ", "stheta", " ",
598 "v"}], "+",
599 RowBox[{
600 SuperscriptBox["stheta", "2"], " ",
601 RowBox[{"(",
602 RowBox[{
603 RowBox[{"2", " ", "mPhisq"}], "+",
604 RowBox[{
605 RowBox[{"(",
606 RowBox[{"lHPhi1", "+", "lHPhi2", "+", "lHPhi3"}], ")"}], " ",
607 SuperscriptBox["v", "2"]}]}], ")"}]}], "+",
608 RowBox[{
609 SuperscriptBox["ctheta", "2"], " ",
610 RowBox[{"(",
611 RowBox[{
612 RowBox[{"2", " ", "mvarphisq"}], "+",
613 RowBox[{"lHvarphi", " ",
614 SuperscriptBox["v", "2"]}]}], ")"}]}]}]],
615 SqrtBox["2"]], "105.00000000000001`", "105.`"},
616 {"phich",
617 SqrtBox[
618 RowBox[{"mPhisq", "+",
619 FractionBox[
620 RowBox[{"lHPhi1", " ",
621 SuperscriptBox["v", "2"]}], "2"]}]], "182.34677572946958`",
622 "182.34677572946958`"},
623 {"phiI",
624 SqrtBox[
625 RowBox[{"mPhisq", "+",
626 RowBox[{
627 FractionBox["1", "2"], " ",
628 RowBox[{"(",
629 RowBox[{"lHPhi1", "+", "lHPhi2", "-", "lHPhi3"}], ")"}], " ",
630 SuperscriptBox["v", "2"]}]}]], "200.00000000000003`", "200.`"},
631 {"N1", "mN1", "135.`", "135.`"},
632 {"N2", "mN2", "120.`", "120.`"},
633 {"b",
634 SubscriptBox["m", "b"], "4.23`", "4.23`"},
635 {"s", "MS", "0.1`", "0.1`"},
636 {"m", "MM", "0.1057`", "0.1057`"},
637 {"ta", "MTA", "1.777`", "1.777`"},
638 {"c",
639 SubscriptBox["m", "c"], "1.2`", "1.2`"},
640 {"t",
641 SubscriptBox["m", "t"], "175.`", "175.`"},
642 {"W",
643 RowBox[{
644 FractionBox["1", "2"], " ",
645 SqrtBox[
646 FractionBox[
647 RowBox[{
648 SuperscriptBox["ee", "2"], " ",
649 SuperscriptBox["v", "2"]}],
650 SubsuperscriptBox["s", "w", "2"]]]}], "79.91806039644412`", "79.947`"},
651 {"Z",
652 RowBox[{
653 FractionBox["1", "2"], " ",
654 SqrtBox[
655 FractionBox[
656 RowBox[{
657 SuperscriptBox["ee", "2"], " ",
658 SuperscriptBox[
659 RowBox[{"(",
660 RowBox[{
661 SubsuperscriptBox["c", "w", "2"], "+",
662 SubsuperscriptBox["s", "w", "2"]}], ")"}], "2"], " ",
663 SuperscriptBox["v", "2"]}],
664 RowBox[{
665 SubsuperscriptBox["c", "w", "2"], " ",
666 SubsuperscriptBox["s", "w", "2"]}]]]}], "91.15459146943337`",
667 "91.1876`"}
668 },
669 GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
670 GridBoxSpacings->{"Columns" -> {
671 Offset[0.27999999999999997`], {
672 Offset[2.0999999999999996`]},
673 Offset[0.27999999999999997`]}, "Rows" -> {
674 Offset[0.2], {
675 Offset[0.4]},
676 Offset[0.2]}}],
677 Function[BoxForm`e$,
678 TableForm[BoxForm`e$]]]], "Output",
679 CellChangeTimes->{3.7995995725272293`*^9},
680 CellLabel->
681 "Out[12]//TableForm=",ExpressionUUID->"fef25194-3dad-442e-b261-\
6825ec1d561c5c9"]
683}, Open ]],
684
685Cell[TextData[StyleBox["Generate CalcHEP/CompHEP files for micrOMEGAs", \
686"Subsubsection"]], "Text",
687 CellChangeTimes->{{3.789294062148047*^9, 3.78929406683598*^9}, {
688 3.789478601355455*^9, 3.789478606833503*^9}, {3.789989394094262*^9,
689 3.789989399182137*^9}, {3.789989455126007*^9, 3.7899894587370768`*^9}, {
690 3.790076770583076*^9, 3.7900767719288*^9}, {3.793099223340063*^9,
691 3.793099225478799*^9}},ExpressionUUID->"a32e5e2c-1e6b-47e9-a372-\
692657fd27d2de6"],
693
694Cell[CellGroupData[{
695
696Cell[BoxData[
697 RowBox[{"WriteCHOutput", "[",
698 RowBox[{"LScSM", ",",
699 RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
700 CellChangeTimes->{{3.793101457622815*^9, 3.7931014585018463`*^9}, {
701 3.799599387395208*^9, 3.799599388897168*^9}},
702 CellLabel->"In[6]:=",ExpressionUUID->"17516661-3fda-42d2-aa74-327714c1dec0"],
703
704Cell[CellGroupData[{
705
706Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
707 CellChangeTimes->{3.799599394448846*^9},
708 CellLabel->
709 "During evaluation of \
710In[6]:=",ExpressionUUID->"90f78367-7842-48cb-bd44-798e6bcaf4ce"],
711
712Cell[BoxData[
713 InterpretationBox[
714 RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
715 StyleBox["\<\"Authors:\"\>",
716 StripOnInput->False,
717 LineColor->RGBColor[0, 0, 1],
718 FrontFaceColor->RGBColor[0, 0, 1],
719 BackFaceColor->RGBColor[0, 0, 1],
720 GraphicsColor->RGBColor[0, 0, 1],
721 FontColor->RGBColor[0, 0, 1]],
722 "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
723 SequenceForm[" - - - ",
724 Style["Authors:",
725 RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
726 Editable->False]], "Print",
727 CellChangeTimes->{3.799599394450521*^9},
728 CellLabel->
729 "During evaluation of \
730In[6]:=",ExpressionUUID->"fbed9c4d-0232-4b93-a9aa-295e5b8a7a34"],
731
732Cell[BoxData[
733 InterpretationBox[
734 RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
735 StyleBox["\<\"Please cite:\"\>",
736 StripOnInput->False,
737 LineColor->RGBColor[0, 0, 1],
738 FrontFaceColor->RGBColor[0, 0, 1],
739 BackFaceColor->RGBColor[0, 0, 1],
740 GraphicsColor->RGBColor[0, 0, 1],
741 FontColor->RGBColor[0, 0, 1]],
742 "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
743 SequenceForm[" - - - ",
744 Style["Please cite:",
745 RGBColor[0, 0, 1]], " arXiv:0906.2474"],
746 Editable->False]], "Print",
747 CellChangeTimes->{3.799599394454528*^9},
748 CellLabel->
749 "During evaluation of \
750In[6]:=",ExpressionUUID->"ca0c805e-2984-4477-9144-ef42f7ee1262"],
751
752Cell[BoxData[
753 InterpretationBox[
754 RowBox[{
755 StyleBox["\<\"\\nWriting\"\>",
756 StripOnInput->False,
757 LineColor->RGBColor[0, 0, 1],
758 FrontFaceColor->RGBColor[0, 0, 1],
759 BackFaceColor->RGBColor[0, 0, 1],
760 GraphicsColor->RGBColor[0, 0, 1],
761 FontColor->RGBColor[0, 0, 1]],
762 "\[InvisibleSpace]", "\<\" files to \
763/Users/ankitbeniwal/Documents/Projects/ScotoSinglet/feynrules-current/Models/\
764ScotoSinglet/ScotoSinglet_real-CH.\"\>"}],
765 SequenceForm[
766 Style["\nWriting",
767 RGBColor[0, 0, 1]],
768 " files to \
769/Users/ankitbeniwal/Documents/Projects/ScotoSinglet/feynrules-current/Models/\
770ScotoSinglet/ScotoSinglet_real-CH."],
771 Editable->False]], "Print",
772 CellChangeTimes->{3.799599394455687*^9},
773 CellLabel->
774 "During evaluation of \
775In[6]:=",ExpressionUUID->"834464e6-843a-475c-b076-ed83ef842be8"],
776
777Cell[BoxData[
778 InterpretationBox[
779 RowBox[{
780 StyleBox["\<\"\\nWriting\"\>",
781 StripOnInput->False,
782 LineColor->RGBColor[0, 0, 1],
783 FrontFaceColor->RGBColor[0, 0, 1],
784 BackFaceColor->RGBColor[0, 0, 1],
785 GraphicsColor->RGBColor[0, 0, 1],
786 FontColor->RGBColor[0, 0, 1]],
787 "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
788 SequenceForm[
789 Style["\nWriting",
790 RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
791 Editable->False]], "Print",
792 CellChangeTimes->{3.799599394457511*^9},
793 CellLabel->
794 "During evaluation of \
795In[6]:=",ExpressionUUID->"8f16c695-9e5f-4a79-9734-c6f44ae6aaea"],
796
797Cell[BoxData[
798 InterpretationBox[
799 RowBox[{
800 StyleBox["\<\"\\nWriting\"\>",
801 StripOnInput->False,
802 LineColor->RGBColor[0, 0, 1],
803 FrontFaceColor->RGBColor[0, 0, 1],
804 BackFaceColor->RGBColor[0, 0, 1],
805 GraphicsColor->RGBColor[0, 0, 1],
806 FontColor->RGBColor[0, 0, 1]],
807 "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
808 SequenceForm[
809 Style["\nWriting",
810 RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
811 Editable->False]], "Print",
812 CellChangeTimes->{3.7995993944838*^9},
813 CellLabel->
814 "During evaluation of \
815In[6]:=",ExpressionUUID->"ed597493-6e6c-4575-8aac-7c63b7304c61"],
816
817Cell[BoxData[
818 InterpretationBox[
819 RowBox[{
820 StyleBox["\<\"\\nWriting\"\>",
821 StripOnInput->False,
822 LineColor->RGBColor[0, 0, 1],
823 FrontFaceColor->RGBColor[0, 0, 1],
824 BackFaceColor->RGBColor[0, 0, 1],
825 GraphicsColor->RGBColor[0, 0, 1],
826 FontColor->RGBColor[0, 0, 1]],
827 "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
828 SequenceForm[
829 Style["\nWriting",
830 RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
831 Editable->False]], "Print",
832 CellChangeTimes->{3.799599394485195*^9},
833 CellLabel->
834 "During evaluation of \
835In[6]:=",ExpressionUUID->"dc2087c4-2fe2-4f90-8b4e-b92c77f727d1"],
836
837Cell[BoxData[
838 InterpretationBox[
839 RowBox[{
840 StyleBox["\<\"\\nWriting\"\>",
841 StripOnInput->False,
842 LineColor->RGBColor[0, 0, 1],
843 FrontFaceColor->RGBColor[0, 0, 1],
844 BackFaceColor->RGBColor[0, 0, 1],
845 GraphicsColor->RGBColor[0, 0, 1],
846 FontColor->RGBColor[0, 0, 1]],
847 "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
848 SequenceForm[
849 Style["\nWriting",
850 RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
851 Editable->False]], "Print",
852 CellChangeTimes->{3.799599394561882*^9},
853 CellLabel->
854 "During evaluation of \
855In[6]:=",ExpressionUUID->"df546d51-2654-421f-9339-5509d65a530f"],
856
857Cell[BoxData["\<\"\"\>"], "Print",
858 CellChangeTimes->{3.79959939456324*^9},
859 CellLabel->
860 "During evaluation of \
861In[6]:=",ExpressionUUID->"666b52a2-e118-4094-bf64-c708612fb8a6"],
862
863Cell[BoxData[
864 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
865 StripOnInput->False,
866 LineColor->RGBColor[1, 0.5, 0],
867 FrontFaceColor->RGBColor[1, 0.5, 0],
868 BackFaceColor->RGBColor[1, 0.5, 0],
869 GraphicsColor->RGBColor[1, 0.5, 0],
870 FontWeight->Bold,
871 FontColor->RGBColor[1, 0.5, 0]]], "Print",
872 CellChangeTimes->{3.799599394806992*^9},
873 CellLabel->
874 "During evaluation of \
875In[6]:=",ExpressionUUID->"724f492e-ff33-424c-a958-fb3a07b56f6d"],
876
877Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
878 CellChangeTimes->{3.7995993948083973`*^9},
879 CellLabel->
880 "During evaluation of \
881In[6]:=",ExpressionUUID->"69b09653-faac-44e0-bff6-7f21b5c4206c"],
882
883Cell[BoxData[
884 InterpretationBox[
885 RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
886 "\[InvisibleSpace]", "\<\" cores\"\>"}],
887 SequenceForm["Expanding the indices over ", 4, " cores"],
888 Editable->False]], "Print",
889 CellChangeTimes->{3.799599394809702*^9},
890 CellLabel->
891 "During evaluation of \
892In[6]:=",ExpressionUUID->"a0725450-964c-4c9e-bd69-8e8806c7f73d"],
893
894Cell[BoxData[
895 InterpretationBox[
896 RowBox[{"\<\"Neglecting all terms with more than \"\>",
897 "\[InvisibleSpace]", "\<\"4\"\>",
898 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
899 SequenceForm["Neglecting all terms with more than ", "4", " particles."],
900 Editable->False]], "Print",
901 CellChangeTimes->{3.7995993948732767`*^9},
902 CellLabel->
903 "During evaluation of \
904In[6]:=",ExpressionUUID->"6d85a386-2ddd-43b6-a727-96e978e8d287"],
905
906Cell[BoxData["\<\"Collecting the different structures that enter the \
907vertex.\"\>"], "Print",
908 CellChangeTimes->{3.799599401435712*^9},
909 CellLabel->
910 "During evaluation of \
911In[6]:=",ExpressionUUID->"f2eae07c-2015-4f0c-9bbf-83c8ca320f71"],
912
913Cell[BoxData[
914 InterpretationBox[
915 RowBox[{
916 "137", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
917found -> starting the computation: \"\>", "\[InvisibleSpace]",
918 DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
919 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
920 "\[InvisibleSpace]", "137", "\[InvisibleSpace]", "\<\".\"\>"}],
921 SequenceForm[
922 137, " possible non-zero vertices have been found -> starting the \
923computation: ",
924 Dynamic[FeynRules`FR$FeynmanRules], " / ", 137, "."],
925 Editable->False]], "Print",
926 CellChangeTimes->{3.799599401510968*^9},
927 CellLabel->
928 "During evaluation of \
929In[6]:=",ExpressionUUID->"a6d4b24c-1c95-4432-904c-174069553285"],
930
931Cell[BoxData[
932 InterpretationBox[
933 RowBox[{"137", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
934 SequenceForm[137, " vertices obtained."],
935 Editable->False]], "Print",
936 CellChangeTimes->{3.7995994064059887`*^9},
937 CellLabel->
938 "During evaluation of \
939In[6]:=",ExpressionUUID->"e3d8f7ac-726e-451f-879c-eff52c14e6f3"],
940
941Cell[BoxData[
942 InterpretationBox[
943 RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
944 "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
945 "\[InvisibleSpace]",
946 DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
947 ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
948 "\[InvisibleSpace]", "137"}],
949 SequenceForm[
950 "Flavor expansion of the vertices distributed over ", 4, " cores: ",
951 Dynamic[FeynRules`FR$Count1], " / ", 137],
952 Editable->False]], "Print",
953 CellChangeTimes->{3.799599408073266*^9},
954 CellLabel->
955 "During evaluation of \
956In[6]:=",ExpressionUUID->"4291ba00-6a4d-4025-8363-008cc9add6e5"],
957
958Cell[BoxData[
959 InterpretationBox[
960 RowBox[{
961 StyleBox["\<\"\\nWriting\"\>",
962 StripOnInput->False,
963 LineColor->RGBColor[0, 0, 1],
964 FrontFaceColor->RGBColor[0, 0, 1],
965 BackFaceColor->RGBColor[0, 0, 1],
966 GraphicsColor->RGBColor[0, 0, 1],
967 FontColor->RGBColor[0, 0, 1]],
968 "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
969variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
970'vars1.mdl'.\"\>"}],
971 SequenceForm[
972 Style["\nWriting",
973 RGBColor[0, 0, 1]],
974 " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
975particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
976 Editable->False]], "Print",
977 CellChangeTimes->{3.7995994146268463`*^9},
978 CellLabel->
979 "During evaluation of \
980In[6]:=",ExpressionUUID->"1dfa1437-3506-4e2b-bcaf-3997f95c7431"],
981
982Cell[BoxData[
983 InterpretationBox[
984 RowBox[{
985 StyleBox["\<\"\\nFinishing\"\>",
986 StripOnInput->False,
987 LineColor->RGBColor[0, 0, 1],
988 FrontFaceColor->RGBColor[0, 0, 1],
989 BackFaceColor->RGBColor[0, 0, 1],
990 GraphicsColor->RGBColor[0, 0, 1],
991 FontColor->RGBColor[0, 0, 1]],
992 "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
993 SequenceForm[
994 Style["\nFinishing",
995 RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
996 Editable->False]], "Print",
997 CellChangeTimes->{3.7995994175460663`*^9},
998 CellLabel->
999 "During evaluation of \
1000In[6]:=",ExpressionUUID->"8d200155-d053-4961-a188-7e40b8c04116"],
1001
1002Cell[BoxData[
1003 InterpretationBox[
1004 RowBox[{
1005 StyleBox["\<\"Finishing\"\>",
1006 StripOnInput->False,
1007 LineColor->RGBColor[0, 0, 1],
1008 FrontFaceColor->RGBColor[0, 0, 1],
1009 BackFaceColor->RGBColor[0, 0, 1],
1010 GraphicsColor->RGBColor[0, 0, 1],
1011 FontColor->RGBColor[0, 0, 1]],
1012 "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
1013 SequenceForm[
1014 Style["Finishing",
1015 RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
1016 Editable->False]], "Print",
1017 CellChangeTimes->{3.7995994176107492`*^9},
1018 CellLabel->
1019 "During evaluation of \
1020In[6]:=",ExpressionUUID->"3c3411e9-d8c4-43bf-b524-23879ba597ed"],
1021
1022Cell[BoxData[
1023 InterpretationBox[
1024 RowBox[{
1025 StyleBox["\<\"\\nDone\"\>",
1026 StripOnInput->False,
1027 LineColor->RGBColor[0, 0, 1],
1028 FrontFaceColor->RGBColor[0, 0, 1],
1029 BackFaceColor->RGBColor[0, 0, 1],
1030 GraphicsColor->RGBColor[0, 0, 1],
1031 FontColor->RGBColor[0, 0, 1]],
1032 "\[InvisibleSpace]", "\<\" in 0.39min!\"\>"}],
1033 SequenceForm[
1034 Style["\nDone",
1035 RGBColor[0, 0, 1]], " in 0.39min!"],
1036 Editable->False]], "Print",
1037 CellChangeTimes->{3.799599417612454*^9},
1038 CellLabel->
1039 "During evaluation of \
1040In[6]:=",ExpressionUUID->"f3c151e7-9e30-4620-a635-dae67f0c465c"]
1041}, Open ]]
1042}, Open ]]
1043}, Open ]]
1044},
1045WindowSize->{Full, Full},
1046WindowMargins->{{Automatic, 0}, {Automatic, 0}},
1047PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
1048FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
1049StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb",
1050 CharacterEncoding -> "UTF-8"]
1051]
1052(* End of Notebook Content *)
1053
1054(* Internal cache information *)
1055(*CellTagsOutline
1056CellTagsIndex->{}
1057*)
1058(*CellTagsIndex
1059CellTagsIndex->{}
1060*)
1061(*NotebookFileOutline
1062Notebook[{
1063Cell[CellGroupData[{
1064Cell[567, 22, 1398, 23, 124, "Subtitle",ExpressionUUID->"c05b804a-5b4a-4cff-a9d7-fab33314664a"],
1065Cell[1968, 47, 196, 3, 41, "Input",ExpressionUUID->"30e709fa-a0b4-4161-965c-065c98440be8"]
1066}, Open ]],
1067Cell[CellGroupData[{
1068Cell[2201, 55, 286, 5, 27, "Subtitle",ExpressionUUID->"9cd05465-e4c4-4c51-b6c9-29f9e51bf427"],
1069Cell[CellGroupData[{
1070Cell[2512, 64, 1571, 27, 63, "Input",ExpressionUUID->"7e4de0df-9595-4a69-95d5-009359f3091a"],
1071Cell[CellGroupData[{
1072Cell[4108, 95, 195, 4, 24, "Print",ExpressionUUID->"16748404-6b0d-48ea-b459-b74570f17c00"],
1073Cell[4306, 101, 478, 11, 24, "Print",ExpressionUUID->"0019181d-fc3f-4ab5-b63e-fe4f5cf01041"],
1074Cell[4787, 114, 247, 5, 24, "Print",ExpressionUUID->"64d2cd60-bf54-4a24-b747-de943038afe4"],
1075Cell[5037, 121, 181, 4, 24, "Print",ExpressionUUID->"8305a247-9bae-4804-a6f2-a64296ea2290"],
1076Cell[5221, 127, 192, 4, 24, "Print",ExpressionUUID->"9a9be933-e0a9-48a6-b22d-4f18ccd3d3d4"],
1077Cell[5416, 133, 246, 5, 24, "Print",ExpressionUUID->"388d36ce-90ed-479a-8a1a-8a4ceb1a9883"],
1078Cell[5665, 140, 246, 5, 24, "Print",ExpressionUUID->"49fe9560-4948-4e7c-a978-b8b3981784be"],
1079Cell[5914, 147, 181, 4, 24, "Print",ExpressionUUID->"febf0fc2-46a0-4da9-b7ee-83797ab1a49c"],
1080Cell[6098, 153, 211, 4, 24, "Print",ExpressionUUID->"944a13bf-5675-4f83-9833-b8f93bdffa58"],
1081Cell[6312, 159, 183, 4, 24, "Print",ExpressionUUID->"5f6c369c-1a14-4ae9-aa32-3c5f73d3ff3b"],
1082Cell[6498, 165, 248, 5, 24, "Print",ExpressionUUID->"bb78f889-1e09-46d4-8923-5f630fb9ef51"]
1083}, Open ]]
1084}, Open ]],
1085Cell[6773, 174, 391, 5, 39, "Text",ExpressionUUID->"089cca0f-8c0c-4a35-ae7f-aad05d8277b7"],
1086Cell[CellGroupData[{
1087Cell[7189, 183, 948, 16, 63, "Input",ExpressionUUID->"d0aea40e-d7da-4ae0-993f-510ad3586536"],
1088Cell[CellGroupData[{
1089Cell[8162, 203, 220, 4, 24, "Print",ExpressionUUID->"7b6aabaf-cfe7-405f-a6e6-4e5d8dd77fa6"],
1090Cell[8385, 209, 256, 5, 24, "Print",ExpressionUUID->"f3177245-5adf-4b1c-8987-e521db4bc2d0"],
1091Cell[8644, 216, 328, 8, 24, "Print",ExpressionUUID->"517d12bd-fc56-4b64-873f-556bb5285ea1"],
1092Cell[8975, 226, 232, 5, 24, "Print",ExpressionUUID->"af4d7941-7411-42c5-9c47-3ecacb73bdcd"],
1093Cell[9210, 233, 228, 5, 24, "Print",ExpressionUUID->"5c4513e7-48b4-48fc-bfda-e4436347d528"],
1094Cell[9441, 240, 180, 4, 24, "Print",ExpressionUUID->"a92b9f62-43c1-4e55-94f9-a73e3d810593"],
1095Cell[9624, 246, 212, 4, 24, "Print",ExpressionUUID->"d0de10bd-a623-4040-a219-d347aaf7cebd"],
1096Cell[9839, 252, 213, 4, 24, "Print",ExpressionUUID->"d898d0ea-2076-435a-8979-66a41e421c18"],
1097Cell[10055, 258, 211, 4, 24, "Print",ExpressionUUID->"938c279c-6afe-41cd-9b80-030328825d55"],
1098Cell[10269, 264, 402, 10, 44, "Print",ExpressionUUID->"555a1dc1-b9b0-4ac6-9946-1711fc4e136f"]
1099}, Open ]]
1100}, Open ]],
1101Cell[10698, 278, 446, 8, 34, "Text",ExpressionUUID->"170fe361-3a39-4337-97bf-649a759dd3c1"],
1102Cell[CellGroupData[{
1103Cell[11169, 290, 660, 12, 41, "Input",ExpressionUUID->"c1a90442-39ab-4c63-b40f-1e7cafafbe37"],
1104Cell[11832, 304, 220, 4, 24, "Print",ExpressionUUID->"99b219f1-d5d1-46c2-ba77-89aa17d463ae"]
1105}, Open ]],
1106Cell[12067, 311, 403, 6, 39, "Text",ExpressionUUID->"a5a41769-4316-40b4-928e-6e2c0496623c"],
1107Cell[CellGroupData[{
1108Cell[12495, 321, 363, 5, 41, "Input",ExpressionUUID->"88edfc4c-2d3e-4c6c-add4-0adacd5d37c1"],
1109Cell[CellGroupData[{
1110Cell[12883, 330, 263, 5, 24, "Print",ExpressionUUID->"d2087af3-9339-4e8a-a03b-f5dbead8a6e7"],
1111Cell[13149, 337, 259, 5, 24, "Print",ExpressionUUID->"29288148-ec30-423d-be57-34402e021a54"],
1112Cell[13411, 344, 452, 12, 24, "Print",ExpressionUUID->"7eecaaa5-c91a-41a5-b2f9-f0bc2fd6a177"],
1113Cell[13866, 358, 209, 4, 24, "Print",ExpressionUUID->"e353ff8e-1cf0-424f-b9df-731169ed7c1b"],
1114Cell[14078, 364, 240, 5, 24, "Print",ExpressionUUID->"e932b978-ef00-41aa-b778-fb7c5142b2db"],
1115Cell[14321, 371, 198, 4, 24, "Print",ExpressionUUID->"9eebda9c-d76c-446c-b363-da659d2cf5b0"],
1116Cell[14522, 377, 320, 8, 24, "Print",ExpressionUUID->"5d38029e-bccb-47e5-8352-66c3d836aea7"],
1117Cell[14845, 387, 208, 4, 24, "Print",ExpressionUUID->"5402c0e6-d2e7-4141-88d7-410d6584d3d2"]
1118}, Open ]],
1119Cell[15068, 394, 167, 3, 41, "Output",ExpressionUUID->"0ce58c5f-bc12-4851-b4c5-3f1ac3d7db4c"]
1120}, Open ]],
1121Cell[CellGroupData[{
1122Cell[15272, 402, 298, 4, 41, "Input",ExpressionUUID->"0f8628b0-fe37-43b7-97dc-3eddb42bfbd5"],
1123Cell[15573, 408, 211, 4, 24, "Print",ExpressionUUID->"a8025ceb-96e9-4876-b24f-985975c62953"],
1124Cell[15787, 414, 151, 2, 41, "Output",ExpressionUUID->"dfa620e4-97b2-46ff-ab40-4d8d929013d8"]
1125}, Open ]],
1126Cell[CellGroupData[{
1127Cell[15975, 421, 334, 5, 41, "Input",ExpressionUUID->"16a3146b-e237-4dd0-a25e-e0519070bade"],
1128Cell[16312, 428, 208, 4, 24, "Print",ExpressionUUID->"66fbe4d9-1ca8-49ff-aa69-becee076d31a"],
1129Cell[16523, 434, 153, 2, 41, "Output",ExpressionUUID->"c322a33b-acdc-4139-955b-72e250c9c47f"]
1130}, Open ]],
1131Cell[CellGroupData[{
1132Cell[16713, 441, 349, 5, 41, "Input",ExpressionUUID->"b057491c-ae77-4513-a703-dcae4668bfc9"],
1133Cell[CellGroupData[{
1134Cell[17087, 450, 432, 10, 24, "Print",ExpressionUUID->"44cdf239-1ae5-4499-bb6a-d31fc606924f"],
1135Cell[17522, 462, 214, 4, 24, "Print",ExpressionUUID->"0b256f3c-8f2a-4504-9f29-4cb06073c7e5"]
1136}, Open ]],
1137Cell[17751, 469, 152, 2, 41, "Output",ExpressionUUID->"31388f1e-67ec-4514-ae7c-3c102b29b144"]
1138}, Open ]],
1139Cell[CellGroupData[{
1140Cell[17940, 476, 257, 4, 41, "Input",ExpressionUUID->"140944d1-b5d9-4f41-ac0d-ea31bd0bd419"],
1141Cell[CellGroupData[{
1142Cell[18222, 484, 431, 10, 24, "Print",ExpressionUUID->"7124ab39-9cc6-4822-9f0f-a0d56eec3eae"],
1143Cell[18656, 496, 212, 4, 24, "Print",ExpressionUUID->"a9e6d420-45ce-468f-af7e-e263894977c8"],
1144Cell[18871, 502, 224, 4, 24, "Print",ExpressionUUID->"6e8e1431-5b64-4d26-8ecf-e7f797177754"]
1145}, Open ]],
1146Cell[19110, 509, 152, 2, 41, "Output",ExpressionUUID->"5b2e07d7-be01-47a8-bd09-314e189bba23"]
1147}, Open ]],
1148Cell[CellGroupData[{
1149Cell[19299, 516, 279, 5, 41, "Input",ExpressionUUID->"6dfc5727-16d8-4aa1-ace7-cbbdf5b1d4ee"],
1150Cell[CellGroupData[{
1151Cell[19603, 525, 432, 10, 24, "Print",ExpressionUUID->"18ea9c6b-08f2-4ba1-ac69-d092940b9e61"],
1152Cell[20038, 537, 209, 4, 24, "Print",ExpressionUUID->"5e2d41aa-17a7-491b-9db3-42711d69ff4f"],
1153Cell[20250, 543, 203, 4, 24, "Print",ExpressionUUID->"091b09c4-d4de-498e-a69e-79235d8d8a4a"],
1154Cell[20456, 549, 244, 5, 24, "Print",ExpressionUUID->"70028c01-d08c-42df-967a-8158f64a2673"]
1155}, Open ]],
1156Cell[20715, 557, 4108, 124, 503, "Output",ExpressionUUID->"fef25194-3dad-442e-b261-5ec1d561c5c9"]
1157}, Open ]],
1158Cell[24838, 684, 464, 7, 39, "Text",ExpressionUUID->"a32e5e2c-1e6b-47e9-a372-657fd27d2de6"],
1159Cell[CellGroupData[{
1160Cell[25327, 695, 332, 6, 41, "Input",ExpressionUUID->"17516661-3fda-42d2-aa74-327714c1dec0"],
1161Cell[CellGroupData[{
1162Cell[25684, 705, 225, 4, 24, "Print",ExpressionUUID->"90f78367-7842-48cb-bd44-798e6bcaf4ce"],
1163Cell[25912, 711, 666, 18, 24, "Print",ExpressionUUID->"fbed9c4d-0232-4b93-a9aa-295e5b8a7a34"],
1164Cell[26581, 731, 658, 18, 24, "Print",ExpressionUUID->"ca0c805e-2984-4477-9144-ef42f7ee1262"],
1165Cell[27242, 751, 824, 23, 44, "Print",ExpressionUUID->"834464e6-843a-475c-b076-ed83ef842be8"],
1166Cell[28069, 776, 630, 18, 44, "Print",ExpressionUUID->"8f16c695-9e5f-4a79-9734-c6f44ae6aaea"],
1167Cell[28702, 796, 642, 18, 44, "Print",ExpressionUUID->"ed597493-6e6c-4575-8aac-7c63b7304c61"],
1168Cell[29347, 816, 644, 18, 44, "Print",ExpressionUUID->"dc2087c4-2fe2-4f90-8b4e-b92c77f727d1"],
1169Cell[29994, 836, 644, 18, 44, "Print",ExpressionUUID->"df546d51-2654-421f-9339-5509d65a530f"],
1170Cell[30641, 856, 179, 4, 24, "Print",ExpressionUUID->"666b52a2-e118-4094-bf64-c708612fb8a6"],
1171Cell[30823, 862, 452, 12, 24, "Print",ExpressionUUID->"724f492e-ff33-424c-a958-fb3a07b56f6d"],
1172Cell[31278, 876, 209, 4, 24, "Print",ExpressionUUID->"69b09653-faac-44e0-bff6-7f21b5c4206c"],
1173Cell[31490, 882, 389, 9, 24, "Print",ExpressionUUID->"a0725450-964c-4c9e-bd69-8e8806c7f73d"],
1174Cell[31882, 893, 433, 10, 24, "Print",ExpressionUUID->"6d85a386-2ddd-43b6-a727-96e978e8d287"],
1175Cell[32318, 905, 240, 5, 24, "Print",ExpressionUUID->"f2eae07c-2015-4f0c-9bbf-83c8ca320f71"],
1176Cell[32561, 912, 725, 16, 24, "Print",ExpressionUUID->"a6d4b24c-1c95-4432-904c-174069553285"],
1177Cell[33289, 930, 326, 8, 24, "Print",ExpressionUUID->"e3d8f7ac-726e-451f-879c-eff52c14e6f3"],
1178Cell[33618, 940, 678, 15, 24, "Print",ExpressionUUID->"4291ba00-6a4d-4025-8363-008cc9add6e5"],
1179Cell[34299, 957, 839, 22, 63, "Print",ExpressionUUID->"1dfa1437-3506-4e2b-bcaf-3997f95c7431"],
1180Cell[35141, 981, 632, 18, 44, "Print",ExpressionUUID->"8d200155-d053-4961-a188-7e40b8c04116"],
1181Cell[35776, 1001, 645, 18, 24, "Print",ExpressionUUID->"3c3411e9-d8c4-43bf-b524-23879ba597ed"],
1182Cell[36424, 1021, 588, 18, 44, "Print",ExpressionUUID->"f3c151e7-9e30-4620-a635-dae67f0c465c"]
1183}, Open ]]
1184}, Open ]]
1185}, Open ]]
1186}
1187]
1188*)
1189