WZPrimeAtNLO: vPrimeNLO_Notebook.nb

File vPrimeNLO_Notebook.nb, 16.1 KB (added by richardphysics, 8 months ago)

W' Z' NLO FR mathematica notebook that loads model file, performs basic sanity checks, and outputs to desired format, e.g., UFO.

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[     16347,        443]
14NotebookOptionsPosition[     14567,        383]
15NotebookOutlinePosition[     15004,        400]
16CellTagsIndexPosition[     14961,        397]
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}}],
54
55Cell[BoxData[
56 RowBox[{"Quit", "[", "]"}]], "Input",
57 CellChangeTimes->{{3.6780702279189262`*^9, 3.678070229446971*^9}}],
58
59Cell[CellGroupData[{
60
61Cell["FeynRules Setup", "Title",
62 CellChangeTimes->{{3.596207285657744*^9, 3.596207286276866*^9}, {
63  3.596207330352247*^9, 3.59620733250506*^9}, {3.655035967648223*^9,
64  3.65503597269068*^9}}],
65
66Cell[BoxData[{
67 RowBox[{
68  RowBox[{"$CurrentPath", "=",
69   RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
70 RowBox[{
71  RowBox[{"$FeynRulesPath", "=",
72   RowBox[{
73   "SetDirectory", "[", "\"\<~/Scripts/FeynRules/feynrules-2_x\>\"", "]"}]}],
74  ";"}], "\[IndentingNewLine]",
75 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
76 RowBox[{
77  RowBox[{"SetDirectory", "[", "$CurrentPath", "]"}], ";"}]}], "Input",
78 CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
79   3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
80   3.4234163227881193`*^9}, {3.572102427116931*^9, 3.572102456206238*^9}, {
81   3.572280529035656*^9, 3.572280529468644*^9}, {3.572366766720894*^9,
82   3.572366773370627*^9}, {3.596207212826934*^9, 3.5962072447909603`*^9}, {
83   3.596914045279478*^9, 3.5969140472383204`*^9}, 3.596914102616413*^9,
84   3.596915921742405*^9, {3.596915961175353*^9, 3.59691596259039*^9}, {
85   3.60744636894991*^9, 3.607446377507101*^9}, {3.6364757082312813`*^9,
86   3.636475708315627*^9}, {3.655035981353272*^9, 3.655035982244761*^9}, {
87   3.6550360677717857`*^9, 3.655036081259776*^9}, {3.655036117419112*^9,
88   3.655036143336364*^9}, {3.655037954145546*^9, 3.6550379644813023`*^9}, {
89   3.6605209855658293`*^9, 3.6605209855964212`*^9}, {3.6605772969976788`*^9,
90   3.660577300733718*^9}, {3.6621928886588717`*^9, 3.662192889375732*^9}, {
91   3.6628197402754908`*^9, 3.662819763199905*^9}}],
92
93Cell[BoxData[
94 RowBox[{"(*",
95  RowBox[{
96  "Load", " ", "default", " ", "SM", " ", "file", " ", "v1", ".4", ".6", " ",
97   "and", " ", "SSM", " ",
98   RowBox[{"extension", "."}]}], "*)"}]], "Input",
99 CellChangeTimes->{{3.6550381551475554`*^9, 3.655038155711425*^9}, {
100  3.6622141225281467`*^9, 3.662214139672209*^9}, {3.685104939249427*^9,
101  3.685104946441214*^9}}],
102
103Cell[BoxData[{
104 RowBox[{
105  RowBox[{"LoadModel", "[",
106   RowBox[{"\"\<sm.fr\>\"", ",", "\"\<vPrimeNLO.fr\>\""}], "]"}],
107  ";"}], "\[IndentingNewLine]",
108 RowBox[{
109  RowBox[{"LoadRestriction", "[",
110   RowBox[{"\"\<diagonalCKM.rst\>\"", ",", "\"\<massless.rst\>\""}], "]"}],
111  ";"}], "\[IndentingNewLine]",
112 RowBox[{
113  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]}], "Input",
114 CellChangeTimes->{{3.678057093323627*^9, 3.6780571044706087`*^9}, {
115  3.6780701061217957`*^9, 3.678070116325616*^9}, {3.685104562504938*^9,
116  3.68510456739747*^9}, {3.693830623413735*^9, 3.693830625047556*^9}}],
117
118Cell[CellGroupData[{
119
120Cell["\<\
121Lagrangian Terms and Feynman Rules\
122\>", "Section",
123 CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
124  3.572348211890565*^9, 3.572348234275403*^9}, {3.596207324453108*^9,
125  3.596207326711195*^9}, {3.655036212669145*^9, 3.6550362220422897`*^9}, {
126  3.655036282693001*^9, 3.655036287060457*^9}, {3.655037866940884*^9,
127  3.6550378926486187`*^9}, {3.662214296374611*^9, 3.662214296674329*^9}, {
128  3.685105123484643*^9, 3.685105125895092*^9}}],
129
130Cell[BoxData[
131 RowBox[{"(*", " ",
132  RowBox[{"Z_SSM", " ", "Lagrangian"}], " ", "*)"}]], "Input",
133 CellChangeTimes->{{3.6622142421620703`*^9, 3.662214256550921*^9}, {
134  3.685104641419363*^9, 3.685104648866871*^9}, {3.685104693105164*^9,
135  3.6851046993583927`*^9}}],
136
137Cell[BoxData["LZSSM"], "Input",
138 CellChangeTimes->{{3.685104911398961*^9, 3.6851049117325573`*^9}}],
139
140Cell[BoxData["LWSSM"], "Input",
141 CellChangeTimes->{{3.685104659284914*^9, 3.685104659300068*^9}, {
142  3.6851049145279512`*^9, 3.685104915453402*^9}}],
143
144Cell[BoxData[
145 RowBox[{
146  RowBox[{"(*", " ",
147   RowBox[{"LFull", " ", "=", " ",
148    RowBox[{"LSM", " ", "+", " ", "LSSM"}]}], " ", "*)"}],
149  "\[IndentingNewLine]", "LFull"}]], "Input"],
150
151Cell[BoxData[
152 RowBox[{"FeynmanRules", "[", "LSSM", "]"}]], "Input",
153 CellChangeTimes->{
154  3.664866752982409*^9, {3.685104661835256*^9, 3.685104671539464*^9}}]
155}, Open  ]],
156
157Cell[CellGroupData[{
158
159Cell["Sanity Checks for New Lagrangian Terms", "Section",
160 CellChangeTimes->{{3.4234156496121893`*^9, 3.423415657027569*^9}, {
161  3.655037883884348*^9, 3.655037906883815*^9}}],
162
163Cell[BoxData[
164 RowBox[{"CheckHermiticity", "[", "LSSM", "]"}]], "Input",
165 CellChangeTimes->{
166  3.607446407230465*^9, {3.67807014021633*^9, 3.6780701414840117`*^9}, {
167   3.68510495799578*^9, 3.685104959674774*^9}}]
168}, Open  ]],
169
170Cell[CellGroupData[{
171
172Cell["UFO Output", "Section",
173 CellChangeTimes->{
174  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
175   3.59620768137986*^9, 3.596207684212212*^9}}],
176
177Cell[BoxData[
178 RowBox[{
179  RowBox[{"WriteUFO", "[",
180   RowBox[{"LSM", ",", " ",
181    RowBox[{"Output", "\[Rule]", "\"\<SM_UFO\>\""}]}], "]"}], ";"}]], "Input",\
182
183 CellChangeTimes->{{3.664870139775291*^9, 3.664870140066676*^9}, {
184  3.685250711311055*^9, 3.685250713015635*^9}}],
185
186Cell[BoxData[
187 RowBox[{
188  RowBox[{"WriteUFO", "[",
189   RowBox[{"LFull", ",", " ",
190    RowBox[{"Output", "\[Rule]", "\"\<VPrime_UFO\>\""}]}], "]"}],
191  ";"}]], "Input",
192 CellChangeTimes->{{3.685105630862656*^9, 3.685105638157789*^9}, {
193  3.6938306566838427`*^9, 3.6938306949848824`*^9}}]
194}, Open  ]],
195
196Cell[CellGroupData[{
197
198Cell["\<\
199On-Shell Renormalization with FeynArts\
200\>", "Section",
201 CellChangeTimes->{
202  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
203   3.59620768137986*^9, 3.596207684212212*^9}, {3.662199318805483*^9,
204   3.6621993287719097`*^9}, {3.662216149623213*^9, 3.662216170908692*^9}}],
205
206Cell[BoxData[{
207 RowBox[{
208  RowBox[{"LRen", " ", "=", " ",
209   RowBox[{"OnShellRenormalization", "[",
210    RowBox[{"LFull", ",",
211     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
212     RowBox[{"FlavorMixing", "\[Rule]", " ", "False"}], ",",
213     RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}]}],
214  ";"}], "\[IndentingNewLine]",
215 RowBox[{"SetDirectory", "[",
216  "\"\<~/Scripts/FeynArts/FeynArts-3.8/Models\>\"",
217  "]"}], "\[IndentingNewLine]",
218 RowBox[{
219  RowBox[{"WriteFeynArtsOutput", "[",
220   RowBox[{"LRen", ",",
221    RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
222    RowBox[{"FlavorExpand", "\[Rule]", "True"}], ",",
223    RowBox[{"Output", "\[Rule]", "\"\<VPrimeNLO_FA\>\""}]}], "]"}],
224  ";"}]}], "Input",
225 CellChangeTimes->{{3.678057190696954*^9, 3.678057203308004*^9}, {
226  3.678070314781888*^9, 3.678070315277923*^9}, {3.68510845465352*^9,
227  3.6851084571847258`*^9}, {3.6851084974673643`*^9, 3.685108499258304*^9}, {
228  3.6852507332531557`*^9, 3.685250734468832*^9}, {3.6938307805054283`*^9,
229  3.69383078391374*^9}}]
230}, Open  ]],
231
232Cell[CellGroupData[{
233
234Cell["Write Counter Terms to BSM.nlo", "Section",
235 CellChangeTimes->{
236  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
237   3.59620768137986*^9, 3.596207684212212*^9}, {3.662199461128889*^9,
238   3.662199467953211*^9}, {3.662216541485611*^9, 3.662216544705964*^9}}],
239
240Cell[BoxData[
241 RowBox[{"(*", " ",
242  RowBox[{"quit", " ", "kernel", " ", "before", " ", "continuing"}], " ",
243  "*)"}]], "Input",
244 CellChangeTimes->{{3.664866502336069*^9, 3.664866536918194*^9}}],
245
246Cell[BoxData[
247 RowBox[{
248  RowBox[{"Quit", "[", "]"}], ";"}]], "Input"],
249
250Cell[BoxData[{
251 RowBox[{
252  RowBox[{
253  "SetDirectory", "[", "\"\<~/Scripts/FeynArts/FeynArts-3.8\>\"", "]"}],
254  ";"}], "\[IndentingNewLine]",
255 RowBox[{"<<", "FeynArts`"}], "\[IndentingNewLine]",
256 RowBox[{
257  RowBox[{
258  "SetDirectory", "[", "\"\<~/Scripts/FeynRules/feynrules-2_x\>\"", "]"}],
259  ";"}], "\[IndentingNewLine]",
260 RowBox[{"<<", "NLOCT`"}], "\[IndentingNewLine]",
261 RowBox[{
262  RowBox[{"$CurrentPath", "=",
263   RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
264 RowBox[{
265  RowBox[{"SetDirectory", "[", "$CurrentPath", "]"}], ";"}]}], "Input",
266 CellChangeTimes->{{3.6605244352671556`*^9, 3.660524496529204*^9}, {
267   3.660524555733032*^9, 3.660524556119355*^9}, 3.660528429455056*^9, {
268   3.6605286020387897`*^9, 3.660528602100609*^9}, {3.660530319063929*^9,
269   3.660530319160571*^9}, {3.660530366154963*^9, 3.66053037265125*^9}, {
270   3.660567620251087*^9, 3.6605676243565598`*^9}, {3.660568912072307*^9,
271   3.660568912133321*^9}, {3.66056999189439*^9, 3.660569993076742*^9}, {
272   3.660570552697504*^9, 3.660570554442918*^9}, {3.6605786705389338`*^9,
273   3.660578696714662*^9}, {3.660579471210005*^9, 3.660579471258161*^9}, {
274   3.660579558812049*^9, 3.6605795588460417`*^9}, {3.6605809812710743`*^9,
275   3.660580981737924*^9}, {3.662198567340746*^9, 3.662198568029338*^9}, {
276   3.664866430517086*^9, 3.664866431258605*^9}, {3.664866469872073*^9,
277   3.664866472738167*^9}}],
278
279Cell[BoxData[
280 RowBox[{"(*",
281  RowBox[{
282   RowBox[{"Note", ":", " ",
283    RowBox[{"Grab", " ", "some", " ", "coffee"}]}], ";", " ",
284   RowBox[{"this", " ", "will", " ", "take", " ", "a", " ", "few", " ",
285    RowBox[{"minutes", ".", " ", "Output"}], " ", "is", " ", "located", " ",
286    "in", " ", "FeynRules", " ",
287    RowBox[{"directory", "."}]}]}], "*)"}]], "Input",
288 CellChangeTimes->{{3.660583519626089*^9, 3.660583556727778*^9}}],
289
290Cell[BoxData[
291 RowBox[{"WriteCT", "[",
292  RowBox[{"\"\<VPrimeNLO_FA/VPrimeNLO_FA\>\"", ",", "\"\<Lorentz\>\"", ",",
293   RowBox[{"Output", "\[Rule]", "\"\<vPrimeNLO\>\""}], ",",
294   "\[IndentingNewLine]",
295   RowBox[{"ZeroMom", "\[Rule]",
296    RowBox[{"{",
297     RowBox[{"{",
298      RowBox[{"aS", ",",
299       RowBox[{"{",
300        RowBox[{
301         RowBox[{"F", "[", "7", "]"}], ",",
302         RowBox[{"V", "[", "4", "]"}], ",",
303         RowBox[{"-",
304          RowBox[{"F", "[", "7", "]"}]}]}], "}"}]}], "}"}], "}"}]}], ",",
305   "\[IndentingNewLine]",
306   RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
307   RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}]], "Input",
308 CellChangeTimes->{{3.6938315960715723`*^9, 3.693831604921082*^9}}]
309}, Open  ]],
310
311Cell[CellGroupData[{
312
313Cell["\<\
314Load BSM.nlo and Generate UFO at NLO\
315\>", "Section",
316 CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
317  3.572348211890565*^9, 3.572348234275403*^9}, {3.596207324453108*^9,
318  3.596207326711195*^9}, {3.655036212669145*^9, 3.6550362220422897`*^9}, {
319  3.655036282693001*^9, 3.655036287060457*^9}, {3.655037866940884*^9,
320  3.6550378926486187`*^9}, {3.660583469669636*^9, 3.6605834886500196`*^9}}],
321
322Cell[BoxData[
323 RowBox[{"(*", " ",
324  RowBox[{"quit", " ", "kernel", " ", "before", " ", "continuing"}], " ",
325  "*)"}]], "Input"],
326
327Cell[BoxData[
328 RowBox[{
329  RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
330 CellChangeTimes->{{3.660583502811754*^9, 3.6605835046945877`*^9},
331   3.66212390294204*^9}],
332
333Cell[BoxData[{
334 RowBox[{
335  RowBox[{"$CurrentPath", "=",
336   RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
337 RowBox[{
338  RowBox[{"$FeynRulesPath", "=",
339   RowBox[{
340   "SetDirectory", "[", "\"\<~/Scripts/FeynRules/feynrules-2_x\>\"", "]"}]}],
341  ";"}], "\[IndentingNewLine]",
342 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
343 RowBox[{
344  RowBox[{"SetDirectory", "[", "$CurrentPath", "]"}], ";"}]}], "Input",
345 CellChangeTimes->{{3.6648666749712143`*^9, 3.664866676189664*^9}}],
346
347Cell[BoxData[{
348 RowBox[{
349  RowBox[{"LoadModel", "[",
350   RowBox[{"\"\<sm.fr\>\"", ",", "\"\<vPrimeNLO.fr\>\""}], "]"}],
351  ";"}], "\[IndentingNewLine]",
352 RowBox[{
353  RowBox[{"LoadRestriction", "[",
354   RowBox[{"\"\<diagonalCKM.rst\>\"", ",", "\"\<massless.rst\>\""}], "]"}],
355  ";"}], "\[IndentingNewLine]",
356 RowBox[{
357  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]}], "Input",
358 CellChangeTimes->{{3.662827026079749*^9, 3.662827026713024*^9}, {
359  3.678057576389485*^9, 3.6780575835323477`*^9}, {3.678070991353997*^9,
360  3.678070991957912*^9}, {3.685108574817178*^9, 3.6851085761154137`*^9}, {
361  3.6938316252161922`*^9, 3.693831627879601*^9}}],
362
363Cell[BoxData[{
364 RowBox[{
365  RowBox[{
366  "Get", "[", "\"\<~/Scripts/FeynRules/feynrules-2_x/vPrimeNLO.nlo\>\"",
367   "]"}], ";"}], "\[IndentingNewLine]",
368 RowBox[{
369  RowBox[{"WriteUFO", "[",
370   RowBox[{"LFull", ",",
371    RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",",
372    RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", " ",
373    RowBox[{"Output", "\[Rule]", "\"\<VPrime_NLO\>\""}]}], "]"}],
374  ";"}]}], "Input",
375 CellChangeTimes->{{3.662198991781353*^9, 3.662199036363181*^9},
376   3.662199840894348*^9, {3.662216970646433*^9, 3.6622170227272053`*^9}, {
377   3.662217345266424*^9, 3.6622173537750807`*^9}, {3.67805759047082*^9,
378   3.67805759800605*^9}, {3.678059798652795*^9, 3.6780598259741096`*^9}, {
379   3.685108591275426*^9, 3.685108601781252*^9}, {3.685110167774995*^9,
380   3.685110169998728*^9}, {3.693831632830879*^9, 3.693831640798044*^9}}]
381}, Open  ]]
382}, Open  ]]
383},
384WindowSize->{1418, 704},
385WindowMargins->{{Automatic, 26}, {53, Automatic}},
386PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
387ShowSelection->True,
388FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)",
389StyleDefinitions->"Default.nb"
390]
391(* End of Notebook Content *)
392
393(* Internal cache information *)
394(*CellTagsOutline
395CellTagsIndex->{}
396*)
397(*CellTagsIndex
398CellTagsIndex->{}
399*)
400(*NotebookFileOutline
401Notebook[{
402Cell[545, 20, 283, 6, 32, "Input"],
403Cell[831, 28, 1048, 24, 99, "Input"],
404Cell[1882, 54, 120, 2, 32, "Input"],
405Cell[CellGroupData[{
406Cell[2027, 60, 194, 3, 90, "Title"],
407Cell[2224, 65, 1441, 25, 99, "Input"],
408Cell[3668, 92, 366, 8, 32, "Input"],
409Cell[4037, 102, 590, 13, 77, "Input"],
410Cell[CellGroupData[{
411Cell[4652, 119, 468, 8, 80, "Section"],
412Cell[5123, 129, 265, 5, 32, "Input"],
413Cell[5391, 136, 99, 1, 32, "Input"],
414Cell[5493, 139, 148, 2, 32, "Input"],
415Cell[5644, 143, 187, 5, 55, "Input"],
416Cell[5834, 150, 159, 3, 32, "Input"]
417}, Open  ]],
418Cell[CellGroupData[{
419Cell[6030, 158, 174, 2, 80, "Section"],
420Cell[6207, 162, 213, 4, 32, "Input"]
421}, Open  ]],
422Cell[CellGroupData[{
423Cell[6457, 171, 169, 3, 80, "Section"],
424Cell[6629, 176, 276, 7, 32, "Input"],
425Cell[6908, 185, 287, 7, 32, "Input"]
426}, Open  ]],
427Cell[CellGroupData[{
428Cell[7232, 197, 303, 6, 80, "Section"],
429Cell[7538, 205, 1045, 23, 77, "Input"]
430}, Open  ]],
431Cell[CellGroupData[{
432Cell[8620, 233, 285, 4, 80, "Section"],
433Cell[8908, 239, 195, 4, 32, "Input"],
434Cell[9106, 245, 70, 2, 32, "Input"],
435Cell[9179, 249, 1402, 27, 143, "Input"],
436Cell[10584, 278, 438, 9, 32, "Input"],
437Cell[11025, 289, 743, 18, 77, "Input"]
438}, Open  ]],
439Cell[CellGroupData[{
440Cell[11805, 312, 423, 7, 80, "Section"],
441Cell[12231, 321, 129, 3, 32, "Input"],
442Cell[12363, 326, 163, 4, 32, "Input"],
443Cell[12529, 332, 498, 12, 99, "Input"],
444Cell[13030, 346, 642, 14, 77, "Input"],
445Cell[13675, 362, 864, 17, 55, "Input"]
446}, Open  ]]
447}, Open  ]]
448}
449]
450*)
451
452(* End of internal cache information *)