Context Navigation

Back to Hillmodel

Hillmodel: HillModel.nb

File HillModel.nb, 8.6 KB (added by Claude Duhr, 16 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[ 8377, 262]
14	NotebookOptionsPosition[ 6871, 206]
15	NotebookOutlinePosition[ 7248, 223]
16	CellTagsIndexPosition[ 7205, 220]
17	WindowFrame->Normal
18	ContainsDynamic->False*)
19
20	(* Beginning of Notebook Content *)
21	Notebook[{
22	Cell[BoxData[
23	RowBox[{
24	RowBox[{"$FeynRulesPath", "=",
25	RowBox[{"SetDirectory", "[", "\"\<< address of the package >\>\"", "]"}]}],
26	";"}]], "Input",
27	CellChangeTimes->{{3.4139893927211723`^9, 3.41398940740919^9}}],
28
29	Cell[BoxData[
30	RowBox[{"<<", "FeynRules`"}]], "Input",
31	CellChangeTimes->{{3.413614854684285^9, 3.413614886275807^9}, {
32	3.413641377342329^9, 3.413641418329218^9}, {3.4139893541115913`*^9,
33	3.413989390530416^9}, {3.413990047868751^9, 3.413990048379107*^9}}],
34
35	Cell[BoxData[
36	RowBox[{
37	RowBox[{
38	"SetDirectory", "[", "\"\</Users/claudeduhr/Desktop/Models/HillModel\>\"",
39	"]"}], ";"}]], "Input",
40	CellChangeTimes->{
41	3.413990052915724^9, {3.413994785831689^9, 3.413994795442175*^9}, {
42	3.413997268899212^9, 3.413997274522232^9}, {3.413997379408894*^9,
43	3.413997388626389*^9}}],
44
45	Cell[BoxData[""], "Input",
46	CellChangeTimes->{{3.402980281839891^9, 3.402980292943016^9}}],
47
48	Cell[CellGroupData[{
49
50	Cell["The Hill Model", "Title",
51	CellChangeTimes->{{3.413991375190053^9, 3.413991375744337^9}}],
52
53	Cell["We load in the Hill model model-file", "Text",
54	CellChangeTimes->{{3.413997145809513^9, 3.4139971520329027`^9}}],
55
56	Cell[BoxData[
57	RowBox[{"LoadModel", "[", "\"\<HillModel.fr\>\"", "]"}]], "Input",
58	CellChangeTimes->{{3.4022069973481913`^9, 3.402207011768662^9},
59	3.4022081212072697`^9, {3.402208250379383^9, 3.402208254043104*^9},
60	3.4027466057480917`^9, {3.403240270135737^9, 3.403240277228945*^9},
61	3.403266503388291^9, {3.403267649630335^9, 3.40326765417397*^9}, {
62	3.403269919787421^9, 3.403269921965273^9}, {3.403347551273425*^9,
63	3.403347555049163^9}, 3.4044490490588417`^9, {3.4082630239300327`*^9,
64	3.408263024838635^9}, {3.41364142299107^9, 3.413641423254826*^9}, {
65	3.41399005701727^9, 3.413990057433034^9}}],
66
67	Cell[CellGroupData[{
68
69	Cell["The lagrangian", "Section",
70	CellChangeTimes->{
71	3.404470070069872^9, {3.4139900786509438`^9, 3.4139900814877443`*^9}}],
72
73	Cell["\<\
74	The lagrangian of the SM (unitary gauge) without Hill field is called by\
75	\>", "Text",
76	CellChangeTimes->{{3.413993638153576^9, 3.413993664221603^9}, {
77	3.413993698136901^9, 3.413993701952524^9}}],
78
79	Cell[BoxData["LSM"], "Input",
80	CellChangeTimes->{{3.413993679092657^9, 3.413993682489049^9}}],
81
82	Cell["The Hill sector is obtained from", "Text",
83	CellChangeTimes->{{3.413993684430851^9, 3.413993708665267^9}}],
84
85	Cell[BoxData["LHill"], "Input",
86	CellChangeTimes->{{3.4139937214530773`^9, 3.413993722256974^9}}],
87
88	Cell["The combined lagrangian (LSM + LHiggs) is given by", "Text",
89	CellChangeTimes->{{3.4139900837425823`^9, 3.413990083942293^9}, {
90	3.413993824872409^9, 3.41399383885606^9}}],
91
92	Cell[BoxData["LSMHill"], "Input",
93	CellChangeTimes->{{3.413997259058875^9, 3.4139972603618917`^9}}]
94	}, Open ]],
95
96	Cell[CellGroupData[{
97
98	Cell["The FeynmanRules", "Section",
99	CellChangeTimes->{{3.408263447850895^9, 3.40826345141604^9}, {
100	3.408263495700914^9, 3.408263502991802^9}, 3.408263603149146*^9, {
101	3.4082637045166683`^9, 3.408263782374763^9}, {3.408343859998912*^9,
102	3.408343885453188^9}, {3.408344111407064^9, 3.408344118000225*^9}, {
103	3.4083443778471518`^9, 3.408344386014885^9}, {3.4083444312388277`*^9,
104	3.408344457142848^9}, {3.413540985728195^9, 3.4135409885675087`*^9}, {
105	3.413615333845126^9, 3.4136153362213078`^9}, {3.413993846469713*^9,
106	3.413993862193144*^9}}],
107
108	Cell[BoxData[
109	RowBox[{"FeynmanRules", "[",
110	RowBox[{
111	RowBox[{"LSM", "+", "LHill"}], ",",
112	RowBox[{"FlavorExpand", "\[Rule]", "True"}], ",", " ",
113	RowBox[{"Name", "\[Rule]", "\"\<HillModel\>\""}]}], "]"}]], "Input",
114	CellChangeTimes->{{3.41361493661029^9, 3.413614940450158^9}, {
115	3.41399387213347^9, 3.413993879241851^9}, {3.413997695796707*^9,
116	3.413997710586526*^9}}]
117	}, Open ]],
118
119	Cell[CellGroupData[{
120
121	Cell["Output", "Section"],
122
123	Cell[CellGroupData[{
124
125	Cell[TextData[{
126	Cell[BoxData[
127	FormBox[
128	StyleBox[
129	RowBox[{"T",
130	AdjustmentBox["E",
131	BoxBaselineShift->0.5,
132	BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
133	SingleLetterItalics->False], TraditionalForm]]],
134	" Output"
135	}], "Subsection",
136	CellChangeTimes->{{3.4139969586379232`^9, 3.413996960660123^9},
137	3.41399719564473*^9}],
138
139	Cell[BoxData[
140	RowBox[{"WriteTeXOutput", "[",
141	RowBox[{"\"\<HillModel.tex\>\"", ",",
142	RowBox[{"{", "\"\<HillModel\>\"", "}"}]}], "]"}]], "Input",
143	CellChangeTimes->{{3.413996971354395^9, 3.413996989150453^9}, {
144	3.413997166607196^9, 3.413997180386189^9}, {3.413997747701517*^9,
145	3.413997750802349*^9}}]
146	}, Open ]],
147
148	Cell[CellGroupData[{
149
150	Cell[TextData[{
151	Cell[BoxData[
152	FormBox[
153	StyleBox["Feynarts",
154	SingleLetterItalics->False], TraditionalForm]]],
155	" Output"
156	}], "Subsection",
157	CellChangeTimes->{{3.4139969586379232`^9, 3.413996960660123^9}, {
158	3.413997201905767^9, 3.41399723651656^9}}],
159
160	Cell[BoxData[
161	RowBox[{"WriteFeynArtsOutput", "[",
162	RowBox[{"\"\<HillModel.mod\>\"", ",",
163	RowBox[{"{", "LSMHill", "}"}], ",",
164	RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
165	CellChangeTimes->{{3.413993962504253^9, 3.413993974554265^9}, {
166	3.4139971612624073`^9, 3.413997162950646^9}}]
167	}, Open ]],
168
169	Cell[CellGroupData[{
170
171	Cell[TextData[{
172	Cell[BoxData[
173	FormBox[
174	StyleBox["MadGraph",
175	SingleLetterItalics->False], TraditionalForm]]],
176	" Output"
177	}], "Subsection",
178	CellChangeTimes->{{3.4139969586379232`^9, 3.413996960660123^9}, {
179	3.4139972245304203`^9, 3.41399724078806^9}}],
180
181	Cell[BoxData[
182	RowBox[{"WriteMGOutput", "[", "LSMHill", "]"}]], "Input",
183	CellChangeTimes->{{3.403261173444701^9, 3.4032612014289207`^9},
184	3.403262013545652^9, {3.4032623810096273`^9, 3.403262387913323*^9}, {
185	3.413997172997859^9, 3.413997173165966^9}}]
186	}, Open ]],
187
188	Cell[CellGroupData[{
189
190	Cell["CalcHep Output", "Subsection",
191	CellChangeTimes->{{3.4139969586379232`^9, 3.413996960660123^9}, {
192	3.413997245826178^9, 3.413997251440893^9}}],
193
194	Cell[BoxData[
195	RowBox[{
196	RowBox[{"CH$MaxExpressionLength", "=", "100"}], ";"}]], "Input",
197	CellChangeTimes->{{3.413997068148148^9, 3.413997092118608^9}}],
198
199	Cell[BoxData[
200	RowBox[{"WriteCHOutput", "[", "LSMHill", "]"}]], "Input",
201	CellChangeTimes->{{3.413997051866171^9, 3.4139970673130302`^9}, {
202	3.4139971826857967`^9, 3.413997182819931^9}}]
203	}, Open ]]
204	}, Open ]]
205	}, Open ]]
206	},
207	WindowSize->{1264, 679},
208	WindowMargins->{{0, Automatic}, {Automatic, 0}},
209	ShowSelection->True,
210	Magnification->1.5,
211	FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)",
212	StyleDefinitions->"Default.nb"
213	]
214	(* End of Notebook Content *)
215
216	(* Internal cache information *)
217	(*CellTagsOutline
218	CellTagsIndex->{}
219	*)
220	(*CellTagsIndex
221	CellTagsIndex->{}
222	*)
223	(*NotebookFileOutline
224	Notebook[{
225	Cell[568, 21, 223, 5, 40, "Input"],
226	Cell[794, 28, 266, 4, 40, "Input"],
227	Cell[1063, 34, 330, 8, 40, "Input"],
228	Cell[1396, 44, 92, 1, 40, "Input"],
229	Cell[CellGroupData[{
230	Cell[1513, 49, 97, 1, 114, "Title"],
231	Cell[1613, 52, 120, 1, 39, "Text"],
232	Cell[1736, 55, 638, 9, 40, "Input"],
233	Cell[CellGroupData[{
234	Cell[2399, 68, 128, 2, 100, "Section"],
235	Cell[2530, 72, 211, 4, 39, "Text"],
236	Cell[2744, 78, 95, 1, 40, "Input"],
237	Cell[2842, 81, 114, 1, 39, "Text"],
238	Cell[2959, 84, 99, 1, 40, "Input"],
239	Cell[3061, 87, 182, 2, 39, "Text"],
240	Cell[3246, 91, 101, 1, 40, "Input"]
241	}, Open ]],
242	Cell[CellGroupData[{
243	Cell[3384, 97, 574, 8, 100, "Section"],
244	Cell[3961, 107, 388, 8, 40, "Input"]
245	}, Open ]],
246	Cell[CellGroupData[{
247	Cell[4386, 120, 25, 0, 100, "Section"],
248	Cell[CellGroupData[{
249	Cell[4436, 124, 347, 12, 53, "Subsection"],
250	Cell[4786, 138, 314, 6, 40, "Input"]
251	}, Open ]],
252	Cell[CellGroupData[{
253	Cell[5137, 149, 263, 8, 51, "Subsection"],
254	Cell[5403, 159, 316, 6, 40, "Input"]
255	}, Open ]],
256	Cell[CellGroupData[{
257	Cell[5756, 170, 265, 8, 51, "Subsection"],
258	Cell[6024, 180, 264, 4, 40, "Input"]
259	}, Open ]],
260	Cell[CellGroupData[{
261	Cell[6325, 189, 153, 2, 51, "Subsection"],
262	Cell[6481, 193, 156, 3, 40, "Input"],
263	Cell[6640, 198, 191, 3, 40, "Input"]
264	}, Open ]]
265	}, Open ]]
266	}, Open ]]
267	}
268	]
269	*)
270
271	(* End of internal cache information *)

Download in other formats:

Original Format