FourthGeneration: 4Gen.nb

File 4Gen.nb, 16.5 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[     16669,        505]
14NotebookOptionsPosition[     13649,        399]
15NotebookOutlinePosition[     14048,        417]
16CellTagsIndexPosition[     14005,        414]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"Quit", "[", "]"}]], "Input",
23 CellChangeTimes->{{3.50972713570921*^9, 3.509727136555683*^9}}],
24
25Cell[BoxData[
26 RowBox[{"<<", "FeynRules`"}]], "Input",
27 CellChangeTimes->{{3.4921612550837307`*^9, 3.4921612558826723`*^9}}],
28
29Cell[BoxData[
30 RowBox[{
31  RowBox[{"SetDirectory", "[",
32   RowBox[{"$FeynRulesPath", "<>", "\"\</../models/4Gen_fullckm\>\""}], "]"}],
33   ";"}]], "Input",
34 CellChangeTimes->{{3.419073170860696*^9, 3.419073182827229*^9}, {
35  3.497938094177249*^9, 3.497938115734625*^9}, {3.5085867057124853`*^9,
36  3.508586714025776*^9}, {3.509727130214739*^9, 3.5097271319470453`*^9}}],
37
38Cell[CellGroupData[{
39
40Cell["The Standard Model", "Title"],
41
42Cell["We first load in the Standard Model model-file", "Text"],
43
44Cell[BoxData[
45 RowBox[{"LoadModel", "[", "\"\<4Gen.fr\>\"", "]"}]], "Input",
46 CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
47   3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
48   3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
49   3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
50   3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
51   3.403347555049163*^9}, 3.4044490490588417`*^9, {3.411744339876704*^9,
52   3.411744340012457*^9}, {3.4121886924550533`*^9, 3.412188699157571*^9},
53   3.412188808811866*^9, 3.4121888580521603`*^9, {3.412450464077868*^9,
54   3.412450464378695*^9}, {3.413715097460478*^9, 3.41371509757642*^9}, {
55   3.41440825334604*^9, 3.414408254159686*^9}, {3.41862573831756*^9,
56   3.4186257392223186`*^9}, {3.4190731862389174`*^9, 3.419073187003003*^9}, {
57   3.419073336802393*^9, 3.4190733374513063`*^9}, {3.4190828041801767`*^9,
58   3.4190828048079023`*^9}, {3.497938124516905*^9, 3.497938132269588*^9},
59   3.5085867350971003`*^9}],
60
61Cell[CellGroupData[{
62
63Cell["The lagrangian", "Section",
64 CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
65  3.508586770430216*^9, 3.5085867752536297`*^9}}],
66
67Cell[BoxData["L4Gen"], "Input",
68 CellChangeTimes->{{3.411910106011015*^9, 3.411910106351081*^9}, {
69  3.508586907440049*^9, 3.508586908407699*^9}}]
70}, Open  ]],
71
72Cell[CellGroupData[{
73
74Cell["Checking the Lagrangian", "Section",
75 CellChangeTimes->{{3.4234156496121893`*^9, 3.423415657027569*^9}}],
76
77Cell[BoxData[
78 RowBox[{
79  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
80 CellChangeTimes->{{3.4234159280429783`*^9, 3.423415934798614*^9}}],
81
82Cell[CellGroupData[{
83
84Cell["Checking hermiticity", "Subsection",
85 CellChangeTimes->{{3.4234156831783743`*^9, 3.423415689540821*^9}}],
86
87Cell["The hermiticity of the Lagrangian can be checked via", "Text",
88 CellChangeTimes->{{3.423415694323595*^9, 3.423415707867804*^9}}],
89
90Cell[BoxData[
91 RowBox[{"CheckHermiticity", "[",
92  RowBox[{"L4Gen", ",",
93   RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
94 CellChangeTimes->{{3.414763473002973*^9, 3.4147634845507174`*^9}, {
95  3.508586944952985*^9, 3.50858694711281*^9}}],
96
97Cell["\<\
98The same command can be applied to the flavor - expanded Lagrangian\
99\>", "Text",
100 CellChangeTimes->{{3.423415721582508*^9, 3.423415739787958*^9}}],
101
102Cell[BoxData[
103 RowBox[{"CheckHermiticity", "[",
104  RowBox[{"L4Gen", ",",
105   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
106 CellChangeTimes->{{3.414763604111637*^9, 3.4147636044973803`*^9}, {
107  3.5085869524890614`*^9, 3.508586957633074*^9}}]
108}, Open  ]],
109
110Cell[CellGroupData[{
111
112Cell["Checking the mass spectrum", "Subsection",
113 CellChangeTimes->{{3.423415831209465*^9, 3.423415835278742*^9}}],
114
115Cell["\<\
116FeynRules can check whether all the values of the masses given in the model \
117file ar ein agreement with the masses given in the Lagrangian:\
118\>", "Text",
119 CellChangeTimes->{{3.423415751305388*^9, 3.423415792594919*^9}}],
120
121Cell[BoxData[
122 RowBox[{"CheckMassSpectrum", "[", "L4Gen", "]"}]], "Input",
123 CellChangeTimes->{{3.414736325829801*^9, 3.414736326065997*^9},
124   3.4147528281460342`*^9, {3.508586960808408*^9, 3.508586962448135*^9}}]
125}, Open  ]],
126
127Cell[CellGroupData[{
128
129Cell["Checking the kinetic terms", "Subsection",
130 CellChangeTimes->{{3.423415843532096*^9, 3.42341584850035*^9}}],
131
132Cell["\<\
133In the same way, FeynRules can check whether all kinetic terms are correctly \
134normalized :\
135\>", "Text",
136 CellChangeTimes->{{3.423415798800013*^9, 3.423415817964087*^9}}],
137
138Cell[BoxData[
139 RowBox[{"CheckKineticTermNormalisation", "[",
140  RowBox[{"L4Gen", ",",
141   RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
142 CellChangeTimes->{{3.4147636651636972`*^9, 3.414763667250185*^9}, {
143  3.508586976753091*^9, 3.5085869778486147`*^9}}],
144
145Cell["\<\
146The same command cen be used at the level of the flavor - expanded Lagrangian \
147:\
148\>", "Text",
149 CellChangeTimes->{{3.423415868906054*^9, 3.4234158864202538`*^9}}],
150
151Cell[BoxData[
152 RowBox[{"CheckKineticTermNormalisation", "[",
153  RowBox[{"L4Gen", ",",
154   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
155 CellChangeTimes->{{3.508586982353146*^9, 3.508586983769094*^9}}]
156}, Open  ]]
157}, Open  ]],
158
159Cell[CellGroupData[{
160
161Cell["Calculation of the Feynman rules", "Section",
162 CellChangeTimes->{{3.411910637332127*^9, 3.41191064360071*^9}}],
163
164Cell["\<\
165We will calculate now explicitly the Feynman rules for the SM in Feynman \
166gauge.\
167\>", "Text",
168 CellChangeTimes->{{3.41191064804084*^9, 3.411910672936666*^9}}],
169
170Cell[BoxData[
171 RowBox[{
172  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
173 CellChangeTimes->{{3.411910674121689*^9, 3.4119106799564953`*^9}}],
174
175Cell[CellGroupData[{
176
177Cell["Gauge sector", "Subsection",
178 CellChangeTimes->{{3.411910690443768*^9, 3.411910692233274*^9}}],
179
180Cell[BoxData[
181 RowBox[{
182  RowBox[{"vertsGauge", "=",
183   RowBox[{"FeynmanRules", "[",
184    RowBox[{"LGauge", ",",
185     RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], ";"}]], "Input",
186 CellChangeTimes->{
187  3.40274690437012*^9, {3.402746954727231*^9, 3.4027469691642714`*^9}, {
188   3.4032592998045692`*^9, 3.403259304564069*^9}, 3.403267976055098*^9, {
189   3.411910705212987*^9, 3.411910705553741*^9}, {3.423415993272615*^9,
190   3.42341600147605*^9}}]
191}, Open  ]],
192
193Cell[CellGroupData[{
194
195Cell["Higgs Sector", "Subsection",
196 CellChangeTimes->{3.404470070069872*^9}],
197
198Cell[BoxData[
199 RowBox[{
200  RowBox[{"vertsHiggs", "=",
201   RowBox[{"FeynmanRules", "[", "LHiggs", "]"}]}], ";"}]], "Input",
202 CellChangeTimes->{{3.411910728609757*^9, 3.41191072908109*^9}, {
203   3.423416009086747*^9, 3.423416012982971*^9}, 3.423416065626593*^9}]
204}, Open  ]],
205
206Cell[CellGroupData[{
207
208Cell["Matter sector", "Subsection"],
209
210Cell[BoxData[
211 RowBox[{
212  RowBox[{"vertsFermions", "=",
213   RowBox[{"FeynmanRules", "[", "LFermions", "]"}]}], ";"}]], "Input",
214 CellChangeTimes->{{3.402205118991502*^9, 3.4022051228508387`*^9},
215   3.402747846432675*^9, {3.4032613449872217`*^9, 3.403261349245253*^9}, {
216   3.403266977133403*^9, 3.4032669793125563`*^9}, {3.411910788644576*^9,
217   3.411910789233307*^9}, {3.423416034294303*^9, 3.423416042739814*^9}}]
218}, Open  ]],
219
220Cell[CellGroupData[{
221
222Cell["Yukawa sector", "Subsection"],
223
224Cell[BoxData[
225 RowBox[{
226  RowBox[{"vertsYukawa", "=",
227   RowBox[{"FeynmanRules", "[",
228    RowBox[{"LYukawa", ",",
229     RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
230 CellChangeTimes->{{3.403266987858165*^9, 3.4032670026080303`*^9}, {
231  3.411910826105542*^9, 3.411910826777452*^9}, {3.423416089772278*^9,
232  3.423416095643961*^9}}]
233}, Open  ]],
234
235Cell[CellGroupData[{
236
237Cell["LGhost sector", "Subsection",
238 CellChangeTimes->{{3.411910849714159*^9, 3.411910851088325*^9}}],
239
240Cell[BoxData[
241 RowBox[{
242  RowBox[{"vertsGhosts", "=",
243   RowBox[{"FeynmanRules", "[",
244    RowBox[{"LGhost", ",",
245     RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], ";"}]], "Input",
246 CellChangeTimes->{{3.403266987858165*^9, 3.4032670026080303`*^9}, {
247   3.411910826105542*^9, 3.411910826777452*^9}, {3.411910857580064*^9,
248   3.411910870001601*^9}, 3.415256462464088*^9, {3.423416107236608*^9,
249   3.423416112835993*^9}}]
250}, Open  ]]
251}, Open  ]],
252
253Cell[CellGroupData[{
254
255Cell["Outputs and interfaces", "Section",
256 CellChangeTimes->{
257  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}}],
258
259Cell[CellGroupData[{
260
261Cell["FeynArts output", "Subsection",
262 CellChangeTimes->{{3.411911000132907*^9, 3.411911005135379*^9}}],
263
264Cell["The FeynArts output for the SM can be obtained via", "Text",
265 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
266  3.411911062212926*^9, 3.4119110634765463`*^9}}],
267
268Cell[BoxData[{
269 RowBox[{
270  RowBox[{
271   RowBox[{"FeynmanGauge", " ", "=", " ", "False"}], ";"}],
272  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
273 RowBox[{"WriteFeynArtsOutput", "[",
274  RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",",
275   RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}], "Input",
276 CellChangeTimes->{{3.411911018354619*^9, 3.4119110196967573`*^9}, {
277   3.412185470680571*^9, 3.412185480912915*^9}, {3.41245048911446*^9,
278   3.4124504892674522`*^9}, 3.414315634453483*^9, {3.423416180751266*^9,
279   3.423416182892613*^9}}],
280
281Cell["FeynArts also supports the Feynman gauge", "Text",
282 CellChangeTimes->{{3.4121854851672792`*^9, 3.412185494183435*^9}}],
283
284Cell[BoxData[{
285 RowBox[{
286  RowBox[{
287   RowBox[{"FeynmanGauge", " ", "=", " ", "True"}], ";"}],
288  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
289 RowBox[{"WriteFeynArtsOutput", "[",
290  RowBox[{
291  "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost",
292   ",",
293   RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}], ",",
294   RowBox[{"Output", "\[Rule]", "\"\<SM.mod\>\""}]}], "]"}]}], "Input",
295 CellChangeTimes->{{3.411911018354619*^9, 3.4119110196967573`*^9}, {
296  3.412185470680571*^9, 3.412185506240796*^9}, {3.4234161971513453`*^9,
297  3.423416209716672*^9}}]
298}, Open  ]],
299
300Cell[CellGroupData[{
301
302Cell["Sherpa output", "Subsection",
303 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}}],
304
305Cell["The Sherpa output for the SM can be obtained via", "Text",
306 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
307  3.411911059590749*^9, 3.4119110601885567`*^9}}],
308
309Cell[BoxData[{
310 RowBox[{
311  RowBox[{
312   RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
313  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
314 RowBox[{"WriteSHOutput", "[",
315  RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa"}],
316  "]"}]}], "Input",
317 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
318  3.412185455856553*^9, 3.412185456628922*^9}, {3.4143156544792233`*^9,
319  3.414315668290971*^9}, {3.423416222700699*^9, 3.423416235756197*^9}}]
320}, Open  ]],
321
322Cell[CellGroupData[{
323
324Cell["MadGraph output", "Subsection",
325 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
326  3.411911131666554*^9, 3.411911135984398*^9}}],
327
328Cell["The MadGraph output for the SM can be obtained via", "Text",
329 CellChangeTimes->{{3.411910955110715*^9, 3.4119109690877657`*^9}, {
330  3.411911059590749*^9, 3.4119110601885567`*^9}, {3.41191113897644*^9,
331  3.411911142024486*^9}}],
332
333Cell[BoxData[{
334 RowBox[{
335  RowBox[{
336   RowBox[{"FeynmanGauge", "=", "False"}], ";"}],
337  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
338 RowBox[{
339  RowBox[{"WriteMGOutput", "[",
340   RowBox[{"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa"}], "]"}],
341   ";"}]}], "Input",
342 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
343  3.412185409690489*^9, 3.4121854352800217`*^9}}]
344}, Open  ]],
345
346Cell[CellGroupData[{
347
348Cell["CalcHep output", "Subsection",
349 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
350  3.411911150323291*^9, 3.4119111515122623`*^9}}],
351
352Cell["CalcHep also supports the Feynman gauge", "Text",
353 CellChangeTimes->{{3.4121853722243843`*^9, 3.412185380407339*^9}}],
354
355Cell[BoxData[{
356 RowBox[{
357  RowBox[{
358   RowBox[{"FeynmanGauge", "=", "True"}], ";"}],
359  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
360 RowBox[{
361  RowBox[{"WriteCHOutput", "[",
362   RowBox[{
363   "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost"}],
364    "]"}], ";"}]}], "Input",
365 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
366  3.412185409690489*^9, 3.4121854275198507`*^9}, {3.412450479942018*^9,
367  3.4124504817138367`*^9}}],
368
369Cell[BoxData[""], "Input",
370 CellChangeTimes->{3.412185367693318*^9, 3.412185407947097*^9}]
371}, Open  ]],
372
373Cell[CellGroupData[{
374
375Cell["UFO output", "Subsection",
376 CellChangeTimes->{{3.4119110460271273`*^9, 3.411911049405038*^9}, {
377  3.411911150323291*^9, 3.4119111515122623`*^9}, {3.510761255733572*^9,
378  3.510761256034461*^9}}],
379
380Cell[BoxData[{
381 RowBox[{
382  RowBox[{
383   RowBox[{"FeynmanGauge", "=", "True"}], ";"}],
384  "\[IndentingNewLine]"}], "\[IndentingNewLine]",
385 RowBox[{
386  RowBox[{"WriteUFO", "[",
387   RowBox[{
388   "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost"}],
389    "]"}], ";"}]}], "Input",
390 CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, {
391  3.412185409690489*^9, 3.4121854275198507`*^9}, {3.412450479942018*^9,
392  3.4124504817138367`*^9}, {3.510761258956971*^9, 3.510761260404662*^9}}],
393
394Cell[BoxData[""], "Input",
395 CellChangeTimes->{3.412185367693318*^9, 3.412185407947097*^9}]
396}, Open  ]]
397}, Open  ]]
398}, Open  ]]
399},
400WindowSize->{1024, 656},
401WindowMargins->{{135, Automatic}, {Automatic, 50}},
402ShowSelection->True,
403Magnification->1.5,
404FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \
4052010)",
406StyleDefinitions->"Default.nb"
407]
408(* End of Notebook Content *)
409
410(* Internal cache information *)
411(*CellTagsOutline
412CellTagsIndex->{}
413*)
414(*CellTagsIndex
415CellTagsIndex->{}
416*)
417(*NotebookFileOutline
418Notebook[{
419Cell[545, 20, 117, 2, 40, "Input"],
420Cell[665, 24, 124, 2, 40, "Input"],
421Cell[792, 28, 368, 7, 42, "Input"],
422Cell[CellGroupData[{
423Cell[1185, 39, 35, 0, 114, "Title"],
424Cell[1223, 41, 62, 0, 39, "Text"],
425Cell[1288, 43, 1058, 15, 40, "Input"],
426Cell[CellGroupData[{
427Cell[2371, 62, 150, 2, 100, "Section"],
428Cell[2524, 66, 146, 2, 40, "Input"]
429}, Open  ]],
430Cell[CellGroupData[{
431Cell[2707, 73, 110, 1, 100, "Section"],
432Cell[2820, 76, 149, 3, 40, "Input"],
433Cell[CellGroupData[{
434Cell[2994, 83, 110, 1, 51, "Subsection"],
435Cell[3107, 86, 134, 1, 39, "Text"],
436Cell[3244, 89, 256, 5, 40, "Input"],
437Cell[3503, 96, 157, 3, 39, "Text"],
438Cell[3663, 101, 259, 5, 40, "Input"]
439}, Open  ]],
440Cell[CellGroupData[{
441Cell[3959, 111, 114, 1, 51, "Subsection"],
442Cell[4076, 114, 230, 4, 62, "Text"],
443Cell[4309, 120, 214, 3, 40, "Input"]
444}, Open  ]],
445Cell[CellGroupData[{
446Cell[4560, 128, 113, 1, 51, "Subsection"],
447Cell[4676, 131, 181, 4, 39, "Text"],
448Cell[4860, 137, 272, 5, 40, "Input"],
449Cell[5135, 144, 173, 4, 39, "Text"],
450Cell[5311, 150, 219, 4, 40, "Input"]
451}, Open  ]]
452}, Open  ]],
453Cell[CellGroupData[{
454Cell[5579, 160, 116, 1, 100, "Section"],
455Cell[5698, 163, 170, 4, 39, "Text"],
456Cell[5871, 169, 149, 3, 40, "Input"],
457Cell[CellGroupData[{
458Cell[6045, 176, 100, 1, 51, "Subsection"],
459Cell[6148, 179, 457, 10, 40, "Input"]
460}, Open  ]],
461Cell[CellGroupData[{
462Cell[6642, 194, 76, 1, 51, "Subsection"],
463Cell[6721, 197, 258, 5, 40, "Input"]
464}, Open  ]],
465Cell[CellGroupData[{
466Cell[7016, 207, 35, 0, 51, "Subsection"],
467Cell[7054, 209, 417, 7, 40, "Input"]
468}, Open  ]],
469Cell[CellGroupData[{
470Cell[7508, 221, 35, 0, 51, "Subsection"],
471Cell[7546, 223, 360, 8, 40, "Input"]
472}, Open  ]],
473Cell[CellGroupData[{
474Cell[7943, 236, 101, 1, 51, "Subsection"],
475Cell[8047, 239, 433, 9, 40, "Input"]
476}, Open  ]]
477}, Open  ]],
478Cell[CellGroupData[{
479Cell[8529, 254, 132, 2, 100, "Section"],
480Cell[CellGroupData[{
481Cell[8686, 260, 103, 1, 51, "Subsection"],
482Cell[8792, 263, 185, 2, 39, "Text"],
483Cell[8980, 267, 569, 11, 87, "Input"],
484Cell[9552, 280, 124, 1, 39, "Text"],
485Cell[9679, 283, 575, 13, 110, "Input"]
486}, Open  ]],
487Cell[CellGroupData[{
488Cell[10291, 301, 103, 1, 51, "Subsection"],
489Cell[10397, 304, 183, 2, 39, "Text"],
490Cell[10583, 308, 474, 10, 87, "Input"]
491}, Open  ]],
492Cell[CellGroupData[{
493Cell[11094, 323, 154, 2, 51, "Subsection"],
494Cell[11251, 327, 233, 3, 39, "Text"],
495Cell[11487, 332, 398, 10, 87, "Input"]
496}, Open  ]],
497Cell[CellGroupData[{
498Cell[11922, 347, 155, 2, 51, "Subsection"],
499Cell[12080, 351, 123, 1, 39, "Text"],
500Cell[12206, 354, 468, 12, 87, "Input"],
501Cell[12677, 368, 90, 1, 40, "Input"]
502}, Open  ]],
503Cell[CellGroupData[{
504Cell[12804, 374, 200, 3, 51, "Subsection"],
505Cell[13007, 379, 509, 12, 87, "Input"],
506Cell[13519, 393, 90, 1, 40, "Input"]
507}, Open  ]]
508}, Open  ]]
509}, Open  ]]
510}
511]
512*)
513
514(* End of internal cache information *)