HEL: HEL.nb

File HEL.nb, 8.1 KB (added by Adam, 6 years ago)

Simple Mathematica Notebook to load the model

Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 9.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       157,          7]
13NotebookDataLength[      8054,        257]
14NotebookOptionsPosition[      6950,        212]
15NotebookOutlinePosition[      7306,        228]
16CellTagsIndexPosition[      7263,        225]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["Setup", "Section",
24 CellChangeTimes->{{3.5817002707890997`*^9, 3.581700271197218*^9}}],
25
26Cell[BoxData[{
27 RowBox[{
28  RowBox[{"$OldDir", "=",
29   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
30 RowBox[{
31  RowBox[{"$FeynRulesPath", "=",
32   RowBox[{"SetDirectory", "[", "\"\<~/feynrules-current\>\"", "]"}]}],
33  ";"}], "\[IndentingNewLine]",
34 RowBox[{
35  RowBox[{"<<", "FeynRules`"}], ";"}], "\[IndentingNewLine]",
36 RowBox[{
37  RowBox[{"LoadModel", "[",
38   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/HEL.fr\>\""}], "]"}],
39  ";"}]}], "Input",
40 CellChangeTimes->{{3.581700209879122*^9, 3.581700260936915*^9}, {
41   3.581700376890725*^9, 3.58170037821945*^9}, {3.581702836763228*^9,
42   3.581702837338793*^9}, {3.5818481249015427`*^9, 3.581848143347954*^9}, {
43   3.582995204405798*^9, 3.58299521528404*^9}, {3.583038702741356*^9,
44   3.583038709578618*^9}, 3.583076573840444*^9, {3.584182000911727*^9,
45   3.58418200121646*^9}, {3.584182161492667*^9, 3.584182163564756*^9}, {
46   3.584182282715509*^9, 3.584182284105041*^9}, {3.584182399637722*^9,
47   3.584182404861476*^9}, 3.584182460107353*^9, {3.584182514313562*^9,
48   3.584182515436211*^9}, {3.5841828579996443`*^9, 3.584182858494486*^9}, {
49   3.591369267589684*^9, 3.591369308504643*^9}, {3.6037025183316298`*^9,
50   3.603702520287414*^9}}]
51}, Open  ]],
52
53Cell[CellGroupData[{
54
55Cell["Strongly interacting Higgs", "Section",
56 CellChangeTimes->{{3.592050781311898*^9, 3.592050792370556*^9}}],
57
58Cell[BoxData[{
59 RowBox[{
60  RowBox[{"Slagr", "=",
61   RowBox[{"LSILH", "+", "LSM"}]}], ";"}], "\[IndentingNewLine]",
62 RowBox[{
63  RowBox[{"Srules", " ", "=", " ",
64   RowBox[{"FeynmanRules", "[", "Slagr", "]"}]}],
65  ";"}], "\[IndentingNewLine]",
66 RowBox[{
67  RowBox[{"WriteUFO", "[",
68   RowBox[{"Slagr", ",",
69    RowBox[{"Output", "\[Rule]", "\"\<SILH_UFO\>\""}]}], "]"}],
70  ";"}]}], "Input",
71 CellChangeTimes->{{3.59205079553372*^9, 3.592050838382057*^9}, {
72  3.59205088788684*^9, 3.592050916405327*^9}, {3.592917055277775*^9,
73  3.59291706495752*^9}}]
74}, Open  ]],
75
76Cell[CellGroupData[{
77
78Cell["Pair of Higgs fields with a pair of leptons or quarks", "Section",
79 CellChangeTimes->{{3.592050944690618*^9, 3.592050947760697*^9}, {
80  3.592050990614394*^9, 3.5920509911924133`*^9}}],
81
82Cell[BoxData[{
83 RowBox[{
84  RowBox[{"Plagr", "=",
85   RowBox[{"LF1", "+", "LSM"}]}], ";"}], "\[IndentingNewLine]",
86 RowBox[{
87  RowBox[{"Prules", " ", "=", " ",
88   RowBox[{"FeynmanRules", "[", "Plagr", "]"}]}],
89  ";"}], "\[IndentingNewLine]",
90 RowBox[{
91  RowBox[{"WriteUFO", "[",
92   RowBox[{"Plagr", ",",
93    RowBox[{"Output", "\[Rule]", "\"\<HHFF_UFO\>\""}]}], "]"}],
94  ";"}]}], "Input",
95 CellChangeTimes->{{3.592050954724972*^9, 3.592050976242144*^9}, {
96  3.592917046397978*^9, 3.592917051726028*^9}}]
97}, Open  ]],
98
99Cell[CellGroupData[{
100
101Cell["\<\
102Single Higgs field with a pair of leptons or quarks and a gauge boson \
103\>", "Section",
104 CellChangeTimes->{{3.592050989074213*^9, 3.5920509937940474`*^9}}],
105
106Cell[BoxData[{
107 RowBox[{
108  RowBox[{"SHlagr", "=",
109   RowBox[{"LF2", "+", "LSM"}]}], ";"}], "\[IndentingNewLine]",
110 RowBox[{
111  RowBox[{"SHrules", " ", "=", " ",
112   RowBox[{"FeynmanRules", "[", "SHlagr", "]"}]}],
113  ";"}], "\[IndentingNewLine]",
114 RowBox[{
115  RowBox[{"WriteUFO", "[",
116   RowBox[{"SHlagr", ",",
117    RowBox[{"Output", "\[Rule]", "\"\<HFFV_UFO\>\""}]}], "]"}],
118  ";"}]}], "Input",
119 CellChangeTimes->{{3.5920509998861723`*^9, 3.592051016751165*^9}, {
120  3.592917036374291*^9, 3.592917042654159*^9}}]
121}, Open  ]],
122
123Cell[CellGroupData[{
124
125Cell["Gauge bosons self couplings", "Section",
126 CellChangeTimes->{{3.592051030955737*^9, 3.592051039361197*^9}}],
127
128Cell[BoxData[{
129 RowBox[{
130  RowBox[{"Glagr", "=",
131   RowBox[{"LBosons", "+", "LSM"}]}], ";"}], "\n",
132 RowBox[{
133  RowBox[{"Grules", " ", "=", " ",
134   RowBox[{"FeynmanRules", "[", "Glagr", "]"}]}], ";"}], "\n",
135 RowBox[{
136  RowBox[{"WriteUFO", "[",
137   RowBox[{"Glagr", ",",
138    RowBox[{"Output", "\[Rule]", "\"\<GaugeBosons_UFO\>\""}]}], "]"}],
139  ";"}]}], "Input",
140 CellChangeTimes->{{3.592051040002797*^9, 3.592051070805373*^9}, {
141  3.592917030382573*^9, 3.5929170336704893`*^9}}]
142}, Open  ]],
143
144Cell[CellGroupData[{
145
146Cell["CP-violating interactions", "Section",
147 CellChangeTimes->{{3.592051082889255*^9, 3.5920510939613533`*^9}}],
148
149Cell[BoxData[{
150 RowBox[{
151  RowBox[{"CPlagr", "=",
152   RowBox[{"LCP", "+", "LSM"}]}], ";"}], "\[IndentingNewLine]",
153 RowBox[{
154  RowBox[{"CPrules", " ", "=", " ",
155   RowBox[{"FeynmanRules", "[", "CPlagr", "]"}]}],
156  ";"}], "\[IndentingNewLine]",
157 RowBox[{
158  RowBox[{"WriteUFO", "[",
159   RowBox[{"CPlagr", ",",
160    RowBox[{"Output", "\[Rule]", "\"\<CPviolating_UFO\>\""}]}], "]"}],
161  ";"}]}], "Input",
162 CellChangeTimes->{{3.592051098237432*^9, 3.592051151133205*^9}, {
163  3.592917021390731*^9, 3.5929170277827*^9}}]
164}, Open  ]],
165
166Cell[CellGroupData[{
167
168Cell["Gauge - Gauge - Higgs interactions", "Section",
169 CellChangeTimes->{{3.592051370099566*^9, 3.592051380461054*^9}}],
170
171Cell[BoxData[{
172 RowBox[{
173  RowBox[{"GGlagr", "=",
174   RowBox[{"LLOPP", "+", "LSM"}]}], ";"}], "\[IndentingNewLine]",
175 RowBox[{
176  RowBox[{"GGrules", " ", "=", " ",
177   RowBox[{"FeynmanRules", "[", "GGlagr", "]"}]}],
178  ";"}], "\[IndentingNewLine]",
179 RowBox[{
180  RowBox[{"WriteUFO", "[",
181   RowBox[{"GGlagr", ",",
182    RowBox[{"Output", "\[Rule]", "\"\<GGHiggs_UFO\>\""}]}], "]"}],
183  ";"}]}], "Input",
184 CellChangeTimes->{{3.592051387684909*^9, 3.592051410737917*^9}, {
185  3.59291701185524*^9, 3.592917016335073*^9}}]
186}, Open  ]],
187
188Cell[CellGroupData[{
189
190Cell["Full Lagrangian", "Section",
191 CellChangeTimes->{{3.5817009721675787`*^9, 3.5817009738937607`*^9}, {
192  3.591369347439767*^9, 3.591369348156604*^9}}],
193
194Cell[BoxData[{
195 RowBox[{
196  RowBox[{"lagr", "=", "LagHEL"}], ";"}], "\[IndentingNewLine]",
197 RowBox[{
198  RowBox[{"feynmanrules", "=",
199   RowBox[{"FeynmanRules", "[",
200    RowBox[{"lagr", ",",
201     RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}]}],
202  ";"}], "\[IndentingNewLine]",
203 RowBox[{
204  RowBox[{"WriteUFO", "[",
205   RowBox[{"lagr", ",",
206    RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}], ";"}]}], "Input",
207 CellChangeTimes->{{3.581848751644443*^9, 3.5818487554853983`*^9}, {
208  3.591369405252789*^9, 3.591369406748837*^9}, {3.592051417774378*^9,
209  3.5920514331009893`*^9}, {3.592917000529808*^9, 3.592917003555757*^9}, {
210  3.603702543963779*^9, 3.6037025584389343`*^9}}]
211}, Open  ]]
212},
213WindowSize->{1280, 976},
214WindowMargins->{{0, Automatic}, {Automatic, 0}},
215FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 20, \
2162012)",
217StyleDefinitions->"Default.nb"
218]
219(* End of Notebook Content *)
220
221(* Internal cache information *)
222(*CellTagsOutline
223CellTagsIndex->{}
224*)
225(*CellTagsIndex
226CellTagsIndex->{}
227*)
228(*NotebookFileOutline
229Notebook[{
230Cell[CellGroupData[{
231Cell[579, 22, 92, 1, 80, "Section"],
232Cell[674, 25, 1232, 24, 80, "Input"]
233}, Open  ]],
234Cell[CellGroupData[{
235Cell[1943, 54, 111, 1, 80, "Section"],
236Cell[2057, 57, 556, 15, 63, "Input"]
237}, Open  ]],
238Cell[CellGroupData[{
239Cell[2650, 77, 189, 2, 80, "Section"],
240Cell[2842, 81, 508, 14, 63, "Input"]
241}, Open  ]],
242Cell[CellGroupData[{
243Cell[3387, 100, 165, 3, 80, "Section"],
244Cell[3555, 105, 514, 14, 63, "Input"]
245}, Open  ]],
246Cell[CellGroupData[{
247Cell[4106, 124, 112, 1, 80, "Section"],
248Cell[4221, 127, 484, 13, 63, "Input"]
249}, Open  ]],
250Cell[CellGroupData[{
251Cell[4742, 145, 112, 1, 80, "Section"],
252Cell[4857, 148, 517, 14, 63, "Input"]
253}, Open  ]],
254Cell[CellGroupData[{
255Cell[5411, 167, 119, 1, 80, "Section"],
256Cell[5533, 170, 516, 14, 63, "Input"]
257}, Open  ]],
258Cell[CellGroupData[{
259Cell[6086, 189, 153, 2, 80, "Section"],
260Cell[6242, 193, 692, 16, 63, "Input"]
261}, Open  ]]
262}
263]
264*)
265
266(* End of internal cache information *)