BSMCharacterisation: MB.nb

File MB.nb, 9.0 KB (added by Benjamin Fuks, 10 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 *)