HeavyN: heavyN_NLO.nb

File heavyN_NLO.nb, 17.2 KB (added by richardphysics, 3 years ago)

Mathematica notebook to generate UFO files from heavy neutrino FeynRules model file.

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[     17418,        461]
14NotebookOptionsPosition[     15670,        402]
15NotebookOutlinePosition[     16108,        419]
16CellTagsIndexPosition[     16065,        416]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"(*", " ",
23  RowBox[{
24   RowBox[{"R", ".", " ", "Ruiz"}], ";", " ",
25   RowBox[{"2016", " ", "February", " ", "22"}]}], " ", "*)"}]], "Input",
26 CellChangeTimes->{{3.665142881510211*^9, 3.665142884049021*^9}, {
27  3.665142942303646*^9, 3.6651429529879627`*^9}}],
28
29Cell[BoxData[
30 RowBox[{
31  RowBox[{"(*", " ",
32   RowBox[{
33    RowBox[{"To", " ", "generate", " ", "LO", " ",
34     RowBox[{"UFO", ":", " ",
35      RowBox[{"Set", " ", "paths"}]}]}], ",", " ",
36    RowBox[{"load", " ", "model"}], ",", " ",
37    RowBox[{"write", " ", "UFO"}]}], " ", "*)"}], "\[IndentingNewLine]",
38  RowBox[{"(*", " ",
39   RowBox[{
40    RowBox[{"To", " ", "generate", " ", "NLO", " ",
41     RowBox[{"UFO", ":", " ",
42      RowBox[{"Set", " ", "paths"}]}]}], ",", " ",
43    RowBox[{"load", " ", "model"}], ",", " ",
44    RowBox[{
45     RowBox[{"extract", " ", "on"}], "-",
46     RowBox[{"shell", " ", "renormalization", " ", "terms"}]}], ",", " ",
47    RowBox[{"write", " ", "CT", " ", "terms"}], ",", " ",
48    RowBox[{"reset", " ", "paths"}], ",", " ",
49    RowBox[{"reload", " ", "model"}], ",", " ",
50    RowBox[{"write", " ", "everything", " ", "to", " ",
51     RowBox[{"file", "."}]}]}], " ", "*)"}]}]], "Input",
52 CellChangeTimes->{{3.6648662671878157`*^9, 3.664866418502534*^9}, {
53  3.664866852892112*^9, 3.664866879416404*^9}, {3.665143767149495*^9,
54  3.665143792033722*^9}}],
55
56Cell[CellGroupData[{
57
58Cell["FeynRules Setup", "Title",
59 CellChangeTimes->{{3.596207285657744*^9, 3.596207286276866*^9}, {
60  3.596207330352247*^9, 3.59620733250506*^9}, {3.655035967648223*^9,
61  3.65503597269068*^9}}],
62
63Cell[BoxData[{
64 RowBox[{
65  RowBox[{"$CurrentPath", "=",
66   RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
67 RowBox[{
68  RowBox[{"$FeynRulesPath", "=",
69   RowBox[{
70   "SetDirectory", "[", "\"\<~/.../FeynRules/feynrules-2_x\>\"", "]"}]}],
71  ";"}], "\[IndentingNewLine]",
72 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
73 RowBox[{
74  RowBox[{"SetDirectory", "[", "$CurrentPath", "]"}], ";"}]}], "Input",
75 CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
76   3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
77   3.4234163227881193`*^9}, {3.572102427116931*^9, 3.572102456206238*^9}, {
78   3.572280529035656*^9, 3.572280529468644*^9}, {3.572366766720894*^9,
79   3.572366773370627*^9}, {3.596207212826934*^9, 3.5962072447909603`*^9}, {
80   3.596914045279478*^9, 3.5969140472383204`*^9}, 3.596914102616413*^9,
81   3.596915921742405*^9, {3.596915961175353*^9, 3.59691596259039*^9}, {
82   3.60744636894991*^9, 3.607446377507101*^9}, {3.6364757082312813`*^9,
83   3.636475708315627*^9}, {3.655035981353272*^9, 3.655035982244761*^9}, {
84   3.6550360677717857`*^9, 3.655036081259776*^9}, {3.655036117419112*^9,
85   3.655036143336364*^9}, {3.655037954145546*^9, 3.6550379644813023`*^9}, {
86   3.6605209855658293`*^9, 3.6605209855964212`*^9}, {3.6605772969976788`*^9,
87   3.660577300733718*^9}, {3.6621928886588717`*^9, 3.662192889375732*^9}, {
88   3.6628197402754908`*^9, 3.662819763199905*^9}, {3.665143345119231*^9,
89   3.6651433455872717`*^9}}],
90
91Cell[BoxData[
92 RowBox[{"(*",
93  RowBox[{
94  "Load", " ", "default", " ", "SM", " ", "file", " ", "v1", ".4", ".6", " ",
95   "with", " ", "Heavy", " ", "N", " ",
96   RowBox[{"extension", "."}]}], "*)"}]], "Input",
97 CellChangeTimes->{{3.6550381551475554`*^9, 3.655038155711425*^9}, {
98  3.6622141225281467`*^9, 3.662214139672209*^9}}],
99
100Cell[BoxData[{
101 RowBox[{
102  RowBox[{"LoadModel", "[",
103   RowBox[{"\"\<sm.fr\>\"", ",", "\"\<heavyN.fr\>\""}], "]"}],
104  ";"}], "\[IndentingNewLine]",
105 RowBox[{
106  RowBox[{"LoadRestriction", "[",
107   RowBox[{"\"\<diagonalCKM.rst\>\"", ",", "\"\<massless.rst\>\""}], "]"}],
108  ";"}], "\[IndentingNewLine]",
109 RowBox[{
110  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]}], "Input",
111 CellChangeTimes->{{3.6550379628078337`*^9, 3.6550379664979897`*^9},
112   3.6605212599219637`*^9, {3.660521401196807*^9, 3.660521401690201*^9}, {
113   3.6628198742702703`*^9, 3.6628198755313597`*^9}}],
114
115Cell[CellGroupData[{
116
117Cell["Sanity Checks for New Lagrangian Terms", "Section",
118 CellChangeTimes->{{3.4234156496121893`*^9, 3.423415657027569*^9}, {
119  3.655037883884348*^9, 3.655037906883815*^9}}],
120
121Cell[BoxData[
122 RowBox[{"CheckHermiticity", "[", "LN", "]"}]], "Input",
123 CellChangeTimes->{3.607446407230465*^9}],
124
125Cell[BoxData[
126 RowBox[{"CheckMassSpectrum", "[", "LN", "]"}]], "Input",
127 CellChangeTimes->{{3.607446409988699*^9, 3.6074464110954323`*^9},
128   3.6550378392495413`*^9}],
129
130Cell[BoxData[
131 RowBox[{"CheckKineticTermNormalisation", "[", "LN", "]"}]], "Input",
132 CellChangeTimes->{{3.414763473002973*^9, 3.4147634845507174`*^9}, {
133   3.572348320182221*^9, 3.572348326613598*^9}, {3.572358912362153*^9,
134   3.572358917148378*^9}, {3.596207478919518*^9, 3.596207486580676*^9}, {
135   3.596212578276376*^9, 3.5962125890639143`*^9}, 3.607446414234477*^9}]
136}, Open  ]],
137
138Cell[CellGroupData[{
139
140Cell["New Feynman Rules for Heavy N Interactions", "Section",
141 CellChangeTimes->{{3.411910637332127*^9, 3.41191064360071*^9}, {
142  3.655037529059973*^9, 3.655037541428491*^9}, {3.6550379116719217`*^9,
143  3.655037913954034*^9}}],
144
145Cell[BoxData[
146 RowBox[{"(*", " ",
147  RowBox[{"The", " ", "following", " ", "warnings", " ", "will", " ",
148   RowBox[{"appear", ":", " ",
149    RowBox[{"\"\<\!\(\*
150StyleBox[\"QN\", \"MessageName\"]\)\!\(\*
151StyleBox[\"::\", \"MessageName\"]\)\!\(\*
152StyleBox[\"NonConserv\", \"MessageName\"]\): \>\"", "Warning"}], ":", " ",
153    RowBox[{
154    "non", " ", "quantum", " ", "number", " ", "conserving", " ", "vertex",
155     " ",
156     RowBox[{"encountered", "!"}],
157     "\"\<;\nThis is expected as Lepton Number is violated and FeynRules \
158checks for this.\>"}]}]}], "*)"}]], "Input",
159 CellChangeTimes->{{3.6550374096249533`*^9, 3.655037447663039*^9},
160   3.655037551040966*^9, {3.656940976048616*^9, 3.6569409786068287`*^9}}],
161
162Cell[BoxData[
163 RowBox[{"FeynmanRules", "[", "LN", "]"}]], "Input"]
164}, Open  ]],
165
166Cell[CellGroupData[{
167
168Cell["Write Leading Order UFO Files", "Section",
169 CellChangeTimes->{
170  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
171   3.59620768137986*^9, 3.596207684212212*^9}, {3.665143581395817*^9,
172   3.665143583298698*^9}, {3.6651436255564423`*^9, 3.665143630296493*^9}}],
173
174Cell[BoxData[
175 RowBox[{"(*", " ",
176  RowBox[{"The", " ", "following", " ", "warnings", " ", "will", " ",
177   RowBox[{"appear", ":", " ",
178    RowBox[{"\"\<\!\(\*
179StyleBox[\"QN\", \"MessageName\"]\)\!\(\*
180StyleBox[\"::\", \"MessageName\"]\)\!\(\*
181StyleBox[\"NonConserv\", \"MessageName\"]\): \>\"", "Warning"}], ":", " ",
182    RowBox[{
183    "non", " ", "quantum", " ", "number", " ", "conserving", " ", "vertex",
184     " ",
185     RowBox[{"encountered", "!"}],
186     "\"\<;\nThis is expected as lepton number is violated and FeynRules \
187checks for this.\>"}]}]}], "*)"}]], "Input",
188 CellChangeTimes->{{3.656940935403554*^9, 3.656940952617087*^9}, {
189  3.6648662530247602`*^9, 3.664866256652151*^9}}],
190
191Cell[BoxData[
192 RowBox[{
193  RowBox[{"WriteUFO", "[",
194   RowBox[{"LSM", ",", "LN"}], "]"}], ";"}]], "Input"]
195}, Open  ]],
196
197Cell[CellGroupData[{
198
199Cell["\<\
200Generate On-Shell Renormalization Terms\
201\>", "Section",
202 CellChangeTimes->{
203  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
204   3.59620768137986*^9, 3.596207684212212*^9}, {3.662199318805483*^9,
205   3.6621993287719097`*^9}, {3.662216149623213*^9, 3.662216170908692*^9}, {
206   3.665143633489994*^9, 3.6651436348954*^9}, {3.665143731576172*^9,
207   3.665143737517515*^9}}],
208
209Cell[BoxData[
210 RowBox[{"(*", " ",
211  RowBox[{"The", " ", "following", " ", "warnings", " ", "will", " ",
212   RowBox[{"appear", ":", " ",
213    RowBox[{"\"\<\!\(\*
214StyleBox[\"QN\", \"MessageName\"]\)\!\(\*
215StyleBox[\"::\", \"MessageName\"]\)\!\(\*
216StyleBox[\"NonConserv\", \"MessageName\"]\): \>\"", "Warning"}], ":", " ",
217    RowBox[{
218    "non", " ", "quantum", " ", "number", " ", "conserving", " ", "vertex",
219     " ",
220     RowBox[{"encountered", "!"}],
221     "\"\<;\nThis is expected as lepton number is violated and FeynRules \
222checks for this.\>"}]}]}], "*)"}]], "Input"],
223
224Cell[BoxData[{
225 RowBox[{
226  RowBox[{"LRen", " ", "=", " ",
227   RowBox[{"OnShellRenormalization", "[",
228    RowBox[{
229     RowBox[{"LSM", "+", "LN"}], ",",
230     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
231     RowBox[{"FlavorMixing", "\[Rule]", " ", "False"}], ",",
232     RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}]}],
233  ";"}], "\[IndentingNewLine]",
234 RowBox[{"SetDirectory", "[", "\"\<~/.../FeynArts/FeynArts-3.8/Models\>\"",
235  "]"}], "\[IndentingNewLine]",
236 RowBox[{
237  RowBox[{"WriteFeynArtsOutput", "[",
238   RowBox[{"LRen", ",",
239    RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
240    RowBox[{"FlavorExpand", "\[Rule]", "True"}], ",",
241    RowBox[{"Output", "\[Rule]", "\"\<HeavyN_FA\>\""}]}], "]"}],
242  ";"}]}], "Input",
243 CellChangeTimes->{{3.665143335987589*^9, 3.665143336405964*^9}}]
244}, Open  ]],
245
246Cell[CellGroupData[{
247
248Cell["\<\
249Write Counter Terms to BSM.nlo File\
250\>", "Section",
251 CellChangeTimes->{
252  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
253   3.59620768137986*^9, 3.596207684212212*^9}, {3.662199461128889*^9,
254   3.662199467953211*^9}, {3.662216541485611*^9, 3.662216544705964*^9}, {
255   3.66514364290946*^9, 3.665143643886175*^9}}],
256
257Cell[BoxData[
258 RowBox[{"(*", " ",
259  RowBox[{"quit", " ", "kernel", " ", "before", " ", "continuing"}], " ",
260  "*)"}]], "Input",
261 CellChangeTimes->{{3.664866502336069*^9, 3.664866536918194*^9}}],
262
263Cell[BoxData[
264 RowBox[{
265  RowBox[{"Quit", "[", "]"}], ";"}]], "Input"],
266
267Cell[BoxData[{
268 RowBox[{
269  RowBox[{"SetDirectory", "[", "\"\<~/.../FeynArts/FeynArts-3.8\>\"", "]"}],
270  ";"}], "\[IndentingNewLine]",
271 RowBox[{"<<", "FeynArts`"}], "\[IndentingNewLine]",
272 RowBox[{
273  RowBox[{"SetDirectory", "[", "\"\<~/.../FeynRules/feynrules-2_x\>\"", "]"}],
274   ";"}], "\[IndentingNewLine]",
275 RowBox[{"<<", "NLOCT`"}], "\[IndentingNewLine]",
276 RowBox[{
277  RowBox[{"$CurrentPath", "=",
278   RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
279 RowBox[{
280  RowBox[{"SetDirectory", "[", "$CurrentPath", "]"}], ";"}]}], "Input",
281 CellChangeTimes->{{3.6605244352671556`*^9, 3.660524496529204*^9}, {
282   3.660524555733032*^9, 3.660524556119355*^9}, 3.660528429455056*^9, {
283   3.6605286020387897`*^9, 3.660528602100609*^9}, {3.660530319063929*^9,
284   3.660530319160571*^9}, {3.660530366154963*^9, 3.66053037265125*^9}, {
285   3.660567620251087*^9, 3.6605676243565598`*^9}, {3.660568912072307*^9,
286   3.660568912133321*^9}, {3.66056999189439*^9, 3.660569993076742*^9}, {
287   3.660570552697504*^9, 3.660570554442918*^9}, {3.6605786705389338`*^9,
288   3.660578696714662*^9}, {3.660579471210005*^9, 3.660579471258161*^9}, {
289   3.660579558812049*^9, 3.6605795588460417`*^9}, {3.6605809812710743`*^9,
290   3.660580981737924*^9}, {3.662198567340746*^9, 3.662198568029338*^9}, {
291   3.664866430517086*^9, 3.664866431258605*^9}, {3.664866469872073*^9,
292   3.664866472738167*^9}, {3.665143306503736*^9, 3.665143310039995*^9}}],
293
294Cell[BoxData[
295 RowBox[{"(*",
296  RowBox[{
297   RowBox[{"Note", ":", " ",
298    RowBox[{"Grab", " ", "some", " ", "coffee"}]}], ";", " ",
299   RowBox[{"this", " ", "will", " ", "take", " ", "a", " ", "few", " ",
300    RowBox[{"minutes", ".", " ", "Output"}], " ", "is", " ", "located", " ",
301    "in", " ", "FeynRules", " ",
302    RowBox[{"directory", "."}]}]}], "*)"}]], "Input",
303 CellChangeTimes->{{3.660583519626089*^9, 3.660583556727778*^9}}],
304
305Cell[BoxData[
306 RowBox[{"WriteCT", "[",
307  RowBox[{"\"\<HeavyN_FA/HeavyN_FA\>\"", ",", "\"\<Lorentz\>\"", ",",
308   RowBox[{"Output", "\[Rule]", "\"\<SM_HeavyN\>\""}], ",",
309   "\[IndentingNewLine]",
310   RowBox[{"ZeroMom", "\[Rule]",
311    RowBox[{"{",
312     RowBox[{"{",
313      RowBox[{"aS", ",",
314       RowBox[{"{",
315        RowBox[{
316         RowBox[{"F", "[", "7", "]"}], ",",
317         RowBox[{"V", "[", "4", "]"}], ",",
318         RowBox[{"-",
319          RowBox[{"F", "[", "7", "]"}]}]}], "}"}]}], "}"}], "}"}]}], ",",
320   "\[IndentingNewLine]",
321   RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
322   RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}]], "Input",
323 CellChangeTimes->{{3.660577675799324*^9, 3.6605777030824823`*^9}, {
324   3.660580587703251*^9, 3.660580590446691*^9}, {3.660580749662204*^9,
325   3.6605807699669333`*^9}, {3.660580838061507*^9, 3.660580868074533*^9}, {
326   3.660581534014558*^9, 3.660581534403365*^9}, {3.6605816019013977`*^9,
327   3.660581602442067*^9}, {3.660582264939988*^9, 3.660582265472268*^9}, {
328   3.6605825450914*^9, 3.660582545457938*^9}, {3.660582582287341*^9,
329   3.66058260852942*^9}, 3.660583287010807*^9, {3.661385930903625*^9,
330   3.661385938127997*^9}, {3.662216217715084*^9, 3.6622162416021957`*^9}, {
331   3.6622169226201477`*^9, 3.6622169231786327`*^9}}]
332}, Open  ]],
333
334Cell[CellGroupData[{
335
336Cell["\<\
337Load BSM.nlo and Write UFO at NLO in QCD File\
338\>", "Section",
339 CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
340  3.572348211890565*^9, 3.572348234275403*^9}, {3.596207324453108*^9,
341  3.596207326711195*^9}, {3.655036212669145*^9, 3.6550362220422897`*^9}, {
342  3.655036282693001*^9, 3.655036287060457*^9}, {3.655037866940884*^9,
343  3.6550378926486187`*^9}, {3.660583469669636*^9, 3.6605834886500196`*^9}, {
344  3.66514366512071*^9, 3.665143674147705*^9}, {3.6651437527468567`*^9,
345  3.665143757274291*^9}}],
346
347Cell[BoxData[
348 RowBox[{"(*", " ",
349  RowBox[{"quit", " ", "kernel", " ", "before", " ", "continuing"}], " ",
350  "*)"}]], "Input"],
351
352Cell[BoxData[
353 RowBox[{
354  RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
355 CellChangeTimes->{{3.660583502811754*^9, 3.6605835046945877`*^9},
356   3.66212390294204*^9}],
357
358Cell[BoxData[{
359 RowBox[{
360  RowBox[{"$CurrentPath", "=",
361   RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
362 RowBox[{
363  RowBox[{"$FeynRulesPath", "=",
364   RowBox[{
365   "SetDirectory", "[", "\"\<~/.../FeynRules/feynrules-2_x\>\"", "]"}]}],
366  ";"}], "\[IndentingNewLine]",
367 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
368 RowBox[{
369  RowBox[{"SetDirectory", "[", "$CurrentPath", "]"}], ";"}]}], "Input",
370 CellChangeTimes->{{3.6648666749712143`*^9, 3.664866676189664*^9}, {
371  3.66514335220398*^9, 3.665143352534133*^9}}],
372
373Cell[BoxData[{
374 RowBox[{
375  RowBox[{"LoadModel", "[",
376   RowBox[{"\"\<sm.fr\>\"", ",", "\"\<heavyN.fr\>\""}], "]"}],
377  ";"}], "\[IndentingNewLine]",
378 RowBox[{
379  RowBox[{"LoadRestriction", "[",
380   RowBox[{"\"\<diagonalCKM.rst\>\"", ",", "\"\<massless.rst\>\""}], "]"}],
381  ";"}], "\[IndentingNewLine]",
382 RowBox[{
383  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]}], "Input",
384 CellChangeTimes->{{3.662827026079749*^9, 3.662827026713024*^9}}],
385
386Cell[BoxData[{
387 RowBox[{
388  RowBox[{
389  "Get", "[", "\"\<~/.../FeynRules/feynrules-2_x/SM_HeavyN.nlo\>\"", "]"}],
390  ";"}], "\[IndentingNewLine]",
391 RowBox[{
392  RowBox[{"WriteUFO", "[",
393   RowBox[{
394    RowBox[{"LSM", "+", "LN"}], ",",
395    RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",",
396    RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", " ",
397    RowBox[{"Output", "\[Rule]", "\"\<SM_HeavyN_NLO\>\""}]}], "]"}],
398  ";"}]}], "Input",
399 CellChangeTimes->{{3.665143385404313*^9, 3.6651433858550034`*^9}}]
400}, Open  ]]
401}, Open  ]]
402},
403WindowSize->{1330, 779},
404WindowMargins->{{Automatic, -10}, {Automatic, -8}},
405PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
406ShowSelection->True,
407FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)",
408StyleDefinitions->"Default.nb"
409]
410(* End of Notebook Content *)
411
412(* Internal cache information *)
413(*CellTagsOutline
414CellTagsIndex->{}
415*)
416(*CellTagsIndex
417CellTagsIndex->{}
418*)
419(*NotebookFileOutline
420Notebook[{
421Cell[545, 20, 283, 6, 32, "Input"],
422Cell[831, 28, 1097, 25, 99, "Input"],
423Cell[CellGroupData[{
424Cell[1953, 57, 194, 3, 92, "Title"],
425Cell[2150, 62, 1489, 26, 99, "Input"],
426Cell[3642, 90, 330, 7, 32, "Input"],
427Cell[3975, 99, 572, 13, 77, "Input"],
428Cell[CellGroupData[{
429Cell[4572, 116, 174, 2, 80, "Section"],
430Cell[4749, 120, 112, 2, 32, "Input"],
431Cell[4864, 124, 167, 3, 32, "Input"],
432Cell[5034, 129, 371, 5, 32, "Input"]
433}, Open  ]],
434Cell[CellGroupData[{
435Cell[5442, 139, 226, 3, 80, "Section"],
436Cell[5671, 144, 720, 15, 55, "Input"],
437Cell[6394, 161, 66, 1, 32, "Input"]
438}, Open  ]],
439Cell[CellGroupData[{
440Cell[6497, 167, 286, 4, 81, "Section"],
441Cell[6786, 173, 695, 15, 55, "Input"],
442Cell[7484, 190, 106, 3, 32, "Input"]
443}, Open  ]],
444Cell[CellGroupData[{
445Cell[7627, 198, 402, 8, 80, "Section"],
446Cell[8032, 208, 578, 13, 55, "Input"],
447Cell[8613, 223, 812, 19, 77, "Input"]
448}, Open  ]],
449Cell[CellGroupData[{
450Cell[9462, 247, 347, 7, 80, "Section"],
451Cell[9812, 256, 195, 4, 32, "Input"],
452Cell[10010, 262, 70, 2, 32, "Input"],
453Cell[10083, 266, 1434, 25, 143, "Input"],
454Cell[11520, 293, 438, 9, 32, "Input"],
455Cell[11961, 304, 1304, 26, 77, "Input"]
456}, Open  ]],
457Cell[CellGroupData[{
458Cell[13302, 335, 531, 9, 80, "Section"],
459Cell[13836, 346, 129, 3, 32, "Input"],
460Cell[13968, 351, 163, 4, 32, "Input"],
461Cell[14134, 357, 542, 13, 99, "Input"],
462Cell[14679, 372, 440, 11, 77, "Input"],
463Cell[15122, 385, 520, 13, 55, "Input"]
464}, Open  ]]
465}, Open  ]]
466}
467]
468*)
469
470(* End of internal cache information *)