DMsimpt: use-DMsimpt.nb

File use-DMsimpt.nb, 16.6 KB (added by Benjamin Fuks, 5 years ago)

Illustrative !Mathematica notebook

Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 7.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[ 145, 7]
13NotebookDataLength[ 16891, 387]
14NotebookOptionsPosition[ 15815, 346]
15NotebookOutlinePosition[ 16192, 363]
16CellTagsIndexPosition[ 16149, 360]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"Quit", "[", "]"}]], "Input",
23 CellChangeTimes->{{3.7638865422974358`*^9, 3.763886542860983*^9}, {
24 3.767372147789777*^9, 3.7673721483716993`*^9}}],
25
26Cell[CellGroupData[{
27
28Cell["Setup", "Section",
29 CellChangeTimes->{{3.518892288721245*^9, 3.518892291440427*^9}, {
30 3.648272586359296*^9, 3.648272589589151*^9}, {3.744951163067635*^9,
31 3.744951164882929*^9}}],
32
33Cell[BoxData[{
34 RowBox[{
35 RowBox[{"$FeynRulesPath", "=",
36 RowBox[{"SetDirectory", "[", "\"\<<FeynRules-path>\>\"", "]"}]}],
37 ";"}], "\[IndentingNewLine]",
38 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
39 RowBox[{
40 RowBox[{"SetDirectory", "[",
41 RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
42 ";"}], "\[IndentingNewLine]",
43 RowBox[{
44 RowBox[{"LoadModel", "[",
45 RowBox[{"\"\<sm.fr\>\"", ",", "\"\<dmsimpt_v1.2.fr\>\""}], "]"}],
46 ";"}]}], "Input",
47 CellChangeTimes->{{3.715342142509688*^9, 3.715342163031452*^9}, {
48 3.715344057238492*^9, 3.715344058291609*^9}, {3.7178506900799713`*^9,
49 3.717850690973333*^9}, {3.7180002809816017`*^9, 3.718000300883692*^9}, {
50 3.718000394980835*^9, 3.7180003951009827`*^9}, {3.745153113604156*^9,
51 3.745153113886346*^9}, {3.757403422964182*^9, 3.757403423697225*^9}, {
52 3.758251145793989*^9, 3.7582511468706083`*^9}, 3.7582513470889874`*^9, {
53 3.76335111930016*^9, 3.763351139093457*^9}, {3.7633511693483973`*^9,
54 3.763351173687544*^9}, {3.763886545633397*^9, 3.763886571907737*^9},
55 3.767099220292862*^9, {3.767374514400957*^9, 3.767374515454331*^9}, {
56 3.767375022418717*^9, 3.76737502255937*^9}, {3.7674580186709423`*^9,
57 3.767458019546134*^9}, {3.767610478088133*^9, 3.767610507175609*^9}, {
58 3.767610538533186*^9, 3.76761053951677*^9}, {3.767610603703107*^9,
59 3.7676106297846937`*^9}, {3.7676900131323767`*^9,
60 3.7676900151887627`*^9}, {3.76858524470041*^9, 3.768585245204138*^9},
61 3.7813360361054363`*^9, {3.787998176454199*^9, 3.787998182520714*^9}, {
62 3.787998229044076*^9, 3.7879982315047207`*^9}}]
63}, Open ]],
64
65Cell[CellGroupData[{
66
67Cell["Some tests with the model", "Section",
68 CellChangeTimes->{{3.767692787921207*^9, 3.7676927912711573`*^9}}],
69
70Cell[BoxData[
71 RowBox[{
72 RowBox[{"ldmt", " ", "=", " ",
73 RowBox[{"ExpandIndices", "[", "LDMSIMPt", "]"}]}], ";"}]], "Input",
74 CellChangeTimes->{{3.781336183950905*^9, 3.781336191215129*^9}}],
75
76Cell[BoxData[
77 RowBox[{"GetMassSpectrum", "[", "ldmt", "]"}]], "Input",
78 CellChangeTimes->{{3.767610740950831*^9, 3.7676107602572117`*^9}, {
79 3.781336051591538*^9, 3.78133606108606*^9}, 3.7813361099861307`*^9, {
80 3.781336188767009*^9, 3.7813361897629137`*^9}}],
81
82Cell[BoxData[
83 RowBox[{"CheckDiagonalQuadraticTerms", "[", "ldmt", "]"}]], "Input",
84 CellChangeTimes->{{3.7676895540665007`*^9, 3.7676895951953173`*^9}, {
85 3.781336198255192*^9, 3.781336198734817*^9}}],
86
87Cell[BoxData[
88 RowBox[{"CheckKineticTermNormalisation", "[", "ldmt", "]"}]], "Input",
89 CellChangeTimes->{{3.7676896174849567`*^9, 3.767689625546659*^9}, {
90 3.781336201268805*^9, 3.781336201722522*^9}}],
91
92Cell[BoxData[
93 RowBox[{"CheckMassSpectrum", "[", "ldmt", "]"}]], "Input",
94 CellChangeTimes->{{3.767689518861446*^9, 3.767689528147897*^9}, {
95 3.781341832372389*^9, 3.781341832878992*^9}}]
96}, Open ]],
97
98Cell[CellGroupData[{
99
100Cell["Generating the NLO contributions", "Section",
101 CellChangeTimes->{{3.642999850465013*^9, 3.642999854784058*^9}}],
102
103Cell[BoxData[{
104 RowBox[{
105 RowBox[{"SetDirectory", "[",
106 RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
107 ";"}], "\[IndentingNewLine]",
108 RowBox[{"LoadRestriction", "[",
109 RowBox[{"\"\<DiagonalCKM.rst\>\"", ",", "\"\<Massless_5f.rst\>\""}],
110 "]"}], "\[IndentingNewLine]",
111 RowBox[{
112 RowBox[{"Lren", "=",
113 RowBox[{"OnShellRenormalization", "[",
114 RowBox[{
115 RowBox[{"ExpandIndices", "[",
116 RowBox[{"LSM", "+", "LDMSIMPt"}], "]"}], ",",
117 RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
118 RowBox[{"FlavorMixing", "\[Rule]", "False"}]}], "]"}]}],
119 ";"}], "\[IndentingNewLine]",
120 RowBox[{
121 RowBox[{"WriteFeynArtsOutput", "[",
122 RowBox[{"Lren", ",",
123 RowBox[{"Output", "\[Rule]", "\"\<DMsimpt_v1_2_FA\>\""}], ",",
124 RowBox[{"ConservedQuantumNumbers", "\[Rule]", "Q"}]}], "]"}],
125 ";"}]}], "Input",
126 CellChangeTimes->{{3.6429998579231567`*^9, 3.642999859329811*^9}, {
127 3.643276600822646*^9, 3.643276602600128*^9}, 3.643452302817659*^9, {
128 3.643480537105691*^9, 3.643480544715995*^9}, {3.643505764015731*^9,
129 3.643505765417059*^9}, {3.644167428496661*^9, 3.644167429429887*^9}, {
130 3.644562474709917*^9, 3.6445624788370237`*^9}, {3.6446876189863234`*^9,
131 3.644687621537224*^9}, {3.644687662149605*^9, 3.644687673094878*^9}, {
132 3.644687705747959*^9, 3.6446877072824593`*^9}, {3.644716329653895*^9,
133 3.644716337245138*^9}, {3.653766992283938*^9, 3.6537669926652613`*^9}, {
134 3.66486033666195*^9, 3.664860348452221*^9}, {3.6651967505902653`*^9,
135 3.66519675295021*^9}, {3.666353407678645*^9, 3.6663534078574247`*^9}, {
136 3.6696408162954607`*^9, 3.6696408168073807`*^9}, {3.680924453059774*^9,
137 3.680924453696932*^9}, {3.684872238601376*^9, 3.684872238783848*^9}, {
138 3.685101810835946*^9, 3.6851018117067204`*^9}, {3.685258606756963*^9,
139 3.685258632938881*^9}, {3.7022822288595123`*^9, 3.7022822295009947`*^9}, {
140 3.705919839077444*^9, 3.7059198410538063`*^9}, {3.7196587589519463`*^9,
141 3.7196587651284313`*^9}, {3.7676928183490562`*^9,
142 3.7676928418497753`*^9}, {3.767692880674725*^9, 3.767692886898861*^9}, {
143 3.767693498862368*^9, 3.767693501513042*^9}, {3.767696534455364*^9,
144 3.7676965469737167`*^9}, {3.781341692617463*^9, 3.781341693849312*^9}, {
145 3.7813418682918777`*^9, 3.7813418691373663`*^9}}],
146
147Cell[BoxData[
148 RowBox[{"Quit", "[", "]"}]], "Input",
149 CellChangeTimes->{{3.642999917153137*^9, 3.642999917670817*^9}}],
150
151Cell[CellGroupData[{
152
153Cell["The following part takes about 2 hours", "Subsubsection",
154 CellChangeTimes->{{3.768618629083808*^9, 3.768618637043517*^9}}],
155
156Cell[BoxData[{
157 RowBox[{"<<", " ", "FeynArts`"}], "\[IndentingNewLine]",
158 RowBox[{
159 RowBox[{"SetDirectory", "[", "\"\<<FeynRules-path\>\"", "]"}],
160 ";"}], "\[IndentingNewLine]",
161 RowBox[{"<<", " ", "NLOCT`"}], "\[IndentingNewLine]",
162 RowBox[{
163 RowBox[{"SetDirectory", "[",
164 RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
165 ";"}], "\[IndentingNewLine]",
166 RowBox[{
167 RowBox[{"WriteCT", "[",
168 RowBox[{
169 "\"\<DMsimpt_5FNS_FA/DMsimpt_v1_2_FA\>\"", ",",
170 "\"\<DMsimpt_5FNS_FA/DMsimpt_v1_2_FA\>\"", ",", "\[IndentingNewLine]",
171 RowBox[{"Output", "->", "\"\<DMsimpt_v1_2\>\""}], ",",
172 "\[IndentingNewLine]",
173 RowBox[{"LabelInternal", "\[Rule]", "True"}], ",",
174 RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
175 RowBox[{"KeptIndices", "\[Rule]",
176 RowBox[{"{", "}"}]}], ",",
177 RowBox[{"ZeroMom", "\[Rule]",
178 RowBox[{"{",
179 RowBox[{"{",
180 RowBox[{"aS", ",",
181 RowBox[{"{",
182 RowBox[{
183 RowBox[{"F", "[", "7", "]"}], ",",
184 RowBox[{"V", "[", "4", "]"}], ",",
185 RowBox[{"-",
186 RowBox[{"F", "[", "7", "]"}]}]}], "}"}], ",", "0"}], "}"}],
187 "}"}]}], ",", "\[IndentingNewLine]",
188 RowBox[{"Assumptions", "->",
189 RowBox[{"{", "\[IndentingNewLine]",
190 RowBox[{
191 RowBox[{"MT", ">", "0"}], ",", "\[IndentingNewLine]",
192 RowBox[{"MXs", ">", "0"}], ",",
193 RowBox[{"MXm", ">", "0"}], ",",
194 RowBox[{"MXv", ">", "0"}], ",",
195 RowBox[{"MXc", ">", "0"}], ",",
196 RowBox[{"MXw", ">", "0"}], ",",
197 RowBox[{"MXd", ">", "0"}], ",", " ",
198 RowBox[{"MYS3Qu1", ">", "0"}], ",",
199 RowBox[{"MYS3Qu2", ">", "0"}], ",",
200 RowBox[{"MYS3Qu3", ">", "0"}], ",",
201 RowBox[{"MYS3u1", ">", "0"}], ",",
202 RowBox[{"MYS3u2", ">", "0"}], ",",
203 RowBox[{"MYS3u3", ">", "0"}], ",", "\[IndentingNewLine]",
204 RowBox[{"MYS3Qd1", ">", "0"}], ",",
205 RowBox[{"MYS3Qd2", ">", "0"}], ",",
206 RowBox[{"MYS3Qd3", ">", "0"}], ",",
207 RowBox[{"MYS3d1", ">", "0"}], ",",
208 RowBox[{"MYS3d2", ">", "0"}], ",",
209 RowBox[{"MYS3d3", ">", "0"}], ",", " ",
210 RowBox[{"MYF3Qu1", ">", "0"}], ",",
211 RowBox[{"MYF3Qu2", ">", "0"}], ",",
212 RowBox[{"MYF3Qu3", ">", "0"}], ",",
213 RowBox[{"MYF3u1", ">", "0"}], ",",
214 RowBox[{"MYF3u2", ">", "0"}], ",",
215 RowBox[{"MYF3u3", ">", "0"}], ",", "\[IndentingNewLine]",
216 RowBox[{"MYF3Qd1", ">", "0"}], ",",
217 RowBox[{"MYF3Qd2", ">", "0"}], ",",
218 RowBox[{"MYF3Qd3", ">", "0"}], ",",
219 RowBox[{"MYF3d1", ">", "0"}], ",",
220 RowBox[{"MYF3d2", ">", "0"}], ",",
221 RowBox[{"MYF3d3", ">", "0"}]}], "\[IndentingNewLine]", "}"}]}], ",",
222 "\[IndentingNewLine]",
223 RowBox[{"CTparameters", "\[Rule]", "True"}], ",",
224 RowBox[{"MaxDim", "\[Rule]", "4"}], ",",
225 RowBox[{"EvenOnly", "\[Rule]", "False"}], ",",
226 RowBox[{"IsFeynmanGauge", "\[Rule]", "True"}]}], "]"}], ";"}]}], "Input",
227 CellChangeTimes->{{3.642999923841711*^9, 3.642999971642317*^9}, {
228 3.6430000242728033`*^9, 3.6430000258010807`*^9}, {3.643000095706285*^9,
229 3.643000131827043*^9}, 3.643130451253806*^9, {3.64348055340506*^9,
230 3.6434805576479883`*^9}, {3.643505367192779*^9, 3.64350537935256*^9}, {
231 3.644148039245747*^9, 3.644148042099621*^9}, {3.6441484397475653`*^9,
232 3.644148448904045*^9}, {3.6441699926794443`*^9, 3.644170028874009*^9}, {
233 3.644562487653529*^9, 3.644562523323406*^9}, {3.644688360980824*^9,
234 3.644688386313058*^9}, {3.6446884667375603`*^9, 3.644688489652257*^9}, {
235 3.644688523143263*^9, 3.644688525417777*^9}, {3.644688597819372*^9,
236 3.64468860628026*^9}, {3.644688740582252*^9, 3.644688753170827*^9}, {
237 3.644689067130622*^9, 3.6446890722102203`*^9}, {3.644716655505249*^9,
238 3.644716662092123*^9}, {3.6537477330376*^9, 3.653747733378034*^9}, {
239 3.653767291988488*^9, 3.653767310117466*^9}, {3.664861289489751*^9,
240 3.664861292258481*^9}, 3.664863692532228*^9, {3.664867992675673*^9,
241 3.664867993234062*^9}, {3.664868576870771*^9, 3.664868577096312*^9}, {
242 3.665197213131104*^9, 3.6651972517927322`*^9}, 3.665224591796699*^9, {
243 3.6652246469325542`*^9, 3.6652246689666843`*^9}, 3.66522470623314*^9, {
244 3.666353902841914*^9, 3.666353914000782*^9}, {3.680925124972067*^9,
245 3.680925151786419*^9}, {3.68487289426202*^9, 3.68487290445006*^9}, {
246 3.685102785032526*^9, 3.685102805534514*^9}, {3.6852586646434383`*^9,
247 3.685258799023717*^9}, {3.685296637485779*^9, 3.6852966377979794`*^9}, {
248 3.702282507829064*^9, 3.702282517906333*^9}, {3.7059200467759657`*^9,
249 3.705920084081114*^9}, {3.7155691757631693`*^9, 3.715569226231048*^9}, {
250 3.7196601365561113`*^9, 3.719660158999943*^9}, {3.767693883945985*^9,
251 3.767694033308322*^9}, {3.781413981225663*^9, 3.7814140015802794`*^9}, {
252 3.78799824185106*^9, 3.787998260428205*^9}, {3.7879982967676897`*^9,
253 3.7879983127861757`*^9}}]
254}, Open ]]
255}, Open ]],
256
257Cell[CellGroupData[{
258
259Cell["Generating the UFO model files", "Section",
260 CellChangeTimes->{{3.518892302672626*^9, 3.518892305688608*^9}}],
261
262Cell[BoxData[
263 RowBox[{"Quit", "[", "]"}]], "Input",
264 CellChangeTimes->{{3.643510536070684*^9, 3.643510536921255*^9}, {
265 3.685115982897347*^9, 3.685115983927444*^9}}],
266
267Cell[BoxData[{
268 RowBox[{
269 RowBox[{"$FeynRulesPath", "=",
270 RowBox[{"SetDirectory", "[", "\"\<<FeynRules-path\>\"", "]"}]}],
271 ";"}], "\[IndentingNewLine]",
272 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
273 RowBox[{
274 RowBox[{"SetDirectory", "[",
275 RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
276 ";"}], "\[IndentingNewLine]",
277 RowBox[{
278 RowBox[{"LoadModel", "[",
279 RowBox[{"\"\<sm.fr\>\"", ",", "\"\<dmsimpt_v1.2.fr\>\""}], "]"}],
280 ";"}], "\[IndentingNewLine]",
281 RowBox[{
282 RowBox[{"LoadRestriction", "[",
283 RowBox[{"\"\<DiagonalCKM.rst\>\"", ",", "\"\<Massless_5f.rst\>\""}], "]"}],
284 ";"}], "\[IndentingNewLine]",
285 RowBox[{
286 RowBox[{"Get", "[", "\"\<DMsimpt_v1_2.nlo\>\"", "]"}],
287 ";"}], "\[IndentingNewLine]",
288 RowBox[{
289 RowBox[{"WriteUFO", "[",
290 RowBox[{
291 RowBox[{"ExpandIndices", "[",
292 RowBox[{"LSM", "+", "LDMSIMPt"}], "]"}], ",",
293 RowBox[{"UVCounterterms", "\[Rule]",
294 RowBox[{"(",
295 RowBox[{"UV$vertlist", "/.",
296 RowBox[{"{",
297 RowBox[{
298 RowBox[{"FR$IR", "\[Rule]", "1"}], ",",
299 RowBox[{"FR$IRLog", "\[Rule]", "1"}]}], "}"}]}], ")"}]}], " ", ",",
300 RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", " ",
301 RowBox[{"CTParameters", "\[Rule]",
302 RowBox[{"(",
303 RowBox[{"FR$CTparam", "/.",
304 RowBox[{"{",
305 RowBox[{
306 RowBox[{"FR$IR", "\[Rule]", "1"}], ",",
307 RowBox[{"FR$IRLog", "\[Rule]", "1"}]}], "}"}]}], ")"}]}], ",",
308 RowBox[{"Output", "\[Rule]", "\"\<DMSimpt_NLO_v1_2_UFO\>\""}], ",",
309 RowBox[{"ConservedQuantumNumbers", "\[Rule]", "Q"}]}], "]"}],
310 ";"}]}], "Input",
311 CellChangeTimes->{{3.616474426822394*^9, 3.616474431300906*^9}, {
312 3.616474476497079*^9, 3.616474500189231*^9}, 3.616474613066862*^9, {
313 3.616494779207423*^9, 3.616494783828376*^9}, {3.616580249965948*^9,
314 3.616580268353311*^9}, {3.616580334915408*^9, 3.616580354074359*^9}, {
315 3.616730859450924*^9, 3.6167308627148323`*^9}, {3.618221520121941*^9,
316 3.618221562907246*^9}, {3.618575869806182*^9, 3.6185758768210573`*^9}, {
317 3.622267142817052*^9, 3.622267158950058*^9}, {3.622517903231851*^9,
318 3.6225179034762793`*^9}, {3.643130455506323*^9, 3.643130457362434*^9}, {
319 3.6434346190475397`*^9, 3.643434619424014*^9}, {3.64348057990516*^9,
320 3.643480585441132*^9}, {3.643510546826219*^9, 3.643510547036009*^9},
321 3.643510612235943*^9, {3.644167155986382*^9, 3.644167191812931*^9},
322 3.644167230066971*^9, {3.6441963555808783`*^9, 3.644196376311118*^9}, {
323 3.644655765357386*^9, 3.644655792069653*^9}, {3.644657487967403*^9,
324 3.644657488293757*^9}, {3.644690534728881*^9, 3.644690564194496*^9}, {
325 3.644718127240486*^9, 3.644718150450329*^9}, {3.644773045108694*^9,
326 3.64477305063905*^9}, {3.6648679275349216`*^9, 3.664867941450377*^9}, {
327 3.66486800077952*^9, 3.664868030360639*^9}, 3.665157439581449*^9, {
328 3.665167780369707*^9, 3.665167780545179*^9}, {3.665168588211299*^9,
329 3.665168592717914*^9}, {3.6651971988810463`*^9, 3.66519722299328*^9}, {
330 3.665202155064212*^9, 3.665202192262845*^9}, {3.665203934931046*^9,
331 3.665203948163241*^9}, {3.6652275940615873`*^9, 3.665227626288574*^9}, {
332 3.666370588762989*^9, 3.666370599370613*^9}, {3.6809283770423527`*^9,
333 3.680928391177864*^9}, {3.6809284597589483`*^9, 3.680928468565295*^9}, {
334 3.6850905415403833`*^9, 3.685090563522331*^9}, {3.685115987844707*^9,
335 3.685116002486989*^9}, {3.685296608849427*^9, 3.68529667156424*^9},
336 3.685296720871242*^9, {3.7004397932622633`*^9, 3.700439818286146*^9}, {
337 3.702287485923066*^9, 3.702287489851747*^9}, {3.7027196245861387`*^9,
338 3.702719662830946*^9}, {3.70593026317251*^9, 3.705930278721766*^9}, {
339 3.7059383683537188`*^9, 3.70593839697304*^9}, {3.719671059944165*^9,
340 3.7196710793237*^9}, 3.719671534996559*^9, {3.767696470779224*^9,
341 3.767696479654022*^9}, {3.767696557679223*^9, 3.767696575761361*^9}, {
342 3.767703118281695*^9, 3.7677030816273823`*^9}, {3.76770356577351*^9,
343 3.767703584369676*^9}, {3.781509394665051*^9, 3.78150943303577*^9}, {
344 3.787998319494505*^9, 3.7879983270071917`*^9}}]
345}, Open ]]
346},
347WindowSize->{1311, 939},
348WindowMargins->{{Automatic, 78}, {30, Automatic}},
349ShowSelection->True,
350FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \
3512016)",
352StyleDefinitions->"Default.nb"
353]
354(* End of Notebook Content *)
355
356(* Internal cache information *)
357(*CellTagsOutline
358CellTagsIndex->{}
359*)
360(*CellTagsIndex
361CellTagsIndex->{}
362*)
363(*NotebookFileOutline
364Notebook[{
365Cell[545, 20, 171, 3, 28, "Input"],
366Cell[CellGroupData[{
367Cell[741, 27, 188, 3, 64, "Section"],
368Cell[932, 32, 1604, 29, 80, "Input"]
369}, Open ]],
370Cell[CellGroupData[{
371Cell[2573, 66, 112, 1, 64, "Section"],
372Cell[2688, 69, 194, 4, 28, "Input"],
373Cell[2885, 75, 264, 4, 28, "Input"],
374Cell[3152, 81, 202, 3, 28, "Input"],
375Cell[3357, 86, 202, 3, 28, "Input"],
376Cell[3562, 91, 188, 3, 28, "Input"]
377}, Open ]],
378Cell[CellGroupData[{
379Cell[3787, 99, 117, 1, 64, "Section"],
380Cell[3907, 102, 2279, 42, 80, "Input"],
381Cell[6189, 146, 118, 2, 28, "Input"],
382Cell[CellGroupData[{
383Cell[6332, 152, 129, 1, 35, "Subsubsection"],
384Cell[6464, 155, 4908, 97, 250, "Input"]
385}, Open ]]
386}, Open ]],
387Cell[CellGroupData[{
388Cell[11421, 258, 115, 1, 64, "Section"],
389Cell[11539, 261, 167, 3, 28, "Input"],
390Cell[11709, 266, 4090, 77, 148, "Input"]
391}, Open ]]
392}
393]
394*)
395