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 *)
|
---|