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[ 29228, 867]
|
---|
14 | NotebookOptionsPosition[ 24074, 694]
|
---|
15 | NotebookOutlinePosition[ 24452, 711]
|
---|
16 | CellTagsIndexPosition[ 24409, 708]
|
---|
17 | WindowFrame->Normal*)
|
---|
18 |
|
---|
19 | (* Beginning of Notebook Content *)
|
---|
20 | Notebook[{
|
---|
21 | Cell[BoxData[
|
---|
22 | RowBox[{"Quit", "[", "]"}]], "Input",
|
---|
23 | CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
|
---|
24 | 3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
|
---|
25 | 3.4234163227881193`*^9}, {3.424068937202279*^9, 3.424068972595354*^9}, {
|
---|
26 | 3.441972201424767*^9, 3.441972204100518*^9}, {3.441974075463511*^9,
|
---|
27 | 3.441974075807181*^9}, {3.44275751802024*^9, 3.442757518156605*^9}, {
|
---|
28 | 3.4543250469973173`*^9, 3.4543250494197693`*^9}, {3.528797117128602*^9,
|
---|
29 | 3.52879711983528*^9}, {3.5352057748794737`*^9, 3.53520577577702*^9}, {
|
---|
30 | 3.535207608385954*^9, 3.5352076091277018`*^9}}],
|
---|
31 |
|
---|
32 | Cell[BoxData[
|
---|
33 | RowBox[{"$FeynRulesPath", "=",
|
---|
34 | RowBox[{
|
---|
35 | "SetDirectory", "[", "\"\<~/mathematica/FeynRules_1.6.0\>\"",
|
---|
36 | "]"}]}]], "Input"],
|
---|
37 |
|
---|
38 | Cell[BoxData[
|
---|
39 | RowBox[{"<<", "FeynRules`"}]], "Input"],
|
---|
40 |
|
---|
41 | Cell[BoxData[
|
---|
42 | RowBox[{
|
---|
43 | RowBox[{"SetDirectory", "[",
|
---|
44 | RowBox[{"$FeynRulesPath", "<>", "\"\</Models/B-L\>\""}], "]"}],
|
---|
45 | ";"}]], "Input",
|
---|
46 | CellChangeTimes->{{3.419073170860696*^9, 3.419073182827229*^9}, {
|
---|
47 | 3.424068987980844*^9, 3.4240689893965273`*^9}}],
|
---|
48 |
|
---|
49 | Cell[CellGroupData[{
|
---|
50 |
|
---|
51 | Cell["The B-L extension of the Standard Model", "Title",
|
---|
52 | CellChangeTimes->{{3.424069004105296*^9, 3.424069007850328*^9}}],
|
---|
53 |
|
---|
54 | Cell["We first load in the B-L Model model-file", "Text",
|
---|
55 | CellChangeTimes->{{3.424069016807353*^9, 3.4240690172628117`*^9}}],
|
---|
56 |
|
---|
57 | Cell[BoxData[
|
---|
58 | RowBox[{"LoadModel", "[", "\"\<B-L.fr\>\"", "]"}]], "Input",
|
---|
59 | CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
|
---|
60 | 3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
|
---|
61 | 3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
|
---|
62 | 3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
|
---|
63 | 3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
|
---|
64 | 3.403347555049163*^9}, 3.4044490490588417`*^9, {3.411744339876704*^9,
|
---|
65 | 3.411744340012457*^9}, {3.4121886924550533`*^9, 3.412188699157571*^9},
|
---|
66 | 3.412188808811866*^9, 3.4121888580521603`*^9, {3.412450464077868*^9,
|
---|
67 | 3.412450464378695*^9}, {3.413715097460478*^9, 3.41371509757642*^9}, {
|
---|
68 | 3.41440825334604*^9, 3.414408254159686*^9}, {3.41862573831756*^9,
|
---|
69 | 3.4186257392223186`*^9}, {3.4190731862389174`*^9, 3.419073187003003*^9}, {
|
---|
70 | 3.419073336802393*^9, 3.4190733374513063`*^9}, {3.4190828041801767`*^9,
|
---|
71 | 3.4190828048079023`*^9}, {3.4240690195427647`*^9, 3.424069028019803*^9}}],
|
---|
72 |
|
---|
73 | Cell[CellGroupData[{
|
---|
74 |
|
---|
75 | Cell["The B-L lagrangian", "Section",
|
---|
76 | CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
|
---|
77 | 3.424069513901162*^9, 3.424069514344799*^9}}],
|
---|
78 |
|
---|
79 | Cell[CellGroupData[{
|
---|
80 |
|
---|
81 | Cell["Unitary Gauge", "Subsection",
|
---|
82 | CellChangeTimes->{{3.411910080775518*^9, 3.41191008414785*^9}}],
|
---|
83 |
|
---|
84 | Cell["\<\
|
---|
85 | The full lagrangian in unitary gauge can be accessed immediatly via\
|
---|
86 | \>", "Text",
|
---|
87 | CellChangeTimes->{{3.411910016771447*^9, 3.411910062087528*^9}, {
|
---|
88 | 3.411910094087652*^9, 3.411910096590087*^9}, {3.411910215381351*^9,
|
---|
89 | 3.4119102162371798`*^9}}],
|
---|
90 |
|
---|
91 | Cell[BoxData["LBL"], "Input",
|
---|
92 | CellChangeTimes->{{3.411910106011015*^9, 3.411910106351081*^9}, {
|
---|
93 | 3.535205784209942*^9, 3.535205784276331*^9}}],
|
---|
94 |
|
---|
95 | Cell[CellGroupData[{
|
---|
96 |
|
---|
97 | Cell["Gauge sector", "Subsubsection",
|
---|
98 | CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}}],
|
---|
99 |
|
---|
100 | Cell["\<\
|
---|
101 | The part of the lagrangian representing the gauge sector can be accessed via\
|
---|
102 | \>", "Text",
|
---|
103 | CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
|
---|
104 | 3.411910235813308*^9, 3.4119102509651337`*^9}}],
|
---|
105 |
|
---|
106 | Cell[BoxData["LGauge"], "Input",
|
---|
107 | CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}}]
|
---|
108 | }, Open ]],
|
---|
109 |
|
---|
110 | Cell[CellGroupData[{
|
---|
111 |
|
---|
112 | Cell["Scalar sector", "Subsubsection",
|
---|
113 | CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
|
---|
114 | 3.411910274288354*^9, 3.41191027703699*^9}}],
|
---|
115 |
|
---|
116 | Cell["\<\
|
---|
117 | The part of the lagrangian representing the scalar sector can be accessed via\
|
---|
118 | \
|
---|
119 | \>", "Text",
|
---|
120 | CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
|
---|
121 | 3.411910235813308*^9, 3.4119102509651337`*^9}, {3.41191028690167*^9,
|
---|
122 | 3.411910287709094*^9}}],
|
---|
123 |
|
---|
124 | Cell[BoxData["LHiggs"], "Input",
|
---|
125 | CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
|
---|
126 | 3.411910290186841*^9, 3.411910292005392*^9}}]
|
---|
127 | }, Open ]],
|
---|
128 |
|
---|
129 | Cell[CellGroupData[{
|
---|
130 |
|
---|
131 | Cell["Fermion sector", "Subsubsection",
|
---|
132 | CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
|
---|
133 | 3.4119103528868923`*^9, 3.411910357404933*^9}}],
|
---|
134 |
|
---|
135 | Cell["\<\
|
---|
136 | The part of the lagrangian representing the fermion sector can be accessed via\
|
---|
137 | \>", "Text",
|
---|
138 | CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
|
---|
139 | 3.411910235813308*^9, 3.4119102509651337`*^9}, {3.4119103873434134`*^9,
|
---|
140 | 3.411910388077118*^9}}],
|
---|
141 |
|
---|
142 | Cell[BoxData["LFermions"], "Input",
|
---|
143 | CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
|
---|
144 | 3.411910379677638*^9, 3.4119103807255*^9}}]
|
---|
145 | }, Open ]],
|
---|
146 |
|
---|
147 | Cell[CellGroupData[{
|
---|
148 |
|
---|
149 | Cell["Yukawa sector", "Subsubsection",
|
---|
150 | CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
|
---|
151 | 3.411910393742139*^9, 3.411910394852953*^9}}],
|
---|
152 |
|
---|
153 | Cell["\<\
|
---|
154 | The part of the lagrangian representing the Yukawa sector can be accessed via\
|
---|
155 | \
|
---|
156 | \>", "Text",
|
---|
157 | CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
|
---|
158 | 3.411910235813308*^9, 3.4119102509651337`*^9}, {3.411910399061659*^9,
|
---|
159 | 3.411910400421185*^9}}],
|
---|
160 |
|
---|
161 | Cell[BoxData["LYukawa"], "Input",
|
---|
162 | CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
|
---|
163 | 3.4119104032372026`*^9, 3.411910404165523*^9}}]
|
---|
164 | }, Open ]]
|
---|
165 | }, Open ]],
|
---|
166 |
|
---|
167 | Cell[CellGroupData[{
|
---|
168 |
|
---|
169 | Cell["Feynman Gauge", "Subsection",
|
---|
170 | CellChangeTimes->{{3.411910080775518*^9, 3.41191008414785*^9}, {
|
---|
171 | 3.411910431304595*^9, 3.41191043361451*^9}}],
|
---|
172 |
|
---|
173 | Cell["\<\
|
---|
174 | By default, SM lagrangian is loaded in unitary gauge. However, Feynman gauge \
|
---|
175 | can be obtained by putting\
|
---|
176 | \>", "Text",
|
---|
177 | CellChangeTimes->{{3.411910440565042*^9, 3.411910480762147*^9}}],
|
---|
178 |
|
---|
179 | Cell[BoxData[
|
---|
180 | RowBox[{
|
---|
181 | RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
|
---|
182 | CellChangeTimes->{{3.411910487433539*^9, 3.4119104927114267`*^9}}],
|
---|
183 |
|
---|
184 | Cell["\<\
|
---|
185 | The full lagrangian in Feynman gauge can be accessed immediatly via\
|
---|
186 | \>", "Text",
|
---|
187 | CellChangeTimes->{{3.411910016771447*^9, 3.411910062087528*^9}, {
|
---|
188 | 3.411910094087652*^9, 3.411910096590087*^9}, {3.411910215381351*^9,
|
---|
189 | 3.4119102162371798`*^9}, {3.411910436148773*^9, 3.411910437013105*^9}}],
|
---|
190 |
|
---|
191 | Cell[BoxData["LBL"], "Input",
|
---|
192 | CellChangeTimes->{{3.411910106011015*^9, 3.411910106351081*^9}, {
|
---|
193 | 3.5352057896067543`*^9, 3.5352057896886463`*^9}}],
|
---|
194 |
|
---|
195 | Cell[CellGroupData[{
|
---|
196 |
|
---|
197 | Cell["Gauge sector", "Subsubsection",
|
---|
198 | CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}}],
|
---|
199 |
|
---|
200 | Cell["\<\
|
---|
201 | The part of the lagrangian representing the gauge sector can be accessed via\
|
---|
202 | \>", "Text",
|
---|
203 | CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
|
---|
204 | 3.411910235813308*^9, 3.4119102509651337`*^9}}],
|
---|
205 |
|
---|
206 | Cell[BoxData["LGauge"], "Input",
|
---|
207 | CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}}]
|
---|
208 | }, Open ]],
|
---|
209 |
|
---|
210 | Cell[CellGroupData[{
|
---|
211 |
|
---|
212 | Cell["Scalar sector", "Subsubsection",
|
---|
213 | CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
|
---|
214 | 3.411910274288354*^9, 3.41191027703699*^9}}],
|
---|
215 |
|
---|
216 | Cell["\<\
|
---|
217 | The part of the lagrangian representing the scalar sector can be accessed via\
|
---|
218 | \
|
---|
219 | \>", "Text",
|
---|
220 | CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
|
---|
221 | 3.411910235813308*^9, 3.4119102509651337`*^9}, {3.41191028690167*^9,
|
---|
222 | 3.411910287709094*^9}}],
|
---|
223 |
|
---|
224 | Cell[BoxData["LHiggs"], "Input",
|
---|
225 | CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
|
---|
226 | 3.411910290186841*^9, 3.411910292005392*^9}}]
|
---|
227 | }, Open ]],
|
---|
228 |
|
---|
229 | Cell[CellGroupData[{
|
---|
230 |
|
---|
231 | Cell["Fermion sector", "Subsubsection",
|
---|
232 | CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
|
---|
233 | 3.4119103528868923`*^9, 3.411910357404933*^9}}],
|
---|
234 |
|
---|
235 | Cell["\<\
|
---|
236 | The part of the lagrangian representing the fermion sector can be accessed via\
|
---|
237 | \>", "Text",
|
---|
238 | CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
|
---|
239 | 3.411910235813308*^9, 3.4119102509651337`*^9}, {3.4119103873434134`*^9,
|
---|
240 | 3.411910388077118*^9}}],
|
---|
241 |
|
---|
242 | Cell[BoxData["LFermions"], "Input",
|
---|
243 | CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
|
---|
244 | 3.411910379677638*^9, 3.4119103807255*^9}}]
|
---|
245 | }, Open ]],
|
---|
246 |
|
---|
247 | Cell[CellGroupData[{
|
---|
248 |
|
---|
249 | Cell["Yukawa sector", "Subsubsection",
|
---|
250 | CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
|
---|
251 | 3.411910393742139*^9, 3.411910394852953*^9}}],
|
---|
252 |
|
---|
253 | Cell["\<\
|
---|
254 | The part of the lagrangian representing the Yukawa sector can be accessed via\
|
---|
255 | \
|
---|
256 | \>", "Text",
|
---|
257 | CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
|
---|
258 | 3.411910235813308*^9, 3.4119102509651337`*^9}, {3.411910399061659*^9,
|
---|
259 | 3.411910400421185*^9}}],
|
---|
260 |
|
---|
261 | Cell[BoxData["LYukawa"], "Input",
|
---|
262 | CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
|
---|
263 | 3.4119104032372026`*^9, 3.411910404165523*^9}}]
|
---|
264 | }, Open ]],
|
---|
265 |
|
---|
266 | Cell[CellGroupData[{
|
---|
267 |
|
---|
268 | Cell["Ghost sector", "Subsubsection",
|
---|
269 | CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
|
---|
270 | 3.411910393742139*^9, 3.411910394852953*^9}, {3.4119106057673063`*^9,
|
---|
271 | 3.411910606397141*^9}}],
|
---|
272 |
|
---|
273 | Cell["\<\
|
---|
274 | The part of the lagrangian representing the ghost sector can be accessed via\
|
---|
275 | \>", "Text",
|
---|
276 | CellChangeTimes->{{3.4119101255458603`*^9, 3.411910192225008*^9}, {
|
---|
277 | 3.411910235813308*^9, 3.4119102509651337`*^9}, {3.411910399061659*^9,
|
---|
278 | 3.411910400421185*^9}, {3.4119106110136833`*^9, 3.411910611661195*^9}}],
|
---|
279 |
|
---|
280 | Cell[BoxData["LGhost"], "Input",
|
---|
281 | CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
|
---|
282 | 3.4119104032372026`*^9, 3.411910404165523*^9}, {3.411910615100849*^9,
|
---|
283 | 3.411910615781582*^9}}]
|
---|
284 | }, Open ]]
|
---|
285 | }, Open ]]
|
---|
286 | }, Open ]],
|
---|
287 |
|
---|
288 | Cell[CellGroupData[{
|
---|
289 |
|
---|
290 | Cell["Checking the Lagrangian", "Section",
|
---|
291 | CellChangeTimes->{{3.4234156496121893`*^9, 3.423415657027569*^9}}],
|
---|
292 |
|
---|
293 | Cell[BoxData[
|
---|
294 | RowBox[{
|
---|
295 | RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
|
---|
296 | CellChangeTimes->{{3.4234159280429783`*^9, 3.423415934798614*^9}}],
|
---|
297 |
|
---|
298 | Cell[CellGroupData[{
|
---|
299 |
|
---|
300 | Cell["Checking hermiticity", "Subsection",
|
---|
301 | CellChangeTimes->{{3.4234156831783743`*^9, 3.423415689540821*^9}}],
|
---|
302 |
|
---|
303 | Cell["The hermiticity of the Lagrangian can be checked via", "Text",
|
---|
304 | CellChangeTimes->{{3.423415694323595*^9, 3.423415707867804*^9}}],
|
---|
305 |
|
---|
306 | Cell[BoxData[
|
---|
307 | RowBox[{"CheckHermiticity", "[",
|
---|
308 | RowBox[{"LBL", ",",
|
---|
309 | RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
|
---|
310 | CellChangeTimes->{{3.414763473002973*^9, 3.4147634845507174`*^9}, {
|
---|
311 | 3.535205795048677*^9, 3.535205795142927*^9}}],
|
---|
312 |
|
---|
313 | Cell["\<\
|
---|
314 | The same command can be applied to the flavor - expanded Lagrangian\
|
---|
315 | \>", "Text",
|
---|
316 | CellChangeTimes->{{3.423415721582508*^9, 3.423415739787958*^9}}],
|
---|
317 |
|
---|
318 | Cell[BoxData[
|
---|
319 | RowBox[{"CheckHermiticity", "[",
|
---|
320 | RowBox[{"LBL", ",",
|
---|
321 | RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
|
---|
322 | CellChangeTimes->{{3.414763604111637*^9, 3.4147636044973803`*^9}, {
|
---|
323 | 3.424080314738064*^9, 3.4240803160202007`*^9}, {3.4240803610787563`*^9,
|
---|
324 | 3.424080369363863*^9}, 3.424080528889154*^9, {3.424637906862782*^9,
|
---|
325 | 3.42463790717518*^9}, {3.535205797882455*^9, 3.5352057979381227`*^9}}]
|
---|
326 | }, Open ]],
|
---|
327 |
|
---|
328 | Cell[CellGroupData[{
|
---|
329 |
|
---|
330 | Cell["Checking the mass spectrum", "Subsection",
|
---|
331 | CellChangeTimes->{{3.423415831209465*^9, 3.423415835278742*^9}}],
|
---|
332 |
|
---|
333 | Cell["\<\
|
---|
334 | FeynRules can check whether all the values of the masses given in the model \
|
---|
335 | file ar ein agreement with the masses given in the Lagrangian:\
|
---|
336 | \>", "Text",
|
---|
337 | CellChangeTimes->{{3.423415751305388*^9, 3.423415792594919*^9}}],
|
---|
338 |
|
---|
339 | Cell[BoxData[
|
---|
340 | RowBox[{"CheckMassSpectrum", "[", "LBL", "]"}]], "Input",
|
---|
341 | CellChangeTimes->{{3.414736325829801*^9, 3.414736326065997*^9},
|
---|
342 | 3.4147528281460342`*^9, {3.535205800580488*^9, 3.5352058006644983`*^9}}]
|
---|
343 | }, Open ]],
|
---|
344 |
|
---|
345 | Cell[CellGroupData[{
|
---|
346 |
|
---|
347 | Cell["Checking the kinetic terms", "Subsection",
|
---|
348 | CellChangeTimes->{{3.423415843532096*^9, 3.42341584850035*^9}}],
|
---|
349 |
|
---|
350 | Cell["\<\
|
---|
351 | In the same way, FeynRules can check whether all kinetic terms are correctly \
|
---|
352 | normalized :\
|
---|
353 | \>", "Text",
|
---|
354 | CellChangeTimes->{{3.423415798800013*^9, 3.423415817964087*^9}}],
|
---|
355 |
|
---|
356 | Cell[BoxData[
|
---|
357 | RowBox[{"CheckKineticTermNormalisation", "[",
|
---|
358 | RowBox[{"LBL", ",",
|
---|
359 | RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
|
---|
360 | CellChangeTimes->{{3.4147636651636972`*^9, 3.414763667250185*^9}, {
|
---|
361 | 3.5352058047093573`*^9, 3.535205804765349*^9}}],
|
---|
362 |
|
---|
363 | Cell["\<\
|
---|
364 | The same command cen be used at the level of the flavor - expanded Lagrangian \
|
---|
365 | :\
|
---|
366 | \>", "Text",
|
---|
367 | CellChangeTimes->{{3.423415868906054*^9, 3.4234158864202538`*^9}}],
|
---|
368 |
|
---|
369 | Cell[BoxData[
|
---|
370 | RowBox[{"CheckKineticTermNormalisation", "[",
|
---|
371 | RowBox[{"LBL", ",",
|
---|
372 | RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
|
---|
373 | CellChangeTimes->{{3.5352058076649523`*^9, 3.535205807812533*^9}}]
|
---|
374 | }, Open ]]
|
---|
375 | }, Open ]],
|
---|
376 |
|
---|
377 | Cell[CellGroupData[{
|
---|
378 |
|
---|
379 | Cell["Calculation of the Feynman rules", "Section",
|
---|
380 | CellChangeTimes->{{3.411910637332127*^9, 3.41191064360071*^9}}],
|
---|
381 |
|
---|
382 | Cell["\<\
|
---|
383 | We will calculate now explicitly the Feynman rules for the SM in Feynman \
|
---|
384 | gauge.\
|
---|
385 | \>", "Text",
|
---|
386 | CellChangeTimes->{{3.41191064804084*^9, 3.411910672936666*^9}}],
|
---|
387 |
|
---|
388 | Cell[BoxData[
|
---|
389 | RowBox[{
|
---|
390 | RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
|
---|
391 | CellChangeTimes->{{3.411910674121689*^9, 3.4119106799564953`*^9}}],
|
---|
392 |
|
---|
393 | Cell[CellGroupData[{
|
---|
394 |
|
---|
395 | Cell["Gauge sector", "Subsection",
|
---|
396 | CellChangeTimes->{{3.411910690443768*^9, 3.411910692233274*^9}}],
|
---|
397 |
|
---|
398 | Cell[BoxData[
|
---|
399 | RowBox[{
|
---|
400 | RowBox[{"vertsGauge", "=",
|
---|
401 | RowBox[{"FeynmanRules", "[",
|
---|
402 | RowBox[{"LGauge", ",",
|
---|
403 | RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], ";"}]], "Input",
|
---|
404 | CellChangeTimes->{
|
---|
405 | 3.40274690437012*^9, {3.402746954727231*^9, 3.4027469691642714`*^9}, {
|
---|
406 | 3.4032592998045692`*^9, 3.403259304564069*^9}, 3.403267976055098*^9, {
|
---|
407 | 3.411910705212987*^9, 3.411910705553741*^9}, {3.423415993272615*^9,
|
---|
408 | 3.42341600147605*^9}}]
|
---|
409 | }, Open ]],
|
---|
410 |
|
---|
411 | Cell[CellGroupData[{
|
---|
412 |
|
---|
413 | Cell["Higgs Sector", "Subsection",
|
---|
414 | CellChangeTimes->{3.404470070069872*^9}],
|
---|
415 |
|
---|
416 | Cell[BoxData[
|
---|
417 | RowBox[{
|
---|
418 | RowBox[{"vertsHiggs", "=",
|
---|
419 | RowBox[{"FeynmanRules", "[", "LHiggs", "]"}]}], ";"}]], "Input",
|
---|
420 | CellChangeTimes->{{3.411910728609757*^9, 3.41191072908109*^9}, {
|
---|
421 | 3.423416009086747*^9, 3.423416012982971*^9}, 3.423416065626593*^9}]
|
---|
422 | }, Open ]],
|
---|
423 |
|
---|
424 | Cell[CellGroupData[{
|
---|
425 |
|
---|
426 | Cell["Matter sector", "Subsection"],
|
---|
427 |
|
---|
428 | Cell[BoxData[
|
---|
429 | RowBox[{
|
---|
430 | RowBox[{"vertsFermions", "=",
|
---|
431 | RowBox[{"FeynmanRules", "[", "LFermions", "]"}]}], ";"}]], "Input",
|
---|
432 | CellChangeTimes->{{3.402205118991502*^9, 3.4022051228508387`*^9},
|
---|
433 | 3.402747846432675*^9, {3.4032613449872217`*^9, 3.403261349245253*^9}, {
|
---|
434 | 3.403266977133403*^9, 3.4032669793125563`*^9}, {3.411910788644576*^9,
|
---|
435 | 3.411910789233307*^9}, {3.423416034294303*^9, 3.423416042739814*^9}}]
|
---|
436 | }, Open ]],
|
---|
437 |
|
---|
438 | Cell[CellGroupData[{
|
---|
439 |
|
---|
440 | Cell["Yukawa sector", "Subsection"],
|
---|
441 |
|
---|
442 | Cell[BoxData[
|
---|
443 | RowBox[{
|
---|
444 | RowBox[{"vertsYukawa", "=",
|
---|
445 | RowBox[{"FeynmanRules", "[",
|
---|
446 | RowBox[{"LYukawa", ",",
|
---|
447 | RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
|
---|
448 | CellChangeTimes->{{3.403266987858165*^9, 3.4032670026080303`*^9}, {
|
---|
449 | 3.411910826105542*^9, 3.411910826777452*^9}, {3.423416089772278*^9,
|
---|
450 | 3.423416095643961*^9}}]
|
---|
451 | }, Open ]],
|
---|
452 |
|
---|
453 | Cell[CellGroupData[{
|
---|
454 |
|
---|
455 | Cell["LGhost sector", "Subsection",
|
---|
456 | CellChangeTimes->{{3.411910849714159*^9, 3.411910851088325*^9}}],
|
---|
457 |
|
---|
458 | Cell[BoxData[
|
---|
459 | RowBox[{
|
---|
460 | RowBox[{"vertsGhosts", "=",
|
---|
461 | RowBox[{"FeynmanRules", "[",
|
---|
462 | RowBox[{"LGhost", ",",
|
---|
463 | RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], ";"}]], "Input",
|
---|
464 | CellChangeTimes->{{3.403266987858165*^9, 3.4032670026080303`*^9}, {
|
---|
465 | 3.411910826105542*^9, 3.411910826777452*^9}, {3.411910857580064*^9,
|
---|
466 | 3.411910870001601*^9}, 3.415256462464088*^9, {3.423416107236608*^9,
|
---|
467 | 3.423416112835993*^9}}]
|
---|
468 | }, Open ]]
|
---|
469 | }, Open ]],
|
---|
470 |
|
---|
471 | Cell[CellGroupData[{
|
---|
472 |
|
---|
473 | Cell["Outputs and interfaces", "Section",
|
---|
474 | CellChangeTimes->{
|
---|
475 | 3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}}],
|
---|
476 |
|
---|
477 | Cell[CellGroupData[{
|
---|
478 |
|
---|
479 | Cell["TeX output", "Subsection",
|
---|
480 | CellChangeTimes->{{3.411910947430851*^9, 3.411910949151555*^9}}],
|
---|
481 |
|
---|
482 | Cell["\<\
|
---|
483 | The TeX output for the pure B-L model can be obtained via\
|
---|
484 | \>", "Text",
|
---|
485 | CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9},
|
---|
486 | 3.535205890778984*^9}],
|
---|
487 |
|
---|
488 | Cell[BoxData[
|
---|
489 | RowBox[{"WriteTeXOutput", "[",
|
---|
490 | RowBox[{"LBL", ",", "vertsGhosts", ",",
|
---|
491 | RowBox[{"Output", "\[Rule]", "\"\<B-L.tex\>\""}]}], "]"}]], "Input",
|
---|
492 | CellChangeTimes->{{3.411910975128832*^9, 3.411910989032667*^9}, {
|
---|
493 | 3.413715190013906*^9, 3.413715219763245*^9}, {3.4143155989473963`*^9,
|
---|
494 | 3.414315622297143*^9}, {3.4234161283912163`*^9, 3.423416165214814*^9}, {
|
---|
495 | 3.424434998765719*^9, 3.42443500440279*^9}, {3.535205816001309*^9,
|
---|
496 | 3.5352058160497837`*^9}}]
|
---|
497 | }, Open ]],
|
---|
498 |
|
---|
499 | Cell[CellGroupData[{
|
---|
500 |
|
---|
501 | Cell["FeynArts output", "Subsection",
|
---|
502 | CellChangeTimes->{{3.411911000132907*^9, 3.411911005135379*^9}}],
|
---|
503 |
|
---|
504 | Cell["\<\
|
---|
505 | The FeynArts output for the pure B-L model can be obtained via\
|
---|
506 | \>", "Text",
|
---|
507 | CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
|
---|
508 | 3.411911062212926*^9, 3.4119110634765463`*^9}, 3.5352058849351053`*^9}],
|
---|
509 |
|
---|
510 | Cell[BoxData[{
|
---|
511 | RowBox[{
|
---|
512 | RowBox[{
|
---|
513 | RowBox[{"FeynmanGauge", " ", "=", " ", "False"}], ";"}],
|
---|
514 | "\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
---|
515 | RowBox[{"WriteFeynArtsOutput", "[",
|
---|
516 | RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",",
|
---|
517 | RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], "Input",
|
---|
518 | CellChangeTimes->{{3.411911018354619*^9, 3.4119110196967573`*^9}, {
|
---|
519 | 3.412185470680571*^9, 3.412185480912915*^9}, {3.41245048911446*^9,
|
---|
520 | 3.4124504892674522`*^9}, 3.414315634453483*^9, {3.423416180751266*^9,
|
---|
521 | 3.423416182892613*^9}}],
|
---|
522 |
|
---|
523 | Cell["FeynArts also supports the Feynman gauge", "Text",
|
---|
524 | CellChangeTimes->{{3.4121854851672792`*^9, 3.412185494183435*^9}}],
|
---|
525 |
|
---|
526 | Cell[BoxData[{
|
---|
527 | RowBox[{
|
---|
528 | RowBox[{
|
---|
529 | RowBox[{"FeynmanGauge", " ", "=", " ", "True"}], ";"}],
|
---|
530 | "\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
---|
531 | RowBox[{"WriteFeynArtsOutput", "[",
|
---|
532 | RowBox[{
|
---|
533 | "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost",
|
---|
534 | ",",
|
---|
535 | RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}], ",",
|
---|
536 | RowBox[{"Output", "\[Rule]", "\"\<B-L.mod\>\""}]}], "]"}]}], "Input",
|
---|
537 | CellChangeTimes->{{3.411911018354619*^9, 3.4119110196967573`*^9}, {
|
---|
538 | 3.412185470680571*^9, 3.412185506240796*^9}, {3.4234161971513453`*^9,
|
---|
539 | 3.423416209716672*^9}, {3.424637927237001*^9, 3.424637928707159*^9}}]
|
---|
540 | }, Open ]],
|
---|
541 |
|
---|
542 | Cell[CellGroupData[{
|
---|
543 |
|
---|
544 | Cell["Sherpa output", "Subsection",
|
---|
545 | CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}}],
|
---|
546 |
|
---|
547 | Cell["\<\
|
---|
548 | The Sherpa output for the pure B-L model can be obtained via\
|
---|
549 | \>", "Text",
|
---|
550 | CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
|
---|
551 | 3.411911059590749*^9, 3.4119110601885567`*^9}, {3.5352058750540133`*^9,
|
---|
552 | 3.5352058773981543`*^9}}],
|
---|
553 |
|
---|
554 | Cell[BoxData[{
|
---|
555 | RowBox[{
|
---|
556 | RowBox[{
|
---|
557 | RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
|
---|
558 | "\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
---|
559 | RowBox[{"WriteSHOutput", "[",
|
---|
560 | RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa"}],
|
---|
561 | "]"}]}], "Input",
|
---|
562 | CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
|
---|
563 | 3.412185455856553*^9, 3.412185456628922*^9}, {3.4143156544792233`*^9,
|
---|
564 | 3.414315668290971*^9}, {3.423416222700699*^9, 3.423416235756197*^9}}]
|
---|
565 | }, Open ]],
|
---|
566 |
|
---|
567 | Cell[CellGroupData[{
|
---|
568 |
|
---|
569 | Cell["MadGraph output", "Subsection",
|
---|
570 | CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
|
---|
571 | 3.411911131666554*^9, 3.411911135984398*^9}}],
|
---|
572 |
|
---|
573 | Cell["\<\
|
---|
574 | The MadGraph output for the pure B-L model can be obtained via\
|
---|
575 | \>", "Text",
|
---|
576 | CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
|
---|
577 | 3.411911059590749*^9, 3.4119110601885567`*^9}, {3.41191113897644*^9,
|
---|
578 | 3.411911142024486*^9}, {3.5352058731583033`*^9, 3.5352058786065807`*^9}}],
|
---|
579 |
|
---|
580 | Cell[BoxData[{
|
---|
581 | RowBox[{
|
---|
582 | RowBox[{
|
---|
583 | RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
|
---|
584 | "\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
---|
585 | RowBox[{
|
---|
586 | RowBox[{"WriteMGOutput", "[",
|
---|
587 | RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa"}], "]"}],
|
---|
588 | ";"}]}], "Input",
|
---|
589 | CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
|
---|
590 | 3.412185409690489*^9, 3.4121854352800217`*^9}}]
|
---|
591 | }, Open ]],
|
---|
592 |
|
---|
593 | Cell[CellGroupData[{
|
---|
594 |
|
---|
595 | Cell["CalcHep output", "Subsection",
|
---|
596 | CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
|
---|
597 | 3.411911150323291*^9, 3.4119111515122623`*^9}}],
|
---|
598 |
|
---|
599 | Cell["\<\
|
---|
600 | The CalcHep output for the pure B-L model can be obtained via\
|
---|
601 | \>", "Text",
|
---|
602 | CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
|
---|
603 | 3.411911059590749*^9, 3.4119110601885567`*^9}, {3.4119111540967712`*^9,
|
---|
604 | 3.411911155096376*^9}, {3.535205860814587*^9, 3.535205867141062*^9}}],
|
---|
605 |
|
---|
606 | Cell[BoxData[{
|
---|
607 | RowBox[{
|
---|
608 | RowBox[{
|
---|
609 | RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
|
---|
610 | "\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
---|
611 | RowBox[{
|
---|
612 | RowBox[{"WriteCHOutput", "[",
|
---|
613 | RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",",
|
---|
614 | RowBox[{"MaxExpressionLength", "\[Rule]", "120"}]}], "]"}],
|
---|
615 | ";"}]}], "Input",
|
---|
616 | CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
|
---|
617 | 3.412185398898693*^9, 3.412185419919883*^9}, {3.414315699020526*^9,
|
---|
618 | 3.41431570701153*^9}, 3.414315777726746*^9, {3.414316480328691*^9,
|
---|
619 | 3.414316491307609*^9}, {3.4143165302100153`*^9, 3.414316531719597*^9},
|
---|
620 | 3.423416262588552*^9, {3.4244350982608624`*^9, 3.424435102519063*^9}}],
|
---|
621 |
|
---|
622 | Cell["CalcHep also supports the Feynman gauge", "Text",
|
---|
623 | CellChangeTimes->{{3.4121853722243843`*^9, 3.412185380407339*^9}}],
|
---|
624 |
|
---|
625 | Cell[BoxData[{
|
---|
626 | RowBox[{
|
---|
627 | RowBox[{
|
---|
628 | RowBox[{"FeynmanGauge", "=", "True"}], ";"}],
|
---|
629 | "\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
---|
630 | RowBox[{
|
---|
631 | RowBox[{"WriteCHOutput", "[",
|
---|
632 | RowBox[{
|
---|
633 | "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost",
|
---|
634 | ",",
|
---|
635 | RowBox[{"MaxExpressionLength", "\[Rule]", "120"}]}], "]"}],
|
---|
636 | ";"}]}], "Input",
|
---|
637 | CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
|
---|
638 | 3.412185409690489*^9, 3.4121854275198507`*^9}, {3.412450479942018*^9,
|
---|
639 | 3.4124504817138367`*^9}, {3.424435099210684*^9, 3.4244351046994867`*^9}}]
|
---|
640 | }, Open ]],
|
---|
641 |
|
---|
642 | Cell[CellGroupData[{
|
---|
643 |
|
---|
644 | Cell["Whizard output", "Subsection",
|
---|
645 | CellChangeTimes->{{3.528797132808325*^9, 3.528797132820179*^9}, {
|
---|
646 | 3.52879722803909*^9, 3.5287972323663054`*^9}}],
|
---|
647 |
|
---|
648 | Cell["Whizard also supports the Feynman gauge", "Text",
|
---|
649 | CellChangeTimes->{{3.528797137943204*^9, 3.528797137944153*^9}, {
|
---|
650 | 3.528797240132764*^9, 3.528797243603442*^9}}],
|
---|
651 |
|
---|
652 | Cell[BoxData[{
|
---|
653 | RowBox[{
|
---|
654 | RowBox[{
|
---|
655 | RowBox[{"FeynmanGauge", "=", "True"}], ";"}],
|
---|
656 | "\n"}], "\[IndentingNewLine]",
|
---|
657 | RowBox[{
|
---|
658 | RowBox[{"WriteWOOutput", "[",
|
---|
659 | RowBox[{
|
---|
660 | "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost"}],
|
---|
661 | "]"}], ";"}]}], "Input",
|
---|
662 | CellChangeTimes->{{3.528797146761663*^9, 3.528797146762849*^9}, {
|
---|
663 | 3.528797210028261*^9, 3.528797211739274*^9}}]
|
---|
664 | }, Open ]],
|
---|
665 |
|
---|
666 | Cell[CellGroupData[{
|
---|
667 |
|
---|
668 | Cell["UFO output", "Subsection",
|
---|
669 | CellChangeTimes->{{3.528797217186555*^9, 3.528797236293277*^9}}],
|
---|
670 |
|
---|
671 | Cell["\<\
|
---|
672 | The UFO output (for MadGraph5) for the pure B-L model can be obtained via\
|
---|
673 | \>", "Text",
|
---|
674 | CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
|
---|
675 | 3.411911059590749*^9, 3.4119110601885567`*^9}, {3.4119111540967712`*^9,
|
---|
676 | 3.411911155096376*^9}, {3.535205860814587*^9, 3.535205867141062*^9}, {
|
---|
677 | 3.535205914201091*^9, 3.5352059214019833`*^9}}],
|
---|
678 |
|
---|
679 | Cell[BoxData[{
|
---|
680 | RowBox[{
|
---|
681 | RowBox[{
|
---|
682 | RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
|
---|
683 | "\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
---|
684 | RowBox[{
|
---|
685 | RowBox[{"WriteUFO", "[",
|
---|
686 | RowBox[{
|
---|
687 | "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost"}],
|
---|
688 | "]"}], ";"}]}], "Input",
|
---|
689 | CellChangeTimes->{{3.528797221130815*^9, 3.528797221131584*^9}, {
|
---|
690 | 3.535205850686822*^9, 3.535205854235278*^9}}]
|
---|
691 | }, Open ]]
|
---|
692 | }, Open ]]
|
---|
693 | }, Open ]]
|
---|
694 | },
|
---|
695 | WindowSize->{1144, 806},
|
---|
696 | WindowMargins->{{-5, Automatic}, {Automatic, 0}},
|
---|
697 | ShowSelection->True,
|
---|
698 | Magnification->1.5,
|
---|
699 | FrontEndVersion->"8.0 for Linux x86 (64-bit) (February 23, 2011)",
|
---|
700 | StyleDefinitions->"Default.nb"
|
---|
701 | ]
|
---|
702 | (* End of Notebook Content *)
|
---|
703 |
|
---|
704 | (* Internal cache information *)
|
---|
705 | (*CellTagsOutline
|
---|
706 | CellTagsIndex->{}
|
---|
707 | *)
|
---|
708 | (*CellTagsIndex
|
---|
709 | CellTagsIndex->{}
|
---|
710 | *)
|
---|
711 | (*NotebookFileOutline
|
---|
712 | Notebook[{
|
---|
713 | Cell[545, 20, 607, 9, 43, "Input"],
|
---|
714 | Cell[1155, 31, 144, 4, 43, "Input"],
|
---|
715 | Cell[1302, 37, 54, 1, 43, "Input"],
|
---|
716 | Cell[1359, 40, 259, 6, 43, "Input"],
|
---|
717 | Cell[CellGroupData[{
|
---|
718 | Cell[1643, 50, 122, 1, 130, "Title"],
|
---|
719 | Cell[1768, 53, 125, 1, 42, "Text"],
|
---|
720 | Cell[1896, 56, 1031, 14, 43, "Input"],
|
---|
721 | Cell[CellGroupData[{
|
---|
722 | Cell[2952, 74, 152, 2, 110, "Section"],
|
---|
723 | Cell[CellGroupData[{
|
---|
724 | Cell[3129, 80, 100, 1, 57, "Subsection"],
|
---|
725 | Cell[3232, 83, 257, 5, 42, "Text"],
|
---|
726 | Cell[3492, 90, 144, 2, 43, "Input"],
|
---|
727 | Cell[CellGroupData[{
|
---|
728 | Cell[3661, 96, 105, 1, 40, "Subsubsection"],
|
---|
729 | Cell[3769, 99, 219, 4, 42, "Text"],
|
---|
730 | Cell[3991, 105, 98, 1, 43, "Input"]
|
---|
731 | }, Open ]],
|
---|
732 | Cell[CellGroupData[{
|
---|
733 | Cell[4126, 111, 154, 2, 40, "Subsubsection"],
|
---|
734 | Cell[4283, 115, 270, 6, 42, "Text"],
|
---|
735 | Cell[4556, 123, 147, 2, 64, "Input"]
|
---|
736 | }, Open ]],
|
---|
737 | Cell[CellGroupData[{
|
---|
738 | Cell[4740, 130, 158, 2, 60, "Subsubsection"],
|
---|
739 | Cell[4901, 134, 272, 5, 63, "Text"],
|
---|
740 | Cell[5176, 141, 148, 2, 64, "Input"]
|
---|
741 | }, Open ]],
|
---|
742 | Cell[CellGroupData[{
|
---|
743 | Cell[5361, 148, 155, 2, 60, "Subsubsection"],
|
---|
744 | Cell[5519, 152, 271, 6, 63, "Text"],
|
---|
745 | Cell[5793, 160, 150, 2, 64, "Input"]
|
---|
746 | }, Open ]]
|
---|
747 | }, Open ]],
|
---|
748 | Cell[CellGroupData[{
|
---|
749 | Cell[5992, 168, 148, 2, 85, "Subsection"],
|
---|
750 | Cell[6143, 172, 195, 4, 63, "Text"],
|
---|
751 | Cell[6341, 178, 149, 3, 64, "Input"],
|
---|
752 | Cell[6493, 183, 303, 5, 63, "Text"],
|
---|
753 | Cell[6799, 190, 148, 2, 64, "Input"],
|
---|
754 | Cell[CellGroupData[{
|
---|
755 | Cell[6972, 196, 105, 1, 60, "Subsubsection"],
|
---|
756 | Cell[7080, 199, 219, 4, 63, "Text"],
|
---|
757 | Cell[7302, 205, 98, 1, 64, "Input"]
|
---|
758 | }, Open ]],
|
---|
759 | Cell[CellGroupData[{
|
---|
760 | Cell[7437, 211, 154, 2, 60, "Subsubsection"],
|
---|
761 | Cell[7594, 215, 270, 6, 63, "Text"],
|
---|
762 | Cell[7867, 223, 147, 2, 64, "Input"]
|
---|
763 | }, Open ]],
|
---|
764 | Cell[CellGroupData[{
|
---|
765 | Cell[8051, 230, 158, 2, 60, "Subsubsection"],
|
---|
766 | Cell[8212, 234, 272, 5, 63, "Text"],
|
---|
767 | Cell[8487, 241, 148, 2, 96, "Input"]
|
---|
768 | }, Open ]],
|
---|
769 | Cell[CellGroupData[{
|
---|
770 | Cell[8672, 248, 155, 2, 90, "Subsubsection"],
|
---|
771 | Cell[8830, 252, 271, 6, 94, "Text"],
|
---|
772 | Cell[9104, 260, 150, 2, 96, "Input"]
|
---|
773 | }, Open ]],
|
---|
774 | Cell[CellGroupData[{
|
---|
775 | Cell[9291, 267, 205, 3, 90, "Subsubsection"],
|
---|
776 | Cell[9499, 272, 316, 5, 94, "Text"],
|
---|
777 | Cell[9818, 279, 198, 3, 96, "Input"]
|
---|
778 | }, Open ]]
|
---|
779 | }, Open ]]
|
---|
780 | }, Open ]],
|
---|
781 | Cell[CellGroupData[{
|
---|
782 | Cell[10077, 289, 110, 1, 247, "Section"],
|
---|
783 | Cell[10190, 292, 149, 3, 96, "Input"],
|
---|
784 | Cell[CellGroupData[{
|
---|
785 | Cell[10364, 299, 110, 1, 127, "Subsection"],
|
---|
786 | Cell[10477, 302, 134, 1, 94, "Text"],
|
---|
787 | Cell[10614, 305, 255, 5, 96, "Input"],
|
---|
788 | Cell[10872, 312, 157, 3, 63, "Text"],
|
---|
789 | Cell[11032, 317, 429, 7, 64, "Input"]
|
---|
790 | }, Open ]],
|
---|
791 | Cell[CellGroupData[{
|
---|
792 | Cell[11498, 329, 114, 1, 85, "Subsection"],
|
---|
793 | Cell[11615, 332, 230, 4, 102, "Text"],
|
---|
794 | Cell[11848, 338, 214, 3, 64, "Input"]
|
---|
795 | }, Open ]],
|
---|
796 | Cell[CellGroupData[{
|
---|
797 | Cell[12099, 346, 113, 1, 85, "Subsection"],
|
---|
798 | Cell[12215, 349, 181, 4, 63, "Text"],
|
---|
799 | Cell[12399, 355, 270, 5, 64, "Input"],
|
---|
800 | Cell[12672, 362, 173, 4, 63, "Text"],
|
---|
801 | Cell[12848, 368, 219, 4, 64, "Input"]
|
---|
802 | }, Open ]]
|
---|
803 | }, Open ]],
|
---|
804 | Cell[CellGroupData[{
|
---|
805 | Cell[13116, 378, 116, 1, 165, "Section"],
|
---|
806 | Cell[13235, 381, 170, 4, 63, "Text"],
|
---|
807 | Cell[13408, 387, 149, 3, 64, "Input"],
|
---|
808 | Cell[CellGroupData[{
|
---|
809 | Cell[13582, 394, 100, 1, 85, "Subsection"],
|
---|
810 | Cell[13685, 397, 457, 10, 64, "Input"]
|
---|
811 | }, Open ]],
|
---|
812 | Cell[CellGroupData[{
|
---|
813 | Cell[14179, 412, 76, 1, 85, "Subsection"],
|
---|
814 | Cell[14258, 415, 258, 5, 64, "Input"]
|
---|
815 | }, Open ]],
|
---|
816 | Cell[CellGroupData[{
|
---|
817 | Cell[14553, 425, 35, 0, 85, "Subsection"],
|
---|
818 | Cell[14591, 427, 417, 7, 64, "Input"]
|
---|
819 | }, Open ]],
|
---|
820 | Cell[CellGroupData[{
|
---|
821 | Cell[15045, 439, 35, 0, 85, "Subsection"],
|
---|
822 | Cell[15083, 441, 360, 8, 64, "Input"]
|
---|
823 | }, Open ]],
|
---|
824 | Cell[CellGroupData[{
|
---|
825 | Cell[15480, 454, 101, 1, 85, "Subsection"],
|
---|
826 | Cell[15584, 457, 433, 9, 64, "Input"]
|
---|
827 | }, Open ]]
|
---|
828 | }, Open ]],
|
---|
829 | Cell[CellGroupData[{
|
---|
830 | Cell[16066, 472, 132, 2, 165, "Section"],
|
---|
831 | Cell[CellGroupData[{
|
---|
832 | Cell[16223, 478, 98, 1, 85, "Subsection"],
|
---|
833 | Cell[16324, 481, 175, 4, 63, "Text"],
|
---|
834 | Cell[16502, 487, 474, 8, 64, "Input"]
|
---|
835 | }, Open ]],
|
---|
836 | Cell[CellGroupData[{
|
---|
837 | Cell[17013, 500, 103, 1, 85, "Subsection"],
|
---|
838 | Cell[17119, 503, 230, 4, 63, "Text"],
|
---|
839 | Cell[17352, 509, 569, 11, 147, "Input"],
|
---|
840 | Cell[17924, 522, 124, 1, 63, "Text"],
|
---|
841 | Cell[18051, 525, 622, 13, 187, "Input"]
|
---|
842 | }, Open ]],
|
---|
843 | Cell[CellGroupData[{
|
---|
844 | Cell[18710, 543, 103, 1, 85, "Subsection"],
|
---|
845 | Cell[18816, 546, 256, 5, 63, "Text"],
|
---|
846 | Cell[19075, 553, 474, 10, 147, "Input"]
|
---|
847 | }, Open ]],
|
---|
848 | Cell[CellGroupData[{
|
---|
849 | Cell[19586, 568, 154, 2, 85, "Subsection"],
|
---|
850 | Cell[19743, 572, 303, 5, 63, "Text"],
|
---|
851 | Cell[20049, 579, 398, 10, 147, "Input"]
|
---|
852 | }, Open ]],
|
---|
853 | Cell[CellGroupData[{
|
---|
854 | Cell[20484, 594, 155, 2, 85, "Subsection"],
|
---|
855 | Cell[20642, 598, 301, 5, 63, "Text"],
|
---|
856 | Cell[20946, 605, 701, 14, 147, "Input"],
|
---|
857 | Cell[21650, 621, 123, 1, 63, "Text"],
|
---|
858 | Cell[21776, 624, 581, 14, 147, "Input"]
|
---|
859 | }, Open ]],
|
---|
860 | Cell[CellGroupData[{
|
---|
861 | Cell[22394, 643, 152, 2, 85, "Subsection"],
|
---|
862 | Cell[22549, 647, 170, 2, 63, "Text"],
|
---|
863 | Cell[22722, 651, 397, 11, 147, "Input"]
|
---|
864 | }, Open ]],
|
---|
865 | Cell[CellGroupData[{
|
---|
866 | Cell[23156, 667, 98, 1, 85, "Subsection"],
|
---|
867 | Cell[23257, 670, 364, 6, 63, "Text"],
|
---|
868 | Cell[23624, 678, 410, 11, 147, "Input"]
|
---|
869 | }, Open ]]
|
---|
870 | }, Open ]]
|
---|
871 | }, Open ]]
|
---|
872 | }
|
---|
873 | ]
|
---|
874 | *)
|
---|
875 |
|
---|
876 | (* End of internal cache information *)
|
---|