Hillmodel: HillModel.nb

File HillModel.nb, 8.6 KB (added by claudeduhr, 8 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[      8377,        262]
14NotebookOptionsPosition[      6871,        206]
15NotebookOutlinePosition[      7248,        223]
16CellTagsIndexPosition[      7205,        220]
17WindowFrame->Normal
18ContainsDynamic->False*)
19
20(* Beginning of Notebook Content *)
21Notebook[{
22Cell[BoxData[
23 RowBox[{
24  RowBox[{"$FeynRulesPath", "=",
25   RowBox[{"SetDirectory", "[", "\"\<< address of the package >\>\"", "]"}]}],
26   ";"}]], "Input",
27 CellChangeTimes->{{3.4139893927211723`*^9, 3.41398940740919*^9}}],
28
29Cell[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
35Cell[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
45Cell[BoxData[""], "Input",
46 CellChangeTimes->{{3.402980281839891*^9, 3.402980292943016*^9}}],
47
48Cell[CellGroupData[{
49
50Cell["The Hill Model", "Title",
51 CellChangeTimes->{{3.413991375190053*^9, 3.413991375744337*^9}}],
52
53Cell["We load in the Hill model model-file", "Text",
54 CellChangeTimes->{{3.413997145809513*^9, 3.4139971520329027`*^9}}],
55
56Cell[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
67Cell[CellGroupData[{
68
69Cell["The lagrangian", "Section",
70 CellChangeTimes->{
71  3.404470070069872*^9, {3.4139900786509438`*^9, 3.4139900814877443`*^9}}],
72
73Cell["\<\
74The 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
79Cell[BoxData["LSM"], "Input",
80 CellChangeTimes->{{3.413993679092657*^9, 3.413993682489049*^9}}],
81
82Cell["The Hill sector is obtained from", "Text",
83 CellChangeTimes->{{3.413993684430851*^9, 3.413993708665267*^9}}],
84
85Cell[BoxData["LHill"], "Input",
86 CellChangeTimes->{{3.4139937214530773`*^9, 3.413993722256974*^9}}],
87
88Cell["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
92Cell[BoxData["LSMHill"], "Input",
93 CellChangeTimes->{{3.413997259058875*^9, 3.4139972603618917`*^9}}]
94}, Open  ]],
95
96Cell[CellGroupData[{
97
98Cell["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
108Cell[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
119Cell[CellGroupData[{
120
121Cell["Output", "Section"],
122
123Cell[CellGroupData[{
124
125Cell[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
139Cell[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
148Cell[CellGroupData[{
149
150Cell[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
160Cell[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
169Cell[CellGroupData[{
170
171Cell[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
181Cell[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
188Cell[CellGroupData[{
189
190Cell["CalcHep Output", "Subsection",
191 CellChangeTimes->{{3.4139969586379232`*^9, 3.413996960660123*^9}, {
192  3.413997245826178*^9, 3.413997251440893*^9}}],
193
194Cell[BoxData[
195 RowBox[{
196  RowBox[{"CH$MaxExpressionLength", "=", "100"}], ";"}]], "Input",
197 CellChangeTimes->{{3.413997068148148*^9, 3.413997092118608*^9}}],
198
199Cell[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},
207WindowSize->{1264, 679},
208WindowMargins->{{0, Automatic}, {Automatic, 0}},
209ShowSelection->True,
210Magnification->1.5,
211FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)",
212StyleDefinitions->"Default.nb"
213]
214(* End of Notebook Content *)
215
216(* Internal cache information *)
217(*CellTagsOutline
218CellTagsIndex->{}
219*)
220(*CellTagsIndex
221CellTagsIndex->{}
222*)
223(*NotebookFileOutline
224Notebook[{
225Cell[568, 21, 223, 5, 40, "Input"],
226Cell[794, 28, 266, 4, 40, "Input"],
227Cell[1063, 34, 330, 8, 40, "Input"],
228Cell[1396, 44, 92, 1, 40, "Input"],
229Cell[CellGroupData[{
230Cell[1513, 49, 97, 1, 114, "Title"],
231Cell[1613, 52, 120, 1, 39, "Text"],
232Cell[1736, 55, 638, 9, 40, "Input"],
233Cell[CellGroupData[{
234Cell[2399, 68, 128, 2, 100, "Section"],
235Cell[2530, 72, 211, 4, 39, "Text"],
236Cell[2744, 78, 95, 1, 40, "Input"],
237Cell[2842, 81, 114, 1, 39, "Text"],
238Cell[2959, 84, 99, 1, 40, "Input"],
239Cell[3061, 87, 182, 2, 39, "Text"],
240Cell[3246, 91, 101, 1, 40, "Input"]
241}, Open  ]],
242Cell[CellGroupData[{
243Cell[3384, 97, 574, 8, 100, "Section"],
244Cell[3961, 107, 388, 8, 40, "Input"]
245}, Open  ]],
246Cell[CellGroupData[{
247Cell[4386, 120, 25, 0, 100, "Section"],
248Cell[CellGroupData[{
249Cell[4436, 124, 347, 12, 53, "Subsection"],
250Cell[4786, 138, 314, 6, 40, "Input"]
251}, Open  ]],
252Cell[CellGroupData[{
253Cell[5137, 149, 263, 8, 51, "Subsection"],
254Cell[5403, 159, 316, 6, 40, "Input"]
255}, Open  ]],
256Cell[CellGroupData[{
257Cell[5756, 170, 265, 8, 51, "Subsection"],
258Cell[6024, 180, 264, 4, 40, "Input"]
259}, Open  ]],
260Cell[CellGroupData[{
261Cell[6325, 189, 153, 2, 51, "Subsection"],
262Cell[6481, 193, 156, 3, 40, "Input"],
263Cell[6640, 198, 191, 3, 40, "Input"]
264}, Open  ]]
265}, Open  ]]
266}, Open  ]]
267}
268]
269*)
270
271(* End of internal cache information *)