BSMCharacterisation: MB.nb

File MB.nb, 9.0 KB (added by BenjF, 4 years ago)

Mathematica notebook for the MB model

Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 8.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       157,          7]
13NotebookDataLength[      9067,        225]
14NotebookOptionsPosition[      7975,        184]
15NotebookOutlinePosition[      8483,        204]
16CellTagsIndexPosition[      8440,        201]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"Quit", "[", "]"}]], "Input",
23 CellChangeTimes->{{3.4921467751527157`*^9, 3.492146812657303*^9}}],
24
25Cell[BoxData[{
26 RowBox[{
27  RowBox[{"$FeynRulesPath", "=",
28   RowBox[{
29   "SetDirectory", "[", "\"\<< insert the path to FeynRules here >\>\"",
30    "]"}]}], ";"}], "\[IndentingNewLine]",
31 RowBox[{"<<", "FeynRules`"}]}], "Input",
32 CellChangeTimes->{{3.562493790773467*^9, 3.56249379133423*^9}, {
33  3.5669854592231197`*^9, 3.566985470009097*^9}, {3.573969547023426*^9,
34  3.573969552638027*^9}, {3.5763110817083693`*^9, 3.576311082380014*^9}, {
35  3.577095398145216*^9, 3.577095424358136*^9}, {3.579449013242025*^9,
36  3.5794490139598637`*^9}, {3.581151089241591*^9, 3.581151095405628*^9}, {
37  3.591006102395862*^9, 3.591006102747958*^9}, {3.5953297894365797`*^9,
38  3.595329795947875*^9}, {3.612498209463675*^9, 3.612498210075754*^9}, {
39  3.626351094653633*^9, 3.62635109543893*^9}, {3.633752767994205*^9,
40  3.633752769326686*^9}, {3.637489378470703*^9, 3.637489378581725*^9}, {
41  3.64491925272816*^9, 3.644919253612585*^9}, {3.6471724402212954`*^9,
42  3.6471724570943813`*^9}}],
43
44Cell[CellGroupData[{
45
46Cell[TextData[StyleBox["The SM EFT Mass Basis Model",
47 FontSize->24]], "Title",
48 CellChangeTimes->{{3.563969384897138*^9, 3.563969388480772*^9}, {
49  3.579542855003995*^9, 3.579542855878519*^9}, {3.580788704233615*^9,
50  3.580788704402492*^9}, {3.633764100895033*^9, 3.633764107953764*^9}, {
51  3.645341427525136*^9, 3.645341428720394*^9}, {3.6458652020926247`*^9,
52  3.645865202359612*^9}}],
53
54Cell[CellGroupData[{
55
56Cell["Loading the model", "Subsubsection",
57 CellChangeTimes->{{3.647172505769191*^9, 3.647172507742222*^9}}],
58
59Cell[BoxData[{
60 RowBox[{
61  RowBox[{
62  "SetDirectory", "[",
63   "\"\< < insert the path to the model directory here > \>\"", "]"}],
64  ";"}], "\[IndentingNewLine]",
65 RowBox[{"LoadModel", "[",
66  RowBox[{"\"\<SM_MB.fr\>\"", ",", "\"\<MB.fr\>\""}], "]"}]}], "Input",
67 CellChangeTimes->{{3.5797689230966454`*^9, 3.579768959605196*^9}, {
68  3.5797728634876137`*^9, 3.579772869622957*^9}, {3.579773022805372*^9,
69  3.579773025161128*^9}, {3.580788700320038*^9, 3.58078870048149*^9}, {
70  3.581956192102425*^9, 3.5819561934167557`*^9}, {3.5819604209931593`*^9,
71  3.58196042170662*^9}, {3.591006112028008*^9, 3.591006115130166*^9}, {
72  3.5910062552983418`*^9, 3.591006257373683*^9}, {3.595329809474881*^9,
73  3.595329812689343*^9}, {3.633752783565755*^9, 3.633752786573667*^9}, {
74  3.6338518266335278`*^9, 3.633851827584215*^9}, {3.6338699068325233`*^9,
75  3.633869907529812*^9}, {3.644921036607795*^9, 3.644921041635105*^9}, {
76  3.644921714382965*^9, 3.644921727217204*^9}, {3.644921766860733*^9,
77  3.6449217784459143`*^9}, {3.645181745661171*^9, 3.6451817465024233`*^9}, {
78  3.6471724314536867`*^9, 3.6471724690049562`*^9}}]
79}, Open  ]],
80
81Cell[CellGroupData[{
82
83Cell["Electronic signature", "Subsubsection",
84 CellChangeTimes->{{3.647172501101695*^9, 3.647172502802919*^9}}],
85
86Cell[BoxData[
87 RowBox[{
88  RowBox[{"ModelInformation", "[", "]"}], ";"}]], "Input"]
89}, Open  ]],
90
91Cell[CellGroupData[{
92
93Cell["Some checks", "Subsubsection",
94 CellChangeTimes->{{3.6471724960543833`*^9, 3.647172497342194*^9}}],
95
96Cell[BoxData[
97 RowBox[{
98  RowBox[{"CheckHermiticity", "[", "LMB", "]"}], ";"}]], "Input",
99 CellChangeTimes->{3.645868499828899*^9}]
100}, Open  ]],
101
102Cell[CellGroupData[{
103
104Cell["Generating the UFO", "Subsubsection",
105 CellChangeTimes->{{3.6471724742914248`*^9, 3.6471724795053062`*^9}}],
106
107Cell[BoxData[
108 RowBox[{"LoadRestriction", "[", "\"\<Massless.rst\>\"", "]"}]], "Input",
109 CellChangeTimes->{
110  3.563280223155616*^9, {3.563771875657627*^9, 3.563771912735396*^9},
111   3.5671480612443037`*^9, {3.579429036774397*^9, 3.579429037217311*^9}, {
112   3.6471789493355503`*^9, 3.6471789503013363`*^9}, 3.647234623179413*^9}],
113
114Cell[BoxData[
115 RowBox[{
116  RowBox[{"SetDirectory", "[",
117   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";", " ",
118  RowBox[{"WriteUFO", "[",
119   RowBox[{"LSM", ",",
120    RowBox[{"Sequence", "@@", "LMB"}], ",", " ",
121    RowBox[{"RemoveGhosts", "\[Rule]", "True"}], ",",
122    RowBox[{"AddDecays", "\[Rule]", "False"}], ",",
123    RowBox[{"MaxParticles", "\[Rule]", "4"}], ",", " ",
124    RowBox[{"Output", "\[Rule]", "\"\<MB_4pt\>\""}]}], "]"}], ";"}]], "Input",\
125
126 CellChangeTimes->{{3.577107029356776*^9, 3.5771070477923737`*^9}, {
127   3.577158523077528*^9, 3.577158534562706*^9}, 3.577160281210434*^9, {
128   3.579411806714102*^9, 3.579411828528706*^9}, {3.579422946305105*^9,
129   3.579422989755477*^9}, {3.579451314563088*^9, 3.5794513402565603`*^9}, {
130   3.579509547412293*^9, 3.579509551094151*^9}, {3.5795101776420813`*^9,
131   3.579510178098853*^9}, {3.579510326274065*^9, 3.579510327951848*^9}, {
132   3.579511951094426*^9, 3.579511951792654*^9}, {3.579516692371182*^9,
133   3.579516693661449*^9}, {3.579517289114347*^9, 3.579517290160247*^9}, {
134   3.579517469625496*^9, 3.579517497580488*^9}, {3.5795397677576017`*^9,
135   3.579539779430418*^9}, 3.579595493612273*^9, {3.579609434073883*^9,
136   3.579609440715682*^9}, {3.579775253548801*^9, 3.579775259057622*^9}, {
137   3.579775397339424*^9, 3.579775401034914*^9}, {3.579776087450013*^9,
138   3.579776090678286*^9}, {3.581159850189066*^9, 3.5811598529615707`*^9}, {
139   3.595333062080071*^9, 3.595333076540902*^9}, {3.633754874061948*^9,
140   3.633754874908918*^9}, {3.633866592200938*^9, 3.633866595533534*^9}, {
141   3.645422597855199*^9, 3.645422602085012*^9}, {3.645446058399941*^9,
142   3.645446060439068*^9}, {3.645446315944306*^9, 3.6454463185698566`*^9}, {
143   3.6454471500451317`*^9, 3.645447175183316*^9}, {3.6454490787336483`*^9,
144   3.645449081951357*^9}, {3.645460164609558*^9, 3.645460171727055*^9}, {
145   3.6454607480058203`*^9, 3.6454607539308243`*^9}, {3.645461035958262*^9,
146   3.645461037934042*^9}, {3.645461104869426*^9, 3.645461105076232*^9}, {
147   3.645461342760161*^9, 3.6454613428480864`*^9}, {3.645461445447649*^9,
148   3.6454614455824347`*^9}, {3.645462049534629*^9, 3.645462056252779*^9}, {
149   3.6454635583227673`*^9, 3.645463562863798*^9}, {3.6455033382316837`*^9,
150   3.6455033435140467`*^9}, {3.645766848974765*^9, 3.6457668520036592`*^9}, {
151   3.645865276269596*^9, 3.645865276410048*^9}, {3.647172484546142*^9,
152   3.647172521180607*^9}, {3.6472346266076307`*^9, 3.647234638837646*^9}}],
153
154Cell[BoxData[
155 RowBox[{
156  RowBox[{"SetDirectory", "[",
157   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";", " ",
158  RowBox[{"WriteUFO", "[",
159   RowBox[{"LSM", ",",
160    RowBox[{"Sequence", "@@", "LMB"}], ",", " ",
161    RowBox[{"RemoveGhosts", "\[Rule]", "True"}], ",",
162    RowBox[{"AddDecays", "\[Rule]", "False"}], ",",
163    RowBox[{"MaxParticles", "\[Rule]", "5"}], ",", " ",
164    RowBox[{"Output", "\[Rule]", "\"\<MB_5pt\>\""}]}], "]"}], ";"}]], "Input",\
165
166 CellChangeTimes->{{3.645463290075967*^9, 3.6454632902279577`*^9}, {
167   3.645865293525578*^9, 3.6458652936815147`*^9}, 3.64717248639361*^9,
168   3.647172524367447*^9, {3.6472346434573507`*^9, 3.647234647764927*^9}}],
169
170Cell[BoxData[
171 RowBox[{
172  RowBox[{"SetDirectory", "[",
173   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";", " ",
174  RowBox[{"WriteUFO", "[",
175   RowBox[{"LSM", ",",
176    RowBox[{"Sequence", "@@", "LMB"}], ",", " ",
177    RowBox[{"RemoveGhosts", "\[Rule]", "True"}], ",",
178    RowBox[{"AddDecays", "\[Rule]", "False"}], ",", " ",
179    RowBox[{"Output", "\[Rule]", "\"\<MB_full\>\""}]}], "]"}], ";"}]], "Input",\
180
181 CellChangeTimes->{{3.6472346528602953`*^9, 3.6472346593229*^9}}]
182}, Open  ]]
183}, Open  ]]
184},
185WindowSize->{994, 727},
186WindowMargins->{{Automatic, 29}, {Automatic, 0}},
187PrintingCopies->1,
188PrintingPageRange->{1, Automatic},
189PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
190ShowSelection->True,
191FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
1922013)",
193StyleDefinitions->"Default.nb"
194]
195(* End of Notebook Content *)
196
197(* Internal cache information *)
198(*CellTagsOutline
199CellTagsIndex->{}
200*)
201(*CellTagsIndex
202CellTagsIndex->{}
203*)
204(*NotebookFileOutline
205Notebook[{
206Cell[557, 20, 120, 2, 28, "Input"],
207Cell[680, 24, 979, 17, 46, "Input"],
208Cell[CellGroupData[{
209Cell[1684, 45, 389, 6, 69, "Title"],
210Cell[CellGroupData[{
211Cell[2098, 55, 108, 1, 35, "Subsubsection"],
212Cell[2209, 58, 1119, 19, 46, "Input"]
213}, Open  ]],
214Cell[CellGroupData[{
215Cell[3365, 82, 111, 1, 35, "Subsubsection"],
216Cell[3479, 85, 82, 2, 28, "Input"]
217}, Open  ]],
218Cell[CellGroupData[{
219Cell[3598, 92, 104, 1, 35, "Subsubsection"],
220Cell[3705, 95, 131, 3, 28, "Input"]
221}, Open  ]],
222Cell[CellGroupData[{
223Cell[3873, 103, 113, 1, 35, "Subsubsection"],
224Cell[3989, 106, 328, 5, 28, "Input"],
225Cell[4320, 113, 2461, 38, 46, "Input"],
226Cell[6784, 153, 680, 14, 46, "Input"],
227Cell[7467, 169, 480, 11, 46, "Input"]
228}, Open  ]]
229}, Open  ]]
230}
231]
232*)
233
234(* End of internal cache information *)