BSMCharacterisation: BSMC.nb

File BSMC.nb, 9.3 KB (added by mawatari, 9 years ago)

Mathematica notebook for BSMC

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[ 9334, 230]
14NotebookOptionsPosition[ 8242, 189]
15NotebookOutlinePosition[ 8750, 209]
16CellTagsIndexPosition[ 8707, 206]
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_BSMC.fr\>\"", ",", "\"\<BSMC.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}, {3.6531992518210707`*^9,
79 3.653199255451715*^9}}]
80}, Open ]],
81
82Cell[CellGroupData[{
83
84Cell["Electronic signature", "Subsubsection",
85 CellChangeTimes->{{3.647172501101695*^9, 3.647172502802919*^9}}],
86
87Cell[BoxData[
88 RowBox[{
89 RowBox[{"ModelInformation", "[", "]"}], ";"}]], "Input"]
90}, Open ]],
91
92Cell[CellGroupData[{
93
94Cell["Some checks", "Subsubsection",
95 CellChangeTimes->{{3.6471724960543833`*^9, 3.647172497342194*^9}}],
96
97Cell[BoxData[
98 RowBox[{
99 RowBox[{"CheckHermiticity", "[", "LBSMC", "]"}], ";"}]], "Input",
100 CellChangeTimes->{
101 3.645868499828899*^9, {3.653199261466221*^9, 3.6531992625539618`*^9}}]
102}, Open ]],
103
104Cell[CellGroupData[{
105
106Cell["Generating the UFO", "Subsubsection",
107 CellChangeTimes->{{3.6471724742914248`*^9, 3.6471724795053062`*^9}}],
108
109Cell[BoxData[
110 RowBox[{"LoadRestriction", "[", "\"\<Massless.rst\>\"", "]"}]], "Input",
111 CellChangeTimes->{
112 3.563280223155616*^9, {3.563771875657627*^9, 3.563771912735396*^9},
113 3.5671480612443037`*^9, {3.579429036774397*^9, 3.579429037217311*^9}, {
114 3.6471789493355503`*^9, 3.6471789503013363`*^9}, 3.647234623179413*^9}],
115
116Cell[BoxData[
117 RowBox[{
118 RowBox[{"SetDirectory", "[",
119 RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";", " ",
120 RowBox[{"WriteUFO", "[",
121 RowBox[{"LSM", ",",
122 RowBox[{"Sequence", "@@", "LBSMC"}], ",", " ",
123 RowBox[{"RemoveGhosts", "\[Rule]", "True"}], ",",
124 RowBox[{"AddDecays", "\[Rule]", "False"}], ",",
125 RowBox[{"MaxParticles", "\[Rule]", "4"}], ",", " ",
126 RowBox[{"Output", "\[Rule]", "\"\<MB_4pt\>\""}]}], "]"}], ";"}]], "Input",\
127
128 CellChangeTimes->{{3.577107029356776*^9, 3.5771070477923737`*^9}, {
129 3.577158523077528*^9, 3.577158534562706*^9}, 3.577160281210434*^9, {
130 3.579411806714102*^9, 3.579411828528706*^9}, {3.579422946305105*^9,
131 3.579422989755477*^9}, {3.579451314563088*^9, 3.5794513402565603`*^9}, {
132 3.579509547412293*^9, 3.579509551094151*^9}, {3.5795101776420813`*^9,
133 3.579510178098853*^9}, {3.579510326274065*^9, 3.579510327951848*^9}, {
134 3.579511951094426*^9, 3.579511951792654*^9}, {3.579516692371182*^9,
135 3.579516693661449*^9}, {3.579517289114347*^9, 3.579517290160247*^9}, {
136 3.579517469625496*^9, 3.579517497580488*^9}, {3.5795397677576017`*^9,
137 3.579539779430418*^9}, 3.579595493612273*^9, {3.579609434073883*^9,
138 3.579609440715682*^9}, {3.579775253548801*^9, 3.579775259057622*^9}, {
139 3.579775397339424*^9, 3.579775401034914*^9}, {3.579776087450013*^9,
140 3.579776090678286*^9}, {3.581159850189066*^9, 3.5811598529615707`*^9}, {
141 3.595333062080071*^9, 3.595333076540902*^9}, {3.633754874061948*^9,
142 3.633754874908918*^9}, {3.633866592200938*^9, 3.633866595533534*^9}, {
143 3.645422597855199*^9, 3.645422602085012*^9}, {3.645446058399941*^9,
144 3.645446060439068*^9}, {3.645446315944306*^9, 3.6454463185698566`*^9}, {
145 3.6454471500451317`*^9, 3.645447175183316*^9}, {3.6454490787336483`*^9,
146 3.645449081951357*^9}, {3.645460164609558*^9, 3.645460171727055*^9}, {
147 3.6454607480058203`*^9, 3.6454607539308243`*^9}, {3.645461035958262*^9,
148 3.645461037934042*^9}, {3.645461104869426*^9, 3.645461105076232*^9}, {
149 3.645461342760161*^9, 3.6454613428480864`*^9}, {3.645461445447649*^9,
150 3.6454614455824347`*^9}, {3.645462049534629*^9, 3.645462056252779*^9}, {
151 3.6454635583227673`*^9, 3.645463562863798*^9}, {3.6455033382316837`*^9,
152 3.6455033435140467`*^9}, {3.645766848974765*^9, 3.6457668520036592`*^9}, {
153 3.645865276269596*^9, 3.645865276410048*^9}, {3.647172484546142*^9,
154 3.647172521180607*^9}, {3.6472346266076307`*^9, 3.647234638837646*^9}, {
155 3.653199277329514*^9, 3.653199306429446*^9}}],
156
157Cell[BoxData[
158 RowBox[{
159 RowBox[{"SetDirectory", "[",
160 RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";", " ",
161 RowBox[{"WriteUFO", "[",
162 RowBox[{"LSM", ",",
163 RowBox[{"Sequence", "@@", "LBSMC"}], ",", " ",
164 RowBox[{"RemoveGhosts", "\[Rule]", "True"}], ",",
165 RowBox[{"AddDecays", "\[Rule]", "False"}], ",",
166 RowBox[{"MaxParticles", "\[Rule]", "5"}], ",", " ",
167 RowBox[{"Output", "\[Rule]", "\"\<MB_5pt\>\""}]}], "]"}], ";"}]], "Input",\
168
169 CellChangeTimes->{{3.645463290075967*^9, 3.6454632902279577`*^9}, {
170 3.645865293525578*^9, 3.6458652936815147`*^9}, 3.64717248639361*^9,
171 3.647172524367447*^9, {3.6472346434573507`*^9, 3.647234647764927*^9}, {
172 3.653199280599639*^9, 3.653199315691831*^9}}],
173
174Cell[BoxData[
175 RowBox[{
176 RowBox[{"SetDirectory", "[",
177 RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";", " ",
178 RowBox[{"WriteUFO", "[",
179 RowBox[{"LSM", ",",
180 RowBox[{"Sequence", "@@", "LBSMC"}], ",", " ",
181 RowBox[{"RemoveGhosts", "\[Rule]", "True"}], ",",
182 RowBox[{"AddDecays", "\[Rule]", "False"}], ",", " ",
183 RowBox[{"Output", "\[Rule]", "\"\<MB_full\>\""}]}], "]"}], ";"}]], "Input",\
184
185 CellChangeTimes->{{3.6472346528602953`*^9, 3.6472346593229*^9}, {
186 3.6531992837109833`*^9, 3.6531993129962873`*^9}}]
187}, Open ]]
188}, Open ]]
189},
190WindowSize->{994, 727},
191WindowMargins->{{Automatic, 29}, {Automatic, 0}},
192PrintingCopies->1,
193PrintingPageRange->{1, Automatic},
194PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
195ShowSelection->True,
196FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
1972013)",
198StyleDefinitions->"Default.nb"
199]
200(* End of Notebook Content *)
201
202(* Internal cache information *)
203(*CellTagsOutline
204CellTagsIndex->{}
205*)
206(*CellTagsIndex
207CellTagsIndex->{}
208*)
209(*NotebookFileOutline
210Notebook[{
211Cell[557, 20, 120, 2, 28, "Input"],
212Cell[680, 24, 979, 17, 46, "Input"],
213Cell[CellGroupData[{
214Cell[1684, 45, 389, 6, 69, "Title"],
215Cell[CellGroupData[{
216Cell[2098, 55, 108, 1, 35, "Subsubsection"],
217Cell[2209, 58, 1174, 20, 46, "Input"]
218}, Open ]],
219Cell[CellGroupData[{
220Cell[3420, 83, 111, 1, 35, "Subsubsection"],
221Cell[3534, 86, 82, 2, 28, "Input"]
222}, Open ]],
223Cell[CellGroupData[{
224Cell[3653, 93, 104, 1, 35, "Subsubsection"],
225Cell[3760, 96, 184, 4, 28, "Input"]
226}, Open ]],
227Cell[CellGroupData[{
228Cell[3981, 105, 113, 1, 35, "Subsubsection"],
229Cell[4097, 108, 328, 5, 28, "Input"],
230Cell[4428, 115, 2513, 39, 63, "Input"],
231Cell[6944, 156, 732, 15, 63, "Input"],
232Cell[7679, 173, 535, 12, 46, "Input"]
233}, Open ]]
234}, Open ]]
235}
236]
237*)
238
239(* End of internal cache information *)