HiddenAbelianHiggsModel: Hidden.nb

File Hidden.nb, 9.0 KB (added by BenjF, 7 years ago)

Sample notebook

Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 6.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[      9033,        270]
14NotebookOptionsPosition[      7418,        212]
15NotebookOutlinePosition[      7797,        229]
16CellTagsIndexPosition[      7754,        226]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"Quit", "[", "]"}]], "Input",
23 CellChangeTimes->{{3.509778970782555*^9, 3.509778973939178*^9}}],
24
25Cell[BoxData[
26 RowBox[{
27  RowBox[{"$FeynRulesPath", " ", "=", " ",
28   RowBox[{"SetDirectory", "[", "\"\<< address of the package>\>\"", "]"}]}],
29  ";"}]], "Input",
30 CellChangeTimes->{{3.413720861194676*^9, 3.4137208893794117`*^9}}],
31
32Cell[CellGroupData[{
33
34Cell[BoxData[
35 RowBox[{
36  RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
37  "\[IndentingNewLine]"}]], "Input",
38 CellChangeTimes->{{3.402202361365851*^9, 3.402202371944139*^9}, {
39   3.402202561319804*^9, 3.402202569273497*^9}, 3.402745522459828*^9,
40   3.402746608214861*^9, {3.402747929860508*^9, 3.402747943827011*^9}, {
41   3.403533007403466*^9, 3.403533008807395*^9}, {3.404106695164184*^9,
42   3.404106695449581*^9}, {3.405053642054455*^9, 3.4050536456262903`*^9},
43   3.4119181919913683`*^9, {3.4137208986527243`*^9, 3.4137208996123943`*^9}, {
44   3.4137242759980097`*^9, 3.413724294268169*^9}, 3.508569204008209*^9}],
45
46Cell[CellGroupData[{
47
48Cell[BoxData[
49 FormBox["\<\" - FeynRules - \"\>", TraditionalForm]], "Print",
50 CellChangeTimes->{3.5097790803920813`*^9, 3.509779124183002*^9}],
51
52Cell[BoxData[
53 FormBox["\<\"Authors: C. Duhr, N. Christensen, B. Fuks\"\>",
54  TraditionalForm]], "Print",
55 CellChangeTimes->{3.5097790803920813`*^9, 3.509779124189536*^9}],
56
57Cell[BoxData[
58 FormBox["\<\" \"\>", TraditionalForm]], "Print",
59 CellChangeTimes->{3.5097790803920813`*^9, 3.50977912419641*^9}],
60
61Cell[BoxData[
62 FormBox["\<\"Please cite: Comput.Phys.Commun.180:1614-1641,2009 \
63(arXiv:0806.4194).\"\>", TraditionalForm]], "Print",
64 CellChangeTimes->{3.5097790803920813`*^9, 3.50977912420424*^9}],
65
66Cell[BoxData[
67 FormBox["\<\"http://feynrules.phys.ucl.ac.be\"\>", TraditionalForm]], "Print",\
68
69 CellChangeTimes->{3.5097790803920813`*^9, 3.509779124212921*^9}],
70
71Cell[BoxData[
72 FormBox["\<\" \"\>", TraditionalForm]], "Print",
73 CellChangeTimes->{3.5097790803920813`*^9, 3.509779124216967*^9}],
74
75Cell[BoxData[
76 FormBox["\<\"The FeynRules palette can be opened using the command \
77FRPalette[].\"\>", TraditionalForm]], "Print",
78 CellChangeTimes->{3.5097790803920813`*^9, 3.509779124221074*^9}]
79}, Open  ]]
80}, Open  ]],
81
82Cell[CellGroupData[{
83
84Cell["The Hidden Abelian Higgs model", "Title",
85 CellChangeTimes->{{3.411915778286763*^9, 3.4119157817267313`*^9}, {
86  3.413720856398858*^9, 3.413720856723679*^9}, {3.509778928631168*^9,
87  3.509778939699687*^9}}],
88
89Cell[CellGroupData[{
90
91Cell[BoxData[
92 RowBox[{"LoadModel", "[",
93  RowBox[{
94  "$FeynRulesPath", "<>",
95   "\"\</../models/Hidden_Abelian_Higgs_Model/Hidden.fr\>\""}],
96  "]"}]], "Input",
97 CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
98   3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
99   3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
100   3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
101   3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
102   3.403347555049163*^9}, 3.403533015351287*^9, {3.40505363437746*^9,
103   3.40505363645761*^9}, {3.411912382149088*^9, 3.4119123969228477`*^9}, {
104   3.50856924516405*^9, 3.5085692957646017`*^9}, {3.50977894668571*^9,
105   3.5097789504842176`*^9}, {3.5097790957627983`*^9, 3.509779118203261*^9}}],
106
107Cell[CellGroupData[{
108
109Cell[BoxData[
110 FormBox["\<\"This model implementation was created by\"\>",
111  TraditionalForm]], "Print",
112 CellChangeTimes->{3.509779084311322*^9, 3.509779153251739*^9}],
113
114Cell[BoxData[
115 FormBox["\<\"C. Duhr\"\>", TraditionalForm]], "Print",
116 CellChangeTimes->{3.509779084311322*^9, 3.509779153254369*^9}],
117
118Cell[BoxData[
119 FormBox[
120  InterpretationBox[
121   RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
122   SequenceForm["Model Version: ", "1.0"],
123   Editable->False], TraditionalForm]], "Print",
124 CellChangeTimes->{3.509779084311322*^9, 3.509779153257538*^9}],
125
126Cell[BoxData[
127 FormBox["\<\"Please cite\"\>", TraditionalForm]], "Print",
128 CellChangeTimes->{3.509779084311322*^9, 3.509779153260545*^9}],
129
130Cell[BoxData[
131 FormBox["\<\"  J. D. Wells, \\\"How to Find a Hidden World at the Large \
132Hadron Collider,\\\", [arXiv:0803.1243 [hep-ph]]\"\>",
133  TraditionalForm]], "Print",
134 CellChangeTimes->{3.509779084311322*^9, 3.509779153263336*^9}],
135
136Cell[BoxData[
137 FormBox["\<\"http://feynrules.phys.ucl.ac.be/view/Main/\
138HiddenAbelianHiggsModel\"\>", TraditionalForm]], "Print",
139 CellChangeTimes->{3.509779084311322*^9, 3.509779153268167*^9}],
140
141Cell[BoxData[
142 FormBox["\<\"For more information, type ModelInformation[].\"\>",
143  TraditionalForm]], "Print",
144 CellChangeTimes->{3.509779084311322*^9, 3.509779153271535*^9}],
145
146Cell[BoxData[
147 FormBox["\<\"\"\>", TraditionalForm]], "Print",
148 CellChangeTimes->{3.509779084311322*^9, 3.509779153274775*^9}],
149
150Cell[BoxData[
151 FormBox["\<\"   - Loading particle classes.\"\>", TraditionalForm]], "Print",\
152
153 CellChangeTimes->{3.509779084311322*^9, 3.509779153278908*^9}],
154
155Cell[BoxData[
156 FormBox["\<\"   - Loading gauge group classes.\"\>",
157  TraditionalForm]], "Print",
158 CellChangeTimes->{3.509779084311322*^9, 3.509779153418405*^9}],
159
160Cell[BoxData[
161 FormBox["\<\"   - Loading parameter classes.\"\>", TraditionalForm]], "Print",\
162
163 CellChangeTimes->{3.509779084311322*^9, 3.5097791534467287`*^9}],
164
165Cell[BoxData[
166 FormBox[
167  InterpretationBox[
168   RowBox[{"\<\"\\nModel \"\>",
169    "\[InvisibleSpace]", "\<\"Abelian_Higgs_Model\"\>",
170    "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
171   SequenceForm["\nModel ", "Abelian_Higgs_Model", " loaded."],
172   Editable->False], TraditionalForm]], "Print",
173 CellChangeTimes->{3.509779084311322*^9, 3.509779153546349*^9}]
174}, Open  ]]
175}, Open  ]],
176
177Cell[CellGroupData[{
178
179Cell["The lagrangian", "Section",
180 CellChangeTimes->{{3.411915790793332*^9, 3.411915793199389*^9}}],
181
182Cell[BoxData["LHAHM"], "Input",
183 CellChangeTimes->{{3.4119143176932583`*^9, 3.411914319401045*^9}, {
184  3.509778966781176*^9, 3.509778967770995*^9}, {3.509779355012743*^9,
185  3.509779370460802*^9}}]
186}, Open  ]],
187
188Cell[CellGroupData[{
189
190Cell["Feynman rules", "Section",
191 CellChangeTimes->{{3.411915866249317*^9, 3.4119158716988153`*^9},
192   3.509779363849759*^9}],
193
194Cell[BoxData[
195 RowBox[{"FeynmanRules", "[", "LHAHM", "]"}]], "Input",
196 CellChangeTimes->{{3.411915883502528*^9, 3.411915928653887*^9}, {
197   3.4137211614912577`*^9, 3.4137211708030777`*^9}, 3.508569350492257*^9, {
198   3.509779361403779*^9, 3.509779374162471*^9}}],
199
200Cell["Or in a flavor expanded form", "Text",
201 CellChangeTimes->{{3.411915937803143*^9, 3.4119159434558887`*^9}}],
202
203Cell[BoxData[
204 RowBox[{"FeynmanRules", "[",
205  RowBox[{"LHAHM", ",",
206   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
207 CellChangeTimes->{{3.411915883502528*^9, 3.411915958983838*^9}, {
208   3.508569657623721*^9, 3.508569668869379*^9}, {3.5097793668671083`*^9,
209   3.509779379186967*^9}, 3.5136893169327602`*^9}]
210}, Open  ]]
211}, Open  ]]
212},
213WindowSize->{1272, 681},
214WindowMargins->{{68, Automatic}, {Automatic, 23}},
215ShowSelection->True,
216Magnification->1.5,
217FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
218StyleDefinitions->"Default.nb"
219]
220(* End of Notebook Content *)
221
222(* Internal cache information *)
223(*CellTagsOutline
224CellTagsIndex->{}
225*)
226(*CellTagsIndex
227CellTagsIndex->{}
228*)
229(*NotebookFileOutline
230Notebook[{
231Cell[545, 20, 118, 2, 46, "Input"],
232Cell[666, 24, 233, 5, 46, "Input"],
233Cell[CellGroupData[{
234Cell[924, 33, 626, 10, 107, "Input"],
235Cell[CellGroupData[{
236Cell[1575, 47, 143, 2, 35, "Print"],
237Cell[1721, 51, 172, 3, 35, "Print"],
238Cell[1896, 56, 128, 2, 35, "Print"],
239Cell[2027, 60, 198, 3, 35, "Print"],
240Cell[2228, 65, 161, 3, 35, "Print"],
241Cell[2392, 70, 129, 2, 35, "Print"],
242Cell[2524, 74, 196, 3, 35, "Print"]
243}, Open  ]]
244}, Open  ]],
245Cell[CellGroupData[{
246Cell[2769, 83, 213, 3, 126, "Title"],
247Cell[CellGroupData[{
248Cell[3007, 90, 818, 14, 46, "Input"],
249Cell[CellGroupData[{
250Cell[3850, 108, 169, 3, 35, "Print"],
251Cell[4022, 113, 133, 2, 35, "Print"],
252Cell[4158, 117, 276, 6, 35, "Print"],
253Cell[4437, 125, 137, 2, 35, "Print"],
254Cell[4577, 129, 238, 4, 35, "Print"],
255Cell[4818, 135, 193, 3, 35, "Print"],
256Cell[5014, 140, 175, 3, 35, "Print"],
257Cell[5192, 145, 126, 2, 35, "Print"],
258Cell[5321, 149, 158, 3, 35, "Print"],
259Cell[5482, 154, 162, 3, 35, "Print"],
260Cell[5647, 159, 161, 3, 35, "Print"],
261Cell[5811, 164, 358, 8, 65, "Print"]
262}, Open  ]]
263}, Open  ]],
264Cell[CellGroupData[{
265Cell[6218, 178, 99, 1, 108, "Section"],
266Cell[6320, 181, 197, 3, 46, "Input"]
267}, Open  ]],
268Cell[CellGroupData[{
269Cell[6554, 189, 126, 2, 108, "Section"],
270Cell[6683, 193, 261, 4, 46, "Input"],
271Cell[6947, 199, 112, 1, 44, "Text"],
272Cell[7062, 202, 328, 6, 46, "Input"]
273}, Open  ]]
274}, Open  ]]
275}
276]
277*)
278
279(* End of internal cache information *)