Context Navigation

Back to HiddenAbelianHiggsModel

HiddenAbelianHiggsModel: Hidden.nb

File Hidden.nb, 9.0 KB (added by Benjamin Fuks, 13 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:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 145, 7]
13	NotebookDataLength[ 9033, 270]
14	NotebookOptionsPosition[ 7418, 212]
15	NotebookOutlinePosition[ 7797, 229]
16	CellTagsIndexPosition[ 7754, 226]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21	Cell[BoxData[
22	RowBox[{"Quit", "[", "]"}]], "Input",
23	CellChangeTimes->{{3.509778970782555^9, 3.509778973939178^9}}],
24
25	Cell[BoxData[
26	RowBox[{
27	RowBox[{"$FeynRulesPath", " ", "=", " ",
28	RowBox[{"SetDirectory", "[", "\"\<< address of the package>\>\"", "]"}]}],
29	";"}]], "Input",
30	CellChangeTimes->{{3.413720861194676^9, 3.4137208893794117`^9}}],
31
32	Cell[CellGroupData[{
33
34	Cell[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
46	Cell[CellGroupData[{
47
48	Cell[BoxData[
49	FormBox["\<\" - FeynRules - \"\>", TraditionalForm]], "Print",
50	CellChangeTimes->{3.5097790803920813`^9, 3.509779124183002^9}],
51
52	Cell[BoxData[
53	FormBox["\<\"Authors: C. Duhr, N. Christensen, B. Fuks\"\>",
54	TraditionalForm]], "Print",
55	CellChangeTimes->{3.5097790803920813`^9, 3.509779124189536^9}],
56
57	Cell[BoxData[
58	FormBox["\<\" \"\>", TraditionalForm]], "Print",
59	CellChangeTimes->{3.5097790803920813`^9, 3.50977912419641^9}],
60
61	Cell[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
66	Cell[BoxData[
67	FormBox["\<\"http://feynrules.phys.ucl.ac.be\"\>", TraditionalForm]], "Print",\
68
69	CellChangeTimes->{3.5097790803920813`^9, 3.509779124212921^9}],
70
71	Cell[BoxData[
72	FormBox["\<\" \"\>", TraditionalForm]], "Print",
73	CellChangeTimes->{3.5097790803920813`^9, 3.509779124216967^9}],
74
75	Cell[BoxData[
76	FormBox["\<\"The FeynRules palette can be opened using the command \
77	FRPalette[].\"\>", TraditionalForm]], "Print",
78	CellChangeTimes->{3.5097790803920813`^9, 3.509779124221074^9}]
79	}, Open ]]
80	}, Open ]],
81
82	Cell[CellGroupData[{
83
84	Cell["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
89	Cell[CellGroupData[{
90
91	Cell[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
107	Cell[CellGroupData[{
108
109	Cell[BoxData[
110	FormBox["\<\"This model implementation was created by\"\>",
111	TraditionalForm]], "Print",
112	CellChangeTimes->{3.509779084311322^9, 3.509779153251739^9}],
113
114	Cell[BoxData[
115	FormBox["\<\"C. Duhr\"\>", TraditionalForm]], "Print",
116	CellChangeTimes->{3.509779084311322^9, 3.509779153254369^9}],
117
118	Cell[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
126	Cell[BoxData[
127	FormBox["\<\"Please cite\"\>", TraditionalForm]], "Print",
128	CellChangeTimes->{3.509779084311322^9, 3.509779153260545^9}],
129
130	Cell[BoxData[
131	FormBox["\<\" J. D. Wells, \\\"How to Find a Hidden World at the Large \
132	Hadron Collider,\\\", [arXiv:0803.1243 [hep-ph]]\"\>",
133	TraditionalForm]], "Print",
134	CellChangeTimes->{3.509779084311322^9, 3.509779153263336^9}],
135
136	Cell[BoxData[
137	FormBox["\<\"http://feynrules.phys.ucl.ac.be/view/Main/\
138	HiddenAbelianHiggsModel\"\>", TraditionalForm]], "Print",
139	CellChangeTimes->{3.509779084311322^9, 3.509779153268167^9}],
140
141	Cell[BoxData[
142	FormBox["\<\"For more information, type ModelInformation[].\"\>",
143	TraditionalForm]], "Print",
144	CellChangeTimes->{3.509779084311322^9, 3.509779153271535^9}],
145
146	Cell[BoxData[
147	FormBox["\<\"\"\>", TraditionalForm]], "Print",
148	CellChangeTimes->{3.509779084311322^9, 3.509779153274775^9}],
149
150	Cell[BoxData[
151	FormBox["\<\" - Loading particle classes.\"\>", TraditionalForm]], "Print",\
152
153	CellChangeTimes->{3.509779084311322^9, 3.509779153278908^9}],
154
155	Cell[BoxData[
156	FormBox["\<\" - Loading gauge group classes.\"\>",
157	TraditionalForm]], "Print",
158	CellChangeTimes->{3.509779084311322^9, 3.509779153418405^9}],
159
160	Cell[BoxData[
161	FormBox["\<\" - Loading parameter classes.\"\>", TraditionalForm]], "Print",\
162
163	CellChangeTimes->{3.509779084311322^9, 3.5097791534467287`^9}],
164
165	Cell[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
177	Cell[CellGroupData[{
178
179	Cell["The lagrangian", "Section",
180	CellChangeTimes->{{3.411915790793332^9, 3.411915793199389^9}}],
181
182	Cell[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
188	Cell[CellGroupData[{
189
190	Cell["Feynman rules", "Section",
191	CellChangeTimes->{{3.411915866249317^9, 3.4119158716988153`^9},
192	3.509779363849759*^9}],
193
194	Cell[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
200	Cell["Or in a flavor expanded form", "Text",
201	CellChangeTimes->{{3.411915937803143^9, 3.4119159434558887`^9}}],
202
203	Cell[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	},
213	WindowSize->{1272, 681},
214	WindowMargins->{{68, Automatic}, {Automatic, 23}},
215	ShowSelection->True,
216	Magnification->1.5,
217	FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
218	StyleDefinitions->"Default.nb"
219	]
220	(* End of Notebook Content *)
221
222	(* Internal cache information *)
223	(*CellTagsOutline
224	CellTagsIndex->{}
225	*)
226	(*CellTagsIndex
227	CellTagsIndex->{}
228	*)
229	(*NotebookFileOutline
230	Notebook[{
231	Cell[545, 20, 118, 2, 46, "Input"],
232	Cell[666, 24, 233, 5, 46, "Input"],
233	Cell[CellGroupData[{
234	Cell[924, 33, 626, 10, 107, "Input"],
235	Cell[CellGroupData[{
236	Cell[1575, 47, 143, 2, 35, "Print"],
237	Cell[1721, 51, 172, 3, 35, "Print"],
238	Cell[1896, 56, 128, 2, 35, "Print"],
239	Cell[2027, 60, 198, 3, 35, "Print"],
240	Cell[2228, 65, 161, 3, 35, "Print"],
241	Cell[2392, 70, 129, 2, 35, "Print"],
242	Cell[2524, 74, 196, 3, 35, "Print"]
243	}, Open ]]
244	}, Open ]],
245	Cell[CellGroupData[{
246	Cell[2769, 83, 213, 3, 126, "Title"],
247	Cell[CellGroupData[{
248	Cell[3007, 90, 818, 14, 46, "Input"],
249	Cell[CellGroupData[{
250	Cell[3850, 108, 169, 3, 35, "Print"],
251	Cell[4022, 113, 133, 2, 35, "Print"],
252	Cell[4158, 117, 276, 6, 35, "Print"],
253	Cell[4437, 125, 137, 2, 35, "Print"],
254	Cell[4577, 129, 238, 4, 35, "Print"],
255	Cell[4818, 135, 193, 3, 35, "Print"],
256	Cell[5014, 140, 175, 3, 35, "Print"],
257	Cell[5192, 145, 126, 2, 35, "Print"],
258	Cell[5321, 149, 158, 3, 35, "Print"],
259	Cell[5482, 154, 162, 3, 35, "Print"],
260	Cell[5647, 159, 161, 3, 35, "Print"],
261	Cell[5811, 164, 358, 8, 65, "Print"]
262	}, Open ]]
263	}, Open ]],
264	Cell[CellGroupData[{
265	Cell[6218, 178, 99, 1, 108, "Section"],
266	Cell[6320, 181, 197, 3, 46, "Input"]
267	}, Open ]],
268	Cell[CellGroupData[{
269	Cell[6554, 189, 126, 2, 108, "Section"],
270	Cell[6683, 193, 261, 4, 46, "Input"],
271	Cell[6947, 199, 112, 1, 44, "Text"],
272	Cell[7062, 202, 328, 6, 46, "Input"]
273	}, Open ]]
274	}, Open ]]
275	}
276	]
277	*)
278
279	(* End of internal cache information *)

Download in other formats:

Original Format